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

static C_PTABLE_ENTRY *create_ptable(void);
C_noret_decl(C_data_2dstructures_toplevel)
C_extern void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_internal_toplevel)
C_extern void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_library_toplevel)
C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret;

static C_word lf[437];
static double C_possibly_force_alignment;
static C_char li0[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,108,111,111,107,117,112,32,115,101,41,0,0,0,0,0,0};
static C_char li1[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,109,97,99,114,111,45,97,108,105,97,115,32,118,97,114,32,115,101,41,0,0,0,0,0};
static C_char li2[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,57,48,48,32,105,41,0,0,0};
static C_char li3[] C_aligned={C_lihdr(0,0,8),40,119,97,108,107,32,120,41};
static C_char li4[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,115,116,114,105,112,45,115,121,110,116,97,120,32,101,120,112,41,0,0,0,0,0,0,0};
static C_char li5[] C_aligned={C_lihdr(0,0,23),40,109,97,112,45,108,111,111,112,57,56,53,32,103,57,57,55,32,103,57,57,56,41,0};
static C_char li6[] C_aligned={C_lihdr(0,0,28),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,52,56,32,103,57,53,53,32,103,57,53,54,41,0,0,0,0};
static C_char li7[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,57,50,50,32,103,57,51,52,41,0,0,0,0,0,0};
static C_char li8[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,101,120,116,101,110,100,45,115,101,32,115,101,32,118,97,114,115,32,46,32,114,101,115,116,41};
static C_char li9[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,101,110,115,117,114,101,45,116,114,97,110,115,102,111,114,109,101,114,32,116,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li10[] C_aligned={C_lihdr(0,0,7),40,103,49,48,52,57,41,0};
static C_char li11[] C_aligned={C_lihdr(0,0,52),40,35,35,115,121,115,35,101,120,116,101,110,100,45,109,97,99,114,111,45,101,110,118,105,114,111,110,109,101,110,116,32,110,97,109,101,32,115,101,32,116,114,97,110,115,102,111,114,109,101,114,41,0,0,0,0};
static C_char li12[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,109,97,99,114,111,63,32,115,121,109,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
static C_char li13[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,109,101,41,0,0,0,0,0,0,0};
static C_char li14[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,117,110,100,101,102,105,110,101,45,109,97,99,114,111,33,32,110,97,109,101,41,0,0,0,0};
static C_char li15[] C_aligned={C_lihdr(0,0,9),40,99,111,112,121,32,112,115,41,0,0,0,0,0,0,0};
static C_char li16[] C_aligned={C_lihdr(0,0,7),40,97,54,55,56,53,41,0};
static C_char li17[] C_aligned={C_lihdr(0,0,10),40,97,54,55,55,57,32,101,120,41,0,0,0,0,0,0};
static C_char li18[] C_aligned={C_lihdr(0,0,14),40,102,95,54,57,50,49,32,105,110,112,117,116,41,0,0};
static C_char li19[] C_aligned={C_lihdr(0,0,7),40,97,54,57,50,54,41,0};
static C_char li20[] C_aligned={C_lihdr(0,0,7),40,97,54,57,51,49,41,0};
static C_char li21[] C_aligned={C_lihdr(0,0,7),40,97,54,57,51,55,41,0};
static C_char li22[] C_aligned={C_lihdr(0,0,7),40,97,54,56,56,54,41,0};
static C_char li23[] C_aligned={C_lihdr(0,0,7),40,97,54,57,53,49,41,0};
static C_char li24[] C_aligned={C_lihdr(0,0,14),40,97,54,57,52,53,32,46,32,97,114,103,115,41,0,0};
static C_char li25[] C_aligned={C_lihdr(0,0,7),40,97,54,56,56,48,41,0};
static C_char li26[] C_aligned={C_lihdr(0,0,9),40,97,54,55,55,51,32,107,41,0,0,0,0,0,0,0};
static C_char li27[] C_aligned={C_lihdr(0,0,37),40,99,97,108,108,45,104,97,110,100,108,101,114,32,110,97,109,101,32,104,97,110,100,108,101,114,32,101,120,112,32,115,101,32,99,115,41,0,0,0};
static C_char li28[] C_aligned={C_lihdr(0,0,22),40,101,120,112,97,110,100,32,104,101,97,100,32,101,120,112,32,109,100,101,102,41,0,0};
static C_char li29[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,49,57,52,32,103,49,50,48,54,41,0,0,0,0};
static C_char li30[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,49,54,55,32,103,49,49,55,57,41,0,0,0,0};
static C_char li31[] C_aligned={C_lihdr(0,0,10),40,103,49,50,50,55,32,99,115,41,0,0,0,0,0,0};
static C_char li32[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,101,120,112,41,0,0,0,0,0,0};
static C_char li33[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,101,120,112,97,110,100,45,48,32,101,120,112,32,100,115,101,32,99,115,63,41,0,0,0,0};
static C_char li34[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,101,120,112,97,110,115,105,111,110,45,114,101,115,117,108,116,45,104,111,111,107,32,105,110,112,117,116,32,111,117,116,112,117,116,41,0,0,0,0,0};
static C_char li35[] C_aligned={C_lihdr(0,0,7),40,97,55,50,56,54,41,0};
static C_char li36[] C_aligned={C_lihdr(0,0,22),40,97,55,50,57,50,32,101,120,112,50,49,50,54,52,32,109,49,50,54,54,41,0,0};
static C_char li37[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,101,120,112,41,0,0,0,0,0,0};
static C_char li38[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,101,120,112,97,110,100,32,101,120,112,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
static C_char li39[] C_aligned={C_lihdr(0,0,7),40,97,55,51,52,54,41,0};
static C_char li40[] C_aligned={C_lihdr(0,0,13),40,97,55,51,53,50,32,46,32,116,109,112,41,0,0,0};
static C_char li41[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,101,120,112,97,110,100,49,32,101,120,112,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li42[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
static C_char li43[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,101,120,116,101,110,100,101,100,45,108,97,109,98,100,97,45,108,105,115,116,63,32,108,108,105,115,116,41,0,0,0,0,0};
static C_char li44[] C_aligned={C_lihdr(0,0,9),40,101,114,114,32,109,115,103,41,0,0,0,0,0,0,0};
static C_char li45[] C_aligned={C_lihdr(0,0,9),40,103,49,51,53,48,32,107,41,0,0,0,0,0,0,0};
static C_char li46[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,52,52,32,103,49,51,53,54,41,0,0,0,0};
static C_char li47[] C_aligned={C_lihdr(0,0,29),40,108,111,111,112,32,109,111,100,101,32,114,101,113,32,111,112,116,32,107,101,121,32,108,108,105,115,116,41,0,0,0};
static C_char li48[] C_aligned={C_lihdr(0,0,55),40,35,35,115,121,115,35,101,120,112,97,110,100,45,101,120,116,101,110,100,101,100,45,108,97,109,98,100,97,45,108,105,115,116,32,108,108,105,115,116,48,32,98,111,100,121,32,101,114,114,104,32,115,101,41,0};
static C_char li49[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,52,56,49,32,103,49,52,57,51,32,103,49,52,57,52,41,0,0,0,0,0,0};
static C_char li50[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,52,53,50,32,103,49,52,54,52,41,0,0,0,0};
static C_char li51[] C_aligned={C_lihdr(0,0,22),40,97,56,48,52,55,32,118,97,114,115,32,97,114,103,99,32,114,101,115,116,41,0,0};
static C_char li52[] C_aligned={C_lihdr(0,0,54),40,35,35,115,121,115,35,101,120,112,97,110,100,45,109,117,108,116,105,112,108,101,45,118,97,108,117,101,115,45,97,115,115,105,103,110,109,101,110,116,32,102,111,114,109,97,108,115,32,101,120,112,114,41,0,0};
static C_char li53[] C_aligned={C_lihdr(0,0,11),40,99,111,109,112,32,115,32,105,100,41,0,0,0,0,0};
static C_char li54[] C_aligned={C_lihdr(0,0,11),40,114,101,112,101,97,116,32,105,100,41,0,0,0,0,0};
static C_char li55[] C_aligned={C_lihdr(0,0,11),40,102,95,56,50,56,56,32,105,100,41,0,0,0,0,0};
static C_char li56[] C_aligned={C_lihdr(0,0,14),40,99,111,109,112,45,100,101,102,32,100,101,102,41,0,0};
static C_char li57[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,50,32,98,111,100,121,41,0,0,0,0};
static C_char li58[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,98,111,100,121,32,101,120,112,115,41};
static C_char li59[] C_aligned={C_lihdr(0,0,32),40,109,97,112,45,108,111,111,112,49,54,56,52,32,103,49,54,57,54,32,103,49,54,57,55,32,103,49,54,57,56,41};
static C_char li60[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,54,51,54,32,103,49,54,52,56,41,0,0,0,0};
static C_char li61[] C_aligned={C_lihdr(0,0,13),40,97,56,54,51,53,32,97,32,95,32,95,41,0,0,0};
static C_char li62[] C_aligned={C_lihdr(0,0,23),40,102,111,108,100,108,49,54,54,48,32,103,49,54,54,49,32,103,49,54,53,57,41,0};
static C_char li63[] C_aligned={C_lihdr(0,0,29),40,102,95,56,51,55,53,32,118,97,114,115,32,118,97,108,115,32,109,118,97,114,115,32,98,111,100,121,41,0,0,0};
static C_char li64[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,55,52,52,32,103,49,55,53,54,41,0,0,0,0};
static C_char li65[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,98,111,100,121,32,100,101,102,115,32,100,111,110,101,41,0,0,0};
static C_char li66[] C_aligned={C_lihdr(0,0,29),40,102,95,56,56,49,50,32,118,97,114,115,32,118,97,108,115,32,109,118,97,114,115,32,98,111,100,121,41,0,0,0};
static C_char li67[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,50,32,120,41,0,0,0,0,0,0,0};
static C_char li68[] C_aligned={C_lihdr(0,0,27),40,108,111,111,112,32,98,111,100,121,32,118,97,114,115,32,118,97,108,115,32,109,118,97,114,115,41,0,0,0,0,0};
static C_char li69[] C_aligned={C_lihdr(0,0,13),40,102,95,56,57,54,56,32,98,111,100,121,41,0,0,0};
static C_char li70[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,99,97,110,111,110,105,99,97,108,105,122,101,45,98,111,100,121,32,98,111,100,121,32,46,32,114,101,115,116,41,0,0,0};
static C_char li71[] C_aligned={C_lihdr(0,0,7),40,103,49,56,52,49,41,0};
static C_char li72[] C_aligned={C_lihdr(0,0,11),40,109,119,97,108,107,32,120,32,112,41,0,0,0,0,0};
static C_char li73[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,109,97,116,99,104,45,101,120,112,114,101,115,115,105,111,110,32,101,120,112,32,112,97,116,32,118,97,114,115,41,0,0};
static C_char li74[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,104,101,97,100,32,98,111,100,121,41};
static C_char li75[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,101,120,112,97,110,100,45,99,117,114,114,105,101,100,45,100,101,102,105,110,101,32,104,101,97,100,32,98,111,100,121,32,115,101,41,0,0,0,0,0};
static C_char li76[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,115,121,110,116,97,120,45,101,114,114,111,114,45,104,111,111,107,32,46,32,97,114,103,115,41};
static C_char li77[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,115,121,110,116,97,120,45,101,114,114,111,114,32,46,32,97,114,103,115,41,0,0,0,0,0};
static C_char li78[] C_aligned={C_lihdr(0,0,12),40,111,117,116,115,116,114,32,115,116,114,41,0,0,0,0};
static C_char li79[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0};
static C_char li80[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,100,101,102,115,41,0,0,0,0,0};
static C_char li81[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,99,120,41,0,0,0,0,0,0,0};
static C_char li82[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,115,121,110,116,97,120,45,101,114,114,111,114,47,99,111,110,116,101,120,116,32,109,115,103,32,97,114,103,41,0,0,0,0};
static C_char li83[] C_aligned={C_lihdr(0,0,13),40,108,112,32,108,115,116,32,112,114,101,118,41,0,0,0};
static C_char li84[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,97,115,115,113,47,100,114,111,112,45,98,119,112,33,32,120,32,108,115,116,41,0,0,0};
static C_char li85[] C_aligned={C_lihdr(0,0,58),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,114,101,97,100,45,119,105,116,104,45,115,111,117,114,99,101,45,105,110,102,111,45,104,111,111,107,32,99,108,97,115,115,32,100,97,116,97,32,118,97,108,41,0,0,0,0,0,0};
static C_char li86[] C_aligned={C_lihdr(0,0,7),40,97,57,55,57,51,41,0};
static C_char li87[] C_aligned={C_lihdr(0,0,7),40,97,57,55,57,56,41,0};
static C_char li88[] C_aligned={C_lihdr(0,0,7),40,97,57,56,48,52,41,0};
static C_char li89[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,114,101,97,100,45,119,105,116,104,45,115,111,117,114,99,101,45,105,110,102,111,32,46,32,114,101,115,116,41,0,0,0};
static C_char li90[] C_aligned={C_lihdr(0,0,10),40,103,49,57,57,51,32,112,108,41,0,0,0,0,0,0};
static C_char li91[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,103,101,116,45,108,105,110,101,45,110,117,109,98,101,114,32,115,101,120,112,41,0,0,0};
static C_char li92[] C_aligned={C_lihdr(0,0,9),40,103,50,48,48,57,32,97,41,0,0,0,0,0,0,0};
static C_char li93[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,103,101,116,45,108,105,110,101,45,50,32,101,120,112,41,0,0};
static C_char li94[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,48,49,56,32,103,50,48,51,48,41,0,0,0,0};
static C_char li95[] C_aligned={C_lihdr(0,0,15),40,97,57,57,50,51,32,107,101,121,32,118,97,108,41,0};
static C_char li96[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,100,105,115,112,108,97,121,45,108,105,110,101,45,110,117,109,98,101,114,45,100,97,116,97,98,97,115,101,41,0,0,0,0};
static C_char li97[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,120,115,41,0,0,0,0,0,0,0};
static C_char li98[] C_aligned={C_lihdr(0,0,14),40,109,97,112,117,112,100,97,116,101,32,120,115,41,0,0};
static C_char li99[] C_aligned={C_lihdr(0,0,8),40,119,97,108,107,32,120,41};
static C_char li100[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,117,112,100,97,116,101,45,108,105,110,101,45,110,117,109,98,101,114,45,100,97,116,97,98,97,115,101,33,32,101,120,112,32,108,110,41,0,0,0,0,0};
static C_char li101[] C_aligned={C_lihdr(0,0,17),40,116,101,115,116,32,120,32,112,114,101,100,32,109,115,103,41,0,0,0,0,0,0,0};
static C_char li102[] C_aligned={C_lihdr(0,0,9),40,101,114,114,32,109,115,103,41,0,0,0,0,0,0,0};
static C_char li103[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
static C_char li104[] C_aligned={C_lihdr(0,0,16),40,108,97,109,98,100,97,45,108,105,115,116,63,32,120,41};
static C_char li105[] C_aligned={C_lihdr(0,0,13),40,118,97,114,105,97,98,108,101,63,32,118,41,0,0,0};
static C_char li106[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
static C_char li107[] C_aligned={C_lihdr(0,0,16),40,112,114,111,112,101,114,45,108,105,115,116,63,32,120,41};
static C_char li108[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,50,49,52,55,32,120,32,110,41};
static C_char li109[] C_aligned={C_lihdr(0,0,10),40,97,49,48,52,48,57,32,121,41,0,0,0,0,0,0};
static C_char li110[] C_aligned={C_lihdr(0,0,10),40,119,97,108,107,32,120,32,112,41,0,0,0,0,0,0};
static C_char li111[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,99,104,101,99,107,45,115,121,110,116,97,120,32,105,100,32,101,120,112,32,112,97,116,32,46,32,114,101,115,116,41,0,0};
static C_char li112[] C_aligned={C_lihdr(0,0,35),40,105,110,104,101,114,105,116,45,112,97,105,114,45,108,105,110,101,45,110,117,109,98,101,114,115,32,111,108,100,32,110,101,119,41,0,0,0,0,0};
static C_char li113[] C_aligned={C_lihdr(0,0,12),40,114,101,110,97,109,101,32,115,121,109,41,0,0,0,0};
static C_char li114[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,50,50,51,50,32,105,32,102,41};
static C_char li115[] C_aligned={C_lihdr(0,0,7),40,103,50,50,55,51,41,0};
static C_char li116[] C_aligned={C_lihdr(0,0,7),40,103,50,50,56,50,41,0};
static C_char li117[] C_aligned={C_lihdr(0,0,15),40,99,111,109,112,97,114,101,32,115,49,32,115,50,41,0};
static C_char li118[] C_aligned={C_lihdr(0,0,16),40,97,115,115,113,45,114,101,118,101,114,115,101,32,108,41};
static C_char li119[] C_aligned={C_lihdr(0,0,19),40,109,105,114,114,111,114,45,114,101,110,97,109,101,32,115,121,109,41,0,0,0,0,0};
static C_char li120[] C_aligned={C_lihdr(0,0,20),40,97,49,48,53,50,53,32,102,111,114,109,32,115,101,32,100,115,101,41,0,0,0,0};
static C_char li121[] C_aligned={C_lihdr(0,0,66),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,109,97,107,101,45,101,114,47,105,114,45,116,114,97,110,115,102,111,114,109,101,114,32,104,97,110,100,108,101,114,32,101,120,112,108,105,99,105,116,45,114,101,110,97,109,105,110,103,63,41,0,0,0,0,0,0};
static C_char li122[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,101,114,45,109,97,99,114,111,45,116,114,97,110,115,102,111,114,109,101,114,32,104,97,110,100,108,101,114,41,0,0,0};
static C_char li123[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,105,114,45,109,97,99,114,111,45,116,114,97,110,115,102,111,114,109,101,114,32,104,97,110,100,108,101,114,41,0,0,0};
static C_char li124[] C_aligned={C_lihdr(0,0,7),40,101,114,114,32,120,41,0};
static C_char li125[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,114,112,41,0,0,0,0,0,0,0};
static C_char li126[] C_aligned={C_lihdr(0,0,9),40,116,101,115,116,32,102,120,41,0,0,0,0,0,0,0};
static C_char li127[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,54,49,49,32,103,50,54,50,51,41,0,0,0,0};
static C_char li128[] C_aligned={C_lihdr(0,0,12),40,101,120,112,97,110,100,32,99,108,115,41,0,0,0,0};
static C_char li129[] C_aligned={C_lihdr(0,0,29),40,112,114,111,99,101,115,115,45,99,111,110,100,45,101,120,112,97,110,100,32,99,108,97,117,115,101,115,41,0,0,0};
static C_char li130[] C_aligned={C_lihdr(0,0,59),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,46,115,121,110,116,97,120,45,114,117,108,101,115,35,115,121,110,116,97,120,45,114,117,108,101,115,45,109,105,115,109,97,116,99,104,32,105,110,112,117,116,41,0,0,0,0,0};
static C_char li131[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,108,101,110,32,105,110,112,117,116,41};
static C_char li132[] C_aligned={C_lihdr(0,0,53),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,46,115,121,110,116,97,120,45,114,117,108,101,115,35,100,114,111,112,45,114,105,103,104,116,32,105,110,112,117,116,32,116,101,109,112,41,0,0,0};
static C_char li133[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,110,112,117,116,41,0,0,0,0};
static C_char li134[] C_aligned={C_lihdr(0,0,53),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,46,115,121,110,116,97,120,45,114,117,108,101,115,35,116,97,107,101,45,114,105,103,104,116,32,105,110,112,117,116,32,116,101,109,112,41,0,0,0};
static C_char li135[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,101,110,41,0,0,0,0,0,0};
static C_char li136[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,46,115,121,110,116,97,120,45,114,117,108,101,115,35,115,97,102,101,45,108,101,110,103,116,104,32,108,115,116,41,0};
static C_char li137[] C_aligned={C_lihdr(0,0,11),40,102,95,49,49,55,55,51,32,120,41,0,0,0,0,0};
static C_char li138[] C_aligned={C_lihdr(0,0,11),40,102,95,49,49,55,55,57,32,120,41,0,0,0,0,0};
static C_char li139[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,54,55,51,32,103,51,54,56,53,41,0,0,0,0};
static C_char li140[] C_aligned={C_lihdr(0,0,15),40,102,95,49,49,55,56,57,32,114,117,108,101,115,41,0};
static C_char li141[] C_aligned={C_lihdr(0,0,10),40,97,49,49,57,50,48,32,120,41,0,0,0,0,0,0};
static C_char li142[] C_aligned={C_lihdr(0,0,14),40,102,95,49,49,56,56,51,32,114,117,108,101,41,0,0};
static C_char li143[] C_aligned={C_lihdr(0,0,41),40,102,95,49,49,57,52,57,32,105,110,112,117,116,32,112,97,116,116,101,114,110,32,115,101,101,110,45,115,101,103,109,101,110,116,63,32,101,108,63,41,0,0,0,0,0,0,0};
static C_char li144[] C_aligned={C_lihdr(0,0,27),40,102,95,49,50,49,51,48,32,105,110,112,117,116,32,112,97,116,116,101,114,110,32,101,108,63,41,0,0,0,0,0};
static C_char li145[] C_aligned={C_lihdr(0,0,10),40,97,49,50,51,48,57,32,120,41,0,0,0,0,0,0};
static C_char li146[] C_aligned={C_lihdr(0,0,46),40,102,95,49,50,50,52,50,32,112,97,116,116,101,114,110,32,112,97,116,104,32,109,97,112,105,116,32,115,101,101,110,45,115,101,103,109,101,110,116,63,32,101,108,63,41,0,0};
static C_char li147[] C_aligned={C_lihdr(0,0,12),40,97,49,50,52,53,55,32,46,32,95,41,0,0,0,0};
static C_char li148[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,51,56,50,50,32,100,32,103,101,110,41,0,0,0,0,0,0};
static C_char li149[] C_aligned={C_lihdr(0,0,30),40,102,95,49,50,51,57,56,32,116,101,109,112,108,97,116,101,32,100,105,109,32,101,108,63,32,101,110,118,41,0,0};
static C_char li150[] C_aligned={C_lihdr(0,0,44),40,102,95,49,50,54,51,54,32,112,97,116,116,101,114,110,32,100,105,109,32,101,108,63,32,118,97,114,115,32,115,101,101,110,45,115,101,103,109,101,110,116,63,41,0,0,0,0};
static C_char li151[] C_aligned={C_lihdr(0,0,35),40,102,95,49,50,55,50,50,32,116,101,109,112,108,97,116,101,32,100,105,109,32,101,108,63,32,101,110,118,32,102,114,101,101,41,0,0,0,0,0};
static C_char li152[] C_aligned={C_lihdr(0,0,21),40,102,95,49,50,56,49,49,32,112,97,116,116,101,114,110,32,101,108,63,41,0,0,0};
static C_char li153[] C_aligned={C_lihdr(0,0,29),40,102,95,49,50,56,50,53,32,112,32,115,101,101,110,45,115,101,103,109,101,110,116,63,32,101,108,63,41,0,0,0};
static C_char li154[] C_aligned={C_lihdr(0,0,21),40,102,95,49,50,56,52,48,32,112,97,116,116,101,114,110,32,101,108,63,41,0,0,0};
static C_char li155[] C_aligned={C_lihdr(0,0,21),40,102,95,49,50,56,54,55,32,112,97,116,116,101,114,110,32,101,108,63,41,0,0,0};
static C_char li156[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,112,97,116,116,101,114,110,41,0,0};
static C_char li157[] C_aligned={C_lihdr(0,0,21),40,102,95,49,50,56,56,55,32,112,97,116,116,101,114,110,32,101,108,63,41,0,0,0};
static C_char li158[] C_aligned={C_lihdr(0,0,16),40,97,49,50,57,53,50,32,101,120,112,32,114,32,99,41};
static C_char li159[] C_aligned={C_lihdr(0,0,17),40,97,49,50,57,56,56,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
static C_char li160[] C_aligned={C_lihdr(0,0,17),40,97,49,51,48,48,56,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
static C_char li161[] C_aligned={C_lihdr(0,0,10),40,119,97,108,107,32,120,32,110,41,0,0,0,0,0,0};
static C_char li162[] C_aligned={C_lihdr(0,0,11),40,119,97,108,107,49,32,120,32,110,41,0,0,0,0,0};
static C_char li163[] C_aligned={C_lihdr(0,0,11),40,103,51,53,50,51,32,101,110,118,41,0,0,0,0,0};
static C_char li164[] C_aligned={C_lihdr(0,0,11),40,103,51,53,51,48,32,101,110,118,41,0,0,0,0,0};
static C_char li165[] C_aligned={C_lihdr(0,0,12),40,115,105,109,112,108,105,102,121,32,120,41,0,0,0,0};
static C_char li166[] C_aligned={C_lihdr(0,0,17),40,97,49,51,48,52,49,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
static C_char li167[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,52,51,53,32,103,51,52,52,55,41,0,0,0,0};
static C_char li168[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,52,48,49,32,103,51,52,49,51,41,0,0,0,0};
static C_char li169[] C_aligned={C_lihdr(0,0,17),40,97,49,51,51,51,52,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
static C_char li170[] C_aligned={C_lihdr(0,0,11),40,101,120,112,97,110,100,32,98,115,41,0,0,0,0,0};
static C_char li171[] C_aligned={C_lihdr(0,0,17),40,97,49,51,53,51,48,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
static C_char li172[] C_aligned={C_lihdr(0,0,7),40,103,51,51,52,50,41,0};
static C_char li173[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,51,51,54,32,103,51,51,52,56,41,0,0,0,0};
static C_char li174[] C_aligned={C_lihdr(0,0,22),40,101,120,112,97,110,100,32,99,108,97,117,115,101,115,32,101,108,115,101,63,41,0,0};
static C_char li175[] C_aligned={C_lihdr(0,0,17),40,97,49,51,53,56,49,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
static C_char li176[] C_aligned={C_lihdr(0,0,22),40,101,120,112,97,110,100,32,99,108,97,117,115,101,115,32,101,108,115,101,63,41,0,0};
static C_char li177[] C_aligned={C_lihdr(0,0,17),40,97,49,51,56,49,55,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
static C_char li178[] C_aligned={C_lihdr(0,0,17),40,97,49,52,50,48,56,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
static C_char li179[] C_aligned={C_lihdr(0,0,17),40,97,49,52,50,54,48,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
static C_char li180[] C_aligned={C_lihdr(0,0,14),40,97,49,52,50,57,55,32,120,32,114,32,99,41,0,0};
static C_char li181[] C_aligned={C_lihdr(0,0,14),40,97,49,52,51,52,49,32,120,32,114,32,99,41,0,0};
static C_char li182[] C_aligned={C_lihdr(0,0,14),40,97,49,52,51,54,51,32,120,32,114,32,99,41,0,0};
static C_char li183[] C_aligned={C_lihdr(0,0,14),40,97,49,52,51,56,53,32,120,32,114,32,99,41,0,0};
static C_char li184[] C_aligned={C_lihdr(0,0,14),40,97,49,52,52,48,55,32,120,32,114,32,99,41,0,0};
static C_char li185[] C_aligned={C_lihdr(0,0,17),40,97,49,52,52,53,57,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
static C_char li186[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,102,111,114,109,41,0,0,0,0,0};
static C_char li187[] C_aligned={C_lihdr(0,0,14),40,97,49,52,53,48,54,32,120,32,114,32,99,41,0,0};
static C_char li188[] C_aligned={C_lihdr(0,0,14),40,97,49,52,54,51,51,32,120,32,114,32,99,41,0,0};
static C_char li189[] C_aligned={C_lihdr(0,0,14),40,97,49,52,54,53,48,32,120,32,114,32,99,41,0,0};
static C_char li190[] C_aligned={C_lihdr(0,0,14),40,97,49,52,54,54,55,32,120,32,114,32,99,41,0,0};
static C_char li191[] C_aligned={C_lihdr(0,0,14),40,97,49,52,54,56,52,32,120,32,114,32,99,41,0,0};
static C_char li192[] C_aligned={C_lihdr(0,0,14),40,97,49,52,55,48,49,32,120,32,114,32,99,41,0,0};
static C_char li193[] C_aligned={C_lihdr(0,0,14),40,97,49,52,55,50,52,32,120,32,114,32,99,41,0,0};
static C_char li194[] C_aligned={C_lihdr(0,0,11),40,103,50,57,56,54,32,97,114,103,41,0,0,0,0,0};
static C_char li195[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,57,56,48,32,103,50,57,57,50,41,0,0,0,0};
static C_char li196[] C_aligned={C_lihdr(0,0,14),40,97,49,52,56,48,56,32,120,32,114,32,99,41,0,0};
static C_char li197[] C_aligned={C_lihdr(0,0,26),40,97,49,52,57,55,57,32,103,50,57,53,52,32,103,50,57,53,54,32,103,50,57,53,56,41,0,0,0,0,0,0};
static C_char li198[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,57,50,49,32,103,50,57,51,51,41,0,0,0,0};
static C_char li199[] C_aligned={C_lihdr(0,0,14),40,97,49,52,57,56,57,32,120,32,114,32,99,41,0,0};
static C_char li200[] C_aligned={C_lihdr(0,0,14),40,97,49,53,49,49,50,32,120,32,114,32,99,41,0,0};
static C_char li201[] C_aligned={C_lihdr(0,0,12),40,103,50,55,50,51,32,115,112,101,99,41,0,0,0,0};
static C_char li202[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,49,55,32,103,50,55,50,57,41,0,0,0,0};
static C_char li203[] C_aligned={C_lihdr(0,0,21),40,112,97,114,115,101,45,101,120,112,111,114,116,115,32,115,112,101,99,115,41,0,0,0};
static C_char li204[] C_aligned={C_lihdr(0,0,13),40,103,50,55,55,49,32,102,110,97,109,101,41,0,0,0};
static C_char li205[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,54,53,32,103,50,55,55,55,41,0,0,0,0};
static C_char li206[] C_aligned={C_lihdr(0,0,29),40,112,114,111,99,101,115,115,45,105,110,99,108,117,100,101,115,32,102,110,97,109,101,115,32,99,105,63,41,0,0,0};
static C_char li207[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,57,56,32,103,50,56,49,48,41,0,0,0,0};
static C_char li208[] C_aligned={C_lihdr(0,0,16),40,101,120,112,97,110,100,47,98,101,103,105,110,32,101,41};
static C_char li209[] C_aligned={C_lihdr(0,0,8),40,97,49,53,52,50,55,41};
static C_char li210[] C_aligned={C_lihdr(0,0,19),40,97,49,53,52,51,56,32,102,111,114,109,115,32,112,97,116,104,41,0,0,0,0,0};
static C_char li211[] C_aligned={C_lihdr(0,0,8),40,97,49,53,52,51,50,41};
static C_char li212[] C_aligned={C_lihdr(0,0,8),40,97,49,53,52,52,49,41};
static C_char li213[] C_aligned={C_lihdr(0,0,25),40,114,101,97,100,45,102,111,114,109,115,32,102,105,108,101,110,97,109,101,32,99,105,63,41,0,0,0,0,0,0,0};
static C_char li214[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,102,110,97,109,101,115,32,97,108,108,41,0,0,0,0,0,0,0};
static C_char li215[] C_aligned={C_lihdr(0,0,30),40,112,114,111,99,101,115,115,45,105,110,99,108,117,100,101,45,100,101,99,108,115,32,102,110,97,109,101,115,41,0,0};
static C_char li216[] C_aligned={C_lihdr(0,0,19),40,112,97,114,115,101,45,100,101,99,108,115,32,100,101,99,108,115,41,0,0,0,0,0};
static C_char li217[] C_aligned={C_lihdr(0,0,14),40,97,49,53,49,51,57,32,120,32,114,32,99,41,0,0};
static C_char li218[] C_aligned={C_lihdr(0,0,14),40,97,49,53,56,54,48,32,120,32,114,32,99,41,0,0};
static C_char li219[] C_aligned={C_lihdr(0,0,17),40,97,49,54,48,51,53,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
static C_char li220[] C_aligned={C_lihdr(0,0,14),40,97,49,54,48,52,57,32,120,32,114,32,99,41,0,0};
static C_char li221[] C_aligned={C_lihdr(0,0,8),40,97,49,54,48,57,57,41};
static C_char li222[] C_aligned={C_lihdr(0,0,52),40,97,49,54,49,48,53,32,110,97,109,101,50,53,48,49,32,108,105,98,50,53,48,51,32,115,112,101,99,50,53,48,53,32,118,50,53,48,55,32,115,50,53,48,57,32,105,50,53,49,49,41,0,0,0,0};
static C_char li223[] C_aligned={C_lihdr(0,0,9),40,103,50,52,56,55,32,120,41,0,0,0,0,0,0,0};
static C_char li224[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,56,49,32,103,50,52,57,51,41,0,0,0,0};
static C_char li225[] C_aligned={C_lihdr(0,0,14),40,97,49,54,48,56,52,32,120,32,114,32,99,41,0,0};
static C_char li226[] C_aligned={C_lihdr(0,0,26),40,97,49,54,49,57,53,32,103,50,52,54,50,32,103,50,52,54,52,32,103,50,52,54,54,41,0,0,0,0,0,0};
static C_char li227[] C_aligned={C_lihdr(0,0,26),40,97,49,54,50,48,53,32,103,50,52,52,56,32,103,50,52,53,48,32,103,50,52,53,50,41,0,0,0,0,0,0};
static C_char li228[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};


C_noret_decl(f_10005)
static void C_ccall f_10005(C_word c,C_word *av) C_noret;
C_noret_decl(f_10014)
static void f_10014(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10031)
static void C_ccall f_10031(C_word c,C_word *av) C_noret;
C_noret_decl(f_10037)
static void C_ccall f_10037(C_word c,C_word *av) C_noret;
C_noret_decl(f_10076)
static void C_ccall f_10076(C_word c,C_word *av) C_noret;
C_noret_decl(f_10086)
static void C_ccall f_10086(C_word c,C_word *av) C_noret;
C_noret_decl(f_10091)
static void f_10091(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_10098)
static void C_ccall f_10098(C_word c,C_word *av) C_noret;
C_noret_decl(f_10103)
static void f_10103(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10107)
static void C_ccall f_10107(C_word c,C_word *av) C_noret;
C_noret_decl(f_10114)
static void C_ccall f_10114(C_word c,C_word *av) C_noret;
C_noret_decl(f_10121)
static void C_ccall f_10121(C_word c,C_word *av) C_noret;
C_noret_decl(f_10128)
static void C_ccall f_10128(C_word c,C_word *av) C_noret;
C_noret_decl(f_10130)
static void C_ccall f_10130(C_word c,C_word *av) C_noret;
C_noret_decl(f_10134)
static void C_ccall f_10134(C_word c,C_word *av) C_noret;
C_noret_decl(f_10142)
static C_word f_10142(C_word t0);
C_noret_decl(f_10175)
static void C_ccall f_10175(C_word c,C_word *av) C_noret;
C_noret_decl(f_10181)
static void C_ccall f_10181(C_word c,C_word *av) C_noret;
C_noret_decl(f_10187)
static C_word f_10187(C_word t0);
C_noret_decl(f_10208)
static void f_10208(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10213)
static void f_10213(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10232)
static void f_10232(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10237)
static void f_10237(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10256)
static void C_ccall f_10256(C_word c,C_word *av) C_noret;
C_noret_decl(f_10410)
static void C_ccall f_10410(C_word c,C_word *av) C_noret;
C_noret_decl(f_10467)
static void C_ccall f_10467(C_word c,C_word *av) C_noret;
C_noret_decl(f_10520)
static void f_10520(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10526)
static void C_ccall f_10526(C_word c,C_word *av) C_noret;
C_noret_decl(f_10529)
static void f_10529(C_word t0,C_word t1,C_word t2) 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_10545)
static void C_ccall f_10545(C_word c,C_word *av) C_noret;
C_noret_decl(f_10551)
static void C_ccall f_10551(C_word c,C_word *av) C_noret;
C_noret_decl(f_10576)
static void C_ccall f_10576(C_word c,C_word *av) C_noret;
C_noret_decl(f_10578)
static void C_ccall f_10578(C_word c,C_word *av) C_noret;
C_noret_decl(f_10596)
static void C_ccall f_10596(C_word c,C_word *av) C_noret;
C_noret_decl(f_10600)
static void C_ccall f_10600(C_word c,C_word *av) C_noret;
C_noret_decl(f_10617)
static void C_ccall f_10617(C_word c,C_word *av) C_noret;
C_noret_decl(f_10621)
static void C_ccall f_10621(C_word c,C_word *av) C_noret;
C_noret_decl(f_10647)
static void C_ccall f_10647(C_word c,C_word *av) C_noret;
C_noret_decl(f_10664)
static void C_ccall f_10664(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_10723)
static void f_10723(C_word t0,C_word t1,C_word t2,C_word t3) 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_10775)
static void f_10775(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10783)
static void f_10783(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10805)
static C_word f_10805(C_word t0,C_word t1);
C_noret_decl(f_10820)
static void C_ccall f_10820(C_word c,C_word *av) C_noret;
C_noret_decl(f_10833)
static C_word f_10833(C_word t0,C_word t1);
C_noret_decl(f_10848)
static void C_ccall f_10848(C_word c,C_word *av) C_noret;
C_noret_decl(f_10883)
static C_word f_10883(C_word t0,C_word t1);
C_noret_decl(f_10908)
static void f_10908(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10926)
static void C_ccall f_10926(C_word c,C_word *av) C_noret;
C_noret_decl(f_10930)
static void C_ccall f_10930(C_word c,C_word *av) C_noret;
C_noret_decl(f_10947)
static void C_ccall f_10947(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_11040)
static void C_ccall f_11040(C_word c,C_word *av) C_noret;
C_noret_decl(f_11044)
static void C_ccall f_11044(C_word c,C_word *av) C_noret;
C_noret_decl(f_11049)
static void C_ccall f_11049(C_word c,C_word *av) C_noret;
C_noret_decl(f_11055)
static void C_ccall f_11055(C_word c,C_word *av) C_noret;
C_noret_decl(f_11068)
static void C_ccall f_11068(C_word c,C_word *av) C_noret;
C_noret_decl(f_11071)
static void C_ccall f_11071(C_word c,C_word *av) C_noret;
C_noret_decl(f_11075)
static void C_ccall f_11075(C_word c,C_word *av) C_noret;
C_noret_decl(f_11078)
static void C_ccall f_11078(C_word c,C_word *av) C_noret;
C_noret_decl(f_11080)
static void C_ccall f_11080(C_word c,C_word *av) C_noret;
C_noret_decl(f_11083)
static void f_11083(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11103)
static void C_ccall f_11103(C_word c,C_word *av) C_noret;
C_noret_decl(f_11106)
static void C_ccall f_11106(C_word c,C_word *av) C_noret;
C_noret_decl(f_11109)
static void C_ccall f_11109(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_11121)
static void f_11121(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11132)
static void C_ccall f_11132(C_word c,C_word *av) C_noret;
C_noret_decl(f_11138)
static void C_ccall f_11138(C_word c,C_word *av) C_noret;
C_noret_decl(f_11150)
static void C_ccall f_11150(C_word c,C_word *av) C_noret;
C_noret_decl(f_11154)
static void C_ccall f_11154(C_word c,C_word *av) C_noret;
C_noret_decl(f_11156)
static void f_11156(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11170)
static void C_ccall f_11170(C_word c,C_word *av) C_noret;
C_noret_decl(f_11186)
static void C_ccall f_11186(C_word c,C_word *av) C_noret;
C_noret_decl(f_11210)
static void C_ccall f_11210(C_word c,C_word *av) C_noret;
C_noret_decl(f_11245)
static void C_ccall f_11245(C_word c,C_word *av) C_noret;
C_noret_decl(f_11279)
static void C_ccall f_11279(C_word c,C_word *av) C_noret;
C_noret_decl(f_11302)
static void C_ccall f_11302(C_word c,C_word *av) C_noret;
C_noret_decl(f_11337)
static void f_11337(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11362)
static void C_ccall f_11362(C_word c,C_word *av) C_noret;
C_noret_decl(f_11364)
static void f_11364(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_11455)
static void C_ccall f_11455(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_11470)
static void C_ccall f_11470(C_word c,C_word *av) C_noret;
C_noret_decl(f_11473)
static void C_ccall f_11473(C_word c,C_word *av) C_noret;
C_noret_decl(f_11476)
static void C_ccall f_11476(C_word c,C_word *av) C_noret;
C_noret_decl(f_11479)
static void C_ccall f_11479(C_word c,C_word *av) C_noret;
C_noret_decl(f_11482)
static void C_ccall f_11482(C_word c,C_word *av) C_noret;
C_noret_decl(f_11485)
static void C_ccall f_11485(C_word c,C_word *av) C_noret;
C_noret_decl(f_11488)
static void C_ccall f_11488(C_word c,C_word *av) C_noret;
C_noret_decl(f_11491)
static void C_ccall f_11491(C_word c,C_word *av) C_noret;
C_noret_decl(f_11494)
static void C_ccall f_11494(C_word c,C_word *av) C_noret;
C_noret_decl(f_11498)
static void C_ccall f_11498(C_word c,C_word *av) C_noret;
C_noret_decl(f_11502)
static void C_ccall f_11502(C_word c,C_word *av) C_noret;
C_noret_decl(f_11505)
static void C_ccall f_11505(C_word c,C_word *av) C_noret;
C_noret_decl(f_11508)
static void C_ccall f_11508(C_word c,C_word *av) C_noret;
C_noret_decl(f_11511)
static void C_ccall f_11511(C_word c,C_word *av) C_noret;
C_noret_decl(f_11514)
static void C_ccall f_11514(C_word c,C_word *av) C_noret;
C_noret_decl(f_11518)
static void C_ccall f_11518(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_11525)
static void C_ccall f_11525(C_word c,C_word *av) C_noret;
C_noret_decl(f_11528)
static void C_ccall f_11528(C_word c,C_word *av) C_noret;
C_noret_decl(f_11531)
static void C_ccall f_11531(C_word c,C_word *av) C_noret;
C_noret_decl(f_11534)
static void C_ccall f_11534(C_word c,C_word *av) C_noret;
C_noret_decl(f_11537)
static void C_ccall f_11537(C_word c,C_word *av) C_noret;
C_noret_decl(f_11540)
static void C_ccall f_11540(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_11546)
static void C_ccall f_11546(C_word c,C_word *av) C_noret;
C_noret_decl(f_11549)
static void C_ccall f_11549(C_word c,C_word *av) C_noret;
C_noret_decl(f_11552)
static void C_ccall f_11552(C_word c,C_word *av) C_noret;
C_noret_decl(f_11555)
static void C_ccall f_11555(C_word c,C_word *av) C_noret;
C_noret_decl(f_11558)
static void C_ccall f_11558(C_word c,C_word *av) C_noret;
C_noret_decl(f_11561)
static void C_ccall f_11561(C_word c,C_word *av) C_noret;
C_noret_decl(f_11564)
static void C_ccall f_11564(C_word c,C_word *av) C_noret;
C_noret_decl(f_11567)
static void C_ccall f_11567(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_11583)
static void C_ccall f_11583(C_word c,C_word *av) C_noret;
C_noret_decl(f_11585)
static void f_11585(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11603)
static void C_ccall f_11603(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_11619)
static void C_ccall f_11619(C_word c,C_word *av) C_noret;
C_noret_decl(f_11621)
static C_word f_11621(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_11641)
static void C_ccall f_11641(C_word c,C_word *av) C_noret;
C_noret_decl(f_11647)
static C_word f_11647(C_word t0,C_word t1);
C_noret_decl(f_11672)
static void C_ccall f_11672(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_11691)
static void C_ccall f_11691(C_word c,C_word *av) C_noret;
C_noret_decl(f_11696)
static void C_ccall f_11696(C_word c,C_word *av) C_noret;
C_noret_decl(f_11702)
static void C_ccall f_11702(C_word c,C_word *av) C_noret;
C_noret_decl(f_11706)
static void C_ccall f_11706(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_11714)
static void C_ccall f_11714(C_word c,C_word *av) C_noret;
C_noret_decl(f_11718)
static void C_ccall f_11718(C_word c,C_word *av) C_noret;
C_noret_decl(f_11722)
static void C_ccall f_11722(C_word c,C_word *av) C_noret;
C_noret_decl(f_11726)
static void C_ccall f_11726(C_word c,C_word *av) C_noret;
C_noret_decl(f_11733)
static void C_ccall f_11733(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_11742)
static void C_ccall f_11742(C_word c,C_word *av) C_noret;
C_noret_decl(f_11746)
static void C_ccall f_11746(C_word c,C_word *av) C_noret;
C_noret_decl(f_11750)
static void C_ccall f_11750(C_word c,C_word *av) C_noret;
C_noret_decl(f_11755)
static void C_ccall f_11755(C_word c,C_word *av) C_noret;
C_noret_decl(f_11759)
static void C_ccall f_11759(C_word c,C_word *av) C_noret;
C_noret_decl(f_11763)
static void C_ccall f_11763(C_word c,C_word *av) C_noret;
C_noret_decl(f_11767)
static void C_ccall f_11767(C_word c,C_word *av) C_noret;
C_noret_decl(f_11771)
static void C_ccall f_11771(C_word c,C_word *av) C_noret;
C_noret_decl(f_11773)
static void C_ccall f_11773(C_word c,C_word *av) C_noret;
C_noret_decl(f_11779)
static void C_ccall f_11779(C_word c,C_word *av) C_noret;
C_noret_decl(f_11787)
static void C_ccall f_11787(C_word c,C_word *av) C_noret;
C_noret_decl(f_11789)
static void C_ccall f_11789(C_word c,C_word *av) C_noret;
C_noret_decl(f_11817)
static void C_ccall f_11817(C_word c,C_word *av) C_noret;
C_noret_decl(f_11827)
static void C_ccall f_11827(C_word c,C_word *av) C_noret;
C_noret_decl(f_11841)
static void f_11841(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11866)
static void C_ccall f_11866(C_word c,C_word *av) C_noret;
C_noret_decl(f_11883)
static void C_ccall f_11883(C_word c,C_word *av) C_noret;
C_noret_decl(f_11890)
static void f_11890(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11911)
static void C_ccall f_11911(C_word c,C_word *av) C_noret;
C_noret_decl(f_11915)
static void C_ccall f_11915(C_word c,C_word *av) C_noret;
C_noret_decl(f_11919)
static void C_ccall f_11919(C_word c,C_word *av) C_noret;
C_noret_decl(f_11921)
static void C_ccall f_11921(C_word c,C_word *av) C_noret;
C_noret_decl(f_11926)
static void C_ccall f_11926(C_word c,C_word *av) C_noret;
C_noret_decl(f_11949)
static void C_ccall f_11949(C_word c,C_word *av) C_noret;
C_noret_decl(f_11983)
static void C_ccall f_11983(C_word c,C_word *av) C_noret;
C_noret_decl(f_12019)
static void C_ccall f_12019(C_word c,C_word *av) C_noret;
C_noret_decl(f_12023)
static void C_ccall f_12023(C_word c,C_word *av) C_noret;
C_noret_decl(f_12027)
static void C_ccall f_12027(C_word c,C_word *av) C_noret;
C_noret_decl(f_12076)
static void C_ccall f_12076(C_word c,C_word *av) C_noret;
C_noret_decl(f_12084)
static void C_ccall f_12084(C_word c,C_word *av) C_noret;
C_noret_decl(f_12097)
static void f_12097(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12130)
static void C_ccall f_12130(C_word c,C_word *av) C_noret;
C_noret_decl(f_12134)
static void C_ccall f_12134(C_word c,C_word *av) C_noret;
C_noret_decl(f_12137)
static void C_ccall f_12137(C_word c,C_word *av) C_noret;
C_noret_decl(f_12184)
static void C_ccall f_12184(C_word c,C_word *av) C_noret;
C_noret_decl(f_12208)
static void C_ccall f_12208(C_word c,C_word *av) C_noret;
C_noret_decl(f_12242)
static void C_ccall f_12242(C_word c,C_word *av) C_noret;
C_noret_decl(f_12258)
static void C_ccall f_12258(C_word c,C_word *av) 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_12281)
static void C_ccall f_12281(C_word c,C_word *av) C_noret;
C_noret_decl(f_12284)
static void C_ccall f_12284(C_word c,C_word *av) C_noret;
C_noret_decl(f_12294)
static void C_ccall f_12294(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_12310)
static void C_ccall f_12310(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_12367)
static void C_ccall f_12367(C_word c,C_word *av) C_noret;
C_noret_decl(f_12392)
static void C_ccall f_12392(C_word c,C_word *av) C_noret;
C_noret_decl(f_12398)
static void C_ccall f_12398(C_word c,C_word *av) C_noret;
C_noret_decl(f_12437)
static void C_ccall f_12437(C_word c,C_word *av) C_noret;
C_noret_decl(f_12458)
static void C_ccall f_12458(C_word c,C_word *av) C_noret;
C_noret_decl(f_12480)
static void C_ccall f_12480(C_word c,C_word *av) C_noret;
C_noret_decl(f_12483)
static void C_ccall f_12483(C_word c,C_word *av) C_noret;
C_noret_decl(f_12489)
static void C_ccall f_12489(C_word c,C_word *av) C_noret;
C_noret_decl(f_12501)
static void C_ccall f_12501(C_word c,C_word *av) C_noret;
C_noret_decl(f_12504)
static void f_12504(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12507)
static void C_ccall f_12507(C_word c,C_word *av) C_noret;
C_noret_decl(f_12520)
static void C_ccall f_12520(C_word c,C_word *av) C_noret;
C_noret_decl(f_12524)
static void C_ccall f_12524(C_word c,C_word *av) C_noret;
C_noret_decl(f_12528)
static void C_ccall f_12528(C_word c,C_word *av) C_noret;
C_noret_decl(f_12530)
static void f_12530(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12551)
static void f_12551(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12603)
static void C_ccall f_12603(C_word c,C_word *av) C_noret;
C_noret_decl(f_12607)
static void C_ccall f_12607(C_word c,C_word *av) C_noret;
C_noret_decl(f_12624)
static void C_ccall f_12624(C_word c,C_word *av) C_noret;
C_noret_decl(f_12628)
static void C_ccall f_12628(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_12652)
static void C_ccall f_12652(C_word c,C_word *av) C_noret;
C_noret_decl(f_12671)
static void C_ccall f_12671(C_word c,C_word *av) C_noret;
C_noret_decl(f_12686)
static void C_ccall f_12686(C_word c,C_word *av) C_noret;
C_noret_decl(f_12705)
static void C_ccall f_12705(C_word c,C_word *av) C_noret;
C_noret_decl(f_12720)
static void C_ccall f_12720(C_word c,C_word *av) C_noret;
C_noret_decl(f_12722)
static void C_ccall f_12722(C_word c,C_word *av) C_noret;
C_noret_decl(f_12764)
static void C_ccall f_12764(C_word c,C_word *av) C_noret;
C_noret_decl(f_12775)
static void C_ccall f_12775(C_word c,C_word *av) C_noret;
C_noret_decl(f_12794)
static void C_ccall f_12794(C_word c,C_word *av) C_noret;
C_noret_decl(f_12809)
static void C_ccall f_12809(C_word c,C_word *av) C_noret;
C_noret_decl(f_12811)
static void C_ccall f_12811(C_word c,C_word *av) C_noret;
C_noret_decl(f_12825)
static void C_ccall f_12825(C_word c,C_word *av) C_noret;
C_noret_decl(f_12832)
static void C_ccall f_12832(C_word c,C_word *av) C_noret;
C_noret_decl(f_12840)
static void C_ccall f_12840(C_word c,C_word *av) C_noret;
C_noret_decl(f_12867)
static void C_ccall f_12867(C_word c,C_word *av) C_noret;
C_noret_decl(f_12874)
static void C_ccall f_12874(C_word c,C_word *av) C_noret;
C_noret_decl(f_12881)
static void C_ccall f_12881(C_word c,C_word *av) C_noret;
C_noret_decl(f_12887)
static void C_ccall f_12887(C_word c,C_word *av) C_noret;
C_noret_decl(f_12897)
static void f_12897(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12904)
static void C_ccall f_12904(C_word c,C_word *av) C_noret;
C_noret_decl(f_12928)
static void C_ccall f_12928(C_word c,C_word *av) C_noret;
C_noret_decl(f_12932)
static void C_ccall f_12932(C_word c,C_word *av) C_noret;
C_noret_decl(f_12936)
static void C_ccall f_12936(C_word c,C_word *av) C_noret;
C_noret_decl(f_12939)
static void C_ccall f_12939(C_word c,C_word *av) C_noret;
C_noret_decl(f_12943)
static void C_ccall f_12943(C_word c,C_word *av) C_noret;
C_noret_decl(f_12947)
static void C_ccall f_12947(C_word c,C_word *av) C_noret;
C_noret_decl(f_12951)
static void C_ccall f_12951(C_word c,C_word *av) C_noret;
C_noret_decl(f_12953)
static void C_ccall f_12953(C_word c,C_word *av) C_noret;
C_noret_decl(f_12957)
static void C_ccall f_12957(C_word c,C_word *av) C_noret;
C_noret_decl(f_12965)
static void f_12965(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12974)
static void C_ccall f_12974(C_word c,C_word *av) C_noret;
C_noret_decl(f_12987)
static void C_ccall f_12987(C_word c,C_word *av) C_noret;
C_noret_decl(f_12989)
static void C_ccall f_12989(C_word c,C_word *av) C_noret;
C_noret_decl(f_12993)
static void C_ccall f_12993(C_word c,C_word *av) C_noret;
C_noret_decl(f_13007)
static void C_ccall f_13007(C_word c,C_word *av) C_noret;
C_noret_decl(f_13009)
static void C_ccall f_13009(C_word c,C_word *av) C_noret;
C_noret_decl(f_13013)
static void C_ccall f_13013(C_word c,C_word *av) C_noret;
C_noret_decl(f_13040)
static void C_ccall f_13040(C_word c,C_word *av) C_noret;
C_noret_decl(f_13042)
static void C_ccall f_13042(C_word c,C_word *av) C_noret;
C_noret_decl(f_13046)
static void C_ccall f_13046(C_word c,C_word *av) C_noret;
C_noret_decl(f_13049)
static void C_ccall f_13049(C_word c,C_word *av) C_noret;
C_noret_decl(f_13052)
static void C_ccall f_13052(C_word c,C_word *av) C_noret;
C_noret_decl(f_13054)
static void f_13054(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13062)
static void C_ccall f_13062(C_word c,C_word *av) C_noret;
C_noret_decl(f_13064)
static void f_13064(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13078)
static void C_ccall f_13078(C_word c,C_word *av) C_noret;
C_noret_decl(f_13082)
static void C_ccall f_13082(C_word c,C_word *av) C_noret;
C_noret_decl(f_13101)
static void C_ccall f_13101(C_word c,C_word *av) C_noret;
C_noret_decl(f_13110)
static void C_ccall f_13110(C_word c,C_word *av) C_noret;
C_noret_decl(f_13124)
static void C_ccall f_13124(C_word c,C_word *av) C_noret;
C_noret_decl(f_13134)
static void C_ccall f_13134(C_word c,C_word *av) C_noret;
C_noret_decl(f_13145)
static void C_ccall f_13145(C_word c,C_word *av) C_noret;
C_noret_decl(f_13155)
static void C_ccall f_13155(C_word c,C_word *av) C_noret;
C_noret_decl(f_13164)
static void C_ccall f_13164(C_word c,C_word *av) C_noret;
C_noret_decl(f_13175)
static void C_ccall f_13175(C_word c,C_word *av) C_noret;
C_noret_decl(f_13186)
static void C_ccall f_13186(C_word c,C_word *av) C_noret;
C_noret_decl(f_13194)
static void C_ccall f_13194(C_word c,C_word *av) C_noret;
C_noret_decl(f_13209)
static void C_ccall f_13209(C_word c,C_word *av) C_noret;
C_noret_decl(f_13213)
static void C_ccall f_13213(C_word c,C_word *av) C_noret;
C_noret_decl(f_13227)
static void f_13227(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13231)
static void C_ccall f_13231(C_word c,C_word *av) C_noret;
C_noret_decl(f_13235)
static void f_13235(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13257)
static void C_ccall f_13257(C_word c,C_word *av) C_noret;
C_noret_decl(f_13261)
static void f_13261(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13304)
static void C_ccall f_13304(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_13333)
static void C_ccall f_13333(C_word c,C_word *av) C_noret;
C_noret_decl(f_13335)
static void C_ccall f_13335(C_word c,C_word *av) C_noret;
C_noret_decl(f_13339)
static void C_ccall f_13339(C_word c,C_word *av) C_noret;
C_noret_decl(f_13351)
static void C_ccall f_13351(C_word c,C_word *av) C_noret;
C_noret_decl(f_13379)
static void C_ccall f_13379(C_word c,C_word *av) C_noret;
C_noret_decl(f_13400)
static void f_13400(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13441)
static void C_ccall f_13441(C_word c,C_word *av) C_noret;
C_noret_decl(f_13443)
static void f_13443(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13453)
static void f_13453(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13493)
static void f_13493(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13529)
static void C_ccall f_13529(C_word c,C_word *av) C_noret;
C_noret_decl(f_13531)
static void C_ccall f_13531(C_word c,C_word *av) C_noret;
C_noret_decl(f_13535)
static void C_ccall f_13535(C_word c,C_word *av) C_noret;
C_noret_decl(f_13545)
static void f_13545(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13570)
static void C_ccall f_13570(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_13582)
static void C_ccall f_13582(C_word c,C_word *av) C_noret;
C_noret_decl(f_13586)
static void C_ccall f_13586(C_word c,C_word *av) C_noret;
C_noret_decl(f_13594)
static void C_ccall f_13594(C_word c,C_word *av) C_noret;
C_noret_decl(f_13597)
static void C_ccall f_13597(C_word c,C_word *av) C_noret;
C_noret_decl(f_13600)
static void C_ccall f_13600(C_word c,C_word *av) C_noret;
C_noret_decl(f_13603)
static void C_ccall f_13603(C_word c,C_word *av) C_noret;
C_noret_decl(f_13606)
static void C_ccall f_13606(C_word c,C_word *av) C_noret;
C_noret_decl(f_13617)
static void C_ccall f_13617(C_word c,C_word *av) C_noret;
C_noret_decl(f_13619)
static void f_13619(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13633)
static void C_ccall f_13633(C_word c,C_word *av) C_noret;
C_noret_decl(f_13639)
static void C_ccall f_13639(C_word c,C_word *av) C_noret;
C_noret_decl(f_13642)
static void C_ccall f_13642(C_word c,C_word *av) C_noret;
C_noret_decl(f_13646)
static void C_ccall f_13646(C_word c,C_word *av) C_noret;
C_noret_decl(f_13652)
static void C_ccall f_13652(C_word c,C_word *av) C_noret;
C_noret_decl(f_13655)
static void C_ccall f_13655(C_word c,C_word *av) C_noret;
C_noret_decl(f_13670)
static void C_ccall f_13670(C_word c,C_word *av) C_noret;
C_noret_decl(f_13711)
static void f_13711(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13715)
static void C_ccall f_13715(C_word c,C_word *av) C_noret;
C_noret_decl(f_13718)
static void C_ccall f_13718(C_word c,C_word *av) C_noret;
C_noret_decl(f_13751)
static C_word f_13751(C_word *a,C_word t0,C_word t1);
C_noret_decl(f_13766)
static void C_ccall f_13766(C_word c,C_word *av) C_noret;
C_noret_decl(f_13768)
static void f_13768(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13816)
static void C_ccall f_13816(C_word c,C_word *av) C_noret;
C_noret_decl(f_13818)
static void C_ccall f_13818(C_word c,C_word *av) C_noret;
C_noret_decl(f_13825)
static void C_ccall f_13825(C_word c,C_word *av) C_noret;
C_noret_decl(f_13828)
static void C_ccall f_13828(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 f_13836(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13850)
static void C_ccall f_13850(C_word c,C_word *av) C_noret;
C_noret_decl(f_13856)
static void C_ccall f_13856(C_word c,C_word *av) C_noret;
C_noret_decl(f_13859)
static void C_ccall f_13859(C_word c,C_word *av) C_noret;
C_noret_decl(f_13863)
static void C_ccall f_13863(C_word c,C_word *av) C_noret;
C_noret_decl(f_13869)
static void C_ccall f_13869(C_word c,C_word *av) C_noret;
C_noret_decl(f_13872)
static void C_ccall f_13872(C_word c,C_word *av) C_noret;
C_noret_decl(f_13875)
static void C_ccall f_13875(C_word c,C_word *av) C_noret;
C_noret_decl(f_13878)
static void C_ccall f_13878(C_word c,C_word *av) C_noret;
C_noret_decl(f_13882)
static void C_ccall f_13882(C_word c,C_word *av) C_noret;
C_noret_decl(f_13888)
static void C_ccall f_13888(C_word c,C_word *av) C_noret;
C_noret_decl(f_13891)
static void C_ccall f_13891(C_word c,C_word *av) C_noret;
C_noret_decl(f_13894)
static void C_ccall f_13894(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_13926)
static void C_ccall f_13926(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_13971)
static void C_ccall f_13971(C_word c,C_word *av) C_noret;
C_noret_decl(f_13977)
static void C_ccall f_13977(C_word c,C_word *av) C_noret;
C_noret_decl(f_13980)
static void C_ccall f_13980(C_word c,C_word *av) C_noret;
C_noret_decl(f_13999)
static void C_ccall f_13999(C_word c,C_word *av) C_noret;
C_noret_decl(f_14017)
static void C_ccall f_14017(C_word c,C_word *av) C_noret;
C_noret_decl(f_14020)
static void C_ccall f_14020(C_word c,C_word *av) C_noret;
C_noret_decl(f_14047)
static void C_ccall f_14047(C_word c,C_word *av) C_noret;
C_noret_decl(f_14074)
static void C_ccall f_14074(C_word c,C_word *av) C_noret;
C_noret_decl(f_14137)
static void C_ccall f_14137(C_word c,C_word *av) C_noret;
C_noret_decl(f_14155)
static void C_ccall f_14155(C_word c,C_word *av) C_noret;
C_noret_decl(f_14171)
static void C_ccall f_14171(C_word c,C_word *av) C_noret;
C_noret_decl(f_14207)
static void C_ccall f_14207(C_word c,C_word *av) C_noret;
C_noret_decl(f_14209)
static void C_ccall f_14209(C_word c,C_word *av) C_noret;
C_noret_decl(f_14232)
static void C_ccall f_14232(C_word c,C_word *av) C_noret;
C_noret_decl(f_14251)
static void C_ccall f_14251(C_word c,C_word *av) C_noret;
C_noret_decl(f_14259)
static void C_ccall f_14259(C_word c,C_word *av) C_noret;
C_noret_decl(f_14261)
static void C_ccall f_14261(C_word c,C_word *av) C_noret;
C_noret_decl(f_14292)
static void C_ccall f_14292(C_word c,C_word *av) C_noret;
C_noret_decl(f_14296)
static void C_ccall f_14296(C_word c,C_word *av) C_noret;
C_noret_decl(f_14298)
static void C_ccall f_14298(C_word c,C_word *av) C_noret;
C_noret_decl(f_14302)
static void C_ccall f_14302(C_word c,C_word *av) C_noret;
C_noret_decl(f_14325)
static void C_ccall f_14325(C_word c,C_word *av) C_noret;
C_noret_decl(f_14340)
static void C_ccall f_14340(C_word c,C_word *av) C_noret;
C_noret_decl(f_14342)
static void C_ccall f_14342(C_word c,C_word *av) C_noret;
C_noret_decl(f_14346)
static void C_ccall f_14346(C_word c,C_word *av) C_noret;
C_noret_decl(f_14349)
static void C_ccall f_14349(C_word c,C_word *av) C_noret;
C_noret_decl(f_14362)
static void C_ccall f_14362(C_word c,C_word *av) C_noret;
C_noret_decl(f_14364)
static void C_ccall f_14364(C_word c,C_word *av) C_noret;
C_noret_decl(f_14368)
static void C_ccall f_14368(C_word c,C_word *av) 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_14384)
static void C_ccall f_14384(C_word c,C_word *av) C_noret;
C_noret_decl(f_14386)
static void C_ccall f_14386(C_word c,C_word *av) C_noret;
C_noret_decl(f_14390)
static void C_ccall f_14390(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_14406)
static void C_ccall f_14406(C_word c,C_word *av) C_noret;
C_noret_decl(f_14408)
static void C_ccall f_14408(C_word c,C_word *av) C_noret;
C_noret_decl(f_14412)
static void C_ccall f_14412(C_word c,C_word *av) C_noret;
C_noret_decl(f_14423)
static void C_ccall f_14423(C_word c,C_word *av) C_noret;
C_noret_decl(f_14433)
static void C_ccall f_14433(C_word c,C_word *av) C_noret;
C_noret_decl(f_14458)
static void C_ccall f_14458(C_word c,C_word *av) C_noret;
C_noret_decl(f_14460)
static void C_ccall f_14460(C_word c,C_word *av) C_noret;
C_noret_decl(f_14464)
static void C_ccall f_14464(C_word c,C_word *av) C_noret;
C_noret_decl(f_14481)
static void C_ccall f_14481(C_word c,C_word *av) C_noret;
C_noret_decl(f_14484)
static void C_ccall f_14484(C_word c,C_word *av) C_noret;
C_noret_decl(f_14490)
static void C_ccall f_14490(C_word c,C_word *av) C_noret;
C_noret_decl(f_14497)
static void C_ccall f_14497(C_word c,C_word *av) C_noret;
C_noret_decl(f_14501)
static void C_ccall f_14501(C_word c,C_word *av) C_noret;
C_noret_decl(f_14505)
static void C_ccall f_14505(C_word c,C_word *av) C_noret;
C_noret_decl(f_14507)
static void C_ccall f_14507(C_word c,C_word *av) C_noret;
C_noret_decl(f_14511)
static void C_ccall f_14511(C_word c,C_word *av) C_noret;
C_noret_decl(f_14516)
static void f_14516(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14531)
static void C_ccall f_14531(C_word c,C_word *av) C_noret;
C_noret_decl(f_14542)
static void C_ccall f_14542(C_word c,C_word *av) C_noret;
C_noret_decl(f_14545)
static void C_ccall f_14545(C_word c,C_word *av) C_noret;
C_noret_decl(f_14567)
static void C_ccall f_14567(C_word c,C_word *av) C_noret;
C_noret_decl(f_14574)
static void C_ccall f_14574(C_word c,C_word *av) C_noret;
C_noret_decl(f_14578)
static void C_ccall f_14578(C_word c,C_word *av) C_noret;
C_noret_decl(f_14587)
static void C_ccall f_14587(C_word c,C_word *av) C_noret;
C_noret_decl(f_14594)
static void C_ccall f_14594(C_word c,C_word *av) C_noret;
C_noret_decl(f_14597)
static void C_ccall f_14597(C_word c,C_word *av) C_noret;
C_noret_decl(f_14632)
static void C_ccall f_14632(C_word c,C_word *av) C_noret;
C_noret_decl(f_14634)
static void C_ccall f_14634(C_word c,C_word *av) C_noret;
C_noret_decl(f_14638)
static void C_ccall f_14638(C_word c,C_word *av) C_noret;
C_noret_decl(f_14649)
static void C_ccall f_14649(C_word c,C_word *av) C_noret;
C_noret_decl(f_14651)
static void C_ccall f_14651(C_word c,C_word *av) C_noret;
C_noret_decl(f_14655)
static void C_ccall f_14655(C_word c,C_word *av) C_noret;
C_noret_decl(f_14666)
static void C_ccall f_14666(C_word c,C_word *av) C_noret;
C_noret_decl(f_14668)
static void C_ccall f_14668(C_word c,C_word *av) C_noret;
C_noret_decl(f_14672)
static void C_ccall f_14672(C_word c,C_word *av) C_noret;
C_noret_decl(f_14683)
static void C_ccall f_14683(C_word c,C_word *av) C_noret;
C_noret_decl(f_14685)
static void C_ccall f_14685(C_word c,C_word *av) C_noret;
C_noret_decl(f_14689)
static void C_ccall f_14689(C_word c,C_word *av) C_noret;
C_noret_decl(f_14700)
static void C_ccall f_14700(C_word c,C_word *av) C_noret;
C_noret_decl(f_14702)
static void C_ccall f_14702(C_word c,C_word *av) C_noret;
C_noret_decl(f_14706)
static void C_ccall f_14706(C_word c,C_word *av) C_noret;
C_noret_decl(f_14709)
static void C_ccall f_14709(C_word c,C_word *av) 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_14723)
static void C_ccall f_14723(C_word c,C_word *av) C_noret;
C_noret_decl(f_14725)
static void C_ccall f_14725(C_word c,C_word *av) C_noret;
C_noret_decl(f_14729)
static void C_ccall f_14729(C_word c,C_word *av) C_noret;
C_noret_decl(f_14732)
static void C_ccall f_14732(C_word c,C_word *av) C_noret;
C_noret_decl(f_14735)
static void C_ccall f_14735(C_word c,C_word *av) C_noret;
C_noret_decl(f_14758)
static void C_ccall f_14758(C_word c,C_word *av) C_noret;
C_noret_decl(f_14761)
static void C_ccall f_14761(C_word c,C_word *av) C_noret;
C_noret_decl(f_14807)
static void C_ccall f_14807(C_word c,C_word *av) C_noret;
C_noret_decl(f_14809)
static void C_ccall f_14809(C_word c,C_word *av) C_noret;
C_noret_decl(f_14813)
static void C_ccall f_14813(C_word c,C_word *av) C_noret;
C_noret_decl(f_14816)
static void C_ccall f_14816(C_word c,C_word *av) C_noret;
C_noret_decl(f_14839)
static void C_ccall f_14839(C_word c,C_word *av) C_noret;
C_noret_decl(f_14867)
static void C_ccall f_14867(C_word c,C_word *av) C_noret;
C_noret_decl(f_14872)
static void f_14872(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14879)
static void C_ccall f_14879(C_word c,C_word *av) C_noret;
C_noret_decl(f_14882)
static void C_ccall f_14882(C_word c,C_word *av) C_noret;
C_noret_decl(f_14891)
static void C_ccall f_14891(C_word c,C_word *av) C_noret;
C_noret_decl(f_14936)
static void C_ccall f_14936(C_word c,C_word *av) C_noret;
C_noret_decl(f_14938)
static void f_14938(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14963)
static void C_ccall f_14963(C_word c,C_word *av) C_noret;
C_noret_decl(f_14974)
static void C_ccall f_14974(C_word c,C_word *av) C_noret;
C_noret_decl(f_14978)
static void C_ccall f_14978(C_word c,C_word *av) C_noret;
C_noret_decl(f_14980)
static void C_ccall f_14980(C_word c,C_word *av) C_noret;
C_noret_decl(f_14988)
static void C_ccall f_14988(C_word c,C_word *av) C_noret;
C_noret_decl(f_14990)
static void C_ccall f_14990(C_word c,C_word *av) C_noret;
C_noret_decl(f_15002)
static void f_15002(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15054)
static void C_ccall f_15054(C_word c,C_word *av) C_noret;
C_noret_decl(f_15060)
static void C_ccall f_15060(C_word c,C_word *av) C_noret;
C_noret_decl(f_15063)
static void C_ccall f_15063(C_word c,C_word *av) C_noret;
C_noret_decl(f_15066)
static void C_ccall f_15066(C_word c,C_word *av) C_noret;
C_noret_decl(f_15071)
static void f_15071(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15096)
static void C_ccall f_15096(C_word c,C_word *av) C_noret;
C_noret_decl(f_15111)
static void C_ccall f_15111(C_word c,C_word *av) 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_15117)
static void C_ccall f_15117(C_word c,C_word *av) C_noret;
C_noret_decl(f_15120)
static void C_ccall f_15120(C_word c,C_word *av) C_noret;
C_noret_decl(f_15123)
static void C_ccall f_15123(C_word c,C_word *av) C_noret;
C_noret_decl(f_15130)
static void C_ccall f_15130(C_word c,C_word *av) C_noret;
C_noret_decl(f_15138)
static void C_ccall f_15138(C_word c,C_word *av) C_noret;
C_noret_decl(f_15140)
static void C_ccall f_15140(C_word c,C_word *av) C_noret;
C_noret_decl(f_15147)
static void C_ccall f_15147(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_15154)
static void C_ccall f_15154(C_word c,C_word *av) C_noret;
C_noret_decl(f_15162)
static void C_ccall f_15162(C_word c,C_word *av) C_noret;
C_noret_decl(f_15166)
static void C_ccall f_15166(C_word c,C_word *av) C_noret;
C_noret_decl(f_15169)
static void C_ccall f_15169(C_word c,C_word *av) C_noret;
C_noret_decl(f_15175)
static void C_ccall f_15175(C_word c,C_word *av) C_noret;
C_noret_decl(f_15183)
static void f_15183(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15188)
static void f_15188(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15195)
static void f_15195(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15241)
static void f_15241(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15266)
static void C_ccall f_15266(C_word c,C_word *av) C_noret;
C_noret_decl(f_15281)
static void f_15281(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_15290)
static void f_15290(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15304)
static void C_ccall f_15304(C_word c,C_word *av) C_noret;
C_noret_decl(f_15313)
static void C_ccall f_15313(C_word c,C_word *av) C_noret;
C_noret_decl(f_15315)
static void f_15315(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15340)
static void C_ccall f_15340(C_word c,C_word *av) C_noret;
C_noret_decl(f_15349)
static void f_15349(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15353)
static void C_ccall f_15353(C_word c,C_word *av) C_noret;
C_noret_decl(f_15375)
static void C_ccall f_15375(C_word c,C_word *av) C_noret;
C_noret_decl(f_15377)
static void f_15377(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15402)
static void C_ccall f_15402(C_word c,C_word *av) C_noret;
C_noret_decl(f_15419)
static void f_15419(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15423)
static void f_15423(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15428)
static void C_ccall f_15428(C_word c,C_word *av) C_noret;
C_noret_decl(f_15433)
static void C_ccall f_15433(C_word c,C_word *av) C_noret;
C_noret_decl(f_15439)
static void C_ccall f_15439(C_word c,C_word *av) C_noret;
C_noret_decl(f_15442)
static void C_ccall f_15442(C_word c,C_word *av) C_noret;
C_noret_decl(f_15448)
static void C_ccall f_15448(C_word c,C_word *av) C_noret;
C_noret_decl(f_15454)
static void C_ccall f_15454(C_word c,C_word *av) C_noret;
C_noret_decl(f_15459)
static void f_15459(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15467)
static void C_ccall f_15467(C_word c,C_word *av) C_noret;
C_noret_decl(f_15469)
static void f_15469(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_15482)
static void C_ccall f_15482(C_word c,C_word *av) C_noret;
C_noret_decl(f_15491)
static void C_ccall f_15491(C_word c,C_word *av) C_noret;
C_noret_decl(f_15495)
static void C_ccall f_15495(C_word c,C_word *av) C_noret;
C_noret_decl(f_15507)
static void f_15507(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15536)
static void C_ccall f_15536(C_word c,C_word *av) C_noret;
C_noret_decl(f_15543)
static void C_ccall f_15543(C_word c,C_word *av) C_noret;
C_noret_decl(f_15547)
static void C_ccall f_15547(C_word c,C_word *av) C_noret;
C_noret_decl(f_15555)
static void C_ccall f_15555(C_word c,C_word *av) C_noret;
C_noret_decl(f_15566)
static void C_ccall f_15566(C_word c,C_word *av) C_noret;
C_noret_decl(f_15579)
static void C_ccall f_15579(C_word c,C_word *av) C_noret;
C_noret_decl(f_15590)
static void C_ccall f_15590(C_word c,C_word *av) C_noret;
C_noret_decl(f_15601)
static void C_ccall f_15601(C_word c,C_word *av) C_noret;
C_noret_decl(f_15608)
static void C_ccall f_15608(C_word c,C_word *av) C_noret;
C_noret_decl(f_15612)
static void C_ccall f_15612(C_word c,C_word *av) C_noret;
C_noret_decl(f_15623)
static void C_ccall f_15623(C_word c,C_word *av) C_noret;
C_noret_decl(f_15630)
static void C_ccall f_15630(C_word c,C_word *av) C_noret;
C_noret_decl(f_15634)
static void C_ccall f_15634(C_word c,C_word *av) C_noret;
C_noret_decl(f_15649)
static void C_ccall f_15649(C_word c,C_word *av) C_noret;
C_noret_decl(f_15653)
static void C_ccall f_15653(C_word c,C_word *av) C_noret;
C_noret_decl(f_15680)
static void C_ccall f_15680(C_word c,C_word *av) C_noret;
C_noret_decl(f_15695)
static void C_ccall f_15695(C_word c,C_word *av) C_noret;
C_noret_decl(f_15719)
static void C_ccall f_15719(C_word c,C_word *av) C_noret;
C_noret_decl(f_15729)
static void C_ccall f_15729(C_word c,C_word *av) C_noret;
C_noret_decl(f_15770)
static void C_ccall f_15770(C_word c,C_word *av) C_noret;
C_noret_decl(f_15785)
static void f_15785(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15789)
static void C_ccall f_15789(C_word c,C_word *av) C_noret;
C_noret_decl(f_15793)
static void f_15793(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15859)
static void C_ccall f_15859(C_word c,C_word *av) C_noret;
C_noret_decl(f_15861)
static void C_ccall f_15861(C_word c,C_word *av) C_noret;
C_noret_decl(f_15865)
static void C_ccall f_15865(C_word c,C_word *av) C_noret;
C_noret_decl(f_15871)
static void C_ccall f_15871(C_word c,C_word *av) C_noret;
C_noret_decl(f_15877)
static void f_15877(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15880)
static void C_ccall f_15880(C_word c,C_word *av) C_noret;
C_noret_decl(f_15892)
static void C_ccall f_15892(C_word c,C_word *av) C_noret;
C_noret_decl(f_15895)
static void C_ccall f_15895(C_word c,C_word *av) C_noret;
C_noret_decl(f_15926)
static void C_ccall f_15926(C_word c,C_word *av) C_noret;
C_noret_decl(f_15930)
static void C_ccall f_15930(C_word c,C_word *av) C_noret;
C_noret_decl(f_15933)
static void C_ccall f_15933(C_word c,C_word *av) C_noret;
C_noret_decl(f_15940)
static void C_ccall f_15940(C_word c,C_word *av) C_noret;
C_noret_decl(f_15949)
static void C_ccall f_15949(C_word c,C_word *av) C_noret;
C_noret_decl(f_15974)
static void f_15974(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16008)
static void C_ccall f_16008(C_word c,C_word *av) C_noret;
C_noret_decl(f_16022)
static void C_ccall f_16022(C_word c,C_word *av) C_noret;
C_noret_decl(f_16034)
static void C_ccall f_16034(C_word c,C_word *av) C_noret;
C_noret_decl(f_16036)
static void C_ccall f_16036(C_word c,C_word *av) 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_16050)
static void C_ccall f_16050(C_word c,C_word *av) C_noret;
C_noret_decl(f_16054)
static void C_ccall f_16054(C_word c,C_word *av) C_noret;
C_noret_decl(f_16065)
static void C_ccall f_16065(C_word c,C_word *av) C_noret;
C_noret_decl(f_16075)
static void C_ccall f_16075(C_word c,C_word *av) C_noret;
C_noret_decl(f_16083)
static void C_ccall f_16083(C_word c,C_word *av) C_noret;
C_noret_decl(f_16085)
static void C_ccall f_16085(C_word c,C_word *av) C_noret;
C_noret_decl(f_16094)
static void f_16094(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_16106)
static void C_ccall f_16106(C_word c,C_word *av) C_noret;
C_noret_decl(f_16110)
static void C_ccall f_16110(C_word c,C_word *av) C_noret;
C_noret_decl(f_16113)
static void C_ccall f_16113(C_word c,C_word *av) 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_16147)
static void C_ccall f_16147(C_word c,C_word *av) 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_16158)
static void f_16158(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16183)
static void C_ccall f_16183(C_word c,C_word *av) C_noret;
C_noret_decl(f_16194)
static void C_ccall f_16194(C_word c,C_word *av) C_noret;
C_noret_decl(f_16196)
static void C_ccall f_16196(C_word c,C_word *av) C_noret;
C_noret_decl(f_16204)
static void C_ccall f_16204(C_word c,C_word *av) C_noret;
C_noret_decl(f_16206)
static void C_ccall f_16206(C_word c,C_word *av) C_noret;
C_noret_decl(f_4916)
static void C_ccall f_4916(C_word c,C_word *av) C_noret;
C_noret_decl(f_4919)
static void C_ccall f_4919(C_word c,C_word *av) C_noret;
C_noret_decl(f_4922)
static void C_ccall f_4922(C_word c,C_word *av) C_noret;
C_noret_decl(f_6205)
static void C_ccall f_6205(C_word c,C_word *av) C_noret;
C_noret_decl(f_6209)
static void C_ccall f_6209(C_word c,C_word *av) C_noret;
C_noret_decl(f_6211)
static C_word f_6211(C_word t0,C_word t1);
C_noret_decl(f_6228)
static void f_6228(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6235)
static void C_ccall f_6235(C_word c,C_word *av) C_noret;
C_noret_decl(f_6241)
static void C_ccall f_6241(C_word c,C_word *av) C_noret;
C_noret_decl(f_6275)
static void C_ccall f_6275(C_word c,C_word *av) C_noret;
C_noret_decl(f_6281)
static void f_6281(C_word t0,C_word t1,C_word t2) 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_6352)
static void C_ccall f_6352(C_word c,C_word *av) C_noret;
C_noret_decl(f_6359)
static void C_ccall f_6359(C_word c,C_word *av) C_noret;
C_noret_decl(f_6377)
static void C_ccall f_6377(C_word c,C_word *av) C_noret;
C_noret_decl(f_6386)
static void f_6386(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6407)
static void C_ccall f_6407(C_word c,C_word *av) C_noret;
C_noret_decl(f_6417)
static void C_ccall f_6417(C_word c,C_word *av) C_noret;
C_noret_decl(f_6421)
static void C_ccall f_6421(C_word c,C_word *av) C_noret;
C_noret_decl(f_6446)
static void C_ccall f_6446(C_word c,C_word *av) C_noret;
C_noret_decl(f_6461)
static void C_ccall f_6461(C_word c,C_word *av) C_noret;
C_noret_decl(f_6463)
static void f_6463(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6511)
static void f_6511(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6560)
static void f_6560(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6585)
static void C_ccall f_6585(C_word c,C_word *av) C_noret;
C_noret_decl(f_6599)
static void C_ccall f_6599(C_word c,C_word *av) C_noret;
C_noret_decl(f_6608)
static void C_ccall f_6608(C_word c,C_word *av) C_noret;
C_noret_decl(f_6632)
static void C_ccall f_6632(C_word c,C_word *av) C_noret;
C_noret_decl(f_6636)
static void C_ccall f_6636(C_word c,C_word *av) C_noret;
C_noret_decl(f_6639)
static void C_ccall f_6639(C_word c,C_word *av) C_noret;
C_noret_decl(f_6646)
static C_word f_6646(C_word t0,C_word t1);
C_noret_decl(f_6664)
static void C_ccall f_6664(C_word c,C_word *av) C_noret;
C_noret_decl(f_6674)
static void C_ccall f_6674(C_word c,C_word *av) C_noret;
C_noret_decl(f_6678)
static void C_ccall f_6678(C_word c,C_word *av) C_noret;
C_noret_decl(f_6700)
static void C_ccall f_6700(C_word c,C_word *av) C_noret;
C_noret_decl(f_6711)
static void C_ccall f_6711(C_word c,C_word *av) C_noret;
C_noret_decl(f_6719)
static void C_ccall f_6719(C_word c,C_word *av) C_noret;
C_noret_decl(f_6723)
static void C_ccall f_6723(C_word c,C_word *av) C_noret;
C_noret_decl(f_6725)
static void f_6725(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6748)
static void C_ccall f_6748(C_word c,C_word *av) C_noret;
C_noret_decl(f_6756)
static void C_ccall f_6756(C_word c,C_word *av) C_noret;
C_noret_decl(f_6759)
static void f_6759(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_6769)
static void C_ccall f_6769(C_word c,C_word *av) C_noret;
C_noret_decl(f_6774)
static void C_ccall f_6774(C_word c,C_word *av) C_noret;
C_noret_decl(f_6780)
static void C_ccall f_6780(C_word c,C_word *av) C_noret;
C_noret_decl(f_6786)
static void C_ccall f_6786(C_word c,C_word *av) C_noret;
C_noret_decl(f_6808)
static void C_ccall f_6808(C_word c,C_word *av) C_noret;
C_noret_decl(f_6814)
static void f_6814(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6831)
static void f_6831(C_word t0,C_word t1) C_noret;
C_noret_decl(f_6842)
static void C_ccall f_6842(C_word c,C_word *av) C_noret;
C_noret_decl(f_6848)
static void C_ccall f_6848(C_word c,C_word *av) C_noret;
C_noret_decl(f_6881)
static void C_ccall f_6881(C_word c,C_word *av) C_noret;
C_noret_decl(f_6887)
static void C_ccall f_6887(C_word c,C_word *av) C_noret;
C_noret_decl(f_6891)
static void C_ccall f_6891(C_word c,C_word *av) C_noret;
C_noret_decl(f_6894)
static void C_ccall f_6894(C_word c,C_word *av) C_noret;
C_noret_decl(f_6910)
static void C_ccall f_6910(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_6921)
static void C_ccall f_6921(C_word c,C_word *av) C_noret;
C_noret_decl(f_6927)
static void C_ccall f_6927(C_word c,C_word *av) C_noret;
C_noret_decl(f_6932)
static void C_ccall f_6932(C_word c,C_word *av) C_noret;
C_noret_decl(f_6938)
static void C_ccall f_6938(C_word c,C_word *av) C_noret;
C_noret_decl(f_6946)
static void C_ccall f_6946(C_word c,C_word *av) C_noret;
C_noret_decl(f_6952)
static void C_ccall f_6952(C_word c,C_word *av) C_noret;
C_noret_decl(f_6958)
static void f_6958(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_6975)
static void C_ccall f_6975(C_word c,C_word *av) C_noret;
C_noret_decl(f_6989)
static void f_6989(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7013)
static void f_7013(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7019)
static void f_7019(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7031)
static void C_ccall f_7031(C_word c,C_word *av) C_noret;
C_noret_decl(f_7043)
static void C_ccall f_7043(C_word c,C_word *av) C_noret;
C_noret_decl(f_7068)
static void C_ccall f_7068(C_word c,C_word *av) C_noret;
C_noret_decl(f_7070)
static void f_7070(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7133)
static void C_ccall f_7133(C_word c,C_word *av) C_noret;
C_noret_decl(f_7139)
static void f_7139(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7177)
static void f_7177(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7181)
static void f_7181(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7185)
static void C_ccall f_7185(C_word c,C_word *av) C_noret;
C_noret_decl(f_7197)
static void C_ccall f_7197(C_word c,C_word *av) C_noret;
C_noret_decl(f_7236)
static void C_ccall f_7236(C_word c,C_word *av) C_noret;
C_noret_decl(f_7250)
static void C_ccall f_7250(C_word c,C_word *av) C_noret;
C_noret_decl(f_7260)
static void C_ccall f_7260(C_word c,C_word *av) C_noret;
C_noret_decl(f_7263)
static void C_ccall f_7263(C_word c,C_word *av) C_noret;
C_noret_decl(f_7267)
static void C_ccall f_7267(C_word c,C_word *av) C_noret;
C_noret_decl(f_7281)
static void f_7281(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7287)
static void C_ccall f_7287(C_word c,C_word *av) C_noret;
C_noret_decl(f_7293)
static void C_ccall f_7293(C_word c,C_word *av) C_noret;
C_noret_decl(f_7329)
static void C_ccall f_7329(C_word c,C_word *av) C_noret;
C_noret_decl(f_7333)
static void C_ccall f_7333(C_word c,C_word *av) C_noret;
C_noret_decl(f_7347)
static void C_ccall f_7347(C_word c,C_word *av) C_noret;
C_noret_decl(f_7353)
static void C_ccall f_7353(C_word c,C_word *av) C_noret;
C_noret_decl(f_7386)
static void C_ccall f_7386(C_word c,C_word *av) C_noret;
C_noret_decl(f_7392)
static C_word f_7392(C_word t0);
C_noret_decl(f_7433)
static void C_ccall f_7433(C_word c,C_word *av) C_noret;
C_noret_decl(f_7436)
static void f_7436(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7450)
static void C_ccall f_7450(C_word c,C_word *av) C_noret;
C_noret_decl(f_7453)
static void C_ccall f_7453(C_word c,C_word *av) C_noret;
C_noret_decl(f_7456)
static void C_ccall f_7456(C_word c,C_word *av) C_noret;
C_noret_decl(f_7459)
static void C_ccall f_7459(C_word c,C_word *av) C_noret;
C_noret_decl(f_7464)
static void f_7464(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_7478)
static void C_ccall f_7478(C_word c,C_word *av) C_noret;
C_noret_decl(f_7482)
static void f_7482(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7494)
static void f_7494(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7525)
static void C_ccall f_7525(C_word c,C_word *av) C_noret;
C_noret_decl(f_7550)
static void C_ccall f_7550(C_word c,C_word *av) C_noret;
C_noret_decl(f_7569)
static void C_ccall f_7569(C_word c,C_word *av) C_noret;
C_noret_decl(f_7573)
static void C_ccall f_7573(C_word c,C_word *av) C_noret;
C_noret_decl(f_7622)
static void f_7622(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7675)
static void C_ccall f_7675(C_word c,C_word *av) C_noret;
C_noret_decl(f_7679)
static void C_ccall f_7679(C_word c,C_word *av) C_noret;
C_noret_decl(f_7682)
static void C_ccall f_7682(C_word c,C_word *av) C_noret;
C_noret_decl(f_7685)
static void C_ccall f_7685(C_word c,C_word *av) C_noret;
C_noret_decl(f_7687)
static void f_7687(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7712)
static void C_ccall f_7712(C_word c,C_word *av) C_noret;
C_noret_decl(f_7726)
static void C_ccall f_7726(C_word c,C_word *av) C_noret;
C_noret_decl(f_7767)
static void f_7767(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7780)
static void f_7780(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7796)
static void C_ccall f_7796(C_word c,C_word *av) C_noret;
C_noret_decl(f_7817)
static void f_7817(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7856)
static void f_7856(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7875)
static void C_ccall f_7875(C_word c,C_word *av) C_noret;
C_noret_decl(f_7943)
static void f_7943(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8042)
static void C_ccall f_8042(C_word c,C_word *av) C_noret;
C_noret_decl(f_8048)
static void C_ccall f_8048(C_word c,C_word *av) C_noret;
C_noret_decl(f_8052)
static void C_ccall f_8052(C_word c,C_word *av) C_noret;
C_noret_decl(f_8055)
static void C_ccall f_8055(C_word c,C_word *av) C_noret;
C_noret_decl(f_8074)
static void C_ccall f_8074(C_word c,C_word *av) C_noret;
C_noret_decl(f_8078)
static void C_ccall f_8078(C_word c,C_word *av) C_noret;
C_noret_decl(f_8096)
static void C_ccall f_8096(C_word c,C_word *av) C_noret;
C_noret_decl(f_8118)
static void f_8118(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8184)
static void f_8184(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8209)
static void C_ccall f_8209(C_word c,C_word *av) C_noret;
C_noret_decl(f_8222)
static void C_ccall f_8222(C_word c,C_word *av) C_noret;
C_noret_decl(f_8226)
static void C_ccall f_8226(C_word c,C_word *av) C_noret;
C_noret_decl(f_8237)
static void f_8237(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8244)
static void f_8244(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8253)
static void f_8253(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8273)
static void C_ccall f_8273(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_8286)
static void f_8286(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8288)
static void C_ccall f_8288(C_word c,C_word *av) C_noret;
C_noret_decl(f_8294)
static void f_8294(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8301)
static void f_8301(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8310)
static void f_8310(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8346)
static void C_ccall f_8346(C_word c,C_word *av) C_noret;
C_noret_decl(f_8357)
static void C_ccall f_8357(C_word c,C_word *av) C_noret;
C_noret_decl(f_8361)
static void C_ccall f_8361(C_word c,C_word *av) C_noret;
C_noret_decl(f_8365)
static void C_ccall f_8365(C_word c,C_word *av) C_noret;
C_noret_decl(f_8369)
static void C_ccall f_8369(C_word c,C_word *av) C_noret;
C_noret_decl(f_8373)
static void C_ccall f_8373(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_8387)
static void f_8387(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8401)
static void C_ccall f_8401(C_word c,C_word *av) C_noret;
C_noret_decl(f_8406)
static void f_8406(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8417)
static void C_ccall f_8417(C_word c,C_word *av) C_noret;
C_noret_decl(f_8423)
static void C_ccall f_8423(C_word c,C_word *av) C_noret;
C_noret_decl(f_8437)
static void C_ccall f_8437(C_word c,C_word *av) C_noret;
C_noret_decl(f_8441)
static void C_ccall f_8441(C_word c,C_word *av) C_noret;
C_noret_decl(f_8449)
static void C_ccall f_8449(C_word c,C_word *av) C_noret;
C_noret_decl(f_8456)
static void C_ccall f_8456(C_word c,C_word *av) C_noret;
C_noret_decl(f_8468)
static void C_ccall f_8468(C_word c,C_word *av) C_noret;
C_noret_decl(f_8475)
static void C_ccall f_8475(C_word c,C_word *av) C_noret;
C_noret_decl(f_8479)
static void C_ccall f_8479(C_word c,C_word *av) C_noret;
C_noret_decl(f_8486)
static void C_ccall f_8486(C_word c,C_word *av) C_noret;
C_noret_decl(f_8517)
static void C_ccall f_8517(C_word c,C_word *av) C_noret;
C_noret_decl(f_8546)
static void C_ccall f_8546(C_word c,C_word *av) C_noret;
C_noret_decl(f_8578)
static void C_ccall f_8578(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_8590)
static void C_ccall f_8590(C_word c,C_word *av) C_noret;
C_noret_decl(f_8596)
static void C_ccall f_8596(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_8636)
static void C_ccall f_8636(C_word c,C_word *av) C_noret;
C_noret_decl(f_8640)
static void C_ccall f_8640(C_word c,C_word *av) C_noret;
C_noret_decl(f_8643)
static void C_ccall f_8643(C_word c,C_word *av) C_noret;
C_noret_decl(f_8649)
static void C_ccall f_8649(C_word c,C_word *av) C_noret;
C_noret_decl(f_8653)
static void C_ccall f_8653(C_word c,C_word *av) C_noret;
C_noret_decl(f_8675)
static void C_ccall f_8675(C_word c,C_word *av) C_noret;
C_noret_decl(f_8678)
static void C_ccall f_8678(C_word c,C_word *av) C_noret;
C_noret_decl(f_8681)
static void C_ccall f_8681(C_word c,C_word *av) C_noret;
C_noret_decl(f_8684)
static void C_ccall f_8684(C_word c,C_word *av) C_noret;
C_noret_decl(f_8686)
static void f_8686(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_8693)
static void f_8693(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8719)
static void C_ccall f_8719(C_word c,C_word *av) C_noret;
C_noret_decl(f_8748)
static void f_8748(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8782)
static void f_8782(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8800)
static void C_ccall f_8800(C_word c,C_word *av) C_noret;
C_noret_decl(f_8812)
static void C_ccall f_8812(C_word c,C_word *av) C_noret;
C_noret_decl(f_8820)
static void C_ccall f_8820(C_word c,C_word *av) C_noret;
C_noret_decl(f_8822)
static void f_8822(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_8844)
static void C_ccall f_8844(C_word c,C_word *av) C_noret;
C_noret_decl(f_8847)
static void C_ccall f_8847(C_word c,C_word *av) C_noret;
C_noret_decl(f_8849)
static void f_8849(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8896)
static void C_ccall f_8896(C_word c,C_word *av) C_noret;
C_noret_decl(f_8900)
static void C_ccall f_8900(C_word c,C_word *av) C_noret;
C_noret_decl(f_8968)
static void C_ccall f_8968(C_word c,C_word *av) C_noret;
C_noret_decl(f_8974)
static void f_8974(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_8997)
static void f_8997(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9012)
static void C_ccall f_9012(C_word c,C_word *av) C_noret;
C_noret_decl(f_9015)
static void C_ccall f_9015(C_word c,C_word *av) C_noret;
C_noret_decl(f_9020)
static void f_9020(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9033)
static void C_ccall f_9033(C_word c,C_word *av) C_noret;
C_noret_decl(f_9036)
static void C_ccall f_9036(C_word c,C_word *av) C_noret;
C_noret_decl(f_9086)
static void C_ccall f_9086(C_word c,C_word *av) C_noret;
C_noret_decl(f_9093)
static void C_ccall f_9093(C_word c,C_word *av) C_noret;
C_noret_decl(f_9100)
static void C_ccall f_9100(C_word c,C_word *av) C_noret;
C_noret_decl(f_9149)
static void C_ccall f_9149(C_word c,C_word *av) C_noret;
C_noret_decl(f_9152)
static void C_ccall f_9152(C_word c,C_word *av) C_noret;
C_noret_decl(f_9161)
static void C_ccall f_9161(C_word c,C_word *av) C_noret;
C_noret_decl(f_9164)
static void C_ccall f_9164(C_word c,C_word *av) C_noret;
C_noret_decl(f_9193)
static void C_ccall f_9193(C_word c,C_word *av) C_noret;
C_noret_decl(f_9200)
static void C_ccall f_9200(C_word c,C_word *av) C_noret;
C_noret_decl(f_9216)
static void C_ccall f_9216(C_word c,C_word *av) C_noret;
C_noret_decl(f_9286)
static void C_ccall f_9286(C_word c,C_word *av) C_noret;
C_noret_decl(f_9289)
static void f_9289(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9303)
static C_word f_9303(C_word t0,C_word t1);
C_noret_decl(f_9343)
static void C_ccall f_9343(C_word c,C_word *av) C_noret;
C_noret_decl(f_9366)
static void C_ccall f_9366(C_word c,C_word *av) C_noret;
C_noret_decl(f_9368)
static void C_ccall f_9368(C_word c,C_word *av) C_noret;
C_noret_decl(f_9371)
static void f_9371(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9415)
static void C_ccall f_9415(C_word c,C_word *av) C_noret;
C_noret_decl(f_9423)
static void C_ccall f_9423(C_word c,C_word *av) C_noret;
C_noret_decl(f_9431)
static void C_ccall f_9431(C_word c,C_word *av) C_noret;
C_noret_decl(f_9433)
static void C_ccall f_9433(C_word c,C_word *av) C_noret;
C_noret_decl(f_9439)
static void C_ccall f_9439(C_word c,C_word *av) C_noret;
C_noret_decl(f_9450)
static void C_ccall f_9450(C_word c,C_word *av) C_noret;
C_noret_decl(f_9455)
static void f_9455(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9475)
static void C_ccall f_9475(C_word c,C_word *av) C_noret;
C_noret_decl(f_9479)
static void C_ccall f_9479(C_word c,C_word *av) C_noret;
C_noret_decl(f_9494)
static void C_ccall f_9494(C_word c,C_word *av) C_noret;
C_noret_decl(f_9506)
static void C_ccall f_9506(C_word c,C_word *av) C_noret;
C_noret_decl(f_9508)
static void f_9508(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9515)
static void C_ccall f_9515(C_word c,C_word *av) C_noret;
C_noret_decl(f_9522)
static void C_ccall f_9522(C_word c,C_word *av) C_noret;
C_noret_decl(f_9524)
static void f_9524(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9534)
static void C_ccall f_9534(C_word c,C_word *av) C_noret;
C_noret_decl(f_9537)
static void C_ccall f_9537(C_word c,C_word *av) C_noret;
C_noret_decl(f_9540)
static void C_ccall f_9540(C_word c,C_word *av) C_noret;
C_noret_decl(f_9543)
static void C_ccall f_9543(C_word c,C_word *av) C_noret;
C_noret_decl(f_9546)
static void C_ccall f_9546(C_word c,C_word *av) C_noret;
C_noret_decl(f_9553)
static void C_ccall f_9553(C_word c,C_word *av) C_noret;
C_noret_decl(f_9560)
static void C_ccall f_9560(C_word c,C_word *av) C_noret;
C_noret_decl(f_9563)
static void C_ccall f_9563(C_word c,C_word *av) C_noret;
C_noret_decl(f_9572)
static void C_ccall f_9572(C_word c,C_word *av) C_noret;
C_noret_decl(f_9575)
static void C_ccall f_9575(C_word c,C_word *av) C_noret;
C_noret_decl(f_9578)
static void C_ccall f_9578(C_word c,C_word *av) C_noret;
C_noret_decl(f_9581)
static void C_ccall f_9581(C_word c,C_word *av) C_noret;
C_noret_decl(f_9584)
static void C_ccall f_9584(C_word c,C_word *av) C_noret;
C_noret_decl(f_9587)
static void C_ccall f_9587(C_word c,C_word *av) C_noret;
C_noret_decl(f_9600)
static void C_ccall f_9600(C_word c,C_word *av) C_noret;
C_noret_decl(f_9604)
static void C_ccall f_9604(C_word c,C_word *av) C_noret;
C_noret_decl(f_9615)
static void C_ccall f_9615(C_word c,C_word *av) C_noret;
C_noret_decl(f_9619)
static void C_ccall f_9619(C_word c,C_word *av) C_noret;
C_noret_decl(f_9621)
static void f_9621(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9635)
static void C_ccall f_9635(C_word c,C_word *av) C_noret;
C_noret_decl(f_9639)
static void C_ccall f_9639(C_word c,C_word *av) C_noret;
C_noret_decl(f_9666)
static void f_9666(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9672)
static void f_9672(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9692)
static void f_9692(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9716)
static void C_ccall f_9716(C_word c,C_word *av) C_noret;
C_noret_decl(f_9720)
static void C_ccall f_9720(C_word c,C_word *av) C_noret;
C_noret_decl(f_9726)
static void C_ccall f_9726(C_word c,C_word *av) C_noret;
C_noret_decl(f_9732)
static void C_ccall f_9732(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_9767)
static void C_ccall f_9767(C_word c,C_word *av) C_noret;
C_noret_decl(f_9783)
static void f_9783(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9794)
static void C_ccall f_9794(C_word c,C_word *av) C_noret;
C_noret_decl(f_9799)
static void C_ccall f_9799(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_9812)
static void C_ccall f_9812(C_word c,C_word *av) C_noret;
C_noret_decl(f_9838)
static void C_ccall f_9838(C_word c,C_word *av) C_noret;
C_noret_decl(f_9858)
static void C_ccall f_9858(C_word c,C_word *av) C_noret;
C_noret_decl(f_9862)
static void f_9862(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9866)
static void C_ccall f_9866(C_word c,C_word *av) C_noret;
C_noret_decl(f_9877)
static void C_ccall f_9877(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_9887)
static void C_ccall f_9887(C_word c,C_word *av) C_noret;
C_noret_decl(f_9891)
static void f_9891(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9918)
static void C_ccall f_9918(C_word c,C_word *av) C_noret;
C_noret_decl(f_9924)
static void C_ccall f_9924(C_word c,C_word *av) C_noret;
C_noret_decl(f_9931)
static void C_ccall f_9931(C_word c,C_word *av) C_noret;
C_noret_decl(f_9934)
static void C_ccall f_9934(C_word c,C_word *av) C_noret;
C_noret_decl(f_9937)
static void C_ccall f_9937(C_word c,C_word *av) C_noret;
C_noret_decl(f_9950)
static void C_ccall f_9950(C_word c,C_word *av) C_noret;
C_noret_decl(f_9952)
static void f_9952(C_word t0,C_word t1,C_word t2) 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 f_9989(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9995)
static void f_9995(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(C_expand_toplevel)
C_extern void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret;

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

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

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

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

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

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

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

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

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

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

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[1];
C_word t1=av[0];
f_10775(t0,t1);}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

/* k10003 in loop in mapupdate in ##sys#update-line-number-database! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10005(C_word c,C_word *av){
C_word tmp;
C_word 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_10005,c,av);}
/* expand.scm:817: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_9995(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* walk in ##sys#update-line-number-database! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_10014(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_10014,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_10031,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t6,tmp=(C_word)a,a+=7,tmp);
/* expand.scm:822: chicken.internal#hash-table-ref */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[153]);
C_word av2[4];
av2[0]=*((C_word*)lf[153]+1);
av2[1]=t7;
av2[2]=C_fast_retrieve(lf[121]);
av2[3]=t6;
tp(4,av2);}}
else{
/* expand.scm:826: mapupdate */
t6=((C_word*)((C_word*)t0)[2])[1];
f_9989(t6,t1,t2);}}}

/* k10029 in walk in ##sys#update-line-number-database! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10031(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10031,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_10037,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)[2],t2))){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_10037(2,av2);}}
else{
t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[5]);
t5=C_a_i_cons(&a,2,t4,t2);
/* expand.scm:824: chicken.internal#hash-table-set! */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[149]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[149]+1);
av2[1]=t3;
av2[2]=C_fast_retrieve(lf[121]);
av2[3]=((C_word*)t0)[6];
av2[4]=t5;
tp(5,av2);}}}

/* k10035 in k10029 in walk in ##sys#update-line-number-database! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10037(C_word c,C_word *av){
C_word tmp;
C_word t0=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,2)))){
C_save_and_reclaim((void *)f_10037,c,av);}
if(C_truep(C_i_listp(((C_word*)t0)[2]))){
/* expand.scm:825: mapupdate */
t2=((C_word*)((C_word*)t0)[3])[1];
f_9989(t2,((C_word*)t0)[4],C_i_cdr(((C_word*)t0)[2]));}
else{
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);}}}

/* ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10076(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 *a;
if(c<5) C_bad_min_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +8,c,2)))){
C_save_and_reclaim((void*)f_10076,c,av);}
a=C_alloc((c-5)*C_SIZEOF_PAIR+8);
t5=C_build_rest(&a,c,5,av);
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
t6=C_rest_nullp(c,5);
t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,5,t0));
t8=C_rest_nullp(c,5);
t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t5));
t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10086,a[2]=t9,a[3]=t3,a[4]=t2,a[5]=t1,a[6]=t4,a[7]=t7,tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_i_nullp(t9))){
/* expand.scm:833: ##sys#current-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[3]);
C_word *av2=av;
av2[0]=*((C_word*)lf[3]+1);
av2[1]=t10;
tp(2,av2);}}
else{
t11=t10;{
C_word *av2=av;
av2[0]=t11;
av2[1]=C_i_car(t9);
f_10086(2,av2);}}}

/* k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10086(C_word c,C_word *av){
C_word tmp;
C_word t0=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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(39,c,5)))){
C_save_and_reclaim((void *)f_10086,c,av);}
a=C_alloc(39);
t2=C_i_nullp(((C_word*)t0)[2]);
t3=(C_truep(t2)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2]));
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_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10091,a[2]=t7,a[3]=((C_word)li101),tmp=(C_word)a,a+=4,tmp));
t15=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10103,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li102),tmp=(C_word)a,a+=5,tmp));
t16=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10130,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp));
t17=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10175,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp));
t18=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10181,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp));
t19=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10208,a[2]=t7,a[3]=t5,a[4]=t11,a[5]=t13,a[6]=t9,a[7]=t1,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp);
if(C_truep(((C_word*)t0)[7])){
t20=C_mutate((C_word*)lf[122]+1 /* (set! ##sys#syntax-error-culprit ...) */,((C_word*)t0)[7]);
t21=t19;
f_10208(t21,t20);}
else{
t20=t19;
f_10208(t20,C_SCHEME_UNDEFINED);}}

/* test in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_10091(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_10091,5,t0,t1,t2,t3,t4);}
a=C_alloc(5);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10098,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:836: pred */
t6=t3;{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}

/* k10096 in test in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10098(C_word c,C_word *av){
C_word tmp;
C_word t0=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,2)))){
C_save_and_reclaim((void *)f_10098,c,av);}
if(C_truep(t1)){
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* expand.scm:836: err */
t2=((C_word*)((C_word*)t0)[3])[1];
f_10103(t2,((C_word*)t0)[2],((C_word*)t0)[4]);}}

/* err in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_10103(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(6,0,2)))){
C_save_and_reclaim_args((void *)trf_10103,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_fast_retrieve(lf[122]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10107,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);
/* expand.scm:840: get-line-number */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[158]);
C_word av2[3];
av2[0]=*((C_word*)lf[158]+1);
av2[1]=t4;
av2[2]=C_fast_retrieve(lf[122]);
tp(3,av2);}}

/* k10105 in err in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10107(C_word c,C_word *av){
C_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_10107,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10114,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|4,a[1]=(C_word)f_10121,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:843: scheme#symbol->string */
t4=*((C_word*)lf[135]+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|3,a[1]=(C_word)f_10128,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:844: scheme#symbol->string */
t4=*((C_word*)lf[135]+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);}}}

/* k10112 in k10105 in err in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10114(C_word c,C_word *av){
C_word tmp;
C_word 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_10114,c,av);}
/* expand.scm:841: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k10119 in k10105 in err in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10121(C_word c,C_word *av){
C_word tmp;
C_word 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_10121,c,av);}
/* expand.scm:843: scheme#string-append */
t2=*((C_word*)lf[37]+1);{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[166];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[167];
av2[5]=t1;
av2[6]=lf[168];
av2[7]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}}

/* k10126 in k10105 in err in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10128(C_word c,C_word *av){
C_word tmp;
C_word 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_10128,c,av);}
/* expand.scm:844: scheme#string-append */
t2=*((C_word*)lf[37]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[169];
av2[3]=t1;
av2[4]=lf[170];
av2[5]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* lambda-list? in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10130(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_10130,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10134,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:848: ##sys#extended-lambda-list? */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[66]);
C_word *av2=av;
av2[0]=*((C_word*)lf[66]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k10132 in lambda-list? in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10134(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10134,c,av);}
a=C_alloc(3);
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_10142,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
  f_10142(((C_word*)t0)[3])
);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* loop in k10132 in lambda-list? in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static C_word f_10142(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_stack_overflow_check;
loop:{}
t2=C_i_nullp(t1);
if(C_truep(t2)){
return(t2);}
else{
t3=C_i_symbolp(t1);
if(C_truep(t3)){
return(t3);}
else{
if(C_truep(C_i_pairp(t1))){
t4=C_u_i_car(t1);
if(C_truep(C_i_symbolp(t4))){
t6=C_u_i_cdr(t1);
t1=t6;
goto loop;}
else{
return(C_SCHEME_FALSE);}}
else{
return(C_SCHEME_FALSE);}}}}

/* variable? in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10175(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10175,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_symbolp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* proper-list? in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10181(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10181,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10187,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(
  f_10187(t2)
);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* loop in proper-list? in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static C_word f_10187(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;
loop:{}
t2=C_eqp(t1,C_SCHEME_END_OF_LIST);
if(C_truep(t2)){
return(t2);}
else{
if(C_truep(C_i_pairp(t1))){
t4=C_u_i_cdr(t1);
t1=t4;
goto loop;}
else{
return(C_SCHEME_FALSE);}}}

/* k10206 in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_10208(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,4)))){
C_save_and_reclaim_args((void *)trf_10208,2,t0,t1);}
a=C_alloc(12);
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|9,a[1]=(C_word)f_10213,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)li110),tmp=(C_word)a,a+=10,tmp));
t5=((C_word*)t3)[1];
f_10213(t5,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}

/* walk in k10206 in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_10213(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 t16;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_10213,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_vectorp(t3))){
t4=C_i_vector_ref(t3,C_fix(0));
t5=C_block_size(t3);
t6=C_fixnum_greaterp(t5,C_fix(1));
t7=(C_truep(t6)?C_i_vector_ref(t3,C_fix(1)):C_fix(0));
t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10232,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=t1,a[7]=t2,tmp=(C_word)a,a+=8,tmp);
t9=C_eqp(t5,C_fix(1));
if(C_truep(t9)){
t10=t8;
f_10232(t10,C_fix(1));}
else{
t10=C_fixnum_greaterp(t5,C_fix(2));
t11=t8;
f_10232(t11,(C_truep(t10)?C_i_vector_ref(t3,C_fix(2)):C_fix(99999)));}}
else{
if(C_truep(C_immp(t3))){
t4=C_eqp(t3,t2);
if(C_truep(C_i_not(t4))){
/* expand.scm:889: err */
t5=((C_word*)((C_word*)t0)[2])[1];
f_10103(t5,t1,lf[174]);}
else{
t5=C_SCHEME_UNDEFINED;
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
if(C_truep(C_i_symbolp(t3))){
t4=C_eqp(t3,lf[175]);
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(t3,lf[176]);
if(C_truep(t5)){
/* expand.scm:893: test */
t6=((C_word*)((C_word*)t0)[4])[1];
f_10091(t6,t1,t2,*((C_word*)lf[177]+1),lf[178]);}
else{
t6=C_eqp(t3,lf[179]);
if(C_truep(t6)){
/* expand.scm:894: test */
t7=((C_word*)((C_word*)t0)[4])[1];
f_10091(t7,t1,t2,((C_word*)((C_word*)t0)[5])[1],lf[180]);}
else{
t7=C_eqp(t3,lf[181]);
if(C_truep(t7)){
/* expand.scm:895: test */
t8=((C_word*)((C_word*)t0)[4])[1];
f_10091(t8,t1,t2,*((C_word*)lf[182]+1),lf[183]);}
else{
t8=C_eqp(t3,lf[184]);
if(C_truep(t8)){
/* expand.scm:896: test */
t9=((C_word*)((C_word*)t0)[4])[1];
f_10091(t9,t1,t2,((C_word*)((C_word*)t0)[6])[1],lf[185]);}
else{
t9=C_eqp(t3,lf[186]);
if(C_truep(t9)){
/* expand.scm:897: test */
t10=((C_word*)((C_word*)t0)[4])[1];
f_10091(t10,t1,t2,*((C_word*)lf[187]+1),lf[188]);}
else{
t10=C_eqp(t3,lf[189]);
if(C_truep(t10)){
/* expand.scm:898: test */
t11=((C_word*)((C_word*)t0)[4])[1];
f_10091(t11,t1,t2,*((C_word*)lf[190]+1),lf[191]);}
else{
t11=C_eqp(t3,lf[192]);
if(C_truep(t11)){
/* expand.scm:899: test */
t12=((C_word*)((C_word*)t0)[4])[1];
f_10091(t12,t1,t2,((C_word*)((C_word*)t0)[7])[1],lf[193]);}
else{
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10410,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=((C_word)li109),tmp=(C_word)a,a+=5,tmp);
/* expand.scm:901: test */
t13=((C_word*)((C_word*)t0)[4])[1];
f_10091(t13,t1,t2,t12,lf[194]);}}}}}}}}}
else{
t4=C_i_pairp(t3);
if(C_truep(C_i_not(t4))){
/* expand.scm:908: err */
t5=((C_word*)((C_word*)t0)[2])[1];
f_10103(t5,t1,lf[195]);}
else{
t5=C_i_pairp(t2);
if(C_truep(C_i_not(t5))){
/* expand.scm:909: err */
t6=((C_word*)((C_word*)t0)[2])[1];
f_10103(t6,t1,lf[196]);}
else{
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10467,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:911: walk */
t14=t6;
t15=C_i_car(t2);
t16=C_i_car(t3);
t1=t14;
t2=t15;
t3=t16;
goto loop;}}}}}}

/* k10230 in walk in k10206 in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_10232(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,4)))){
C_save_and_reclaim_args((void *)trf_10232,2,t0,t1);}
a=C_alloc(11);
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|8,a[1]=(C_word)f_10237,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word)li108),tmp=(C_word)a,a+=9,tmp));
t5=((C_word*)t3)[1];
f_10237(t5,((C_word*)t0)[6],((C_word*)t0)[7],C_fix(0));}

/* doloop2147 in k10230 in walk in k10206 in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_10237(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_10237,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_eqp(t2,C_SCHEME_END_OF_LIST);
if(C_truep(t4)){
if(C_truep(C_fixnum_lessp(t3,((C_word*)t0)[2]))){
/* expand.scm:882: err */
t5=((C_word*)((C_word*)t0)[3])[1];
f_10103(t5,t1,lf[171]);}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10256,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[5]))){
/* expand.scm:884: err */
t6=((C_word*)((C_word*)t0)[3])[1];
f_10103(t6,t5,lf[172]);}
else{
t6=C_i_pairp(t2);
if(C_truep(C_i_not(t6))){
/* expand.scm:886: err */
t7=((C_word*)((C_word*)t0)[3])[1];
f_10103(t7,t5,lf[173]);}
else{
/* expand.scm:887: walk */
t7=((C_word*)((C_word*)t0)[6])[1];
f_10213(t7,t5,C_i_car(t2),((C_word*)t0)[7]);}}}}

/* k10254 in doloop2147 in k10230 in walk in k10206 in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10256(C_word c,C_word *av){
C_word tmp;
C_word 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_10256,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_10237(t2,((C_word*)t0)[3],C_i_cdr(((C_word*)t0)[4]),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}

/* a10409 in walk in k10206 in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10410(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10410,c,av);}
if(C_truep(C_i_symbolp(t2))){
t3=(
/* expand.scm:904: lookup */
  f_6211(t2,((C_word*)t0)[2])
);
t4=C_i_symbolp(t3);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=(C_truep(t4)?C_eqp(t3,((C_word*)t0)[3]):C_eqp(t2,((C_word*)t0)[3]));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t3=C_i_symbolp(C_SCHEME_FALSE);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_eqp(C_SCHEME_FALSE,((C_word*)t0)[3]):C_eqp(t2,((C_word*)t0)[3]));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k10465 in walk in k10206 in k10084 in ##sys#check-syntax in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10467(C_word c,C_word *av){
C_word tmp;
C_word 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_10467,c,av);}
/* expand.scm:912: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_10213(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}

/* chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_10520(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,5)))){
C_save_and_reclaim_args((void *)trf_10520,3,t1,t2,t3);}
a=C_alloc(8);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10526,a[2]=t3,a[3]=t2,a[4]=((C_word)li120),tmp=(C_word)a,a+=5,tmp);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_a_i_record2(&a,2,lf[26],t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10526(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 *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_10526,c,av);}
a=C_alloc(15);
t5=C_SCHEME_END_OF_LIST;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10529,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp);
t8=C_i_listp(t3);
t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10576,a[2]=t7,a[3]=t6,a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=t1,a[9]=t2,tmp=(C_word)a,a+=10,tmp);
if(C_truep(t8)){
t10=t9;{
C_word *av2=av;
av2[0]=t10;
av2[1]=t8;
f_10576(2,av2);}}
else{
/* expand.scm:931: ##sys#error */
t10=*((C_word*)lf[27]+1);{
C_word *av2=av;
av2[0]=t10;
av2[1]=t9;
av2[2]=lf[200];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}

/* inherit-pair-line-numbers in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_10529(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(11,0,2)))){
C_save_and_reclaim_args((void *)trf_10529,3,t1,t2,t3);}
a=C_alloc(11);
t4=C_i_car(t3);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10536,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
if(C_truep(t4)){
if(C_truep(C_i_symbolp(t4))){
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10545,a[2]=t3,a[3]=t1,a[4]=C_SCHEME_UNDEFINED,a[5]=t5,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
/* expand.scm:925: get-line-number */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[158]);
C_word av2[3];
av2[0]=*((C_word*)lf[158]+1);
av2[1]=t6;
av2[2]=t2;
tp(3,av2);}}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k10534 in inherit-pair-line-numbers in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10536,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);}}

/* k10543 in inherit-pair-line-numbers in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10545(C_word c,C_word *av){
C_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_10545,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
if(C_truep(((C_word*)t0)[4])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10551,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:926: chicken.internal#hash-table-ref */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[153]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[153]+1);
av2[1]=t3;
av2[2]=C_fast_retrieve(lf[121]);
av2[3]=((C_word*)t0)[6];
tp(4,av2);}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10549 in k10543 in inherit-pair-line-numbers in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10551(C_word c,C_word *av){
C_word tmp;
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_10551,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
if(C_truep(t3)){
if(C_truep(C_i_assq(((C_word*)t2)[2],t3))){
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_a_i_cons(&a,2,C_a_i_weak_cons(&a,2,((C_word*)t2)[2],((C_word*)t2)[4]),t3);
/* expand.scm:928: chicken.internal#hash-table-set! */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[149]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[149]+1);
av2[1]=((C_word*)t2)[5];
av2[2]=C_fast_retrieve(lf[121]);
av2[3]=((C_word*)t2)[6];
av2[4]=t4;
tp(5,av2);}}}
else{
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10576(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(42,c,4)))){
C_save_and_reclaim((void *)f_10576,c,av);}
a=C_alloc(42);
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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10578,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)li113),tmp=(C_word)a,a+=7,tmp));
t11=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10664,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=((C_word)li117),tmp=(C_word)a,a+=5,tmp));
t12=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10883,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp));
t13=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10908,a[2]=((C_word*)t0)[2],a[3]=t9,a[4]=((C_word*)t0)[4],a[5]=t7,a[6]=((C_word*)t0)[3],a[7]=t3,a[8]=((C_word)li119),tmp=(C_word)a,a+=9,tmp));
if(C_truep(((C_word*)t0)[6])){
/* expand.scm:1022: handler */
t14=((C_word*)t0)[7];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t14;
av2[1]=((C_word*)t0)[8];
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t3)[1];
av2[4]=((C_word*)t5)[1];
((C_proc)C_fast_retrieve_proc(t14))(5,av2);}}
else{
t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11040,a[2]=t9,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11044,a[2]=((C_word*)t0)[7],a[3]=t14,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1028: rename */
t16=((C_word*)t3)[1];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t16;
av2[1]=t15;
av2[2]=((C_word*)t0)[9];
f_10578(3,av2);}}}

/* rename in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10578(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 *a;
loop:
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
av[0]=t0;
av[1]=t1;
av[2]=t2;
C_save_and_reclaim((void *)f_10578,c,av);}
a=C_alloc(7);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10596,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* expand.scm:934: rename */
t7=t3;
t8=C_u_i_car(t2);
t1=t7;
t2=t8;
c=3;
goto loop;}
else{
if(C_truep(C_i_vectorp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10617,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10621,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:936: scheme#vector->list */
t5=*((C_word*)lf[199]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t3=C_i_symbolp(t2);
if(C_truep(C_i_not(t3))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_assq(t2,((C_word*)((C_word*)t0)[4])[1]);
if(C_truep(t4)){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_cdr(t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10647,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:943: macro-alias */
f_6228(t5,t2,((C_word*)t0)[5]);}}}}}

/* k10594 in rename in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10596(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10596,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10600,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);
/* expand.scm:934: rename */
t3=((C_word*)((C_word*)t0)[5])[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_cdr(((C_word*)t0)[4]);
f_10578(3,av2);}}

/* k10598 in k10594 in rename in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10600(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10600,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
/* expand.scm:934: inherit-pair-line-numbers */
f_10529(((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* k10615 in rename in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10617(C_word c,C_word *av){
C_word tmp;
C_word 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_10617,c,av);}
/* expand.scm:936: scheme#list->vector */
t2=*((C_word*)lf[198]+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);}}

/* k10619 in rename in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10621(C_word c,C_word *av){
C_word tmp;
C_word 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_10621,c,av);}
/* expand.scm:936: rename */
t2=((C_word*)((C_word*)t0)[2])[1];{
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;
f_10578(3,av2);}}

/* k10645 in rename in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10647(C_word c,C_word *av){
C_word tmp;
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_10647,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,t2,((C_word*)((C_word*)t0)[3])[1]);
t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
t5=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* compare in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10664(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 *a;
loop:
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
av[0]=t0;
av[1]=t1;
av[2]=t2;
av[3]=t3;
C_save_and_reclaim((void *)f_10664,c,av);}
a=C_alloc(10);
if(C_truep(C_i_pairp(t2))){
if(C_truep(C_i_pairp(t3))){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10686,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:951: compare */
t11=t4;
t12=C_u_i_car(t2);
t13=C_u_i_car(t3);
t1=t11;
t2=t12;
t3=t13;
c=4;
goto loop;}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
if(C_truep(C_i_vectorp(t2))){
if(C_truep(C_i_vectorp(t3))){
t4=C_block_size(t2);
t5=C_block_size(t3);
t6=C_eqp(t4,t5);
if(C_truep(t6)){
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|7,a[1]=(C_word)f_10723,a[2]=t4,a[3]=t8,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,a[7]=((C_word)li114),tmp=(C_word)a,a+=8,tmp));
t10=((C_word*)t8)[1];
f_10723(t10,t1,C_fix(0),C_SCHEME_TRUE);}
else{
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t4=C_i_symbolp(t2);
t5=(C_truep(t4)?C_i_symbolp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=C_i_getprop(t2,lf[6],C_SCHEME_FALSE);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10775,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t6)){
t8=t7;
f_10775(t8,t6);}
else{
t8=(
/* expand.scm:982: lookup */
  f_6211(t2,((C_word*)t0)[3])
);
t9=t7;
f_10775(t9,(C_truep(t8)?t8:t2));}}
else{
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_eqp(t2,t3);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}

/* k10684 in compare in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10686(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10686,c,av);}
if(C_truep(t1)){
/* expand.scm:952: compare */
t2=((C_word*)((C_word*)t0)[2])[1];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_u_i_cdr(((C_word*)t0)[4]);
av2[3]=C_u_i_cdr(((C_word*)t0)[5]);
f_10664(4,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* doloop2232 in compare in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_10723(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(5,0,3)))){
C_save_and_reclaim_args((void *)trf_10723,4,t0,t1,t2,t3);}
a=C_alloc(5);
t4=C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]);
t5=(C_truep(t4)?t4:C_i_not(t3));
if(C_truep(t5)){
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_fixnum_plus(t2,C_fix(1));
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10744,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:958: compare */
t8=((C_word*)((C_word*)t0)[4])[1];{
C_word av2[4];
av2[0]=t8;
av2[1]=t7;
av2[2]=C_i_vector_ref(((C_word*)t0)[5],t2);
av2[3]=C_i_vector_ref(((C_word*)t0)[6],t2);
f_10664(4,av2);}}}

/* k10742 in doloop2232 in compare in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10744,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_10723(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k10773 in compare in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_10775(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(4,0,2)))){
C_save_and_reclaim_args((void *)trf_10775,2,t0,t1);}
a=C_alloc(4);
t2=C_i_getprop(((C_word*)t0)[2],lf[6],C_SCHEME_FALSE);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10783,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t2)){
t4=t3;
f_10783(t4,t2);}
else{
t4=(
/* expand.scm:982: lookup */
  f_6211(((C_word*)t0)[2],((C_word*)t0)[4])
);
t5=t3;
f_10783(t5,(C_truep(t4)?t4:((C_word*)t0)[2]));}}

/* k10781 in k10773 in compare in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_10783(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_10783,2,t0,t1);}
a=C_alloc(5);
if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){
if(C_truep(C_i_symbolp(t1))){
t2=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_eqp(((C_word*)t0)[2],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10820,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:970: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word av2[2];
av2[0]=*((C_word*)lf[17]+1);
av2[1]=t2;
tp(2,av2);}}}
else{
if(C_truep(C_i_symbolp(t1))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10848,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:974: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word av2[2];
av2[0]=*((C_word*)lf[17]+1);
av2[1]=t2;
tp(2,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_eqp(((C_word*)t0)[2],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}

/* g2273 in k10818 in k10781 in k10773 in compare in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static C_word f_10805(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_eqp(C_i_cdr(t1),((C_word*)t0)[2]));}

/* k10818 in k10781 in k10773 in compare in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10820(C_word c,C_word *av){
C_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_10820,c,av);}
a=C_alloc(4);
t2=C_i_assq(((C_word*)t0)[2],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10805,a[2]=((C_word*)t0)[3],a[3]=((C_word)li115),tmp=(C_word)a,a+=4,tmp);
/* expand.scm:969: g2273 */
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(
/* expand.scm:969: g2273 */
  f_10805(t3,t2)
);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* g2282 in k10846 in k10781 in k10773 in compare in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static C_word f_10833(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_eqp(((C_word*)t0)[2],C_i_cdr(t1)));}

/* k10846 in k10781 in k10773 in compare in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10848(C_word c,C_word *av){
C_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_10848,c,av);}
a=C_alloc(4);
t2=C_i_assq(((C_word*)t0)[2],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10833,a[2]=((C_word*)t0)[3],a[3]=((C_word)li116),tmp=(C_word)a,a+=4,tmp);
/* expand.scm:974: g2282 */
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(
/* expand.scm:974: g2282 */
  f_10833(t3,t2)
);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* assq-reverse in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static C_word f_10883(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_cdar(t2);
t4=C_eqp(t3,t1);
if(C_truep(t4)){
return(C_u_i_car(t2));}
else{
t6=t1;
t7=C_u_i_cdr(t2);
t1=t6;
t2=t7;
goto loop;}}}

/* mirror-rename in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_10908(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(7,0,2)))){
C_save_and_reclaim_args((void *)trf_10908,3,t0,t1,t2);}
a=C_alloc(7);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10926,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* expand.scm:997: mirror-rename */
t8=t3;
t9=C_u_i_car(t2);
t1=t8;
t2=t9;
goto loop;}
else{
if(C_truep(C_i_vectorp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10947,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10951,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:999: scheme#vector->list */
t5=*((C_word*)lf[199]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t3=C_i_symbolp(t2);
if(C_truep(C_i_not(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(
/* expand.scm:1002: lookup */
  f_6211(t2,((C_word*)t0)[4])
);
t5=(
/* expand.scm:1003: assq-reverse */
  f_10883(t2,((C_word*)((C_word*)t0)[6])[1])
);
if(C_truep(t5)){
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_i_car(t5);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
if(C_truep(C_i_not(t4))){
/* expand.scm:1007: rename */
t6=((C_word*)((C_word*)t0)[7])[1];{
C_word av2[3];
av2[0]=t6;
av2[1]=t1;
av2[2]=t2;
f_10578(3,av2);}}
else{
if(C_truep(C_i_pairp(t4))){
/* expand.scm:1009: rename */
t6=((C_word*)((C_word*)t0)[7])[1];{
C_word av2[3];
av2[0]=t6;
av2[1]=t1;
av2[2]=t2;
f_10578(3,av2);}}
else{
t6=C_i_getprop(t2,lf[8],C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
/* expand.scm:1016: rename */
t7=((C_word*)((C_word*)t0)[7])[1];{
C_word av2[3];
av2[0]=t7;
av2[1]=t1;
av2[2]=t2;
f_10578(3,av2);}}}}}}}}}

/* k10924 in mirror-rename in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10926(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10926,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10930,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);
/* expand.scm:997: mirror-rename */
t3=((C_word*)((C_word*)t0)[5])[1];
f_10908(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k10928 in k10924 in mirror-rename in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10930(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10930,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
/* expand.scm:996: inherit-pair-line-numbers */
f_10529(((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* k10945 in mirror-rename in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_10947(C_word c,C_word *av){
C_word tmp;
C_word 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_10947,c,av);}
/* expand.scm:999: scheme#list->vector */
t2=*((C_word*)lf[198]+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);}}

/* k10949 in mirror-rename in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10951,c,av);}
/* expand.scm:999: mirror-rename */
t2=((C_word*)((C_word*)t0)[2])[1];
f_10908(t2,((C_word*)t0)[3],t1);}

/* k11038 in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11040(C_word c,C_word *av){
C_word tmp;
C_word 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_11040,c,av);}
/* expand.scm:1028: mirror-rename */
t2=((C_word*)((C_word*)t0)[2])[1];
f_10908(t2,((C_word*)t0)[3],t1);}

/* k11042 in k10574 in a10525 in chicken.syntax#make-er/ir-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11044(C_word c,C_word *av){
C_word tmp;
C_word 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_11044,c,av);}
/* expand.scm:1028: handler */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=((C_word*)((C_word*)t0)[4])[1];
av2[4]=((C_word*)((C_word*)t0)[5])[1];
((C_proc)C_fast_retrieve_proc(t2))(5,av2);}}

/* chicken.syntax#er-macro-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11049(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11049,c,av);}
/* expand.scm:1030: make-er/ir-transformer */
f_10520(t1,t2,C_SCHEME_TRUE);}

/* chicken.syntax#ir-macro-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11055(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11055,c,av);}
/* expand.scm:1031: make-er/ir-transformer */
f_10520(t1,t2,C_SCHEME_FALSE);}

/* k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11068(C_word c,C_word *av){
C_word tmp;
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,5)))){
C_save_and_reclaim((void *)f_11068,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11071,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16194,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16196,a[2]=((C_word)li226),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1061: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t3;
av2[2]=t4;
tp(3,av2);}}

/* k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11071(C_word c,C_word *av){
C_word tmp;
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,5)))){
C_save_and_reclaim((void *)f_11071,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11075,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16083,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16085,a[2]=((C_word)li225),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1069: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t3;
av2[2]=t4;
tp(3,av2);}}

/* k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11075(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11075,c,av);}
a=C_alloc(9);
t2=C_mutate(&lf[101] /* (set! chicken.syntax#import-definition ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11078,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16048,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16050,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1091: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11078(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){
C_save_and_reclaim((void *)f_11078,c,av);}
a=C_alloc(12);
t2=C_mutate((C_word*)lf[205]+1 /* (set! process-cond-expand ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11080,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp));
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11466,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16034,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16036,a[2]=((C_word)li219),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1162: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11080(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 *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_11080,c,av);}
a=C_alloc(22);
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|3,a[1]=(C_word)f_11083,a[2]=t2,a[3]=((C_word)li124),tmp=(C_word)a,a+=4,tmp));
t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11156,a[2]=t4,a[3]=t6,a[4]=((C_word)li126),tmp=(C_word)a,a+=5,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|6,a[1]=(C_word)f_11337,a[2]=t2,a[3]=t4,a[4]=t10,a[5]=t6,a[6]=((C_word)li128),tmp=(C_word)a,a+=7,tmp));
t12=((C_word*)t10)[1];
f_11337(t12,t1,t2);}

/* err in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_11083(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(3,0,4)))){
C_save_and_reclaim_args((void *)trf_11083,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_a_i_cons(&a,2,lf[206],((C_word*)t0)[2]);
/* expand.scm:1098: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word av2[5];
av2[0]=*((C_word*)lf[43]+1);
av2[1]=t1;
av2[2]=lf[207];
av2[3]=t2;
av2[4]=t3;
tp(5,av2);}}

/* k11101 in k11300 in k11184 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11103(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_11103,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11106,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1105: scheme#symbol->string */
t4=*((C_word*)lf[135]+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);}}

/* k11104 in k11101 in k11300 in k11184 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11106(C_word c,C_word *av){
C_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_11106,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11109,a[2]=t1,a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1106: ##sys#find-module */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[219]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[219]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
av2[3]=C_SCHEME_FALSE;
tp(4,av2);}}

/* k11107 in k11104 in k11101 in k11300 in k11184 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11109(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11109,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[3];{
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_11119,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1107: chicken.platform#repository-path */
t3=C_fast_retrieve(lf[218]);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11117 in k11107 in k11104 in k11101 in k11300 in k11184 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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 t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_11119,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11121,a[2]=t4,a[3]=((C_word*)t2)[2],a[4]=((C_word)li125),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_11121(t6,((C_word*)t2)[3],t1);}

/* loop in k11117 in k11107 in k11104 in k11101 in k11300 in k11184 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_11121(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,5)))){
C_save_and_reclaim_args((void *)trf_11121,3,t0,t1,t2);}
a=C_alloc(10);
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11132,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11154,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1110: scheme#string-append */
t6=*((C_word*)lf[37]+1);{
C_word av2[6];
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
av2[3]=lf[216];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[217];
((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11130 in loop in k11117 in k11107 in k11104 in k11101 in k11300 in k11184 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11132(C_word c,C_word *av){
C_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_11132,c,av);}
a=C_alloc(8);
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|4,a[1]=(C_word)f_11138,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|2,a[1]=(C_word)f_11150,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1111: scheme#string-append */
t4=*((C_word*)lf[37]+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)[5];
av2[3]=lf[214];
av2[4]=((C_word*)t0)[6];
av2[5]=lf[215];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}

/* k11136 in k11130 in loop in k11117 in k11107 in k11104 in k11101 in k11300 in k11184 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11138(C_word c,C_word *av){
C_word tmp;
C_word 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_11138,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* expand.scm:1112: loop */
t2=((C_word*)((C_word*)t0)[3])[1];
f_11121(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}

/* k11148 in k11130 in loop in k11117 in k11107 in k11104 in k11101 in k11300 in k11184 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11150(C_word c,C_word *av){
C_word tmp;
C_word 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_11150,c,av);}
/* expand.scm:1102: ##sys#file-exists? */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[213]+1));
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[213]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_FALSE;
av2[5]=lf[206];
tp(6,av2);}}

/* k11152 in loop in k11117 in k11107 in k11104 in k11101 in k11300 in k11184 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11154(C_word c,C_word *av){
C_word tmp;
C_word 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_11154,c,av);}
/* expand.scm:1102: ##sys#file-exists? */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[213]+1));
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[213]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_FALSE;
av2[5]=lf[206];
tp(6,av2);}}

/* test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_11156(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,2)))){
C_save_and_reclaim_args((void *)trf_11156,3,t0,t1,t2);}
a=C_alloc(7);
if(C_truep(C_i_symbolp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11170,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1114: chicken.syntax#strip-syntax */
t4=C_fast_retrieve(lf[11]);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=C_i_pairp(t2);
if(C_truep(C_i_not(t3))){
/* expand.scm:1115: err */
t4=((C_word*)((C_word*)t0)[2])[1];
f_11083(t4,t1,t2);}
else{
t4=C_i_car(t2);
t5=C_u_i_cdr(t2);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11186,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* expand.scm:1119: chicken.syntax#strip-syntax */
t7=C_fast_retrieve(lf[11]);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}

/* k11168 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11170(C_word c,C_word *av){
C_word tmp;
C_word 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_11170,c,av);}
/* expand.scm:1114: chicken.platform#feature? */
t2=C_fast_retrieve(lf[208]);{
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);}}

/* k11184 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11186(C_word c,C_word *av){
C_word tmp;
C_word t0=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(5,c,2)))){
C_save_and_reclaim((void *)f_11186,c,av);}
a=C_alloc(5);
t2=C_eqp(t1,lf[209]);
if(C_truep(t2)){
t3=C_eqp(((C_word*)t0)[2],C_SCHEME_END_OF_LIST);
if(C_truep(t3)){
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11210,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);
/* expand.scm:1123: test */
t5=((C_word*)((C_word*)t0)[4])[1];
f_11156(t5,t4,C_u_i_car(((C_word*)t0)[2]));}
else{
/* expand.scm:1125: err */
t4=((C_word*)((C_word*)t0)[5])[1];
f_11083(t4,((C_word*)t0)[3],((C_word*)t0)[6]);}}}
else{
t3=C_eqp(t1,lf[210]);
if(C_truep(t3)){
t4=C_eqp(((C_word*)t0)[2],C_SCHEME_END_OF_LIST);
if(C_truep(C_i_not(t4))){
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11245,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);
/* expand.scm:1129: test */
t6=((C_word*)((C_word*)t0)[4])[1];
f_11156(t6,t5,C_u_i_car(((C_word*)t0)[2]));}
else{
/* expand.scm:1131: err */
t5=((C_word*)((C_word*)t0)[5])[1];
f_11083(t5,((C_word*)t0)[3],((C_word*)t0)[6]);}}
else{
t5=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t4=C_eqp(t1,lf[211]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11279,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1132: test */
t6=((C_word*)((C_word*)t0)[4])[1];
f_11156(t6,t5,C_i_cadr(((C_word*)t0)[6]));}
else{
t5=C_eqp(t1,lf[212]);
if(C_truep(t5)){
t6=C_i_pairp(((C_word*)t0)[2]);
t7=(C_truep(t6)?C_i_nullp(C_u_i_cdr(((C_word*)t0)[2])):C_SCHEME_FALSE);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11302,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1136: chicken.syntax#strip-syntax */
t9=C_fast_retrieve(lf[11]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=C_i_car(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
/* expand.scm:1137: err */
t8=((C_word*)((C_word*)t0)[5])[1];
f_11083(t8,((C_word*)t0)[3],((C_word*)t0)[6]);}}
else{
/* expand.scm:1138: err */
t6=((C_word*)((C_word*)t0)[5])[1];
f_11083(t6,((C_word*)t0)[3],((C_word*)t0)[6]);}}}}}

/* k11208 in k11184 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11210(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_11210,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[209],t2);
/* expand.scm:1124: test */
t4=((C_word*)((C_word*)t0)[3])[1];
f_11156(t4,((C_word*)t0)[4],t3);}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k11243 in k11184 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11245(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_11245,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_u_i_cdr(((C_word*)t0)[3]);
t3=C_a_i_cons(&a,2,lf[210],t2);
/* expand.scm:1130: test */
t4=((C_word*)((C_word*)t0)[4])[1];
f_11156(t4,((C_word*)t0)[2],t3);}}

/* k11277 in k11184 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11279(C_word c,C_word *av){
C_word tmp;
C_word 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_11279,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_not(t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k11300 in k11184 in test in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11302(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_11302,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11103,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1104: chicken.internal#library-id */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[220]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[220]+1);
av2[1]=t2;
av2[2]=t1;
tp(3,av2);}}

/* expand in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_11337(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 t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){
C_save_and_reclaim_args((void *)trf_11337,3,t0,t1,t2);}
a=C_alloc(16);
t3=C_eqp(t2,C_SCHEME_END_OF_LIST);
if(C_truep(t3)){
t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t5=t4;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=((C_word*)t6)[1];
t8=C_i_check_list_2(((C_word*)t0)[2],lf[16]);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11362,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11364,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li127),tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_11364(t13,t9,((C_word*)t0)[2]);}
else{
t4=C_i_pairp(t2);
if(C_truep(C_i_not(t4))){
/* expand.scm:1144: err */
t5=((C_word*)((C_word*)t0)[3])[1];
f_11083(t5,t1,t2);}
else{
t5=C_i_car(t2);
t6=C_u_i_cdr(t2);
t7=C_i_pairp(t5);
if(C_truep(C_i_not(t7))){
/* expand.scm:1149: err */
t8=((C_word*)((C_word*)t0)[3])[1];
f_11083(t8,t1,t5);}
else{
t8=C_i_car(t5);
t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11455,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t6,a[6]=((C_word*)t0)[5],a[7]=t8,tmp=(C_word)a,a+=8,tmp);
/* expand.scm:1151: chicken.syntax#strip-syntax */
t10=C_fast_retrieve(lf[11]);{
C_word av2[3];
av2[0]=t10;
av2[1]=t9;
av2[2]=t8;
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}}}}

/* k11360 in expand in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11362(C_word c,C_word *av){
C_word tmp;
C_word 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_11362,c,av);}{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[27]+1);
av2[3]=lf[221];
av2[4]=t1;
C_apply(5,av2);}}

/* map-loop2611 in expand in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_11364(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_11364,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);}}}

/* k11441 in k11453 in expand in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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(3,c,2)))){
C_save_and_reclaim((void *)f_11443,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[103],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* expand.scm:1157: expand */
t2=((C_word*)((C_word*)t0)[4])[1];
f_11337(t2,((C_word*)t0)[3],((C_word*)t0)[5]);}}

/* k11453 in expand in process-cond-expand in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11455(C_word c,C_word *av){
C_word tmp;
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_11455,c,av);}
a=C_alloc(6);
t2=C_eqp(t1,lf[222]);
if(C_truep(t2)){
t3=C_u_i_cdr(((C_word*)t0)[2]);
t4=C_eqp(t3,C_SCHEME_END_OF_LIST);
t5=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=(C_truep(t4)?lf[223]:C_a_i_cons(&a,2,lf[103],t3));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11443,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);
/* expand.scm:1156: test */
t4=((C_word*)((C_word*)t0)[6])[1];
f_11156(t4,t3,((C_word*)t0)[7]);}}

/* k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11466,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11470,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1170: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word *av2=av;
av2[0]=*((C_word*)lf[17]+1);
av2[1]=t2;
tp(2,av2);}}

/* k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11470(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11470,c,av);}
a=C_alloc(9);
t2=C_mutate((C_word*)lf[224]+1 /* (set! ##sys#initial-macro-environment ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11473,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15859,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15861,a[2]=((C_word)li218),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1174: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11473(C_word c,C_word *av){
C_word tmp;
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,5)))){
C_save_and_reclaim((void *)f_11473,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11476,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15138,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15140,a[2]=((C_word)li217),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1236: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t3;
av2[2]=t4;
tp(3,av2);}}

/* k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11476(C_word c,C_word *av){
C_word tmp;
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,5)))){
C_save_and_reclaim((void *)f_11476,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11479,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15111,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15113,a[2]=((C_word)li200),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1364: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t3;
av2[2]=t4;
tp(3,av2);}}

/* k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11479(C_word c,C_word *av){
C_word tmp;
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,5)))){
C_save_and_reclaim((void *)f_11479,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11482,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14988,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14990,a[2]=((C_word)li199),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1374: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t3;
av2[2]=t4;
tp(3,av2);}}

/* k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11482(C_word c,C_word *av){
C_word tmp;
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,5)))){
C_save_and_reclaim((void *)f_11482,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11485,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14978,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14980,a[2]=((C_word)li197),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1393: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t3;
av2[2]=t4;
tp(3,av2);}}

/* k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11485(C_word c,C_word *av){
C_word tmp;
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,5)))){
C_save_and_reclaim((void *)f_11485,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11488,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14807,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14809,a[2]=((C_word)li196),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1402: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t3;
av2[2]=t4;
tp(3,av2);}}

/* k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11488(C_word c,C_word *av){
C_word tmp;
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,5)))){
C_save_and_reclaim((void *)f_11488,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11491,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14723,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14725,a[2]=((C_word)li193),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1437: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t3;
av2[2]=t4;
tp(3,av2);}}

/* k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11491(C_word c,C_word *av){
C_word tmp;
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,5)))){
C_save_and_reclaim((void *)f_11491,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11494,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14700,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14702,a[2]=((C_word)li192),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1460: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t3;
av2[2]=t4;
tp(3,av2);}}

/* k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11494(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11494,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11498,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1467: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word *av2=av;
av2[0]=*((C_word*)lf[17]+1);
av2[1]=t2;
tp(2,av2);}}

/* k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_11498(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_11498,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[225]+1 /* (set! ##sys#chicken.module-macro-environment ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11502,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1470: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word *av2=av;
av2[0]=*((C_word*)lf[17]+1);
av2[1]=t3;
tp(2,av2);}}

/* k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_11502(C_word c,C_word *av){
C_word tmp;
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,5)))){
C_save_and_reclaim((void *)f_11502,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11505,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14683,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14685,a[2]=((C_word)li191),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1475: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t3;
av2[2]=t4;
tp(3,av2);}}

/* k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
static void C_ccall f_11505(C_word c,C_word *av){
C_word tmp;
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,5)))){
C_save_and_reclaim((void *)f_11505,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11508,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14666,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14668,a[2]=((C_word)li190),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1483: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t3;
av2[2]=t4;
tp(3,av2);}}

/* k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in ... */
static void C_ccall f_11508(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11508,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11511,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14649,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14651,a[2]=((C_word)li189),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1491: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in ... */
static void C_ccall f_11511(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11511,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11514,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14632,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14634,a[2]=((C_word)li188),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1499: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in ... */
static void C_ccall f_11514(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11514,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11518,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14505,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14507,a[2]=((C_word)li187),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1508: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in ... */
static void C_ccall f_11518(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11518,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=C_mutate((C_word*)lf[98]+1 /* (set! chicken.syntax#define-definition ...) */,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11522,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14458,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14460,a[2]=((C_word)li185),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1536: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t5;
av2[2]=t6;
tp(3,av2);}}

/* k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 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 t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_11522,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=C_mutate((C_word*)lf[99]+1 /* (set! chicken.syntax#define-syntax-definition ...) */,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11525,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14406,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14408,a[2]=((C_word)li184),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1550: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t5;
av2[2]=t6;
tp(3,av2);}}

/* k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in ... */
static void C_ccall f_11525(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11525,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11528,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14384,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14386,a[2]=((C_word)li183),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1563: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in ... */
static void C_ccall f_11528(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11528,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11531,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14362,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14364,a[2]=((C_word)li182),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1572: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in ... */
static void C_ccall f_11531(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11531,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11534,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14340,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14342,a[2]=((C_word)li181),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1581: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in ... */
static void C_ccall f_11534(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11534,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11537,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14296,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14298,a[2]=((C_word)li180),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1590: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in ... */
static void C_ccall f_11537(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11537,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11540,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14259,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14261,a[2]=((C_word)li179),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1602: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in ... */
static void C_ccall f_11540(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11540,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11543,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14207,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14209,a[2]=((C_word)li178),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1616: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 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 t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_11543,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11546,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13816,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13818,a[2]=((C_word)li177),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1632: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in ... */
static void C_ccall f_11546(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11546,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11549,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13580,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13582,a[2]=((C_word)li175),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1698: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in ... */
static void C_ccall f_11549(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11549,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11552,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13529,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13531,a[2]=((C_word)li171),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1743: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in ... */
static void C_ccall f_11552(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11552,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11555,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13333,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13335,a[2]=((C_word)li169),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1756: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in ... */
static void C_ccall f_11555(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11555,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11558,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13040,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13042,a[2]=((C_word)li166),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1785: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in ... */
static void C_ccall f_11558(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11558,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11561,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13007,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13009,a[2]=((C_word)li160),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1837: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in ... */
static void C_ccall f_11561(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11561,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11564,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12987,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12989,a[2]=((C_word)li159),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1848: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in ... */
static void C_ccall f_11564(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_11564,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11567,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12951,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12953,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:44: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in ... */
static void C_ccall f_11567(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11567,c,av);}
a=C_alloc(23);
t2=((C_word*)t0)[2];
t3=C_a_i_provide(&a,1,lf[226]);
t4=C_mutate((C_word*)lf[46]+1 /* (set! chicken.internal.syntax-rules#syntax-rules-mismatch ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11569,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[228]+1 /* (set! chicken.internal.syntax-rules#drop-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11575,a[2]=((C_word)li132),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[230]+1 /* (set! chicken.internal.syntax-rules#take-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11611,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[229]+1 /* (set! chicken.internal.syntax-rules#safe-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11641,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp));
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12928,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1857: chicken.internal#macro-subset */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[239]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[239]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}

/* chicken.internal.syntax-rules#syntax-rules-mismatch in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 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=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11569,c,av);}
/* synrules.scm:65: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=t1;
av2[2]=lf[227];
av2[3]=t2;
tp(4,av2);}}

/* chicken.internal.syntax-rules#drop-right in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 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=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_11575,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11583,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* synrules.scm:68: safe-length */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[229]);
C_word *av2=av;
av2[0]=*((C_word*)lf[229]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k11581 in chicken.internal.syntax-rules#drop-right in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_11583(C_word c,C_word *av){
C_word tmp;
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_11583,c,av);}
a=C_alloc(7);
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|4,a[1]=(C_word)f_11585,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li131),tmp=(C_word)a,a+=5,tmp));
t5=((C_word*)t3)[1];
f_11585(t5,((C_word*)t0)[3],t1,((C_word*)t0)[4]);}

/* loop in k11581 in chicken.internal.syntax-rules#drop-right in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void f_11585(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;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_11585,4,t0,t1,t2,t3);}
a=C_alloc(4);
if(C_truep(C_fixnum_greaterp(t2,((C_word*)t0)[2]))){
t4=C_i_car(t3);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11603,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* synrules.scm:73: loop */
t7=t5;
t8=C_fixnum_difference(t2,C_fix(1));
t9=C_u_i_cdr(t3);
t1=t7;
t2=t8;
t3=t9;
goto loop;}
else{
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);}}}

/* k11601 in loop in k11581 in chicken.internal.syntax-rules#drop-right in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in ... */
static void C_ccall f_11603(C_word c,C_word *av){
C_word tmp;
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_11603,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.internal.syntax-rules#take-right in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 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=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_11611,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11619,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* synrules.scm:77: safe-length */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[229]);
C_word *av2=av;
av2[0]=*((C_word*)lf[229]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k11617 in chicken.internal.syntax-rules#take-right in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_11619(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11619,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11621,a[2]=((C_word*)t0)[2],a[3]=((C_word)li133),tmp=(C_word)a,a+=4,tmp);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
  f_11621(t2,t1,((C_word*)t0)[4])
);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* loop in k11617 in chicken.internal.syntax-rules#take-right in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static C_word f_11621(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;
loop:{}
if(C_truep(C_fixnum_greaterp(t1,((C_word*)t0)[2]))){
t4=C_fixnum_difference(t1,C_fix(1));
t5=C_i_cdr(t2);
t1=t4;
t2=t5;
goto loop;}
else{
return(t2);}}

/* chicken.internal.syntax-rules#safe-length in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
static void C_ccall f_11641(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_11641,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11647,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(
  f_11647(t2,C_fix(0))
);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* loop in chicken.internal.syntax-rules#safe-length in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static C_word f_11647(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t4=C_u_i_cdr(t1);
t5=C_fixnum_plus(C_fix(1),t2);
t1=t4;
t2=t5;
goto loop;}
else{
return(t2);}}

/* k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_11672(C_word c,C_word *av){
C_word tmp;
C_word t0=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(3,c,2)))){
C_save_and_reclaim((void *)f_11672,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)((C_word*)t0)[23])+1,t1);
t3=C_mutate(((C_word *)((C_word*)t0)[32])+1,lf[242]);
t4=C_mutate(((C_word *)((C_word*)t0)[16])+1,lf[243]);
t5=C_mutate(((C_word *)((C_word*)t0)[33])+1,lf[244]);
t6=C_mutate(((C_word *)((C_word*)t0)[34])+1,lf[245]);
t7=C_mutate(((C_word *)((C_word*)t0)[50])+1,lf[246]);
t8=C_mutate(((C_word *)((C_word*)t0)[39])+1,lf[247]);
t9=C_mutate(((C_word *)((C_word*)t0)[41])+1,lf[248]);
t10=C_mutate(((C_word *)((C_word*)t0)[43])+1,lf[249]);
t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11687,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:106: r */
t12=((C_word*)t0)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t12;
av2[1]=t11;
av2[2]=lf[273];
((C_proc)C_fast_retrieve_proc(t12))(3,av2);}}

/* k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 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 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_11687,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[15])+1,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11691,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:107: r */
t5=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[272];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in ... */
static void C_ccall f_11691(C_word c,C_word *av){
C_word tmp;
C_word t0=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,2)))){
C_save_and_reclaim((void *)f_11691,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[18])+1,t1);
t4=C_mutate(((C_word *)((C_word*)t2)[49])+1,lf[250]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11696,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:109: r */
t6=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[222];
((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}

/* k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in ... */
static void C_ccall f_11696(C_word c,C_word *av){
C_word tmp;
C_word t0=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(3,c,2)))){
C_save_and_reclaim((void *)f_11696,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[22])+1,t1);
t4=C_mutate(((C_word *)((C_word*)t2)[35])+1,lf[251]);
t5=C_mutate(((C_word *)((C_word*)t2)[36])+1,lf[252]);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11702,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:112: r */
t7=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[271];
((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}

/* k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in ... */
static void C_ccall f_11702(C_word c,C_word *av){
C_word tmp;
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_11702,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[13])+1,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11706,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:113: r */
t5=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[270];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in ... */
static void C_ccall f_11706(C_word c,C_word *av){
C_word tmp;
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_11706,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[40])+1,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11710,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:114: r */
t5=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[269];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 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 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_11710,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[38])+1,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11714,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:115: r */
t5=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[268];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in ... */
static void C_ccall f_11714(C_word c,C_word *av){
C_word tmp;
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_11714,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[20])+1,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11718,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:116: r */
t5=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[55];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in ... */
static void C_ccall f_11718(C_word c,C_word *av){
C_word tmp;
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_11718,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[19])+1,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11722,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:117: r */
t5=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[91];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in ... */
static void C_ccall f_11722(C_word c,C_word *av){
C_word tmp;
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_11722,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[24])+1,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11726,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:118: r */
t5=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[267];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in ... */
static void C_ccall f_11726(C_word c,C_word *av){
C_word tmp;
C_word t0=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(3,c,2)))){
C_save_and_reclaim((void *)f_11726,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[42])+1,t1);
t4=C_mutate(((C_word *)((C_word*)t2)[44])+1,lf[253]);
t5=C_mutate(((C_word *)((C_word*)t2)[46])+1,lf[254]);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11733,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:122: r */
t7=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[210];
((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}

/* k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in ... */
static void C_ccall f_11733(C_word c,C_word *av){
C_word tmp;
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_11733,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[31])+1,lf[255]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11738,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:124: r */
t5=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[258];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 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 t4;
C_word t5;
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=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[51])+1,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11742,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:125: r */
t5=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[266];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in ... */
static void C_ccall f_11742(C_word c,C_word *av){
C_word tmp;
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_11742,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[14])+1,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11746,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:126: r */
t5=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[265];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in ... */
static void C_ccall f_11746(C_word c,C_word *av){
C_word tmp;
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_11746,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[17])+1,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11750,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:127: r */
t5=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[264];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in ... */
static void C_ccall f_11750(C_word c,C_word *av){
C_word tmp;
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(56,c,2)))){
C_save_and_reclaim((void *)f_11750,c,av);}
a=C_alloc(56);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
t4=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_11755,a[2]=((C_word*)t2)[7],a[3]=((C_word*)t2)[8],a[4]=((C_word*)t2)[9],a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[10],a[7]=((C_word*)t2)[11],a[8]=((C_word*)t2)[12],a[9]=((C_word*)t2)[13],a[10]=((C_word*)t2)[14],a[11]=((C_word*)t2)[15],a[12]=((C_word*)t2)[16],a[13]=((C_word*)t2)[17],a[14]=((C_word*)t2)[18],a[15]=((C_word*)t2)[19],a[16]=((C_word*)t2)[20],a[17]=((C_word*)t2)[21],a[18]=((C_word*)t2)[22],a[19]=((C_word*)t2)[23],a[20]=((C_word*)t2)[24],a[21]=((C_word*)t2)[25],a[22]=((C_word*)t2)[26],a[23]=((C_word*)t2)[27],a[24]=((C_word*)t2)[28],a[25]=((C_word*)t2)[29],a[26]=((C_word*)t2)[30],a[27]=((C_word*)t2)[2],a[28]=((C_word*)t2)[31],a[29]=((C_word*)t2)[32],a[30]=((C_word*)t2)[33],a[31]=((C_word*)t2)[34],a[32]=((C_word*)t2)[35],a[33]=((C_word*)t2)[36],a[34]=((C_word*)t2)[37],a[35]=((C_word*)t2)[4],a[36]=((C_word*)t2)[38],a[37]=((C_word*)t2)[39],a[38]=((C_word*)t2)[40],a[39]=((C_word*)t2)[41],a[40]=((C_word*)t2)[42],a[41]=((C_word*)t2)[43],a[42]=((C_word*)t2)[6],a[43]=((C_word*)t2)[5],a[44]=((C_word*)t2)[44],a[45]=((C_word*)t2)[45],a[46]=((C_word*)t2)[46],a[47]=((C_word*)t2)[47],a[48]=((C_word*)t2)[48],a[49]=((C_word*)t2)[49],a[50]=((C_word*)t2)[50],a[51]=((C_word*)t2)[51],a[52]=((C_word*)t2)[52],a[53]=((C_word*)t2)[53],a[54]=((C_word*)t2)[54],a[55]=((C_word*)t2)[55],tmp=(C_word)a,a+=56,tmp);
/* synrules.scm:129: r */
t5=((C_word*)t2)[11];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[56];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in k11559 in ... */
static void C_ccall f_11755(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_11755,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)((C_word*)t0)[5])+1,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11759,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:130: r */
t4=((C_word*)t0)[7];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[229];
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in k11562 in ... */
static void C_ccall f_11759(C_word c,C_word *av){
C_word tmp;
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_11759,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[35])+1,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11763,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:131: r */
t5=((C_word*)t2)[7];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[230];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in a12952 in ... */
static void C_ccall f_11763(C_word c,C_word *av){
C_word tmp;
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_11763,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[43])+1,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11767,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:132: r */
t5=((C_word*)t2)[7];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[228];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in k12955 in ... */
static void C_ccall f_11767(C_word c,C_word *av){
C_word tmp;
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_11767,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[42])+1,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11771,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:134: r */
t5=((C_word*)t2)[7];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[46];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in k12963 in ... */
static void C_ccall f_11771(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(131,c,7)))){
C_save_and_reclaim((void *)f_11771,c,av);}
a=C_alloc(131);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
t4=C_mutate(((C_word *)((C_word*)t2)[3])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11773,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=((C_word)li137),tmp=(C_word)a,a+=5,tmp));
t5=C_mutate(((C_word *)((C_word*)t2)[6])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11779,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[7],a[4]=((C_word)li138),tmp=(C_word)a,a+=5,tmp));
t6=C_mutate(((C_word *)((C_word*)t2)[8])+1,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11789,a[2]=((C_word*)t2)[9],a[3]=((C_word*)t2)[10],a[4]=((C_word*)t2)[11],a[5]=((C_word*)t2)[12],a[6]=((C_word*)t2)[13],a[7]=((C_word*)t2)[14],a[8]=((C_word*)t2)[15],a[9]=((C_word*)t2)[16],a[10]=((C_word*)t2)[17],a[11]=((C_word*)t2)[2],a[12]=((C_word*)t2)[18],a[13]=((C_word)li140),tmp=(C_word)a,a+=14,tmp));
t7=C_mutate(((C_word *)((C_word*)t2)[17])+1,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11883,a[2]=((C_word*)t2)[19],a[3]=((C_word*)t2)[20],a[4]=((C_word*)t2)[21],a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[22],a[7]=((C_word*)t2)[23],a[8]=((C_word*)t2)[13],a[9]=((C_word*)t2)[24],a[10]=((C_word)li142),tmp=(C_word)a,a+=11,tmp));
t8=C_mutate(((C_word *)((C_word*)t2)[24])+1,(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_11949,a[2]=((C_word*)t2)[25],a[3]=((C_word*)t2)[10],a[4]=((C_word*)t2)[11],a[5]=((C_word*)t2)[26],a[6]=((C_word*)t2)[27],a[7]=((C_word*)t2)[28],a[8]=((C_word*)t2)[19],a[9]=((C_word*)t2)[15],a[10]=((C_word*)t2)[12],a[11]=((C_word*)t2)[24],a[12]=((C_word*)t2)[29],a[13]=((C_word*)t2)[30],a[14]=((C_word*)t2)[31],a[15]=((C_word*)t2)[32],a[16]=((C_word*)t2)[33],a[17]=((C_word*)t2)[34],a[18]=((C_word)li143),tmp=(C_word)a,a+=19,tmp));
t9=C_mutate(((C_word *)((C_word*)t2)[26])+1,(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_12130,a[2]=((C_word*)t2)[35],a[3]=((C_word*)t2)[36],a[4]=((C_word*)t2)[37],a[5]=((C_word*)t2)[38],a[6]=((C_word*)t2)[39],a[7]=((C_word*)t2)[19],a[8]=((C_word*)t2)[18],a[9]=((C_word*)t2)[14],a[10]=((C_word*)t2)[15],a[11]=((C_word*)t2)[40],a[12]=((C_word*)t2)[12],a[13]=((C_word*)t2)[41],a[14]=((C_word*)t2)[24],a[15]=((C_word*)t2)[29],a[16]=((C_word)li144),tmp=(C_word)a,a+=17,tmp));
t10=C_mutate(((C_word *)((C_word*)t2)[23])+1,(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12242,a[2]=((C_word*)t2)[25],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[42],a[5]=((C_word*)t2)[43],a[6]=((C_word*)t2)[23],a[7]=((C_word*)t2)[27],a[8]=((C_word*)t2)[16],a[9]=((C_word*)t2)[44],a[10]=((C_word*)t2)[12],a[11]=((C_word*)t2)[29],a[12]=((C_word*)t2)[31],a[13]=((C_word*)t2)[34],a[14]=((C_word)li146),tmp=(C_word)a,a+=15,tmp));
t11=C_mutate(((C_word *)((C_word*)t2)[21])+1,(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12398,a[2]=((C_word*)t2)[10],a[3]=((C_word*)t2)[21],a[4]=((C_word*)t2)[45],a[5]=((C_word*)t2)[16],a[6]=((C_word*)t2)[46],a[7]=((C_word*)t2)[47],a[8]=((C_word*)t2)[48],a[9]=((C_word*)t2)[49],a[10]=((C_word*)t2)[50],a[11]=((C_word*)t2)[51],a[12]=((C_word*)t2)[52],a[13]=((C_word*)t2)[53],a[14]=((C_word)li149),tmp=(C_word)a,a+=15,tmp));
t12=C_mutate(((C_word *)((C_word*)t2)[22])+1,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12636,a[2]=((C_word*)t2)[25],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[22],a[5]=((C_word*)t2)[34],a[6]=((C_word)li150),tmp=(C_word)a,a+=7,tmp));
t13=C_mutate(((C_word *)((C_word*)t2)[47])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12722,a[2]=((C_word*)t2)[47],a[3]=((C_word*)t2)[52],a[4]=((C_word)li151),tmp=(C_word)a,a+=5,tmp));
t14=C_mutate(((C_word *)((C_word*)t2)[53])+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12811,a[2]=((C_word)li152),tmp=(C_word)a,a+=3,tmp));
t15=C_mutate(((C_word *)((C_word*)t2)[34])+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12825,a[2]=((C_word*)t2)[52],a[3]=((C_word)li153),tmp=(C_word)a,a+=4,tmp));
t16=C_mutate(((C_word *)((C_word*)t2)[52])+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12840,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp));
t17=C_mutate(((C_word *)((C_word*)t2)[48])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12867,a[2]=((C_word*)t2)[48],a[3]=((C_word*)t2)[52],a[4]=((C_word)li155),tmp=(C_word)a,a+=5,tmp));
t18=C_mutate(((C_word *)((C_word*)t2)[45])+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12887,a[2]=((C_word)li157),tmp=(C_word)a,a+=3,tmp));
/* synrules.scm:359: make-transformer */
t19=((C_word*)((C_word*)t2)[8])[1];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t19;
av2[1]=((C_word*)t2)[54];
av2[2]=((C_word*)t2)[55];
((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}}

/* f_11773 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in ... */
static void C_ccall f_11773(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11773,c,av);}
/* synrules.scm:137: c */
t3=((C_word*)t0)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)((C_word*)t0)[3])[1];
((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}

/* f_11779 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in ... */
static void C_ccall f_11779(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_11779,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11787,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* synrules.scm:141: r */
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[175];
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* k11785 */
static void C_ccall f_11787(C_word c,C_word *av){
C_word tmp;
C_word 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_11787,c,av);}
/* synrules.scm:141: c */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t1;
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}

/* f_11789 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in ... */
static void C_ccall f_11789(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 *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(52,c,3)))){
C_save_and_reclaim((void *)f_11789,c,av);}
a=C_alloc(52);
t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]);
t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[2])[1]);
t5=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[6])[1],t4);
t6=C_a_i_list(&a,1,t5);
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11817,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t6,a[5]=((C_word*)t0)[9],a[6]=t3,a[7]=t1,tmp=(C_word)a,a+=8,tmp);
t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t9=t8;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=((C_word*)t10)[1];
t12=((C_word*)((C_word*)t0)[10])[1];
t13=C_i_check_list_2(t2,lf[16]);
t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11827,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[12],a[5]=t7,tmp=(C_word)a,a+=6,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(t16,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11841,a[2]=t10,a[3]=t16,a[4]=t12,a[5]=t11,a[6]=((C_word)li139),tmp=(C_word)a,a+=7,tmp));
t18=((C_word*)t16)[1];
f_11841(t18,t14,t2);}

/* k11815 */
static void C_ccall f_11817(C_word c,C_word *av){
C_word tmp;
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(27,c,1)))){
C_save_and_reclaim((void *)f_11817,c,av);}
a=C_alloc(27);
t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t1);
t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t2);
t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[5])[1],((C_word*)t0)[6],t3);
t5=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_a_i_list(&a,2,lf[203],t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k11825 */
static void C_ccall f_11827(C_word c,C_word *av){
C_word tmp;
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,3)))){
C_save_and_reclaim((void *)f_11827,c,av);}
a=C_alloc(15);
t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]);
t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[4])[1],t2);
t4=C_a_i_list(&a,1,t3);
/* synrules.scm:144: ##sys#append */
t5=*((C_word*)lf[73]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[5];
av2[2]=t1;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* map-loop3673 */
static void f_11841(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_11841,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_11866,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);
/* synrules.scm:147: g3679 */
t4=((C_word*)t0)[4];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
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);}}}

/* k11864 in map-loop3673 */
static void C_ccall f_11866(C_word c,C_word *av){
C_word tmp;
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_11866,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_11841(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* f_11883 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in ... */
static void C_ccall f_11883(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_11883,c,av);}
a=C_alloc(12);
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11890,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,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],tmp=(C_word)a,a+=12,tmp);
if(C_truep(C_i_pairp(t2))){
t4=C_i_pairp(C_u_i_cdr(t2));
t5=t3;
f_11890(t5,(C_truep(t4)?C_i_nullp(C_i_cddr(t2)):C_SCHEME_FALSE));}
else{
t4=t3;
f_11890(t4,C_SCHEME_FALSE);}}

/* k11888 */
static void f_11890(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_11890,2,t0,t1);}
a=C_alloc(12);
if(C_truep(t1)){
t2=C_i_cdar(((C_word*)t0)[2]);
t3=C_i_cadr(((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11926,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]=t3,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
/* synrules.scm:156: process-match */
t5=((C_word*)((C_word*)t0)[11])[1];{
C_word av2[6];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t0)[10])[1];
av2[3]=t2;
av2[4]=C_SCHEME_FALSE;
av2[5]=((C_word*)((C_word*)t0)[7])[1];
((C_proc)C_fast_retrieve_proc(t5))(6,av2);}}
else{
/* synrules.scm:163: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word av2[4];
av2[0]=*((C_word*)lf[43]+1);
av2[1]=((C_word*)t0)[5];
av2[2]=lf[256];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}}

/* k11909 in k11924 in k11888 */
static void C_ccall f_11911(C_word c,C_word *av){
C_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,6)))){
C_save_and_reclaim((void *)f_11911,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11915,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11919,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
/* synrules.scm:162: meta-variables */
t4=((C_word*)((C_word*)t0)[8])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[9];
av2[3]=C_fix(0);
av2[4]=((C_word*)((C_word*)t0)[7])[1];
av2[5]=C_SCHEME_END_OF_LIST;
av2[6]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t4))(7,av2);}}

/* k11913 in k11909 in k11924 in k11888 */
static void C_ccall f_11915(C_word c,C_word *av){
C_word tmp;
C_word t0=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,1)))){
C_save_and_reclaim((void *)f_11915,c,av);}
a=C_alloc(15);
t2=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],t1);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,2,((C_word*)t0)[5],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k11917 in k11909 in k11924 in k11888 */
static void C_ccall f_11919(C_word c,C_word *av){
C_word tmp;
C_word 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_11919,c,av);}
/* synrules.scm:160: process-template */
t2=((C_word*)((C_word*)t0)[2])[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_fix(0);
av2[4]=((C_word*)((C_word*)t0)[5])[1];
av2[5]=t1;
((C_proc)C_fast_retrieve_proc(t2))(6,av2);}}

/* a11920 in k11924 in k11888 */
static void C_ccall f_11921(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11921,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k11924 in k11888 */
static void C_ccall f_11926(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,6)))){
C_save_and_reclaim((void *)f_11926,c,av);}
a=C_alloc(16);
t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t1);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11911,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],tmp=(C_word)a,a+=10,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11921,a[2]=((C_word)li141),tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:157: process-pattern */
t5=((C_word*)((C_word*)t0)[10])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)((C_word*)t0)[11])[1];
av2[4]=t4;
av2[5]=C_SCHEME_FALSE;
av2[6]=((C_word*)((C_word*)t0)[7])[1];
((C_proc)C_fast_retrieve_proc(t5))(7,av2);}}

/* f_11949 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in ... */
static void C_ccall f_11949(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){
C_save_and_reclaim((void *)f_11949,c,av);}
a=C_alloc(24);
if(C_truep(C_i_symbolp(t3))){
if(C_truep(C_i_memq(t3,((C_word*)t0)[2]))){
t6=C_a_i_list(&a,2,lf[257],t3);
t7=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],t6);
t8=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],t2,t7);
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=C_a_i_list(&a,1,t8);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t6=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_11983,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t5,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],tmp=(C_word)a,a+=18,tmp);
/* synrules.scm:172: segment-pattern? */
t7=((C_word*)((C_word*)t0)[17])[1];{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t3;
av2[3]=t4;
av2[4]=t5;
((C_proc)C_fast_retrieve_proc(t7))(5,av2);}}}

/* k11981 */
static void C_ccall f_11983(C_word c,C_word *av){
C_word tmp;
C_word t0=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(36,c,5)))){
C_save_and_reclaim((void *)f_11983,c,av);}
a=C_alloc(36);
if(C_truep(t1)){
/* synrules.scm:173: process-segment-match */
t2=((C_word*)((C_word*)t0)[2])[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]=((C_word*)t0)[6];
((C_proc)C_fast_retrieve_proc(t2))(5,av2);}}
else{
if(C_truep(C_i_pairp(((C_word*)t0)[5]))){
t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[4]);
t3=C_a_i_list(&a,1,t2);
t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[8])[1],((C_word*)((C_word*)t0)[7])[1]);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12019,a[2]=t4,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=t3,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12023,a[2]=t5,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
t7=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[13])[1],((C_word*)((C_word*)t0)[7])[1]);
/* synrules.scm:177: process-match */
t8=((C_word*)((C_word*)t0)[12])[1];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t8;
av2[1]=t6;
av2[2]=t7;
av2[3]=C_u_i_car(((C_word*)t0)[5]);
av2[4]=C_SCHEME_FALSE;
av2[5]=((C_word*)t0)[6];
((C_proc)C_fast_retrieve_proc(t8))(6,av2);}}
else{
if(C_truep(C_i_vectorp(((C_word*)t0)[5]))){
t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[4]);
t3=C_a_i_list(&a,1,t2);
t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[14])[1],((C_word*)((C_word*)t0)[7])[1]);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12076,a[2]=t4,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=t3,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
t6=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[15])[1],((C_word*)((C_word*)t0)[7])[1]);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12084,a[2]=((C_word*)t0)[12],a[3]=t5,a[4]=t6,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* synrules.scm:183: scheme#vector->list */
t8=*((C_word*)lf[199]+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)[5];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t2=C_i_nullp(((C_word*)t0)[5]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12097,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[16],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[17],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t2)){
t4=t3;
f_12097(t4,t2);}
else{
t4=C_booleanp(((C_word*)t0)[5]);
t5=t3;
f_12097(t5,(C_truep(t4)?t4:C_charp(((C_word*)t0)[5])));}}}}}

/* k12017 in k11981 */
static void C_ccall f_12019(C_word c,C_word *av){
C_word tmp;
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,1)))){
C_save_and_reclaim((void *)f_12019,c,av);}
a=C_alloc(18);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t2);
t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],t3);
t5=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_a_i_list(&a,1,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k12021 in k11981 */
static void C_ccall f_12023(C_word c,C_word *av){
C_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,5)))){
C_save_and_reclaim((void *)f_12023,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12027,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]);
/* synrules.scm:178: process-match */
t4=((C_word*)((C_word*)t0)[5])[1];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=t3;
av2[3]=C_u_i_cdr(((C_word*)t0)[6]);
av2[4]=C_SCHEME_FALSE;
av2[5]=((C_word*)t0)[7];
((C_proc)C_fast_retrieve_proc(t4))(6,av2);}}

/* k12025 in k12021 in k11981 */
static void C_ccall f_12027(C_word c,C_word *av){
C_word tmp;
C_word 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_12027,c,av);}
/* synrules.scm:175: ##sys#append */
t2=*((C_word*)lf[73]+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);}}

/* k12074 in k11981 */
static void C_ccall f_12076(C_word c,C_word *av){
C_word tmp;
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,1)))){
C_save_and_reclaim((void *)f_12076,c,av);}
a=C_alloc(18);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t2);
t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],t3);
t5=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_a_i_list(&a,1,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k12082 in k11981 */
static void C_ccall f_12084(C_word c,C_word *av){
C_word tmp;
C_word 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_12084,c,av);}
/* synrules.scm:182: process-match */
t2=((C_word*)((C_word*)t0)[2])[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]=t1;
av2[4]=C_SCHEME_FALSE;
av2[5]=((C_word*)t0)[5];
((C_proc)C_fast_retrieve_proc(t2))(6,av2);}}

/* k12095 in k11981 */
static void f_12097(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(18,0,1)))){
C_save_and_reclaim_args((void *)trf_12097,2,t0,t1);}
a=C_alloc(18);
if(C_truep(t1)){
t2=C_a_i_list(&a,2,lf[258],((C_word*)t0)[2]);
t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t2);
t4=((C_word*)t0)[5];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_a_i_list(&a,1,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t2=C_a_i_list(&a,2,lf[258],((C_word*)t0)[2]);
t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[4],t2);
t4=((C_word*)t0)[5];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_a_i_list(&a,1,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* f_12130 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in ... */
static void C_ccall f_12130(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(26,c,5)))){
C_save_and_reclaim((void *)f_12130,c,av);}
a=C_alloc(26);
t5=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_12134,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],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]=t1,a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],a[16]=C_SCHEME_UNDEFINED,a[17]=((C_word*)t0)[14],a[18]=t3,a[19]=t4,tmp=(C_word)a,a+=20,tmp);
t6=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[15])[1],((C_word*)((C_word*)t0)[5])[1]);
/* synrules.scm:190: process-match */
t7=((C_word*)((C_word*)t0)[14])[1];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t7;
av2[1]=t5;
av2[2]=t6;
av2[3]=C_i_car(t3);
av2[4]=C_SCHEME_FALSE;
av2[5]=t4;
((C_proc)C_fast_retrieve_proc(t7))(6,av2);}}

/* k12132 */
static void C_ccall f_12134(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_12134,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+16,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12137,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:191: safe-length */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[229]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[229]+1);
av2[1]=t3;
av2[2]=C_i_cddr(((C_word*)t0)[18]);
tp(3,av2);}}

/* k12135 in k12132 */
static void C_ccall f_12137(C_word c,C_word *av){
C_word tmp;
C_word t0=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(68,c,5)))){
C_save_and_reclaim((void *)f_12137,c,av);}
a=C_alloc(68);
t2=((C_word*)t0)[2];
t3=C_a_i_list(&a,2,((C_word*)((C_word*)t2)[2])[1],((C_word*)t2)[3]);
t4=C_a_i_list(&a,2,((C_word*)((C_word*)t2)[4])[1],t3);
t5=C_a_i_list(&a,1,t4);
t6=C_a_i_list(&a,3,((C_word*)((C_word*)t2)[5])[1],((C_word*)((C_word*)t2)[4])[1],t1);
t7=C_a_i_list(&a,2,((C_word*)((C_word*)t2)[6])[1],((C_word*)t2)[3]);
t8=C_a_i_list(&a,2,((C_word*)((C_word*)t2)[4])[1],((C_word*)((C_word*)t2)[4])[1]);
t9=C_a_i_list(&a,2,t7,t8);
t10=C_a_i_list(&a,3,((C_word*)((C_word*)t2)[7])[1],((C_word*)((C_word*)t2)[4])[1],t1);
t11=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_12208,a[2]=t10,a[3]=((C_word*)t2)[8],a[4]=((C_word*)t2)[9],a[5]=((C_word*)t2)[10],a[6]=((C_word*)t2)[11],a[7]=((C_word*)t2)[12],a[8]=t9,a[9]=t6,a[10]=t5,a[11]=((C_word*)t2)[13],a[12]=((C_word*)t2)[14],a[13]=((C_word*)t2)[6],a[14]=((C_word*)t2)[15],a[15]=((C_word*)t2)[4],a[16]=((C_word*)t2)[16],tmp=(C_word)a,a+=17,tmp);
/* synrules.scm:197: process-match */
t12=((C_word*)((C_word*)t2)[17])[1];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t12;
av2[1]=t11;
av2[2]=((C_word*)((C_word*)t2)[6])[1];
av2[3]=C_i_cddr(((C_word*)t2)[18]);
av2[4]=C_SCHEME_TRUE;
av2[5]=((C_word*)t2)[19];
((C_proc)C_fast_retrieve_proc(t12))(6,av2);}}

/* k12182 in k12206 in k12135 in k12132 */
static void C_ccall f_12184(C_word c,C_word *av){
C_word tmp;
C_word t0=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(51,c,1)))){
C_save_and_reclaim((void *)f_12184,c,av);}
a=C_alloc(51);
t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t1);
t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],t2);
t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],t3);
t5=C_a_i_list(&a,4,((C_word*)((C_word*)t0)[6])[1],((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8],t4);
t6=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[9],t5);
t7=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[10],t6);
t8=((C_word*)t0)[11];{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_a_i_list(&a,1,t7);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}

/* k12206 in k12135 in k12132 */
static void C_ccall f_12208(C_word c,C_word *av){
C_word tmp;
C_word t0=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(42,c,3)))){
C_save_and_reclaim((void *)f_12208,c,av);}
a=C_alloc(42);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12184,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);
t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[12])[1],((C_word*)((C_word*)t0)[13])[1]);
t5=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[14])[1],((C_word*)((C_word*)t0)[15])[1],C_fix(-1));
t6=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[7])[1],t4,t5);
t7=C_a_i_list(&a,1,t6);
/* synrules.scm:192: ##sys#append */
t8=*((C_word*)lf[73]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t8;
av2[1]=t3;
av2[2]=((C_word*)t0)[16];
av2[3]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}

/* f_12242 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in ... */
static void C_ccall f_12242(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=7) C_bad_argc_2(c,7,t0);
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_12242,c,av);}
a=C_alloc(16);
if(C_truep(C_i_symbolp(t2))){
t7=C_i_memq(t2,((C_word*)t0)[2]);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12258,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
if(C_truep(t7)){
t9=t8;{
C_word *av2=av;
av2[0]=t9;
av2[1]=t7;
f_12258(2,av2);}}
else{
/* synrules.scm:208: underscore? */
t9=((C_word*)((C_word*)t0)[3])[1];{
C_word *av2=av;
av2[0]=t9;
av2[1]=t8;
av2[2]=t2;
((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}}
else{
t7=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12281,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t4,a[9]=t6,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);
/* synrules.scm:211: segment-pattern? */
t8=((C_word*)((C_word*)t0)[13])[1];{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
av2[2]=t2;
av2[3]=t5;
av2[4]=t6;
((C_proc)C_fast_retrieve_proc(t8))(5,av2);}}}

/* k12256 */
static void C_ccall f_12258(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12258,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12269,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* synrules.scm:210: mapit */
t3=((C_word*)t0)[4];{
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)C_fast_retrieve_proc(t3))(3,av2);}}}

/* k12267 in k12256 */
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 t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_12269,c,av);}
a=C_alloc(9);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list1(&a,1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k12279 */
static void C_ccall f_12281(C_word c,C_word *av){
C_word tmp;
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,6)))){
C_save_and_reclaim((void *)f_12281,c,av);}
a=C_alloc(15);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12284,a[2]=((C_word*)t0)[2],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);
/* synrules.scm:212: safe-length */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[229]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[229]+1);
av2[1]=t2;
av2[2]=C_i_cddr(((C_word*)t0)[2]);
tp(3,av2);}}
else{
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12363,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[3],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);
t3=C_u_i_car(((C_word*)t0)[2]);
t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[14])[1],((C_word*)t0)[3]);
/* synrules.scm:230: process-pattern */
t5=((C_word*)((C_word*)t0)[7])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=t3;
av2[3]=t4;
av2[4]=((C_word*)t0)[8];
av2[5]=C_SCHEME_FALSE;
av2[6]=((C_word*)t0)[9];
((C_proc)C_fast_retrieve_proc(t5))(7,av2);}}
else{
if(C_truep(C_i_vectorp(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12392,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp);
/* synrules.scm:233: scheme#vector->list */
t3=*((C_word*)lf[199]+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)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}}

/* k12282 in k12279 */
static void C_ccall f_12284(C_word c,C_word *av){
C_word tmp;
C_word t0=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(27,c,6)))){
C_save_and_reclaim((void *)f_12284,c,av);}
a=C_alloc(27);
t2=C_i_cddr(((C_word*)t0)[2]);
t3=C_i_listp(t2);
t4=(C_truep(t3)?C_i_zerop(t1):C_SCHEME_FALSE);
t5=(C_truep(t4)?((C_word*)t0)[3]:C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[3],t1));
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12294,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=t1,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);
t7=C_u_i_car(((C_word*)t0)[2]);
t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12310,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[8],a[4]=t5,a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word)li145),tmp=(C_word)a,a+=8,tmp);
/* synrules.scm:218: process-pattern */
t9=((C_word*)((C_word*)t0)[7])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t9;
av2[1]=t6;
av2[2]=t7;
av2[3]=((C_word*)((C_word*)t0)[10])[1];
av2[4]=t8;
av2[5]=C_SCHEME_FALSE;
av2[6]=((C_word*)t0)[9];
((C_proc)C_fast_retrieve_proc(t9))(7,av2);}}

/* k12292 in k12282 in k12279 */
static void C_ccall f_12294(C_word c,C_word *av){
C_word tmp;
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_12294,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12298,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=C_i_cddr(((C_word*)t0)[3]);
t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],((C_word*)t0)[6]);
/* synrules.scm:226: process-pattern */
t5=((C_word*)((C_word*)t0)[7])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=t3;
av2[3]=t4;
av2[4]=((C_word*)t0)[8];
av2[5]=C_SCHEME_TRUE;
av2[6]=((C_word*)t0)[9];
((C_proc)C_fast_retrieve_proc(t5))(7,av2);}}

/* k12296 in k12292 in k12282 in k12279 */
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,3)))){
C_save_and_reclaim((void *)f_12298,c,av);}
/* synrules.scm:217: scheme#append */
t2=*((C_word*)lf[15]+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);}}

/* a12309 in k12282 in k12279 */
static void C_ccall f_12310(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 *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
C_save_and_reclaim((void *)f_12310,c,av);}
a=C_alloc(21);
t3=C_eqp(((C_word*)((C_word*)t0)[2])[1],t2);
if(C_truep(t3)){
/* synrules.scm:221: mapit */
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=((C_word*)t0)[4];
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
t4=C_a_i_list(&a,1,((C_word*)((C_word*)t0)[2])[1]);
t5=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[5])[1],t4,t2);
t6=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[6])[1],t5,((C_word*)t0)[4]);
/* synrules.scm:221: mapit */
t7=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=t1;
av2[2]=t6;
((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}}

/* k12361 in k12279 */
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 t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){
C_save_and_reclaim((void *)f_12363,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12367,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=C_u_i_cdr(((C_word*)t0)[3]);
t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5]);
/* synrules.scm:231: process-pattern */
t5=((C_word*)((C_word*)t0)[6])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=t3;
av2[3]=t4;
av2[4]=((C_word*)t0)[7];
av2[5]=C_SCHEME_FALSE;
av2[6]=((C_word*)t0)[8];
((C_proc)C_fast_retrieve_proc(t5))(7,av2);}}

/* k12365 in k12361 in k12279 */
static void C_ccall f_12367(C_word c,C_word *av){
C_word tmp;
C_word 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_12367,c,av);}
/* synrules.scm:230: scheme#append */
t2=*((C_word*)lf[15]+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);}}

/* k12390 in k12279 */
static void C_ccall f_12392(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12392,c,av);}
a=C_alloc(6);
t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]);
/* synrules.scm:233: process-pattern */
t3=((C_word*)((C_word*)t0)[4])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[5];
av2[2]=t1;
av2[3]=t2;
av2[4]=((C_word*)t0)[6];
av2[5]=C_SCHEME_FALSE;
av2[6]=((C_word*)t0)[7];
((C_proc)C_fast_retrieve_proc(t3))(7,av2);}}

/* f_12398 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in ... */
static void C_ccall f_12398(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_12398,c,av);}
a=C_alloc(17);
if(C_truep(C_i_symbolp(t2))){
t6=C_i_assq(t2,t5);
if(C_truep(t6)){
t7=C_i_cdr(t6);
if(C_truep(C_fixnum_less_or_equal_p(t7,t3))){
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
/* synrules.scm:246: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2=av;
av2[0]=*((C_word*)lf[43]+1);
av2[1]=t1;
av2[2]=lf[259];
av2[3]=t2;
tp(4,av2);}}}
else{
t7=C_a_i_list(&a,2,lf[257],t2);
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[2])[1],t7);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
else{
t6=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_12437,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t5,a[7]=t4,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]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[10],a[15]=((C_word*)t0)[11],a[16]=((C_word*)t0)[12],tmp=(C_word)a,a+=17,tmp);
/* synrules.scm:250: ellipsis-escaped-pattern? */
t7=((C_word*)((C_word*)t0)[13])[1];{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
av2[3]=t4;
((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}}

/* k12435 */
static void C_ccall f_12437(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_12437,c,av);}
a=C_alloc(16);
if(C_truep(t1)){
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_i_pairp(t2);
t4=C_i_not(t3);
t5=(C_truep(t4)?t4:C_i_pairp(C_i_cddr(((C_word*)t0)[2])));
if(C_truep(t5)){
/* synrules.scm:252: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[260];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}
else{
t6=C_i_cadr(((C_word*)t0)[2]);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12458,a[2]=((C_word)li147),tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:253: process-template */
t8=((C_word*)((C_word*)t0)[4])[1];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t8;
av2[1]=((C_word*)t0)[3];
av2[2]=t6;
av2[3]=((C_word*)t0)[5];
av2[4]=t7;
av2[5]=((C_word*)t0)[6];
((C_proc)C_fast_retrieve_proc(t8))(6,av2);}}}
else{
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12480,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[6],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);
/* synrules.scm:254: segment-template? */
t3=((C_word*)((C_word*)t0)[16])[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*)t0)[7];
((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}}

/* a12457 in k12435 */
static void C_ccall f_12458(C_word c,C_word *av){
C_word tmp;
C_word 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_12458,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12478 in k12435 */
static void C_ccall f_12480(C_word c,C_word *av){
C_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,5)))){
C_save_and_reclaim((void *)f_12480,c,av);}
a=C_alloc(12);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12483,a[2]=((C_word*)t0)[2],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);
/* synrules.scm:255: segment-depth */
t3=((C_word*)((C_word*)t0)[12])[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*)t0)[6];
((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}
else{
if(C_truep(C_i_pairp(((C_word*)t0)[4]))){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12603,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* synrules.scm:280: process-template */
t3=((C_word*)((C_word*)t0)[5])[1];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_car(((C_word*)t0)[4]);
av2[3]=((C_word*)t0)[2];
av2[4]=((C_word*)t0)[6];
av2[5]=((C_word*)t0)[7];
((C_proc)C_fast_retrieve_proc(t3))(6,av2);}}
else{
if(C_truep(C_i_vectorp(((C_word*)t0)[4]))){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12624,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[14],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12628,a[2]=((C_word*)t0)[5],a[3]=t2,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);
/* synrules.scm:284: scheme#vector->list */
t4=*((C_word*)lf[199]+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{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[15])[1],((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}}

/* k12481 in k12478 in k12435 */
static void C_ccall f_12483(C_word c,C_word *av){
C_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,6)))){
C_save_and_reclaim((void *)f_12483,c,av);}
a=C_alloc(13);
t2=C_fixnum_plus(((C_word*)t0)[2],t1);
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12489,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],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]=t2,tmp=(C_word)a,a+=13,tmp);
/* synrules.scm:258: free-meta-variables */
t4=((C_word*)((C_word*)t0)[11])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_car(((C_word*)t0)[4]);
av2[3]=t2;
av2[4]=((C_word*)t0)[6];
av2[5]=((C_word*)t0)[7];
av2[6]=C_SCHEME_END_OF_LIST;
((C_proc)C_fast_retrieve_proc(t4))(7,av2);}}

/* k12487 in k12481 in k12478 in k12435 */
static void C_ccall f_12489(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){
C_save_and_reclaim((void *)f_12489,c,av);}
a=C_alloc(13);
if(C_truep(C_i_nullp(t1))){
/* synrules.scm:260: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[261];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12501,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)[8],a[8]=((C_word*)t0)[3],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);
/* synrules.scm:261: process-template */
t3=((C_word*)((C_word*)t0)[4])[1];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_car(((C_word*)t0)[3]);
av2[3]=((C_word*)t0)[12];
av2[4]=((C_word*)t0)[6];
av2[5]=((C_word*)t0)[7];
((C_proc)C_fast_retrieve_proc(t3))(6,av2);}}}

/* k12499 in k12487 in k12481 in k12478 in k12435 */
static void C_ccall f_12501(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_12501,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12504,a[2]=((C_word*)t0)[2],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|6,a[1]=(C_word)f_12551,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],tmp=(C_word)a,a+=7,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[11]))){
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[11])))){
t4=C_i_symbolp(t1);
t5=t3;
f_12551(t5,(C_truep(t4)?C_eqp(t1,C_u_i_car(((C_word*)t0)[11])):C_SCHEME_FALSE));}
else{
t4=t3;
f_12551(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_12551(t4,C_SCHEME_FALSE);}}

/* k12502 in k12499 in k12487 in k12481 in k12478 in k12435 */
static void f_12504(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(16,0,4)))){
C_save_and_reclaim_args((void *)trf_12504,2,t0,t1);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12507,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,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_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_12530,a[2]=t4,a[3]=((C_word)li148),tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_12530(t6,t2,((C_word*)t0)[9],t1);}

/* k12505 in k12502 in k12499 in k12487 in k12481 in k12478 in k12435 */
static void C_ccall f_12507(C_word c,C_word *av){
C_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_12507,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12528,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:275: segment-tail */
t4=((C_word*)((C_word*)t0)[8])[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)[9];
av2[3]=((C_word*)t0)[6];
((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}

/* k12518 in k12526 in k12505 in k12502 in k12499 in k12487 in k12481 in k12478 in k12435 */
static void C_ccall f_12520(C_word c,C_word *av){
C_word tmp;
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_12520,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[73],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12522 in k12526 in k12505 in k12502 in k12499 in k12487 in k12481 in k12478 in k12435 */
static void C_ccall f_12524(C_word c,C_word *av){
C_word tmp;
C_word 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_12524,c,av);}
/* synrules.scm:277: process-template */
t2=((C_word*)((C_word*)t0)[2])[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]=t1;
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
av2[5]=((C_word*)t0)[6];
((C_proc)C_fast_retrieve_proc(t2))(6,av2);}}

/* k12526 in k12505 in k12502 in k12499 in k12487 in k12481 in k12478 in k12435 */
static void C_ccall f_12528(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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_12528,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
if(C_truep(C_i_nullp(t1))){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12520,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12524,a[2]=((C_word*)t2)[4],a[3]=t3,a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],tmp=(C_word)a,a+=7,tmp);
/* synrules.scm:277: segment-tail */
t5=((C_word*)((C_word*)t2)[8])[1];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[9];
av2[3]=((C_word*)t2)[6];
((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}}

/* doloop3822 in k12502 in k12499 in k12487 in k12481 in k12478 in k12435 */
static void f_12530(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_12530,4,t0,t1,t2,t3);}
a=C_alloc(9);
t4=C_eqp(t2,C_fix(1));
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_fixnum_difference(t2,C_fix(1));
t6=C_a_i_list(&a,3,lf[262],lf[73],t3);
t8=t1;
t9=t5;
t10=t6;
t1=t8;
t2=t9;
t3=t10;
goto loop;}}

/* k12549 in k12499 in k12487 in k12481 in k12478 in k12435 */
static void f_12551(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(15,0,1)))){
C_save_and_reclaim_args((void *)trf_12551,2,t0,t1);}
a=C_alloc(15);
if(C_truep(t1)){
t2=((C_word*)t0)[2];
f_12504(t2,((C_word*)t0)[3]);}
else{
t2=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],((C_word*)t0)[3]);
t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[5]);
t4=((C_word*)t0)[2];
f_12504(t4,C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[6])[1],t3));}}

/* k12601 in k12478 in k12435 */
static void C_ccall f_12603(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_12603,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12607,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* synrules.scm:281: process-template */
t3=((C_word*)((C_word*)t0)[4])[1];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_cdr(((C_word*)t0)[5]);
av2[3]=((C_word*)t0)[6];
av2[4]=((C_word*)t0)[7];
av2[5]=((C_word*)t0)[8];
((C_proc)C_fast_retrieve_proc(t3))(6,av2);}}

/* k12605 in k12601 in k12478 in k12435 */
static void C_ccall f_12607(C_word c,C_word *av){
C_word tmp;
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_12607,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,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12622 in k12478 in k12435 */
static void C_ccall f_12624(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_12624,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,((C_word*)((C_word*)t0)[3])[1],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12626 in k12478 in k12435 */
static void C_ccall f_12628(C_word c,C_word *av){
C_word tmp;
C_word 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_12628,c,av);}
/* synrules.scm:284: process-template */
t2=((C_word*)((C_word*)t0)[2])[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]=t1;
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
av2[5]=((C_word*)t0)[6];
((C_proc)C_fast_retrieve_proc(t2))(6,av2);}}

/* f_12636 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 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=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=7) C_bad_argc_2(c,7,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_12636,c,av);}
a=C_alloc(8);
if(C_truep(C_i_symbolp(t2))){
t7=C_i_memq(t2,((C_word*)t0)[2]);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12652,a[2]=t1,a[3]=t5,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
if(C_truep(t7)){
t9=t8;{
C_word *av2=av;
av2[0]=t9;
av2[1]=t7;
f_12652(2,av2);}}
else{
/* synrules.scm:293: underscore? */
t9=((C_word*)((C_word*)t0)[3])[1];{
C_word *av2=av;
av2[0]=t9;
av2[1]=t8;
av2[2]=t2;
((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}}
else{
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12671,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp);
/* synrules.scm:296: segment-pattern? */
t8=((C_word*)((C_word*)t0)[5])[1];{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
av2[2]=t2;
av2[3]=t6;
av2[4]=t4;
((C_proc)C_fast_retrieve_proc(t8))(5,av2);}}}

/* k12650 */
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(6,c,1)))){
C_save_and_reclaim((void *)f_12652,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_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k12669 */
static void C_ccall f_12671(C_word c,C_word *av){
C_word tmp;
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,6)))){
C_save_and_reclaim((void *)f_12671,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1));
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12686,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* synrules.scm:298: meta-variables */
t5=((C_word*)((C_word*)t0)[4])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_cddr(((C_word*)t0)[2]);
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[6];
av2[5]=((C_word*)t0)[7];
av2[6]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t5))(7,av2);}}
else{
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t2=C_u_i_car(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12705,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* synrules.scm:301: meta-variables */
t4=((C_word*)((C_word*)t0)[4])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_cdr(((C_word*)t0)[2]);
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[6];
av2[5]=((C_word*)t0)[7];
av2[6]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t4))(7,av2);}}
else{
if(C_truep(C_i_vectorp(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12720,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);
/* synrules.scm:303: scheme#vector->list */
t3=*((C_word*)lf[199]+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)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}}

/* k12684 in k12669 */
static void C_ccall f_12686(C_word c,C_word *av){
C_word tmp;
C_word 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_12686,c,av);}
/* synrules.scm:297: meta-variables */
t2=((C_word*)((C_word*)t0)[2])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=((C_word*)t0)[6];
av2[5]=t1;
av2[6]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t2))(7,av2);}}

/* k12703 in k12669 */
static void C_ccall f_12705(C_word c,C_word *av){
C_word tmp;
C_word 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_12705,c,av);}
/* synrules.scm:300: meta-variables */
t2=((C_word*)((C_word*)t0)[2])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=((C_word*)t0)[6];
av2[5]=t1;
av2[6]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t2))(7,av2);}}

/* k12718 in k12669 */
static void C_ccall f_12720(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_12720,c,av);}
/* synrules.scm:303: meta-variables */
t2=((C_word*)((C_word*)t0)[2])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
av2[5]=((C_word*)t0)[6];
av2[6]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t2))(7,av2);}}

/* f_12722 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in ... */
static void C_ccall f_12722(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(c!=7) C_bad_argc_2(c,7,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_12722,c,av);}
a=C_alloc(9);
if(C_truep(C_i_symbolp(t2))){
t7=C_i_memq(t2,t6);
if(C_truep(C_i_not(t7))){
t8=C_i_assq(t2,t5);
if(C_truep(t8)){
t9=C_i_cdr(t8);
t10=C_fixnum_greater_or_equal_p(t9,t3);
t11=t1;{
C_word *av2=av;
av2[0]=t11;
av2[1]=(C_truep(t10)?C_a_i_cons(&a,2,t2,t6):t6);
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
else{
t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12764,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,tmp=(C_word)a,a+=9,tmp);
/* synrules.scm:315: segment-template? */
t8=((C_word*)((C_word*)t0)[3])[1];{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
av2[2]=t2;
av2[3]=t4;
((C_proc)C_fast_retrieve_proc(t8))(4,av2);}}}

/* k12762 */
static void C_ccall f_12764(C_word c,C_word *av){
C_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,6)))){
C_save_and_reclaim((void *)f_12764,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12775,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],tmp=(C_word)a,a+=8,tmp);
/* synrules.scm:318: free-meta-variables */
t4=((C_word*)((C_word*)t0)[3])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_cddr(((C_word*)t0)[2]);
av2[3]=((C_word*)t0)[5];
av2[4]=((C_word*)t0)[6];
av2[5]=((C_word*)t0)[7];
av2[6]=((C_word*)t0)[8];
((C_proc)C_fast_retrieve_proc(t4))(7,av2);}}
else{
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t2=C_u_i_car(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12794,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],tmp=(C_word)a,a+=8,tmp);
/* synrules.scm:323: free-meta-variables */
t4=((C_word*)((C_word*)t0)[3])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_cdr(((C_word*)t0)[2]);
av2[3]=((C_word*)t0)[5];
av2[4]=((C_word*)t0)[6];
av2[5]=((C_word*)t0)[7];
av2[6]=((C_word*)t0)[8];
((C_proc)C_fast_retrieve_proc(t4))(7,av2);}}
else{
if(C_truep(C_i_vectorp(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12809,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);
/* synrules.scm:326: scheme#vector->list */
t3=*((C_word*)lf[199]+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)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}}

/* k12773 in k12762 */
static void C_ccall f_12775(C_word c,C_word *av){
C_word tmp;
C_word 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_12775,c,av);}
/* synrules.scm:316: free-meta-variables */
t2=((C_word*)((C_word*)t0)[2])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=((C_word*)t0)[6];
av2[5]=((C_word*)t0)[7];
av2[6]=t1;
((C_proc)C_fast_retrieve_proc(t2))(7,av2);}}

/* k12792 in k12762 */
static void C_ccall f_12794(C_word c,C_word *av){
C_word tmp;
C_word 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_12794,c,av);}
/* synrules.scm:321: free-meta-variables */
t2=((C_word*)((C_word*)t0)[2])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=((C_word*)t0)[6];
av2[5]=((C_word*)t0)[7];
av2[6]=t1;
((C_proc)C_fast_retrieve_proc(t2))(7,av2);}}

/* k12807 in k12762 */
static void C_ccall f_12809(C_word c,C_word *av){
C_word tmp;
C_word 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_12809,c,av);}
/* synrules.scm:326: free-meta-variables */
t2=((C_word*)((C_word*)t0)[2])[1];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
av2[5]=((C_word*)t0)[6];
av2[6]=((C_word*)t0)[7];
((C_proc)C_fast_retrieve_proc(t2))(7,av2);}}

/* f_12811 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in ... */
static void C_ccall f_12811(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12811,c,av);}
if(C_truep(C_i_pairp(t2))){
/* synrules.scm:330: el? */
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=C_u_i_car(t2);
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* f_12825 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in ... */
static void C_ccall f_12825(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_12825,c,av);}
a=C_alloc(5);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12832,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* synrules.scm:333: segment-template? */
t6=((C_word*)((C_word*)t0)[2])[1];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
av2[3]=t4;
((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}

/* k12830 */
static void C_ccall f_12832(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12832,c,av);}
if(C_truep(t1)){
if(C_truep(((C_word*)t0)[2])){
/* synrules.scm:335: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[263];
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* f_12840 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in ... */
static void C_ccall f_12840(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12840,c,av);}
if(C_truep(C_i_pairp(t2))){
if(C_truep(C_i_pairp(C_u_i_cdr(t2)))){
/* synrules.scm:339: g3878 */
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=C_i_cadr(t2);
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* f_12867 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in ... */
static void C_ccall f_12867(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_12867,c,av);}
a=C_alloc(6);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12874,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* synrules.scm:346: segment-template? */
t5=((C_word*)((C_word*)t0)[3])[1];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
av2[3]=t3;
((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}

/* k12872 */
static void C_ccall f_12874(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12874,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12881,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* synrules.scm:347: segment-depth */
t3=((C_word*)((C_word*)t0)[3])[1];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cdr(((C_word*)t0)[4]);
av2[3]=((C_word*)t0)[5];
((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_fix(0);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k12879 in k12872 */
static void C_ccall f_12881(C_word c,C_word *av){
C_word tmp;
C_word 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_12881,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_fixnum_plus(C_fix(1),t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* f_12887 in k11769 in k11765 in k11761 in k11757 in k11753 in k11748 in k11744 in k11740 in k11736 in k11731 in k11724 in k11720 in k11716 in k11712 in k11708 in k11704 in k11700 in k11694 in k11689 in k11685 in k11670 in ... */
static void C_ccall f_12887(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!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_12887,c,av);}
a=C_alloc(7);
t4=C_i_cdr(t2);
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_12897,a[2]=t6,a[3]=t3,a[4]=((C_word)li156),tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_12897(t8,t1,t4);}

/* loop */
static void f_12897(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_12897,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12904,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_pairp(t2))){
/* synrules.scm:354: g3887 */
t4=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_car(t2);
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k12902 in loop */
static void C_ccall f_12904(C_word c,C_word *av){
C_word tmp;
C_word 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_12904,c,av);}
if(C_truep(t1)){
/* synrules.scm:356: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_12897(t2,((C_word*)t0)[3],C_i_cdr(((C_word*)t0)[4]));}
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);}}}

/* k12926 in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
static void C_ccall f_12928(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_12928,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[18]+1 /* (set! ##sys#scheme-macro-environment ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12932,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12947,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1863: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word *av2=av;
av2[0]=*((C_word*)lf[17]+1);
av2[1]=t4;
tp(2,av2);}}

/* k12930 in k12926 in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_12932(C_word c,C_word *av){
C_word tmp;
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_12932,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[92]+1 /* (set! ##sys#default-macro-environment ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12936,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12943,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1865: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word *av2=av;
av2[0]=*((C_word*)lf[17]+1);
av2[1]=t4;
tp(2,av2);}}

/* k12934 in k12930 in k12926 in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_12936(C_word c,C_word *av){
C_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_12936,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[231]+1 /* (set! ##sys#meta-macro-environment ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12939,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1869: chicken.platform#register-feature! */
t4=C_fast_retrieve(lf[232]);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[233];
av2[3]=lf[234];
av2[4]=lf[235];
av2[5]=lf[236];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}

/* k12937 in k12934 in k12930 in k12926 in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in ... */
static void C_ccall f_12939(C_word c,C_word *av){
C_word tmp;
C_word 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_12939,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12941 in k12930 in k12926 in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_12943(C_word c,C_word *av){
C_word tmp;
C_word 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_12943,c,av);}
/* expand.scm:1865: scheme#make-parameter */
t2=C_fast_retrieve(lf[237]);{
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);}}

/* k12945 in k12926 in k11565 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_12947(C_word c,C_word *av){
C_word tmp;
C_word 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_12947,c,av);}
/* expand.scm:1863: chicken.internal#fixup-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[238]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[238]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k12949 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in ... */
static void C_ccall f_12951(C_word c,C_word *av){
C_word tmp;
C_word 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_12951,c,av);}
/* synrules.scm:41: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[240];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in ... */
static void C_ccall f_12953(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_12953,c,av);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12957,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* synrules.scm:46: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[240];
av2[3]=t2;
av2[4]=lf[275];
tp(5,av2);}}

/* k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
static void C_ccall f_12957(C_word c,C_word *av){
C_word tmp;
C_word t0=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(20,c,4)))){
C_save_and_reclaim((void *)f_12957,c,av);}
a=C_alloc(20);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_u_i_cdr(((C_word*)t0)[2]);
t6=C_u_i_cdr(t5);
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=lf[241];
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12965,a[2]=t9,a[3]=t7,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);
if(C_truep(C_i_symbolp(((C_word*)t4)[1]))){
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12974,a[2]=t9,a[3]=t4,a[4]=t7,a[5]=t10,tmp=(C_word)a,a+=6,tmp);
/* synrules.scm:51: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t11;
av2[2]=lf[240];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[274];
tp(5,av2);}}
else{
t11=t10;
f_12965(t11,C_SCHEME_UNDEFINED);}}

/* k12963 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void f_12965(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 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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(155,0,2)))){
C_save_and_reclaim_args((void *)trf_12965,2,t0,t1);}
a=C_alloc(155);
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_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_SCHEME_UNDEFINED;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_SCHEME_UNDEFINED;
t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp);
t19=C_SCHEME_UNDEFINED;
t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp);
t21=C_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_SCHEME_UNDEFINED;
t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp);
t29=C_SCHEME_UNDEFINED;
t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp);
t31=C_SCHEME_UNDEFINED;
t32=(*a=C_VECTOR_TYPE|1,a[1]=t31,tmp=(C_word)a,a+=2,tmp);
t33=C_SCHEME_UNDEFINED;
t34=(*a=C_VECTOR_TYPE|1,a[1]=t33,tmp=(C_word)a,a+=2,tmp);
t35=C_SCHEME_UNDEFINED;
t36=(*a=C_VECTOR_TYPE|1,a[1]=t35,tmp=(C_word)a,a+=2,tmp);
t37=C_SCHEME_UNDEFINED;
t38=(*a=C_VECTOR_TYPE|1,a[1]=t37,tmp=(C_word)a,a+=2,tmp);
t39=C_SCHEME_UNDEFINED;
t40=(*a=C_VECTOR_TYPE|1,a[1]=t39,tmp=(C_word)a,a+=2,tmp);
t41=C_SCHEME_UNDEFINED;
t42=(*a=C_VECTOR_TYPE|1,a[1]=t41,tmp=(C_word)a,a+=2,tmp);
t43=C_SCHEME_UNDEFINED;
t44=(*a=C_VECTOR_TYPE|1,a[1]=t43,tmp=(C_word)a,a+=2,tmp);
t45=C_SCHEME_UNDEFINED;
t46=(*a=C_VECTOR_TYPE|1,a[1]=t45,tmp=(C_word)a,a+=2,tmp);
t47=C_SCHEME_UNDEFINED;
t48=(*a=C_VECTOR_TYPE|1,a[1]=t47,tmp=(C_word)a,a+=2,tmp);
t49=C_SCHEME_UNDEFINED;
t50=(*a=C_VECTOR_TYPE|1,a[1]=t49,tmp=(C_word)a,a+=2,tmp);
t51=C_SCHEME_UNDEFINED;
t52=(*a=C_VECTOR_TYPE|1,a[1]=t51,tmp=(C_word)a,a+=2,tmp);
t53=C_SCHEME_UNDEFINED;
t54=(*a=C_VECTOR_TYPE|1,a[1]=t53,tmp=(C_word)a,a+=2,tmp);
t55=C_SCHEME_UNDEFINED;
t56=(*a=C_VECTOR_TYPE|1,a[1]=t55,tmp=(C_word)a,a+=2,tmp);
t57=C_SCHEME_UNDEFINED;
t58=(*a=C_VECTOR_TYPE|1,a[1]=t57,tmp=(C_word)a,a+=2,tmp);
t59=C_SCHEME_UNDEFINED;
t60=(*a=C_VECTOR_TYPE|1,a[1]=t59,tmp=(C_word)a,a+=2,tmp);
t61=C_SCHEME_UNDEFINED;
t62=(*a=C_VECTOR_TYPE|1,a[1]=t61,tmp=(C_word)a,a+=2,tmp);
t63=C_SCHEME_UNDEFINED;
t64=(*a=C_VECTOR_TYPE|1,a[1]=t63,tmp=(C_word)a,a+=2,tmp);
t65=C_SCHEME_UNDEFINED;
t66=(*a=C_VECTOR_TYPE|1,a[1]=t65,tmp=(C_word)a,a+=2,tmp);
t67=C_SCHEME_UNDEFINED;
t68=(*a=C_VECTOR_TYPE|1,a[1]=t67,tmp=(C_word)a,a+=2,tmp);
t69=C_SCHEME_UNDEFINED;
t70=(*a=C_VECTOR_TYPE|1,a[1]=t69,tmp=(C_word)a,a+=2,tmp);
t71=C_SCHEME_UNDEFINED;
t72=(*a=C_VECTOR_TYPE|1,a[1]=t71,tmp=(C_word)a,a+=2,tmp);
t73=C_SCHEME_UNDEFINED;
t74=(*a=C_VECTOR_TYPE|1,a[1]=t73,tmp=(C_word)a,a+=2,tmp);
t75=C_SCHEME_UNDEFINED;
t76=(*a=C_VECTOR_TYPE|1,a[1]=t75,tmp=(C_word)a,a+=2,tmp);
t77=C_SCHEME_UNDEFINED;
t78=(*a=C_VECTOR_TYPE|1,a[1]=t77,tmp=(C_word)a,a+=2,tmp);
t79=C_SCHEME_UNDEFINED;
t80=(*a=C_VECTOR_TYPE|1,a[1]=t79,tmp=(C_word)a,a+=2,tmp);
t81=C_SCHEME_UNDEFINED;
t82=(*a=C_VECTOR_TYPE|1,a[1]=t81,tmp=(C_word)a,a+=2,tmp);
t83=C_SCHEME_UNDEFINED;
t84=(*a=C_VECTOR_TYPE|1,a[1]=t83,tmp=(C_word)a,a+=2,tmp);
t85=C_SCHEME_UNDEFINED;
t86=(*a=C_VECTOR_TYPE|1,a[1]=t85,tmp=(C_word)a,a+=2,tmp);
t87=C_SCHEME_UNDEFINED;
t88=(*a=C_VECTOR_TYPE|1,a[1]=t87,tmp=(C_word)a,a+=2,tmp);
t89=C_SCHEME_UNDEFINED;
t90=(*a=C_VECTOR_TYPE|1,a[1]=t89,tmp=(C_word)a,a+=2,tmp);
t91=C_SCHEME_UNDEFINED;
t92=(*a=C_VECTOR_TYPE|1,a[1]=t91,tmp=(C_word)a,a+=2,tmp);
t93=C_SCHEME_UNDEFINED;
t94=(*a=C_VECTOR_TYPE|1,a[1]=t93,tmp=(C_word)a,a+=2,tmp);
t95=C_SCHEME_UNDEFINED;
t96=(*a=C_VECTOR_TYPE|1,a[1]=t95,tmp=(C_word)a,a+=2,tmp);
t97=C_SCHEME_UNDEFINED;
t98=(*a=C_VECTOR_TYPE|1,a[1]=t97,tmp=(C_word)a,a+=2,tmp);
t99=C_SCHEME_UNDEFINED;
t100=(*a=C_VECTOR_TYPE|1,a[1]=t99,tmp=(C_word)a,a+=2,tmp);
t101=C_SCHEME_UNDEFINED;
t102=(*a=C_VECTOR_TYPE|1,a[1]=t101,tmp=(C_word)a,a+=2,tmp);
t103=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11672,a[2]=t62,a[3]=t64,a[4]=t66,a[5]=t68,a[6]=t70,a[7]=t72,a[8]=t74,a[9]=((C_word*)t0)[5],a[10]=t76,a[11]=((C_word*)t0)[6],a[12]=t78,a[13]=t36,a[14]=t58,a[15]=t24,a[16]=t10,a[17]=t60,a[18]=t26,a[19]=t44,a[20]=t42,a[21]=t80,a[22]=t30,a[23]=t6,a[24]=t46,a[25]=t88,a[26]=t90,a[27]=t86,a[28]=t82,a[29]=t4,a[30]=t84,a[31]=t54,a[32]=t8,a[33]=t12,a[34]=t14,a[35]=t32,a[36]=t34,a[37]=t96,a[38]=t40,a[39]=t18,a[40]=t38,a[41]=t20,a[42]=t48,a[43]=t22,a[44]=t50,a[45]=t102,a[46]=t52,a[47]=t92,a[48]=t100,a[49]=t28,a[50]=t16,a[51]=t56,a[52]=t98,a[53]=t94,a[54]=((C_word*)t0)[7],a[55]=t3,a[56]=t2,tmp=(C_word)a,a+=57,tmp);
/* synrules.scm:94: r */
t104=((C_word*)t0)[6];{
C_word av2[3];
av2[0]=t104;
av2[1]=t103;
av2[2]=lf[209];
((C_proc)C_fast_retrieve_proc(t104))(3,av2);}}

/* k12972 in k12955 in a12952 in k11562 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_12974(C_word c,C_word *av){
C_word tmp;
C_word t0=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(0,c,1)))){
C_save_and_reclaim((void *)f_12974,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_i_car(((C_word*)((C_word*)t0)[4])[1]);
t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
t5=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]);
t6=C_mutate(((C_word *)((C_word*)t0)[4])+1,t5);
t7=((C_word*)t0)[5];
f_12965(t7,t6);}

/* k12985 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in ... */
static void C_ccall f_12987(C_word c,C_word *av){
C_word tmp;
C_word 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_12987,c,av);}
/* expand.scm:1845: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[276];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a12988 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in ... */
static void C_ccall f_12989(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12989,c,av);}
a=C_alloc(4);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12993,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1850: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[276];
av2[3]=t2;
av2[4]=lf[277];
tp(5,av2);}}

/* k12991 in a12988 in k11559 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in ... */
static void C_ccall f_12993(C_word c,C_word *av){
C_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,4)))){
C_save_and_reclaim((void *)f_12993,c,av);}
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_u_i_cdr(((C_word*)t0)[2]);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=C_fast_retrieve(lf[43]);
av2[3]=t2;
av2[4]=C_u_i_cdr(t3);
C_apply(5,av2);}}

/* k13005 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in ... */
static void C_ccall f_13007(C_word c,C_word *av){
C_word tmp;
C_word 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_13007,c,av);}
/* expand.scm:1834: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[278];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a13008 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in ... */
static void C_ccall f_13009(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_13009,c,av);}
a=C_alloc(4);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13013,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1839: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[278];
av2[3]=t2;
av2[4]=lf[281];
tp(5,av2);}}

/* k13011 in a13008 in k11556 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in ... */
static void C_ccall f_13013(C_word c,C_word *av){
C_word tmp;
C_word t0=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(39,c,1)))){
C_save_and_reclaim((void *)f_13013,c,av);}
a=C_alloc(39);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_a_i_list(&a,3,lf[75],C_SCHEME_END_OF_LIST,t2);
t4=C_a_i_list(&a,3,lf[94],t3,lf[279]);
t5=C_a_i_list(&a,2,lf[280],t4);
t6=C_a_i_list(&a,3,lf[75],C_SCHEME_END_OF_LIST,t5);
t7=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_i_list(&a,2,lf[280],t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* k13038 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in ... */
static void C_ccall f_13040(C_word c,C_word *av){
C_word tmp;
C_word 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_13040,c,av);}
/* expand.scm:1782: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[282];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in ... */
static void C_ccall f_13042(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_13042,c,av);}
a=C_alloc(7);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13046,a[2]=C_SCHEME_UNDEFINED,a[3]=t4,a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
/* expand.scm:1787: r */
t6=t3;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[282];
((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}

/* k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in ... */
static void C_ccall f_13046(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_13046,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13049,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1788: r */
t4=((C_word*)t0)[6];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[283];
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in ... */
static void C_ccall f_13049(C_word c,C_word *av){
C_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_13049,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13052,a[2]=t1,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],tmp=(C_word)a,a+=7,tmp);
/* expand.scm:1789: r */
t4=((C_word*)t2)[6];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[285];
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in ... */
static void C_ccall f_13052(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13052,c,av);}
a=C_alloc(28);
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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13054,a[2]=t7,a[3]=t5,a[4]=((C_word)li161),tmp=(C_word)a,a+=5,tmp));
t9=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13064,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word)li162),tmp=(C_word)a,a+=8,tmp));
t10=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13227,a[2]=t7,a[3]=((C_word)li165),tmp=(C_word)a,a+=4,tmp));
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13322,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1831: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t11;
av2[2]=lf[282];
av2[3]=((C_word*)t0)[6];
av2[4]=lf[295];
tp(5,av2);}}

/* walk in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
static void f_13054(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,3)))){
C_save_and_reclaim_args((void *)trf_13054,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13062,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1790: walk1 */
t5=((C_word*)((C_word*)t0)[3])[1];
f_13064(t5,t4,t2,t3);}

/* k13060 in walk in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_13062(C_word c,C_word *av){
C_word tmp;
C_word 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_13062,c,av);}
/* expand.scm:1790: simplify */
t2=((C_word*)((C_word*)t0)[2])[1];
f_13227(t2,((C_word*)t0)[3],t1);}

/* walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
static void f_13064(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_13064,4,t0,t1,t2,t3);}
a=C_alloc(12);
if(C_truep(C_i_vectorp(t2))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13078,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13082,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1793: scheme#vector->list */
t6=*((C_word*)lf[199]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t4=C_i_pairp(t2);
if(C_truep(C_i_not(t4))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_a_i_list(&a,2,lf[74],t2);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_i_car(t2);
t6=C_u_i_cdr(t2);
t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13101,a[2]=t3,a[3]=t1,a[4]=t6,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[4],a[9]=t5,a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],tmp=(C_word)a,a+=12,tmp);
/* expand.scm:1798: c */
t8=((C_word*)t0)[6];{
C_word av2[4];
av2[0]=t8;
av2[1]=t7;
av2[2]=((C_word*)t0)[3];
av2[3]=t5;
((C_proc)C_fast_retrieve_proc(t8))(4,av2);}}}}

/* k13076 in walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_13078(C_word c,C_word *av){
C_word tmp;
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_13078,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[246],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13080 in walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_13082(C_word c,C_word *av){
C_word tmp;
C_word 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_13082,c,av);}
/* expand.scm:1793: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_13054(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);}

/* k13099 in walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_13101(C_word c,C_word *av){
C_word tmp;
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,4)))){
C_save_and_reclaim((void *)f_13101,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=C_eqp(((C_word*)t0)[2],C_fix(0));
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13110,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1800: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t3;
av2[2]=lf[283];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[284];
tp(5,av2);}}
else{
t3=C_a_i_list(&a,2,lf[74],((C_word*)t0)[6]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13124,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1803: walk */
t5=((C_word*)((C_word*)t0)[7])[1];
f_13054(t5,t4,((C_word*)t0)[4],C_fixnum_difference(((C_word*)t0)[2],C_fix(1)));}}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13134,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],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);
/* expand.scm:1804: c */
t3=((C_word*)t0)[11];{
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)C_fast_retrieve_proc(t3))(4,av2);}}}

/* k13108 in k13099 in walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_13110(C_word c,C_word *av){
C_word tmp;
C_word 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_13110,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13122 in k13099 in walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_13124(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_13124,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,lf[250],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13132 in k13099 in walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_13134(C_word c,C_word *av){
C_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_13134,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=C_a_i_list(&a,2,lf[74],((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13145,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1806: walk */
t4=((C_word*)((C_word*)t0)[4])[1];
f_13054(t4,t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[6],C_fix(1)));}
else{
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13155,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[7]))){
/* expand.scm:1807: c */
t3=((C_word*)t0)[9];{
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_u_i_car(((C_word*)t0)[7]);
((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_13155(2,av2);}}}}

/* k13143 in k13132 in k13099 in walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in ... */
static void C_ccall f_13145(C_word c,C_word *av){
C_word tmp;
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_13145,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,lf[250],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13153 in k13132 in k13099 in walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in ... */
static void C_ccall f_13155(C_word c,C_word *av){
C_word tmp;
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_13155,c,av);}
a=C_alloc(13);
if(C_truep(t1)){
t2=C_eqp(((C_word*)t0)[2],C_fix(0));
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13164,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
/* expand.scm:1809: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t3;
av2[2]=lf[285];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[286];
tp(5,av2);}}
else{
t3=C_a_i_list(&a,2,lf[74],((C_word*)t0)[7]);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13194,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)[2],tmp=(C_word)a,a+=7,tmp);
/* expand.scm:1814: walk */
t5=((C_word*)((C_word*)t0)[5])[1];
f_13054(t5,t4,C_i_cdr(((C_word*)t0)[3]),C_fixnum_difference(((C_word*)t0)[2],C_fix(1)));}}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13209,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1817: walk */
t3=((C_word*)((C_word*)t0)[5])[1];
f_13054(t3,t2,((C_word*)t0)[3],((C_word*)t0)[2]);}}

/* k13162 in k13153 in k13132 in k13099 in walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in ... */
static void C_ccall f_13164(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_13164,c,av);}
a=C_alloc(4);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13175,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1810: walk */
t4=((C_word*)((C_word*)t0)[4])[1];
f_13054(t4,t3,((C_word*)t0)[5],((C_word*)t0)[6]);}

/* k13173 in k13162 in k13153 in k13132 in k13099 in walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in ... */
static void C_ccall f_13175(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_13175,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[73],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13184 in k13192 in k13153 in k13132 in k13099 in walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in ... */
static void C_ccall f_13186(C_word c,C_word *av){
C_word tmp;
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_13186,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[250],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13192 in k13153 in k13132 in k13099 in walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in ... */
static void C_ccall f_13194(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_13194,c,av);}
a=C_alloc(13);
t2=C_a_i_list(&a,3,lf[250],((C_word*)t0)[2],t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13186,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1815: walk */
t4=((C_word*)((C_word*)t0)[4])[1];
f_13054(t4,t3,((C_word*)t0)[5],((C_word*)t0)[6]);}

/* k13207 in k13153 in k13132 in k13099 in walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in ... */
static void C_ccall f_13209(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13209,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13213,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1817: walk */
t3=((C_word*)((C_word*)t0)[3])[1];
f_13054(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k13211 in k13207 in k13153 in k13132 in k13099 in walk1 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in ... */
static void C_ccall f_13213(C_word c,C_word *av){
C_word tmp;
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_13213,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[250],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* simplify in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
static void f_13227(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_13227,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13231,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1819: chicken.syntax#match-expression */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[120]);
C_word av2[5];
av2[0]=*((C_word*)lf[120]+1);
av2[1]=t3;
av2[2]=t2;
av2[3]=lf[293];
av2[4]=lf[294];
tp(5,av2);}}

/* k13229 in simplify in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_13231(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13231,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13235,a[2]=((C_word*)t0)[2],a[3]=((C_word)li163),tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1819: g3523 */
t3=t2;
f_13235(t3,((C_word*)t0)[3],t1);}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13257,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);
/* expand.scm:1821: chicken.syntax#match-expression */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[120]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[120]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[291];
av2[4]=lf[292];
tp(5,av2);}}}

/* g3523 in k13229 in simplify in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void f_13235(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,2)))){
C_save_and_reclaim_args((void *)trf_13235,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_i_assq(lf[287],t2);
t4=C_i_cdr(t3);
t5=C_a_i_list(&a,2,lf[279],t4);
/* expand.scm:1820: simplify */
t6=((C_word*)((C_word*)t0)[2])[1];
f_13227(t6,t1,t5);}

/* k13255 in k13229 in simplify in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_13257(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13257,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13261,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li164),tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1819: g3530 */
t3=t2;
f_13261(t3,((C_word*)t0)[4],t1);}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13304,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1828: chicken.syntax#match-expression */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[120]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[120]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[289];
av2[4]=lf[290];
tp(5,av2);}}}

/* g3530 in k13255 in k13229 in simplify in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in ... */
static void f_13261(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;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_13261,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_i_assq(lf[288],t2);
t4=C_i_length(t3);
if(C_truep(C_fixnum_lessp(t4,C_fix(32)))){
t5=C_i_assq(lf[287],t2);
t6=C_i_cdr(t5);
t7=C_i_cdr(t3);
t8=C_a_i_cons(&a,2,t6,t7);
t9=C_a_i_cons(&a,2,lf[279],t8);
/* expand.scm:1825: simplify */
t10=((C_word*)((C_word*)t0)[2])[1];
f_13227(t10,t1,t9);}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k13302 in k13255 in k13229 in simplify in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in ... */
static void C_ccall f_13304(C_word c,C_word *av){
C_word tmp;
C_word 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_13304,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?C_i_cdr(C_i_assq(lf[287],t1)):((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13320 in k13050 in k13047 in k13044 in a13041 in k11553 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13322,c,av);}
/* expand.scm:1832: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_13054(t2,((C_word*)t0)[3],C_i_cadr(((C_word*)t0)[4]),C_fix(0));}

/* k13331 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in ... */
static void C_ccall f_13333(C_word c,C_word *av){
C_word tmp;
C_word 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_13333,c,av);}
/* expand.scm:1753: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[296];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a13334 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in ... */
static void C_ccall f_13335(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_13335,c,av);}
a=C_alloc(5);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13339,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1758: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[296];
av2[3]=t2;
av2[4]=lf[301];
tp(5,av2);}}

/* k13337 in a13334 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in ... */
static void C_ccall f_13339(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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(6,c,2)))){
C_save_and_reclaim((void *)f_13339,c,av);}
a=C_alloc(6);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_i_caddr(((C_word*)t0)[2]);
t4=C_u_i_cdr(((C_word*)t0)[2]);
t5=C_u_i_cdr(t4);
t6=C_u_i_cdr(t5);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13351,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t6,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1762: r */
t8=((C_word*)t0)[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=lf[300];
((C_proc)C_fast_retrieve_proc(t8))(3,av2);}}

/* k13349 in k13337 in a13334 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 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 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(20,c,3)))){
C_save_and_reclaim((void *)f_13351,c,av);}
a=C_alloc(20);
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[16]);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13379,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],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|5,a[1]=(C_word)f_13493,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li168),tmp=(C_word)a,a+=6,tmp));
t11=((C_word*)t9)[1];
f_13493(t11,t7,((C_word*)t0)[2]);}

/* k13377 in k13349 in k13337 in a13334 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in ... */
static void C_ccall f_13379(C_word c,C_word *av){
C_word tmp;
C_word t0=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(17,c,2)))){
C_save_and_reclaim((void *)f_13379,c,av);}
a=C_alloc(17);
t2=C_i_car(((C_word*)t0)[2]);
t3=C_u_i_cdr(((C_word*)t0)[2]);
t4=C_eqp(t3,C_SCHEME_END_OF_LIST);
t5=(C_truep(t4)?lf[297]:C_a_i_cons(&a,2,lf[103],t3));
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13400,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
t7=C_eqp(((C_word*)t0)[6],C_SCHEME_END_OF_LIST);
if(C_truep(t7)){
t8=t6;
f_13400(t8,lf[299]);}
else{
t8=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[6]);
t9=t6;
f_13400(t9,C_a_i_cons(&a,2,lf[50],t8));}}

/* k13398 in k13377 in k13349 in k13337 in a13334 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in ... */
static void f_13400(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){
C_save_and_reclaim_args((void *)trf_13400,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=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13441,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);
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|5,a[1]=(C_word)f_13443,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li167),tmp=(C_word)a,a+=6,tmp));
t10=((C_word*)t8)[1];
f_13443(t10,t6,((C_word*)t0)[7]);}

/* k13439 in k13398 in k13377 in k13349 in k13337 in a13334 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
static void C_ccall f_13441(C_word c,C_word *av){
C_word tmp;
C_word t0=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(39,c,1)))){
C_save_and_reclaim((void *)f_13441,c,av);}
a=C_alloc(39);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,lf[53],t2);
t4=C_a_i_list(&a,3,lf[103],((C_word*)t0)[3],t3);
t5=C_a_i_list(&a,4,lf[298],((C_word*)t0)[4],((C_word*)t0)[5],t4);
t6=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_a_i_list(&a,4,lf[50],((C_word*)t0)[2],((C_word*)t0)[7],t5);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* map-loop3435 in k13398 in k13377 in k13349 in k13337 in a13334 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
static void f_13443(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;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_13443,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_13453,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_i_cdr(t4);
t6=C_i_cdr(t5);
t7=C_eqp(t6,C_SCHEME_END_OF_LIST);
if(C_truep(t7)){
t8=C_u_i_car(t4);
t9=t3;
f_13453(t9,C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST));}
else{
t8=C_i_cdr(C_u_i_cdr(t4));
t9=C_i_car(t8);
t10=t3;
f_13453(t10,C_a_i_cons(&a,2,t9,C_SCHEME_END_OF_LIST));}}
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);}}}

/* k13451 in map-loop3435 in k13398 in k13377 in k13349 in k13337 in a13334 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void f_13453(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(0,0,2)))){
C_save_and_reclaim_args((void *)trf_13453,2,t0,t1);}
t2=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t1);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t4=((C_word*)((C_word*)t0)[3])[1];
f_13443(t4,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* map-loop3401 in k13349 in k13337 in a13334 in k11550 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in ... */
static void f_13493(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(9,0,2)))){
C_save_and_reclaim_args((void *)trf_13493,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_i_car(C_u_i_cdr(t3));
t6=C_a_i_list2(&a,2,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);}}}

/* k13527 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in ... */
static void C_ccall f_13529(C_word c,C_word *av){
C_word tmp;
C_word 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_13529,c,av);}
/* expand.scm:1740: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[91];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a13530 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in ... */
static void C_ccall f_13531(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_13531,c,av);}
a=C_alloc(4);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13535,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1745: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[91];
av2[3]=t2;
av2[4]=lf[302];
tp(5,av2);}}

/* k13533 in a13530 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in ... */
static void C_ccall f_13535(C_word c,C_word *av){
C_word tmp;
C_word t0=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(7,c,3)))){
C_save_and_reclaim((void *)f_13535,c,av);}
a=C_alloc(7);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_u_i_cdr(((C_word*)t0)[2]);
t4=C_u_i_cdr(t3);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13545,a[2]=t4,a[3]=t6,a[4]=((C_word)li170),tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_13545(t8,((C_word*)t0)[3],t2);}

/* expand in k13533 in a13530 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in ... */
static void f_13545(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(7,0,2)))){
C_save_and_reclaim_args((void *)trf_13545,3,t0,t1,t2);}
a=C_alloc(7);
t3=C_eqp(t2,C_SCHEME_END_OF_LIST);
if(C_truep(t3)){
t4=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_a_i_cons(&a,2,lf[50],t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=C_i_car(t2);
t5=C_a_i_list(&a,1,t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13570,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1751: expand */
t8=t6;
t9=C_u_i_cdr(t2);
t1=t8;
t2=t9;
goto loop;}}

/* k13568 in expand in k13533 in a13530 in k11547 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in ... */
static void C_ccall f_13570(C_word c,C_word *av){
C_word tmp;
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_13570,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[50],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13578 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in ... */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_13580,c,av);}
/* expand.scm:1695: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[303];
av2[3]=lf[304];
av2[4]=t1;
tp(5,av2);}}

/* a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in ... */
static void C_ccall f_13582(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_13582,c,av);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13586,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1700: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[303];
av2[3]=t2;
av2[4]=lf[314];
tp(5,av2);}}

/* k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in ... */
static void C_ccall f_13586(C_word c,C_word *av){
C_word tmp;
C_word t0=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,2)))){
C_save_and_reclaim((void *)f_13586,c,av);}
a=C_alloc(10);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_u_i_cdr(((C_word*)t0)[2]);
t4=C_u_i_cdr(t3);
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13594,a[2]=C_SCHEME_UNDEFINED,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=C_SCHEME_UNDEFINED,a[7]=C_SCHEME_UNDEFINED,a[8]=t4,a[9]=((C_word*)t0)[5],tmp=(C_word)a,a+=10,tmp);
/* expand.scm:1703: r */
t6=((C_word*)t0)[5];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[313];
((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}

/* k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in ... */
static void C_ccall f_13594(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_13594,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13597,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1704: r */
t4=((C_word*)t0)[9];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[210];
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in ... */
static void C_ccall f_13597(C_word c,C_word *av){
C_word tmp;
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_13597,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+7,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13600,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1705: r */
t5=((C_word*)t2)[9];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[312];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in ... */
static void C_ccall f_13600(C_word c,C_word *av){
C_word tmp;
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_13600,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+6,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13603,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1706: r */
t5=((C_word*)t2)[9];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[311];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in ... */
static void C_ccall f_13603(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_13603,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13606,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=t1,a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],tmp=(C_word)a,a+=10,tmp);
/* expand.scm:1707: r */
t4=((C_word*)t2)[9];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[222];
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in ... */
static void C_ccall f_13606(C_word c,C_word *av){
C_word tmp;
C_word t0=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(25,c,4)))){
C_save_and_reclaim((void *)f_13606,c,av);}
a=C_alloc(25);
t2=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_a_i_list(&a,1,t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13617,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13619,a[2]=t6,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],a[8]=t1,a[9]=((C_word)li174),tmp=(C_word)a,a+=10,tmp));
t8=((C_word*)t6)[1];
f_13619(t8,t4,((C_word*)t0)[9],C_SCHEME_FALSE);}

/* k13615 in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
static void C_ccall f_13617(C_word c,C_word *av){
C_word tmp;
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_13617,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[55],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* expand in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
static void f_13619(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(13,0,4)))){
C_save_and_reclaim_args((void *)trf_13619,4,t0,t1,t2,t3);}
a=C_alloc(13);
t4=C_i_pairp(t2);
if(C_truep(C_i_not(t4))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[305];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_i_car(t2);
t6=C_u_i_cdr(t2);
t7=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_13633,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t6,a[6]=t5,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]=((C_word*)t0)[8],tmp=(C_word)a,a+=13,tmp);
/* expand.scm:1714: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word av2[5];
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t7;
av2[2]=lf[303];
av2[3]=t5;
av2[4]=lf[310];
tp(5,av2);}}}

/* k13631 in expand in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_13633(C_word c,C_word *av){
C_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_13633,c,av);}
a=C_alloc(11);
if(C_truep(((C_word*)t0)[2])){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13639,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);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13646,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1718: chicken.syntax#strip-syntax */
t4=C_fast_retrieve(lf[11]);{
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=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13652,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp);
/* expand.scm:1721: c */
t3=((C_word*)t0)[8];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[12];
av2[3]=C_i_car(((C_word*)t0)[6]);
((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}}

/* k13637 in k13631 in expand in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_13639(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13639,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13642,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1719: expand */
t3=((C_word*)((C_word*)t0)[3])[1];
f_13619(t3,t2,((C_word*)t0)[4],C_SCHEME_TRUE);}

/* k13640 in k13637 in k13631 in expand in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in ... */
static void C_ccall f_13642(C_word c,C_word *av){
C_word tmp;
C_word 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_13642,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[306];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13644 in k13631 in expand in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_13646(C_word c,C_word *av){
C_word tmp;
C_word 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_13646,c,av);}
/* expand.scm:1716: ##sys#warn */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[307]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[307]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[308];
av2[3]=t1;
tp(4,av2);}}

/* k13650 in k13631 in expand in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_13652(C_word c,C_word *av){
C_word tmp;
C_word t0=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(29,c,3)))){
C_save_and_reclaim((void *)f_13652,c,av);}
a=C_alloc(29);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13655,a[2]=((C_word*)t0)[2],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);
/* expand.scm:1722: expand */
t3=((C_word*)((C_word*)t0)[7])[1];
f_13619(t3,t2,((C_word*)t0)[8],C_SCHEME_TRUE);}
else{
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_13751,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[4],a[4]=((C_word)li172),tmp=(C_word)a,a+=5,tmp);
t7=C_u_i_car(((C_word*)t0)[2]);
t8=C_i_check_list_2(t7,lf[16]);
t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13766,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[2],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);
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|6,a[1]=(C_word)f_13768,a[2]=t6,a[3]=t4,a[4]=t11,a[5]=t5,a[6]=((C_word)li173),tmp=(C_word)a,a+=7,tmp));
t13=((C_word*)t11)[1];
f_13768(t13,t9,t7);}}

/* k13653 in k13650 in k13631 in expand in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in ... */
static void C_ccall f_13655(C_word c,C_word *av){
C_word tmp;
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_13655,c,av);}
a=C_alloc(5);
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[2])))){
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,1,lf[309]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13670,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t3=C_i_length(((C_word*)t0)[2]);
t4=C_eqp(t3,C_fix(3));
if(C_truep(t4)){
/* expand.scm:1726: c */
t5=((C_word*)t0)[5];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=C_i_cadr(((C_word*)t0)[2]);
((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}
else{
t5=t2;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_13670(2,av2);}}}}

/* k13668 in k13653 in k13650 in k13631 in expand in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in ... */
static void C_ccall f_13670(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13670,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_i_caddr(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,2,t2,((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=C_i_cdr(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[103],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k13709 in k13764 in k13650 in k13631 in expand in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in ... */
static void f_13711(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_13711,2,t0,t1);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13715,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1738: expand */
t3=((C_word*)((C_word*)t0)[4])[1];
f_13619(t3,t2,((C_word*)t0)[5],C_SCHEME_FALSE);}

/* k13713 in k13709 in k13764 in k13650 in k13631 in expand in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in ... */
static void C_ccall f_13715(C_word c,C_word *av){
C_word tmp;
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_13715,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[298],((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13716 in k13764 in k13650 in k13631 in expand in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in ... */
static void C_ccall f_13718(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13718,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_i_caddr(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];
f_13711(t3,C_a_i_list(&a,2,t2,((C_word*)t0)[4]));}
else{
t2=C_i_cdr(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];
f_13711(t3,C_a_i_cons(&a,2,lf[103],t2));}}

/* g3342 in k13650 in k13631 in expand in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in ... */
static C_word f_13751(C_word *a,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_stack_overflow_check;{}
t2=C_a_i_list(&a,2,lf[258],t1);
return(C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t2));}

/* k13764 in k13650 in k13631 in expand in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in ... */
static void C_ccall f_13766(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13766,c,av);}
a=C_alloc(14);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13711,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13718,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
t5=C_i_length(((C_word*)t0)[6]);
t6=C_eqp(t5,C_fix(3));
if(C_truep(t6)){
/* expand.scm:1735: c */
t7=((C_word*)t0)[8];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t4;
av2[2]=((C_word*)t0)[9];
av2[3]=C_i_cadr(((C_word*)t0)[6]);
((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}
else{
t7=t4;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
f_13718(2,av2);}}}

/* map-loop3336 in k13650 in k13631 in expand in k13604 in k13601 in k13598 in k13595 in k13592 in k13584 in a13581 in k11544 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in ... */
static void f_13768(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(18,0,2)))){
C_save_and_reclaim_args((void *)trf_13768,3,t0,t1,t2);}
a=C_alloc(18);
if(C_truep(C_i_pairp(t2))){
t3=(
/* expand.scm:1731: g3342 */
  f_13751(C_a_i(&a,15),((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);}}}

/* k13814 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in ... */
static void C_ccall f_13816(C_word c,C_word *av){
C_word tmp;
C_word 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_13816,c,av);}
/* expand.scm:1629: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[272];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in ... */
static void C_ccall f_13818(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_13818,c,av);}
a=C_alloc(8);
t5=C_i_cdr(t2);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13825,a[2]=t4,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=t3,a[6]=t1,a[7]=t5,tmp=(C_word)a,a+=8,tmp);
/* expand.scm:1635: r */
t7=t3;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[312];
((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}

/* k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in ... */
static void C_ccall f_13825(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_13825,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13828,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1636: r */
t4=((C_word*)t0)[5];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[210];
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in ... */
static void C_ccall f_13828(C_word c,C_word *av){
C_word tmp;
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_13828,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+4,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13831,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1637: r */
t5=((C_word*)t2)[5];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[222];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in ... */
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 t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_13831,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13836,a[2]=t4,a[3]=((C_word*)t2)[2],a[4]=t1,a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[4],a[7]=((C_word*)t2)[5],a[8]=((C_word)li176),tmp=(C_word)a,a+=9,tmp));
t6=((C_word*)t4)[1];
f_13836(t6,((C_word*)t2)[6],((C_word*)t2)[7],C_SCHEME_FALSE);}

/* expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in ... */
static void f_13836(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,4)))){
C_save_and_reclaim_args((void *)trf_13836,4,t0,t1,t2,t3);}
a=C_alloc(12);
t4=C_i_pairp(t2);
if(C_truep(C_i_not(t4))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[315];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_i_car(t2);
t6=C_u_i_cdr(t2);
t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13850,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t6,a[6]=t5,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],tmp=(C_word)a,a+=12,tmp);
/* expand.scm:1643: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word av2[5];
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t7;
av2[2]=lf[272];
av2[3]=t5;
av2[4]=lf[323];
tp(5,av2);}}}

/* k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in ... */
static void C_ccall f_13850(C_word c,C_word *av){
C_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_13850,c,av);}
a=C_alloc(12);
if(C_truep(((C_word*)t0)[2])){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13856,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13863,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1646: scheme#open-output-string */
t4=C_fast_retrieve(lf[145]);{
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|10,a[1]=(C_word)f_13888,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp);
/* expand.scm:1650: c */
t3=((C_word*)t0)[7];{
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_i_car(((C_word*)t0)[6]);
((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}}

/* k13854 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in ... */
static void C_ccall f_13856(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13856,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13859,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1648: expand */
t3=((C_word*)((C_word*)t0)[3])[1];
f_13836(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k13857 in k13854 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in ... */
static void C_ccall f_13859(C_word c,C_word *av){
C_word tmp;
C_word 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_13859,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[316];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13861 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in ... */
static void C_ccall f_13863(C_word c,C_word *av){
C_word tmp;
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,4)))){
C_save_and_reclaim((void *)f_13863,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=C_i_check_port_2(((C_word*)t0)[4],C_fix(2),C_SCHEME_TRUE,lf[317]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13869,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1646: ##sys#print */
t5=*((C_word*)lf[128]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[319];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k13867 in k13861 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in ... */
static void C_ccall f_13869(C_word c,C_word *av){
C_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_13869,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13872,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1646: ##sys#print */
t4=*((C_word*)lf[128]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13870 in k13867 in k13861 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
static void C_ccall f_13872(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13872,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13875,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1646: ##sys#print */
t3=*((C_word*)lf[128]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[318];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13873 in k13870 in k13867 in k13861 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_13875(C_word c,C_word *av){
C_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_13875,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13878,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1646: scheme#get-output-string */
t4=C_fast_retrieve(lf[129]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k13876 in k13873 in k13870 in k13867 in k13861 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_13878(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13878,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13882,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1647: chicken.syntax#strip-syntax */
t3=C_fast_retrieve(lf[11]);{
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);}}

/* k13880 in k13876 in k13873 in k13870 in k13867 in k13861 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in ... */
static void C_ccall f_13882(C_word c,C_word *av){
C_word tmp;
C_word 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_13882,c,av);}
/* expand.scm:1645: ##sys#warn */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[307]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[307]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in ... */
static void C_ccall f_13888(C_word c,C_word *av){
C_word tmp;
C_word t0=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(17,c,2)))){
C_save_and_reclaim((void *)f_13888,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13891,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
if(C_truep(t1)){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
f_13891(2,av2);}}
else{
t3=C_eqp(C_SCHEME_TRUE,C_u_i_car(((C_word*)t0)[2]));
if(C_truep(t3)){
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_13891(2,av2);}}
else{
t4=C_i_numberp(C_u_i_car(((C_word*)t0)[2]));
if(C_truep(t4)){
t5=t2;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
f_13891(2,av2);}}
else{
t5=C_charp(C_u_i_car(((C_word*)t0)[2]));
if(C_truep(t5)){
t6=t2;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
f_13891(2,av2);}}
else{
t6=C_i_stringp(C_u_i_car(((C_word*)t0)[2]));
if(C_truep(t6)){
t7=t2;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
f_13891(2,av2);}}
else{
t7=C_eofp(C_u_i_car(((C_word*)t0)[2]));
if(C_truep(t7)){
t8=t2;{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
f_13891(2,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14137,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1657: chicken.bytevector#bytevector? */
t9=C_fast_retrieve(lf[322]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=C_u_i_car(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}}}}}

/* k13889 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in ... */
static void C_ccall f_13891(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_13891,c,av);}
a=C_alloc(12);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13894,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13954,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1663: chicken.syntax#strip-syntax */
t4=C_fast_retrieve(lf[11]);{
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)[2]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[2])))){
t2=C_u_i_car(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13971,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[9],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1673: expand */
t4=((C_word*)((C_word*)t0)[7])[1];
f_13836(t4,t3,((C_word*)t0)[8],C_SCHEME_FALSE);}
else{
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13977,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
t3=C_i_length(((C_word*)t0)[2]);
t4=C_eqp(t3,C_fix(3));
if(C_truep(t4)){
/* expand.scm:1675: c */
t5=((C_word*)t0)[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=C_i_cadr(((C_word*)t0)[2]);
((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}
else{
t5=t2;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_13977(2,av2);}}}}}

/* k13892 in k13889 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
static void C_ccall f_13894(C_word c,C_word *av){
C_word tmp;
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,3)))){
C_save_and_reclaim((void *)f_13894,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13900,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_length(((C_word*)t0)[2]);
t4=C_eqp(t3,C_fix(3));
if(C_truep(t4)){
/* expand.scm:1665: c */
t5=((C_word*)t0)[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=C_i_cadr(((C_word*)t0)[2]);
((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}
else{
t5=t2;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_13900(2,av2);}}}

/* k13898 in k13892 in k13889 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
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 t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_13900,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_i_caddr(((C_word*)t0)[2]);
t3=C_u_i_car(((C_word*)t0)[2]);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,2,t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t2=C_i_cdr(((C_word*)t0)[2]);
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_cdr(((C_word*)t0)[2]);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,lf[103],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13926,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1669: c */
t4=((C_word*)t0)[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
av2[3]=C_u_i_car(((C_word*)t0)[2]);
((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}}}

/* k13924 in k13898 in k13892 in k13889 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_13926(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_13926,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_list(&a,1,lf[309]):C_u_i_car(((C_word*)t0)[3]));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13952 in k13889 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13954,c,av);}
/* expand.scm:1663: expand */
t2=((C_word*)((C_word*)t0)[2])[1];
f_13836(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k13969 in k13889 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_13971,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,((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13975 in k13889 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
static void C_ccall f_13977(C_word c,C_word *av){
C_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_13977,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13980,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);
/* expand.scm:1676: r */
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]=lf[313];
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14017,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t3=C_eqp(C_u_i_length(((C_word*)t0)[2]),C_fix(4));
if(C_truep(t3)){
/* expand.scm:1682: c */
t4=((C_word*)t0)[7];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
av2[3]=C_i_caddr(((C_word*)t0)[2]);
((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_14017(2,av2);}}}}

/* k13978 in k13975 in k13889 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_13980(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_13980,c,av);}
a=C_alloc(21);
t2=C_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_i_caddr(((C_word*)t0)[2]);
t6=C_a_i_list(&a,2,t5,t1);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13999,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[3],a[5]=t4,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1680: expand */
t8=((C_word*)((C_word*)t0)[4])[1];
f_13836(t8,t7,((C_word*)t0)[5],C_SCHEME_FALSE);}

/* k13997 in k13978 in k13975 in k13889 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_13999(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){
C_save_and_reclaim((void *)f_13999,c,av);}
a=C_alloc(21);
t2=C_a_i_list(&a,4,lf[298],((C_word*)t0)[2],((C_word*)t0)[3],t1);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,3,lf[50],((C_word*)t0)[5],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14015 in k13975 in k13889 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_14017(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14017,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14020,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);
/* expand.scm:1683: r */
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]=lf[313];
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
else{
t2=C_i_car(((C_word*)t0)[2]);
t3=C_u_i_cdr(((C_word*)t0)[2]);
t4=C_a_i_cons(&a,2,lf[103],t3);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14074,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1693: expand */
t6=((C_word*)((C_word*)t0)[4])[1];
f_13836(t6,t5,((C_word*)t0)[5],C_SCHEME_FALSE);}}

/* k14018 in k14015 in k13975 in k13889 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_14020(C_word c,C_word *av){
C_word tmp;
C_word t0=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(34,c,3)))){
C_save_and_reclaim((void *)f_14020,c,av);}
a=C_alloc(34);
t2=C_i_car(((C_word*)t0)[2]);
t3=C_a_i_list(&a,3,lf[75],C_SCHEME_END_OF_LIST,t2);
t4=C_i_cadr(((C_word*)t0)[2]);
t5=C_a_i_list(&a,3,lf[262],t4,t1);
t6=C_i_cadddr(((C_word*)t0)[2]);
t7=C_a_i_list(&a,3,lf[262],t6,t1);
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14047,a[2]=t5,a[3]=t7,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t3,tmp=(C_word)a,a+=7,tmp);
/* expand.scm:1690: expand */
t9=((C_word*)((C_word*)t0)[4])[1];
f_13836(t9,t8,((C_word*)t0)[5],C_SCHEME_FALSE);}

/* k14045 in k14018 in k14015 in k13975 in k13889 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in ... */
static void C_ccall f_14047(C_word c,C_word *av){
C_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(30,c,1)))){
C_save_and_reclaim((void *)f_14047,c,av);}
a=C_alloc(30);
t2=C_a_i_list(&a,4,lf[320],((C_word*)t0)[2],((C_word*)t0)[3],t1);
t3=C_a_i_list(&a,3,lf[75],((C_word*)t0)[4],t2);
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,3,lf[94],((C_word*)t0)[6],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k14072 in k14015 in k13975 in k13889 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in ... */
static void C_ccall f_14074(C_word c,C_word *av){
C_word tmp;
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_14074,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[298],((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k14135 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in ... */
static void C_ccall f_14137(C_word c,C_word *av){
C_word tmp;
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_14137,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
f_13891(2,av2);}}
else{
t2=C_bwpp(C_u_i_car(((C_word*)t0)[3]));
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_13891(2,av2);}}
else{
t3=C_i_vectorp(C_u_i_car(((C_word*)t0)[3]));
if(C_truep(t3)){
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_13891(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14155,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1660: ##sys#srfi-4-vector? */
t5=C_fast_retrieve(lf[321]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_u_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}}}

/* k14153 in k14135 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in ... */
static void C_ccall f_14155(C_word c,C_word *av){
C_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_14155,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
f_13891(2,av2);}}
else{
if(C_truep(C_i_pairp(C_u_i_car(((C_word*)t2)[3])))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14171,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1662: r */
t4=((C_word*)t2)[5];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[258];
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_13891(2,av2);}}}}

/* k14169 in k14153 in k14135 in k13886 in k13848 in expand in k13829 in k13826 in k13823 in a13817 in k11541 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in ... */
static void C_ccall f_14171(C_word c,C_word *av){
C_word tmp;
C_word 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_14171,c,av);}
/* expand.scm:1662: c */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=C_i_caar(((C_word*)t0)[4]);
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}

/* k14205 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in ... */
static void C_ccall f_14207(C_word c,C_word *av){
C_word tmp;
C_word 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_14207,c,av);}
/* expand.scm:1613: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[210];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14208 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in ... */
static void C_ccall f_14209(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_14209,c,av);}
a=C_alloc(6);
t5=C_i_cdr(t2);
if(C_truep(C_i_nullp(t5))){
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_i_cdr(t5);
t7=C_u_i_car(t5);
if(C_truep(C_i_nullp(t6))){
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14232,a[2]=t7,a[3]=t6,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1625: r */
t9=t3;{
C_word *av2=av;
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[313];
((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}}}

/* k14230 in a14208 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in ... */
static void C_ccall f_14232(C_word c,C_word *av){
C_word tmp;
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_14232,c,av);}
a=C_alloc(15);
t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_list(&a,1,t2);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14251,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1627: r */
t5=((C_word*)t0)[5];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[210];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k14249 in k14230 in a14208 in k11538 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in ... */
static void C_ccall f_14251(C_word c,C_word *av){
C_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(24,c,1)))){
C_save_and_reclaim((void *)f_14251,c,av);}
a=C_alloc(24);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_list(&a,4,lf[298],((C_word*)t0)[3],((C_word*)t0)[3],t2);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,3,lf[50],((C_word*)t0)[5],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k14257 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in ... */
static void C_ccall f_14259(C_word c,C_word *av){
C_word tmp;
C_word 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_14259,c,av);}
/* expand.scm:1599: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[209];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14260 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in ... */
static void C_ccall f_14261(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_14261,c,av);}
a=C_alloc(5);
t5=C_i_cdr(t2);
if(C_truep(C_i_nullp(t5))){
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_i_cdr(t5);
t7=C_u_i_car(t5);
if(C_truep(C_i_nullp(t6))){
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14292,a[2]=t6,a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1611: r */
t9=t3;{
C_word *av2=av;
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[209];
((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}}}

/* k14290 in a14260 in k11535 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in ... */
static void C_ccall f_14292(C_word c,C_word *av){
C_word tmp;
C_word t0=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,1)))){
C_save_and_reclaim((void *)f_14292,c,av);}
a=C_alloc(15);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,4,lf[298],((C_word*)t0)[4],t2,C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14294 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in ... */
static void C_ccall f_14296(C_word c,C_word *av){
C_word tmp;
C_word 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_14296,c,av);}
/* expand.scm:1587: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[324];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14297 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in ... */
static void C_ccall f_14298(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_14298,c,av);}
a=C_alloc(4);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14302,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1592: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[324];
av2[3]=t2;
av2[4]=lf[326];
tp(5,av2);}}

/* k14300 in a14297 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in ... */
static void C_ccall f_14302(C_word c,C_word *av){
C_word tmp;
C_word t0=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(13,c,3)))){
C_save_and_reclaim((void *)f_14302,c,av);}
a=C_alloc(13);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_i_caddr(((C_word*)t0)[2]);
if(C_truep(C_i_pairp(t2))){
t4=C_u_i_car(t2);
t5=C_a_i_list(&a,2,lf[325],t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14325,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t7=C_u_i_cdr(t2);
t8=C_a_i_list(&a,1,t3);
/* expand.scm:1596: ##sys#append */
t9=*((C_word*)lf[73]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t9;
av2[1]=t6;
av2[2]=t7;
av2[3]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}
else{
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,3,lf[96],t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k14323 in k14300 in a14297 in k11532 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in ... */
static void C_ccall f_14325(C_word c,C_word *av){
C_word tmp;
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_14325,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);}}

/* k14338 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in ... */
static void C_ccall f_14340(C_word c,C_word *av){
C_word tmp;
C_word 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_14340,c,av);}
/* expand.scm:1578: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[327];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14341 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in ... */
static void C_ccall f_14342(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_14342,c,av);}
a=C_alloc(4);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14346,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1583: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[327];
av2[3]=t2;
av2[4]=lf[330];
tp(5,av2);}}

/* k14344 in a14341 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in ... */
static void C_ccall f_14346(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14346,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14349,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1584: chicken.internal#check-for-multiple-bindings */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[328]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[328]+1);
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[2]);
av2[3]=((C_word*)t0)[2];
av2[4]=lf[329];
tp(5,av2);}}

/* k14347 in k14344 in a14341 in k11529 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in ... */
static void C_ccall f_14349(C_word c,C_word *av){
C_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,1)))){
C_save_and_reclaim((void *)f_14349,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_u_i_cdr(((C_word*)t2)[2]);
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,lf[107],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k14360 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in ... */
static void C_ccall f_14362(C_word c,C_word *av){
C_word tmp;
C_word 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_14362,c,av);}
/* expand.scm:1569: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[331];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14363 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in ... */
static void C_ccall f_14364(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_14364,c,av);}
a=C_alloc(4);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14368,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1574: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[331];
av2[3]=t2;
av2[4]=lf[334];
tp(5,av2);}}

/* k14366 in a14363 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in ... */
static void C_ccall f_14368(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14368,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14371,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1575: chicken.internal#check-for-multiple-bindings */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[328]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[328]+1);
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[2]);
av2[3]=((C_word*)t0)[2];
av2[4]=lf[333];
tp(5,av2);}}

/* k14369 in k14366 in a14363 in k11526 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in ... */
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 t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_14371,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_u_i_cdr(((C_word*)t2)[2]);
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,lf[332],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k14382 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in ... */
static void C_ccall f_14384(C_word c,C_word *av){
C_word tmp;
C_word 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_14384,c,av);}
/* expand.scm:1560: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[335];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14385 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in ... */
static void C_ccall f_14386(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_14386,c,av);}
a=C_alloc(4);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14390,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1565: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[335];
av2[3]=t2;
av2[4]=lf[338];
tp(5,av2);}}

/* k14388 in a14385 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in ... */
static void C_ccall f_14390(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14390,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14393,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1566: chicken.internal#check-for-multiple-bindings */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[328]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[328]+1);
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[2]);
av2[3]=((C_word*)t0)[2];
av2[4]=lf[337];
tp(5,av2);}}

/* k14391 in k14388 in a14385 in k11523 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in ... */
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 t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_14393,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_u_i_cdr(((C_word*)t2)[2]);
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,lf[336],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k14404 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in ... */
static void C_ccall f_14406(C_word c,C_word *av){
C_word tmp;
C_word 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_14406,c,av);}
/* expand.scm:1547: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[55];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14407 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in ... */
static void C_ccall f_14408(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 *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_14408,c,av);}
a=C_alloc(8);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14412,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t6=C_i_cdr(t2);
t7=C_i_pairp(t6);
t8=(C_truep(t7)?C_i_symbolp(C_i_cadr(t2)):C_SCHEME_FALSE);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14423,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1553: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t9;
av2[2]=lf[55];
av2[3]=t2;
av2[4]=lf[340];
tp(5,av2);}}
else{
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14433,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1556: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t9;
av2[2]=lf[55];
av2[3]=t2;
av2[4]=lf[342];
tp(5,av2);}}}

/* k14410 in a14407 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in ... */
static void C_ccall f_14412(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14412,c,av);}
a=C_alloc(3);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[50],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14421 in a14407 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in ... */
static void C_ccall f_14423(C_word c,C_word *av){
C_word tmp;
C_word 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_14423,c,av);}
/* expand.scm:1554: chicken.internal#check-for-multiple-bindings */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[328]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[328]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_i_caddr(((C_word*)t0)[3]);
av2[3]=((C_word*)t0)[3];
av2[4]=lf[339];
tp(5,av2);}}

/* k14431 in a14407 in k11520 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in ... */
static void C_ccall f_14433(C_word c,C_word *av){
C_word tmp;
C_word 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_14433,c,av);}
/* expand.scm:1557: chicken.internal#check-for-multiple-bindings */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[328]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[328]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_i_cadr(((C_word*)t0)[3]);
av2[3]=((C_word*)t0)[3];
av2[4]=lf[341];
tp(5,av2);}}

/* k14456 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in ... */
static void C_ccall f_14458(C_word c,C_word *av){
C_word tmp;
C_word 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_14458,c,av);}
/* expand.scm:1533: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[116];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14459 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in ... */
static void C_ccall f_14460(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_14460,c,av);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14464,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1538: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[116];
av2[3]=t2;
av2[4]=lf[346];
tp(5,av2);}}

/* k14462 in a14459 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in ... */
static void C_ccall f_14464(C_word c,C_word *av){
C_word tmp;
C_word t0=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(12,c,2)))){
C_save_and_reclaim((void *)f_14464,c,av);}
a=C_alloc(12);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_i_caddr(((C_word*)t0)[2]);
t4=C_i_getprop(t2,lf[6],C_SCHEME_FALSE);
t5=(C_truep(t4)?t4:t2);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14481,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14501,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1542: ##sys#current-module */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[345]);
C_word *av2=av;
av2[0]=*((C_word*)lf[345]+1);
av2[1]=t7;
tp(2,av2);}}

/* k14479 in k14462 in a14459 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in ... */
static void C_ccall f_14481(C_word c,C_word *av){
C_word tmp;
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,2)))){
C_save_and_reclaim((void *)f_14481,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14484,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|6,a[1]=(C_word)f_14490,a[2]=t2,a[3]=((C_word*)t0)[5],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);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14497,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1543: r */
t5=((C_word*)t0)[7];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[116];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k14482 in k14479 in k14462 in a14459 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in ... */
static void C_ccall f_14484(C_word c,C_word *av){
C_word tmp;
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_14484,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[343],((C_word*)t0)[3],((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k14488 in k14479 in k14462 in a14459 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in ... */
static void C_ccall f_14490(C_word c,C_word *av){
C_word tmp;
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,3)))){
C_save_and_reclaim((void *)f_14490,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
/* expand.scm:432: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[108];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[343],((C_word*)t0)[5],((C_word*)t0)[6]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k14495 in k14479 in k14462 in a14459 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in ... */
static void C_ccall f_14497(C_word c,C_word *av){
C_word tmp;
C_word 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_14497,c,av);}
/* expand.scm:1543: c */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=((C_word*)t0)[4];
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}

/* k14499 in k14462 in a14459 in k11516 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in ... */
static void C_ccall f_14501(C_word c,C_word *av){
C_word tmp;
C_word 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_14501,c,av);}
/* expand.scm:1542: ##sys#register-export */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[344]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[344]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k14503 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in ... */
static void C_ccall f_14505(C_word c,C_word *av){
C_word tmp;
C_word 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_14505,c,av);}
/* expand.scm:1505: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[110];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14506 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in ... */
static void C_ccall f_14507(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_14507,c,av);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14511,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1510: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[110];
av2[3]=t2;
av2[4]=lf[352];
tp(5,av2);}}

/* k14509 in a14506 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in ... */
static void C_ccall f_14511(C_word c,C_word *av){
C_word tmp;
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_14511,c,av);}
a=C_alloc(9);
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|6,a[1]=(C_word)f_14516,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word)li186),tmp=(C_word)a,a+=7,tmp));
t5=((C_word*)t3)[1];
f_14516(t5,((C_word*)t0)[5],((C_word*)t0)[2]);}

/* loop in k14509 in a14506 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in ... */
static void f_14516(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(8,0,4)))){
C_save_and_reclaim_args((void *)trf_14516,3,t0,t1,t2);}
a=C_alloc(8);
t3=C_i_cadr(t2);
t4=C_u_i_cdr(t2);
t5=C_u_i_cdr(t4);
t6=C_i_pairp(t3);
if(C_truep(C_i_not(t6))){
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14531,a[2]=t3,a[3]=t5,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp);
/* expand.scm:1515: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word av2[5];
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t7;
av2[2]=lf[110];
av2[3]=t2;
av2[4]=lf[349];
tp(5,av2);}}
else{
t7=C_i_car(t3);
if(C_truep(C_i_pairp(t7))){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14587,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1526: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word av2[5];
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t8;
av2[2]=lf[110];
av2[3]=t2;
av2[4]=lf[350];
tp(5,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14597,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* expand.scm:1529: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word av2[5];
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t8;
av2[2]=lf[110];
av2[3]=t2;
av2[4]=lf[351];
tp(5,av2);}}}}

/* k14529 in loop in k14509 in a14506 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in ... */
static void C_ccall f_14531(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14531,c,av);}
a=C_alloc(12);
t2=C_i_getprop(((C_word*)t0)[2],lf[6],C_SCHEME_FALSE);
t3=(C_truep(t2)?t2:((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14542,a[2]=((C_word*)t0)[2],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);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14578,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1517: ##sys#current-module */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[345]);
C_word *av2=av;
av2[0]=*((C_word*)lf[345]+1);
av2[1]=t5;
tp(2,av2);}}

/* k14540 in k14529 in loop in k14509 in a14506 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in ... */
static void C_ccall f_14542(C_word c,C_word *av){
C_word tmp;
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_14542,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14545,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_14567,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14574,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1518: r */
t5=((C_word*)t0)[7];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[110];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k14543 in k14540 in k14529 in loop in k14509 in a14506 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in ... */
static void C_ccall f_14545(C_word c,C_word *av){
C_word tmp;
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,1)))){
C_save_and_reclaim((void *)f_14545,c,av);}
a=C_alloc(24);
t2=C_a_i_list(&a,2,lf[347],((C_word*)t0)[2]);
if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
t3=C_u_i_car(((C_word*)t0)[3]);
t4=C_a_i_list(&a,3,lf[96],((C_word*)t0)[2],t3);
t5=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_a_i_list(&a,3,lf[103],t2,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t3=C_a_i_list(&a,3,lf[96],((C_word*)t0)[2],lf[348]);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,3,lf[103],t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k14565 in k14540 in k14529 in loop in k14509 in a14506 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in ... */
static void C_ccall f_14567(C_word c,C_word *av){
C_word tmp;
C_word 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_14567,c,av);}
if(C_truep(t1)){
/* expand.scm:432: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[108];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_14545(2,av2);}}}

/* k14572 in k14540 in k14529 in loop in k14509 in a14506 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in ... */
static void C_ccall f_14574(C_word c,C_word *av){
C_word tmp;
C_word 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_14574,c,av);}
/* expand.scm:1518: c */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=((C_word*)t0)[4];
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}

/* k14576 in k14529 in loop in k14509 in a14506 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in ... */
static void C_ccall f_14578(C_word c,C_word *av){
C_word tmp;
C_word 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_14578,c,av);}
/* expand.scm:1517: ##sys#register-export */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[344]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[344]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k14585 in loop in k14509 in a14506 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in ... */
static void C_ccall f_14587(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14587,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14594,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1527: chicken.syntax#expand-curried-define */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[112]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[112]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}

/* k14592 in k14585 in loop in k14509 in a14506 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in ... */
static void C_ccall f_14594(C_word c,C_word *av){
C_word tmp;
C_word 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_14594,c,av);}
/* expand.scm:1527: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_14516(t2,((C_word*)t0)[3],t1);}

/* k14595 in loop in k14509 in a14506 in k11512 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in ... */
static void C_ccall f_14597(C_word c,C_word *av){
C_word tmp;
C_word t0=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(15,c,2)))){
C_save_and_reclaim((void *)f_14597,c,av);}
a=C_alloc(15);
t2=C_i_car(((C_word*)t0)[2]);
t3=C_u_i_car(((C_word*)t0)[3]);
t4=C_u_i_cdr(((C_word*)t0)[3]);
t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]);
t6=C_a_i_cons(&a,2,lf[75],t5);
t7=C_a_i_list3(&a,3,t2,t3,t6);
/* expand.scm:1530: loop */
t8=((C_word*)((C_word*)t0)[5])[1];
f_14516(t8,((C_word*)t0)[6],t7);}

/* k14630 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in ... */
static void C_ccall f_14632(C_word c,C_word *av){
C_word tmp;
C_word 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_14632,c,av);}
/* expand.scm:1496: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[353];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14633 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in ... */
static void C_ccall f_14634(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_14634,c,av);}
a=C_alloc(4);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14638,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1501: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[353];
av2[3]=t2;
av2[4]=lf[354];
tp(5,av2);}}

/* k14636 in a14633 in k11509 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in ... */
static void C_ccall f_14638(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14638,c,av);}
a=C_alloc(3);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[103],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14647 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in ... */
static void C_ccall f_14649(C_word c,C_word *av){
C_word tmp;
C_word 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_14649,c,av);}
/* expand.scm:1488: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[320];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14650 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in ... */
static void C_ccall f_14651(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_14651,c,av);}
a=C_alloc(4);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14655,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1493: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[320];
av2[3]=t2;
av2[4]=lf[355];
tp(5,av2);}}

/* k14653 in a14650 in k11506 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in ... */
static void C_ccall f_14655(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14655,c,av);}
a=C_alloc(3);
t2=C_i_cdr(((C_word*)t0)[2]);
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);}}

/* k14664 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in ... */
static void C_ccall f_14666(C_word c,C_word *av){
C_word tmp;
C_word 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_14666,c,av);}
/* expand.scm:1480: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[258];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14667 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in ... */
static void C_ccall f_14668(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_14668,c,av);}
a=C_alloc(4);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14672,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1485: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[258];
av2[3]=t2;
av2[4]=lf[356];
tp(5,av2);}}

/* k14670 in a14667 in k11503 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in ... */
static void C_ccall f_14672(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14672,c,av);}
a=C_alloc(6);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,2,lf[74],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14681 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
static void C_ccall f_14683(C_word c,C_word *av){
C_word tmp;
C_word 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_14683,c,av);}
/* expand.scm:1472: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[268];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14684 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
static void C_ccall f_14685(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_14685,c,av);}
a=C_alloc(4);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14689,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1477: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[268];
av2[3]=t2;
av2[4]=lf[357];
tp(5,av2);}}

/* k14687 in a14684 in k11500 in k11496 in k11492 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in ... */
static void C_ccall f_14689(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14689,c,av);}
a=C_alloc(3);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[75],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14698 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14700(C_word c,C_word *av){
C_word tmp;
C_word 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_14700,c,av);}
/* expand.scm:1458: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[358];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14701 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14702(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_14702,c,av);}
a=C_alloc(3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14706,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1462: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[358];
av2[3]=t2;
av2[4]=lf[360];
tp(5,av2);}}

/* k14704 in a14701 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14706(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14706,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14709,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1463: ##sys#current-module */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[345]);
C_word *av2=av;
av2[0]=*((C_word*)lf[345]+1);
av2[1]=t2;
tp(2,av2);}}

/* k14707 in k14704 in a14701 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_14709(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14709,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14719,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1464: ##sys#module-name */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[359]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[359]+1);
av2[1]=t2;
av2[2]=t1;
tp(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);}}}

/* k14717 in k14707 in k14704 in a14701 in k11489 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
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(6,c,1)))){
C_save_and_reclaim((void *)f_14719,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[74],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k14721 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14723(C_word c,C_word *av){
C_word tmp;
C_word 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_14723,c,av);}
/* expand.scm:1435: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[361];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14724 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14725(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_14725,c,av);}
a=C_alloc(5);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14729,a[2]=C_SCHEME_UNDEFINED,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1439: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[361];
av2[3]=t2;
av2[4]=lf[370];
tp(5,av2);}}

/* k14727 in a14724 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14729(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14729,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14732,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1440: chicken.syntax#strip-syntax */
t3=C_fast_retrieve(lf[11]);{
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);}}

/* k14730 in k14727 in a14724 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14732(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_14732,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+2,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14735,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=C_eqp(lf[365],((C_word*)t2)[2]);
if(C_truep(t5)){
/* expand.scm:1442: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=t4;
av2[2]=lf[361];
av2[3]=lf[369];
tp(4,av2);}}
else{
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
f_14735(2,av2);}}}

/* k14733 in k14730 in k14727 in a14724 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_14735(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14735,c,av);}
a=C_alloc(18);
t2=((C_word*)t0)[2];
t3=C_a_i_list(&a,2,lf[74],((C_word*)t2)[2]);
t4=C_a_i_list(&a,2,lf[74],lf[362]);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14758,a[2]=t3,a[3]=t4,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1449: chicken.syntax#strip-syntax */
t6=C_fast_retrieve(lf[11]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=C_i_caddr(((C_word*)t2)[4]);
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k14756 in k14733 in k14730 in k14727 in a14724 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
static void C_ccall f_14758(C_word c,C_word *av){
C_word tmp;
C_word t0=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(35,c,4)))){
C_save_and_reclaim((void *)f_14758,c,av);}
a=C_alloc(35);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14761,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t3=C_eqp(lf[365],t1);
if(C_truep(t3)){
t4=C_a_i_list(&a,2,lf[74],lf[365]);
t5=C_a_i_list(&a,4,lf[363],((C_word*)t0)[2],((C_word*)t0)[3],t4);
t6=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_a_i_list(&a,2,lf[364],t5);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
if(C_truep(C_i_symbolp(t1))){
t4=C_a_i_list(&a,2,lf[366],t1);
t5=C_a_i_list(&a,2,lf[74],t4);
t6=C_a_i_list(&a,4,lf[363],((C_word*)t0)[2],((C_word*)t0)[3],t5);
t7=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_i_list(&a,2,lf[364],t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
if(C_truep(C_i_listp(t1))){
/* expand.scm:1453: ##sys#validate-exports */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[367]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[367]+1);
av2[1]=t2;
av2[2]=t1;
av2[3]=lf[361];
tp(4,av2);}}
else{
/* expand.scm:1455: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=t2;
av2[2]=lf[361];
av2[3]=lf[368];
av2[4]=C_i_caddr(((C_word*)t0)[5]);
tp(5,av2);}}}}}

/* k14759 in k14756 in k14733 in k14730 in k14727 in a14724 in k11486 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in ... */
static void C_ccall f_14761(C_word c,C_word *av){
C_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(24,c,1)))){
C_save_and_reclaim((void *)f_14761,c,av);}
a=C_alloc(24);
t2=C_a_i_list(&a,2,lf[74],t1);
t3=C_a_i_list(&a,4,lf[363],((C_word*)t0)[2],((C_word*)t0)[3],t2);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,2,lf[364],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k14805 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14807(C_word c,C_word *av){
C_word tmp;
C_word 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_14807,c,av);}
/* expand.scm:1400: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[371];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14808 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14809(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_14809,c,av);}
a=C_alloc(4);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14813,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1404: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[371];
av2[3]=t2;
av2[4]=lf[379];
tp(5,av2);}}

/* k14811 in a14808 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14813(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14813,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14816,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[2],a[6]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=7,tmp);
/* expand.scm:1405: chicken.syntax#strip-syntax */
t3=C_fast_retrieve(lf[11]);{
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);}}

/* k14814 in k14811 in a14808 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14816(C_word c,C_word *av){
C_word tmp;
C_word t0=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(3,c,2)))){
C_save_and_reclaim((void *)f_14816,c,av);}
a=C_alloc(3);
t2=C_i_cadr(t1);
t3=C_i_car(t2);
t4=C_mutate(((C_word *)t0)+2,t3);
t5=C_u_i_cdr(t2);
t6=C_mutate(((C_word *)t0)+3,t5);
t7=C_i_caddr(t1);
t8=C_mutate(((C_word *)t0)+6,t7);
t9=C_u_i_cdr(t1);
t10=C_u_i_cdr(t9);
t11=C_u_i_cdr(t10);
t12=C_mutate(((C_word *)t0)+4,t11);
t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14974,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1413: chicken.internal#library-id */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[220]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[220]+1);
av2[1]=t13;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k14837 in k14865 in k14934 in k14972 in k14814 in k14811 in a14808 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in ... */
static void C_ccall f_14839(C_word c,C_word *av){
C_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(30,c,1)))){
C_save_and_reclaim((void *)f_14839,c,av);}
a=C_alloc(30);
t2=C_a_i_list(&a,3,lf[375],lf[376],lf[377]);
t3=C_a_i_list(&a,2,lf[378],((C_word*)t0)[2]);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,5,lf[105],t1,C_SCHEME_TRUE,t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k14865 in k14934 in k14972 in k14814 in k14811 in a14808 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
static void C_ccall f_14867(C_word c,C_word *av){
C_word tmp;
C_word t0=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(31,c,2)))){
C_save_and_reclaim((void *)f_14867,c,av);}
a=C_alloc(31);
t2=C_a_i_list(&a,2,lf[74],t1);
t3=C_a_i_list(&a,2,lf[74],((C_word*)t0)[2]);
t4=C_a_i_list(&a,5,lf[374],((C_word*)t0)[3],((C_word*)t0)[4],t2,t3);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14839,a[2]=t4,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1428: chicken.internal#library-id */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[220]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[220]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* g2986 in k14972 in k14814 in k14811 in a14808 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void f_14872(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(3,0,3)))){
C_save_and_reclaim_args((void *)trf_14872,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+5,t2);
t4=C_mutate(((C_word *)t0)+2,t1);
t5=C_i_car(((C_word*)t0)[5]);
t6=C_mutate(((C_word *)t0)+3,t5);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14879,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1417: ##sys#validate-exports */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[367]);
C_word av2[4];
av2[0]=*((C_word*)lf[367]+1);
av2[1]=t7;
av2[2]=C_i_cadr(((C_word*)t0)[5]);
av2[3]=lf[371];
tp(4,av2);}}

/* k14877 in g2986 in k14972 in k14814 in k14811 in a14808 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
static void C_ccall f_14879(C_word c,C_word *av){
C_word tmp;
C_word t0=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(13,c,2)))){
C_save_and_reclaim((void *)f_14879,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14882,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t4=C_i_symbolp(((C_word*)t2)[3]);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14891,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t1,a[5]=t3,a[6]=((C_word*)t2)[4],a[7]=((C_word*)t2)[5],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t4)){
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t4;
f_14891(2,av2);}}
else{
if(C_truep(C_i_listp(((C_word*)t2)[3]))){
t6=C_eqp(C_fix(2),C_u_i_length(((C_word*)t2)[3]));
if(C_truep(t6)){
t7=C_i_car(((C_word*)t2)[3]);
if(C_truep(C_i_symbolp(t7))){
/* expand.scm:1422: chicken.internal#valid-library-specifier? */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[373]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[373]+1);
av2[1]=t5;
av2[2]=C_i_cadr(((C_word*)t2)[3]);
tp(3,av2);}}
else{
t8=t5;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14891(2,av2);}}}
else{
t7=t5;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
f_14891(2,av2);}}}
else{
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_14891(2,av2);}}}}

/* k14880 in k14877 in g2986 in k14972 in k14814 in k14811 in a14808 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in ... */
static void C_ccall f_14882(C_word c,C_word *av){
C_word tmp;
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_14882,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],((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k14889 in k14877 in g2986 in k14972 in k14814 in k14811 in a14808 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in ... */
static void C_ccall f_14891(C_word c,C_word *av){
C_word tmp;
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,4)))){
C_save_and_reclaim((void *)f_14891,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* expand.scm:1423: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=((C_word*)t0)[5];
av2[2]=lf[372];
av2[3]=((C_word*)t0)[6];
av2[4]=((C_word*)t0)[7];
tp(5,av2);}}}

/* k14934 in k14972 in k14814 in k14811 in a14808 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_14936(C_word c,C_word *av){
C_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,3)))){
C_save_and_reclaim((void *)f_14936,c,av);}
a=C_alloc(13);
t2=C_a_i_list(&a,2,lf[74],t1);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14867,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* expand.scm:1426: ##sys#validate-exports */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[367]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[367]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
av2[3]=lf[371];
tp(4,av2);}}

/* map-loop2980 in k14972 in k14814 in k14811 in a14808 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void f_14938(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_14938,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_14963,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);
/* expand.scm:1415: g2986 */
t4=((C_word*)t0)[4];
f_14872(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);}}}

/* k14961 in map-loop2980 in k14972 in k14814 in k14811 in a14808 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
static void C_ccall f_14963(C_word c,C_word *av){
C_word tmp;
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_14963,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_14938(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k14972 in k14814 in k14811 in a14808 in k11483 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14974(C_word c,C_word *av){
C_word tmp;
C_word t0=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(34,c,3)))){
C_save_and_reclaim((void *)f_14974,c,av);}
a=C_alloc(34);
t2=((C_word*)t0)[2];
t3=C_a_i_list(&a,2,lf[74],t1);
t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t5=t4;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=((C_word*)t6)[1];
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14872,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[2],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word)li194),tmp=(C_word)a,a+=7,tmp);
t9=C_i_check_list_2(((C_word*)t2)[3],lf[16]);
t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14936,a[2]=((C_word*)t2)[4],a[3]=t3,a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[2],a[6]=((C_word*)t2)[6],tmp=(C_word)a,a+=7,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|6,a[1]=(C_word)f_14938,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,a[6]=((C_word)li195),tmp=(C_word)a,a+=7,tmp));
t14=((C_word*)t12)[1];
f_14938(t14,t10,((C_word*)t2)[3]);}

/* k14976 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14978(C_word c,C_word *av){
C_word tmp;
C_word 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_14978,c,av);}
/* expand.scm:1391: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[380];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14979 in k11480 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14980(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_14980,c,av);}
t5=C_fast_retrieve(lf[381]);
/* expand.scm:1394: g2963 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[381]);
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=*((C_word*)lf[381]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=t4;
av2[5]=C_fast_retrieve(lf[3]);
av2[6]=C_fast_retrieve(lf[17]);
av2[7]=C_SCHEME_FALSE;
av2[8]=C_SCHEME_TRUE;
av2[9]=lf[380];
tp(10,av2);}}

/* k14986 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14988(C_word c,C_word *av){
C_word tmp;
C_word 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_14988,c,av);}
/* expand.scm:1372: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[382];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a14989 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_14990(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 *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_14990,c,av);}
a=C_alloc(10);
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_15054,a[2]=t1,a[3]=t7,a[4]=t8,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1385: chicken.syntax#strip-syntax */
t10=C_fast_retrieve(lf[11]);{
C_word *av2=av;
av2[0]=t10;
av2[1]=t9;
av2[2]=C_i_cdr(t2);
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}

/* k15000 in map-loop2921 in k15052 in a14989 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15002(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_15002,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_15096(2,av2);}}
else{
/* expand.scm:1383: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word av2[4];
av2[0]=*((C_word*)lf[43]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[385];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}}

/* k15052 in a14989 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15054(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_15054,c,av);}
a=C_alloc(12);
t2=C_i_check_list_2(t1,lf[16]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15060,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,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|5,a[1]=(C_word)f_15071,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word)li198),tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_15071(t7,t3,t1);}

/* k15058 in k15052 in a14989 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15060(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_15060,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15063,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1386: ##sys#current-module */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[345]);
C_word *av2=av;
av2[0]=*((C_word*)lf[345]+1);
av2[1]=t3;
tp(2,av2);}}

/* k15061 in k15058 in k15052 in a14989 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15063(C_word c,C_word *av){
C_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_15063,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15066,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
/* expand.scm:1388: ##sys#add-to-export/rename-list */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[384]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[384]+1);
av2[1]=t3;
av2[2]=t1;
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}
else{
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[383];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k15064 in k15061 in k15058 in k15052 in a14989 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15066(C_word c,C_word *av){
C_word tmp;
C_word 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_15066,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[383];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop2921 in k15052 in a14989 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15071(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(10,0,2)))){
C_save_and_reclaim_args((void *)trf_15071,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_15096,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_15002,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_pairp(t4))){
if(C_truep(C_i_symbolp(C_u_i_car(t4)))){
if(C_truep(C_i_pairp(C_u_i_cdr(t4)))){
t6=C_i_cadr(t4);
if(C_truep(C_i_symbolp(t6))){
t7=C_u_i_cdr(t4);
t8=t5;
f_15002(t8,C_i_nullp(C_u_i_cdr(t7)));}
else{
t7=t5;
f_15002(t7,C_SCHEME_FALSE);}}
else{
t6=t5;
f_15002(t6,C_SCHEME_FALSE);}}
else{
t6=t5;
f_15002(t6,C_SCHEME_FALSE);}}
else{
t6=t5;
f_15002(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);}}}

/* k15094 in map-loop2921 in k15052 in a14989 in k11477 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15096(C_word c,C_word *av){
C_word tmp;
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_15096,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_15071(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k15109 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15111(C_word c,C_word *av){
C_word tmp;
C_word 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_15111,c,av);}
/* expand.scm:1362: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[386];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a15112 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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=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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_15113,c,av);}
a=C_alloc(7);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15117,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15130,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1366: chicken.syntax#strip-syntax */
t7=C_fast_retrieve(lf[11]);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=C_i_cdr(t2);
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k15115 in a15112 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15117(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_15117,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15120,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1367: ##sys#current-module */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[345]);
C_word *av2=av;
av2[0]=*((C_word*)lf[345]+1);
av2[1]=t3;
tp(2,av2);}}

/* k15118 in k15115 in a15112 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15120(C_word c,C_word *av){
C_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_15120,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15123,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
/* expand.scm:1369: ##sys#add-to-export-list */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[388]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[388]+1);
av2[1]=t3;
av2[2]=t1;
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}
else{
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[387];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k15121 in k15118 in k15115 in a15112 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15123(C_word c,C_word *av){
C_word tmp;
C_word 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_15123,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[387];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k15128 in a15112 in k11474 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15130(C_word c,C_word *av){
C_word tmp;
C_word 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_15130,c,av);}
/* expand.scm:1366: ##sys#validate-exports */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[367]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[367]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[386];
tp(4,av2);}}

/* k15136 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15138(C_word c,C_word *av){
C_word tmp;
C_word 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_15138,c,av);}
/* expand.scm:1234: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[389];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15140(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_15140,c,av);}
a=C_alloc(5);
t5=lf[390];
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15166,a[2]=t1,a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1251: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t6;
av2[2]=lf[389];
av2[3]=t2;
av2[4]=lf[420];
tp(5,av2);}}

/* k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15147(C_word c,C_word *av){
C_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_15147,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+7,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15150,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1240: ##sys#put! */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[416]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[416]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[417];
av2[4]=((C_word*)t0)[7];
tp(5,av2);}}

/* k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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 t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(49,c,4)))){
C_save_and_reclaim((void *)f_15150,c,av);}
a=C_alloc(49);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15183,a[2]=((C_word*)t2)[2],a[3]=((C_word)li203),tmp=(C_word)a,a+=4,tmp));
t16=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15281,a[2]=t10,a[3]=((C_word)li206),tmp=(C_word)a,a+=4,tmp));
t17=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15349,a[2]=C_SCHEME_UNDEFINED,a[3]=t8,a[4]=((C_word)li208),tmp=(C_word)a,a+=5,tmp));
t18=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15419,a[2]=((C_word)li213),tmp=(C_word)a,a+=3,tmp));
t19=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15459,a[2]=t14,a[3]=t10,a[4]=((C_word)li215),tmp=(C_word)a,a+=5,tmp));
t20=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15507,a[2]=t14,a[3]=t4,a[4]=((C_word*)t2)[3],a[5]=t6,a[6]=t12,a[7]=((C_word)li216),tmp=(C_word)a,a+=8,tmp));
t21=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15770,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t2)[3],a[7]=((C_word*)t2)[7],tmp=(C_word)a,a+=8,tmp);
/* expand.scm:1347: parse-decls */
t22=((C_word*)t14)[1];
f_15507(t22,t21,((C_word*)t2)[8]);}

/* k15152 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15154(C_word c,C_word *av){
C_word tmp;
C_word 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_15154,c,av);}
/* expand.scm:1239: scheme#string->symbol */
t2=*((C_word*)lf[418]+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);}}

/* k15160 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15162(C_word c,C_word *av){
C_word tmp;
C_word 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_15162,c,av);}
/* expand.scm:1239: scheme#string-append */
t2=*((C_word*)lf[37]+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[419];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15166(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15166,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15169,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1252: chicken.syntax#strip-syntax */
t3=C_fast_retrieve(lf[11]);{
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);}}

/* k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15169(C_word c,C_word *av){
C_word tmp;
C_word t0=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,2)))){
C_save_and_reclaim((void *)f_15169,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=C_i_cadr(((C_word*)t0)[2]);
t4=C_mutate(((C_word *)t0)+3,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15175,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1254: chicken.internal#library-id */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[220]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[220]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15175(C_word c,C_word *av){
C_word tmp;
C_word t0=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(26,c,2)))){
C_save_and_reclaim((void *)f_15175,c,av);}
a=C_alloc(26);
t2=((C_word*)t0)[2];
t3=C_i_cddr(((C_word*)t2)[2]);
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|8,a[1]=(C_word)f_15147,a[2]=((C_word*)t2)[3],a[3]=t5,a[4]=t1,a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=C_SCHEME_UNDEFINED,a[8]=t3,tmp=(C_word)a,a+=9,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15154,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
t8=C_a_i_string(&a,1,C_make_character(4));
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15162,a[2]=t7,a[3]=t8,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1239: scheme#symbol->string */
t10=*((C_word*)lf[135]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t10;
av2[1]=t9;
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}

/* parse-exports in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15183(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(20,0,3)))){
C_save_and_reclaim_args((void *)trf_15183,3,t0,t1,t2);}
a=C_alloc(20);
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|5,a[1]=(C_word)f_15188,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[2],a[5]=((C_word)li201),tmp=(C_word)a,a+=6,tmp);
t8=C_i_check_list_2(t2,lf[16]);
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|6,a[1]=(C_word)f_15241,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li202),tmp=(C_word)a,a+=7,tmp));
t12=((C_word*)t10)[1];
f_15241(t12,t1,t2);}

/* g2723 in parse-exports in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15188(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(3,0,2)))){
C_save_and_reclaim_args((void *)trf_15188,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+2,t2);
t4=C_mutate(((C_word *)t0)+3,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15195,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_listp(((C_word*)t0)[2]))){
t6=C_eqp(C_fix(3),C_u_i_length(((C_word*)t0)[2]));
t7=t5;
f_15195(t7,(C_truep(t6)?C_eqp(lf[266],C_i_car(((C_word*)t0)[2])):C_SCHEME_FALSE));}
else{
t6=t5;
f_15195(t6,C_SCHEME_FALSE);}}

/* k15193 in g2723 in parse-exports in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void f_15195(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(6,0,5)))){
C_save_and_reclaim_args((void *)trf_15195,2,t0,t1);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_i_cdr(((C_word*)t2)[2]);
t4=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_a_i_list(&a,2,lf[382],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
if(C_truep(C_i_symbolp(((C_word*)t2)[2]))){
t3=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_a_i_list(&a,2,lf[386],((C_word*)t2)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* expand.scm:1266: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word av2[6];
av2[0]=*((C_word*)lf[43]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=lf[389];
av2[3]=lf[391];
av2[4]=((C_word*)t2)[2];
av2[5]=((C_word*)t2)[4];
tp(6,av2);}}}}

/* map-loop2717 in parse-exports in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15241(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_15241,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_15266,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);
/* expand.scm:1259: g2723 */
t4=((C_word*)t0)[4];
f_15188(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);}}}

/* k15264 in map-loop2717 in parse-exports in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15266(C_word c,C_word *av){
C_word tmp;
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_15266,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_15241(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* process-includes in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15281(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,0,3)))){
C_save_and_reclaim_args((void *)trf_15281,4,t0,t1,t2,t3);}
a=C_alloc(22);
t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t5=t4;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=((C_word*)t6)[1];
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15290,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li204),tmp=(C_word)a,a+=5,tmp);
t9=C_i_check_list_2(t2,lf[16]);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15313,a[2]=t1,tmp=(C_word)a,a+=3,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|6,a[1]=(C_word)f_15315,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,a[6]=((C_word)li205),tmp=(C_word)a,a+=7,tmp));
t14=((C_word*)t12)[1];
f_15315(t14,t10,t2);}

/* g2771 in process-includes in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15290(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(3,0,4)))){
C_save_and_reclaim_args((void *)trf_15290,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_stringp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15304,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1275: read-forms */
f_15419(t3,t2,((C_word*)t0)[3]);}
else{
/* expand.scm:1276: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word av2[5];
av2[0]=*((C_word*)lf[43]+1);
av2[1]=t1;
av2[2]=lf[392];
av2[3]=lf[393];
av2[4]=t2;
tp(5,av2);}}}

/* k15302 in g2771 in process-includes in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15304(C_word c,C_word *av){
C_word tmp;
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_15304,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[103],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k15311 in process-includes in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15313(C_word c,C_word *av){
C_word tmp;
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_15313,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[103],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop2765 in process-includes in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15315(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_15315,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_15340,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);
/* expand.scm:1273: g2771 */
t4=((C_word*)t0)[4];
f_15290(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);}}}

/* k15338 in map-loop2765 in process-includes in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15340(C_word c,C_word *av){
C_word tmp;
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_15340,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_15315(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* expand/begin in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15349(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,3)))){
C_save_and_reclaim_args((void *)trf_15349,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+2,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15353,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1280: chicken.syntax#expand */
t5=C_fast_retrieve(lf[64]);{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k15351 in expand/begin in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15353(C_word c,C_word *av){
C_word tmp;
C_word t0=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(17,c,3)))){
C_save_and_reclaim((void *)f_15353,c,av);}
a=C_alloc(17);
t2=((C_word*)t0)[2];
t3=C_i_pairp(t1);
t4=(C_truep(t3)?C_eqp(lf[103],C_u_i_car(t1)):C_SCHEME_FALSE);
if(C_truep(t4)){
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_cdr(t1);
t10=C_i_check_list_2(t9,lf[16]);
t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15375,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,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|6,a[1]=(C_word)f_15377,a[2]=t7,a[3]=t13,a[4]=((C_word*)t2)[3],a[5]=t8,a[6]=((C_word)li207),tmp=(C_word)a,a+=7,tmp));
t15=((C_word*)t13)[1];
f_15377(t15,t11,t9);}
else{
t5=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k15373 in k15351 in expand/begin in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15375(C_word c,C_word *av){
C_word tmp;
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_15375,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[103],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop2798 in k15351 in expand/begin in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void f_15377(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_15377,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_15402,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);
/* expand.scm:1282: g2804 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_15349(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);}}}

/* k15400 in map-loop2798 in k15351 in expand/begin in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
static void C_ccall f_15402(C_word c,C_word *av){
C_word tmp;
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_15402,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_15377(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* read-forms in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15419(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(8,0,2)))){
C_save_and_reclaim_args((void *)trf_15419,3,t1,t2,t3);}
a=C_alloc(8);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15423,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15448,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1287: chicken.platform#feature? */
t6=C_fast_retrieve(lf[208]);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[398];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k15421 in read-forms in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15423(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(19,0,4)))){
C_save_and_reclaim_args((void *)trf_15423,2,t0,t1);}
a=C_alloc(19);
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_15428,a[2]=t5,a[3]=t3,a[4]=((C_word)li209),tmp=(C_word)a,a+=5,tmp);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15433,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li211),tmp=(C_word)a,a+=5,tmp);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15442,a[2]=t3,a[3]=t5,a[4]=((C_word)li212),tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1285: ##sys#dynamic-wind */
t9=*((C_word*)lf[47]+1);{
C_word av2[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);}}

/* a15427 in k15421 in read-forms in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15428(C_word c,C_word *av){
C_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!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15428,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[394]));
t3=C_mutate((C_word*)lf[394]+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);}}

/* a15432 in k15421 in read-forms in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15433(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_15433,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15439,a[2]=((C_word)li210),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1290: ##sys#include-forms-from-file */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[395]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[395]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=*((C_word*)lf[2]+1);
av2[4]=((C_word*)t0)[3];
av2[5]=t2;
tp(6,av2);}}

/* a15438 in a15432 in k15421 in read-forms in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
static void C_ccall f_15439(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15439,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a15441 in k15421 in read-forms in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15442(C_word c,C_word *av){
C_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!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15442,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[394]));
t3=C_mutate((C_word*)lf[394]+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);}}

/* k15446 in read-forms in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15448(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15448,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15454,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1288: ##sys#symbol-has-toplevel-binding? */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[397]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[397]+1);
av2[1]=t2;
av2[2]=lf[396];
tp(3,av2);}}
else{
t2=((C_word*)t0)[2];
f_15423(t2,C_SCHEME_FALSE);}}

/* k15452 in k15446 in read-forms in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15454(C_word c,C_word *av){
C_word tmp;
C_word 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_15454,c,av);}
t2=((C_word*)t0)[2];
f_15423(t2,(C_truep(t1)?C_slot(lf[396],C_fix(0)):C_SCHEME_FALSE));}

/* process-include-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15459(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,4)))){
C_save_and_reclaim_args((void *)trf_15459,3,t0,t1,t2);}
a=C_alloc(11);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15467,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|4,a[1]=(C_word)f_15469,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=((C_word)li214),tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_15469(t7,t3,t2,C_SCHEME_END_OF_LIST);}

/* k15465 in process-include-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15467(C_word c,C_word *av){
C_word tmp;
C_word 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_15467,c,av);}
/* expand.scm:1295: parse-decls */
t2=((C_word*)((C_word*)t0)[2])[1];
f_15507(t2,((C_word*)t0)[3],t1);}

/* loop in process-include-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15469(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_15469,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t2))){
/* expand.scm:1298: scheme#reverse */
t4=*((C_word*)lf[72]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15482,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1299: read-forms */
f_15419(t4,C_i_car(t2),C_SCHEME_TRUE);}}

/* k15480 in loop in process-include-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15482(C_word c,C_word *av){
C_word tmp;
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_15482,c,av);}
a=C_alloc(9);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15491,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15495,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1301: scheme#reverse */
t5=*((C_word*)lf[72]+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);}}

/* k15489 in k15480 in loop in process-include-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
static void C_ccall f_15491(C_word c,C_word *av){
C_word tmp;
C_word 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_15491,c,av);}
/* expand.scm:1300: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_15469(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k15493 in k15480 in loop in process-include-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
static void C_ccall f_15495(C_word c,C_word *av){
C_word tmp;
C_word 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_15495,c,av);}
/* expand.scm:1301: scheme#append */
t2=*((C_word*)lf[15]+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);}}

/* parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15507(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 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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_15507,3,t0,t1,t2);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[399];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_pairp(t2);
t4=(C_truep(t3)?C_i_pairp(C_u_i_car(t2)):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=C_i_car(t2);
t6=C_u_i_cdr(t2);
t7=C_i_car(t5);
t8=C_eqp(t7,lf[386]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15536,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word*)t0)[3],a[6]=t5,tmp=(C_word)a,a+=7,tmp);
/* expand.scm:1311: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word av2[5];
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t9;
av2[2]=lf[386];
av2[3]=t5;
av2[4]=lf[400];
tp(5,av2);}}
else{
t9=C_eqp(t7,lf[401]);
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15566,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t6,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1315: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word av2[5];
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t10;
av2[2]=lf[401];
av2[3]=t5;
av2[4]=lf[402];
tp(5,av2);}}
else{
t10=C_eqp(t7,lf[375]);
if(C_truep(t10)){
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15579,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t6,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1319: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word av2[5];
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t11;
av2[2]=lf[375];
av2[3]=t5;
av2[4]=lf[403];
tp(5,av2);}}
else{
t11=C_eqp(t7,lf[392]);
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15601,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word*)t0)[5],a[6]=t5,tmp=(C_word)a,a+=7,tmp);
/* expand.scm:1323: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word av2[5];
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t12;
av2[2]=lf[392];
av2[3]=t5;
av2[4]=lf[404];
tp(5,av2);}}
else{
t12=C_eqp(t7,lf[405]);
if(C_truep(t12)){
t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15623,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word*)t0)[5],a[6]=t5,tmp=(C_word)a,a+=7,tmp);
/* expand.scm:1327: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word av2[5];
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t13;
av2[2]=lf[405];
av2[3]=t5;
av2[4]=lf[406];
tp(5,av2);}}
else{
t13=C_eqp(t7,lf[407]);
if(C_truep(t13)){
t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15649,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t6,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1331: process-include-decls */
t15=((C_word*)((C_word*)t0)[6])[1];
f_15459(t15,t14,C_u_i_cdr(t5));}
else{
t14=C_eqp(t7,lf[206]);
if(C_truep(t14)){
t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15680,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1336: process-cond-expand */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[205]);
C_word av2[3];
av2[0]=*((C_word*)lf[205]+1);
av2[1]=t15;
av2[2]=C_u_i_cdr(t5);
tp(3,av2);}}
else{
t15=C_eqp(t7,lf[103]);
if(C_truep(t15)){
t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15695,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1339: scheme#append */
t17=*((C_word*)lf[15]+1);{
C_word av2[4];
av2[0]=t17;
av2[1]=t16;
av2[2]=C_u_i_cdr(t5);
av2[3]=t6;
((C_proc)(void*)(*((C_word*)t17+1)))(4,av2);}}
else{
t16=C_eqp(t7,lf[309]);
if(C_truep(t16)){
/* expand.scm:1341: parse-decls */
t22=t1;
t23=t6;
t1=t22;
t2=t23;
goto loop;}
else{
t17=C_eqp(t7,lf[353]);
if(C_truep(t17)){
t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15719,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t19=C_u_i_cdr(t5);
t20=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15729,a[2]=t18,a[3]=t19,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1344: parse-decls */
t22=t20;
t23=t6;
t1=t22;
t2=t23;
goto loop;}
else{
/* expand.scm:1303: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word av2[5];
av2[0]=*((C_word*)lf[43]+1);
av2[1]=t1;
av2[2]=lf[389];
av2[3]=lf[408];
av2[4]=t5;
tp(5,av2);}}}}}}}}}}}}
else{
/* expand.scm:1303: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word av2[5];
av2[0]=*((C_word*)lf[43]+1);
av2[1]=t1;
av2[2]=lf[389];
av2[3]=lf[408];
av2[4]=C_i_car(t2);
tp(5,av2);}}}}

/* k15534 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15536(C_word c,C_word *av){
C_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_15536,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15543,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15547,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1312: parse-exports */
t4=((C_word*)((C_word*)t0)[5])[1];
f_15183(t4,t3,C_u_i_cdr(((C_word*)t0)[6]));}

/* k15541 in k15534 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15543(C_word c,C_word *av){
C_word tmp;
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_15543,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[103],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k15545 in k15534 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15547(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15547,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15555,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1313: parse-decls */
t3=((C_word*)((C_word*)t0)[3])[1];
f_15507(t3,t2,((C_word*)t0)[4]);}

/* k15553 in k15545 in k15534 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
static void C_ccall f_15555(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15555,c,av);}
a=C_alloc(3);
t2=C_a_i_list(&a,1,t1);
/* expand.scm:1312: ##sys#append */
t3=*((C_word*)lf[73]+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);}}

/* k15564 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15566(C_word c,C_word *av){
C_word tmp;
C_word t0=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,2)))){
C_save_and_reclaim((void *)f_15566,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE);
/* expand.scm:1317: parse-decls */
t3=((C_word*)((C_word*)t0)[3])[1];
f_15507(t3,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k15577 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15579(C_word c,C_word *av){
C_word tmp;
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,2)))){
C_save_and_reclaim((void *)f_15579,c,av);}
a=C_alloc(7);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[375],t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15590,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1321: parse-decls */
t5=((C_word*)((C_word*)t0)[4])[1];
f_15507(t5,t4,((C_word*)t0)[5]);}

/* k15588 in k15577 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15590(C_word c,C_word *av){
C_word tmp;
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_15590,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[103],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k15599 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15601(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15601,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15608,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);
/* expand.scm:1324: process-includes */
t3=((C_word*)((C_word*)t0)[5])[1];
f_15281(t3,t2,C_u_i_cdr(((C_word*)t0)[6]),C_SCHEME_FALSE);}

/* k15606 in k15599 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15608(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15608,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15612,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1325: parse-decls */
t3=((C_word*)((C_word*)t0)[3])[1];
f_15507(t3,t2,((C_word*)t0)[4]);}

/* k15610 in k15606 in k15599 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
static void C_ccall f_15612(C_word c,C_word *av){
C_word tmp;
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_15612,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[103],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k15621 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15623(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15623,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15630,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);
/* expand.scm:1328: process-includes */
t3=((C_word*)((C_word*)t0)[5])[1];
f_15281(t3,t2,C_u_i_cdr(((C_word*)t0)[6]),C_SCHEME_TRUE);}

/* k15628 in k15621 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15630(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15630,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15634,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1329: parse-decls */
t3=((C_word*)((C_word*)t0)[3])[1];
f_15507(t3,t2,((C_word*)t0)[4]);}

/* k15632 in k15628 in k15621 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in ... */
static void C_ccall f_15634(C_word c,C_word *av){
C_word tmp;
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_15634,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[103],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k15647 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15649(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15649,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15653,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1332: parse-decls */
t3=((C_word*)((C_word*)t0)[3])[1];
f_15507(t3,t2,((C_word*)t0)[4]);}

/* k15651 in k15647 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15653(C_word c,C_word *av){
C_word tmp;
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_15653,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[103],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k15678 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15680(C_word c,C_word *av){
C_word tmp;
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_15680,c,av);}
a=C_alloc(9);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[103],t2);
t4=C_a_i_list(&a,1,t3);
/* expand.scm:1334: parse-decls */
t5=((C_word*)((C_word*)t0)[3])[1];
f_15507(t5,((C_word*)t0)[4],t4);}

/* k15693 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15695(C_word c,C_word *av){
C_word tmp;
C_word 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_15695,c,av);}
/* expand.scm:1339: parse-decls */
t2=((C_word*)((C_word*)t0)[2])[1];
f_15507(t2,((C_word*)t0)[3],t1);}

/* k15717 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15719(C_word c,C_word *av){
C_word tmp;
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_15719,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[103],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k15727 in parse-decls in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15729(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15729,c,av);}
a=C_alloc(3);
t2=C_a_i_list(&a,1,t1);
/* expand.scm:1343: ##sys#append */
t3=*((C_word*)lf[73]+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);}}

/* k15768 in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15770(C_word c,C_word *av){
C_word tmp;
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_15770,c,av);}
a=C_alloc(9);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15785,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)((C_word*)t0)[6])[1])){
t4=t3;
f_15785(t4,C_SCHEME_TRUE);}
else{
t4=C_a_i_list(&a,1,((C_word*)t0)[7]);
t5=t3;
f_15785(t5,C_a_i_list(&a,1,t4));}}

/* k15783 in k15768 in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15785(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(49,0,2)))){
C_save_and_reclaim_args((void *)trf_15785,2,t0,t1);}
a=C_alloc(49);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15789,a[2]=t1,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15793,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)((C_word*)t2)[6])[1])){
t5=t4;
f_15793(t5,C_SCHEME_END_OF_LIST);}
else{
t5=C_a_i_list(&a,3,lf[413],lf[414],lf[415]);
t6=C_a_i_list(&a,1,lf[309]);
t7=C_a_i_list(&a,3,lf[75],t5,t6);
t8=C_a_i_list(&a,2,lf[203],t7);
t9=C_a_i_list(&a,3,lf[343],((C_word*)t2)[7],t8);
t10=t4;
f_15793(t10,C_a_i_list(&a,1,t9));}}

/* k15787 in k15783 in k15768 in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void C_ccall f_15789(C_word c,C_word *av){
C_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_15789,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[105],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k15791 in k15783 in k15768 in k15148 in k15145 in k15173 in k15167 in k15164 in a15139 in k11471 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 in ... */
static void f_15793(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(45,0,3)))){
C_save_and_reclaim_args((void *)trf_15793,2,t0,t1);}
a=C_alloc(45);
t2=C_a_i_cons(&a,2,lf[409],((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[410],t2);
t4=C_a_i_list(&a,2,lf[411],t3);
t5=C_a_i_cons(&a,2,lf[409],((C_word*)t0)[2]);
t6=C_a_i_cons(&a,2,lf[410],t5);
t7=C_a_i_list(&a,3,lf[410],lf[412],lf[382]);
t8=C_a_i_list(&a,3,lf[375],t6,t7);
t9=C_a_i_list(&a,3,t4,t8,((C_word*)t0)[3]);
/* expand.scm:1348: ##sys#append */
t10=*((C_word*)lf[73]+1);{
C_word av2[4];
av2[0]=t10;
av2[1]=((C_word*)t0)[4];
av2[2]=t1;
av2[3]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}

/* k15857 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15859(C_word c,C_word *av){
C_word tmp;
C_word 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_15859,c,av);}
/* expand.scm:1172: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[421];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15861(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_15861,c,av);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15865,a[2]=C_SCHEME_UNDEFINED,a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:1176: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2=av;
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[421];
av2[3]=t2;
av2[4]=lf[427];
tp(5,av2);}}

/* k15863 in a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15865(C_word c,C_word *av){
C_word tmp;
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_15865,c,av);}
a=C_alloc(3);
t2=C_i_length(((C_word*)t0)[5]);
t3=C_mutate(((C_word *)t0)+2,t2);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15871,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1178: chicken.internal#library-id */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[220]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[220]+1);
av2[1]=t4;
av2[2]=C_i_cadr(((C_word*)t0)[5]);
tp(3,av2);}}

/* k15869 in k15863 in a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15871(C_word c,C_word *av){
C_word tmp;
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_15871,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15877,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],tmp=(C_word)a,a+=7,tmp);
if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t2)[2],C_fix(4)))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16022,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1185: chicken.syntax#strip-syntax */
t5=C_fast_retrieve(lf[11]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_caddr(((C_word*)t2)[5]);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=t3;
f_15877(t4,C_SCHEME_FALSE);}}

/* k15875 in k15869 in k15863 in a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15877(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(8,0,2)))){
C_save_and_reclaim_args((void *)trf_15877,2,t0,t1);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15880,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);
/* expand.scm:1186: chicken.syntax#strip-syntax */
t3=C_fast_retrieve(lf[11]);{
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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15949,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16008,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1219: chicken.syntax#strip-syntax */
t4=C_fast_retrieve(lf[11]);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_caddr(((C_word*)t0)[6]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k15878 in k15875 in k15869 in k15863 in a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15880(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15880,c,av);}
a=C_alloc(13);
t2=C_i_cadddr(t1);
if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],C_fix(4)))){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15892,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15926,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15930,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1205: scheme#symbol->string */
t6=*((C_word*)lf[135]+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)[3];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15933,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:1211: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t3;
av2[2]=lf[421];
av2[3]=t1;
av2[4]=lf[426];
tp(5,av2);}}}

/* k15890 in k15878 in k15875 in k15869 in k15863 in a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15892(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15892,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15895,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);
/* expand.scm:1206: r */
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]=lf[421];
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}

/* k15893 in k15890 in k15878 in k15875 in k15869 in k15863 in a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15895(C_word c,C_word *av){
C_word tmp;
C_word t0=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(36,c,1)))){
C_save_and_reclaim((void *)f_15895,c,av);}
a=C_alloc(36);
t2=C_i_cddddr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[365],t2);
t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t3);
t5=C_a_i_cons(&a,2,t1,t4);
t6=C_a_i_list(&a,2,((C_word*)t0)[4],((C_word*)t0)[3]);
t7=C_a_i_list(&a,4,t1,((C_word*)t0)[5],lf[422],t6);
t8=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_a_i_list(&a,3,lf[103],t5,t7);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}

/* k15924 in k15878 in k15875 in k15869 in k15863 in a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15926(C_word c,C_word *av){
C_word tmp;
C_word 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_15926,c,av);}
/* expand.scm:1202: scheme#string->symbol */
t2=*((C_word*)lf[418]+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);}}

/* k15928 in k15878 in k15875 in k15869 in k15863 in a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15930(C_word c,C_word *av){
C_word tmp;
C_word 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_15930,c,av);}
/* expand.scm:1203: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[423]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[423]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[424];
av2[3]=t1;
tp(4,av2);}}

/* k15931 in k15878 in k15875 in k15869 in k15863 in a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15933(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15933,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15940,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1215: chicken.internal#library-id */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[220]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[220]+1);
av2[1]=t2;
av2[2]=C_i_car(((C_word*)t0)[4]);
tp(3,av2);}}

/* k15938 in k15931 in k15878 in k15875 in k15869 in k15863 in a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15940(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15940,c,av);}
t2=((C_word*)t0)[2];
/* expand.scm:1213: ##sys#instantiate-functor */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[425]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[425]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=t1;
av2[4]=C_u_i_cdr(((C_word*)t2)[4]);
tp(5,av2);}}

/* k15947 in k15875 in k15869 in k15863 in a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_15949(C_word c,C_word *av){
C_word tmp;
C_word t0=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,2)))){
C_save_and_reclaim((void *)f_15949,c,av);}
a=C_alloc(6);
t2=C_eqp(lf[365],t1);
t3=(C_truep(t2)?C_SCHEME_TRUE:t1);
t4=C_i_cdddr(((C_word*)t0)[2]);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15974,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_pairp(t4))){
t6=C_i_nullp(C_u_i_cdr(t4));
t7=t5;
f_15974(t7,(C_truep(t6)?C_i_stringp(C_u_i_car(t4)):C_SCHEME_FALSE));}
else{
t6=t5;
f_15974(t6,C_SCHEME_FALSE);}}

/* k15972 in k15947 in k15875 in k15869 in k15863 in a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_15974(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(21,0,1)))){
C_save_and_reclaim_args((void *)trf_15974,2,t0,t1);}
a=C_alloc(21);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_a_i_list(&a,3,lf[104],t2,*((C_word*)lf[2]+1));
t4=C_a_i_list(&a,1,t3);
t5=C_a_i_cons(&a,2,((C_word*)t0)[3],t4);
t6=C_a_i_cons(&a,2,((C_word*)t0)[4],t5);
t7=((C_word*)t0)[5];{
C_word av2[2];
av2[0]=t7;
av2[1]=C_a_i_cons(&a,2,lf[105],t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t2=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,((C_word*)t0)[4],t2);
t4=((C_word*)t0)[5];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,lf[105],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k16006 in k15875 in k15869 in k15863 in a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16008(C_word c,C_word *av){
C_word tmp;
C_word 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_16008,c,av);}
/* expand.scm:1219: ##sys#validate-exports */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[367]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[367]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[421];
tp(4,av2);}}

/* k16020 in k15869 in k15863 in a15860 in k11468 in k11464 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16022(C_word c,C_word *av){
C_word tmp;
C_word 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_16022,c,av);}
t2=((C_word*)t0)[2];
f_15877(t2,C_eqp(lf[422],t1));}

/* k16032 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16034(C_word c,C_word *av){
C_word tmp;
C_word 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_16034,c,av);}
/* expand.scm:1159: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[206];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a16035 in k11076 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16036(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 *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16036,c,av);}
/* expand.scm:1164: process-cond-expand */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[205]);
C_word *av2=av;
av2[0]=*((C_word*)lf[205]+1);
av2[1]=t1;
av2[2]=C_i_cdr(t2);
tp(3,av2);}}

/* k16046 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_16048,c,av);}
/* expand.scm:1089: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[411];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a16049 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16050(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_16050,c,av);}
a=C_alloc(9);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16054,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16075,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1093: r */
t7=t3;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[375];
((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}

/* k16052 in a16049 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16054(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16054,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16065,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1094: r */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[375];
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}

/* k16063 in k16052 in a16049 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16065(C_word c,C_word *av){
C_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_16065,c,av);}
a=C_alloc(9);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,t1,t2);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,2,lf[364],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k16073 in a16049 in k11073 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16075(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_16075,c,av);}
a=C_alloc(3);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,t1,t2);
/* expand.scm:1093: ##sys#register-meta-expression */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[428]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[428]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=t3;
tp(3,av2);}}

/* k16081 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16083(C_word c,C_word *av){
C_word tmp;
C_word 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_16083,c,av);}
/* expand.scm:1067: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[375];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a16084 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16085(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 *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_16085,c,av);}
a=C_alloc(22);
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_16094,a[2]=t3,a[3]=t4,a[4]=((C_word)li223),tmp=(C_word)a,a+=5,tmp);
t10=C_i_cdr(t2);
t11=C_i_check_list_2(t10,lf[16]);
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16156,a[2]=t1,tmp=(C_word)a,a+=3,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(t14,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16158,a[2]=t7,a[3]=t14,a[4]=t9,a[5]=t8,a[6]=((C_word)li224),tmp=(C_word)a,a+=7,tmp));
t16=((C_word*)t14)[1];
f_16158(t16,t12,t10);}

/* g2487 in a16084 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_16094(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(9,0,8)))){
C_save_and_reclaim_args((void *)trf_16094,3,t0,t1,t2);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16100,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li221),tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16106,a[2]=((C_word)li222),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1073: ##sys#call-with-values */{
C_word av2[4];
av2[0]=0;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
C_call_with_values(4,av2);}}

/* a16099 in g2487 in a16084 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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 *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_16100,c,av);}
/* expand.scm:1073: ##sys#decompose-import */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[429]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[429]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
av2[5]=lf[375];
tp(6,av2);}}

/* a16105 in g2487 in a16084 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16106(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7=av[7];
C_word t8;
C_word t9;
C_word *a;
if(c!=8) C_bad_argc_2(c,8,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_16106,c,av);}
a=C_alloc(9);
t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16110,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,tmp=(C_word)a,a+=9,tmp);
/* expand.scm:1074: ##sys#current-module */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[345]);
C_word *av2=av;
av2[0]=*((C_word*)lf[345]+1);
av2[1]=t8;
tp(2,av2);}}

/* k16108 in a16105 in g2487 in a16084 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16110(C_word c,C_word *av){
C_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_16110,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16113,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16147,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:1075: ##sys#module-name */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[359]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[359]+1);
av2[1]=t3;
av2[2]=t1;
tp(3,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_16113(2,av2);}}}

/* k16111 in k16108 in a16105 in g2487 in a16084 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16113(C_word c,C_word *av){
C_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,10)))){
C_save_and_reclaim((void *)f_16113,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16116,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_not(((C_word*)t2)[5]))){
/* expand.scm:1079: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=t3;
av2[2]=lf[375];
av2[3]=lf[432];
av2[4]=((C_word*)t2)[4];
tp(5,av2);}}
else{
/* expand.scm:1081: ##sys#import */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[433]);
C_word *av2;
if(c >= 11) {
  av2=av;
} else {
  av2=C_alloc(11);
}
av2[0]=*((C_word*)lf[433]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=((C_word*)t2)[6];
av2[4]=((C_word*)t2)[7];
av2[5]=((C_word*)t2)[8];
av2[6]=C_fast_retrieve(lf[3]);
av2[7]=C_fast_retrieve(lf[17]);
av2[8]=C_SCHEME_FALSE;
av2[9]=C_SCHEME_FALSE;
av2[10]=lf[375];
tp(11,av2);}}}

/* k16114 in k16111 in k16108 in a16105 in g2487 in a16084 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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 t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_16116,c,av);}
a=C_alloc(9);
t2=C_i_not(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?lf[430]:C_a_i_list(&a,3,lf[431],((C_word*)t0)[2],((C_word*)t0)[4]));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k16145 in k16108 in a16105 in g2487 in a16084 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16147(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16147,c,av);}
t2=C_eqp(((C_word*)t0)[2],t1);
if(C_truep(t2)){
/* expand.scm:1076: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[375];
av2[3]=lf[434];
av2[4]=((C_word*)t0)[2];
tp(5,av2);}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_16113(2,av2);}}}

/* k16154 in a16084 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_16156,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[103],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop2481 in a16084 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_16158(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_16158,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_16183,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);
/* expand.scm:1072: g2487 */
t4=((C_word*)t0)[4];
f_16094(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);}}}

/* k16181 in map-loop2481 in a16084 in k11069 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16183(C_word c,C_word *av){
C_word tmp;
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_16183,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_16158(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k16192 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16194(C_word c,C_word *av){
C_word tmp;
C_word 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_16194,c,av);}
/* expand.scm:1059: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[435];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a16195 in k11066 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16196(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_16196,c,av);}
t5=C_fast_retrieve(lf[381]);
/* expand.scm:1062: g2471 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[381]);
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=*((C_word*)lf[381]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=t4;
av2[5]=C_fast_retrieve(lf[4]);
av2[6]=C_fast_retrieve(lf[231]);
av2[7]=C_SCHEME_TRUE;
av2[8]=C_SCHEME_FALSE;
av2[9]=lf[435];
tp(10,av2);}}

/* k16202 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16204(C_word c,C_word *av){
C_word tmp;
C_word 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_16204,c,av);}
/* expand.scm:1052: ##sys#extend-macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[29]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[436];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t1;
tp(5,av2);}}

/* a16205 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_16206(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_16206,c,av);}
t5=C_fast_retrieve(lf[381]);
/* expand.scm:1055: g2457 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[381]);
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=*((C_word*)lf[381]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=t4;
av2[5]=C_fast_retrieve(lf[3]);
av2[6]=C_fast_retrieve(lf[17]);
av2[7]=C_SCHEME_FALSE;
av2[8]=C_SCHEME_FALSE;
av2[9]=lf[436];
tp(10,av2);}}

/* k4914 */
static void C_ccall f_4916(C_word c,C_word *av){
C_word tmp;
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_4916,c,av);}
a=C_alloc(19);
t2=C_a_i_provide(&a,1,lf[0]);
t3=C_a_i_provide(&a,1,lf[1]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4919,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t4;
C_library_toplevel(2,av2);}}

/* k4917 in k4914 */
static void C_ccall f_4919(C_word c,C_word *av){
C_word tmp;
C_word t0=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_4919,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4922,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);}}

/* k4920 in k4917 in k4914 */
static void C_ccall f_4922(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_4922,c,av);}
a=C_alloc(3);
t2=C_set_block_item(lf[2] /* ##sys#current-source-filename */,0,C_SCHEME_FALSE);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:89: scheme#make-parameter */
t4=C_fast_retrieve(lf[237]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6205(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_6205,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[3]+1 /* (set! ##sys#current-environment ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6209,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:90: scheme#make-parameter */
t4=C_fast_retrieve(lf[237]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6209(C_word c,C_word *av){
C_word tmp;
C_word t0=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(15,c,4)))){
C_save_and_reclaim((void *)f_6209,c,av);}
a=C_alloc(15);
t2=C_mutate((C_word*)lf[4]+1 /* (set! ##sys#current-meta-environment ...) */,t1);
t3=C_mutate(&lf[5] /* (set! chicken.syntax#lookup ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6211,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate(&lf[7] /* (set! chicken.syntax#macro-alias ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6228,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[11]+1 /* (set! chicken.syntax#strip-syntax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6275,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[13]+1 /* (set! ##sys#extend-se ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6417,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp));
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6599,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:148: scheme#make-parameter */
t8=C_fast_retrieve(lf[237]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}

/* chicken.syntax#lookup in k6207 in k6203 in k4920 in k4917 in k4914 */
static C_word f_6211(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;{}
t3=C_u_i_assq(t1,t2);
if(C_truep(t3)){
return(C_i_cdr(t3));}
else{
t4=C_i_getprop(t1,lf[6],C_SCHEME_FALSE);
return((C_truep(t4)?t4:C_SCHEME_FALSE));}}

/* chicken.syntax#macro-alias in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_6228(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_6228,3,t1,t2,t3);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6235,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:98: chicken.keyword#keyword? */
t5=C_fast_retrieve(lf[10]);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k6233 in chicken.syntax#macro-alias in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6235(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_6235,c,av);}
a=C_alloc(3);
t2=(C_truep(t1)?t1:C_u_i_namespaced_symbolp(((C_word*)t0)[2]));
if(C_truep(t2)){
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6241,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:100: chicken.base#gensym */
t4=*((C_word*)lf[9]+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)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k6239 in k6233 in chicken.syntax#macro-alias in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6241(C_word c,C_word *av){
C_word tmp;
C_word t0=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,1)))){
C_save_and_reclaim((void *)f_6241,c,av);}
a=C_alloc(16);
t2=((C_word*)t0)[2];
t3=(
/* expand.scm:101: lookup */
  f_6211(((C_word*)t2)[2],((C_word*)t2)[3])
);
t4=(C_truep(t3)?t3:((C_word*)t2)[2]);
t5=C_i_getprop(((C_word*)t2)[2],lf[8],C_SCHEME_FALSE);
if(C_truep(t5)){
t6=C_a_i_putprop(&a,3,t1,lf[6],t4);
t7=C_a_i_putprop(&a,3,t1,lf[8],t5);
t8=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t8;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t6=C_a_i_putprop(&a,3,t1,lf[6],t4);
t7=C_a_i_putprop(&a,3,t1,lf[8],((C_word*)t2)[2]);
t8=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t8;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}

/* chicken.syntax#strip-syntax in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6275(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 *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_6275,c,av);}
a=C_alloc(9);
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_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_6281,a[2]=t4,a[3]=t6,a[4]=((C_word)li3),tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_6281(t8,t1,t2);}

/* walk in chicken.syntax#strip-syntax in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_6281(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(6,0,2)))){
C_save_and_reclaim_args((void *)trf_6281,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_i_assq(t2,((C_word*)((C_word*)t0)[2])[1]);
if(C_truep(t3)){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_i_cdr(t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6297,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* expand.scm:115: chicken.keyword#keyword? */
t5=C_fast_retrieve(lf[10]);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k6295 in walk in chicken.syntax#strip-syntax in k6207 in k6203 in k4920 in k4917 in k4914 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_6297,c,av);}
a=C_alloc(15);
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{
if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
t2=C_i_getprop(((C_word*)t0)[3],lf[6],C_SCHEME_FALSE);
t3=C_i_getprop(((C_word*)t0)[3],lf[8],C_SCHEME_FALSE);
if(C_truep(t3)){
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
if(C_truep(C_i_not(t2))){
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_pairp(t2);
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=(C_truep(t4)?((C_word*)t0)[3]:t2);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}
else{
if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
t2=C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_FALSE);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
t4=C_a_i_cons(&a,2,t3,((C_word*)((C_word*)t0)[4])[1]);
t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,t4);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6359,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* expand.scm:125: walk */
t7=((C_word*)((C_word*)t0)[5])[1];
f_6281(t7,t6,C_u_i_car(((C_word*)t0)[3]));}
else{
if(C_truep(C_i_vectorp(((C_word*)t0)[3]))){
t2=C_block_size(((C_word*)t0)[3]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6377,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)[2],tmp=(C_word)a,a+=7,tmp);
/* expand.scm:130: scheme#make-vector */
t4=*((C_word*)lf[12]+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);}}
else{
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);}}}}}}

/* k6350 in k6357 in k6295 in walk in chicken.syntax#strip-syntax in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6352(C_word c,C_word *av){
C_word tmp;
C_word t0=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_6352,c,av);}
t2=C_i_setslot(((C_word*)t0)[2],C_fix(1),t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k6357 in k6295 in walk in chicken.syntax#strip-syntax in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6359(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_6359,c,av);}
a=C_alloc(4);
t2=C_i_setslot(((C_word*)t0)[2],C_fix(0),t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6352,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:126: walk */
t4=((C_word*)((C_word*)t0)[4])[1];
f_6281(t4,t3,C_u_i_cdr(((C_word*)t0)[5]));}

/* k6375 in k6295 in walk in chicken.syntax#strip-syntax in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6377(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_6377,c,av);}
a=C_alloc(16);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[3])[1]);
t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6386,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t6,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word)li2),tmp=(C_word)a,a+=8,tmp));
t8=((C_word*)t6)[1];
f_6386(t8,((C_word*)t0)[6],C_fix(0));}

/* doloop900 in k6375 in k6295 in walk in chicken.syntax#strip-syntax in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_6386(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_6386,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6407,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:134: walk */
t4=((C_word*)((C_word*)t0)[5])[1];
f_6281(t4,t3,C_slot(((C_word*)t0)[6],t2));}}

/* k6405 in doloop900 in k6375 in k6295 in walk in chicken.syntax#strip-syntax in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6407(C_word c,C_word *av){
C_word tmp;
C_word t0=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,2)))){
C_save_and_reclaim((void *)f_6407,c,av);}
t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1);
t3=((C_word*)((C_word*)t0)[4])[1];
f_6386(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));}

/* ##sys#extend-se in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6417(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 *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_6417,c,av);}
a=C_alloc(18);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6421,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_rest_nullp(c,4))){
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(t3,lf[16]);
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_6560,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li7),tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_6560(t13,t4,t3);}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_get_rest_arg(c,4,av,4,t0);
f_6421(2,av2);}}}

/* k6419 in ##sys#extend-se in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6421(C_word c,C_word *av){
C_word tmp;
C_word t0=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(12,c,4)))){
C_save_and_reclaim((void *)f_6421,c,av);}
a=C_alloc(12);
t2=C_i_check_list_2(t1,lf[14]);
t3=C_i_check_list_2(((C_word*)t0)[2],lf[14]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6446,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,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_6511,a[2]=t6,a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_6511(t8,t4,t1,((C_word*)t0)[2]);}

/* k6444 in k6419 in ##sys#extend-se in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6446(C_word c,C_word *av){
C_word tmp;
C_word t0=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(17,c,4)))){
C_save_and_reclaim((void *)f_6446,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6461,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6463,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li5),tmp=(C_word)a,a+=6,tmp));
t10=((C_word*)t8)[1];
f_6463(t10,t6,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k6459 in k6444 in k6419 in ##sys#extend-se in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6461(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6461,c,av);}
/* expand.scm:143: scheme#append */
t2=*((C_word*)lf[15]+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);}}

/* map-loop985 in k6444 in k6419 in ##sys#extend-se in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_6463(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_6463,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);}}}

/* for-each-loop948 in k6419 in ##sys#extend-se in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_6511(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(8,0,3)))){
C_save_and_reclaim_args((void *)trf_6511,4,t0,t1,t2,t3);}
a=C_alloc(8);
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_i_getprop(t7,lf[8],C_SCHEME_FALSE);
t9=(C_truep(t8)?C_a_i_putprop(&a,3,t6,lf[8],t8):C_a_i_putprop(&a,3,t6,lf[8],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=C_SCHEME_UNDEFINED;
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* map-loop922 in ##sys#extend-se in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_6560(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_6560,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_6585,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);
/* expand.scm:137: g928 */
t4=*((C_word*)lf[9]+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);}}}

/* k6583 in map-loop922 in ##sys#extend-se in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6585(C_word c,C_word *av){
C_word tmp;
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_6585,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_6560(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6599(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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(93,c,6)))){
C_save_and_reclaim((void *)f_6599,c,av);}
a=C_alloc(93);
t2=C_mutate((C_word*)lf[17]+1 /* (set! ##sys#macro-environment ...) */,t1);
t3=C_set_block_item(lf[18] /* ##sys#scheme-macro-environment */,0,C_SCHEME_END_OF_LIST);
t4=C_set_block_item(lf[19] /* ##sys#chicken-ffi-macro-environment */,0,C_SCHEME_END_OF_LIST);
t5=C_set_block_item(lf[20] /* ##sys#chicken.condition-macro-environment */,0,C_SCHEME_END_OF_LIST);
t6=C_set_block_item(lf[21] /* ##sys#chicken.time-macro-environment */,0,C_SCHEME_END_OF_LIST);
t7=C_set_block_item(lf[22] /* ##sys#chicken.type-macro-environment */,0,C_SCHEME_END_OF_LIST);
t8=C_set_block_item(lf[23] /* ##sys#chicken.syntax-macro-environment */,0,C_SCHEME_END_OF_LIST);
t9=C_set_block_item(lf[24] /* ##sys#chicken.base-macro-environment */,0,C_SCHEME_END_OF_LIST);
t10=C_mutate((C_word*)lf[25]+1 /* (set! ##sys#ensure-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6608,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp));
t11=C_mutate((C_word*)lf[29]+1 /* (set! ##sys#extend-macro-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6632,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp));
t12=C_mutate((C_word*)lf[30]+1 /* (set! ##sys#macro? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6674,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp));
t13=C_mutate((C_word*)lf[31]+1 /* (set! ##sys#undefine-macro! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6711,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp));
t14=C_mutate((C_word*)lf[32]+1 /* (set! ##sys#expand-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6756,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp));
t15=C_set_block_item(lf[58] /* ##sys#compiler-syntax-hook */,0,C_SCHEME_FALSE);
t16=C_set_block_item(lf[63] /* ##sys#enable-runtime-macros */,0,C_SCHEME_FALSE);
t17=C_mutate((C_word*)lf[42]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7260,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp));
t18=C_mutate((C_word*)lf[64]+1 /* (set! chicken.syntax#expand ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7263,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp));
t19=C_mutate((C_word*)lf[65]+1 /* (set! chicken.syntax#expand1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7329,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp));
t20=C_mutate((C_word*)lf[66]+1 /* (set! ##sys#extended-lambda-list? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7386,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp));
t21=C_mutate((C_word*)lf[70]+1 /* (set! ##sys#expand-extended-lambda-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7433,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp));
t22=C_mutate((C_word*)lf[93]+1 /* (set! ##sys#expand-multiple-values-assignment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8042,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp));
t23=C_set_block_item(lf[98] /* chicken.syntax#define-definition */,0,C_SCHEME_UNDEFINED);
t24=C_set_block_item(lf[99] /* chicken.syntax#define-syntax-definition */,0,C_SCHEME_UNDEFINED);
t25=C_set_block_item(lf[100] /* chicken.syntax#define-values-definition */,0,C_SCHEME_UNDEFINED);
t26=lf[101] /* chicken.syntax#import-definition */ =C_SCHEME_UNDEFINED;;
t27=C_mutate((C_word*)lf[102]+1 /* (set! ##sys#canonicalize-body ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8222,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp));
t28=C_mutate((C_word*)lf[120]+1 /* (set! chicken.syntax#match-expression ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9286,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp));
t29=C_mutate((C_word*)lf[112]+1 /* (set! chicken.syntax#expand-curried-define ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9368,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp));
t30=C_set_block_item(lf[121] /* ##sys#line-number-database */,0,C_SCHEME_FALSE);
t31=C_set_block_item(lf[122] /* ##sys#syntax-error-culprit */,0,C_SCHEME_FALSE);
t32=C_set_block_item(lf[123] /* ##sys#syntax-context */,0,C_SCHEME_END_OF_LIST);
t33=C_mutate((C_word*)lf[124]+1 /* (set! ##sys#syntax-error-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9423,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp));
t34=C_mutate((C_word*)lf[43]+1 /* (set! ##sys#syntax-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9433,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp));
t35=C_mutate((C_word*)lf[127]+1 /* (set! ##sys#syntax-error/context ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9439,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp));
t36=C_mutate(&lf[146] /* (set! chicken.syntax#assq/drop-bwp! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9666,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp));
t37=C_mutate(&lf[147] /* (set! chicken.syntax#read-with-source-info-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9716,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp));
t38=C_mutate((C_word*)lf[154]+1 /* (set! chicken.syntax#read-with-source-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9767,a[2]=((C_word)li89),tmp=(C_word)a,a+=3,tmp));
t39=C_mutate((C_word*)lf[158]+1 /* (set! chicken.syntax#get-line-number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9838,a[2]=((C_word)li91),tmp=(C_word)a,a+=3,tmp));
t40=C_mutate((C_word*)lf[159]+1 /* (set! ##sys#get-line-2 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9877,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp));
t41=C_mutate((C_word*)lf[160]+1 /* (set! ##sys#display-line-number-database ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9918,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp));
t42=C_mutate((C_word*)lf[165]+1 /* (set! ##sys#update-line-number-database! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9986,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp));
t43=C_mutate((C_word*)lf[54]+1 /* (set! ##sys#check-syntax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10076,a[2]=((C_word)li111),tmp=(C_word)a,a+=3,tmp));
t44=C_mutate(&lf[197] /* (set! chicken.syntax#make-er/ir-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10520,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp));
t45=C_mutate((C_word*)lf[201]+1 /* (set! chicken.syntax#er-macro-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11049,a[2]=((C_word)li122),tmp=(C_word)a,a+=3,tmp));
t46=C_mutate((C_word*)lf[202]+1 /* (set! chicken.syntax#ir-macro-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11055,a[2]=((C_word)li123),tmp=(C_word)a,a+=3,tmp));
t47=C_mutate((C_word*)lf[203]+1 /* (set! ##sys#er-transformer ...) */,C_fast_retrieve(lf[201]));
t48=C_mutate((C_word*)lf[204]+1 /* (set! ##sys#ir-transformer ...) */,C_fast_retrieve(lf[202]));
t49=C_mutate((C_word*)lf[98]+1 /* (set! chicken.syntax#define-definition ...) */,C_fast_retrieve(lf[98]));
t50=C_mutate((C_word*)lf[99]+1 /* (set! chicken.syntax#define-syntax-definition ...) */,C_fast_retrieve(lf[99]));
t51=C_mutate((C_word*)lf[100]+1 /* (set! chicken.syntax#define-values-definition ...) */,C_fast_retrieve(lf[100]));
t52=C_mutate((C_word*)lf[42]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,C_fast_retrieve(lf[42]));
t53=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11068,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t54=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16204,a[2]=t53,tmp=(C_word)a,a+=3,tmp);
t55=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16206,a[2]=((C_word)li227),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:1054: ##sys#er-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=t54;
av2[2]=t55;
tp(3,av2);}}

/* ##sys#ensure-transformer in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6608(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_6608,c,av);}
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
if(C_truep(C_i_structurep(t2,lf[26]))){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_slot(t2,C_fix(1));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
/* expand.scm:162: ##sys#error */
t5=*((C_word*)lf[27]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t1;
av2[2]=t4;
av2[3]=lf[28];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}

/* ##sys#extend-macro-environment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6632(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_6632,c,av);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6636,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:165: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word *av2=av;
av2[0]=*((C_word*)lf[17]+1);
av2[1]=t5;
tp(2,av2);}}

/* k6634 in ##sys#extend-macro-environment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6636(C_word c,C_word *av){
C_word tmp;
C_word t0=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_6636,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6639,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);
/* expand.scm:166: ##sys#ensure-transformer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[25]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[25]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}

/* k6637 in k6634 in ##sys#extend-macro-environment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6639(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_6639,c,av);}
a=C_alloc(16);
t2=(
/* expand.scm:167: lookup */
  f_6211(((C_word*)t0)[2],((C_word*)t0)[3])
);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6646,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word)li10),tmp=(C_word)a,a+=5,tmp);
/* expand.scm:167: g1049 */
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(
/* expand.scm:167: g1049 */
  f_6646(t3,t2)
);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_a_i_list2(&a,2,((C_word*)t0)[4],t1);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6664,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=C_a_i_cons(&a,2,((C_word*)t0)[2],t3);
t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[3]);
/* expand.scm:174: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[17]+1);
av2[1]=t4;
av2[2]=t6;
tp(3,av2);}}}

/* g1049 in k6637 in k6634 in ##sys#extend-macro-environment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static C_word f_6646(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;{}
t2=C_i_set_car(t1,((C_word*)t0)[2]);
t3=C_i_set_car(C_u_i_cdr(t1),((C_word*)t0)[3]);
return(t1);}

/* k6662 in k6637 in k6634 in ##sys#extend-macro-environment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6664(C_word c,C_word *av){
C_word tmp;
C_word 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_6664,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);}}

/* ##sys#macro? in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6674(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_6674,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6678,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_rest_nullp(c,3))){
/* expand.scm:178: ##sys#current-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[3]);
C_word *av2=av;
av2[0]=*((C_word*)lf[3]+1);
av2[1]=t3;
tp(2,av2);}}
else{
t4=t3;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_get_rest_arg(c,3,av,3,t0);
f_6678(2,av2);}}}

/* k6676 in ##sys#macro? in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6678(C_word c,C_word *av){
C_word tmp;
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_6678,c,av);}
a=C_alloc(3);
t2=(
/* expand.scm:179: lookup */
  f_6211(((C_word*)t0)[2],t1)
);
t3=C_i_pairp(t2);
if(C_truep(t3)){
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6700,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:181: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word *av2=av;
av2[0]=*((C_word*)lf[17]+1);
av2[1]=t4;
tp(2,av2);}}}

/* k6698 in k6676 in ##sys#macro? in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6700(C_word c,C_word *av){
C_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_6700,c,av);}
t2=((C_word*)t0)[2];
t3=(
/* expand.scm:181: lookup */
  f_6211(((C_word*)t2)[2],t1)
);
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_i_pairp(t3):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#undefine-macro! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6711(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_6711,c,av);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6719,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6723,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:187: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word *av2=av;
av2[0]=*((C_word*)lf[17]+1);
av2[1]=t4;
tp(2,av2);}}

/* k6717 in ##sys#undefine-macro! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6719(C_word c,C_word *av){
C_word tmp;
C_word 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_6719,c,av);}
/* expand.scm:185: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[17]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k6721 in ##sys#undefine-macro! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6723(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_6723,c,av);}
a=C_alloc(7);
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|4,a[1]=(C_word)f_6725,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li13),tmp=(C_word)a,a+=5,tmp));
t5=((C_word*)t3)[1];
f_6725(t5,((C_word*)t0)[3],t1);}

/* loop in k6721 in ##sys#undefine-macro! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_6725(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(4,0,2)))){
C_save_and_reclaim_args((void *)trf_6725,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_caar(t2);
t4=C_eqp(((C_word*)t0)[2],t3);
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_u_i_cdr(t2);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_u_i_car(t2);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6748,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:190: loop */
t8=t6;
t9=C_u_i_cdr(t2);
t1=t8;
t2=t9;
goto loop;}}}

/* k6746 in loop in k6721 in ##sys#undefine-macro! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6748(C_word c,C_word *av){
C_word tmp;
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_6748,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);}}

/* ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6756(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(22,c,7)))){
C_save_and_reclaim((void *)f_6756,c,av);}
a=C_alloc(22);
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_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6759,a[2]=t3,a[3]=((C_word)li27),tmp=(C_word)a,a+=4,tmp));
t10=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6958,a[2]=t6,a[3]=((C_word)li28),tmp=(C_word)a,a+=4,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|7,a[1]=(C_word)f_6989,a[2]=t3,a[3]=t8,a[4]=t12,a[5]=t6,a[6]=t4,a[7]=((C_word)li32),tmp=(C_word)a,a+=8,tmp));
t14=((C_word*)t12)[1];
f_6989(t14,t1,t2);}

/* call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_6759(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(12,0,3)))){
C_save_and_reclaim_args((void *)trf_6759,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(12);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6769,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6774,a[2]=t2,a[3]=t4,a[4]=t6,a[5]=t3,a[6]=t5,a[7]=((C_word*)t0)[2],a[8]=((C_word)li26),tmp=(C_word)a,a+=9,tmp);
/* expand.scm:198: scheme#call-with-current-continuation */
t9=*((C_word*)lf[49]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t7;
av2[2]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}

/* k6767 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6769(C_word c,C_word *av){
C_word tmp;
C_word 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_6769,c,av);}
/* g11011102 */
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)C_fast_retrieve_proc(t2))(2,av2);}}

/* a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6774(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_6774,c,av);}
a=C_alloc(15);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6780,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li17),tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6881,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],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]=t2,a[9]=((C_word)li25),tmp=(C_word)a,a+=10,tmp);
/* expand.scm:198: chicken.condition#with-exception-handler */
t5=C_fast_retrieve(lf[48]);{
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);}}

/* a6779 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6780(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_6780,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6786,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li16),tmp=(C_word)a,a+=5,tmp);
/* expand.scm:198: k1098 */
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a6785 in a6779 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6786(C_word c,C_word *av){
C_word tmp;
C_word t0=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!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_6786,c,av);}
a=C_alloc(11);
t2=C_i_structurep(((C_word*)t0)[2],lf[33]);
t3=(C_truep(t2)?C_i_memq(lf[34],C_slot(((C_word*)t0)[2],C_fix(1))):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=C_slot(((C_word*)t0)[2],C_fix(1));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6808,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t6=C_slot(((C_word*)t0)[2],C_fix(2));
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|4,a[1]=(C_word)f_6814,a[2]=((C_word*)t0)[3],a[3]=t8,a[4]=((C_word)li15),tmp=(C_word)a,a+=5,tmp));
t10=((C_word*)t8)[1];
f_6814(t10,t5,t6);}
else{
/* expand.scm:201: chicken.condition#abort */
t4=C_fast_retrieve(lf[35]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k6806 in a6785 in a6779 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6808(C_word c,C_word *av){
C_word tmp;
C_word t0=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_6808,c,av);}
a=C_alloc(4);
t2=C_a_i_record3(&a,3,lf[33],((C_word*)t0)[2],t1);
/* expand.scm:201: chicken.condition#abort */
t3=C_fast_retrieve(lf[35]);{
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);}}

/* copy in a6785 in a6779 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_6814(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(6,0,2)))){
C_save_and_reclaim_args((void *)trf_6814,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]=C_SCHEME_END_OF_LIST;
((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_6831,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_equalp(lf[41],t3))){
t6=C_i_pairp(t4);
t7=t5;
f_6831(t7,(C_truep(t6)?C_i_stringp(C_u_i_car(t4)):C_SCHEME_FALSE));}
else{
t6=t5;
f_6831(t6,C_SCHEME_FALSE);}}}

/* k6829 in copy in a6785 in a6779 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_6831(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(8,0,2)))){
C_save_and_reclaim_args((void *)trf_6831,2,t0,t1);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6842,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_6848,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:219: ##sys#symbol->string/shared */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[40]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
/* expand.scm:223: copy */
t2=((C_word*)((C_word*)t0)[5])[1];
f_6814(t2,((C_word*)t0)[3],((C_word*)t0)[2]);}}

/* k6840 in k6829 in copy in a6785 in a6779 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6842(C_word c,C_word *av){
C_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,1)))){
C_save_and_reclaim((void *)f_6842,c,av);}
a=C_alloc(6);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,t1,t2);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,lf[36],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k6846 in k6829 in copy in a6785 in a6779 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6848(C_word c,C_word *av){
C_word tmp;
C_word 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_6848,c,av);}
/* expand.scm:217: scheme#string-append */
t2=*((C_word*)lf[37]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[38];
av2[3]=t1;
av2[4]=lf[39];
av2[5]=C_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* a6880 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6881(C_word c,C_word *av){
C_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!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_6881,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6887,a[2]=((C_word*)t0)[2],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)li22),tmp=(C_word)a,a+=9,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6946,a[2]=((C_word*)t0)[8],a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp);
/* expand.scm:198: ##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);}}

/* a6886 in a6880 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6887(C_word c,C_word *av){
C_word tmp;
C_word t0=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!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(31,c,4)))){
C_save_and_reclaim((void *)f_6887,c,av);}
a=C_alloc(31);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6891,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);
if(C_truep(((C_word*)t0)[3])){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6921,a[2]=((C_word*)t0)[2],a[3]=((C_word)li18),tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_FALSE;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6927,a[2]=t6,a[3]=t4,a[4]=((C_word)li19),tmp=(C_word)a,a+=5,tmp);
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6932,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)li20),tmp=(C_word)a,a+=7,tmp);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6938,a[2]=t4,a[3]=t6,a[4]=((C_word)li21),tmp=(C_word)a,a+=5,tmp);
/* expand.scm:228: ##sys#dynamic-wind */
t10=*((C_word*)lf[47]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t10;
av2[1]=t2;
av2[2]=t7;
av2[3]=t8;
av2[4]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}
else{
/* expand.scm:231: handler */
t3=((C_word*)t0)[5];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[6];
av2[4]=((C_word*)t0)[7];
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}}

/* k6889 in a6886 in a6880 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6891(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_6891,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6894,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_not(((C_word*)t0)[4]);
t4=(C_truep(t3)?C_eqp(((C_word*)t0)[3],t1):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6910,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6914,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:235: ##sys#symbol->string/shared */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[40]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}
else{
/* expand.scm:239: expansion-result-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[42]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[42]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}}

/* k6892 in k6889 in a6886 in a6880 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6894(C_word c,C_word *av){
C_word tmp;
C_word 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_6894,c,av);}
/* expand.scm:239: expansion-result-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[42]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[42]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}

/* k6908 in k6889 in a6886 in a6880 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6910(C_word c,C_word *av){
C_word tmp;
C_word 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_6910,c,av);}
/* expand.scm:233: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k6912 in k6889 in a6886 in a6880 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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,4)))){
C_save_and_reclaim((void *)f_6914,c,av);}
/* expand.scm:234: scheme#string-append */
t2=*((C_word*)lf[37]+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[44];
av2[3]=t1;
av2[4]=lf[45];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* f_6921 in a6886 in a6880 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6921(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_6921,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a6926 in a6886 in a6880 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6927(C_word c,C_word *av){
C_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!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_6927,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[46]));
t3=C_mutate((C_word*)lf[46]+1 /* (set! chicken.internal.syntax-rules#syntax-rules-mismatch ...) */,((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);}}

/* a6931 in a6886 in a6880 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6932(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_6932,c,av);}
/* expand.scm:230: handler */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
((C_proc)C_fast_retrieve_proc(t2))(5,av2);}}

/* a6937 in a6886 in a6880 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6938(C_word c,C_word *av){
C_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!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_6938,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[46]));
t3=C_mutate((C_word*)lf[46]+1 /* (set! chicken.internal.syntax-rules#syntax-rules-mismatch ...) */,((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);}}

/* a6945 in a6880 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6946(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_6946,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6952,a[2]=t2,a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp);
/* expand.scm:198: k1098 */
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)C_fast_retrieve_proc(t4))(3,av2);}}

/* a6951 in a6945 in a6880 in a6773 in call-handler in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6952(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6952,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);}}

/* expand in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_6958(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(3,0,6)))){
C_save_and_reclaim_args((void *)trf_6958,5,t0,t1,t2,t3,t4);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t4))){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6975,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:253: call-handler */
t6=((C_word*)((C_word*)t0)[2])[1];
f_6759(t6,t5,t2,C_i_cadr(t4),t3,C_u_i_car(t4),C_SCHEME_FALSE);}
else{
/* expand.scm:255: scheme#values */{
C_word av2[4];
av2[0]=0;
av2[1]=t1;
av2[2]=t3;
av2[3]=C_SCHEME_FALSE;
C_values(4,av2);}}}

/* k6973 in expand in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_6975(C_word c,C_word *av){
C_word tmp;
C_word 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_6975,c,av);}
/* expand.scm:251: 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_SCHEME_TRUE;
C_values(4,av2);}}

/* loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_6989(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;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){
C_save_and_reclaim_args((void *)trf_6989,3,t0,t1,t2);}
a=C_alloc(18);
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_car(t2);
t4=C_u_i_cdr(t2);
if(C_truep(C_i_symbolp(t3))){
t5=(
/* expand.scm:261: lookup */
  f_6211(t3,((C_word*)t0)[2])
);
t6=(C_truep(t5)?t5:t3);
t7=t6;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7013,a[2]=t1,a[3]=t2,a[4]=t8,a[5]=t4,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=t3,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],tmp=(C_word)a,a+=12,tmp);
if(C_truep(C_i_pairp(((C_word*)t8)[1]))){
t10=t9;
f_7013(t10,C_SCHEME_UNDEFINED);}
else{
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7250,a[2]=t8,a[3]=t9,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:263: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word av2[2];
av2[0]=*((C_word*)lf[17]+1);
av2[1]=t10;
tp(2,av2);}}}
else{
/* expand.scm:292: scheme#values */{
C_word av2[4];
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_SCHEME_FALSE;
C_values(4,av2);}}}
else{
/* expand.scm:293: scheme#values */{
C_word av2[4];
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_SCHEME_FALSE;
C_values(4,av2);}}}

/* k7011 in loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7013(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(6,0,3)))){
C_save_and_reclaim_args((void *)trf_7013,2,t0,t1);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7019,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[4])[1]))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7236,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:265: ##sys#get */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[61]);
C_word av2[4];
av2[0]=*((C_word*)lf[61]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
av2[3]=lf[62];
tp(4,av2);}}
else{
t3=t2;
f_7019(t3,C_SCHEME_FALSE);}}

/* k7017 in k7011 in loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7019(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(9,0,6)))){
C_save_and_reclaim_args((void *)trf_7019,2,t0,t1);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
/* expand.scm:266: scheme#values */{
C_word av2[4];
av2[0]=0;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=C_SCHEME_FALSE;
C_values(4,av2);}}
else{
t3=C_eqp(((C_word*)((C_word*)t2)[4])[1],lf[50]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7031,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
/* expand.scm:268: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word av2[7];
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t4;
av2[2]=lf[55];
av2[3]=((C_word*)t2)[5];
av2[4]=lf[57];
av2[5]=C_SCHEME_FALSE;
av2[6]=((C_word*)t2)[6];
tp(7,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7177,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[7],a[4]=((C_word*)t2)[8],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[9],a[7]=((C_word*)t2)[10],a[8]=((C_word*)t2)[2],tmp=(C_word)a,a+=9,tmp);
if(C_truep(((C_word*)t2)[11])){
if(C_truep(C_i_symbolp(((C_word*)((C_word*)t2)[4])[1]))){
t5=((C_word*)((C_word*)t2)[4])[1];
t6=t4;
f_7177(t6,C_i_getprop(t5,lf[59],C_SCHEME_FALSE));}
else{
t5=t4;
f_7177(t5,C_SCHEME_FALSE);}}
else{
t5=t4;
f_7177(t5,C_SCHEME_FALSE);}}}}

/* k7029 in k7017 in k7011 in loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7031(C_word c,C_word *av){
C_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,6)))){
C_save_and_reclaim((void *)f_7031,c,av);}
a=C_alloc(5);
t2=C_i_car(((C_word*)t0)[2]);
if(C_truep(C_i_symbolp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7043,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:271: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t3;
av2[2]=lf[55];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[56];
av2[5]=C_SCHEME_FALSE;
av2[6]=((C_word*)t0)[4];
tp(7,av2);}}
else{
/* expand.scm:282: scheme#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]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
C_values(4,av2);}}}

/* k7041 in k7029 in k7017 in k7011 in loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7043(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word 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(19,c,3)))){
C_save_and_reclaim((void *)f_7043,c,av);}
a=C_alloc(19);
t2=C_i_cadr(((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(t2,lf[16]);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7133,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);
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_7139,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li30),tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_7139(t12,t8,t2);}

/* k7066 in k7131 in k7041 in k7029 in k7017 in k7011 in loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7068(C_word c,C_word *av){
C_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_7068,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[53],t2);
/* expand.scm:273: scheme#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]=t3;
av2[3]=C_SCHEME_TRUE;
C_values(4,av2);}}

/* map-loop1194 in k7131 in k7041 in k7029 in k7017 in k7011 in loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7070(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_7070,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);}}}

/* k7131 in k7041 in k7029 in k7017 in k7011 in loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7133(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(41,c,3)))){
C_save_and_reclaim((void *)f_7133,c,av);}
a=C_alloc(41);
t2=C_i_cddr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,t1,t2);
t4=C_a_i_cons(&a,2,lf[51],t3);
t5=C_a_i_list(&a,2,((C_word*)t0)[3],t4);
t6=C_a_i_list(&a,1,t5);
t7=C_a_i_list(&a,3,lf[52],t6,((C_word*)t0)[3]);
t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t9=t8;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=((C_word*)t10)[1];
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7068,a[2]=t7,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,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(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7070,a[2]=t10,a[3]=t14,a[4]=t11,a[5]=((C_word)li29),tmp=(C_word)a,a+=6,tmp));
t16=((C_word*)t14)[1];
f_7070(t16,t12,((C_word*)t0)[5]);}

/* map-loop1167 in k7041 in k7029 in k7017 in k7011 in loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7139(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_7139,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);}}}

/* k7175 in k7017 in k7011 in loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7177(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,4)))){
C_save_and_reclaim_args((void *)trf_7177,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7181,a[2]=((C_word*)t0)[2],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)li31),tmp=(C_word)a,a+=9,tmp);
/* expand.scm:264: g1227 */
t3=t2;
f_7181(t3,((C_word*)t0)[8],t1);}
else{
/* expand.scm:291: expand */
t2=((C_word*)((C_word*)t0)[3])[1];
f_6958(t2,((C_word*)t0)[8],((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)((C_word*)t0)[5])[1]);}}

/* g1227 in k7175 in k7017 in k7011 in loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7181(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(8,0,6)))){
C_save_and_reclaim_args((void *)trf_7181,3,t0,t1,t2);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7185,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],tmp=(C_word)a,a+=8,tmp);
/* expand.scm:285: call-handler */
t4=((C_word*)((C_word*)t0)[7])[1];
f_6759(t4,t3,((C_word*)t0)[4],C_i_car(t2),((C_word*)t0)[2],C_u_i_cdr(t2),C_SCHEME_TRUE);}

/* k7183 in g1227 in k7175 in k7017 in k7011 in loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7185(C_word c,C_word *av){
C_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_7185,c,av);}
a=C_alloc(5);
t2=C_eqp(t1,((C_word*)t0)[2]);
if(C_truep(t2)){
/* expand.scm:286: expand */
t3=((C_word*)((C_word*)t0)[3])[1];
f_6958(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)((C_word*)t0)[6])[1]);}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7197,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_fast_retrieve(lf[58]))){
/* expand.scm:289: ##sys#compiler-syntax-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[58]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[58]+1);
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[6])[1];
av2[3]=t1;
tp(4,av2);}}
else{
/* expand.scm:290: loop */
t4=((C_word*)((C_word*)t0)[7])[1];
f_6989(t4,((C_word*)t0)[4],t1);}}}

/* k7195 in k7183 in g1227 in k7175 in k7017 in k7011 in loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7197(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7197,c,av);}
/* expand.scm:290: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_6989(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k7234 in k7011 in loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7236(C_word c,C_word *av){
C_word tmp;
C_word 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_7236,c,av);}
t2=((C_word*)t0)[2];
f_7019(t2,C_eqp(t1,lf[60]));}

/* k7248 in loop in ##sys#expand-0 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7250(C_word c,C_word *av){
C_word tmp;
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_7250,c,av);}
t2=(
/* expand.scm:263: lookup */
  f_6211(((C_word*)((C_word*)t0)[2])[1],t1)
);
if(C_truep(t2)){
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t4=((C_word*)t0)[3];
f_7013(t4,t3);}
else{
t3=((C_word*)((C_word*)t0)[2])[1];
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
t5=((C_word*)t0)[3];
f_7013(t5,t4);}}

/* chicken.syntax#expansion-result-hook in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7260(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7260,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.syntax#expand in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7263(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){
C_save_and_reclaim((void*)f_7263,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;
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7267,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_nullp(t3))){
/* expand.scm:302: ##sys#current-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[3]);
C_word *av2=av;
av2[0]=*((C_word*)lf[3]+1);
av2[1]=t4;
tp(2,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_car(t3);
f_7267(2,av2);}}}

/* k7265 in chicken.syntax#expand in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7267(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word 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,3)))){
C_save_and_reclaim((void *)f_7267,c,av);}
a=C_alloc(8);
t2=C_i_nullp(((C_word*)t0)[2]);
t3=(C_truep(t2)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2]));
t4=C_i_nullp(t3);
t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3));
t6=C_i_nullp(t3);
t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3));
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|5,a[1]=(C_word)f_7281,a[2]=t1,a[3]=t5,a[4]=t9,a[5]=((C_word)li37),tmp=(C_word)a,a+=6,tmp));
t11=((C_word*)t9)[1];
f_7281(t11,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* loop in k7265 in chicken.syntax#expand in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7281(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,4)))){
C_save_and_reclaim_args((void *)trf_7281,3,t0,t1,t2);}
a=C_alloc(10);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7287,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li35),tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7293,a[2]=((C_word*)t0)[4],a[3]=((C_word)li36),tmp=(C_word)a,a+=4,tmp);
/* expand.scm:304: ##sys#call-with-values */{
C_word av2[4];
av2[0]=0;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
C_call_with_values(4,av2);}}

/* a7286 in loop in k7265 in chicken.syntax#expand in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7287(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_7287,c,av);}
/* expand.scm:304: ##sys#expand-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[32]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[32]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}

/* a7292 in loop in k7265 in chicken.syntax#expand in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7293(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7293,c,av);}
if(C_truep(t3)){
/* expand.scm:306: loop */
t4=((C_word*)((C_word*)t0)[2])[1];
f_7281(t4,t1,t2);}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* chicken.syntax#expand1 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7329(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){
C_save_and_reclaim((void*)f_7329,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;
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7333,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_nullp(t3))){
/* expand.scm:309: ##sys#current-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[3]);
C_word *av2=av;
av2[0]=*((C_word*)lf[3]+1);
av2[1]=t4;
tp(2,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_car(t3);
f_7333(2,av2);}}}

/* k7331 in chicken.syntax#expand1 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7333(C_word c,C_word *av){
C_word tmp;
C_word t0=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(9,c,3)))){
C_save_and_reclaim((void *)f_7333,c,av);}
a=C_alloc(9);
t2=C_i_nullp(((C_word*)t0)[2]);
t3=(C_truep(t2)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2]));
t4=C_i_nullp(t3);
t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3));
t6=C_i_nullp(t3);
t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3));
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7347,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t5,a[5]=((C_word)li39),tmp=(C_word)a,a+=6,tmp);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7353,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:310: ##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]=t8;
av2[3]=t9;
C_call_with_values(4,av2);}}

/* a7346 in k7331 in chicken.syntax#expand1 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7347(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_7347,c,av);}
/* expand.scm:310: ##sys#expand-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[32]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[32]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}

/* a7352 in k7331 in chicken.syntax#expand1 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7353(C_word c,C_word *av){
C_word tmp;
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_7353,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);}}

/* ##sys#extended-lambda-list? in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7386(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7386,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7392,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(
  f_7392(t2)
);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* loop in ##sys#extended-lambda-list? in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static C_word f_7392(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;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=C_slot(t1,C_fix(0));
t3=C_eqp(t2,lf[67]);
if(C_truep(t3)){
if(C_truep(t3)){
return(C_SCHEME_TRUE);}
else{
t7=C_u_i_cdr(t1);
t1=t7;
goto loop;}}
else{
t4=C_eqp(t2,lf[68]);
if(C_truep(t4)){
if(C_truep(t4)){
return(C_SCHEME_TRUE);}
else{
t7=C_u_i_cdr(t1);
t1=t7;
goto loop;}}
else{
t5=C_eqp(t2,lf[69]);
if(C_truep(t5)){
return(C_SCHEME_TRUE);}
else{
t7=C_u_i_cdr(t1);
t1=t7;
goto loop;}}}}
else{
return(C_SCHEME_FALSE);}}

/* ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7433(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
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!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
C_save_and_reclaim((void *)f_7433,c,av);}
a=C_alloc(20);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7436,a[2]=t4,a[3]=t2,a[4]=((C_word)li44),tmp=(C_word)a,a+=5,tmp);
t7=C_SCHEME_FALSE;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_FALSE;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7453,a[2]=C_SCHEME_UNDEFINED,a[3]=t8,a[4]=t10,a[5]=t3,a[6]=C_SCHEME_UNDEFINED,a[7]=t6,a[8]=t5,a[9]=t1,a[10]=t2,tmp=(C_word)a,a+=11,tmp);
/* expand.scm:340: macro-alias */
f_6228(t11,lf[91],C_fast_retrieve(lf[92]));}

/* err in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7436(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_7436,3,t0,t1,t2);}
/* expand.scm:335: errh */
t3=((C_word*)t0)[2];{
C_word av2[4];
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)t0)[3];
((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}

/* k7448 in k7677 in g1350 in k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7450(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7450,c,av);}
/* expand.scm:336: chicken.keyword#string->keyword */
t2=C_fast_retrieve(lf[77]);{
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);}}

/* k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7453(C_word c,C_word *av){
C_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_7453,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7456,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:342: macro-alias */
f_6228(t3,lf[90],C_fast_retrieve(lf[24]));}

/* k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7456(C_word c,C_word *av){
C_word tmp;
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_7456,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+2,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7459,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:343: macro-alias */
f_6228(t4,lf[89],C_fast_retrieve(lf[24]));}

/* k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7459(C_word c,C_word *av){
C_word tmp;
C_word t0=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,7)))){
C_save_and_reclaim((void *)f_7459,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7464,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t1,a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=t4,a[10]=((C_word*)t2)[8],a[11]=((C_word)li47),tmp=(C_word)a,a+=12,tmp));
t6=((C_word*)t4)[1];
f_7464(t6,((C_word*)t2)[9],C_fix(0),C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,((C_word*)t2)[10]);}

/* loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7464(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 t17;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(15,0,6)))){
C_save_and_reclaim_args((void *)trf_7464,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(15);
if(C_truep(C_i_nullp(t6))){
t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7478,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t5,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);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7726,a[2]=t7,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:352: reverse */
t9=*((C_word*)lf[72]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
/* expand.scm:352: reverse */
t8=*((C_word*)lf[72]+1);{
C_word av2[3];
av2[0]=t8;
av2[1]=t7;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}
else{
if(C_truep(C_i_symbolp(t6))){
if(C_truep(C_fixnum_greaterp(t2,C_fix(2)))){
/* expand.scm:380: err */
t7=((C_word*)t0)[8];
f_7436(t7,t1,lf[78]);}
else{
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
t7=C_mutate(((C_word *)((C_word*)t0)[4])+1,t6);
/* expand.scm:384: loop */
t12=t1;
t13=C_fix(4);
t14=t3;
t15=t4;
t16=C_SCHEME_END_OF_LIST;
t17=C_SCHEME_END_OF_LIST;
t1=t12;
t2=t13;
t3=t14;
t4=t15;
t5=t16;
t6=t17;
goto loop;}
else{
t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t6);
t8=C_mutate(((C_word *)((C_word*)t0)[4])+1,t6);
/* expand.scm:384: loop */
t12=t1;
t13=C_fix(4);
t14=t3;
t15=t4;
t16=C_SCHEME_END_OF_LIST;
t17=C_SCHEME_END_OF_LIST;
t1=t12;
t2=t13;
t3=t14;
t4=t15;
t5=t16;
t6=t17;
goto loop;}}}
else{
t7=C_i_pairp(t6);
if(C_truep(C_i_not(t7))){
/* expand.scm:386: err */
t8=((C_word*)t0)[8];
f_7436(t8,t1,lf[79]);}
else{
t8=C_i_car(t6);
t9=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7767,a[2]=t8,a[3]=t6,a[4]=t2,a[5]=((C_word*)t0)[9],a[6]=t1,a[7]=t3,a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[4],a[12]=t4,a[13]=t5,tmp=(C_word)a,a+=14,tmp);
if(C_truep(C_i_symbolp(t8))){
t10=C_eqp(C_fix(3),t2);
/* expand.scm:389: lookup */
t11=t9;
f_7767(t11,(C_truep(C_i_not(t10))?(
/* expand.scm:389: lookup */
  f_6211(t8,((C_word*)t0)[10])
):C_SCHEME_FALSE));}
else{
t10=t9;
f_7767(t10,C_SCHEME_FALSE);}}}}}

/* k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7478(C_word c,C_word *av){
C_word tmp;
C_word t0=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(29,c,3)))){
C_save_and_reclaim((void *)f_7478,c,av);}
a=C_alloc(29);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7482,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[3],a[7]=t1,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);
if(C_truep(C_i_nullp(((C_word*)t0)[7]))){
t3=t2;
f_7482(t3,((C_word*)t0)[9]);}
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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7622,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word)li45),tmp=(C_word)a,a+=5,tmp);
t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7682,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[10],a[4]=t2,a[5]=t5,a[6]=t7,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
/* expand.scm:364: reverse */
t9=*((C_word*)lf[72]+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)[7];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}

/* k7480 in k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7482(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(3,0,3)))){
C_save_and_reclaim_args((void *)trf_7482,2,t0,t1);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
if(C_truep(C_i_nullp(((C_word*)t0)[2]))){
/* expand.scm:351: scheme#values */{
C_word av2[4];
av2[0]=0;
av2[1]=((C_word*)t0)[6];
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[5];
C_values(4,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7494,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[8])[1]))){
t4=C_i_nullp(((C_word*)t0)[9]);
t5=t3;
f_7494(t5,(C_truep(t4)?C_i_nullp(C_i_cdr(((C_word*)t0)[2])):C_SCHEME_FALSE));}
else{
t4=t3;
f_7494(t4,C_SCHEME_FALSE);}}}

/* k7492 in k7480 in k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7494(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(12,0,2)))){
C_save_and_reclaim_args((void *)trf_7494,2,t0,t1);}
a=C_alloc(12);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_i_caar(((C_word*)t2)[2]);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7525,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=t3,a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],tmp=(C_word)a,a+=8,tmp);
/* expand.scm:369: scheme#cadar */
t5=*((C_word*)lf[71]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t3=C_i_not(((C_word*)((C_word*)t2)[8])[1]);
t4=(C_truep(t3)?C_i_nullp(((C_word*)t2)[9]):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7550,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[10],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],tmp=(C_word)a,a+=7,tmp);
/* expand.scm:373: reverse */
t6=*((C_word*)lf[72]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7569,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[10],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],tmp=(C_word)a,a+=7,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7573,a[2]=((C_word*)t2)[8],a[3]=t5,a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:376: reverse */
t7=*((C_word*)lf[72]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}

/* k7523 in k7492 in k7480 in k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7525(C_word c,C_word *av){
C_word tmp;
C_word t0=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(27,c,3)))){
C_save_and_reclaim((void *)f_7525,c,av);}
a=C_alloc(27);
t2=C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],t1);
t3=C_a_i_list(&a,2,((C_word*)t0)[4],t2);
t4=C_a_i_list(&a,1,t3);
t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[5]);
t6=C_a_i_cons(&a,2,lf[50],t5);
t7=C_a_i_list(&a,1,t6);
/* expand.scm:351: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[6];
av2[2]=((C_word*)t0)[7];
av2[3]=t7;
C_values(4,av2);}}

/* k7548 in k7492 in k7480 in k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7550(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7550,c,av);}
a=C_alloc(12);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t2);
t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3);
t5=C_a_i_list(&a,1,t4);
/* expand.scm:351: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[5];
av2[2]=((C_word*)t0)[6];
av2[3]=t5;
C_values(4,av2);}}

/* k7567 in k7492 in k7480 in k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7569(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7569,c,av);}
a=C_alloc(12);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t2);
t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3);
t5=C_a_i_list(&a,1,t4);
/* expand.scm:351: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[5];
av2[2]=((C_word*)t0)[6];
av2[3]=t5;
C_values(4,av2);}}

/* k7571 in k7492 in k7480 in k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7573(C_word c,C_word *av){
C_word tmp;
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_7573,c,av);}
a=C_alloc(3);
t2=((C_word*)((C_word*)t0)[2])[1];
if(C_truep(t2)){
t3=C_a_i_list1(&a,1,t2);
/* expand.scm:376: ##sys#append */
t4=*((C_word*)lf[73]+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]=t1;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t3=((C_word*)((C_word*)t0)[4])[1];
t4=C_a_i_list1(&a,1,t3);
/* expand.scm:376: ##sys#append */
t5=*((C_word*)lf[73]+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);}}}

/* g1350 in k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7622(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,2)))){
C_save_and_reclaim_args((void *)trf_7622,3,t0,t1,t2);}
a=C_alloc(10);
t3=C_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7675,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7679,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:360: chicken.syntax#strip-syntax */
t6=C_fast_retrieve(lf[11]);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k7673 in g1350 in k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7675(C_word c,C_word *av){
C_word tmp;
C_word t0=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,1)))){
C_save_and_reclaim((void *)f_7675,c,av);}
a=C_alloc(30);
t2=C_a_i_list(&a,2,lf[74],t1);
t3=((C_word*)((C_word*)t0)[2])[1];
t4=(C_truep(t3)?t3:((C_word*)((C_word*)t0)[3])[1]);
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[4])))){
t5=C_u_i_cdr(((C_word*)t0)[4]);
t6=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t5);
t7=C_a_i_cons(&a,2,lf[75],t6);
t8=C_a_i_list(&a,1,t7);
t9=C_a_i_cons(&a,2,t4,t8);
t10=C_a_i_cons(&a,2,t2,t9);
t11=C_a_i_cons(&a,2,lf[76],t10);
t12=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t12;
av2[1]=C_a_i_list(&a,2,((C_word*)t0)[6],t11);
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_a_i_cons(&a,2,t2,t5);
t7=C_a_i_cons(&a,2,lf[76],t6);
t8=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_a_i_list(&a,2,((C_word*)t0)[6],t7);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}

/* k7677 in g1350 in k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7679(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7679,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7450,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:336: ##sys#symbol->string/shared */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[40]+1);
av2[1]=t2;
av2[2]=t1;
tp(3,av2);}}

/* k7680 in k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7682(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_7682,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7685,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t3=C_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|6,a[1]=(C_word)f_7687,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li46),tmp=(C_word)a,a+=7,tmp));
t6=((C_word*)t4)[1];
f_7687(t6,t2,t1);}

/* k7683 in k7680 in k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7685(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_7685,c,av);}
a=C_alloc(9);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
t4=((C_word*)t0)[4];
f_7482(t4,C_a_i_list(&a,1,t3));}

/* map-loop1344 in k7680 in k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7687(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_7687,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_7712,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);
/* expand.scm:357: g1350 */
t4=((C_word*)t0)[4];
f_7622(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);}}}

/* k7710 in map-loop1344 in k7680 in k7476 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7712(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7712,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_7687(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k7724 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7726(C_word c,C_word *av){
C_word tmp;
C_word 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_7726,c,av);}
/* expand.scm:352: ##sys#append */
t2=*((C_word*)lf[73]+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*)((C_word*)t0)[3])[1];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k7765 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7767(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(13,0,6)))){
C_save_and_reclaim_args((void *)trf_7767,2,t0,t1);}
a=C_alloc(13);
t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
t3=C_u_i_cdr(((C_word*)t0)[3]);
t4=C_eqp(t2,lf[68]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7780,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]=t3,a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp);
if(C_truep(((C_word*)((C_word*)t0)[9])[1])){
t6=t5;
f_7780(t6,C_SCHEME_UNDEFINED);}
else{
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7796,a[2]=((C_word*)t0)[9],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:393: macro-alias */
f_6228(t6,lf[81],((C_word*)t0)[10]);}}
else{
t5=C_eqp(t2,lf[67]);
if(C_truep(t5)){
if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[4],C_fix(1)))){
t6=C_i_pairp(t3);
t7=(C_truep(t6)?C_i_symbolp(C_u_i_car(t3)):C_SCHEME_FALSE);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7817,a[2]=t3,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)[12],tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[9])[1]))){
t9=C_i_car(t3);
t10=C_mutate(((C_word *)((C_word*)t0)[9])+1,t9);
t11=t8;
f_7817(t11,t10);}
else{
t9=t8;
f_7817(t9,C_SCHEME_UNDEFINED);}}
else{
/* expand.scm:404: err */
t8=((C_word*)t0)[8];
f_7436(t8,((C_word*)t0)[6],lf[82]);}}
else{
/* expand.scm:405: err */
t6=((C_word*)t0)[8];
f_7436(t6,((C_word*)t0)[6],lf[83]);}}
else{
t6=C_eqp(t2,lf[69]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7856,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)[12],a[7]=t3,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[9])[1]))){
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7875,a[2]=((C_word*)t0)[9],a[3]=t7,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:407: macro-alias */
f_6228(t8,lf[81],((C_word*)t0)[10]);}
else{
t8=t7;
f_7856(t8,C_SCHEME_UNDEFINED);}}
else{
if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){
switch(((C_word*)t0)[4]){
case C_fix(0):
t7=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[7]);
/* expand.scm:414: loop */
t8=((C_word*)((C_word*)t0)[5])[1];
f_7464(t8,((C_word*)t0)[6],C_fix(0),t7,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,t3);
case C_fix(1):
t7=C_a_i_list2(&a,2,((C_word*)t0)[2],C_SCHEME_FALSE);
t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[12]);
/* expand.scm:415: loop */
t9=((C_word*)((C_word*)t0)[5])[1];
f_7464(t9,((C_word*)t0)[6],C_fix(1),((C_word*)t0)[7],t8,C_SCHEME_END_OF_LIST,t3);
case C_fix(2):
/* expand.scm:416: err */
t7=((C_word*)t0)[8];
f_7436(t7,((C_word*)t0)[6],lf[85]);
default:
t7=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[13]);
/* expand.scm:417: loop */
t9=((C_word*)((C_word*)t0)[5])[1];
f_7464(t9,((C_word*)t0)[6],C_fix(3),((C_word*)t0)[7],((C_word*)t0)[12],t8,t3);}}
else{
t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7943,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[7],a[9]=t3,a[10]=((C_word*)t0)[13],tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_listp(((C_word*)t0)[2]))){
t8=C_eqp(C_fix(2),C_u_i_length(((C_word*)t0)[2]));
t9=t7;
f_7943(t9,(C_truep(t8)?C_i_symbolp(C_i_car(((C_word*)t0)[2])):C_SCHEME_FALSE));}
else{
t8=t7;
f_7943(t8,C_SCHEME_FALSE);}}}}}}

/* k7778 in k7765 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7780(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(0,0,6)))){
C_save_and_reclaim_args((void *)trf_7780,2,t0,t1);}
t2=C_eqp(((C_word*)t0)[2],C_fix(0));
if(C_truep(t2)){
/* expand.scm:395: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_7464(t3,((C_word*)t0)[4],C_fix(1),((C_word*)t0)[5],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,((C_word*)t0)[6]);}
else{
/* expand.scm:396: err */
t3=((C_word*)t0)[7];
f_7436(t3,((C_word*)t0)[4],lf[80]);}}

/* k7794 in k7765 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7796(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7796,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)t0)[3];
f_7780(t3,t2);}

/* k7815 in k7765 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7817(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(0,0,6)))){
C_save_and_reclaim_args((void *)trf_7817,2,t0,t1);}
t2=C_i_car(((C_word*)t0)[2]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
/* expand.scm:403: loop */
t4=((C_word*)((C_word*)t0)[4])[1];
f_7464(t4,((C_word*)t0)[5],C_fix(2),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_END_OF_LIST,C_u_i_cdr(((C_word*)t0)[2]));}

/* k7854 in k7765 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7856(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,6)))){
C_save_and_reclaim_args((void *)trf_7856,2,t0,t1);}
if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[2],C_fix(2)))){
/* expand.scm:409: loop */
t2=((C_word*)((C_word*)t0)[3])[1];
f_7464(t2,((C_word*)t0)[4],C_fix(3),((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,((C_word*)t0)[7]);}
else{
/* expand.scm:410: err */
t2=((C_word*)t0)[8];
f_7436(t2,((C_word*)t0)[4],lf[84]);}}

/* k7873 in k7765 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_7875(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7875,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)t0)[3];
f_7856(t3,t2);}

/* k7941 in k7765 in loop in k7457 in k7454 in k7451 in ##sys#expand-extended-lambda-list in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_7943(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,6)))){
C_save_and_reclaim_args((void *)trf_7943,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
switch(((C_word*)t0)[2]){
case C_fix(0):
/* expand.scm:420: err */
t2=((C_word*)t0)[3];
f_7436(t2,((C_word*)t0)[4],lf[86]);
case C_fix(1):
t2=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[6]);
/* expand.scm:421: loop */
t3=((C_word*)((C_word*)t0)[7])[1];
f_7464(t3,((C_word*)t0)[4],C_fix(1),((C_word*)t0)[8],t2,C_SCHEME_END_OF_LIST,((C_word*)t0)[9]);
case C_fix(2):
/* expand.scm:422: err */
t2=((C_word*)t0)[3];
f_7436(t2,((C_word*)t0)[4],lf[87]);
default:
t2=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[10]);
/* expand.scm:423: loop */
t3=((C_word*)((C_word*)t0)[7])[1];
f_7464(t3,((C_word*)t0)[4],C_fix(3),((C_word*)t0)[8],((C_word*)t0)[6],t2,((C_word*)t0)[9]);}}
else{
/* expand.scm:424: err */
t2=((C_word*)t0)[3];
f_7436(t2,((C_word*)t0)[4],lf[88]);}}

/* ##sys#expand-multiple-values-assignment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8042(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_8042,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8048,a[2]=t3,a[3]=t2,a[4]=((C_word)li51),tmp=(C_word)a,a+=5,tmp);
/* expand.scm:442: ##sys#decompose-lambda-list */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[97]);
C_word *av2=av;
av2[0]=*((C_word*)lf[97]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t4;
tp(4,av2);}}

/* a8047 in ##sys#expand-multiple-values-assignment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8048(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
C_save_and_reclaim((void *)f_8048,c,av);}
a=C_alloc(21);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8052,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[3],a[7]=t4,tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_END_OF_LIST;
f_8052(2,av2);}}
else{
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(((C_word*)t0)[3],lf[16]);
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_8184,a[2]=t8,a[3]=t12,a[4]=t9,a[5]=((C_word)li50),tmp=(C_word)a,a+=6,tmp));
t14=((C_word*)t12)[1];
f_8184(t14,t5,((C_word*)t0)[3]);}}

/* k8050 in a8047 in ##sys#expand-multiple-values-assignment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8052(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_8052,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8055,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_not(((C_word*)t0)[7]))){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_END_OF_LIST;
f_8055(2,av2);}}
else{
/* expand.scm:446: chicken.base#gensym */
t4=*((C_word*)lf[9]+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)[7];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k8053 in k8050 in a8047 in ##sys#expand-multiple-values-assignment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8055(C_word c,C_word *av){
C_word tmp;
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,3)))){
C_save_and_reclaim((void *)f_8055,c,av);}
a=C_alloc(18);
t2=((C_word*)t0)[2];
t3=C_a_i_list(&a,3,lf[75],C_SCHEME_END_OF_LIST,((C_word*)t2)[2]);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8074,a[2]=((C_word*)t2)[3],a[3]=t3,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=t1,a[8]=((C_word*)t2)[7],tmp=(C_word)a,a+=9,tmp);
/* expand.scm:450: scheme#append */
t5=*((C_word*)lf[15]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[5];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k8072 in k8053 in k8050 in a8047 in ##sys#expand-multiple-values-assignment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8074(C_word c,C_word *av){
C_word tmp;
C_word t0=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(24,c,4)))){
C_save_and_reclaim((void *)f_8074,c,av);}
a=C_alloc(24);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8078,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_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[16]);
t8=C_i_check_list_2(((C_word*)t0)[5],lf[16]);
t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8096,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp);
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_8118,a[2]=t5,a[3]=t11,a[4]=t6,a[5]=((C_word)li49),tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_8118(t13,t9,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k8076 in k8072 in k8053 in k8050 in a8047 in ##sys#expand-multiple-values-assignment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8078(C_word c,C_word *av){
C_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,1)))){
C_save_and_reclaim((void *)f_8078,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[75],t2);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,3,lf[94],((C_word*)t0)[4],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k8094 in k8072 in k8053 in k8050 in a8047 in ##sys#expand-multiple-values-assignment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8096(C_word c,C_word *av){
C_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_8096,c,av);}
a=C_alloc(12);
if(C_truep(C_i_nullp(((C_word*)t0)[2]))){
/* expand.scm:447: ##sys#append */
t2=*((C_word*)lf[73]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=lf[95];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
if(C_truep(C_i_nullp(((C_word*)t0)[4]))){
/* expand.scm:447: ##sys#append */
t2=*((C_word*)lf[73]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
t2=C_a_i_list(&a,3,lf[96],((C_word*)t0)[5],((C_word*)t0)[4]);
t3=C_a_i_list(&a,1,t2);
/* expand.scm:447: ##sys#append */
t4=*((C_word*)lf[73]+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]=t1;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}}

/* map-loop1481 in k8072 in k8053 in k8050 in a8047 in ##sys#expand-multiple-values-assignment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_8118(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_8118,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[96],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-loop1452 in a8047 in ##sys#expand-multiple-values-assignment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_8184(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_8184,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_8209,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);
/* expand.scm:445: g1458 */
t4=*((C_word*)lf[9]+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);}}}

/* k8207 in map-loop1452 in a8047 in ##sys#expand-multiple-values-assignment in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8209(C_word c,C_word *av){
C_word tmp;
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_8209,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_8184(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8222(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){
C_save_and_reclaim((void*)f_8222,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;
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8226,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_nullp(t3))){
/* expand.scm:467: ##sys#current-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[3]);
C_word *av2=av;
av2[0]=*((C_word*)lf[3]+1);
av2[1]=t4;
tp(2,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_car(t3);
f_8226(2,av2);}}}

/* k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8226(C_word c,C_word *av){
C_word tmp;
C_word t0=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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(41,c,4)))){
C_save_and_reclaim((void *)f_8226,c,av);}
a=C_alloc(41);
t2=C_i_nullp(((C_word*)t0)[2]);
t3=(C_truep(t2)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2]));
t4=C_i_nullp(t3);
t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3));
t6=C_i_nullp(t3);
t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3));
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_SCHEME_UNDEFINED;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_SCHEME_UNDEFINED;
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=C_SCHEME_UNDEFINED;
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=C_SCHEME_UNDEFINED;
t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
t22=C_SCHEME_UNDEFINED;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=C_SCHEME_UNDEFINED;
t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp);
t26=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8237,a[2]=t1,a[3]=((C_word)li53),tmp=(C_word)a,a+=4,tmp));
t27=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8286,a[2]=t1,a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp));
t28=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8361,a[2]=t17,a[3]=t19,a[4]=t21,a[5]=t25,a[6]=t9,a[7]=t1,a[8]=t5,a[9]=t15,a[10]=t13,a[11]=t23,a[12]=((C_word*)t0)[3],a[13]=((C_word*)t0)[4],a[14]=t11,tmp=(C_word)a,a+=15,tmp);
/* expand.scm:485: comp-def */
t29=((C_word*)t11)[1];
f_8286(t29,t28,C_fast_retrieve(lf[98]));}

/* comp in k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_8237(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,2)))){
C_save_and_reclaim_args((void *)trf_8237,4,t0,t1,t2,t3);}
a=C_alloc(9);
t4=(
/* expand.scm:469: lookup */
  f_6211(t3,((C_word*)t0)[2])
);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8244,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
if(C_truep(t4)){
t6=t5;
f_8244(t6,t4);}
else{
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8284,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:470: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word av2[2];
av2[0]=*((C_word*)lf[17]+1);
av2[1]=t6;
tp(2,av2);}}}

/* k8242 in comp in k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_8244(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(9,0,3)))){
C_save_and_reclaim_args((void *)trf_8244,2,t0,t1);}
a=C_alloc(9);
t2=C_i_symbolp(t1);
t3=C_i_not(t2);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8253,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);
if(C_truep(t3)){
t5=t4;
f_8253(t5,t3);}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8273,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:472: ##sys#get */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[61]);
C_word av2[4];
av2[0]=*((C_word*)lf[61]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[62];
tp(4,av2);}}}

/* k8251 in k8242 in comp in k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_8253(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(0,0,1)))){
C_save_and_reclaim_args((void *)trf_8253,2,t0,t1);}
if(C_truep(t1)){
t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t3;
av2[1]=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k8271 in k8242 in comp in k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8273(C_word c,C_word *av){
C_word tmp;
C_word 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_8273,c,av);}
t2=((C_word*)t0)[2];
f_8253(t2,C_i_not(C_eqp(t1,lf[60])));}

/* k8282 in comp in k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8284,c,av);}
/* expand.scm:470: lookup */
t2=((C_word*)t0)[2];
f_8244(t2,(
/* expand.scm:470: lookup */
  f_6211(((C_word*)t0)[3],t1)
));}

/* comp-def in k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_8286(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(5,0,3)))){
C_save_and_reclaim_args((void *)trf_8286,3,t0,t1,t2);}
a=C_alloc(5);
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8288,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li55),tmp=(C_word)a,a+=5,tmp);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* f_8288 in comp-def in k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8288(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_8288,c,av);}
a=C_alloc(8);
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_8294,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=((C_word)li54),tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_8294(t6,t1,t2);}

/* repeat */
static void f_8294(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,2)))){
C_save_and_reclaim_args((void *)trf_8294,3,t0,t1,t2);}
a=C_alloc(10);
t3=(
/* expand.scm:477: lookup */
  f_6211(t2,((C_word*)t0)[2])
);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8301,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(t3)){
t5=t4;
f_8301(t5,t3);}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8357,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:478: ##sys#macro-environment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[17]);
C_word av2[2];
av2[0]=*((C_word*)lf[17]+1);
av2[1]=t5;
tp(2,av2);}}}

/* k8299 in repeat */
static void f_8301(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(10,0,3)))){
C_save_and_reclaim_args((void *)trf_8301,2,t0,t1);}
a=C_alloc(10);
t2=C_i_symbolp(t1);
t3=C_i_not(t2);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8310,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);
if(C_truep(t3)){
t5=t4;
f_8310(t5,t3);}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8346,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:480: ##sys#get */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[61]);
C_word av2[4];
av2[0]=*((C_word*)lf[61]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[62];
tp(4,av2);}}}

/* k8308 in k8299 in repeat */
static void f_8310(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(0,0,2)))){
C_save_and_reclaim_args((void *)trf_8310,2,t0,t1);}
if(C_truep(t1)){
t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]);
if(C_truep(t2)){
t3=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){
t3=C_eqp(((C_word*)t0)[2],((C_word*)t0)[5]);
if(C_truep(C_i_not(t3))){
/* expand.scm:484: repeat */
t4=((C_word*)((C_word*)t0)[6])[1];
f_8294(t4,((C_word*)t0)[4],((C_word*)t0)[2]);}
else{
t4=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t3=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}
else{
t2=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k8344 in k8299 in repeat */
static void C_ccall f_8346(C_word c,C_word *av){
C_word tmp;
C_word 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_8346,c,av);}
t2=((C_word*)t0)[2];
f_8310(t2,C_i_not(C_eqp(t1,lf[60])));}

/* k8355 in repeat */
static void C_ccall f_8357(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8357,c,av);}
/* expand.scm:478: lookup */
t2=((C_word*)t0)[2];
f_8301(t2,(
/* expand.scm:478: lookup */
  f_6211(((C_word*)t0)[3],t1)
));}

/* k8359 in k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8361(C_word c,C_word *av){
C_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,2)))){
C_save_and_reclaim((void *)f_8361,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)((C_word*)t0)[10])+1,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8365,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:486: comp-def */
t4=((C_word*)((C_word*)t0)[14])[1];
f_8286(t4,t3,C_fast_retrieve(lf[99]));}

/* k8363 in k8359 in k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8365(C_word c,C_word *av){
C_word tmp;
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_8365,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[9])+1,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8369,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:487: comp-def */
t5=((C_word*)((C_word*)t2)[14])[1];
f_8286(t5,t4,C_fast_retrieve(lf[100]));}

/* k8367 in k8363 in k8359 in k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8369(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_8369,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8373,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[2],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[12],a[13]=((C_word*)t2)[13],tmp=(C_word)a,a+=14,tmp);
/* expand.scm:488: comp-def */
t5=((C_word*)((C_word*)t2)[14])[1];
f_8286(t5,t4,C_retrieve2(lf[101],C_text("chicken.syntax#import-definition")));}

/* k8371 in k8367 in k8363 in k8359 in k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8373(C_word c,C_word *av){
C_word tmp;
C_word t0=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(27,c,6)))){
C_save_and_reclaim((void *)f_8373,c,av);}
a=C_alloc(27);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8375,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],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word)li63),tmp=(C_word)a,a+=11,tmp));
t4=C_mutate(((C_word *)((C_word*)t0)[11])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8812,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[8],a[4]=((C_word)li66),tmp=(C_word)a,a+=5,tmp));
t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8968,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[10],a[10]=((C_word)li69),tmp=(C_word)a,a+=11,tmp));
/* expand.scm:637: expand */
t6=((C_word*)((C_word*)t0)[4])[1];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=((C_word*)t0)[12];
av2[2]=((C_word*)t0)[13];
((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}

/* f_8375 in k8371 in k8367 in k8363 in k8359 in k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
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!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_8375,c,av);}
a=C_alloc(14);
t6=C_i_nullp(t2);
t7=(C_truep(t6)?C_i_nullp(t4):C_SCHEME_FALSE);
if(C_truep(t7)){
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8387,a[2]=t9,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)li58),tmp=(C_word)a,a+=12,tmp));
t11=((C_word*)t9)[1];
f_8387(t11,t1,t5,C_SCHEME_END_OF_LIST);}
else{
t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t9=t8;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=((C_word*)t10)[1];
t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8640,a[2]=t1,a[3]=t5,a[4]=t4,a[5]=t3,a[6]=t2,a[7]=t10,a[8]=t11,tmp=(C_word)a,a+=9,tmp);
/* expand.scm:544: scheme#reverse */
t13=*((C_word*)lf[72]+1);{
C_word *av2=av;
av2[0]=t13;
av2[1]=t12;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}}

/* loop */
static void f_8387(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(16,0,3)))){
C_save_and_reclaim_args((void *)trf_8387,4,t0,t1,t2,t3);}
a=C_alloc(16);
t4=C_i_pairp(t2);
if(C_truep(C_i_not(t4))){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8401,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:496: scheme#reverse */
t6=*((C_word*)lf[72]+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_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|13,a[1]=(C_word)f_8406,a[2]=t3,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]=t6,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)li57),tmp=(C_word)a,a+=14,tmp));
t8=((C_word*)t6)[1];
f_8406(t8,t1,t2);}}

/* k8399 in loop */
static void C_ccall f_8401(C_word c,C_word *av){
C_word tmp;
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_8401,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[103],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* loop2 in loop */
static void f_8406(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(22,0,3)))){
C_save_and_reclaim_args((void *)trf_8406,3,t0,t1,t2);}
a=C_alloc(22);
t3=C_i_car(t2);
t4=C_u_i_cdr(t2);
t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8417,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t4,a[7]=((C_word*)t0)[4],a[8]=t2,a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],tmp=(C_word)a,a+=14,tmp);
if(C_truep(C_i_pairp(t3))){
t6=C_u_i_car(t3);
if(C_truep(C_i_symbolp(t6))){
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8578,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=t6,a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[12],tmp=(C_word)a,a+=8,tmp);
/* expand.scm:503: comp */
t8=((C_word*)((C_word*)t0)[6])[1];
f_8237(t8,t7,lf[103],t6);}
else{
t7=t5;{
C_word av2[2];
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
f_8417(2,av2);}}}
else{
t6=t5;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_8417(2,av2);}}}

/* k8415 in loop2 in loop */
static void C_ccall f_8417(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8417,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8423,a[2]=((C_word*)t0)[2],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);
/* expand.scm:509: comp-import */
t3=((C_word*)((C_word*)t0)[9])[1];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_car(((C_word*)t0)[2]);
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8456,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[11],tmp=(C_word)a,a+=9,tmp);
/* expand.scm:514: ##sys#expand-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[32]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[32]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[12];
av2[4]=((C_word*)t0)[13];
tp(5,av2);}}}

/* k8421 in k8415 in loop2 in loop */
static void C_ccall f_8423(C_word c,C_word *av){
C_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_8423,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
/* expand.scm:510: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_8387(t3,((C_word*)t0)[5],((C_word*)t0)[6],t2);}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8437,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8441,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:513: scheme#reverse */
t4=*((C_word*)lf[72]+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);}}}

/* k8435 in k8421 in k8415 in loop2 in loop */
static void C_ccall f_8437(C_word c,C_word *av){
C_word tmp;
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_8437,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[103],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8439 in k8421 in k8415 in loop2 in loop */
static void C_ccall f_8441(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8441,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8449,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:513: expand */
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_word*)t0)[4];
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}

/* k8447 in k8439 in k8421 in k8415 in loop2 in loop */
static void C_ccall f_8449(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8449,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* expand.scm:513: ##sys#append */
t3=*((C_word*)lf[73]+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);}}

/* k8454 in k8415 in loop2 in loop */
static void C_ccall f_8456(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_8456,c,av);}
a=C_alloc(13);
t2=C_eqp(((C_word*)t0)[2],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8468,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],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_pairp(((C_word*)t0)[2]))){
if(C_truep(C_i_symbolp(C_u_i_car(((C_word*)t0)[2])))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8546,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:521: comp */
t5=((C_word*)((C_word*)t0)[5])[1];
f_8237(t5,t4,lf[105],C_u_i_car(((C_word*)t0)[2]));}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_8468(2,av2);}}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_8468(2,av2);}}}
else{
t3=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]);
/* expand.scm:531: loop2 */
t4=((C_word*)((C_word*)t0)[8])[1];
f_8406(t4,((C_word*)t0)[3],t3);}}

/* k8466 in k8454 in k8415 in loop2 in loop */
static void C_ccall f_8468(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_8468,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8475,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8479,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* expand.scm:524: scheme#reverse */
t4=*((C_word*)lf[72]+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_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[6]);
/* expand.scm:530: loop */
t3=((C_word*)((C_word*)t0)[7])[1];
f_8387(t3,((C_word*)t0)[2],((C_word*)t0)[3],t2);}}

/* k8473 in k8466 in k8454 in k8415 in loop2 in loop */
static void C_ccall f_8475(C_word c,C_word *av){
C_word tmp;
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_8475,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[103],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8477 in k8466 in k8454 in k8415 in loop2 in loop */
static void C_ccall f_8479(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_8479,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8486,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);
/* expand.scm:525: comp */
t3=((C_word*)((C_word*)t0)[5])[1];
f_8237(t3,t2,lf[105],C_i_car(((C_word*)t0)[3]));}

/* k8484 in k8477 in k8466 in k8454 in k8415 in loop2 in loop */
static void C_ccall f_8486(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_8486,c,av);}
a=C_alloc(12);
if(C_truep(t1)){
if(C_truep(C_i_nullp(((C_word*)t0)[2]))){
t2=C_a_i_list(&a,1,((C_word*)t0)[3]);
/* expand.scm:523: ##sys#append */
t3=*((C_word*)lf[73]+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)[5];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[50],t2);
t4=C_a_i_list(&a,2,((C_word*)t0)[3],t3);
/* expand.scm:523: ##sys#append */
t5=*((C_word*)lf[73]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8517,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t3=C_u_i_cdr(((C_word*)t0)[3]);
t4=C_a_i_list(&a,1,((C_word*)t0)[2]);
/* expand.scm:529: ##sys#append */
t5=*((C_word*)lf[73]+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);}}}

/* k8515 in k8484 in k8477 in k8466 in k8454 in k8415 in loop2 in loop */
static void C_ccall f_8517(C_word c,C_word *av){
C_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_8517,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,lf[104],t1);
t3=C_a_i_list(&a,1,t2);
/* expand.scm:523: ##sys#append */
t4=*((C_word*)lf[73]+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]=((C_word*)t0)[3];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k8544 in k8454 in k8415 in loop2 in loop */
static void C_ccall f_8546(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8546,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
f_8468(2,av2);}}
else{
/* expand.scm:522: comp */
t2=((C_word*)((C_word*)t0)[3])[1];
f_8237(t2,((C_word*)t0)[2],lf[104],C_u_i_car(((C_word*)t0)[4]));}}

/* k8576 in loop2 in loop */
static void C_ccall f_8578(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8578,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
f_8417(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8584,a[2]=((C_word*)t0)[2],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);
/* expand.scm:504: comp-define */
t3=((C_word*)((C_word*)t0)[7])[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)C_fast_retrieve_proc(t3))(3,av2);}}}

/* k8582 in k8576 in loop2 in loop */
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 t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_8584,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;
f_8417(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8590,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);
/* expand.scm:505: comp-define-values */
t3=((C_word*)((C_word*)t0)[6])[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)C_fast_retrieve_proc(t3))(3,av2);}}}

/* k8588 in k8582 in k8576 in loop2 in loop */
static void C_ccall f_8590(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8590,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
f_8417(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8596,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);
/* expand.scm:506: comp-define-syntax */
t3=((C_word*)((C_word*)t0)[5])[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)C_fast_retrieve_proc(t3))(3,av2);}}}

/* k8594 in k8588 in k8582 in k8576 in loop2 in loop */
static void C_ccall f_8596(C_word c,C_word *av){
C_word tmp;
C_word 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_8596,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
f_8417(2,av2);}}
else{
/* expand.scm:507: comp-import */
t2=((C_word*)((C_word*)t0)[3])[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)[4];
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}}

/* k8632 in foldl1660 in k8638 */
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(0,c,3)))){
C_save_and_reclaim((void *)f_8634,c,av);}
/* expand.scm:541: ##sys#append */
t2=*((C_word*)lf[73]+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);}}

/* a8635 in foldl1660 in k8638 */
static void C_ccall f_8636(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 *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8636,c,av);}
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k8638 */
static void C_ccall f_8640(C_word c,C_word *av){
C_word tmp;
C_word t0=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,4)))){
C_save_and_reclaim((void *)f_8640,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8643,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8782,a[2]=t4,a[3]=((C_word)li62),tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_8782(t6,t2,t1,C_SCHEME_END_OF_LIST);}

/* k8641 in k8638 */
static void C_ccall f_8643(C_word c,C_word *av){
C_word tmp;
C_word t0=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(15,c,3)))){
C_save_and_reclaim((void *)f_8643,c,av);}
a=C_alloc(15);
t2=((C_word*)t0)[2];
t3=C_i_check_list_2(t1,lf[16]);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8649,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],tmp=(C_word)a,a+=7,tmp);
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_8748,a[2]=((C_word*)t2)[7],a[3]=t6,a[4]=((C_word*)t2)[8],a[5]=((C_word)li60),tmp=(C_word)a,a+=6,tmp));
t8=((C_word*)t6)[1];
f_8748(t8,t4,t1);}

/* k8647 in k8641 in k8638 */
static void C_ccall f_8649(C_word c,C_word *av){
C_word tmp;
C_word t0=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(17,c,2)))){
C_save_and_reclaim((void *)f_8649,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8653,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8675,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=t6,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
/* expand.scm:552: scheme#reverse */
t8=*((C_word*)lf[72]+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)[6];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}

/* k8651 in k8647 in k8641 in k8638 */
static void C_ccall f_8653(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8653,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[50],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k8673 in k8647 in k8641 in k8638 */
static void C_ccall f_8675(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8675,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8678,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* expand.scm:553: scheme#reverse */
t3=*((C_word*)lf[72]+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);}}

/* k8676 in k8673 in k8647 in k8641 in k8638 */
static void C_ccall f_8678(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_8678,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8681,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
/* expand.scm:554: scheme#reverse */
t3=*((C_word*)lf[72]+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);}}

/* k8679 in k8676 in k8673 in k8647 in k8641 in k8638 */
static void C_ccall f_8681(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){
C_save_and_reclaim((void *)f_8681,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8684,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8686,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word)li59),tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_8686(t6,t2,((C_word*)t0)[6],((C_word*)t0)[7],t1);}

/* k8682 in k8679 in k8676 in k8673 in k8647 in k8641 in k8638 */
static void C_ccall f_8684(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8684,c,av);}
/* expand.scm:536: ##sys#append */
t2=*((C_word*)lf[73]+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);}}

/* map-loop1684 in k8679 in k8676 in k8673 in k8647 in k8641 in k8638 */
static void f_8686(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,2)))){
C_save_and_reclaim_args((void *)trf_8686,5,t0,t1,t2,t3,t4);}
a=C_alloc(9);
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8693,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=t3,a[7]=t4,a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp);
if(C_truep(C_i_pairp(t2))){
t6=C_i_pairp(t3);
t7=t5;
f_8693(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));}
else{
t6=t5;
f_8693(t6,C_SCHEME_FALSE);}}

/* k8691 in map-loop1684 in k8679 in k8676 in k8673 in k8647 in k8641 in k8638 */
static void f_8693(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(17,0,3)))){
C_save_and_reclaim_args((void *)trf_8693,2,t0,t1);}
a=C_alloc(17);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8719,a[2]=((C_word*)t0)[2],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_slot(((C_word*)t0)[5],C_fix(0));
t4=C_slot(((C_word*)t0)[6],C_fix(0));
if(C_truep(C_slot(((C_word*)t0)[7],C_fix(0)))){
/* expand.scm:550: ##sys#expand-multiple-values-assignment */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[93]);
C_word av2[4];
av2[0]=*((C_word*)lf[93]+1);
av2[1]=t2;
av2[2]=t3;
av2[3]=t4;
tp(4,av2);}}
else{
t5=C_i_car(t3);
t6=t2;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_a_i_list(&a,3,lf[96],t5,t4);
f_8719(2,av2);}}}
else{
t2=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_slot(((C_word*)t0)[8],C_fix(1));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k8717 in k8691 in map-loop1684 in k8679 in k8676 in k8673 in k8647 in k8641 in k8638 */
static void C_ccall f_8719(C_word c,C_word *av){
C_word tmp;
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,4)))){
C_save_and_reclaim((void *)f_8719,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_8686(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)),C_slot(((C_word*)t0)[7],C_fix(1)));}

/* map-loop1636 in k8641 in k8638 */
static void f_8748(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(9,0,2)))){
C_save_and_reclaim_args((void *)trf_8748,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_a_i_list(&a,2,t3,lf[106]);
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);}}}

/* foldl1660 in k8638 */
static void f_8782(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(12,0,5)))){
C_save_and_reclaim_args((void *)trf_8782,4,t0,t1,t2,t3);}
a=C_alloc(12);
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_8800,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|3,a[1]=(C_word)f_8634,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8636,a[2]=((C_word)li61),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:541: ##sys#decompose-lambda-list */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[97]);
C_word av2[4];
av2[0]=*((C_word*)lf[97]+1);
av2[1]=t7;
av2[2]=t6;
av2[3]=t8;
tp(4,av2);}}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k8798 in foldl1660 in k8638 */
static void C_ccall f_8800(C_word c,C_word *av){
C_word tmp;
C_word 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_8800,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_8782(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* f_8812 in k8371 in k8367 in k8363 in k8359 in k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8812(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){
C_save_and_reclaim((void *)f_8812,c,av);}
a=C_alloc(14);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8820,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
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|4,a[1]=(C_word)f_8822,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=((C_word)li65),tmp=(C_word)a,a+=5,tmp));
t10=((C_word*)t8)[1];
f_8822(t10,t6,t5,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);}

/* k8818 */
static void C_ccall f_8820(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_8820,c,av);}
/* expand.scm:559: fini */
t2=((C_word*)((C_word*)t0)[2])[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]=((C_word*)t0)[6];
av2[5]=t1;
((C_proc)C_fast_retrieve_proc(t2))(6,av2);}}

/* loop */
static void f_8822(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
C_save_and_reclaim_args((void *)trf_8822,5,t0,t1,t2,t3,t4);}
a=C_alloc(11);
if(C_truep(t4)){
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|5,a[1]=(C_word)f_8844,a[2]=t2,a[3]=t1,a[4]=t7,a[5]=t8,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:563: scheme#reverse */
t10=*((C_word*)lf[72]+1);{
C_word av2[3];
av2[0]=t10;
av2[1]=t9;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
else{
t5=C_i_pairp(t2);
if(C_truep(C_i_not(t5))){
/* expand.scm:564: loop */
t12=t1;
t13=t2;
t14=t3;
t15=C_SCHEME_TRUE;
t1=t12;
t2=t13;
t3=t14;
t4=t15;
goto loop;}
else{
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8896,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
t7=C_i_car(t2);
if(C_truep(C_i_listp(t7))){
t8=C_i_length(C_u_i_car(t2));
if(C_truep(C_fixnum_greater_or_equal_p(C_fix(3),t8))){
t9=C_i_caar(t2);
if(C_truep(C_i_symbolp(t9))){
t10=C_u_i_car(t2);
/* expand.scm:568: comp-define-syntax */
t11=((C_word*)((C_word*)t0)[3])[1];{
C_word av2[3];
av2[0]=t11;
av2[1]=t6;
av2[2]=C_u_i_car(t10);
((C_proc)C_fast_retrieve_proc(t11))(3,av2);}}
else{
t10=t6;{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
f_8896(2,av2);}}}
else{
t9=t6;{
C_word av2[2];
av2[0]=t9;
av2[1]=C_SCHEME_FALSE;
f_8896(2,av2);}}}
else{
t8=t6;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_8896(2,av2);}}}}}

/* k8842 in loop */
static void C_ccall f_8844(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8844,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8847,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8849,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word)li64),tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_8849(t6,t2,t1);}

/* k8845 in k8842 in loop */
static void C_ccall f_8847(C_word c,C_word *av){
C_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_8847,c,av);}
a=C_alloc(9);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[107],t2);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,1,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* map-loop1744 in k8842 in loop */
static void f_8849(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_8849,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_cdr(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);}}}

/* k8894 in loop */
static void C_ccall f_8896(C_word c,C_word *av){
C_word tmp;
C_word t0=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(6,c,4)))){
C_save_and_reclaim((void *)f_8896,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_u_i_car(((C_word*)t0)[2]);
t3=C_mutate(((C_word *)t0)+3,t2);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8900,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t5=C_i_car(((C_word*)t0)[3]);
t6=C_i_cadr(((C_word*)t0)[3]);
t7=C_eqp(t5,t6);
if(C_truep(t7)){
/* expand.scm:432: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=t4;
av2[2]=lf[108];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}
else{
t8=C_u_i_cdr(((C_word*)t0)[2]);
t9=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
/* expand.scm:574: loop */
t10=((C_word*)((C_word*)t0)[5])[1];
f_8822(t10,((C_word*)t0)[6],t8,t9,C_SCHEME_FALSE);}}
else{
/* expand.scm:575: loop */
t2=((C_word*)((C_word*)t0)[5])[1];
f_8822(t2,((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[4],C_SCHEME_TRUE);}}

/* k8898 in k8894 in loop */
static void C_ccall f_8900(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_8900,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_u_i_cdr(((C_word*)t2)[2]);
t4=C_a_i_cons(&a,2,((C_word*)t2)[3],((C_word*)t2)[4]);
/* expand.scm:574: loop */
t5=((C_word*)((C_word*)t2)[5])[1];
f_8822(t5,((C_word*)t2)[6],t3,t4,C_SCHEME_FALSE);}

/* f_8968 in k8371 in k8367 in k8363 in k8359 in k8224 in ##sys#canonicalize-body in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_8968(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!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(14,c,6)))){
C_save_and_reclaim((void *)f_8968,c,av);}
a=C_alloc(14);
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|11,a[1]=(C_word)f_8974,a[2]=((C_word*)t0)[2],a[3]=t4,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)li68),tmp=(C_word)a,a+=12,tmp));
t6=((C_word*)t4)[1];
f_8974(t6,t1,t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);}

/* loop */
static void f_8974(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 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(18,0,5)))){
C_save_and_reclaim_args((void *)trf_8974,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(18);
t6=C_i_pairp(t2);
if(C_truep(C_i_not(t6))){
/* expand.scm:584: fini */
t7=((C_word*)((C_word*)t0)[2])[1];{
C_word av2[6];
av2[0]=t7;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
av2[4]=t5;
av2[5]=t2;
((C_proc)C_fast_retrieve_proc(t7))(6,av2);}}
else{
t7=C_i_car(t2);
t8=C_u_i_cdr(t2);
t9=C_i_pairp(t7);
t10=(C_truep(t9)?C_u_i_car(t7):C_SCHEME_FALSE);
t11=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_8997,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t2,a[8]=((C_word*)t0)[3],a[9]=t8,a[10]=((C_word*)t0)[4],a[11]=t7,a[12]=((C_word*)t0)[5],a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[7],a[15]=((C_word*)t0)[8],a[16]=((C_word*)t0)[9],a[17]=((C_word*)t0)[10],tmp=(C_word)a,a+=18,tmp);
if(C_truep(t10)){
t12=C_i_symbolp(t10);
t13=t11;
f_8997(t13,(C_truep(t12)?t10:C_SCHEME_FALSE));}
else{
t12=t11;
f_8997(t12,C_SCHEME_FALSE);}}}

/* k8995 in loop */
static void f_8997(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(18,0,5)))){
C_save_and_reclaim_args((void *)trf_8997,2,t0,t1);}
a=C_alloc(18);
t2=C_i_symbolp(t1);
if(C_truep(C_i_not(t2))){
/* expand.scm:590: fini */
t3=((C_word*)((C_word*)t0)[2])[1];{
C_word av2[6];
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=((C_word*)t0)[6];
av2[5]=((C_word*)t0)[7];
((C_proc)C_fast_retrieve_proc(t3))(6,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_9012,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[7],a[12]=t1,a[13]=((C_word*)t0)[2],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);
/* expand.scm:592: comp-define */
t4=((C_word*)((C_word*)t0)[17])[1];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t1;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}}

/* k9010 in k8995 in loop */
static void C_ccall f_9012(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,6)))){
C_save_and_reclaim((void *)f_9012,c,av);}
a=C_alloc(17);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9015,a[2]=((C_word*)t0)[2],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);
/* expand.scm:593: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t2;
av2[2]=lf[110];
av2[3]=((C_word*)t0)[9];
av2[4]=lf[115];
av2[5]=C_SCHEME_FALSE;
av2[6]=((C_word*)t0)[7];
tp(7,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_9149,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],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);
/* expand.scm:619: comp-define-syntax */
t3=((C_word*)((C_word*)t0)[17])[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)C_fast_retrieve_proc(t3))(3,av2);}}}

/* k9013 in k9010 in k8995 in loop */
static void C_ccall f_9015(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_9015,c,av);}
a=C_alloc(12);
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|9,a[1]=(C_word)f_9020,a[2]=((C_word*)t0)[2],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]=t3,a[9]=((C_word)li67),tmp=(C_word)a,a+=10,tmp));
t5=((C_word*)t3)[1];
f_9020(t5,((C_word*)t0)[8],((C_word*)t0)[9]);}

/* loop2 in k9013 in k9010 in k8995 in loop */
static void f_9020(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,6)))){
C_save_and_reclaim_args((void *)trf_9020,3,t0,t1,t2);}
a=C_alloc(10);
t3=C_i_cadr(t2);
t4=C_i_pairp(t3);
if(C_truep(C_i_not(t4))){
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9033,a[2]=t3,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]=t1,a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
/* expand.scm:597: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word av2[7];
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t5;
av2[2]=lf[110];
av2[3]=t2;
av2[4]=lf[111];
av2[5]=C_SCHEME_FALSE;
av2[6]=((C_word*)t0)[7];
tp(7,av2);}}
else{
t5=C_i_car(t3);
if(C_truep(C_i_pairp(t5))){
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9086,a[2]=((C_word*)t0)[8],a[3]=t1,a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
/* expand.scm:607: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word av2[7];
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t6;
av2[2]=lf[110];
av2[3]=t2;
av2[4]=lf[113];
av2[5]=C_SCHEME_FALSE;
av2[6]=((C_word*)t0)[7];
tp(7,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9100,a[2]=t3,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]=t1,a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
/* expand.scm:612: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word av2[7];
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t6;
av2[2]=lf[110];
av2[3]=t2;
av2[4]=lf[114];
av2[5]=C_SCHEME_FALSE;
av2[6]=((C_word*)t0)[7];
tp(7,av2);}}}}

/* k9031 in loop2 in k9013 in k9010 in k8995 in loop */
static void C_ccall f_9033(C_word c,C_word *av){
C_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_9033,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9036,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=C_eqp(C_u_i_car(((C_word*)t0)[4]),((C_word*)t0)[2]);
if(C_truep(t3)){
/* expand.scm:432: ##sys#syntax-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[43]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[43]+1);
av2[1]=t2;
av2[2]=lf[108];
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_9036(2,av2);}}}

/* k9034 in k9031 in loop2 in k9013 in k9010 in k8995 in loop */
static void C_ccall f_9036(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_9036,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];
t3=C_a_i_list1(&a,1,((C_word*)t2)[2]);
t4=C_a_i_cons(&a,2,t3,((C_word*)t2)[3]);
t5=C_i_cddr(((C_word*)t2)[4]);
if(C_truep(C_i_pairp(t5))){
t6=C_i_caddr(((C_word*)t2)[4]);
t7=C_a_i_cons(&a,2,t6,((C_word*)t2)[5]);
t8=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t2)[6]);
/* expand.scm:600: loop */
t9=((C_word*)((C_word*)t2)[7])[1];
f_8974(t9,((C_word*)t2)[8],((C_word*)t2)[9],t4,t7,t8);}
else{
t6=C_a_i_cons(&a,2,lf[109],((C_word*)t2)[5]);
t7=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t2)[6]);
/* expand.scm:600: loop */
t8=((C_word*)((C_word*)t2)[7])[1];
f_8974(t8,((C_word*)t2)[8],((C_word*)t2)[9],t4,t6,t7);}}

/* k9084 in loop2 in k9013 in k9010 in k8995 in loop */
static void C_ccall f_9086(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9086,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9093,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:610: chicken.syntax#expand-curried-define */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[112]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[112]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_i_cddr(((C_word*)t0)[5]);
av2[4]=((C_word*)t0)[6];
tp(5,av2);}}

/* k9091 in k9084 in loop2 in k9013 in k9010 in k8995 in loop */
static void C_ccall f_9093(C_word c,C_word *av){
C_word tmp;
C_word 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_9093,c,av);}
/* expand.scm:609: loop2 */
t2=((C_word*)((C_word*)t0)[2])[1];
f_9020(t2,((C_word*)t0)[3],t1);}

/* k9098 in loop2 in k9013 in k9010 in k8995 in loop */
static void C_ccall f_9100(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_9100,c,av);}
a=C_alloc(18);
t2=C_u_i_car(((C_word*)t0)[2]);
t3=C_a_i_list1(&a,1,t2);
t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]);
t5=C_u_i_cdr(((C_word*)t0)[2]);
t6=C_i_cddr(((C_word*)t0)[4]);
t7=C_a_i_cons(&a,2,t5,t6);
t8=C_a_i_cons(&a,2,lf[75],t7);
t9=C_a_i_cons(&a,2,t8,((C_word*)t0)[5]);
t10=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t0)[6]);
/* expand.scm:615: loop */
t11=((C_word*)((C_word*)t0)[7])[1];
f_8974(t11,((C_word*)t0)[8],((C_word*)t0)[9],t4,t9,t10);}

/* k9147 in k9010 in k8995 in loop */
static void C_ccall f_9149(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_9149,c,av);}
a=C_alloc(15);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9152,a[2]=((C_word*)t0)[2],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);
/* expand.scm:620: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t2;
av2[2]=lf[116];
av2[3]=((C_word*)t0)[8];
av2[4]=lf[117];
av2[5]=((C_word*)t0)[9];
tp(6,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_9161,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],tmp=(C_word)a,a+=15,tmp);
/* expand.scm:622: comp-define-values */
t3=((C_word*)((C_word*)t0)[16])[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)C_fast_retrieve_proc(t3))(3,av2);}}}

/* k9150 in k9147 in k9010 in k8995 in loop */
static void C_ccall f_9152(C_word c,C_word *av){
C_word tmp;
C_word 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_9152,c,av);}
/* expand.scm:621: fini/syntax */
t2=((C_word*)((C_word*)t0)[2])[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]=((C_word*)t0)[6];
av2[5]=((C_word*)t0)[7];
((C_proc)C_fast_retrieve_proc(t2))(6,av2);}}

/* k9159 in k9147 in k9010 in k8995 in loop */
static void C_ccall f_9161(C_word c,C_word *av){
C_word tmp;
C_word t0=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,6)))){
C_save_and_reclaim((void *)f_9161,c,av);}
a=C_alloc(14);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9164,a[2]=((C_word*)t0)[2],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);
/* expand.scm:624: ##sys#check-syntax */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[54]);
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=*((C_word*)lf[54]+1);
av2[1]=t2;
av2[2]=lf[118];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[119];
av2[5]=C_SCHEME_FALSE;
av2[6]=((C_word*)t0)[9];
tp(7,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9193,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp);
/* expand.scm:626: comp */
t3=((C_word*)((C_word*)t0)[14])[1];
f_8237(t3,t2,lf[103],((C_word*)t0)[10]);}}

/* k9162 in k9159 in k9147 in k9010 in k8995 in loop */
static void C_ccall f_9164(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_9164,c,av);}
a=C_alloc(9);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]);
t4=C_i_caddr(((C_word*)t0)[2]);
t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]);
t6=C_a_i_cons(&a,2,C_SCHEME_TRUE,((C_word*)t0)[5]);
/* expand.scm:625: loop */
t7=((C_word*)((C_word*)t0)[6])[1];
f_8974(t7,((C_word*)t0)[7],((C_word*)t0)[8],t3,t5,t6);}

/* k9191 in k9159 in k9147 in k9010 in k8995 in loop */
static void C_ccall f_9193(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){
C_save_and_reclaim((void *)f_9193,c,av);}
a=C_alloc(14);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9200,a[2]=((C_word*)t0)[2],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);
/* expand.scm:627: ##sys#append */
t3=*((C_word*)lf[73]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cdr(((C_word*)t0)[7]);
av2[3]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=C_a_i_list1(&a,1,((C_word*)t0)[9]);
if(C_truep(C_i_member(t2,((C_word*)t0)[4]))){
/* expand.scm:632: fini */
t3=((C_word*)((C_word*)t0)[10])[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]=((C_word*)t0)[6];
av2[5]=((C_word*)t0)[11];
((C_proc)C_fast_retrieve_proc(t3))(6,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9216,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[10],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)[11],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[2],tmp=(C_word)a,a+=11,tmp);
/* expand.scm:633: ##sys#expand-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[32]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[32]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[12];
av2[4]=((C_word*)t0)[13];
tp(5,av2);}}}}

/* k9198 in k9191 in k9159 in k9147 in k9010 in k8995 in loop */
static void C_ccall f_9200(C_word c,C_word *av){
C_word tmp;
C_word 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_9200,c,av);}
/* expand.scm:627: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8974(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}

/* k9214 in k9191 in k9159 in k9147 in k9010 in k8995 in loop */
static void C_ccall f_9216(C_word c,C_word *av){
C_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_9216,c,av);}
a=C_alloc(3);
t2=C_eqp(((C_word*)t0)[2],t1);
if(C_truep(t2)){
/* expand.scm:635: fini */
t3=((C_word*)((C_word*)t0)[3])[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_word*)t0)[6];
av2[4]=((C_word*)t0)[7];
av2[5]=((C_word*)t0)[8];
((C_proc)C_fast_retrieve_proc(t3))(6,av2);}}
else{
t3=C_a_i_cons(&a,2,t1,((C_word*)t0)[9]);
/* expand.scm:636: loop */
t4=((C_word*)((C_word*)t0)[10])[1];
f_8974(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}}

/* chicken.syntax#match-expression in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9286(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_9286,c,av);}
a=C_alloc(14);
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_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9289,a[2]=t6,a[3]=t4,a[4]=t8,a[5]=((C_word)li72),tmp=(C_word)a,a+=6,tmp));
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9366,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:657: mwalk */
t11=((C_word*)t8)[1];
f_9289(t11,t10,t2,t3);}

/* mwalk in chicken.syntax#match-expression in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9289(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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_9289,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_pairp(t3);
if(C_truep(C_i_not(t4))){
t5=C_i_assq(t3,((C_word*)((C_word*)t0)[2])[1]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9303,a[2]=t2,a[3]=((C_word)li71),tmp=(C_word)a,a+=4,tmp);
/* expand.scm:648: g1841 */
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=(
/* expand.scm:648: g1841 */
  f_9303(t6,t5)
);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
if(C_truep(C_i_memq(t3,((C_word*)t0)[3]))){
t6=C_a_i_cons(&a,2,t3,t2);
t7=C_a_i_cons(&a,2,t6,((C_word*)((C_word*)t0)[2])[1]);
t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7);
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_eqp(t2,t3);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}
else{
if(C_truep(C_i_pairp(t2))){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9343,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:654: mwalk */
t10=t5;
t11=C_u_i_car(t2);
t12=C_i_car(t3);
t1=t10;
t2=t11;
t3=t12;
goto loop;}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}

/* g1841 in mwalk in chicken.syntax#match-expression in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static C_word f_9303(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_i_equalp(((C_word*)t0)[2],C_i_cdr(t1)));}

/* k9341 in mwalk in chicken.syntax#match-expression in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9343(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9343,c,av);}
if(C_truep(t1)){
/* expand.scm:655: mwalk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_9289(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k9364 in chicken.syntax#match-expression in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9366(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9366,c,av);}
if(C_truep(t1)){
t2=((C_word*)((C_word*)t0)[2])[1];
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{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* chicken.syntax#expand-curried-define in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9368(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_9368,c,av);}
a=C_alloc(13);
t5=C_SCHEME_FALSE;
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_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9371,a[2]=t6,a[3]=t8,a[4]=((C_word)li74),tmp=(C_word)a,a+=5,tmp));
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9415,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:671: loop */
t11=((C_word*)t8)[1];
f_9371(t11,t10,t2,t3);}

/* loop in chicken.syntax#expand-curried-define in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9371(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_9371,4,t0,t1,t2,t3);}
a=C_alloc(9);
t4=C_i_car(t2);
if(C_truep(C_i_symbolp(t4))){
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_u_i_car(t2));
t6=C_u_i_cdr(t2);
t7=C_a_i_cons(&a,2,t6,t3);
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_a_i_cons(&a,2,lf[75],t7);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t5=C_u_i_car(t2);
t6=C_u_i_cdr(t2);
t7=C_a_i_cons(&a,2,t6,t3);
t8=C_a_i_cons(&a,2,lf[75],t7);
t9=C_a_i_list(&a,1,t8);
/* expand.scm:670: loop */
t11=t1;
t12=t5;
t13=t9;
t1=t11;
t2=t12;
t3=t13;
goto loop;}}

/* k9413 in chicken.syntax#expand-curried-define in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9415(C_word c,C_word *av){
C_word tmp;
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_9415,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,lf[110],((C_word*)((C_word*)t0)[3])[1],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* ##sys#syntax-error-hook in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9423(C_word c,C_word *av){
C_word tmp;
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_9423,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_9431,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:687: chicken.syntax#strip-syntax */
t4=C_fast_retrieve(lf[11]);{
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);}}

/* k9429 in ##sys#syntax-error-hook in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9431(C_word c,C_word *av){
C_word tmp;
C_word 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_9431,c,av);}{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[125]+1);
av2[3]=lf[126];
av2[4]=t1;
C_apply(5,av2);}}

/* ##sys#syntax-error in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9433(C_word c,C_word *av){
C_word tmp;
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,3)))){
C_save_and_reclaim((void*)f_9433,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
t2=C_build_rest(&a,c,2,av);
C_word t3;{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=C_fast_retrieve(lf[124]);
av2[3]=t2;
C_apply(4,av2);}}

/* ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9439(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_9439,c,av);}
a=C_alloc(5);
if(C_truep(C_i_nullp(C_fast_retrieve(lf[123])))){
/* expand.scm:701: ##sys#syntax-error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[124]);
C_word *av2=av;
av2[0]=*((C_word*)lf[124]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
tp(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9506,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:702: scheme#open-output-string */
t5=C_fast_retrieve(lf[145]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k9448 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9450(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9450,c,av);}
a=C_alloc(6);
t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
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_9455,a[2]=t4,a[3]=((C_word)li80),tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_9455(t6,((C_word*)t0)[2],t2);}

/* loop in k9448 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9455(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(5,0,2)))){
C_save_and_reclaim_args((void *)trf_9455,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]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_caar(t2);
t4=C_eqp(lf[143],t3);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9475,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:698: scheme#cadar */
t6=*((C_word*)lf[71]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
/* expand.scm:699: loop */
t7=t1;
t8=C_u_i_cdr(t2);
t1=t7;
t2=t8;
goto loop;}}}

/* k9473 in loop in k9448 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9475(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9475,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9479,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:698: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_9455(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k9477 in k9473 in loop in k9448 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9479(C_word c,C_word *av){
C_word tmp;
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_9479,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);}}

/* k9492 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9494(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9494,c,av);}
/* expand.scm:695: ##sys#get */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[61]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[61]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[144];
tp(4,av2);}}

/* k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9506(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_9506,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9508,a[2]=t1,a[3]=((C_word)li78),tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9515,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|7,a[1]=(C_word)f_9524,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t5,a[7]=((C_word)li81),tmp=(C_word)a,a+=8,tmp));
t7=((C_word*)t5)[1];
f_9524(t7,t3,C_fast_retrieve(lf[123]));}

/* outstr in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9508(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_9508,3,t0,t1,t2);}
/* expand.scm:704: ##sys#print */
t3=*((C_word*)lf[128]+1);{
C_word av2[5];
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k9513 in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9515(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9515,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9522,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* expand.scm:739: scheme#get-output-string */
t3=C_fast_retrieve(lf[129]);{
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);}}

/* k9520 in k9513 in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9522(C_word c,C_word *av){
C_word tmp;
C_word 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_9522,c,av);}
/* expand.scm:739: ##sys#syntax-error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[124]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[124]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9524(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,2)))){
C_save_and_reclaim_args((void *)trf_9524,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_nullp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9534,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);
/* expand.scm:707: outstr */
t4=((C_word*)t0)[2];
f_9508(t4,t3,((C_word*)t0)[5]);}
else{
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9560,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);
/* expand.scm:714: chicken.syntax#strip-syntax */
t4=C_fast_retrieve(lf[11]);{
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);}}}

/* k9532 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9534(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9534,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9537,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:708: outstr */
t3=((C_word*)t0)[2];
f_9508(t3,t2,lf[132]);}

/* k9535 in k9532 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9537(C_word c,C_word *av){
C_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_9537,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9540,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:709: ##sys#print */
t4=*((C_word*)lf[128]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k9538 in k9535 in k9532 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9540(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9540,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9543,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:710: outstr */
t3=((C_word*)t0)[2];
f_9508(t3,t2,lf[131]);}

/* k9541 in k9538 in k9535 in k9532 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9543(C_word c,C_word *av){
C_word tmp;
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_9543,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9546,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9553,a[2]=t3,a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
/* expand.scm:711: chicken.syntax#strip-syntax */
t5=C_fast_retrieve(lf[11]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_car(C_fast_retrieve(lf[123]));
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k9544 in k9541 in k9538 in k9535 in k9532 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9546(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9546,c,av);}
/* expand.scm:712: outstr */
t2=((C_word*)t0)[2];
f_9508(t2,((C_word*)t0)[3],lf[130]);}

/* k9551 in k9541 in k9538 in k9535 in k9532 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9553(C_word c,C_word *av){
C_word tmp;
C_word 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_9553,c,av);}
/* expand.scm:711: ##sys#print */
t2=*((C_word*)lf[128]+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);}}

/* k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9560(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_9560,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9563,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);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9450,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9494,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:695: chicken.syntax#strip-syntax */
t5=C_fast_retrieve(lf[11]);{
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);}}

/* k9561 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9563(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9563,c,av);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t1))){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9572,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);
/* expand.scm:717: outstr */
t3=((C_word*)t0)[2];
f_9508(t3,t2,((C_word*)t0)[7]);}
else{
/* expand.scm:738: loop */
t2=((C_word*)((C_word*)t0)[8])[1];
f_9524(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[9]));}}

/* k9570 in k9561 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9572(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9572,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9575,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:718: outstr */
t3=((C_word*)t0)[3];
f_9508(t3,t2,lf[142]);}

/* k9573 in k9570 in k9561 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9575(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_9575,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9578,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],tmp=(C_word)a,a+=7,tmp);
/* expand.scm:719: ##sys#print */
t4=*((C_word*)lf[128]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[7];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[6];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k9576 in k9573 in k9570 in k9561 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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(3,c,2)))){
C_save_and_reclaim((void *)f_9578,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9581,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:720: outstr */
t3=((C_word*)t0)[3];
f_9508(t3,t2,lf[141]);}

/* k9579 in k9576 in k9573 in k9570 in k9561 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9581(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_9581,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9584,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
/* expand.scm:721: ##sys#print */
t4=*((C_word*)lf[128]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[6];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k9582 in k9579 in k9576 in k9573 in k9570 in k9561 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9584(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9584,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9587,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:722: outstr */
t3=((C_word*)t0)[3];
f_9508(t3,t2,lf[140]);}

/* k9585 in k9582 in k9579 in k9576 in k9573 in k9570 in k9561 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9587(C_word c,C_word *av){
C_word tmp;
C_word t0=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(13,c,3)))){
C_save_and_reclaim((void *)f_9587,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=C_i_length(((C_word*)t2)[2]);
t4=C_eqp(C_fix(1),t3);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9600,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9604,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:727: scheme#symbol->string */
t7=*((C_word*)lf[135]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=C_i_car(((C_word*)t2)[2]);
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9615,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9619,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9621,a[2]=t8,a[3]=((C_word)li79),tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_9621(t10,t6,((C_word*)t2)[2]);}}

/* k9598 in k9585 in k9582 in k9579 in k9576 in k9573 in k9570 in k9561 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9600(C_word c,C_word *av){
C_word tmp;
C_word 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_9600,c,av);}
/* expand.scm:724: outstr */
t2=((C_word*)t0)[2];
f_9508(t2,((C_word*)t0)[3],t1);}

/* k9602 in k9585 in k9582 in k9579 in k9576 in k9573 in k9570 in k9561 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9604(C_word c,C_word *av){
C_word tmp;
C_word 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_9604,c,av);}
/* expand.scm:725: scheme#string-append */
t2=*((C_word*)lf[37]+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[133];
av2[3]=t1;
av2[4]=lf[134];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k9613 in k9585 in k9582 in k9579 in k9576 in k9573 in k9570 in k9561 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9615(C_word c,C_word *av){
C_word tmp;
C_word 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_9615,c,av);}
/* expand.scm:729: outstr */
t2=((C_word*)t0)[2];
f_9508(t2,((C_word*)t0)[3],t1);}

/* k9617 in k9585 in k9582 in k9579 in k9576 in k9573 in k9570 in k9561 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9619(C_word c,C_word *av){
C_word tmp;
C_word 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_9619,c,av);}
/* expand.scm:730: scheme#string-append */
t2=*((C_word*)lf[37]+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[136];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* loop in k9585 in k9582 in k9579 in k9576 in k9573 in k9570 in k9561 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9621(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_9621,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]=lf[137];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9635,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:736: scheme#symbol->string */
t4=*((C_word*)lf[135]+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);}}}

/* k9633 in loop in k9585 in k9582 in k9579 in k9576 in k9573 in k9570 in k9561 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9635(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_9635,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9639,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:737: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_9621(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k9637 in k9633 in loop in k9585 in k9582 in k9579 in k9576 in k9573 in k9570 in k9561 in k9558 in loop in k9504 in ##sys#syntax-error/context in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9639(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_9639,c,av);}
/* expand.scm:735: scheme#string-append */
t2=*((C_word*)lf[37]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[138];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[139];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* chicken.syntax#assq/drop-bwp! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9666(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,4)))){
C_save_and_reclaim_args((void *)trf_9666,3,t1,t2,t3);}
a=C_alloc(7);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9672,a[2]=t2,a[3]=t5,a[4]=((C_word)li83),tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_9672(t7,t1,t3,C_SCHEME_FALSE);}

/* lp in chicken.syntax#assq/drop-bwp! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9672(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_9672,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t2))){
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=C_i_caar(t2);
t5=C_eqp(((C_word*)t0)[2],t4);
if(C_truep(t5)){
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_u_i_car(t2);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9692,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
if(C_truep(t3)){
t7=C_u_i_car(t2);
t8=t6;
f_9692(t8,C_bwpp(C_u_i_car(t7)));}
else{
t7=t6;
f_9692(t7,C_SCHEME_FALSE);}}}}

/* k9690 in lp in chicken.syntax#assq/drop-bwp! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9692(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(0,0,3)))){
C_save_and_reclaim_args((void *)trf_9692,2,t0,t1);}
if(C_truep(t1)){
t2=C_i_set_cdr(((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[3]));
/* expand.scm:754: lp */
t3=((C_word*)((C_word*)t0)[4])[1];
f_9672(t3,((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[3]),((C_word*)t0)[2]);}
else{
/* expand.scm:755: lp */
t2=((C_word*)((C_word*)t0)[4])[1];
f_9672(t2,((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[3]),((C_word*)t0)[3]);}}

/* chicken.syntax#read-with-source-info-hook in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9716(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!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_9716,c,av);}
a=C_alloc(10);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9720,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t6=C_eqp(lf[148],t2);
t7=(C_truep(t6)?C_i_symbolp(C_i_car(t3)):C_SCHEME_FALSE);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9726,a[2]=t3,a[3]=C_SCHEME_UNDEFINED,a[4]=t5,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
/* expand.scm:759: chicken.internal#hash-table-ref */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[153]);
C_word *av2=av;
av2[0]=*((C_word*)lf[153]+1);
av2[1]=t8;
av2[2]=C_fast_retrieve(lf[121]);
av2[3]=C_i_car(t3);
tp(4,av2);}}
else{
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}

/* k9718 in chicken.syntax#read-with-source-info-hook in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9720(C_word c,C_word *av){
C_word tmp;
C_word 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_9720,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);}}

/* k9724 in chicken.syntax#read-with-source-info-hook in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9726(C_word c,C_word *av){
C_word tmp;
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_9726,c,av);}
a=C_alloc(3);
t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
t3=C_mutate(((C_word *)t0)+3,t2);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9732,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:760: assq/drop-bwp! */
f_9666(t4,C_u_i_car(((C_word*)t0)[2]),((C_word*)t0)[3]);}

/* k9730 in k9724 in chicken.syntax#read-with-source-info-hook in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9732(C_word c,C_word *av){
C_word tmp;
C_word t0=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(6,c,4)))){
C_save_and_reclaim((void *)f_9732,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=C_u_i_car(((C_word*)t2)[2]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9745,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t5=*((C_word*)lf[2]+1);
if(C_truep(*((C_word*)lf[2]+1))){
t6=*((C_word*)lf[2]+1);
t7=*((C_word*)lf[2]+1);
/* expand.scm:765: chicken.string#conc */
t8=C_fast_retrieve(lf[150]);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t8;
av2[1]=t4;
av2[2]=*((C_word*)lf[2]+1);
av2[3]=lf[151];
av2[4]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}
else{
/* expand.scm:765: chicken.string#conc */
t6=C_fast_retrieve(lf[150]);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t4;
av2[2]=lf[152];
av2[3]=lf[151];
av2[4]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}

/* k9743 in k9730 in k9724 in chicken.syntax#read-with-source-info-hook in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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(6,c,4)))){
C_save_and_reclaim((void *)f_9745,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,C_a_i_weak_cons(&a,2,((C_word*)t0)[2],t1),((C_word*)t0)[3]);
/* expand.scm:761: chicken.internal#hash-table-set! */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[149]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[149]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=C_fast_retrieve(lf[121]);
av2[3]=((C_word*)t0)[5];
av2[4]=t2;
tp(5,av2);}}

/* chicken.syntax#read-with-source-info in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9767(C_word c,C_word *av){
C_word tmp;
C_word t0=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(8,c,3)))){
C_save_and_reclaim((void *)f_9767,c,av);}
a=C_alloc(8);
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?*((C_word*)lf[155]+1):C_get_rest_arg(c,2,av,2,t0));
t4=C_rest_nullp(c,2);
t5=C_rest_nullp(c,3);
t6=(C_truep(t5)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,2,t0));
t7=C_rest_nullp(c,3);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9783,a[2]=t3,a[3]=t6,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_fast_retrieve(lf[121]))){
t9=t8;
f_9783(t9,C_SCHEME_UNDEFINED);}
else{
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9812,a[2]=t8,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:774: scheme#make-vector */
t10=*((C_word*)lf[12]+1);{
C_word av2[4];
av2[0]=t10;
av2[1]=t9;
av2[2]=C_fix(997);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}

/* k9781 in chicken.syntax#read-with-source-info in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9783(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(18,0,4)))){
C_save_and_reclaim_args((void *)trf_9783,2,t0,t1);}
a=C_alloc(18);
t2=C_i_check_port_2(((C_word*)t0)[2],C_fix(1),C_SCHEME_TRUE,lf[156]);
t3=(C_truep(((C_word*)t0)[3])?((C_word*)t0)[3]:*((C_word*)lf[2]+1));
t4=t3;
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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9794,a[2]=t7,a[3]=t5,a[4]=((C_word)li86),tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9799,a[2]=((C_word*)t0)[2],a[3]=((C_word)li87),tmp=(C_word)a,a+=4,tmp);
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9805,a[2]=t5,a[3]=t7,a[4]=((C_word)li88),tmp=(C_word)a,a+=5,tmp);
/* expand.scm:776: ##sys#dynamic-wind */
t11=*((C_word*)lf[47]+1);{
C_word av2[5];
av2[0]=t11;
av2[1]=((C_word*)t0)[4];
av2[2]=t8;
av2[3]=t9;
av2[4]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}

/* a9793 in k9781 in chicken.syntax#read-with-source-info in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9794(C_word c,C_word *av){
C_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!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9794,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[2]+1));
t3=C_mutate((C_word*)lf[2]+1 /* (set! ##sys#current-source-filename ...) */,((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);}}

/* a9798 in k9781 in chicken.syntax#read-with-source-info in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9799(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9799,c,av);}
/* expand.scm:777: ##sys#read */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[157]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[157]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=C_retrieve2(lf[147],C_text("chicken.syntax#read-with-source-info-hook"));
tp(4,av2);}}

/* a9804 in k9781 in chicken.syntax#read-with-source-info in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9805,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[2]+1));
t3=C_mutate((C_word*)lf[2]+1 /* (set! ##sys#current-source-filename ...) */,((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);}}

/* k9810 in chicken.syntax#read-with-source-info in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9812(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9812,c,av);}
t2=C_mutate((C_word*)lf[121]+1 /* (set! ##sys#line-number-database ...) */,t1);
t3=((C_word*)t0)[2];
f_9783(t3,t2);}

/* chicken.syntax#get-line-number in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9838(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_9838,c,av);}
a=C_alloc(4);
if(C_truep(C_fast_retrieve(lf[121]))){
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_car(t2);
if(C_truep(C_i_symbolp(t3))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9858,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* expand.scm:785: chicken.internal#hash-table-ref */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[153]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[153]+1);
av2[1]=t4;
av2[2]=C_fast_retrieve(lf[121]);
av2[3]=t3;
tp(4,av2);}}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
else{
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9856 in chicken.syntax#get-line-number in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9858(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9858,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9862,a[2]=((C_word*)t0)[2],a[3]=((C_word)li90),tmp=(C_word)a,a+=4,tmp);
/* expand.scm:785: g1993 */
t3=t2;
f_9862(t3,((C_word*)t0)[3],t1);}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* g1993 in k9856 in chicken.syntax#get-line-number in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9862(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(3,0,3)))){
C_save_and_reclaim_args((void *)trf_9862,3,t0,t1,t2);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9866,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:787: assq/drop-bwp! */
f_9666(t3,((C_word*)t0)[2],t2);}

/* k9864 in g1993 in k9856 in chicken.syntax#get-line-number in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9866,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?C_i_cdr(t1):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* ##sys#get-line-2 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9877(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_9877,c,av);}
a=C_alloc(5);
t3=C_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9884,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:794: chicken.internal#hash-table-ref */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[153]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[153]+1);
av2[1]=t4;
av2[2]=C_fast_retrieve(lf[121]);
av2[3]=t3;
tp(4,av2);}}

/* k9882 in ##sys#get-line-2 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_9884,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9887,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t1)){
/* expand.scm:795: assq/drop-bwp! */
f_9666(t2,((C_word*)t0)[4],C_i_cdr(t1));}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_9887(2,av2);}}}

/* k9885 in k9882 in ##sys#get-line-2 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9887(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9887,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9891,a[2]=((C_word*)t0)[2],a[3]=((C_word)li92),tmp=(C_word)a,a+=4,tmp);
/* expand.scm:795: g2009 */
t3=t2;
f_9891(t3,((C_word*)t0)[3],t1);}
else{
/* expand.scm:797: scheme#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]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
C_values(4,av2);}}}

/* g2009 in k9885 in k9882 in ##sys#get-line-2 in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9891(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_9891,3,t0,t1,t2);}
/* expand.scm:796: scheme#values */{
C_word av2[4];
av2[0]=0;
av2[1]=t1;
av2[2]=C_i_car(((C_word*)t0)[2]);
av2[3]=C_i_cdr(t2);
C_values(4,av2);}}

/* ##sys#display-line-number-database in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9918(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_9918,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9924,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp);
/* expand.scm:800: chicken.internal#hash-table-for-each */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[164]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[164]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_fast_retrieve(lf[121]);
tp(4,av2);}}

/* a9923 in ##sys#display-line-number-database in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9924(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!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_9924,c,av);}
a=C_alloc(5);
if(C_truep(t3)){
t4=*((C_word*)lf[161]+1);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9931,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:804: ##sys#print */
t6=*((C_word*)lf[128]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
av2[3]=C_SCHEME_TRUE;
av2[4]=*((C_word*)lf[161]+1);
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k9929 in a9923 in ##sys#display-line-number-database in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9931(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9931,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9934,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* expand.scm:805: ##sys#print */
t3=*((C_word*)lf[128]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[163];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k9932 in k9929 in a9923 in ##sys#display-line-number-database in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9934(C_word c,C_word *av){
C_word tmp;
C_word t0=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(21,c,3)))){
C_save_and_reclaim((void *)f_9934,c,av);}
a=C_alloc(21);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9937,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t5=t4;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=((C_word*)t6)[1];
t8=C_i_check_list_2(((C_word*)t2)[4],lf[16]);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9950,a[2]=t3,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,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_9952,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li94),tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_9952(t13,t9,((C_word*)t2)[4]);}

/* k9935 in k9932 in k9929 in a9923 in ##sys#display-line-number-database in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9937(C_word c,C_word *av){
C_word tmp;
C_word 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_9937,c,av);}
/* expand.scm:807: ##sys#print */
t2=*((C_word*)lf[128]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[162];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k9948 in k9932 in k9929 in a9923 in ##sys#display-line-number-database in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void C_ccall f_9950(C_word c,C_word *av){
C_word tmp;
C_word 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_9950,c,av);}
/* expand.scm:806: ##sys#print */
t2=*((C_word*)lf[128]+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);}}

/* map-loop2018 in k9932 in k9929 in a9923 in ##sys#display-line-number-database in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9952(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_9952,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_cdr(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);}}}

/* ##sys#update-line-number-database! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
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=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!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_9986,c,av);}
a=C_alloc(13);
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_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9989,a[2]=t7,a[3]=((C_word)li98),tmp=(C_word)a,a+=4,tmp));
t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10014,a[2]=t5,a[3]=t3,a[4]=((C_word)li99),tmp=(C_word)a,a+=5,tmp));
/* expand.scm:827: walk */
t10=((C_word*)t7)[1];
f_10014(t10,t1,t2);}

/* mapupdate in ##sys#update-line-number-database! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9989(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,3)))){
C_save_and_reclaim_args((void *)trf_9989,3,t0,t1,t2);}
a=C_alloc(7);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9995,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word)li97),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_9995(t6,t1,t2);}

/* loop in mapupdate in ##sys#update-line-number-database! in k6597 in k6207 in k6203 in k4920 in k4917 in k4914 */
static void f_9995(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_9995,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_10005,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* expand.scm:816: walk */
t4=((C_word*)((C_word*)t0)[3])[1];
f_10014(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);}}}

/* toplevel */
static int toplevel_initialized=0;

void C_ccall C_expand_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("expand"));
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_expand_toplevel,c,av);}
toplevel_initialized=1;
if(C_unlikely(!C_demand_2(3791))){
C_save(t1);
C_rereclaim2(3791*sizeof(C_word),1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,437);
lf[0]=C_h_intern(&lf[0],6, C_text("expand"));
lf[1]=C_h_intern(&lf[1],15, C_text("chicken.syntax#"));
lf[2]=C_h_intern(&lf[2],29, C_text("##sys#current-source-filename"));
lf[3]=C_h_intern(&lf[3],25, C_text("##sys#current-environment"));
lf[4]=C_h_intern(&lf[4],30, C_text("##sys#current-meta-environment"));
lf[6]=C_h_intern(&lf[6],18, C_text("##core#macro-alias"));
lf[8]=C_h_intern(&lf[8],16, C_text("##core#real-name"));
lf[9]=C_h_intern(&lf[9],19, C_text("chicken.base#gensym"));
lf[10]=C_h_intern(&lf[10],24, C_text("chicken.keyword#keyword?"));
lf[11]=C_h_intern(&lf[11],27, C_text("chicken.syntax#strip-syntax"));
lf[12]=C_h_intern(&lf[12],18, C_text("scheme#make-vector"));
lf[13]=C_h_intern(&lf[13],15, C_text("##sys#extend-se"));
lf[14]=C_h_intern(&lf[14],8, C_text("for-each"));
lf[15]=C_h_intern(&lf[15],13, C_text("scheme#append"));
lf[16]=C_h_intern(&lf[16],3, C_text("map"));
lf[17]=C_h_intern(&lf[17],23, C_text("##sys#macro-environment"));
lf[18]=C_h_intern(&lf[18],30, C_text("##sys#scheme-macro-environment"));
lf[19]=C_h_intern(&lf[19],35, C_text("##sys#chicken-ffi-macro-environment"));
lf[20]=C_h_intern(&lf[20],41, C_text("##sys#chicken.condition-macro-environment"));
lf[21]=C_h_intern(&lf[21],36, C_text("##sys#chicken.time-macro-environment"));
lf[22]=C_h_intern(&lf[22],36, C_text("##sys#chicken.type-macro-environment"));
lf[23]=C_h_intern(&lf[23],38, C_text("##sys#chicken.syntax-macro-environment"));
lf[24]=C_h_intern(&lf[24],36, C_text("##sys#chicken.base-macro-environment"));
lf[25]=C_h_intern(&lf[25],24, C_text("##sys#ensure-transformer"));
lf[26]=C_h_intern(&lf[26],11, C_text("transformer"));
lf[27]=C_h_intern(&lf[27],11, C_text("##sys#error"));
lf[28]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\145\170\160\145\143\164\145\144\040\163\171\156\164\141\170\055\164\162\141\156\163\146\157\162\155\145\162\054\040\142\165\164\040\147\157\164\000"));
lf[29]=C_h_intern(&lf[29],30, C_text("##sys#extend-macro-environment"));
lf[30]=C_h_intern(&lf[30],12, C_text("##sys#macro?"));
lf[31]=C_h_intern(&lf[31],21, C_text("##sys#undefine-macro!"));
lf[32]=C_h_intern(&lf[32],14, C_text("##sys#expand-0"));
lf[33]=C_h_intern(&lf[33],9, C_text("condition"));
lf[34]=C_h_intern(&lf[34],3, C_text("exn"));
lf[35]=C_h_intern(&lf[35],23, C_text("chicken.condition#abort"));
lf[36]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\007\001\155\145\163\163\141\147\145"));
lf[37]=C_h_intern(&lf[37],20, C_text("scheme#string-append"));
lf[38]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\144\165\162\151\156\147\040\145\170\160\141\156\163\151\157\156\040\157\146\040\050\000"));
lf[39]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\040\056\056\056\051\040\055\040\000"));
lf[40]=C_h_intern(&lf[40],27, C_text("##sys#symbol->string/shared"));
lf[41]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\007\001\155\145\163\163\141\147\145"));
lf[42]=C_h_intern(&lf[42],36, C_text("chicken.syntax#expansion-result-hook"));
lf[43]=C_h_intern(&lf[43],18, C_text("##sys#syntax-error"));
lf[44]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\163\171\156\164\141\170\040\164\162\141\156\163\146\157\162\155\145\162\040\146\157\162\040\140\000"));
lf[45]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\101\047\040\162\145\164\165\162\156\163\040\157\162\151\147\151\156\141\154\040\146\157\162\155\054\040\167\150\151\143\150\040\167\157\165\154\144\040\162\145\163\165\154\164\040\151\156\040\145\156\144\154\145\163\163\040\145\170\160\141\156\163\151\157\156\000"));
lf[46]=C_h_intern(&lf[46],51, C_text("chicken.internal.syntax-rules#syntax-rules-mismatch"));
lf[47]=C_h_intern(&lf[47],18, C_text("##sys#dynamic-wind"));
lf[48]=C_h_intern(&lf[48],40, C_text("chicken.condition#with-exception-handler"));
lf[49]=C_h_intern(&lf[49],37, C_text("scheme#call-with-current-continuation"));
lf[50]=C_h_intern(&lf[50],10, C_text("##core#let"));
lf[51]=C_h_intern(&lf[51],18, C_text("##core#loop-lambda"));
lf[52]=C_h_intern(&lf[52],14, C_text("##core#letrec*"));
lf[53]=C_h_intern(&lf[53],10, C_text("##core#app"));
lf[54]=C_h_intern(&lf[54],18, C_text("##sys#check-syntax"));
lf[55]=C_h_intern(&lf[55],3, C_text("let"));
lf[56]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[57]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\002"));
lf[58]=C_h_intern(&lf[58],26, C_text("##sys#compiler-syntax-hook"));
lf[59]=C_h_intern(&lf[59],26, C_text("##compiler#compiler-syntax"));
lf[60]=C_h_intern(&lf[60],5, C_text("value"));
lf[61]=C_h_intern(&lf[61],9, C_text("##sys#get"));
lf[62]=C_h_intern(&lf[62],14, C_text("##sys#override"));
lf[63]=C_h_intern(&lf[63],27, C_text("##sys#enable-runtime-macros"));
lf[64]=C_h_intern(&lf[64],21, C_text("chicken.syntax#expand"));
lf[65]=C_h_intern(&lf[65],22, C_text("chicken.syntax#expand1"));
lf[66]=C_h_intern(&lf[66],27, C_text("##sys#extended-lambda-list?"));
lf[67]=C_h_intern(&lf[67],6, C_text("#!rest"));
lf[68]=C_h_intern(&lf[68],10, C_text("#!optional"));
lf[69]=C_h_intern(&lf[69],5, C_text("#!key"));
lf[70]=C_h_intern(&lf[70],33, C_text("##sys#expand-extended-lambda-list"));
lf[71]=C_h_intern(&lf[71],12, C_text("scheme#cadar"));
lf[72]=C_h_intern(&lf[72],14, C_text("scheme#reverse"));
lf[73]=C_h_intern(&lf[73],12, C_text("##sys#append"));
lf[74]=C_h_intern(&lf[74],12, C_text("##core#quote"));
lf[75]=C_h_intern(&lf[75],13, C_text("##core#lambda"));
lf[76]=C_h_intern(&lf[76],17, C_text("##sys#get-keyword"));
lf[77]=C_h_intern(&lf[77],31, C_text("chicken.keyword#string->keyword"));
lf[78]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\162\145\163\164\040\141\162\147\165\155\145\156\164\040\154\151\163\164\040\163\160\145\143\151\146\151\145\144\040\155\157\162\145\040\164\150\141\156\040\157\156\143\145\000"));
lf[79]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\156\166\141\154\151\144\040\154\141\155\142\144\141\040\154\151\163\164\040\163\171\156\164\141\170\000"));
lf[80]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\056\140\043\041\157\160\164\151\157\156\141\154\047\040\141\162\147\165\155\145\156\164\040\155\141\162\153\145\162\040\151\156\040\167\162\157\156\147\040\143\157\156\164\145\170\164\000"));
lf[81]=C_h_intern(&lf[81],4, C_text("rest"));
lf[82]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\151\156\166\141\154\151\144\040\163\171\156\164\141\170\040\157\146\040\140\043\041\162\145\163\164\047\040\141\162\147\165\155\145\156\164\000"));
lf[83]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\140\043\041\162\145\163\164\047\040\141\162\147\165\155\145\156\164\040\155\141\162\153\145\162\040\151\156\040\167\162\157\156\147\040\143\157\156\164\145\170\164\000"));
lf[84]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\140\043\041\153\145\171\047\040\141\162\147\165\155\145\156\164\040\155\141\162\153\145\162\040\151\156\040\167\162\157\156\147\040\143\157\156\164\145\170\164\000"));
lf[85]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\061\151\156\166\141\154\151\144\040\154\141\155\142\144\141\040\154\151\163\164\040\163\171\156\164\141\170\040\141\146\164\145\162\040\140\043\041\162\145\163\164\047\040\155\141\162\153\145\162\000"));
lf[86]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\151\156\166\141\154\151\144\040\162\145\161\165\151\162\145\144\040\141\162\147\165\155\145\156\164\040\163\171\156\164\141\170\000"));
lf[87]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\061\151\156\166\141\154\151\144\040\154\141\155\142\144\141\040\154\151\163\164\040\163\171\156\164\141\170\040\141\146\164\145\162\040\140\043\041\162\145\163\164\047\040\155\141\162\153\145\162\000"));
lf[88]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\156\166\141\154\151\144\040\154\141\155\142\144\141\040\154\151\163\164\040\163\171\156\164\141\170\000"));
lf[89]=C_h_intern(&lf[89],14, C_text("let-optionals*"));
lf[90]=C_h_intern(&lf[90],8, C_text("optional"));
lf[91]=C_h_intern(&lf[91],4, C_text("let*"));
lf[92]=C_h_intern(&lf[92],31, C_text("##sys#default-macro-environment"));
lf[93]=C_h_intern(&lf[93],39, C_text("##sys#expand-multiple-values-assignment"));
lf[94]=C_h_intern(&lf[94],22, C_text("##sys#call-with-values"));
lf[95]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016\376\377\016"));
lf[96]=C_h_intern(&lf[96],11, C_text("##core#set!"));
lf[97]=C_h_intern(&lf[97],27, C_text("##sys#decompose-lambda-list"));
lf[98]=C_h_intern(&lf[98],32, C_text("chicken.syntax#define-definition"));
lf[99]=C_h_intern(&lf[99],39, C_text("chicken.syntax#define-syntax-definition"));
lf[100]=C_h_intern(&lf[100],39, C_text("chicken.syntax#define-values-definition"));
lf[102]=C_h_intern(&lf[102],23, C_text("##sys#canonicalize-body"));
lf[103]=C_h_intern(&lf[103],12, C_text("##core#begin"));
lf[104]=C_h_intern(&lf[104],14, C_text("##core#include"));
lf[105]=C_h_intern(&lf[105],13, C_text("##core#module"));
lf[106]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[107]=C_h_intern(&lf[107],20, C_text("##core#letrec-syntax"));
lf[108]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\055\162\145\144\145\146\151\156\151\164\151\157\156\040\157\146\040\143\165\162\162\145\156\164\154\171\040\165\163\145\144\040\144\145\146\151\156\151\156\147\040\146\157\162\155\000"));
lf[109]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[110]=C_h_intern(&lf[110],6, C_text("define"));
lf[111]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000"));
lf[112]=C_h_intern(&lf[112],36, C_text("chicken.syntax#expand-curried-define"));
lf[113]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\137\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[114]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[115]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000"));
lf[116]=C_h_intern(&lf[116],13, C_text("define-syntax"));
lf[117]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[118]=C_h_intern(&lf[118],13, C_text("define-values"));
lf[119]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016"));
lf[120]=C_h_intern(&lf[120],31, C_text("chicken.syntax#match-expression"));
lf[121]=C_h_intern(&lf[121],26, C_text("##sys#line-number-database"));
lf[122]=C_h_intern(&lf[122],26, C_text("##sys#syntax-error-culprit"));
lf[123]=C_h_intern(&lf[123],20, C_text("##sys#syntax-context"));
lf[124]=C_h_intern(&lf[124],23, C_text("##sys#syntax-error-hook"));
lf[125]=C_h_intern(&lf[125],17, C_text("##sys#signal-hook"));
lf[126]=C_h_intern_kw(&lf[126],12, C_text("syntax-error"));
lf[127]=C_h_intern(&lf[127],26, C_text("##sys#syntax-error/context"));
lf[128]=C_h_intern(&lf[128],11, C_text("##sys#print"));
lf[129]=C_h_intern(&lf[129],24, C_text("scheme#get-output-string"));
lf[130]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\040\056\056\056\051\047\000"));
lf[131]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\012\151\156\163\151\144\145\040\145\170\160\162\145\163\163\151\157\156\040\140\050\000"));
lf[132]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000"));
lf[133]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\040\040\123\165\147\147\145\163\164\151\156\147\072\040\140\050\151\155\160\157\162\164\040\000"));
lf[134]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\047\000"));
lf[135]=C_h_intern(&lf[135],21, C_text("scheme#symbol->string"));
lf[136]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\040\040\123\165\147\147\145\163\164\151\156\147\040\157\156\145\040\157\146\072\012\000"));
lf[137]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[138]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\012\040\040\040\040\040\040\050\151\155\160\157\162\164\040\000"));
lf[139]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\047\000"));
lf[140]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\040\056\056\056\051\047\040\167\151\164\150\157\165\164\040\151\155\160\157\162\164\151\156\147\040\151\164\040\146\151\162\163\164\056\012\000"));
lf[141]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\056\012\012\040\040\120\145\162\150\141\160\163\040\171\157\165\040\151\156\164\145\156\144\145\144\040\164\157\040\165\163\145\040\164\150\145\040\163\171\156\164\141\170\040\140\050\000"));
lf[142]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000"));
lf[143]=C_h_intern(&lf[143],6, C_text("syntax"));
lf[144]=C_h_intern(&lf[144],9, C_text("##core#db"));
lf[145]=C_h_intern(&lf[145],25, C_text("scheme#open-output-string"));
lf[148]=C_h_intern(&lf[148],9, C_text("list-info"));
lf[149]=C_h_intern(&lf[149],32, C_text("chicken.internal#hash-table-set!"));
lf[150]=C_h_intern(&lf[150],19, C_text("chicken.string#conc"));
lf[151]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\072\000"));
lf[152]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\074\163\164\144\151\156\076\000"));
lf[153]=C_h_intern(&lf[153],31, C_text("chicken.internal#hash-table-ref"));
lf[154]=C_h_intern(&lf[154],36, C_text("chicken.syntax#read-with-source-info"));
lf[155]=C_h_intern(&lf[155],20, C_text("##sys#standard-input"));
lf[156]=C_h_intern(&lf[156],21, C_text("read-with-source-info"));
lf[157]=C_h_intern(&lf[157],10, C_text("##sys#read"));
lf[158]=C_h_intern(&lf[158],30, C_text("chicken.syntax#get-line-number"));
lf[159]=C_h_intern(&lf[159],16, C_text("##sys#get-line-2"));
lf[160]=C_h_intern(&lf[160],34, C_text("##sys#display-line-number-database"));
lf[161]=C_h_intern(&lf[161],21, C_text("##sys#standard-output"));
lf[162]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[163]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000"));
lf[164]=C_h_intern(&lf[164],36, C_text("chicken.internal#hash-table-for-each"));
lf[165]=C_h_intern(&lf[165],34, C_text("##sys#update-line-number-database!"));
lf[166]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000"));
lf[167]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\051\040\151\156\040\140\000"));
lf[168]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\047\040\055\040\000"));
lf[169]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\151\156\040\140\000"));
lf[170]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\047\040\055\040\000"));
lf[171]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\156\157\164\040\145\156\157\165\147\150\040\141\162\147\165\155\145\156\164\163\000"));
lf[172]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\164\157\157\040\155\141\156\171\040\141\162\147\165\155\145\156\164\163\000"));
lf[173]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\156\157\164\040\141\040\160\162\157\160\145\162\040\154\151\163\164\000"));
lf[174]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\165\156\145\170\160\145\143\164\145\144\040\157\142\152\145\143\164\000"));
lf[175]=C_h_intern(&lf[175],1, C_text("_"));
lf[176]=C_h_intern(&lf[176],4, C_text("pair"));
lf[177]=C_h_intern(&lf[177],12, C_text("scheme#pair?"));
lf[178]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\160\141\151\162\040\145\170\160\145\143\164\145\144\000"));
lf[179]=C_h_intern(&lf[179],8, C_text("variable"));
lf[180]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\144\145\156\164\151\146\151\145\162\040\145\170\160\145\143\164\145\144\000"));
lf[181]=C_h_intern(&lf[181],6, C_text("symbol"));
lf[182]=C_h_intern(&lf[182],14, C_text("scheme#symbol?"));
lf[183]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\163\171\155\142\157\154\040\145\170\160\145\143\164\145\144\000"));
lf[184]=C_h_intern(&lf[184],4, C_text("list"));
lf[185]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\160\162\157\160\145\162\040\154\151\163\164\040\145\170\160\145\143\164\145\144\000"));
lf[186]=C_h_intern(&lf[186],6, C_text("number"));
lf[187]=C_h_intern(&lf[187],14, C_text("scheme#number?"));
lf[188]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\156\165\155\142\145\162\040\145\170\160\145\143\164\145\144\000"));
lf[189]=C_h_intern(&lf[189],6, C_text("string"));
lf[190]=C_h_intern(&lf[190],14, C_text("scheme#string?"));
lf[191]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\163\164\162\151\156\147\040\145\170\160\145\143\164\145\144\000"));
lf[192]=C_h_intern(&lf[192],11, C_text("lambda-list"));
lf[193]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\154\141\155\142\144\141\055\154\151\163\164\040\145\170\160\145\143\164\145\144\000"));
lf[194]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\155\151\163\163\151\156\147\040\153\145\171\167\157\162\144\000"));
lf[195]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\151\156\143\157\155\160\154\145\164\145\040\146\157\162\155\000"));
lf[196]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\160\141\151\162\040\145\170\160\145\143\164\145\144\000"));
lf[198]=C_h_intern(&lf[198],19, C_text("scheme#list->vector"));
lf[199]=C_h_intern(&lf[199],19, C_text("scheme#vector->list"));
lf[200]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\050\145\170\160\141\156\144\056\163\143\155\072\071\063\061\051\040\156\157\164\040\141\040\154\151\163\164\000"));
lf[201]=C_h_intern(&lf[201],35, C_text("chicken.syntax#er-macro-transformer"));
lf[202]=C_h_intern(&lf[202],35, C_text("chicken.syntax#ir-macro-transformer"));
lf[203]=C_h_intern(&lf[203],20, C_text("##sys#er-transformer"));
lf[204]=C_h_intern(&lf[204],20, C_text("##sys#ir-transformer"));
lf[205]=C_h_intern(&lf[205],19, C_text("process-cond-expand"));
lf[206]=C_h_intern(&lf[206],11, C_text("cond-expand"));
lf[207]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\163\171\156\164\141\170\040\145\162\162\157\162\040\151\156\040\140\143\157\156\144\055\145\170\160\141\156\144\047\040\146\157\162\155\000"));
lf[208]=C_h_intern(&lf[208],25, C_text("chicken.platform#feature?"));
lf[209]=C_h_intern(&lf[209],3, C_text("and"));
lf[210]=C_h_intern(&lf[210],2, C_text("or"));
lf[211]=C_h_intern(&lf[211],3, C_text("not"));
lf[212]=C_h_intern(&lf[212],7, C_text("library"));
lf[213]=C_h_intern(&lf[213],18, C_text("##sys#file-exists?"));
lf[214]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000"));
lf[215]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\056\151\155\160\157\162\164\056\163\143\155\000"));
lf[216]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000"));
lf[217]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\056\151\155\160\157\162\164\056\163\157\000"));
lf[218]=C_h_intern(&lf[218],32, C_text("chicken.platform#repository-path"));
lf[219]=C_h_intern(&lf[219],17, C_text("##sys#find-module"));
lf[220]=C_h_intern(&lf[220],27, C_text("chicken.internal#library-id"));
lf[221]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\156\157\040\155\141\164\143\150\151\156\147\040\143\154\141\165\163\145\040\151\156\040\140\143\157\156\144\055\145\170\160\141\156\144\047\040\146\157\162\155\000"));
lf[222]=C_h_intern(&lf[222],4, C_text("else"));
lf[223]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[224]=C_h_intern(&lf[224],31, C_text("##sys#initial-macro-environment"));
lf[225]=C_h_intern(&lf[225],38, C_text("##sys#chicken.module-macro-environment"));
lf[226]=C_h_intern(&lf[226],30, C_text("chicken.internal.syntax-rules#"));
lf[227]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\156\157\040\162\165\154\145\040\155\141\164\143\150\145\163\040\146\157\162\155\000"));
lf[228]=C_h_intern(&lf[228],40, C_text("chicken.internal.syntax-rules#drop-right"));
lf[229]=C_h_intern(&lf[229],41, C_text("chicken.internal.syntax-rules#safe-length"));
lf[230]=C_h_intern(&lf[230],40, C_text("chicken.internal.syntax-rules#take-right"));
lf[231]=C_h_intern(&lf[231],28, C_text("##sys#meta-macro-environment"));
lf[232]=C_h_intern(&lf[232],34, C_text("chicken.platform#register-feature!"));
lf[233]=C_h_intern(&lf[233],6, C_text("srfi-0"));
lf[234]=C_h_intern(&lf[234],7, C_text("srfi-46"));
lf[235]=C_h_intern(&lf[235],7, C_text("srfi-61"));
lf[236]=C_h_intern(&lf[236],7, C_text("srfi-87"));
lf[237]=C_h_intern(&lf[237],21, C_text("scheme#make-parameter"));
lf[238]=C_h_intern(&lf[238],40, C_text("chicken.internal#fixup-macro-environment"));
lf[239]=C_h_intern(&lf[239],29, C_text("chicken.internal#macro-subset"));
lf[240]=C_h_intern(&lf[240],12, C_text("syntax-rules"));
lf[241]=C_h_intern(&lf[241],3, C_text("..."));
lf[242]=C_h_intern(&lf[242],9, C_text("##sys#car"));
lf[243]=C_h_intern(&lf[243],9, C_text("##sys#cdr"));
lf[244]=C_h_intern(&lf[244],13, C_text("##sys#vector?"));
lf[245]=C_h_intern(&lf[245],18, C_text("##sys#vector->list"));
lf[246]=C_h_intern(&lf[246],18, C_text("##sys#list->vector"));
lf[247]=C_h_intern(&lf[247],8, C_text("##sys#>="));
lf[248]=C_h_intern(&lf[248],7, C_text("##sys#="));
lf[249]=C_h_intern(&lf[249],7, C_text("##sys#+"));
lf[250]=C_h_intern(&lf[250],10, C_text("##sys#cons"));
lf[251]=C_h_intern(&lf[251],9, C_text("##sys#eq?"));
lf[252]=C_h_intern(&lf[252],12, C_text("##sys#equal?"));
lf[253]=C_h_intern(&lf[253],9, C_text("##sys#map"));
lf[254]=C_h_intern(&lf[254],11, C_text("##sys#map-n"));
lf[255]=C_h_intern(&lf[255],11, C_text("##sys#pair?"));
lf[256]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\151\154\154\055\146\157\162\155\145\144\040\163\171\156\164\141\170\040\162\165\154\145\000"));
lf[257]=C_h_intern(&lf[257],13, C_text("##core#syntax"));
lf[258]=C_h_intern(&lf[258],5, C_text("quote"));
lf[259]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\055\164\145\155\160\154\141\164\145\040\144\151\155\145\156\163\151\157\156\040\145\162\162\157\162\040\050\164\157\157\040\146\145\167\040\145\154\154\151\160\163\145\163\077\051\000"));
lf[260]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\111\156\166\141\154\151\144\040\145\163\143\141\160\145\144\040\145\154\154\151\160\163\151\163\040\164\145\155\160\154\141\164\145\000"));
lf[261]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\164\157\157\040\155\141\156\171\040\145\154\154\151\160\163\145\163\000"));
lf[262]=C_h_intern(&lf[262],11, C_text("##sys#apply"));
lf[263]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\117\156\154\171\040\157\156\145\040\163\145\147\155\145\156\164\040\160\145\162\040\154\145\166\145\154\040\151\163\040\141\154\154\157\167\145\144\000"));
lf[264]=C_h_intern(&lf[264],4, C_text("temp"));
lf[265]=C_h_intern(&lf[265],4, C_text("tail"));
lf[266]=C_h_intern(&lf[266],6, C_text("rename"));
lf[267]=C_h_intern(&lf[267],4, C_text("loop"));
lf[268]=C_h_intern(&lf[268],6, C_text("lambda"));
lf[269]=C_h_intern(&lf[269],3, C_text("len"));
lf[270]=C_h_intern(&lf[270],1, C_text("l"));
lf[271]=C_h_intern(&lf[271],5, C_text("input"));
lf[272]=C_h_intern(&lf[272],4, C_text("cond"));
lf[273]=C_h_intern(&lf[273],7, C_text("compare"));
lf[274]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\004\001\154\151\163\164\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000"));
lf[275]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\002"));
lf[276]=C_h_intern(&lf[276],12, C_text("syntax-error"));
lf[277]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\006\001\163\164\162\151\156\147\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000"));
lf[278]=C_h_intern(&lf[278],5, C_text("delay"));
lf[279]=C_h_intern(&lf[279],10, C_text("##sys#list"));
lf[280]=C_h_intern(&lf[280],18, C_text("##sys#make-promise"));
lf[281]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016"));
lf[282]=C_h_intern(&lf[282],10, C_text("quasiquote"));
lf[283]=C_h_intern(&lf[283],7, C_text("unquote"));
lf[284]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016"));
lf[285]=C_h_intern(&lf[285],16, C_text("unquote-splicing"));
lf[286]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016"));
lf[287]=C_h_intern(&lf[287],1, C_text("a"));
lf[288]=C_h_intern(&lf[288],1, C_text("b"));
lf[289]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001\043\043\163\171\163\043\141\160\160\145\156\144\376\003\000\000\002\376\001\000\000\001\001\141\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\043\043\143\157\162\145\043\161\165\157\164\145\376\003\000\000\002\376\377\016\376\377\016\376\377\016"));
lf[290]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\141\376\377\016"));
lf[291]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001\043\043\163\171\163\043\143\157\156\163\376\003\000\000\002\376\001\000\000\001\001\141\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\043\043\163\171\163\043\154\151\163\164\376\001\000\000\001\001\142\376\377\016"));
lf[292]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\141\376\003\000\000\002\376\001\000\000\001\001\142\376\377\016"));
lf[293]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001\043\043\163\171\163\043\143\157\156\163\376\003\000\000\002\376\001\000\000\001\001\141\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\043\043\143\157\162\145\043\161\165\157\164\145\376\003\000\000\002\376\377\016\376\377\016\376\377\016"));
lf[294]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\141\376\377\016"));
lf[295]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016"));
lf[296]=C_h_intern(&lf[296],2, C_text("do"));
lf[297]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[298]=C_h_intern(&lf[298],9, C_text("##core#if"));
lf[299]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[300]=C_h_intern(&lf[300],6, C_text("doloop"));
lf[301]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\001\376\001\000\000\001\001\137\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[302]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[303]=C_h_intern(&lf[303],4, C_text("case"));
lf[304]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\145\161\166\077\376\001\000\000\013\001\163\143\150\145\155\145\043\145\161\166\077\376\377\016"));
lf[305]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[306]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001\043\043\143\157\162\145\043\142\145\147\151\156\376\377\016"));
lf[307]=C_h_intern(&lf[307],10, C_text("##sys#warn"));
lf[308]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\143\154\141\165\163\145\040\146\157\154\154\157\167\151\156\147\040\140\145\154\163\145\047\040\143\154\141\165\163\145\040\151\156\040\140\143\141\163\145\047\000"));
lf[309]=C_h_intern(&lf[309],16, C_text("##core#undefined"));
lf[310]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[311]=C_h_intern(&lf[311],4, C_text("eqv?"));
lf[312]=C_h_intern(&lf[312],2, C_text("=>"));
lf[313]=C_h_intern(&lf[313],3, C_text("tmp"));
lf[314]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000"));
lf[315]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[316]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001\043\043\143\157\162\145\043\142\145\147\151\156\376\377\016"));
lf[317]=C_h_intern(&lf[317],7, C_text("sprintf"));
lf[318]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\047\040\143\154\141\165\163\145\040\151\156\040\140\143\157\156\144\047\000"));
lf[319]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\143\154\141\165\163\145\040\146\157\154\154\157\167\151\156\147\040\140\000"));
lf[320]=C_h_intern(&lf[320],2, C_text("if"));
lf[321]=C_h_intern(&lf[321],20, C_text("##sys#srfi-4-vector?"));
lf[322]=C_h_intern(&lf[322],30, C_text("chicken.bytevector#bytevector?"));
lf[323]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[324]=C_h_intern(&lf[324],4, C_text("set!"));
lf[325]=C_h_intern(&lf[325],12, C_text("##sys#setter"));
lf[326]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016"));
lf[327]=C_h_intern(&lf[327],13, C_text("letrec-syntax"));
lf[328]=C_h_intern(&lf[328],44, C_text("chicken.internal#check-for-multiple-bindings"));
lf[329]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\154\145\164\162\145\143\055\163\171\156\164\141\170\000"));
lf[330]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[331]=C_h_intern(&lf[331],10, C_text("let-syntax"));
lf[332]=C_h_intern(&lf[332],17, C_text("##core#let-syntax"));
lf[333]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\154\145\164\055\163\171\156\164\141\170\000"));
lf[334]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[335]=C_h_intern(&lf[335],6, C_text("letrec"));
lf[336]=C_h_intern(&lf[336],13, C_text("##core#letrec"));
lf[337]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\154\145\164\162\145\143\000"));
lf[338]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[339]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\154\145\164\000"));
lf[340]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[341]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\154\145\164\000"));
lf[342]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[343]=C_h_intern(&lf[343],20, C_text("##core#define-syntax"));
lf[344]=C_h_intern(&lf[344],21, C_text("##sys#register-export"));
lf[345]=C_h_intern(&lf[345],20, C_text("##sys#current-module"));
lf[346]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016"));
lf[347]=C_h_intern(&lf[347],33, C_text("##core#ensure-toplevel-definition"));
lf[348]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[349]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\000\000\000\003\376\001\000\000\001\001\137\376\377\001\000\000\000\000\376\377\001\000\000\000\001"));
lf[350]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\137\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[351]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[352]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[353]=C_h_intern(&lf[353],5, C_text("begin"));
lf[354]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000"));
lf[355]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\001\376\001\000\000\001\001\137"));
lf[356]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016"));
lf[357]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[358]=C_h_intern(&lf[358],14, C_text("current-module"));
lf[359]=C_h_intern(&lf[359],17, C_text("##sys#module-name"));
lf[360]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016"));
lf[361]=C_h_intern(&lf[361],16, C_text("define-interface"));
lf[362]=C_h_intern(&lf[362],16, C_text("##core#interface"));
lf[363]=C_h_intern(&lf[363],18, C_text("##sys#put/restore!"));
lf[364]=C_h_intern(&lf[364],26, C_text("##core#elaborationtimeonly"));
lf[365]=C_h_intern(&lf[365],1, C_text("*"));
lf[366]=C_h_intern_kw(&lf[366],9, C_text("interface"));
lf[367]=C_h_intern(&lf[367],22, C_text("##sys#validate-exports"));
lf[368]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\151\156\166\141\154\151\144\040\145\170\160\157\162\164\163\000"));
lf[369]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\056\140\052\047\040\151\163\040\156\157\164\040\141\154\154\157\167\145\144\040\141\163\040\141\040\156\141\155\145\040\146\157\162\040\141\156\040\151\156\164\145\162\146\141\143\145\000"));
lf[370]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016"));
lf[371]=C_h_intern(&lf[371],7, C_text("functor"));
lf[372]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\151\156\166\141\154\151\144\040\146\165\156\143\164\157\162\040\141\162\147\165\155\145\156\164\000"));
lf[373]=C_h_intern(&lf[373],41, C_text("chicken.internal#valid-library-specifier?"));
lf[374]=C_h_intern(&lf[374],22, C_text("##sys#register-functor"));
lf[375]=C_h_intern(&lf[375],6, C_text("import"));
lf[376]=C_h_intern(&lf[376],6, C_text("scheme"));
lf[377]=C_h_intern(&lf[377],14, C_text("chicken.syntax"));
lf[378]=C_h_intern(&lf[378],16, C_text("begin-for-syntax"));
lf[379]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\003\000\000\002\376\001\000\000\001\001\137\376\001\000\000\001\001\137"));
lf[380]=C_h_intern(&lf[380],8, C_text("reexport"));
lf[381]=C_h_intern(&lf[381],19, C_text("##sys#expand-import"));
lf[382]=C_h_intern(&lf[382],13, C_text("export/rename"));
lf[383]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[384]=C_h_intern(&lf[384],31, C_text("##sys#add-to-export/rename-list"));
lf[385]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\151\156\166\141\154\151\144\040\151\164\145\155\040\151\156\040\145\170\160\157\162\164\040\162\145\156\141\155\145\040\154\151\163\164\000"));
lf[386]=C_h_intern(&lf[386],6, C_text("export"));
lf[387]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[388]=C_h_intern(&lf[388],24, C_text("##sys#add-to-export-list"));
lf[389]=C_h_intern(&lf[389],14, C_text("define-library"));
lf[390]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001\142\145\147\151\156\376\003\000\000\002\376\001\000\000\013\001\143\157\156\144\055\145\170\160\141\156\144\376\003\000\000\002\376\001\000\000\006\001\145\170\160\157\162\164\376\003\000\000\002\376\001\000\000\006\001\151\155\160\157\162\164\376\003\000\000\002\376\001\000\000\021\001\151\155\160\157\162\164\055\146\157\162\055\163\171\156\164\141\170\376\003\000\000\002\376\001\000\000\007\001\151\156\143\154\165\144\145\376\003\000\000\002\376\001\000\000\012\001\151\156\143\154\165\144\145\055\143\151\376\003\000\000\002\376\001\000\000\014\001\163\171\156\164\141\170\055\162\165\154\145\163\376\377\016"));
lf[391]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\151\156\166\141\154\151\144\040\145\170\160\157\162\164\040\163\160\145\143\151\146\151\145\162\000"));
lf[392]=C_h_intern(&lf[392],7, C_text("include"));
lf[393]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\151\156\166\141\154\151\144\040\146\151\154\145\156\141\155\145\000"));
lf[394]=C_h_intern(&lf[394],28, C_text("##sys#default-read-info-hook"));
lf[395]=C_h_intern(&lf[395],29, C_text("##sys#include-forms-from-file"));
lf[396]=C_h_intern(&lf[396],39, C_text("chicken.compiler.support#read-info-hook"));
lf[397]=C_h_intern(&lf[397],34, C_text("##sys#symbol-has-toplevel-binding?"));
lf[398]=C_h_intern(&lf[398],9, C_text("compiling"));
lf[399]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001\043\043\143\157\162\145\043\142\145\147\151\156\376\377\016"));
lf[400]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000"));
lf[401]=C_h_intern(&lf[401],10, C_text("export-all"));
lf[402]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016"));
lf[403]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000"));
lf[404]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000"));
lf[405]=C_h_intern(&lf[405],10, C_text("include-ci"));
lf[406]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000"));
lf[407]=C_h_intern(&lf[407],28, C_text("include-library-declarations"));
lf[408]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\151\156\166\141\154\151\144\040\154\151\142\162\141\162\171\040\144\145\143\154\141\162\141\164\151\157\156\000"));
lf[409]=C_h_intern(&lf[409],11, C_text("scheme.base"));
lf[410]=C_h_intern(&lf[410],4, C_text("only"));
lf[411]=C_h_intern(&lf[411],17, C_text("import-for-syntax"));
lf[412]=C_h_intern(&lf[412],14, C_text("chicken.module"));
lf[413]=C_h_intern(&lf[413],1, C_text("x"));
lf[414]=C_h_intern(&lf[414],1, C_text("r"));
lf[415]=C_h_intern(&lf[415],1, C_text("c"));
lf[416]=C_h_intern(&lf[416],10, C_text("##sys#put!"));
lf[417]=C_h_intern(&lf[417],13, C_text("##r7rs#module"));
lf[418]=C_h_intern(&lf[418],21, C_text("scheme#string->symbol"));
lf[419]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\162\067\162\163\000"));
lf[420]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000"));
lf[421]=C_h_intern(&lf[421],6, C_text("module"));
lf[422]=C_h_intern(&lf[422],1, C_text("="));
lf[423]=C_h_intern(&lf[423],19, C_text("##sys#string-append"));
lf[424]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\137\000"));
lf[425]=C_h_intern(&lf[425],25, C_text("##sys#instantiate-functor"));
lf[426]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000\376\377\016"));
lf[427]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000"));
lf[428]=C_h_intern(&lf[428],30, C_text("##sys#register-meta-expression"));
lf[429]=C_h_intern(&lf[429],22, C_text("##sys#decompose-import"));
lf[430]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[431]=C_h_intern(&lf[431],14, C_text("##core#require"));
lf[432]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\143\141\156\156\157\164\040\151\155\160\157\162\164\040\146\162\157\155\040\165\156\144\145\146\151\156\145\144\040\155\157\144\165\154\145\000"));
lf[433]=C_h_intern(&lf[433],12, C_text("##sys#import"));
lf[434]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\062\143\141\156\156\157\164\040\151\155\160\157\162\164\040\146\162\157\155\040\155\157\144\165\154\145\040\143\165\162\162\145\156\164\154\171\040\142\145\151\156\147\040\144\145\146\151\156\145\144\000"));
lf[435]=C_h_intern(&lf[435],24, C_text("import-syntax-for-syntax"));
lf[436]=C_h_intern(&lf[436],13, C_text("import-syntax"));
C_register_lf2(lf,437,create_ptable());{}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4916,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_internal_toplevel(2,av2);}}

#ifdef C_ENABLE_PTABLES
static C_PTABLE_ENTRY ptable[838] = {
{C_text("f_10005:expand_2escm"),(void*)f_10005},
{C_text("f_10014:expand_2escm"),(void*)f_10014},
{C_text("f_10031:expand_2escm"),(void*)f_10031},
{C_text("f_10037:expand_2escm"),(void*)f_10037},
{C_text("f_10076:expand_2escm"),(void*)f_10076},
{C_text("f_10086:expand_2escm"),(void*)f_10086},
{C_text("f_10091:expand_2escm"),(void*)f_10091},
{C_text("f_10098:expand_2escm"),(void*)f_10098},
{C_text("f_10103:expand_2escm"),(void*)f_10103},
{C_text("f_10107:expand_2escm"),(void*)f_10107},
{C_text("f_10114:expand_2escm"),(void*)f_10114},
{C_text("f_10121:expand_2escm"),(void*)f_10121},
{C_text("f_10128:expand_2escm"),(void*)f_10128},
{C_text("f_10130:expand_2escm"),(void*)f_10130},
{C_text("f_10134:expand_2escm"),(void*)f_10134},
{C_text("f_10142:expand_2escm"),(void*)f_10142},
{C_text("f_10175:expand_2escm"),(void*)f_10175},
{C_text("f_10181:expand_2escm"),(void*)f_10181},
{C_text("f_10187:expand_2escm"),(void*)f_10187},
{C_text("f_10208:expand_2escm"),(void*)f_10208},
{C_text("f_10213:expand_2escm"),(void*)f_10213},
{C_text("f_10232:expand_2escm"),(void*)f_10232},
{C_text("f_10237:expand_2escm"),(void*)f_10237},
{C_text("f_10256:expand_2escm"),(void*)f_10256},
{C_text("f_10410:expand_2escm"),(void*)f_10410},
{C_text("f_10467:expand_2escm"),(void*)f_10467},
{C_text("f_10520:expand_2escm"),(void*)f_10520},
{C_text("f_10526:expand_2escm"),(void*)f_10526},
{C_text("f_10529:expand_2escm"),(void*)f_10529},
{C_text("f_10536:expand_2escm"),(void*)f_10536},
{C_text("f_10545:expand_2escm"),(void*)f_10545},
{C_text("f_10551:expand_2escm"),(void*)f_10551},
{C_text("f_10576:expand_2escm"),(void*)f_10576},
{C_text("f_10578:expand_2escm"),(void*)f_10578},
{C_text("f_10596:expand_2escm"),(void*)f_10596},
{C_text("f_10600:expand_2escm"),(void*)f_10600},
{C_text("f_10617:expand_2escm"),(void*)f_10617},
{C_text("f_10621:expand_2escm"),(void*)f_10621},
{C_text("f_10647:expand_2escm"),(void*)f_10647},
{C_text("f_10664:expand_2escm"),(void*)f_10664},
{C_text("f_10686:expand_2escm"),(void*)f_10686},
{C_text("f_10723:expand_2escm"),(void*)f_10723},
{C_text("f_10744:expand_2escm"),(void*)f_10744},
{C_text("f_10775:expand_2escm"),(void*)f_10775},
{C_text("f_10783:expand_2escm"),(void*)f_10783},
{C_text("f_10805:expand_2escm"),(void*)f_10805},
{C_text("f_10820:expand_2escm"),(void*)f_10820},
{C_text("f_10833:expand_2escm"),(void*)f_10833},
{C_text("f_10848:expand_2escm"),(void*)f_10848},
{C_text("f_10883:expand_2escm"),(void*)f_10883},
{C_text("f_10908:expand_2escm"),(void*)f_10908},
{C_text("f_10926:expand_2escm"),(void*)f_10926},
{C_text("f_10930:expand_2escm"),(void*)f_10930},
{C_text("f_10947:expand_2escm"),(void*)f_10947},
{C_text("f_10951:expand_2escm"),(void*)f_10951},
{C_text("f_11040:expand_2escm"),(void*)f_11040},
{C_text("f_11044:expand_2escm"),(void*)f_11044},
{C_text("f_11049:expand_2escm"),(void*)f_11049},
{C_text("f_11055:expand_2escm"),(void*)f_11055},
{C_text("f_11068:expand_2escm"),(void*)f_11068},
{C_text("f_11071:expand_2escm"),(void*)f_11071},
{C_text("f_11075:expand_2escm"),(void*)f_11075},
{C_text("f_11078:expand_2escm"),(void*)f_11078},
{C_text("f_11080:expand_2escm"),(void*)f_11080},
{C_text("f_11083:expand_2escm"),(void*)f_11083},
{C_text("f_11103:expand_2escm"),(void*)f_11103},
{C_text("f_11106:expand_2escm"),(void*)f_11106},
{C_text("f_11109:expand_2escm"),(void*)f_11109},
{C_text("f_11119:expand_2escm"),(void*)f_11119},
{C_text("f_11121:expand_2escm"),(void*)f_11121},
{C_text("f_11132:expand_2escm"),(void*)f_11132},
{C_text("f_11138:expand_2escm"),(void*)f_11138},
{C_text("f_11150:expand_2escm"),(void*)f_11150},
{C_text("f_11154:expand_2escm"),(void*)f_11154},
{C_text("f_11156:expand_2escm"),(void*)f_11156},
{C_text("f_11170:expand_2escm"),(void*)f_11170},
{C_text("f_11186:expand_2escm"),(void*)f_11186},
{C_text("f_11210:expand_2escm"),(void*)f_11210},
{C_text("f_11245:expand_2escm"),(void*)f_11245},
{C_text("f_11279:expand_2escm"),(void*)f_11279},
{C_text("f_11302:expand_2escm"),(void*)f_11302},
{C_text("f_11337:expand_2escm"),(void*)f_11337},
{C_text("f_11362:expand_2escm"),(void*)f_11362},
{C_text("f_11364:expand_2escm"),(void*)f_11364},
{C_text("f_11443:expand_2escm"),(void*)f_11443},
{C_text("f_11455:expand_2escm"),(void*)f_11455},
{C_text("f_11466:expand_2escm"),(void*)f_11466},
{C_text("f_11470:expand_2escm"),(void*)f_11470},
{C_text("f_11473:expand_2escm"),(void*)f_11473},
{C_text("f_11476:expand_2escm"),(void*)f_11476},
{C_text("f_11479:expand_2escm"),(void*)f_11479},
{C_text("f_11482:expand_2escm"),(void*)f_11482},
{C_text("f_11485:expand_2escm"),(void*)f_11485},
{C_text("f_11488:expand_2escm"),(void*)f_11488},
{C_text("f_11491:expand_2escm"),(void*)f_11491},
{C_text("f_11494:expand_2escm"),(void*)f_11494},
{C_text("f_11498:expand_2escm"),(void*)f_11498},
{C_text("f_11502:expand_2escm"),(void*)f_11502},
{C_text("f_11505:expand_2escm"),(void*)f_11505},
{C_text("f_11508:expand_2escm"),(void*)f_11508},
{C_text("f_11511:expand_2escm"),(void*)f_11511},
{C_text("f_11514:expand_2escm"),(void*)f_11514},
{C_text("f_11518:expand_2escm"),(void*)f_11518},
{C_text("f_11522:expand_2escm"),(void*)f_11522},
{C_text("f_11525:expand_2escm"),(void*)f_11525},
{C_text("f_11528:expand_2escm"),(void*)f_11528},
{C_text("f_11531:expand_2escm"),(void*)f_11531},
{C_text("f_11534:expand_2escm"),(void*)f_11534},
{C_text("f_11537:expand_2escm"),(void*)f_11537},
{C_text("f_11540:expand_2escm"),(void*)f_11540},
{C_text("f_11543:expand_2escm"),(void*)f_11543},
{C_text("f_11546:expand_2escm"),(void*)f_11546},
{C_text("f_11549:expand_2escm"),(void*)f_11549},
{C_text("f_11552:expand_2escm"),(void*)f_11552},
{C_text("f_11555:expand_2escm"),(void*)f_11555},
{C_text("f_11558:expand_2escm"),(void*)f_11558},
{C_text("f_11561:expand_2escm"),(void*)f_11561},
{C_text("f_11564:expand_2escm"),(void*)f_11564},
{C_text("f_11567:expand_2escm"),(void*)f_11567},
{C_text("f_11569:expand_2escm"),(void*)f_11569},
{C_text("f_11575:expand_2escm"),(void*)f_11575},
{C_text("f_11583:expand_2escm"),(void*)f_11583},
{C_text("f_11585:expand_2escm"),(void*)f_11585},
{C_text("f_11603:expand_2escm"),(void*)f_11603},
{C_text("f_11611:expand_2escm"),(void*)f_11611},
{C_text("f_11619:expand_2escm"),(void*)f_11619},
{C_text("f_11621:expand_2escm"),(void*)f_11621},
{C_text("f_11641:expand_2escm"),(void*)f_11641},
{C_text("f_11647:expand_2escm"),(void*)f_11647},
{C_text("f_11672:expand_2escm"),(void*)f_11672},
{C_text("f_11687:expand_2escm"),(void*)f_11687},
{C_text("f_11691:expand_2escm"),(void*)f_11691},
{C_text("f_11696:expand_2escm"),(void*)f_11696},
{C_text("f_11702:expand_2escm"),(void*)f_11702},
{C_text("f_11706:expand_2escm"),(void*)f_11706},
{C_text("f_11710:expand_2escm"),(void*)f_11710},
{C_text("f_11714:expand_2escm"),(void*)f_11714},
{C_text("f_11718:expand_2escm"),(void*)f_11718},
{C_text("f_11722:expand_2escm"),(void*)f_11722},
{C_text("f_11726:expand_2escm"),(void*)f_11726},
{C_text("f_11733:expand_2escm"),(void*)f_11733},
{C_text("f_11738:expand_2escm"),(void*)f_11738},
{C_text("f_11742:expand_2escm"),(void*)f_11742},
{C_text("f_11746:expand_2escm"),(void*)f_11746},
{C_text("f_11750:expand_2escm"),(void*)f_11750},
{C_text("f_11755:expand_2escm"),(void*)f_11755},
{C_text("f_11759:expand_2escm"),(void*)f_11759},
{C_text("f_11763:expand_2escm"),(void*)f_11763},
{C_text("f_11767:expand_2escm"),(void*)f_11767},
{C_text("f_11771:expand_2escm"),(void*)f_11771},
{C_text("f_11773:expand_2escm"),(void*)f_11773},
{C_text("f_11779:expand_2escm"),(void*)f_11779},
{C_text("f_11787:expand_2escm"),(void*)f_11787},
{C_text("f_11789:expand_2escm"),(void*)f_11789},
{C_text("f_11817:expand_2escm"),(void*)f_11817},
{C_text("f_11827:expand_2escm"),(void*)f_11827},
{C_text("f_11841:expand_2escm"),(void*)f_11841},
{C_text("f_11866:expand_2escm"),(void*)f_11866},
{C_text("f_11883:expand_2escm"),(void*)f_11883},
{C_text("f_11890:expand_2escm"),(void*)f_11890},
{C_text("f_11911:expand_2escm"),(void*)f_11911},
{C_text("f_11915:expand_2escm"),(void*)f_11915},
{C_text("f_11919:expand_2escm"),(void*)f_11919},
{C_text("f_11921:expand_2escm"),(void*)f_11921},
{C_text("f_11926:expand_2escm"),(void*)f_11926},
{C_text("f_11949:expand_2escm"),(void*)f_11949},
{C_text("f_11983:expand_2escm"),(void*)f_11983},
{C_text("f_12019:expand_2escm"),(void*)f_12019},
{C_text("f_12023:expand_2escm"),(void*)f_12023},
{C_text("f_12027:expand_2escm"),(void*)f_12027},
{C_text("f_12076:expand_2escm"),(void*)f_12076},
{C_text("f_12084:expand_2escm"),(void*)f_12084},
{C_text("f_12097:expand_2escm"),(void*)f_12097},
{C_text("f_12130:expand_2escm"),(void*)f_12130},
{C_text("f_12134:expand_2escm"),(void*)f_12134},
{C_text("f_12137:expand_2escm"),(void*)f_12137},
{C_text("f_12184:expand_2escm"),(void*)f_12184},
{C_text("f_12208:expand_2escm"),(void*)f_12208},
{C_text("f_12242:expand_2escm"),(void*)f_12242},
{C_text("f_12258:expand_2escm"),(void*)f_12258},
{C_text("f_12269:expand_2escm"),(void*)f_12269},
{C_text("f_12281:expand_2escm"),(void*)f_12281},
{C_text("f_12284:expand_2escm"),(void*)f_12284},
{C_text("f_12294:expand_2escm"),(void*)f_12294},
{C_text("f_12298:expand_2escm"),(void*)f_12298},
{C_text("f_12310:expand_2escm"),(void*)f_12310},
{C_text("f_12363:expand_2escm"),(void*)f_12363},
{C_text("f_12367:expand_2escm"),(void*)f_12367},
{C_text("f_12392:expand_2escm"),(void*)f_12392},
{C_text("f_12398:expand_2escm"),(void*)f_12398},
{C_text("f_12437:expand_2escm"),(void*)f_12437},
{C_text("f_12458:expand_2escm"),(void*)f_12458},
{C_text("f_12480:expand_2escm"),(void*)f_12480},
{C_text("f_12483:expand_2escm"),(void*)f_12483},
{C_text("f_12489:expand_2escm"),(void*)f_12489},
{C_text("f_12501:expand_2escm"),(void*)f_12501},
{C_text("f_12504:expand_2escm"),(void*)f_12504},
{C_text("f_12507:expand_2escm"),(void*)f_12507},
{C_text("f_12520:expand_2escm"),(void*)f_12520},
{C_text("f_12524:expand_2escm"),(void*)f_12524},
{C_text("f_12528:expand_2escm"),(void*)f_12528},
{C_text("f_12530:expand_2escm"),(void*)f_12530},
{C_text("f_12551:expand_2escm"),(void*)f_12551},
{C_text("f_12603:expand_2escm"),(void*)f_12603},
{C_text("f_12607:expand_2escm"),(void*)f_12607},
{C_text("f_12624:expand_2escm"),(void*)f_12624},
{C_text("f_12628:expand_2escm"),(void*)f_12628},
{C_text("f_12636:expand_2escm"),(void*)f_12636},
{C_text("f_12652:expand_2escm"),(void*)f_12652},
{C_text("f_12671:expand_2escm"),(void*)f_12671},
{C_text("f_12686:expand_2escm"),(void*)f_12686},
{C_text("f_12705:expand_2escm"),(void*)f_12705},
{C_text("f_12720:expand_2escm"),(void*)f_12720},
{C_text("f_12722:expand_2escm"),(void*)f_12722},
{C_text("f_12764:expand_2escm"),(void*)f_12764},
{C_text("f_12775:expand_2escm"),(void*)f_12775},
{C_text("f_12794:expand_2escm"),(void*)f_12794},
{C_text("f_12809:expand_2escm"),(void*)f_12809},
{C_text("f_12811:expand_2escm"),(void*)f_12811},
{C_text("f_12825:expand_2escm"),(void*)f_12825},
{C_text("f_12832:expand_2escm"),(void*)f_12832},
{C_text("f_12840:expand_2escm"),(void*)f_12840},
{C_text("f_12867:expand_2escm"),(void*)f_12867},
{C_text("f_12874:expand_2escm"),(void*)f_12874},
{C_text("f_12881:expand_2escm"),(void*)f_12881},
{C_text("f_12887:expand_2escm"),(void*)f_12887},
{C_text("f_12897:expand_2escm"),(void*)f_12897},
{C_text("f_12904:expand_2escm"),(void*)f_12904},
{C_text("f_12928:expand_2escm"),(void*)f_12928},
{C_text("f_12932:expand_2escm"),(void*)f_12932},
{C_text("f_12936:expand_2escm"),(void*)f_12936},
{C_text("f_12939:expand_2escm"),(void*)f_12939},
{C_text("f_12943:expand_2escm"),(void*)f_12943},
{C_text("f_12947:expand_2escm"),(void*)f_12947},
{C_text("f_12951:expand_2escm"),(void*)f_12951},
{C_text("f_12953:expand_2escm"),(void*)f_12953},
{C_text("f_12957:expand_2escm"),(void*)f_12957},
{C_text("f_12965:expand_2escm"),(void*)f_12965},
{C_text("f_12974:expand_2escm"),(void*)f_12974},
{C_text("f_12987:expand_2escm"),(void*)f_12987},
{C_text("f_12989:expand_2escm"),(void*)f_12989},
{C_text("f_12993:expand_2escm"),(void*)f_12993},
{C_text("f_13007:expand_2escm"),(void*)f_13007},
{C_text("f_13009:expand_2escm"),(void*)f_13009},
{C_text("f_13013:expand_2escm"),(void*)f_13013},
{C_text("f_13040:expand_2escm"),(void*)f_13040},
{C_text("f_13042:expand_2escm"),(void*)f_13042},
{C_text("f_13046:expand_2escm"),(void*)f_13046},
{C_text("f_13049:expand_2escm"),(void*)f_13049},
{C_text("f_13052:expand_2escm"),(void*)f_13052},
{C_text("f_13054:expand_2escm"),(void*)f_13054},
{C_text("f_13062:expand_2escm"),(void*)f_13062},
{C_text("f_13064:expand_2escm"),(void*)f_13064},
{C_text("f_13078:expand_2escm"),(void*)f_13078},
{C_text("f_13082:expand_2escm"),(void*)f_13082},
{C_text("f_13101:expand_2escm"),(void*)f_13101},
{C_text("f_13110:expand_2escm"),(void*)f_13110},
{C_text("f_13124:expand_2escm"),(void*)f_13124},
{C_text("f_13134:expand_2escm"),(void*)f_13134},
{C_text("f_13145:expand_2escm"),(void*)f_13145},
{C_text("f_13155:expand_2escm"),(void*)f_13155},
{C_text("f_13164:expand_2escm"),(void*)f_13164},
{C_text("f_13175:expand_2escm"),(void*)f_13175},
{C_text("f_13186:expand_2escm"),(void*)f_13186},
{C_text("f_13194:expand_2escm"),(void*)f_13194},
{C_text("f_13209:expand_2escm"),(void*)f_13209},
{C_text("f_13213:expand_2escm"),(void*)f_13213},
{C_text("f_13227:expand_2escm"),(void*)f_13227},
{C_text("f_13231:expand_2escm"),(void*)f_13231},
{C_text("f_13235:expand_2escm"),(void*)f_13235},
{C_text("f_13257:expand_2escm"),(void*)f_13257},
{C_text("f_13261:expand_2escm"),(void*)f_13261},
{C_text("f_13304:expand_2escm"),(void*)f_13304},
{C_text("f_13322:expand_2escm"),(void*)f_13322},
{C_text("f_13333:expand_2escm"),(void*)f_13333},
{C_text("f_13335:expand_2escm"),(void*)f_13335},
{C_text("f_13339:expand_2escm"),(void*)f_13339},
{C_text("f_13351:expand_2escm"),(void*)f_13351},
{C_text("f_13379:expand_2escm"),(void*)f_13379},
{C_text("f_13400:expand_2escm"),(void*)f_13400},
{C_text("f_13441:expand_2escm"),(void*)f_13441},
{C_text("f_13443:expand_2escm"),(void*)f_13443},
{C_text("f_13453:expand_2escm"),(void*)f_13453},
{C_text("f_13493:expand_2escm"),(void*)f_13493},
{C_text("f_13529:expand_2escm"),(void*)f_13529},
{C_text("f_13531:expand_2escm"),(void*)f_13531},
{C_text("f_13535:expand_2escm"),(void*)f_13535},
{C_text("f_13545:expand_2escm"),(void*)f_13545},
{C_text("f_13570:expand_2escm"),(void*)f_13570},
{C_text("f_13580:expand_2escm"),(void*)f_13580},
{C_text("f_13582:expand_2escm"),(void*)f_13582},
{C_text("f_13586:expand_2escm"),(void*)f_13586},
{C_text("f_13594:expand_2escm"),(void*)f_13594},
{C_text("f_13597:expand_2escm"),(void*)f_13597},
{C_text("f_13600:expand_2escm"),(void*)f_13600},
{C_text("f_13603:expand_2escm"),(void*)f_13603},
{C_text("f_13606:expand_2escm"),(void*)f_13606},
{C_text("f_13617:expand_2escm"),(void*)f_13617},
{C_text("f_13619:expand_2escm"),(void*)f_13619},
{C_text("f_13633:expand_2escm"),(void*)f_13633},
{C_text("f_13639:expand_2escm"),(void*)f_13639},
{C_text("f_13642:expand_2escm"),(void*)f_13642},
{C_text("f_13646:expand_2escm"),(void*)f_13646},
{C_text("f_13652:expand_2escm"),(void*)f_13652},
{C_text("f_13655:expand_2escm"),(void*)f_13655},
{C_text("f_13670:expand_2escm"),(void*)f_13670},
{C_text("f_13711:expand_2escm"),(void*)f_13711},
{C_text("f_13715:expand_2escm"),(void*)f_13715},
{C_text("f_13718:expand_2escm"),(void*)f_13718},
{C_text("f_13751:expand_2escm"),(void*)f_13751},
{C_text("f_13766:expand_2escm"),(void*)f_13766},
{C_text("f_13768:expand_2escm"),(void*)f_13768},
{C_text("f_13816:expand_2escm"),(void*)f_13816},
{C_text("f_13818:expand_2escm"),(void*)f_13818},
{C_text("f_13825:expand_2escm"),(void*)f_13825},
{C_text("f_13828:expand_2escm"),(void*)f_13828},
{C_text("f_13831:expand_2escm"),(void*)f_13831},
{C_text("f_13836:expand_2escm"),(void*)f_13836},
{C_text("f_13850:expand_2escm"),(void*)f_13850},
{C_text("f_13856:expand_2escm"),(void*)f_13856},
{C_text("f_13859:expand_2escm"),(void*)f_13859},
{C_text("f_13863:expand_2escm"),(void*)f_13863},
{C_text("f_13869:expand_2escm"),(void*)f_13869},
{C_text("f_13872:expand_2escm"),(void*)f_13872},
{C_text("f_13875:expand_2escm"),(void*)f_13875},
{C_text("f_13878:expand_2escm"),(void*)f_13878},
{C_text("f_13882:expand_2escm"),(void*)f_13882},
{C_text("f_13888:expand_2escm"),(void*)f_13888},
{C_text("f_13891:expand_2escm"),(void*)f_13891},
{C_text("f_13894:expand_2escm"),(void*)f_13894},
{C_text("f_13900:expand_2escm"),(void*)f_13900},
{C_text("f_13926:expand_2escm"),(void*)f_13926},
{C_text("f_13954:expand_2escm"),(void*)f_13954},
{C_text("f_13971:expand_2escm"),(void*)f_13971},
{C_text("f_13977:expand_2escm"),(void*)f_13977},
{C_text("f_13980:expand_2escm"),(void*)f_13980},
{C_text("f_13999:expand_2escm"),(void*)f_13999},
{C_text("f_14017:expand_2escm"),(void*)f_14017},
{C_text("f_14020:expand_2escm"),(void*)f_14020},
{C_text("f_14047:expand_2escm"),(void*)f_14047},
{C_text("f_14074:expand_2escm"),(void*)f_14074},
{C_text("f_14137:expand_2escm"),(void*)f_14137},
{C_text("f_14155:expand_2escm"),(void*)f_14155},
{C_text("f_14171:expand_2escm"),(void*)f_14171},
{C_text("f_14207:expand_2escm"),(void*)f_14207},
{C_text("f_14209:expand_2escm"),(void*)f_14209},
{C_text("f_14232:expand_2escm"),(void*)f_14232},
{C_text("f_14251:expand_2escm"),(void*)f_14251},
{C_text("f_14259:expand_2escm"),(void*)f_14259},
{C_text("f_14261:expand_2escm"),(void*)f_14261},
{C_text("f_14292:expand_2escm"),(void*)f_14292},
{C_text("f_14296:expand_2escm"),(void*)f_14296},
{C_text("f_14298:expand_2escm"),(void*)f_14298},
{C_text("f_14302:expand_2escm"),(void*)f_14302},
{C_text("f_14325:expand_2escm"),(void*)f_14325},
{C_text("f_14340:expand_2escm"),(void*)f_14340},
{C_text("f_14342:expand_2escm"),(void*)f_14342},
{C_text("f_14346:expand_2escm"),(void*)f_14346},
{C_text("f_14349:expand_2escm"),(void*)f_14349},
{C_text("f_14362:expand_2escm"),(void*)f_14362},
{C_text("f_14364:expand_2escm"),(void*)f_14364},
{C_text("f_14368:expand_2escm"),(void*)f_14368},
{C_text("f_14371:expand_2escm"),(void*)f_14371},
{C_text("f_14384:expand_2escm"),(void*)f_14384},
{C_text("f_14386:expand_2escm"),(void*)f_14386},
{C_text("f_14390:expand_2escm"),(void*)f_14390},
{C_text("f_14393:expand_2escm"),(void*)f_14393},
{C_text("f_14406:expand_2escm"),(void*)f_14406},
{C_text("f_14408:expand_2escm"),(void*)f_14408},
{C_text("f_14412:expand_2escm"),(void*)f_14412},
{C_text("f_14423:expand_2escm"),(void*)f_14423},
{C_text("f_14433:expand_2escm"),(void*)f_14433},
{C_text("f_14458:expand_2escm"),(void*)f_14458},
{C_text("f_14460:expand_2escm"),(void*)f_14460},
{C_text("f_14464:expand_2escm"),(void*)f_14464},
{C_text("f_14481:expand_2escm"),(void*)f_14481},
{C_text("f_14484:expand_2escm"),(void*)f_14484},
{C_text("f_14490:expand_2escm"),(void*)f_14490},
{C_text("f_14497:expand_2escm"),(void*)f_14497},
{C_text("f_14501:expand_2escm"),(void*)f_14501},
{C_text("f_14505:expand_2escm"),(void*)f_14505},
{C_text("f_14507:expand_2escm"),(void*)f_14507},
{C_text("f_14511:expand_2escm"),(void*)f_14511},
{C_text("f_14516:expand_2escm"),(void*)f_14516},
{C_text("f_14531:expand_2escm"),(void*)f_14531},
{C_text("f_14542:expand_2escm"),(void*)f_14542},
{C_text("f_14545:expand_2escm"),(void*)f_14545},
{C_text("f_14567:expand_2escm"),(void*)f_14567},
{C_text("f_14574:expand_2escm"),(void*)f_14574},
{C_text("f_14578:expand_2escm"),(void*)f_14578},
{C_text("f_14587:expand_2escm"),(void*)f_14587},
{C_text("f_14594:expand_2escm"),(void*)f_14594},
{C_text("f_14597:expand_2escm"),(void*)f_14597},
{C_text("f_14632:expand_2escm"),(void*)f_14632},
{C_text("f_14634:expand_2escm"),(void*)f_14634},
{C_text("f_14638:expand_2escm"),(void*)f_14638},
{C_text("f_14649:expand_2escm"),(void*)f_14649},
{C_text("f_14651:expand_2escm"),(void*)f_14651},
{C_text("f_14655:expand_2escm"),(void*)f_14655},
{C_text("f_14666:expand_2escm"),(void*)f_14666},
{C_text("f_14668:expand_2escm"),(void*)f_14668},
{C_text("f_14672:expand_2escm"),(void*)f_14672},
{C_text("f_14683:expand_2escm"),(void*)f_14683},
{C_text("f_14685:expand_2escm"),(void*)f_14685},
{C_text("f_14689:expand_2escm"),(void*)f_14689},
{C_text("f_14700:expand_2escm"),(void*)f_14700},
{C_text("f_14702:expand_2escm"),(void*)f_14702},
{C_text("f_14706:expand_2escm"),(void*)f_14706},
{C_text("f_14709:expand_2escm"),(void*)f_14709},
{C_text("f_14719:expand_2escm"),(void*)f_14719},
{C_text("f_14723:expand_2escm"),(void*)f_14723},
{C_text("f_14725:expand_2escm"),(void*)f_14725},
{C_text("f_14729:expand_2escm"),(void*)f_14729},
{C_text("f_14732:expand_2escm"),(void*)f_14732},
{C_text("f_14735:expand_2escm"),(void*)f_14735},
{C_text("f_14758:expand_2escm"),(void*)f_14758},
{C_text("f_14761:expand_2escm"),(void*)f_14761},
{C_text("f_14807:expand_2escm"),(void*)f_14807},
{C_text("f_14809:expand_2escm"),(void*)f_14809},
{C_text("f_14813:expand_2escm"),(void*)f_14813},
{C_text("f_14816:expand_2escm"),(void*)f_14816},
{C_text("f_14839:expand_2escm"),(void*)f_14839},
{C_text("f_14867:expand_2escm"),(void*)f_14867},
{C_text("f_14872:expand_2escm"),(void*)f_14872},
{C_text("f_14879:expand_2escm"),(void*)f_14879},
{C_text("f_14882:expand_2escm"),(void*)f_14882},
{C_text("f_14891:expand_2escm"),(void*)f_14891},
{C_text("f_14936:expand_2escm"),(void*)f_14936},
{C_text("f_14938:expand_2escm"),(void*)f_14938},
{C_text("f_14963:expand_2escm"),(void*)f_14963},
{C_text("f_14974:expand_2escm"),(void*)f_14974},
{C_text("f_14978:expand_2escm"),(void*)f_14978},
{C_text("f_14980:expand_2escm"),(void*)f_14980},
{C_text("f_14988:expand_2escm"),(void*)f_14988},
{C_text("f_14990:expand_2escm"),(void*)f_14990},
{C_text("f_15002:expand_2escm"),(void*)f_15002},
{C_text("f_15054:expand_2escm"),(void*)f_15054},
{C_text("f_15060:expand_2escm"),(void*)f_15060},
{C_text("f_15063:expand_2escm"),(void*)f_15063},
{C_text("f_15066:expand_2escm"),(void*)f_15066},
{C_text("f_15071:expand_2escm"),(void*)f_15071},
{C_text("f_15096:expand_2escm"),(void*)f_15096},
{C_text("f_15111:expand_2escm"),(void*)f_15111},
{C_text("f_15113:expand_2escm"),(void*)f_15113},
{C_text("f_15117:expand_2escm"),(void*)f_15117},
{C_text("f_15120:expand_2escm"),(void*)f_15120},
{C_text("f_15123:expand_2escm"),(void*)f_15123},
{C_text("f_15130:expand_2escm"),(void*)f_15130},
{C_text("f_15138:expand_2escm"),(void*)f_15138},
{C_text("f_15140:expand_2escm"),(void*)f_15140},
{C_text("f_15147:expand_2escm"),(void*)f_15147},
{C_text("f_15150:expand_2escm"),(void*)f_15150},
{C_text("f_15154:expand_2escm"),(void*)f_15154},
{C_text("f_15162:expand_2escm"),(void*)f_15162},
{C_text("f_15166:expand_2escm"),(void*)f_15166},
{C_text("f_15169:expand_2escm"),(void*)f_15169},
{C_text("f_15175:expand_2escm"),(void*)f_15175},
{C_text("f_15183:expand_2escm"),(void*)f_15183},
{C_text("f_15188:expand_2escm"),(void*)f_15188},
{C_text("f_15195:expand_2escm"),(void*)f_15195},
{C_text("f_15241:expand_2escm"),(void*)f_15241},
{C_text("f_15266:expand_2escm"),(void*)f_15266},
{C_text("f_15281:expand_2escm"),(void*)f_15281},
{C_text("f_15290:expand_2escm"),(void*)f_15290},
{C_text("f_15304:expand_2escm"),(void*)f_15304},
{C_text("f_15313:expand_2escm"),(void*)f_15313},
{C_text("f_15315:expand_2escm"),(void*)f_15315},
{C_text("f_15340:expand_2escm"),(void*)f_15340},
{C_text("f_15349:expand_2escm"),(void*)f_15349},
{C_text("f_15353:expand_2escm"),(void*)f_15353},
{C_text("f_15375:expand_2escm"),(void*)f_15375},
{C_text("f_15377:expand_2escm"),(void*)f_15377},
{C_text("f_15402:expand_2escm"),(void*)f_15402},
{C_text("f_15419:expand_2escm"),(void*)f_15419},
{C_text("f_15423:expand_2escm"),(void*)f_15423},
{C_text("f_15428:expand_2escm"),(void*)f_15428},
{C_text("f_15433:expand_2escm"),(void*)f_15433},
{C_text("f_15439:expand_2escm"),(void*)f_15439},
{C_text("f_15442:expand_2escm"),(void*)f_15442},
{C_text("f_15448:expand_2escm"),(void*)f_15448},
{C_text("f_15454:expand_2escm"),(void*)f_15454},
{C_text("f_15459:expand_2escm"),(void*)f_15459},
{C_text("f_15467:expand_2escm"),(void*)f_15467},
{C_text("f_15469:expand_2escm"),(void*)f_15469},
{C_text("f_15482:expand_2escm"),(void*)f_15482},
{C_text("f_15491:expand_2escm"),(void*)f_15491},
{C_text("f_15495:expand_2escm"),(void*)f_15495},
{C_text("f_15507:expand_2escm"),(void*)f_15507},
{C_text("f_15536:expand_2escm"),(void*)f_15536},
{C_text("f_15543:expand_2escm"),(void*)f_15543},
{C_text("f_15547:expand_2escm"),(void*)f_15547},
{C_text("f_15555:expand_2escm"),(void*)f_15555},
{C_text("f_15566:expand_2escm"),(void*)f_15566},
{C_text("f_15579:expand_2escm"),(void*)f_15579},
{C_text("f_15590:expand_2escm"),(void*)f_15590},
{C_text("f_15601:expand_2escm"),(void*)f_15601},
{C_text("f_15608:expand_2escm"),(void*)f_15608},
{C_text("f_15612:expand_2escm"),(void*)f_15612},
{C_text("f_15623:expand_2escm"),(void*)f_15623},
{C_text("f_15630:expand_2escm"),(void*)f_15630},
{C_text("f_15634:expand_2escm"),(void*)f_15634},
{C_text("f_15649:expand_2escm"),(void*)f_15649},
{C_text("f_15653:expand_2escm"),(void*)f_15653},
{C_text("f_15680:expand_2escm"),(void*)f_15680},
{C_text("f_15695:expand_2escm"),(void*)f_15695},
{C_text("f_15719:expand_2escm"),(void*)f_15719},
{C_text("f_15729:expand_2escm"),(void*)f_15729},
{C_text("f_15770:expand_2escm"),(void*)f_15770},
{C_text("f_15785:expand_2escm"),(void*)f_15785},
{C_text("f_15789:expand_2escm"),(void*)f_15789},
{C_text("f_15793:expand_2escm"),(void*)f_15793},
{C_text("f_15859:expand_2escm"),(void*)f_15859},
{C_text("f_15861:expand_2escm"),(void*)f_15861},
{C_text("f_15865:expand_2escm"),(void*)f_15865},
{C_text("f_15871:expand_2escm"),(void*)f_15871},
{C_text("f_15877:expand_2escm"),(void*)f_15877},
{C_text("f_15880:expand_2escm"),(void*)f_15880},
{C_text("f_15892:expand_2escm"),(void*)f_15892},
{C_text("f_15895:expand_2escm"),(void*)f_15895},
{C_text("f_15926:expand_2escm"),(void*)f_15926},
{C_text("f_15930:expand_2escm"),(void*)f_15930},
{C_text("f_15933:expand_2escm"),(void*)f_15933},
{C_text("f_15940:expand_2escm"),(void*)f_15940},
{C_text("f_15949:expand_2escm"),(void*)f_15949},
{C_text("f_15974:expand_2escm"),(void*)f_15974},
{C_text("f_16008:expand_2escm"),(void*)f_16008},
{C_text("f_16022:expand_2escm"),(void*)f_16022},
{C_text("f_16034:expand_2escm"),(void*)f_16034},
{C_text("f_16036:expand_2escm"),(void*)f_16036},
{C_text("f_16048:expand_2escm"),(void*)f_16048},
{C_text("f_16050:expand_2escm"),(void*)f_16050},
{C_text("f_16054:expand_2escm"),(void*)f_16054},
{C_text("f_16065:expand_2escm"),(void*)f_16065},
{C_text("f_16075:expand_2escm"),(void*)f_16075},
{C_text("f_16083:expand_2escm"),(void*)f_16083},
{C_text("f_16085:expand_2escm"),(void*)f_16085},
{C_text("f_16094:expand_2escm"),(void*)f_16094},
{C_text("f_16100:expand_2escm"),(void*)f_16100},
{C_text("f_16106:expand_2escm"),(void*)f_16106},
{C_text("f_16110:expand_2escm"),(void*)f_16110},
{C_text("f_16113:expand_2escm"),(void*)f_16113},
{C_text("f_16116:expand_2escm"),(void*)f_16116},
{C_text("f_16147:expand_2escm"),(void*)f_16147},
{C_text("f_16156:expand_2escm"),(void*)f_16156},
{C_text("f_16158:expand_2escm"),(void*)f_16158},
{C_text("f_16183:expand_2escm"),(void*)f_16183},
{C_text("f_16194:expand_2escm"),(void*)f_16194},
{C_text("f_16196:expand_2escm"),(void*)f_16196},
{C_text("f_16204:expand_2escm"),(void*)f_16204},
{C_text("f_16206:expand_2escm"),(void*)f_16206},
{C_text("f_4916:expand_2escm"),(void*)f_4916},
{C_text("f_4919:expand_2escm"),(void*)f_4919},
{C_text("f_4922:expand_2escm"),(void*)f_4922},
{C_text("f_6205:expand_2escm"),(void*)f_6205},
{C_text("f_6209:expand_2escm"),(void*)f_6209},
{C_text("f_6211:expand_2escm"),(void*)f_6211},
{C_text("f_6228:expand_2escm"),(void*)f_6228},
{C_text("f_6235:expand_2escm"),(void*)f_6235},
{C_text("f_6241:expand_2escm"),(void*)f_6241},
{C_text("f_6275:expand_2escm"),(void*)f_6275},
{C_text("f_6281:expand_2escm"),(void*)f_6281},
{C_text("f_6297:expand_2escm"),(void*)f_6297},
{C_text("f_6352:expand_2escm"),(void*)f_6352},
{C_text("f_6359:expand_2escm"),(void*)f_6359},
{C_text("f_6377:expand_2escm"),(void*)f_6377},
{C_text("f_6386:expand_2escm"),(void*)f_6386},
{C_text("f_6407:expand_2escm"),(void*)f_6407},
{C_text("f_6417:expand_2escm"),(void*)f_6417},
{C_text("f_6421:expand_2escm"),(void*)f_6421},
{C_text("f_6446:expand_2escm"),(void*)f_6446},
{C_text("f_6461:expand_2escm"),(void*)f_6461},
{C_text("f_6463:expand_2escm"),(void*)f_6463},
{C_text("f_6511:expand_2escm"),(void*)f_6511},
{C_text("f_6560:expand_2escm"),(void*)f_6560},
{C_text("f_6585:expand_2escm"),(void*)f_6585},
{C_text("f_6599:expand_2escm"),(void*)f_6599},
{C_text("f_6608:expand_2escm"),(void*)f_6608},
{C_text("f_6632:expand_2escm"),(void*)f_6632},
{C_text("f_6636:expand_2escm"),(void*)f_6636},
{C_text("f_6639:expand_2escm"),(void*)f_6639},
{C_text("f_6646:expand_2escm"),(void*)f_6646},
{C_text("f_6664:expand_2escm"),(void*)f_6664},
{C_text("f_6674:expand_2escm"),(void*)f_6674},
{C_text("f_6678:expand_2escm"),(void*)f_6678},
{C_text("f_6700:expand_2escm"),(void*)f_6700},
{C_text("f_6711:expand_2escm"),(void*)f_6711},
{C_text("f_6719:expand_2escm"),(void*)f_6719},
{C_text("f_6723:expand_2escm"),(void*)f_6723},
{C_text("f_6725:expand_2escm"),(void*)f_6725},
{C_text("f_6748:expand_2escm"),(void*)f_6748},
{C_text("f_6756:expand_2escm"),(void*)f_6756},
{C_text("f_6759:expand_2escm"),(void*)f_6759},
{C_text("f_6769:expand_2escm"),(void*)f_6769},
{C_text("f_6774:expand_2escm"),(void*)f_6774},
{C_text("f_6780:expand_2escm"),(void*)f_6780},
{C_text("f_6786:expand_2escm"),(void*)f_6786},
{C_text("f_6808:expand_2escm"),(void*)f_6808},
{C_text("f_6814:expand_2escm"),(void*)f_6814},
{C_text("f_6831:expand_2escm"),(void*)f_6831},
{C_text("f_6842:expand_2escm"),(void*)f_6842},
{C_text("f_6848:expand_2escm"),(void*)f_6848},
{C_text("f_6881:expand_2escm"),(void*)f_6881},
{C_text("f_6887:expand_2escm"),(void*)f_6887},
{C_text("f_6891:expand_2escm"),(void*)f_6891},
{C_text("f_6894:expand_2escm"),(void*)f_6894},
{C_text("f_6910:expand_2escm"),(void*)f_6910},
{C_text("f_6914:expand_2escm"),(void*)f_6914},
{C_text("f_6921:expand_2escm"),(void*)f_6921},
{C_text("f_6927:expand_2escm"),(void*)f_6927},
{C_text("f_6932:expand_2escm"),(void*)f_6932},
{C_text("f_6938:expand_2escm"),(void*)f_6938},
{C_text("f_6946:expand_2escm"),(void*)f_6946},
{C_text("f_6952:expand_2escm"),(void*)f_6952},
{C_text("f_6958:expand_2escm"),(void*)f_6958},
{C_text("f_6975:expand_2escm"),(void*)f_6975},
{C_text("f_6989:expand_2escm"),(void*)f_6989},
{C_text("f_7013:expand_2escm"),(void*)f_7013},
{C_text("f_7019:expand_2escm"),(void*)f_7019},
{C_text("f_7031:expand_2escm"),(void*)f_7031},
{C_text("f_7043:expand_2escm"),(void*)f_7043},
{C_text("f_7068:expand_2escm"),(void*)f_7068},
{C_text("f_7070:expand_2escm"),(void*)f_7070},
{C_text("f_7133:expand_2escm"),(void*)f_7133},
{C_text("f_7139:expand_2escm"),(void*)f_7139},
{C_text("f_7177:expand_2escm"),(void*)f_7177},
{C_text("f_7181:expand_2escm"),(void*)f_7181},
{C_text("f_7185:expand_2escm"),(void*)f_7185},
{C_text("f_7197:expand_2escm"),(void*)f_7197},
{C_text("f_7236:expand_2escm"),(void*)f_7236},
{C_text("f_7250:expand_2escm"),(void*)f_7250},
{C_text("f_7260:expand_2escm"),(void*)f_7260},
{C_text("f_7263:expand_2escm"),(void*)f_7263},
{C_text("f_7267:expand_2escm"),(void*)f_7267},
{C_text("f_7281:expand_2escm"),(void*)f_7281},
{C_text("f_7287:expand_2escm"),(void*)f_7287},
{C_text("f_7293:expand_2escm"),(void*)f_7293},
{C_text("f_7329:expand_2escm"),(void*)f_7329},
{C_text("f_7333:expand_2escm"),(void*)f_7333},
{C_text("f_7347:expand_2escm"),(void*)f_7347},
{C_text("f_7353:expand_2escm"),(void*)f_7353},
{C_text("f_7386:expand_2escm"),(void*)f_7386},
{C_text("f_7392:expand_2escm"),(void*)f_7392},
{C_text("f_7433:expand_2escm"),(void*)f_7433},
{C_text("f_7436:expand_2escm"),(void*)f_7436},
{C_text("f_7450:expand_2escm"),(void*)f_7450},
{C_text("f_7453:expand_2escm"),(void*)f_7453},
{C_text("f_7456:expand_2escm"),(void*)f_7456},
{C_text("f_7459:expand_2escm"),(void*)f_7459},
{C_text("f_7464:expand_2escm"),(void*)f_7464},
{C_text("f_7478:expand_2escm"),(void*)f_7478},
{C_text("f_7482:expand_2escm"),(void*)f_7482},
{C_text("f_7494:expand_2escm"),(void*)f_7494},
{C_text("f_7525:expand_2escm"),(void*)f_7525},
{C_text("f_7550:expand_2escm"),(void*)f_7550},
{C_text("f_7569:expand_2escm"),(void*)f_7569},
{C_text("f_7573:expand_2escm"),(void*)f_7573},
{C_text("f_7622:expand_2escm"),(void*)f_7622},
{C_text("f_7675:expand_2escm"),(void*)f_7675},
{C_text("f_7679:expand_2escm"),(void*)f_7679},
{C_text("f_7682:expand_2escm"),(void*)f_7682},
{C_text("f_7685:expand_2escm"),(void*)f_7685},
{C_text("f_7687:expand_2escm"),(void*)f_7687},
{C_text("f_7712:expand_2escm"),(void*)f_7712},
{C_text("f_7726:expand_2escm"),(void*)f_7726},
{C_text("f_7767:expand_2escm"),(void*)f_7767},
{C_text("f_7780:expand_2escm"),(void*)f_7780},
{C_text("f_7796:expand_2escm"),(void*)f_7796},
{C_text("f_7817:expand_2escm"),(void*)f_7817},
{C_text("f_7856:expand_2escm"),(void*)f_7856},
{C_text("f_7875:expand_2escm"),(void*)f_7875},
{C_text("f_7943:expand_2escm"),(void*)f_7943},
{C_text("f_8042:expand_2escm"),(void*)f_8042},
{C_text("f_8048:expand_2escm"),(void*)f_8048},
{C_text("f_8052:expand_2escm"),(void*)f_8052},
{C_text("f_8055:expand_2escm"),(void*)f_8055},
{C_text("f_8074:expand_2escm"),(void*)f_8074},
{C_text("f_8078:expand_2escm"),(void*)f_8078},
{C_text("f_8096:expand_2escm"),(void*)f_8096},
{C_text("f_8118:expand_2escm"),(void*)f_8118},
{C_text("f_8184:expand_2escm"),(void*)f_8184},
{C_text("f_8209:expand_2escm"),(void*)f_8209},
{C_text("f_8222:expand_2escm"),(void*)f_8222},
{C_text("f_8226:expand_2escm"),(void*)f_8226},
{C_text("f_8237:expand_2escm"),(void*)f_8237},
{C_text("f_8244:expand_2escm"),(void*)f_8244},
{C_text("f_8253:expand_2escm"),(void*)f_8253},
{C_text("f_8273:expand_2escm"),(void*)f_8273},
{C_text("f_8284:expand_2escm"),(void*)f_8284},
{C_text("f_8286:expand_2escm"),(void*)f_8286},
{C_text("f_8288:expand_2escm"),(void*)f_8288},
{C_text("f_8294:expand_2escm"),(void*)f_8294},
{C_text("f_8301:expand_2escm"),(void*)f_8301},
{C_text("f_8310:expand_2escm"),(void*)f_8310},
{C_text("f_8346:expand_2escm"),(void*)f_8346},
{C_text("f_8357:expand_2escm"),(void*)f_8357},
{C_text("f_8361:expand_2escm"),(void*)f_8361},
{C_text("f_8365:expand_2escm"),(void*)f_8365},
{C_text("f_8369:expand_2escm"),(void*)f_8369},
{C_text("f_8373:expand_2escm"),(void*)f_8373},
{C_text("f_8375:expand_2escm"),(void*)f_8375},
{C_text("f_8387:expand_2escm"),(void*)f_8387},
{C_text("f_8401:expand_2escm"),(void*)f_8401},
{C_text("f_8406:expand_2escm"),(void*)f_8406},
{C_text("f_8417:expand_2escm"),(void*)f_8417},
{C_text("f_8423:expand_2escm"),(void*)f_8423},
{C_text("f_8437:expand_2escm"),(void*)f_8437},
{C_text("f_8441:expand_2escm"),(void*)f_8441},
{C_text("f_8449:expand_2escm"),(void*)f_8449},
{C_text("f_8456:expand_2escm"),(void*)f_8456},
{C_text("f_8468:expand_2escm"),(void*)f_8468},
{C_text("f_8475:expand_2escm"),(void*)f_8475},
{C_text("f_8479:expand_2escm"),(void*)f_8479},
{C_text("f_8486:expand_2escm"),(void*)f_8486},
{C_text("f_8517:expand_2escm"),(void*)f_8517},
{C_text("f_8546:expand_2escm"),(void*)f_8546},
{C_text("f_8578:expand_2escm"),(void*)f_8578},
{C_text("f_8584:expand_2escm"),(void*)f_8584},
{C_text("f_8590:expand_2escm"),(void*)f_8590},
{C_text("f_8596:expand_2escm"),(void*)f_8596},
{C_text("f_8634:expand_2escm"),(void*)f_8634},
{C_text("f_8636:expand_2escm"),(void*)f_8636},
{C_text("f_8640:expand_2escm"),(void*)f_8640},
{C_text("f_8643:expand_2escm"),(void*)f_8643},
{C_text("f_8649:expand_2escm"),(void*)f_8649},
{C_text("f_8653:expand_2escm"),(void*)f_8653},
{C_text("f_8675:expand_2escm"),(void*)f_8675},
{C_text("f_8678:expand_2escm"),(void*)f_8678},
{C_text("f_8681:expand_2escm"),(void*)f_8681},
{C_text("f_8684:expand_2escm"),(void*)f_8684},
{C_text("f_8686:expand_2escm"),(void*)f_8686},
{C_text("f_8693:expand_2escm"),(void*)f_8693},
{C_text("f_8719:expand_2escm"),(void*)f_8719},
{C_text("f_8748:expand_2escm"),(void*)f_8748},
{C_text("f_8782:expand_2escm"),(void*)f_8782},
{C_text("f_8800:expand_2escm"),(void*)f_8800},
{C_text("f_8812:expand_2escm"),(void*)f_8812},
{C_text("f_8820:expand_2escm"),(void*)f_8820},
{C_text("f_8822:expand_2escm"),(void*)f_8822},
{C_text("f_8844:expand_2escm"),(void*)f_8844},
{C_text("f_8847:expand_2escm"),(void*)f_8847},
{C_text("f_8849:expand_2escm"),(void*)f_8849},
{C_text("f_8896:expand_2escm"),(void*)f_8896},
{C_text("f_8900:expand_2escm"),(void*)f_8900},
{C_text("f_8968:expand_2escm"),(void*)f_8968},
{C_text("f_8974:expand_2escm"),(void*)f_8974},
{C_text("f_8997:expand_2escm"),(void*)f_8997},
{C_text("f_9012:expand_2escm"),(void*)f_9012},
{C_text("f_9015:expand_2escm"),(void*)f_9015},
{C_text("f_9020:expand_2escm"),(void*)f_9020},
{C_text("f_9033:expand_2escm"),(void*)f_9033},
{C_text("f_9036:expand_2escm"),(void*)f_9036},
{C_text("f_9086:expand_2escm"),(void*)f_9086},
{C_text("f_9093:expand_2escm"),(void*)f_9093},
{C_text("f_9100:expand_2escm"),(void*)f_9100},
{C_text("f_9149:expand_2escm"),(void*)f_9149},
{C_text("f_9152:expand_2escm"),(void*)f_9152},
{C_text("f_9161:expand_2escm"),(void*)f_9161},
{C_text("f_9164:expand_2escm"),(void*)f_9164},
{C_text("f_9193:expand_2escm"),(void*)f_9193},
{C_text("f_9200:expand_2escm"),(void*)f_9200},
{C_text("f_9216:expand_2escm"),(void*)f_9216},
{C_text("f_9286:expand_2escm"),(void*)f_9286},
{C_text("f_9289:expand_2escm"),(void*)f_9289},
{C_text("f_9303:expand_2escm"),(void*)f_9303},
{C_text("f_9343:expand_2escm"),(void*)f_9343},
{C_text("f_9366:expand_2escm"),(void*)f_9366},
{C_text("f_9368:expand_2escm"),(void*)f_9368},
{C_text("f_9371:expand_2escm"),(void*)f_9371},
{C_text("f_9415:expand_2escm"),(void*)f_9415},
{C_text("f_9423:expand_2escm"),(void*)f_9423},
{C_text("f_9431:expand_2escm"),(void*)f_9431},
{C_text("f_9433:expand_2escm"),(void*)f_9433},
{C_text("f_9439:expand_2escm"),(void*)f_9439},
{C_text("f_9450:expand_2escm"),(void*)f_9450},
{C_text("f_9455:expand_2escm"),(void*)f_9455},
{C_text("f_9475:expand_2escm"),(void*)f_9475},
{C_text("f_9479:expand_2escm"),(void*)f_9479},
{C_text("f_9494:expand_2escm"),(void*)f_9494},
{C_text("f_9506:expand_2escm"),(void*)f_9506},
{C_text("f_9508:expand_2escm"),(void*)f_9508},
{C_text("f_9515:expand_2escm"),(void*)f_9515},
{C_text("f_9522:expand_2escm"),(void*)f_9522},
{C_text("f_9524:expand_2escm"),(void*)f_9524},
{C_text("f_9534:expand_2escm"),(void*)f_9534},
{C_text("f_9537:expand_2escm"),(void*)f_9537},
{C_text("f_9540:expand_2escm"),(void*)f_9540},
{C_text("f_9543:expand_2escm"),(void*)f_9543},
{C_text("f_9546:expand_2escm"),(void*)f_9546},
{C_text("f_9553:expand_2escm"),(void*)f_9553},
{C_text("f_9560:expand_2escm"),(void*)f_9560},
{C_text("f_9563:expand_2escm"),(void*)f_9563},
{C_text("f_9572:expand_2escm"),(void*)f_9572},
{C_text("f_9575:expand_2escm"),(void*)f_9575},
{C_text("f_9578:expand_2escm"),(void*)f_9578},
{C_text("f_9581:expand_2escm"),(void*)f_9581},
{C_text("f_9584:expand_2escm"),(void*)f_9584},
{C_text("f_9587:expand_2escm"),(void*)f_9587},
{C_text("f_9600:expand_2escm"),(void*)f_9600},
{C_text("f_9604:expand_2escm"),(void*)f_9604},
{C_text("f_9615:expand_2escm"),(void*)f_9615},
{C_text("f_9619:expand_2escm"),(void*)f_9619},
{C_text("f_9621:expand_2escm"),(void*)f_9621},
{C_text("f_9635:expand_2escm"),(void*)f_9635},
{C_text("f_9639:expand_2escm"),(void*)f_9639},
{C_text("f_9666:expand_2escm"),(void*)f_9666},
{C_text("f_9672:expand_2escm"),(void*)f_9672},
{C_text("f_9692:expand_2escm"),(void*)f_9692},
{C_text("f_9716:expand_2escm"),(void*)f_9716},
{C_text("f_9720:expand_2escm"),(void*)f_9720},
{C_text("f_9726:expand_2escm"),(void*)f_9726},
{C_text("f_9732:expand_2escm"),(void*)f_9732},
{C_text("f_9745:expand_2escm"),(void*)f_9745},
{C_text("f_9767:expand_2escm"),(void*)f_9767},
{C_text("f_9783:expand_2escm"),(void*)f_9783},
{C_text("f_9794:expand_2escm"),(void*)f_9794},
{C_text("f_9799:expand_2escm"),(void*)f_9799},
{C_text("f_9805:expand_2escm"),(void*)f_9805},
{C_text("f_9812:expand_2escm"),(void*)f_9812},
{C_text("f_9838:expand_2escm"),(void*)f_9838},
{C_text("f_9858:expand_2escm"),(void*)f_9858},
{C_text("f_9862:expand_2escm"),(void*)f_9862},
{C_text("f_9866:expand_2escm"),(void*)f_9866},
{C_text("f_9877:expand_2escm"),(void*)f_9877},
{C_text("f_9884:expand_2escm"),(void*)f_9884},
{C_text("f_9887:expand_2escm"),(void*)f_9887},
{C_text("f_9891:expand_2escm"),(void*)f_9891},
{C_text("f_9918:expand_2escm"),(void*)f_9918},
{C_text("f_9924:expand_2escm"),(void*)f_9924},
{C_text("f_9931:expand_2escm"),(void*)f_9931},
{C_text("f_9934:expand_2escm"),(void*)f_9934},
{C_text("f_9937:expand_2escm"),(void*)f_9937},
{C_text("f_9950:expand_2escm"),(void*)f_9950},
{C_text("f_9952:expand_2escm"),(void*)f_9952},
{C_text("f_9986:expand_2escm"),(void*)f_9986},
{C_text("f_9989:expand_2escm"),(void*)f_9989},
{C_text("f_9995:expand_2escm"),(void*)f_9995},
{C_text("toplevel:expand_2escm"),(void*)C_expand_toplevel},
{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.syntax#d 
o|hiding unexported module binding: chicken.syntax#define-alias 
o|hiding unexported module binding: chicken.syntax#partition 
o|hiding unexported module binding: chicken.syntax#span 
o|hiding unexported module binding: chicken.syntax#take 
o|hiding unexported module binding: chicken.syntax#drop 
o|hiding unexported module binding: chicken.syntax#split-at 
o|hiding unexported module binding: chicken.syntax#append-map 
o|hiding unexported module binding: chicken.syntax#every 
o|hiding unexported module binding: chicken.syntax#any 
o|hiding unexported module binding: chicken.syntax#cons* 
o|hiding unexported module binding: chicken.syntax#concatenate 
o|hiding unexported module binding: chicken.syntax#delete 
o|hiding unexported module binding: chicken.syntax#first 
o|hiding unexported module binding: chicken.syntax#second 
o|hiding unexported module binding: chicken.syntax#third 
o|hiding unexported module binding: chicken.syntax#fourth 
o|hiding unexported module binding: chicken.syntax#fifth 
o|hiding unexported module binding: chicken.syntax#delete-duplicates 
o|hiding unexported module binding: chicken.syntax#alist-cons 
o|hiding unexported module binding: chicken.syntax#filter 
o|hiding unexported module binding: chicken.syntax#filter-map 
o|hiding unexported module binding: chicken.syntax#remove 
o|hiding unexported module binding: chicken.syntax#unzip1 
o|hiding unexported module binding: chicken.syntax#last 
o|hiding unexported module binding: chicken.syntax#list-index 
o|hiding unexported module binding: chicken.syntax#lset-adjoin/eq? 
o|hiding unexported module binding: chicken.syntax#lset-difference/eq? 
o|hiding unexported module binding: chicken.syntax#lset-union/eq? 
o|hiding unexported module binding: chicken.syntax#lset-intersection/eq? 
o|hiding unexported module binding: chicken.syntax#list-tabulate 
o|hiding unexported module binding: chicken.syntax#lset<=/eq? 
o|hiding unexported module binding: chicken.syntax#lset=/eq? 
o|hiding unexported module binding: chicken.syntax#length+ 
o|hiding unexported module binding: chicken.syntax#find 
o|hiding unexported module binding: chicken.syntax#find-tail 
o|hiding unexported module binding: chicken.syntax#iota 
o|hiding unexported module binding: chicken.syntax#make-list 
o|hiding unexported module binding: chicken.syntax#posq 
o|hiding unexported module binding: chicken.syntax#posv 
o|hiding unexported module binding: chicken.syntax#d 
o|hiding unexported module binding: chicken.syntax#map-se 
o|hiding unexported module binding: chicken.syntax#dd 
o|hiding unexported module binding: chicken.syntax#dm 
o|hiding unexported module binding: chicken.syntax#dx 
o|hiding unexported module binding: chicken.syntax#lookup 
o|hiding unexported module binding: chicken.syntax#macro-alias 
o|hiding unexported module binding: chicken.syntax#expansion-result-hook 
o|hiding unexported module binding: chicken.syntax#defjam-error 
o|hiding unexported module binding: chicken.syntax#define-definition 
o|hiding unexported module binding: chicken.syntax#define-syntax-definition 
o|hiding unexported module binding: chicken.syntax#define-values-definition 
o|hiding unexported module binding: chicken.syntax#import-definition 
o|hiding unexported module binding: chicken.syntax#alist-weak-cons 
o|hiding unexported module binding: chicken.syntax#assq/drop-bwp! 
o|hiding unexported module binding: chicken.syntax#read-with-source-info-hook 
o|hiding unexported module binding: chicken.syntax#make-er/ir-transformer 
o|hiding unexported module binding: chicken.internal.syntax-rules#process-syntax-rules 
S|applied compiler syntax:
S|  chicken.format#sprintf		1
S|  ##sys#map		5
S|  scheme#for-each		1
S|  chicken.base#foldl		4
S|  scheme#map		20
S|  chicken.base#foldr		3
o|eliminated procedure checks: 467 
o|eliminated procedure checks: 1 
o|eliminated procedure checks: 1 
o|specializations:
o|  1 (scheme#zero? *)
o|  1 (##sys#check-output-port * * *)
o|  2 (scheme#cdddr (pair * (pair * pair)))
o|  6 (scheme#cddr (pair * pair))
o|  2 (scheme#= fixnum fixnum)
o|  2 (scheme#vector-length vector)
o|  8 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *)
o|  1 (scheme#current-output-port)
o|  1 (##sys#check-input-port * * *)
o|  2 (scheme#caar (pair pair *))
o|  1 (scheme#>= fixnum fixnum)
o|  4 (scheme#length list)
o|  26 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword))
o|  1 (scheme#set-cdr! pair *)
o|  1 (scheme#set-car! pair *)
o|  1 (scheme#eqv? * *)
o|  13 (##sys#check-list (or pair list) *)
o|  111 (scheme#cdr pair)
o|  77 (scheme#car pair)
(o e)|safe calls: 1628 
(o e)|assignments to immediate values: 8 
o|safe globals: (##sys#current-source-filename chicken.syntax#posv chicken.syntax#posq chicken.syntax#make-list chicken.syntax#iota chicken.syntax#find-tail chicken.syntax#find chicken.syntax#length+ chicken.syntax#lset=/eq? chicken.syntax#lset<=/eq? chicken.syntax#list-tabulate chicken.syntax#lset-intersection/eq? chicken.syntax#lset-union/eq? chicken.syntax#lset-difference/eq? chicken.syntax#lset-adjoin/eq? chicken.syntax#list-index chicken.syntax#last chicken.syntax#unzip1 chicken.syntax#remove chicken.syntax#filter-map chicken.syntax#filter chicken.syntax#alist-cons chicken.syntax#delete-duplicates chicken.syntax#fifth chicken.syntax#fourth chicken.syntax#third chicken.syntax#second chicken.syntax#first chicken.syntax#delete chicken.syntax#concatenate chicken.syntax#cons* chicken.syntax#any chicken.syntax#every chicken.syntax#append-map chicken.syntax#split-at chicken.syntax#drop chicken.syntax#take chicken.syntax#span chicken.syntax#partition) 
o|removed side-effect free assignment to unused variable: chicken.syntax#partition 
o|removed side-effect free assignment to unused variable: chicken.syntax#span 
o|removed side-effect free assignment to unused variable: chicken.syntax#drop 
o|removed side-effect free assignment to unused variable: chicken.syntax#split-at 
o|removed side-effect free assignment to unused variable: chicken.syntax#append-map 
o|inlining procedure: k5304 
o|inlining procedure: k5304 
o|inlining procedure: k5335 
o|inlining procedure: k5335 
o|removed side-effect free assignment to unused variable: chicken.syntax#cons* 
o|removed side-effect free assignment to unused variable: chicken.syntax#concatenate 
o|removed side-effect free assignment to unused variable: chicken.syntax#first 
o|removed side-effect free assignment to unused variable: chicken.syntax#second 
o|removed side-effect free assignment to unused variable: chicken.syntax#third 
o|removed side-effect free assignment to unused variable: chicken.syntax#fourth 
o|removed side-effect free assignment to unused variable: chicken.syntax#fifth 
o|removed side-effect free assignment to unused variable: chicken.syntax#delete-duplicates 
o|inlining procedure: k5552 
o|inlining procedure: k5552 
o|inlining procedure: k5544 
o|inlining procedure: k5544 
o|removed side-effect free assignment to unused variable: chicken.syntax#filter-map 
o|removed side-effect free assignment to unused variable: chicken.syntax#remove 
o|removed side-effect free assignment to unused variable: chicken.syntax#unzip1 
o|removed side-effect free assignment to unused variable: chicken.syntax#last 
o|removed side-effect free assignment to unused variable: chicken.syntax#list-index 
o|removed side-effect free assignment to unused variable: chicken.syntax#lset-adjoin/eq? 
o|removed side-effect free assignment to unused variable: chicken.syntax#lset-difference/eq? 
o|removed side-effect free assignment to unused variable: chicken.syntax#lset-union/eq? 
o|removed side-effect free assignment to unused variable: chicken.syntax#lset-intersection/eq? 
o|inlining procedure: k5943 
o|inlining procedure: k5943 
o|removed side-effect free assignment to unused variable: chicken.syntax#lset<=/eq? 
o|removed side-effect free assignment to unused variable: chicken.syntax#lset=/eq? 
o|removed side-effect free assignment to unused variable: chicken.syntax#length+ 
o|removed side-effect free assignment to unused variable: chicken.syntax#find 
o|removed side-effect free assignment to unused variable: chicken.syntax#find-tail 
o|removed side-effect free assignment to unused variable: chicken.syntax#iota 
o|removed side-effect free assignment to unused variable: chicken.syntax#make-list 
o|removed side-effect free assignment to unused variable: chicken.syntax#posq 
o|removed side-effect free assignment to unused variable: chicken.syntax#posv 
o|inlining procedure: k6213 
o|inlining procedure: k6213 
o|contracted procedure: "(expand.scm:94) g826827" 
o|inlining procedure: k6230 
o|inlining procedure: k6230 
o|contracted procedure: "(expand.scm:104) g859860" 
o|contracted procedure: "(expand.scm:103) g854855" 
o|contracted procedure: "(expand.scm:102) g848849" 
o|contracted procedure: "(expand.scm:98) g836837" 
o|inlining procedure: k6286 
o|inlining procedure: k6286 
o|inlining procedure: k6298 
o|inlining procedure: k6317 
o|inlining procedure: k6317 
o|contracted procedure: "(expand.scm:118) g890891" 
o|contracted procedure: "(expand.scm:117) g879880" 
o|inlining procedure: k6298 
o|inlining procedure: k6366 
o|inlining procedure: k6388 
o|inlining procedure: k6388 
o|inlining procedure: k6366 
o|inlining procedure: k6465 
o|contracted procedure: "(expand.scm:143) g9911001" 
o|inlining procedure: k6465 
o|inlining procedure: k6513 
o|contracted procedure: "(expand.scm:138) g949957" 
o|contracted procedure: "(expand.scm:141) g967968" 
o|contracted procedure: "(expand.scm:140) g963964" 
o|inlining procedure: k6513 
o|inlining procedure: k6562 
o|inlining procedure: k6562 
o|inlining procedure: k6613 
o|inlining procedure: k6613 
o|inlining procedure: k6643 
o|inlining procedure: k6643 
o|inlining procedure: k6685 
o|inlining procedure: k6685 
o|inlining procedure: k6727 
o|inlining procedure: k6727 
o|inlining procedure: k6792 
o|inlining procedure: k6816 
o|inlining procedure: k6816 
o|inlining procedure: k6859 
o|inlining procedure: k6859 
o|inlining procedure: k6792 
o|inlining procedure: k6963 
o|inlining procedure: k6963 
o|inlining procedure: k6991 
o|inlining procedure: k7014 
o|inlining procedure: k7014 
o|inlining procedure: k7035 
o|inlining procedure: k7072 
o|inlining procedure: k7072 
o|inlining procedure: k7141 
o|contracted procedure: "(expand.scm:278) g11731182" 
o|inlining procedure: k7141 
o|inlining procedure: k7035 
o|inlining procedure: k7186 
o|inlining procedure: k7186 
o|inlining procedure: k7178 
o|inlining procedure: k7178 
o|inlining procedure: k7216 
o|contracted procedure: "(expand.scm:283) g12231224" 
o|inlining procedure: k7216 
o|inlining procedure: k7244 
o|inlining procedure: k7244 
o|inlining procedure: k6991 
o|inlining procedure: k7295 
o|inlining procedure: k7295 
o|inlining procedure: k7394 
o|inlining procedure: k7420 
o|inlining procedure: k7420 
o|substituted constant variable: a7427 
o|substituted constant variable: a7429 
o|substituted constant variable: a7431 
o|inlining procedure: k7394 
o|inlining procedure: k7466 
o|inlining procedure: k7483 
o|inlining procedure: k7483 
o|substituted constant variable: %let1327 
o|inlining procedure: k7526 
o|inlining procedure: k7526 
o|inlining procedure: k7579 
o|inlining procedure: k7579 
o|inlining procedure: k7591 
o|inlining procedure: k7591 
o|inlining procedure: k7651 
o|substituted constant variable: %lambda1324 
o|inlining procedure: k7651 
o|contracted procedure: "(expand.scm:360) ->keyword1318" 
o|inlining procedure: k7689 
o|inlining procedure: k7689 
o|inlining procedure: k7466 
o|inlining procedure: k7736 
o|inlining procedure: k7736 
o|inlining procedure: k7753 
o|inlining procedure: k7753 
o|inlining procedure: k7781 
o|inlining procedure: k7781 
o|inlining procedure: k7797 
o|inlining procedure: k7809 
o|inlining procedure: k7809 
o|inlining procedure: k7797 
o|inlining procedure: k7857 
o|inlining procedure: k7857 
o|inlining procedure: k7876 
o|inlining procedure: k7895 
o|inlining procedure: k7895 
o|substituted constant variable: a7933 
o|substituted constant variable: a7935 
o|substituted constant variable: a7937 
o|inlining procedure: k7876 
o|inlining procedure: k7944 
o|inlining procedure: k7944 
o|inlining procedure: k7966 
o|inlining procedure: k7966 
o|substituted constant variable: a7983 
o|substituted constant variable: a7985 
o|substituted constant variable: a7987 
o|inlining procedure: k7994 
o|inlining procedure: k7994 
o|substituted constant variable: a8010 
o|substituted constant variable: a8012 
o|substituted constant variable: a8014 
o|inlining procedure: k8018 
o|inlining procedure: k8018 
o|inlining procedure: k8098 
o|inlining procedure: k8098 
o|inlining procedure: k8120 
o|contracted procedure: "(expand.scm:451) g14871497" 
o|inlining procedure: k8120 
o|inlining procedure: k8186 
o|inlining procedure: k8186 
o|inlining procedure: k8245 
o|inlining procedure: k8245 
o|inlining procedure: k8302 
o|inlining procedure: k8317 
o|inlining procedure: k8317 
o|inlining procedure: k8302 
o|inlining procedure: k8377 
o|inlining procedure: k8389 
o|inlining procedure: k8389 
o|inlining procedure: k8412 
o|inlining procedure: k8412 
o|inlining procedure: k8463 
o|inlining procedure: k8481 
o|inlining procedure: k8481 
o|inlining procedure: k8463 
o|inlining procedure: k8538 
o|inlining procedure: k8538 
o|inlining procedure: k8570 
o|inlining procedure: k8585 
o|inlining procedure: k8585 
o|inlining procedure: k8597 
o|inlining procedure: k8597 
o|inlining procedure: k8570 
o|inlining procedure: k8377 
o|inlining procedure: k8688 
o|contracted procedure: "(expand.scm:545) g16901701" 
o|inlining procedure: k8660 
o|inlining procedure: k8660 
o|inlining procedure: k8688 
o|inlining procedure: k8738 
o|inlining procedure: k8738 
o|inlining procedure: k8750 
o|contracted procedure: "(expand.scm:537) g16421651" 
o|inlining procedure: k8750 
o|inlining procedure: k8784 
o|contracted procedure: "(expand.scm:540) g16581663" 
o|inlining procedure: k8784 
o|substituted constant variable: g16591662 
o|inlining procedure: k8824 
o|inlining procedure: k8851 
o|inlining procedure: k8851 
o|inlining procedure: k8824 
o|inlining procedure: k8891 
o|inlining procedure: "(expand.scm:573) chicken.syntax#defjam-error" 
o|inlining procedure: k8891 
o|inlining procedure: k8930 
o|inlining procedure: k8930 
o|substituted constant variable: a8952 
o|inlining procedure: k8979 
o|inlining procedure: k8979 
o|inlining procedure: k9007 
o|inlining procedure: k9025 
o|inlining procedure: k9053 
o|inlining procedure: k9053 
o|inlining procedure: "(expand.scm:599) chicken.syntax#defjam-error" 
o|inlining procedure: k9025 
o|inlining procedure: k9007 
o|inlining procedure: k9156 
o|inlining procedure: k9156 
o|inlining procedure: k9205 
o|inlining procedure: k9205 
o|inlining procedure: k9241 
o|inlining procedure: k9241 
o|inlining procedure: k9291 
o|inlining procedure: k9315 
o|inlining procedure: k9315 
o|inlining procedure: k9291 
o|inlining procedure: k9338 
o|inlining procedure: k9338 
o|inlining procedure: k9361 
o|inlining procedure: k9361 
o|inlining procedure: k9373 
o|inlining procedure: k9373 
o|inlining procedure: k9495 
o|inlining procedure: k9495 
o|inlining procedure: k9526 
o|inlining procedure: k9526 
o|inlining procedure: k9588 
o|inlining procedure: k9588 
o|inlining procedure: k9623 
o|inlining procedure: k9623 
o|contracted procedure: "(expand.scm:715) syntax-imports1874" 
o|inlining procedure: k9457 
o|inlining procedure: k9457 
o|inlining procedure: k9674 
o|inlining procedure: k9674 
o|inlining procedure: k9687 
o|inlining procedure: k9687 
o|inlining procedure: k9718 
o|inlining procedure: "(expand.scm:764) chicken.syntax#alist-weak-cons" 
o|propagated global variable: tmp19451947 ##sys#current-source-filename 
o|inlining procedure: k9747 
o|propagated global variable: tmp19451947 ##sys#current-source-filename 
o|inlining procedure: k9747 
o|inlining procedure: k9718 
o|substituted constant variable: a9785 
o|substituted constant variable: a9786 
o|inlining procedure: k9840 
o|inlining procedure: k9850 
o|inlining procedure: k9867 
o|inlining procedure: k9867 
o|inlining procedure: k9850 
o|inlining procedure: k9840 
o|inlining procedure: k9888 
o|inlining procedure: k9888 
o|inlining procedure: k9926 
o|inlining procedure: k9954 
o|inlining procedure: k9954 
o|propagated global variable: port2015 ##sys#standard-output 
o|inlining procedure: k9926 
o|inlining procedure: k9997 
o|inlining procedure: k9997 
o|inlining procedure: k10019 
o|inlining procedure: k10019 
o|inlining procedure: k10038 
o|inlining procedure: k10038 
o|contracted procedure: "(expand.scm:824) chicken.syntax#alist-cons" 
o|inlining procedure: k10093 
o|inlining procedure: k10093 
o|inlining procedure: k10112 
o|inlining procedure: k10112 
o|propagated global variable: sexp2099 ##sys#syntax-error-culprit 
o|inlining procedure: k10135 
o|inlining procedure: k10135 
o|inlining procedure: k10147 
o|inlining procedure: k10147 
o|inlining procedure: k10156 
o|inlining procedure: k10156 
o|inlining procedure: k10192 
o|inlining procedure: k10192 
o|inlining procedure: k10215 
o|inlining procedure: k10239 
o|inlining procedure: k10239 
o|inlining procedure: k10274 
o|inlining procedure: k10274 
o|inlining procedure: k10297 
o|inlining procedure: k10297 
o|inlining procedure: k10215 
o|inlining procedure: k10318 
o|inlining procedure: k10318 
o|inlining procedure: k10331 
o|inlining procedure: k10343 
o|inlining procedure: k10343 
o|inlining procedure: k10361 
o|inlining procedure: k10361 
o|inlining procedure: k10379 
o|inlining procedure: k10379 
o|inlining procedure: k10397 
o|inlining procedure: k10397 
o|inlining procedure: k10419 
o|inlining procedure: k10419 
o|substituted constant variable: a10432 
o|substituted constant variable: a10434 
o|substituted constant variable: a10436 
o|substituted constant variable: a10438 
o|substituted constant variable: a10440 
o|substituted constant variable: a10442 
o|substituted constant variable: a10444 
o|substituted constant variable: a10446 
o|inlining procedure: k10331 
o|inlining procedure: k10456 
o|inlining procedure: k10456 
o|inlining procedure: k10534 
o|inlining procedure: k10546 
o|inlining procedure: k10558 
o|inlining procedure: k10558 
o|inlining procedure: "(expand.scm:929) chicken.syntax#alist-weak-cons" 
o|inlining procedure: k10546 
o|inlining procedure: k10534 
o|inlining procedure: k10580 
o|inlining procedure: k10580 
o|inlining procedure: k10622 
o|inlining procedure: k10622 
o|contracted procedure: "(expand.scm:933) g22092210" 
o|inlining procedure: k10666 
o|inlining procedure: k10681 
o|inlining procedure: k10681 
o|inlining procedure: k10666 
o|inlining procedure: k10704 
o|inlining procedure: k10725 
o|inlining procedure: k10725 
o|inlining procedure: k10704 
o|inlining procedure: k10762 
o|inlining procedure: k10790 
o|inlining procedure: k10790 
o|inlining procedure: k10821 
o|inlining procedure: k10821 
o|inlining procedure: k10855 
o|inlining procedure: k10855 
o|removed unused parameter to known procedure: n2288 "(expand.scm:966) lookup22199" 
o|contracted procedure: "(expand.scm:965) g22562257" 
o|inlining procedure: k10861 
o|inlining procedure: k10861 
o|removed unused parameter to known procedure: n2288 "(expand.scm:963) lookup22199" 
o|contracted procedure: "(expand.scm:962) g22462247" 
o|inlining procedure: k10762 
o|removed unused formal parameters: (n2288) 
o|inlining procedure: k10885 
o|inlining procedure: k10885 
o|inlining procedure: k10910 
o|inlining procedure: k10910 
o|inlining procedure: k10952 
o|inlining procedure: k10952 
o|contracted procedure: "(expand.scm:1003) g23132314" 
o|inlining procedure: k10978 
o|inlining procedure: k10978 
o|inlining procedure: k11007 
o|contracted procedure: "(expand.scm:1003) g23302331" 
o|inlining procedure: k11007 
o|contracted procedure: "(expand.scm:1010) g23262327" 
o|inlining procedure: k11028 
o|inlining procedure: k11028 
o|inlining procedure: k11110 
o|inlining procedure: k11110 
o|inlining procedure: k11123 
o|inlining procedure: k11139 
o|inlining procedure: k11139 
o|inlining procedure: "(expand.scm:1111) file-exists?2553" 
o|inlining procedure: "(expand.scm:1110) file-exists?2553" 
o|inlining procedure: k11123 
o|inlining procedure: k11158 
o|inlining procedure: k11158 
o|inlining procedure: k11187 
o|inlining procedure: k11199 
o|inlining procedure: k11199 
o|inlining procedure: k11187 
o|inlining procedure: k11231 
o|inlining procedure: k11246 
o|inlining procedure: k11246 
o|inlining procedure: k11231 
o|inlining procedure: k11267 
o|inlining procedure: k11267 
o|inlining procedure: k11290 
o|inlining procedure: k11290 
o|substituted constant variable: a11322 
o|substituted constant variable: a11324 
o|substituted constant variable: a11326 
o|substituted constant variable: a11328 
o|inlining procedure: k11339 
o|inlining procedure: k11366 
o|contracted procedure: "(expand.scm:1143) g26172626" 
o|inlining procedure: k11366 
o|inlining procedure: k11339 
o|inlining procedure: k11410 
o|inlining procedure: k11410 
o|inlining procedure: k11429 
o|inlining procedure: k11429 
o|inlining procedure: k11438 
o|inlining procedure: k11438 
o|inlining procedure: k11587 
o|inlining procedure: k11587 
o|inlining procedure: k11623 
o|inlining procedure: k11623 
o|inlining procedure: k11649 
o|inlining procedure: k11649 
o|contracted procedure: "(synrules.scm:55) chicken.internal.syntax-rules#process-syntax-rules" 
o|removed side-effect free assignment to unused variable: %length3613 
o|removed side-effect free assignment to unused variable: %vector-length3615 
o|removed side-effect free assignment to unused variable: %vector-ref3616 
o|removed side-effect free assignment to unused variable: %null?3637 
o|removed side-effect free assignment to unused variable: %or3638 
o|removed side-effect free assignment to unused variable: %syntax-error3644 
o|inlining procedure: k11843 
o|inlining procedure: k11843 
o|inlining procedure: k11885 
o|inlining procedure: k11885 
o|inlining procedure: k11933 
o|inlining procedure: k11933 
o|inlining procedure: k11951 
o|inlining procedure: k11951 
o|inlining procedure: k11987 
o|inlining procedure: k11987 
o|inlining procedure: k12089 
o|inlining procedure: k12089 
o|inlining procedure: k12123 
o|inlining procedure: k12123 
o|inlining procedure: k12244 
o|inlining procedure: k12270 
o|inlining procedure: k12270 
o|inlining procedure: k12244 
o|inlining procedure: k12316 
o|inlining procedure: k12316 
o|inlining procedure: k12351 
o|inlining procedure: k12351 
o|inlining procedure: k12400 
o|inlining procedure: k12412 
o|inlining procedure: k12412 
o|inlining procedure: k12400 
o|inlining procedure: k12438 
o|inlining procedure: k12438 
o|inlining procedure: k12475 
o|inlining procedure: k12508 
o|inlining procedure: k12508 
o|substituted constant variable: %append3608 
o|inlining procedure: k12532 
o|inlining procedure: k12532 
o|substituted constant variable: %apply3609 
o|substituted constant variable: %append3608 
o|inlining procedure: k12566 
o|inlining procedure: k12566 
o|inlining procedure: k12475 
o|inlining procedure: k12612 
o|inlining procedure: k12612 
o|inlining procedure: k12638 
o|inlining procedure: k12660 
o|inlining procedure: k12660 
o|inlining procedure: k12638 
o|inlining procedure: k12691 
o|inlining procedure: k12691 
o|inlining procedure: k12724 
o|inlining procedure: k12745 
o|inlining procedure: k12745 
o|inlining procedure: k12724 
o|inlining procedure: k12780 
o|inlining procedure: k12780 
o|inlining procedure: k12813 
o|inlining procedure: k12813 
o|inlining procedure: k12827 
o|inlining procedure: k12827 
o|inlining procedure: k12842 
o|inlining procedure: k12842 
o|inlining procedure: k12869 
o|inlining procedure: k12869 
o|inlining procedure: k12899 
o|inlining procedure: k12899 
o|inlining procedure: k13066 
o|inlining procedure: k13066 
o|inlining procedure: k13096 
o|inlining procedure: k13096 
o|inlining procedure: k13150 
o|inlining procedure: k13150 
o|inlining procedure: k13232 
o|inlining procedure: k13232 
o|inlining procedure: k13266 
o|inlining procedure: k13266 
o|inlining procedure: k13305 
o|contracted procedure: "(expand.scm:1819) g35383539" 
o|inlining procedure: k13305 
o|inlining procedure: k13445 
o|contracted procedure: "(expand.scm:1776) g34413450" 
o|inlining procedure: k13415 
o|inlining procedure: k13415 
o|inlining procedure: k13445 
o|inlining procedure: k13495 
o|contracted procedure: "(expand.scm:1765) g34073416" 
o|inlining procedure: k13495 
o|inlining procedure: k13547 
o|inlining procedure: k13547 
o|inlining procedure: k13621 
o|inlining procedure: k13621 
o|inlining procedure: k13647 
o|inlining procedure: k13665 
o|inlining procedure: k13665 
o|inlining procedure: k13647 
o|inlining procedure: k13770 
o|inlining procedure: k13770 
o|inlining procedure: k13838 
o|inlining procedure: k13838 
o|substituted constant variable: a13865 
o|substituted constant variable: a13866 
o|inlining procedure: k13883 
o|inlining procedure: k13910 
o|inlining procedure: k13910 
o|inlining procedure: k13883 
o|inlining procedure: k13972 
o|inlining procedure: k13972 
o|inlining procedure: k14108 
o|inlining procedure: k14108 
o|inlining procedure: k14120 
o|inlining procedure: k14120 
o|inlining procedure: k14132 
o|inlining procedure: k14132 
o|inlining procedure: k14144 
o|inlining procedure: k14144 
o|inlining procedure: k14156 
o|inlining procedure: k14156 
o|inlining procedure: k14214 
o|inlining procedure: k14214 
o|inlining procedure: k14266 
o|inlining procedure: k14266 
o|inlining procedure: k14309 
o|inlining procedure: k14309 
o|inlining procedure: "(expand.scm:1544) chicken.syntax#defjam-error" 
o|contracted procedure: "(expand.scm:1541) g31183119" 
o|inlining procedure: k14523 
o|inlining procedure: k14558 
o|inlining procedure: k14558 
o|inlining procedure: "(expand.scm:1519) chicken.syntax#defjam-error" 
o|contracted procedure: "(expand.scm:1516) g30893090" 
o|inlining procedure: k14523 
o|inlining procedure: k14710 
o|inlining procedure: k14710 
o|inlining procedure: k14759 
o|inlining procedure: k14759 
o|inlining procedure: k14774 
o|inlining procedure: k14774 
o|inlining procedure: k14880 
o|inlining procedure: k14880 
o|inlining procedure: k14895 
o|inlining procedure: k14907 
o|inlining procedure: k14907 
o|substituted constant variable: a14924 
o|inlining procedure: k14895 
o|inlining procedure: k14940 
o|inlining procedure: k14940 
o|propagated global variable: g29632964 ##sys#expand-import 
o|inlining procedure: k15064 
o|inlining procedure: k15064 
o|inlining procedure: k15073 
o|contracted procedure: "(expand.scm:1376) g29272936" 
o|inlining procedure: k14997 
o|inlining procedure: k14997 
o|inlining procedure: k15020 
o|inlining procedure: k15032 
o|inlining procedure: k15032 
o|inlining procedure: k15020 
o|inlining procedure: k15073 
o|inlining procedure: k15121 
o|inlining procedure: k15121 
o|inlining procedure: k15190 
o|inlining procedure: k15190 
o|inlining procedure: k15218 
o|inlining procedure: k15218 
o|substituted constant variable: a15231 
o|inlining procedure: k15243 
o|inlining procedure: k15243 
o|inlining procedure: k15292 
o|inlining procedure: k15292 
o|inlining procedure: k15317 
o|inlining procedure: k15317 
o|inlining procedure: k15354 
o|inlining procedure: k15379 
o|inlining procedure: k15379 
o|inlining procedure: k15354 
o|inlining procedure: k15449 
o|substituted constant variable: name2830 
o|inlining procedure: k15449 
o|substituted constant variable: name2830 
o|inlining procedure: k15471 
o|inlining procedure: k15471 
o|inlining procedure: k15509 
o|inlining procedure: k15509 
o|inlining procedure: k15528 
o|inlining procedure: k15528 
o|inlining procedure: k15571 
o|contracted procedure: "(expand.scm:1320) parse-imports2707" 
o|inlining procedure: k15571 
o|inlining procedure: k15615 
o|inlining procedure: k15615 
o|inlining procedure: k15656 
o|inlining procedure: k15656 
o|inlining procedure: k15698 
o|inlining procedure: k15698 
o|inlining procedure: "(expand.scm:1345) fail2712" 
o|substituted constant variable: a15734 
o|substituted constant variable: a15736 
o|substituted constant variable: a15738 
o|substituted constant variable: a15740 
o|substituted constant variable: a15742 
o|substituted constant variable: a15744 
o|substituted constant variable: a15746 
o|substituted constant variable: a15748 
o|substituted constant variable: a15750 
o|substituted constant variable: a15752 
o|inlining procedure: "(expand.scm:1346) fail2712" 
o|contracted procedure: "(expand.scm:1257) register-r7rs-module2695" 
o|inlining procedure: k15872 
o|inlining procedure: k15872 
o|inlining procedure: k15969 
o|inlining procedure: k15969 
o|inlining procedure: k15989 
o|inlining procedure: k15989 
o|inlining procedure: k16117 
o|inlining procedure: k16117 
o|inlining procedure: k16160 
o|inlining procedure: k16160 
o|propagated global variable: g24712472 ##sys#expand-import 
o|propagated global variable: g24572458 ##sys#expand-import 
o|replaced variables: 2861 
o|removed binding forms: 611 
o|removed side-effect free assignment to unused variable: chicken.syntax#every 
o|removed side-effect free assignment to unused variable: chicken.syntax#any 
o|removed side-effect free assignment to unused variable: chicken.syntax#filter 
o|removed side-effect free assignment to unused variable: chicken.syntax#list-tabulate 
o|substituted constant variable: prop829 
o|removed call to pure procedure with unused result: "(expand.scm:105) chicken.base#void" 
o|substituted constant variable: prop862 
o|substituted constant variable: prop857 
o|substituted constant variable: prop851 
o|substituted constant variable: prop893 
o|substituted constant variable: prop882 
o|substituted constant variable: prop970 
o|inlining procedure: k6435 
o|inlining procedure: k6435 
o|substituted constant variable: prop966 
o|substituted constant variable: r672816247 
o|substituted constant variable: r681716251 
o|substituted constant variable: r686016254 
o|removed call to pure procedure with unused result: "(expand.scm:238) chicken.base#void" 
o|removed call to pure procedure with unused result: "(expand.scm:197) chicken.base#void" 
o|removed call to pure procedure with unused result: "(expand.scm:196) chicken.base#void" 
o|removed call to pure procedure with unused result: "(expand.scm:241) chicken.base#void" 
o|inlining procedure: k7195 
o|substituted constant variable: prop1226 
o|substituted constant variable: r721716273 
o|substituted constant variable: r739516284 
o|substituted constant variable: r759216297 
o|substituted constant variable: r765216300 
o|substituted constant variable: r765216300 
o|substituted constant variable: r799516326 
o|substituted constant variable: r801916328 
o|converted assignments to bindings: (err1317) 
o|removed side-effect free assignment to unused variable: chicken.syntax#defjam-error 
o|substituted constant variable: r809916329 
o|substituted constant variable: r809916329 
o|inlining procedure: k8098 
o|substituted constant variable: r824616338 
o|substituted constant variable: r831816341 
o|substituted constant variable: r830316342 
o|substituted constant variable: r853916355 
o|substituted constant variable: r857116361 
o|removed call to pure procedure with unused result: "(expand.scm:556) chicken.base#void" 
o|substituted constant variable: r873916368 
o|substituted constant variable: r893116385 
o|substituted constant variable: r905416392 
o|substituted constant variable: r905416392 
o|substituted constant variable: r924216406 
o|removed call to pure procedure with unused result: "(expand.scm:582) chicken.base#void" 
o|substituted constant variable: r931616408 
o|substituted constant variable: r933916412 
o|substituted constant variable: r936216414 
o|substituted constant variable: r962416423 
o|substituted constant variable: r945816425 
o|converted assignments to bindings: (outstr1887) 
o|removed side-effect free assignment to unused variable: chicken.syntax#alist-weak-cons 
o|substituted constant variable: r967516427 
o|propagated global variable: r974816440 ##sys#current-source-filename 
o|substituted constant variable: r974816442 
o|substituted constant variable: r974816442 
o|substituted constant variable: r986816449 
o|substituted constant variable: r985116450 
o|substituted constant variable: r984116451 
o|substituted constant variable: r1015716475 
o|substituted constant variable: r1029816484 
o|inlining procedure: k10534 
o|inlining procedure: k10534 
o|inlining procedure: k10534 
o|substituted constant variable: r1054716516 
o|inlining procedure: k10534 
o|removed call to pure procedure with unused result: "(expand.scm:940) chicken.base#void" 
o|removed call to pure procedure with unused result: "(expand.scm:944) chicken.base#void" 
o|removed call to pure procedure with unused result: "(expand.scm:979) chicken.base#void" 
o|inlining procedure: k10666 
o|substituted constant variable: r1068216530 
o|inlining procedure: k10666 
o|inlining procedure: k10666 
o|inlining procedure: k10666 
o|substituted constant variable: r1070516540 
o|inlining procedure: k10666 
o|inlining procedure: k10666 
o|substituted constant variable: prop2259 
o|substituted constant variable: prop2249 
o|removed call to pure procedure with unused result: "(expand.scm:983) chicken.base#void" 
o|substituted constant variable: r1088616551 
o|removed call to pure procedure with unused result: "(expand.scm:1005) chicken.base#void" 
o|removed call to pure procedure with unused result: "(expand.scm:1007) chicken.base#void" 
o|removed call to pure procedure with unused result: "(expand.scm:1009) chicken.base#void" 
o|removed call to pure procedure with unused result: "(expand.scm:1012) chicken.base#void" 
o|removed call to pure procedure with unused result: "(expand.scm:1017) chicken.base#void" 
o|substituted constant variable: prop2329 
o|converted assignments to bindings: (inherit-pair-line-numbers2182) 
o|removed side-effect free assignment to unused variable: file-exists?2553 
o|substituted constant variable: r1123216588 
o|contracted procedure: "(expand.scm:1136) locate-library2554" 
o|substituted constant variable: r1112416578 
o|substituted constant variable: r1143016599 
o|substituted constant variable: r1158816604 
o|removed side-effect free assignment to unused variable: %append3608 
o|removed side-effect free assignment to unused variable: %apply3609 
o|substituted constant variable: r1193416614 
o|substituted constant variable: r7ext3607 
o|substituted constant variable: r1227116625 
o|substituted constant variable: r1256716645 
o|substituted constant variable: r7ext3607 
o|substituted constant variable: r7ext3607 
o|substituted constant variable: r1266116651 
o|substituted constant variable: r1274616657 
o|substituted constant variable: r1281416662 
o|substituted constant variable: r1282816664 
o|substituted constant variable: r7ext3607 
o|substituted constant variable: r1284316666 
o|substituted constant variable: r1287016668 
o|substituted constant variable: r7ext3607 
o|substituted constant variable: r1362216691 
o|substituted constant variable: r1383916699 
o|substituted constant variable: r1421516717 
o|substituted constant variable: r1426716719 
o|inlining procedure: k14482 
o|substituted constant variable: prop3121 
o|substituted constant variable: r1455916731 
o|substituted constant variable: r1455916731 
o|substituted constant variable: prop3092 
o|substituted constant variable: r1471116740 
o|substituted constant variable: r1476016741 
o|substituted constant variable: r1476016741 
o|substituted constant variable: r1490816759 
o|substituted constant variable: r1489616760 
o|substituted constant variable: r1503316772 
o|substituted constant variable: r1502116773 
o|substituted constant variable: r1521916782 
o|substituted constant variable: r1545016794 
o|removed side-effect free assignment to unused variable: fail2712 
o|substituted constant variable: r1551016797 
o|converted assignments to bindings: (implicit-r7rs-library-bindings2696) 
o|substituted constant variable: r1599016826 
o|substituted constant variable: r1611816827 
o|simplifications: ((let . 4)) 
o|replaced variables: 223 
o|removed binding forms: 2333 
o|removed conditional forms: 5 
o|inlining procedure: k6221 
o|contracted procedure: k6266 
o|substituted constant variable: prop97016845 
o|substituted constant variable: prop97016851 
o|contracted procedure: k6761 
o|contracted procedure: k6764 
o|contracted procedure: k6895 
o|contracted procedure: k6960 
o|inlining procedure: k7409 
o|inlining procedure: k7409 
o|inlining procedure: k7745 
o|inlining procedure: k7745 
o|contracted procedure: k8610 
o|contracted procedure: k8976 
o|propagated global variable: r974816440 ##sys#current-source-filename 
o|contracted procedure: k10636 
o|contracted procedure: k10648 
o|contracted procedure: k10669 
o|substituted constant variable: r1066716982 
o|removed call to pure procedure with unused result: "(expand.scm:979) chicken.base#void" 
o|substituted constant variable: r1066716987 
o|removed call to pure procedure with unused result: "(expand.scm:979) chicken.base#void" 
o|substituted constant variable: r1066716996 
o|removed call to pure procedure with unused result: "(expand.scm:979) chicken.base#void" 
o|substituted constant variable: r1066717001 
o|removed call to pure procedure with unused result: "(expand.scm:979) chicken.base#void" 
o|substituted constant variable: r1066717006 
o|removed call to pure procedure with unused result: "(expand.scm:979) chicken.base#void" 
o|substituted constant variable: r1066717011 
o|removed call to pure procedure with unused result: "(expand.scm:979) chicken.base#void" 
o|contracted procedure: k10879 
o|contracted procedure: k10969 
o|contracted procedure: k10984 
o|contracted procedure: k10996 
o|contracted procedure: k11012 
o|contracted procedure: k11021 
o|inlining procedure: k12733 
o|inlining procedure: k12733 
o|contracted procedure: k12854 
o|contracted procedure: k12915 
o|inlining procedure: k13466 
o|inlining procedure: k16135 
o|replaced variables: 11 
o|removed binding forms: 314 
o|contracted procedure: k6250 
o|contracted procedure: k6258 
o|contracted procedure: k6263 
o|contracted procedure: k6306 
o|contracted procedure: k6311 
o|contracted procedure: k6426 
o|inlining procedure: k6892 
o|substituted constant variable: r809916899 
o|contracted procedure: k1066916986 
o|contracted procedure: k1066916991 
o|contracted procedure: k1066917000 
o|contracted procedure: k1066917005 
o|contracted procedure: k10770 
o|contracted procedure: k10778 
o|contracted procedure: k1066917010 
o|contracted procedure: k1066917015 
o|inlining procedure: "(expand.scm:966) lookup22199" 
o|inlining procedure: "(expand.scm:963) lookup22199" 
o|contracted procedure: k11004 
o|substituted constant variable: r1273417193 
o|substituted constant variable: r1273417194 
o|contracted procedure: k14473 
o|contracted procedure: k14534 
o|contracted procedure: k15179 
o|substituted constant variable: r1613617224 
o|replaced variables: 5 
o|removed binding forms: 57 
o|removed conditional forms: 3 
o|inlining procedure: k6253 
o|inlining procedure: k6253 
o|removed side-effect free assignment to unused variable: lookup22199 
o|replaced variables: 17 
o|removed binding forms: 19 
o|inlining procedure: k10852 
o|inlining procedure: k10858 
o|replaced variables: 4 
o|removed binding forms: 13 
o|removed binding forms: 4 
o|simplifications: ((let . 100) (if . 68) (##core#call . 1258)) 
o|  call simplifications:
o|    scheme#cdddr
o|    scheme#cddddr
o|    scheme#string
o|    scheme#number?
o|    scheme#eof-object?
o|    chicken.base#bwp-object?
o|    scheme#cadddr	2
o|    chicken.fixnum#fx-	2
o|    scheme#>=
o|    scheme#=
o|    scheme#<=
o|    scheme#boolean?
o|    scheme#char?	2
o|    scheme#+	4
o|    scheme#>	2
o|    scheme#-	3
o|    scheme#cdar	2
o|    ##sys#immediate?
o|    scheme#vector-ref	5
o|    chicken.fixnum#fx<	2
o|    scheme#set-cdr!
o|    chicken.fixnum#fx=	7
o|    scheme#apply	3
o|    scheme#memq	5
o|    scheme#member
o|    scheme#caddr	16
o|    scheme#length	8
o|    scheme#list?	8
o|    chicken.fixnum#fx<=	2
o|    chicken.fixnum#fx>	4
o|    scheme#list-ref
o|    scheme#cddr	14
o|    ##sys#list	199
o|    ##sys#cons	100
o|    scheme#cadr	40
o|    scheme#values	11
o|    ##sys#call-with-values	4
o|    ##sys#apply	2
o|    scheme#memv
o|    scheme#equal?	2
o|    scheme#string?	4
o|    ##sys#make-structure	2
o|    scheme#caar	6
o|    scheme#eq?	91
o|    scheme#list	16
o|    scheme#set-car!	2
o|    ##sys#structure?	2
o|    scheme#null?	59
o|    scheme#car	85
o|    ##sys#check-list	19
o|    scheme#assq	13
o|    scheme#symbol?	51
o|    scheme#vector?	13
o|    ##sys#size	4
o|    chicken.fixnum#fx>=	5
o|    ##sys#slot	87
o|    chicken.fixnum#fx+	4
o|    scheme#cons	98
o|    ##sys#setslot	25
o|    scheme#not	42
o|    scheme#pair?	106
o|    scheme#cdr	60
o|contracted procedure: k6236 
o|contracted procedure: k6245 
o|contracted procedure: k6283 
o|contracted procedure: k6301 
o|contracted procedure: k6320 
o|contracted procedure: k6326 
o|contracted procedure: k6332 
o|contracted procedure: k6335 
o|contracted procedure: k6363 
o|contracted procedure: k6339 
o|contracted procedure: k6342 
o|contracted procedure: k6345 
o|contracted procedure: k6369 
o|contracted procedure: k6372 
o|contracted procedure: k6413 
o|contracted procedure: k6379 
o|contracted procedure: k6391 
o|contracted procedure: k6394 
o|contracted procedure: k6401 
o|contracted procedure: k6409 
o|contracted procedure: k6438 
o|contracted procedure: k6441 
o|contracted procedure: k6451 
o|contracted procedure: k6504 
o|contracted procedure: k6468 
o|contracted procedure: k6494 
o|contracted procedure: k6498 
o|contracted procedure: k6490 
o|contracted procedure: k6471 
o|contracted procedure: k6474 
o|contracted procedure: k6482 
o|contracted procedure: k6486 
o|contracted procedure: k6541 
o|contracted procedure: k6516 
o|contracted procedure: k6534 
o|contracted procedure: k6538 
o|contracted procedure: k6519 
o|contracted procedure: k6526 
o|contracted procedure: k6530 
o|contracted procedure: k6547 
o|contracted procedure: k6550 
o|contracted procedure: k6553 
o|contracted procedure: k6565 
o|contracted procedure: k6568 
o|contracted procedure: k6571 
o|contracted procedure: k6579 
o|contracted procedure: k6587 
o|contracted procedure: k6625 
o|contracted procedure: k6610 
o|contracted procedure: k6616 
o|contracted procedure: k6648 
o|contracted procedure: k6651 
o|contracted procedure: k6659 
o|contracted procedure: k6670 
o|contracted procedure: k6666 
o|contracted procedure: k6682 
o|contracted procedure: k6701 
o|contracted procedure: k6730 
o|contracted procedure: k6752 
o|contracted procedure: k6736 
o|contracted procedure: k6802 
o|contracted procedure: k6792 
o|contracted procedure: k6810 
o|contracted procedure: k6819 
o|contracted procedure: k6822 
o|contracted procedure: k6836 
o|contracted procedure: k6850 
o|contracted procedure: k6856 
o|contracted procedure: k6862 
o|contracted procedure: k6870 
o|contracted procedure: k6877 
o|contracted procedure: k6915 
o|contracted procedure: k6901 
o|contracted procedure: k6966 
o|contracted procedure: k6977 
o|contracted procedure: k6994 
o|contracted procedure: k7002 
o|contracted procedure: k7008 
o|contracted procedure: k7026 
o|contracted procedure: k7032 
o|contracted procedure: k7038 
o|contracted procedure: k7044 
o|contracted procedure: k7120 
o|contracted procedure: k7128 
o|contracted procedure: k7135 
o|contracted procedure: k7116 
o|contracted procedure: k7112 
o|contracted procedure: k7108 
o|contracted procedure: k7104 
o|contracted procedure: k7059 
o|contracted procedure: k7063 
o|contracted procedure: k7055 
o|contracted procedure: k7051 
o|contracted procedure: k7075 
o|contracted procedure: k7097 
o|contracted procedure: k7093 
o|contracted procedure: k7078 
o|contracted procedure: k7081 
o|contracted procedure: k7089 
o|contracted procedure: k7144 
o|contracted procedure: k7166 
o|contracted procedure: k7162 
o|contracted procedure: k7147 
o|contracted procedure: k7150 
o|contracted procedure: k7158 
o|contracted procedure: k7189 
o|contracted procedure: k7205 
o|contracted procedure: k7219 
o|contracted procedure: k7227 
o|contracted procedure: k7237 
o|contracted procedure: k7313 
o|contracted procedure: k7268 
o|contracted procedure: k7307 
o|contracted procedure: k7271 
o|contracted procedure: k7301 
o|contracted procedure: k7274 
o|contracted procedure: k7319 
o|contracted procedure: k7370 
o|contracted procedure: k7334 
o|contracted procedure: k7364 
o|contracted procedure: k7337 
o|contracted procedure: k7358 
o|contracted procedure: k7340 
o|contracted procedure: k7376 
o|contracted procedure: k7397 
o|contracted procedure: k7400 
o|contracted procedure: k7406 
o|contracted procedure: k7417 
o|contracted procedure: k7409 
o|contracted procedure: k7469 
o|contracted procedure: k7486 
o|contracted procedure: k7515 
o|contracted procedure: k7519 
o|contracted procedure: k7511 
o|contracted procedure: k7507 
o|contracted procedure: k7503 
o|contracted procedure: k7499 
o|inlining procedure: k7483 
o|contracted procedure: k7582 
o|contracted procedure: k7529 
o|contracted procedure: k7544 
o|contracted procedure: k7540 
o|contracted procedure: k7536 
o|inlining procedure: k7483 
o|contracted procedure: k7563 
o|contracted procedure: k7559 
o|contracted procedure: k7555 
o|inlining procedure: k7483 
o|inlining procedure: k7575 
o|inlining procedure: k7575 
o|contracted procedure: k7588 
o|contracted procedure: k7594 
o|contracted procedure: k7601 
o|contracted procedure: k7604 
o|contracted procedure: k7619 
o|contracted procedure: k7624 
o|contracted procedure: k7639 
o|contracted procedure: k7635 
o|contracted procedure: k7631 
o|contracted procedure: k7647 
o|contracted procedure: k7654 
o|contracted procedure: k7665 
o|contracted procedure: k7661 
o|contracted procedure: k7651 
o|contracted procedure: k7615 
o|contracted procedure: k7611 
o|contracted procedure: k7692 
o|contracted procedure: k7695 
o|contracted procedure: k7698 
o|contracted procedure: k7706 
o|contracted procedure: k7714 
o|contracted procedure: k7733 
o|contracted procedure: k7739 
o|contracted procedure: k8032 
o|contracted procedure: k7756 
o|contracted procedure: k7762 
o|contracted procedure: k7768 
o|contracted procedure: k7775 
o|contracted procedure: k7784 
o|contracted procedure: k7800 
o|contracted procedure: k7806 
o|contracted procedure: k7837 
o|contracted procedure: k7812 
o|contracted procedure: k7819 
o|contracted procedure: k7827 
o|contracted procedure: k7831 
o|contracted procedure: k7851 
o|contracted procedure: k7860 
o|contracted procedure: k7869 
o|contracted procedure: k7879 
o|contracted procedure: k7885 
o|contracted procedure: k7892 
o|contracted procedure: k7898 
o|contracted procedure: k7909 
o|contracted procedure: k7905 
o|contracted procedure: k7915 
o|contracted procedure: k7929 
o|contracted procedure: k7925 
o|contracted procedure: k7947 
o|contracted procedure: k7956 
o|contracted procedure: k7963 
o|contracted procedure: k7969 
o|contracted procedure: k7979 
o|contracted procedure: k7991 
o|contracted procedure: k7997 
o|contracted procedure: k8004 
o|contracted procedure: k8015 
o|contracted procedure: k8028 
o|contracted procedure: k8021 
o|contracted procedure: k8060 
o|contracted procedure: k8068 
o|contracted procedure: k8064 
o|contracted procedure: k8080 
o|contracted procedure: k8088 
o|contracted procedure: k8091 
o|contracted procedure: k8101 
o|contracted procedure: k8107 
o|contracted procedure: k8114 
o|contracted procedure: k8098 
o|contracted procedure: k8159 
o|contracted procedure: k8123 
o|contracted procedure: k8149 
o|contracted procedure: k8153 
o|contracted procedure: k8145 
o|contracted procedure: k8126 
o|contracted procedure: k8129 
o|contracted procedure: k8137 
o|contracted procedure: k8141 
o|contracted procedure: k8165 
o|contracted procedure: k8171 
o|contracted procedure: k8174 
o|contracted procedure: k8177 
o|contracted procedure: k8189 
o|contracted procedure: k8192 
o|contracted procedure: k8195 
o|contracted procedure: k8203 
o|contracted procedure: k8211 
o|contracted procedure: k9270 
o|contracted procedure: k8227 
o|contracted procedure: k9264 
o|contracted procedure: k8230 
o|contracted procedure: k9258 
o|contracted procedure: k8233 
o|contracted procedure: k8275 
o|contracted procedure: k8248 
o|contracted procedure: k8254 
o|contracted procedure: k8267 
o|contracted procedure: k8348 
o|contracted procedure: k8305 
o|contracted procedure: k8311 
o|contracted procedure: k8320 
o|contracted procedure: k8333 
o|contracted procedure: k8326 
o|contracted procedure: k8340 
o|contracted procedure: k8805 
o|contracted procedure: k8380 
o|contracted procedure: k8604 
o|contracted procedure: k8392 
o|contracted procedure: k8408 
o|contracted procedure: k8428 
o|contracted procedure: k8443 
o|contracted procedure: k8451 
o|contracted procedure: k8460 
o|contracted procedure: k8490 
o|inlining procedure: k8481 
o|contracted procedure: k8504 
o|contracted procedure: k8500 
o|inlining procedure: k8481 
o|contracted procedure: k8511 
o|inlining procedure: k8481 
o|contracted procedure: k8521 
o|contracted procedure: k8525 
o|contracted procedure: k8532 
o|contracted procedure: k8535 
o|contracted procedure: k8541 
o|contracted procedure: k8563 
o|contracted procedure: k8566 
o|contracted procedure: k8573 
o|contracted procedure: k8618 
o|contracted procedure: k8644 
o|contracted procedure: k8614 
o|contracted procedure: k8655 
o|contracted procedure: k8694 
o|contracted procedure: k8697 
o|contracted procedure: k8705 
o|contracted procedure: k8709 
o|contracted procedure: k8713 
o|contracted procedure: k8721 
o|contracted procedure: k8725 
o|contracted procedure: k8729 
o|contracted procedure: k8670 
o|contracted procedure: k8735 
o|contracted procedure: k8741 
o|contracted procedure: k8753 
o|contracted procedure: k8775 
o|contracted procedure: k8771 
o|contracted procedure: k8756 
o|contracted procedure: k8759 
o|contracted procedure: k8767 
o|contracted procedure: k8787 
o|contracted procedure: k8794 
o|contracted procedure: k8802 
o|contracted procedure: k8839 
o|contracted procedure: k8835 
o|contracted procedure: k8831 
o|contracted procedure: k8854 
o|contracted procedure: k8876 
o|contracted procedure: k8872 
o|contracted procedure: k8857 
o|contracted procedure: k8860 
o|contracted procedure: k8868 
o|contracted procedure: k8964 
o|contracted procedure: k8885 
o|contracted procedure: k8907 
o|contracted procedure: k8917 
o|contracted procedure: k8921 
o|contracted procedure: k8910 
o|contracted procedure: k8960 
o|contracted procedure: k8927 
o|contracted procedure: k8954 
o|contracted procedure: k8933 
o|contracted procedure: k8949 
o|contracted procedure: k8939 
o|contracted procedure: k9252 
o|contracted procedure: k8982 
o|contracted procedure: k8988 
o|contracted procedure: k9247 
o|contracted procedure: k8992 
o|contracted procedure: k9238 
o|contracted procedure: k9001 
o|contracted procedure: k9022 
o|contracted procedure: k9141 
o|contracted procedure: k9028 
o|contracted procedure: k9067 
o|contracted procedure: k9041 
o|contracted procedure: k9049 
o|contracted procedure: k9063 
o|contracted procedure: k9056 
o|contracted procedure: k9053 
o|contracted procedure: k9070 
o|contracted procedure: k9137 
o|contracted procedure: k9081 
o|contracted procedure: k9095 
o|contracted procedure: k9131 
o|contracted procedure: k9105 
o|contracted procedure: k9127 
o|contracted procedure: k9121 
o|contracted procedure: k9117 
o|contracted procedure: k9109 
o|contracted procedure: k9113 
o|contracted procedure: k9185 
o|contracted procedure: k9169 
o|contracted procedure: k9181 
o|contracted procedure: k9173 
o|contracted procedure: k9177 
o|contracted procedure: k9202 
o|contracted procedure: k9234 
o|contracted procedure: k9208 
o|contracted procedure: k9220 
o|contracted procedure: k9230 
o|contracted procedure: k9244 
o|contracted procedure: k9276 
o|contracted procedure: k9358 
o|contracted procedure: k9294 
o|contracted procedure: k9297 
o|contracted procedure: k9309 
o|contracted procedure: k9318 
o|contracted procedure: k9326 
o|contracted procedure: k9322 
o|contracted procedure: k9335 
o|contracted procedure: k9354 
o|contracted procedure: k9410 
o|contracted procedure: k9376 
o|contracted procedure: k9385 
o|contracted procedure: k9404 
o|contracted procedure: k9400 
o|contracted procedure: k9396 
o|contracted procedure: k9498 
o|contracted procedure: k9529 
o|contracted procedure: k9555 
o|contracted procedure: k9567 
o|contracted procedure: k9647 
o|contracted procedure: k9591 
o|contracted procedure: k9606 
o|contracted procedure: k9626 
o|contracted procedure: k9643 
o|contracted procedure: k9451 
o|contracted procedure: k9460 
o|contracted procedure: k9488 
o|contracted procedure: k9466 
o|contracted procedure: k9656 
o|contracted procedure: k9677 
o|contracted procedure: k9712 
o|contracted procedure: k9683 
o|contracted procedure: k9693 
o|contracted procedure: k9727 
o|contracted procedure: k9739 
o|contracted procedure: k9753 
o|contracted procedure: k9756 
o|contracted procedure: k9763 
o|contracted procedure: k9831 
o|contracted procedure: k9769 
o|contracted procedure: k9825 
o|contracted procedure: k9772 
o|contracted procedure: k9819 
o|contracted procedure: k9775 
o|contracted procedure: k9813 
o|contracted procedure: k9778 
o|contracted procedure: k9787 
o|contracted procedure: k9846 
o|contracted procedure: k9853 
o|contracted procedure: k9879 
o|contracted procedure: k9897 
o|contracted procedure: k9901 
o|contracted procedure: k9914 
o|contracted procedure: k9942 
o|contracted procedure: k9945 
o|contracted procedure: k9957 
o|contracted procedure: k9979 
o|contracted procedure: k9975 
o|contracted procedure: k9960 
o|contracted procedure: k9963 
o|contracted procedure: k9971 
o|contracted procedure: k10000 
o|contracted procedure: k10069 
o|contracted procedure: k10016 
o|contracted procedure: k10065 
o|contracted procedure: k10025 
o|contracted procedure: k10032 
o|contracted procedure: k10041 
o|contracted procedure: k10048 
o|contracted procedure: k10051 
o|contracted procedure: k5529 
o|contracted procedure: k10058 
o|contracted procedure: k10513 
o|contracted procedure: k10078 
o|contracted procedure: k10507 
o|contracted procedure: k10081 
o|contracted procedure: k10492 
o|contracted procedure: k10087 
o|contracted procedure: k10144 
o|contracted procedure: k10150 
o|contracted procedure: k10159 
o|contracted procedure: k10166 
o|contracted procedure: k10189 
o|contracted procedure: k10198 
o|contracted procedure: k10218 
o|contracted procedure: k10221 
o|contracted procedure: k10224 
o|contracted procedure: k10306 
o|contracted procedure: k10227 
o|contracted procedure: k10242 
o|contracted procedure: k10248 
o|contracted procedure: k10261 
o|contracted procedure: k10265 
o|contracted procedure: k10268 
o|contracted procedure: k10291 
o|contracted procedure: k10277 
o|contracted procedure: k10287 
o|contracted procedure: k10294 
o|contracted procedure: k10300 
o|contracted procedure: k10315 
o|contracted procedure: k10328 
o|contracted procedure: k10321 
o|contracted procedure: k10334 
o|contracted procedure: k10340 
o|contracted procedure: k10346 
o|contracted procedure: k10355 
o|contracted procedure: k10364 
o|contracted procedure: k10373 
o|contracted procedure: k10382 
o|contracted procedure: k10391 
o|contracted procedure: k10400 
o|contracted procedure: k10422 
o|contracted procedure: k10425 
o|contracted procedure: k10488 
o|contracted procedure: k10450 
o|contracted procedure: k10484 
o|contracted procedure: k10459 
o|contracted procedure: k10476 
o|contracted procedure: k10480 
o|contracted procedure: k10498 
o|contracted procedure: k10531 
o|contracted procedure: k10537 
o|contracted procedure: k10552 
o|contracted procedure: k10561 
o|contracted procedure: k10568 
o|contracted procedure: k10571 
o|contracted procedure: k10583 
o|contracted procedure: k10590 
o|contracted procedure: k10608 
o|contracted procedure: k10660 
o|contracted procedure: k10625 
o|contracted procedure: k10628 
o|contracted procedure: k10656 
o|contracted procedure: k10652 
o|contracted procedure: k10672 
o|contracted procedure: k10678 
o|contracted procedure: k10701 
o|contracted procedure: k10707 
o|contracted procedure: k10710 
o|contracted procedure: k10757 
o|contracted procedure: k10716 
o|contracted procedure: k10728 
o|contracted procedure: k10731 
o|contracted procedure: k10738 
o|contracted procedure: k10746 
o|contracted procedure: k10750 
o|contracted procedure: k10867 
o|contracted procedure: k10765 
o|contracted procedure: k10787 
o|contracted procedure: k10793 
o|contracted procedure: k10799 
o|contracted procedure: k10811 
o|contracted procedure: k10824 
o|contracted procedure: k10827 
o|contracted procedure: k10839 
o|contracted procedure: k10888 
o|contracted procedure: k10904 
o|contracted procedure: k10894 
o|contracted procedure: k10913 
o|contracted procedure: k10920 
o|contracted procedure: k10938 
o|contracted procedure: k11025 
o|contracted procedure: k10955 
o|contracted procedure: k10981 
o|contracted procedure: k10993 
o|contracted procedure: k11089 
o|contracted procedure: k11161 
o|contracted procedure: k11330 
o|contracted procedure: k11174 
o|contracted procedure: k11180 
o|contracted procedure: k11190 
o|contracted procedure: k11193 
o|contracted procedure: k11202 
o|contracted procedure: k11215 
o|contracted procedure: k11228 
o|contracted procedure: k11264 
o|contracted procedure: k11234 
o|contracted procedure: k11240 
o|contracted procedure: k11253 
o|contracted procedure: k11270 
o|contracted procedure: k11281 
o|contracted procedure: k11287 
o|contracted procedure: k11310 
o|contracted procedure: k11293 
o|contracted procedure: k11126 
o|contracted procedure: k11304 
o|contracted procedure: k11342 
o|contracted procedure: k11349 
o|contracted procedure: k11357 
o|contracted procedure: k11369 
o|contracted procedure: k11391 
o|contracted procedure: k11387 
o|contracted procedure: k11372 
o|contracted procedure: k11375 
o|contracted procedure: k11383 
o|contracted procedure: k11461 
o|contracted procedure: k11400 
o|contracted procedure: k11406 
o|contracted procedure: k11457 
o|contracted procedure: k11413 
o|contracted procedure: k11419 
o|contracted procedure: k11425 
o|contracted procedure: k11432 
o|contracted procedure: k11590 
o|contracted procedure: k11597 
o|contracted procedure: k11605 
o|contracted procedure: k11626 
o|contracted procedure: k11633 
o|contracted procedure: k11637 
o|contracted procedure: k11652 
o|contracted procedure: k11661 
o|contracted procedure: k12958 
o|contracted procedure: k11799 
o|contracted procedure: k11879 
o|contracted procedure: k11875 
o|contracted procedure: k11807 
o|contracted procedure: k11811 
o|contracted procedure: k11803 
o|contracted procedure: k11795 
o|contracted procedure: k11819 
o|contracted procedure: k11822 
o|contracted procedure: k11837 
o|contracted procedure: k11833 
o|contracted procedure: k11829 
o|contracted procedure: k11846 
o|contracted procedure: k11849 
o|contracted procedure: k11852 
o|contracted procedure: k11860 
o|contracted procedure: k11868 
o|contracted procedure: k11891 
o|contracted procedure: k11894 
o|contracted procedure: k11901 
o|contracted procedure: k11905 
o|contracted procedure: k11930 
o|contracted procedure: k11936 
o|contracted procedure: k11943 
o|contracted procedure: k11954 
o|contracted procedure: k11960 
o|contracted procedure: k11975 
o|contracted procedure: k11971 
o|contracted procedure: k11967 
o|contracted procedure: k11990 
o|contracted procedure: k12041 
o|contracted procedure: k12001 
o|contracted procedure: k12013 
o|contracted procedure: k12009 
o|contracted procedure: k12005 
o|contracted procedure: k11997 
o|contracted procedure: k12029 
o|contracted procedure: k12035 
o|contracted procedure: k12047 
o|contracted procedure: k12086 
o|contracted procedure: k12058 
o|contracted procedure: k12070 
o|contracted procedure: k12066 
o|contracted procedure: k12062 
o|contracted procedure: k12054 
o|contracted procedure: k12078 
o|contracted procedure: k12092 
o|contracted procedure: k12106 
o|contracted procedure: k12102 
o|contracted procedure: k12117 
o|contracted procedure: k12113 
o|contracted procedure: k12120 
o|contracted procedure: k12226 
o|contracted procedure: k12222 
o|contracted procedure: k12146 
o|contracted procedure: k12154 
o|contracted procedure: k12214 
o|contracted procedure: k12218 
o|contracted procedure: k12162 
o|contracted procedure: k12202 
o|contracted procedure: k12170 
o|contracted procedure: k12178 
o|contracted procedure: k12174 
o|contracted procedure: k12166 
o|contracted procedure: k12158 
o|contracted procedure: k12150 
o|contracted procedure: k12142 
o|contracted procedure: k12194 
o|contracted procedure: k12198 
o|contracted procedure: k12190 
o|contracted procedure: k12186 
o|contracted procedure: k12210 
o|contracted procedure: k12230 
o|contracted procedure: k12234 
o|contracted procedure: k12238 
o|contracted procedure: k12247 
o|contracted procedure: k12253 
o|contracted procedure: k12263 
o|contracted procedure: k12344 
o|contracted procedure: k12339 
o|contracted procedure: k12333 
o|contracted procedure: k12285 
o|contracted procedure: k12300 
o|contracted procedure: k12304 
o|contracted procedure: k12319 
o|contracted procedure: k12330 
o|contracted procedure: k12326 
o|contracted procedure: k12316 
o|contracted procedure: k12348 
o|contracted procedure: k12354 
o|contracted procedure: k12371 
o|contracted procedure: k12377 
o|contracted procedure: k12383 
o|contracted procedure: k12394 
o|contracted procedure: k12403 
o|contracted procedure: k12406 
o|contracted procedure: k12422 
o|contracted procedure: k12415 
o|contracted procedure: k12429 
o|contracted procedure: k12472 
o|contracted procedure: k12468 
o|contracted procedure: k12441 
o|contracted procedure: k12454 
o|contracted procedure: k12464 
o|contracted procedure: k12484 
o|contracted procedure: k12493 
o|contracted procedure: k12511 
o|contracted procedure: k12535 
o|substituted constant variable: g17971 
o|contracted procedure: k12542 
o|contracted procedure: k12546 
o|contracted procedure: k12560 
o|contracted procedure: k12556 
o|contracted procedure: k12563 
o|contracted procedure: k12569 
o|contracted procedure: k12575 
o|contracted procedure: k12588 
o|contracted procedure: k12594 
o|contracted procedure: k12615 
o|contracted procedure: k12641 
o|contracted procedure: k12647 
o|contracted procedure: k12657 
o|contracted procedure: k12676 
o|contracted procedure: k12680 
o|contracted procedure: k12688 
o|contracted procedure: k12694 
o|contracted procedure: k12711 
o|contracted procedure: k12727 
o|contracted procedure: k12756 
o|contracted procedure: k12739 
o|contracted procedure: k12742 
o|contracted procedure: k12752 
o|contracted procedure: k12733 
o|contracted procedure: k12769 
o|contracted procedure: k12777 
o|contracted procedure: k12783 
o|contracted procedure: k12800 
o|contracted procedure: k12816 
o|contracted procedure: k12845 
o|contracted procedure: k12851 
o|contracted procedure: k12861 
o|contracted procedure: k12883 
o|contracted procedure: k12893 
o|contracted procedure: k12909 
o|contracted procedure: k12912 
o|contracted procedure: k12969 
o|contracted procedure: k12977 
o|contracted procedure: k12981 
o|contracted procedure: k12998 
o|contracted procedure: k13034 
o|contracted procedure: k13030 
o|contracted procedure: k13026 
o|contracted procedure: k13022 
o|contracted procedure: k13018 
o|contracted procedure: k13069 
o|contracted procedure: k13223 
o|contracted procedure: k13086 
o|contracted procedure: k13092 
o|contracted procedure: k13105 
o|contracted procedure: k13118 
o|contracted procedure: k13126 
o|contracted procedure: k13139 
o|contracted procedure: k13147 
o|contracted procedure: k13159 
o|contracted procedure: k13169 
o|contracted procedure: k13188 
o|contracted procedure: k13180 
o|contracted procedure: k13196 
o|contracted procedure: k13200 
o|contracted procedure: k13214 
o|contracted procedure: k13249 
o|contracted procedure: k13245 
o|contracted procedure: k13241 
o|contracted procedure: k13263 
o|contracted procedure: k13296 
o|contracted procedure: k13269 
o|contracted procedure: k13292 
o|contracted procedure: k13284 
o|contracted procedure: k13288 
o|contracted procedure: k13280 
o|contracted procedure: k13276 
o|contracted procedure: k13314 
o|contracted procedure: k13327 
o|contracted procedure: k13340 
o|contracted procedure: k13343 
o|contracted procedure: k13356 
o|contracted procedure: k13374 
o|contracted procedure: k13385 
o|contracted procedure: k13486 
o|contracted procedure: k13390 
o|contracted procedure: k13410 
o|contracted procedure: k13406 
o|contracted procedure: k13402 
o|contracted procedure: k13394 
o|contracted procedure: k13381 
o|contracted procedure: k13448 
o|contracted procedure: k13454 
o|contracted procedure: k13462 
o|contracted procedure: k13470 
o|contracted procedure: k13436 
o|contracted procedure: k13432 
o|contracted procedure: k13418 
o|contracted procedure: k13426 
o|contracted procedure: k13466 
o|contracted procedure: k13476 
o|contracted procedure: k13483 
o|contracted procedure: k13498 
o|contracted procedure: k13520 
o|contracted procedure: k13365 
o|contracted procedure: k13369 
o|contracted procedure: k13516 
o|contracted procedure: k13501 
o|contracted procedure: k13504 
o|contracted procedure: k13512 
o|contracted procedure: k13536 
o|contracted procedure: k13550 
o|contracted procedure: k13557 
o|contracted procedure: k13574 
o|contracted procedure: k13564 
o|contracted procedure: k13587 
o|contracted procedure: k13810 
o|contracted procedure: k13611 
o|contracted procedure: k13806 
o|contracted procedure: k13624 
o|contracted procedure: k13627 
o|contracted procedure: k13659 
o|contracted procedure: k13675 
o|contracted procedure: k13682 
o|contracted procedure: k13696 
o|contracted procedure: k13685 
o|contracted procedure: k13692 
o|contracted procedure: k13748 
o|contracted procedure: k13757 
o|contracted procedure: k13761 
o|contracted procedure: k13705 
o|contracted procedure: k13723 
o|contracted procedure: k13730 
o|contracted procedure: k13744 
o|contracted procedure: k13733 
o|contracted procedure: k13740 
o|contracted procedure: k13773 
o|contracted procedure: k13776 
o|contracted procedure: k13779 
o|contracted procedure: k13787 
o|contracted procedure: k13795 
o|contracted procedure: k13802 
o|contracted procedure: k13820 
o|contracted procedure: k14201 
o|contracted procedure: k13841 
o|contracted procedure: k13844 
o|contracted procedure: k13905 
o|contracted procedure: k13934 
o|contracted procedure: k13913 
o|contracted procedure: k13948 
o|contracted procedure: k13937 
o|contracted procedure: k13944 
o|contracted procedure: k13960 
o|contracted procedure: k14009 
o|contracted procedure: k14005 
o|contracted procedure: k13985 
o|contracted procedure: k14001 
o|contracted procedure: k13993 
o|contracted procedure: k13989 
o|contracted procedure: k14057 
o|contracted procedure: k14025 
o|contracted procedure: k14053 
o|contracted procedure: k14037 
o|contracted procedure: k14049 
o|contracted procedure: k14041 
o|contracted procedure: k14033 
o|contracted procedure: k14029 
o|contracted procedure: k14064 
o|contracted procedure: k14068 
o|contracted procedure: k14077 
o|contracted procedure: k14084 
o|contracted procedure: k14100 
o|contracted procedure: k14089 
o|contracted procedure: k14096 
o|contracted procedure: k14105 
o|contracted procedure: k14111 
o|contracted procedure: k14117 
o|contracted procedure: k14123 
o|contracted procedure: k14129 
o|contracted procedure: k14141 
o|contracted procedure: k14147 
o|contracted procedure: k14162 
o|contracted procedure: k14173 
o|contracted procedure: k14197 
o|contracted procedure: k14211 
o|contracted procedure: k14217 
o|contracted procedure: k14220 
o|contracted procedure: k14227 
o|contracted procedure: k14253 
o|contracted procedure: k14237 
o|contracted procedure: k14245 
o|contracted procedure: k14241 
o|contracted procedure: k14263 
o|contracted procedure: k14269 
o|contracted procedure: k14272 
o|contracted procedure: k14279 
o|contracted procedure: k14286 
o|contracted procedure: k14303 
o|contracted procedure: k14306 
o|contracted procedure: k14312 
o|contracted procedure: k14319 
o|contracted procedure: k14329 
o|contracted procedure: k14356 
o|contracted procedure: k14378 
o|contracted procedure: k14400 
o|contracted procedure: k14428 
o|contracted procedure: k14438 
o|contracted procedure: k14452 
o|contracted procedure: k14441 
o|contracted procedure: k14448 
o|contracted procedure: k14465 
o|contracted procedure: k14468 
o|contracted procedure: k14476 
o|contracted procedure: k14518 
o|contracted procedure: k14626 
o|contracted procedure: k14526 
o|contracted procedure: k14537 
o|contracted procedure: k14550 
o|contracted procedure: k14561 
o|inlining procedure: k14554 
o|inlining procedure: k14554 
o|contracted procedure: k14622 
o|contracted procedure: k14582 
o|contracted procedure: k14606 
o|contracted procedure: k14616 
o|contracted procedure: k14612 
o|contracted procedure: k14602 
o|contracted procedure: k14643 
o|contracted procedure: k14660 
o|contracted procedure: k14677 
o|contracted procedure: k14694 
o|contracted procedure: k14744 
o|contracted procedure: k14748 
o|contracted procedure: k14740 
o|contracted procedure: k14762 
o|contracted procedure: k14768 
o|inlining procedure: k14759 
o|contracted procedure: k14777 
o|contracted procedure: k14787 
o|contracted procedure: k14791 
o|contracted procedure: k14794 
o|contracted procedure: k14801 
o|contracted procedure: k14817 
o|contracted procedure: k14820 
o|contracted procedure: k14824 
o|contracted procedure: k14849 
o|contracted procedure: k14869 
o|contracted procedure: k14874 
o|contracted procedure: k14886 
o|contracted procedure: k14898 
o|contracted procedure: k14904 
o|contracted procedure: k14921 
o|contracted procedure: k14910 
o|contracted procedure: k14917 
o|contracted procedure: k14928 
o|contracted procedure: k14931 
o|contracted procedure: k14853 
o|contracted procedure: k14857 
o|contracted procedure: k14861 
o|contracted procedure: k14830 
o|contracted procedure: k14841 
o|contracted procedure: k14845 
o|contracted procedure: k14943 
o|contracted procedure: k14946 
o|contracted procedure: k14949 
o|contracted procedure: k14957 
o|contracted procedure: k14965 
o|contracted procedure: k14992 
o|contracted procedure: k15055 
o|contracted procedure: k15076 
o|contracted procedure: k15079 
o|contracted procedure: k15082 
o|contracted procedure: k15090 
o|contracted procedure: k15098 
o|contracted procedure: k15007 
o|contracted procedure: k15011 
o|contracted procedure: k15017 
o|contracted procedure: k15023 
o|contracted procedure: k15029 
o|contracted procedure: k15045 
o|contracted procedure: k15035 
o|contracted procedure: k15105 
o|contracted procedure: k15132 
o|contracted procedure: k15170 
o|contracted procedure: k15176 
o|contracted procedure: k15185 
o|contracted procedure: k15200 
o|contracted procedure: k15206 
o|contracted procedure: k15215 
o|contracted procedure: k15221 
o|contracted procedure: k15228 
o|contracted procedure: k15234 
o|contracted procedure: k15246 
o|contracted procedure: k15249 
o|contracted procedure: k15252 
o|contracted procedure: k15260 
o|contracted procedure: k15268 
o|contracted procedure: k15287 
o|contracted procedure: k15295 
o|contracted procedure: k15308 
o|contracted procedure: k15320 
o|contracted procedure: k15323 
o|contracted procedure: k15326 
o|contracted procedure: k15334 
o|contracted procedure: k15342 
o|contracted procedure: k15410 
o|contracted procedure: k15357 
o|contracted procedure: k15364 
o|contracted procedure: k15367 
o|contracted procedure: k15370 
o|contracted procedure: k15382 
o|contracted procedure: k15385 
o|contracted procedure: k15388 
o|contracted procedure: k15396 
o|contracted procedure: k15404 
o|contracted procedure: k15474 
o|contracted procedure: k15497 
o|contracted procedure: k15512 
o|contracted procedure: k15760 
o|contracted procedure: k15518 
o|contracted procedure: k15521 
o|contracted procedure: k15525 
o|contracted procedure: k15531 
o|contracted procedure: k15549 
o|contracted procedure: k15561 
o|contracted procedure: k15574 
o|contracted procedure: k15584 
o|contracted procedure: k15596 
o|contracted procedure: k15618 
o|contracted procedure: k15640 
o|contracted procedure: k15659 
o|contracted procedure: k15674 
o|contracted procedure: k15670 
o|contracted procedure: k15666 
o|contracted procedure: k15686 
o|contracted procedure: k15701 
o|contracted procedure: k15710 
o|contracted procedure: k15723 
o|contracted procedure: k15757 
o|contracted procedure: k15779 
o|contracted procedure: k15775 
o|contracted procedure: k15823 
o|contracted procedure: k15819 
o|contracted procedure: k15799 
o|contracted procedure: k15815 
o|contracted procedure: k15807 
o|contracted procedure: k15811 
o|contracted procedure: k15803 
o|contracted procedure: k15795 
o|contracted procedure: k15842 
o|contracted procedure: k15846 
o|contracted procedure: k15838 
o|contracted procedure: k15834 
o|contracted procedure: k15830 
o|contracted procedure: k15853 
o|contracted procedure: k15156 
o|contracted procedure: k15866 
o|contracted procedure: k15881 
o|contracted procedure: k15887 
o|contracted procedure: k15920 
o|contracted procedure: k15916 
o|contracted procedure: k15912 
o|contracted procedure: k15900 
o|contracted procedure: k15908 
o|contracted procedure: k15904 
o|contracted procedure: k15944 
o|contracted procedure: k15954 
o|contracted procedure: k16002 
o|contracted procedure: k15962 
o|contracted procedure: k15966 
o|contracted procedure: k15983 
o|contracted procedure: k15979 
o|contracted procedure: k15969 
o|contracted procedure: k15986 
o|contracted procedure: k15992 
o|contracted procedure: k16010 
o|contracted procedure: k16013 
o|contracted procedure: k16024 
o|contracted procedure: k16028 
o|contracted procedure: k16042 
o|contracted procedure: k16059 
o|contracted procedure: k16077 
o|contracted procedure: k16069 
o|contracted procedure: k16091 
o|contracted procedure: k16120 
o|contracted procedure: k16126 
o|contracted procedure: k16135 
o|contracted procedure: k16148 
o|contracted procedure: k16151 
o|contracted procedure: k16163 
o|contracted procedure: k16166 
o|contracted procedure: k16169 
o|contracted procedure: k16177 
o|contracted procedure: k16185 
o|simplifications: ((if . 9) (let . 336)) 
o|replaced variables: 9 
o|removed binding forms: 1060 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest911914 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest911914 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest10291031 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest10291031 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest10601062 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest10601062 0 
o|contracted procedure: k6795 
o|inlining procedure: k7643 
o|inlining procedure: k7643 
o|inlining procedure: k8898 
o|inlining procedure: k9045 
o|inlining procedure: k9045 
o|contracted procedure: k9721 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest19541955 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest19541955 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest19541955 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest19541955 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest20752079 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest20752079 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest20752079 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest20752079 0 
o|inlining procedure: k10412 
o|contracted procedure: k12444 
o|inlining procedure: k12902 
o|contracted procedure: k14418 
o|inlining procedure: k14752 
o|inlining procedure: k14752 
o|inlining procedure: k14752 
o|inlining procedure: k15958 
o|inlining procedure: k15958 
o|removed binding forms: 18 
(o x)|known list op on rest arg sublist: ##core#rest-null? r9773 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r9773 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r9773 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r9773 1 
o|substituted constant variable: r1041318230 
o|substituted constant variable: r1041318230 
o|substituted constant variable: r1290318252 
o|removed binding forms: 5 
o|removed conditional forms: 1 
o|removed binding forms: 4 
o|direct leaf routine/allocation: chicken.syntax#lookup 0 
o|direct leaf routine/allocation: g10491050 0 
o|direct leaf routine/allocation: loop1295 0 
o|direct leaf routine/allocation: g18411842 0 
o|direct leaf routine/allocation: loop2105 0 
o|direct leaf routine/allocation: loop2122 0 
o|direct leaf routine/allocation: g22732274 0 
o|direct leaf routine/allocation: g22822283 0 
o|direct leaf routine/allocation: assq-reverse2200 0 
o|direct leaf routine/allocation: loop3587 0 
o|direct leaf routine/allocation: loop3597 0 
o|direct leaf routine/allocation: g33423351 15 
o|contracted procedure: "(expand.scm:101) k6242" 
o|contracted procedure: "(expand.scm:167) k6640" 
o|contracted procedure: "(expand.scm:179) k6679" 
o|contracted procedure: "(expand.scm:181) k6688" 
o|contracted procedure: "(expand.scm:261) k7005" 
o|contracted procedure: "(expand.scm:263) k7241" 
o|converted assignments to bindings: (loop1295) 
o|contracted procedure: "(expand.scm:469) k8239" 
o|contracted procedure: "(expand.scm:477) k8296" 
o|converted assignments to bindings: (loop2105) 
o|converted assignments to bindings: (loop2122) 
o|contracted procedure: "(expand.scm:904) k10412" 
o|contracted procedure: "(expand.scm:982) k10852" 
o|contracted procedure: "(expand.scm:982) k10858" 
o|contracted procedure: "(expand.scm:1002) k10958" 
o|contracted procedure: "(expand.scm:1003) k10961" 
o|converted assignments to bindings: (loop3587) 
o|converted assignments to bindings: (loop3597) 
o|contracted procedure: "(expand.scm:1731) k13791" 
o|simplifications: ((if . 1) (let . 5)) 
o|removed binding forms: 14 
o|customizable procedures: (g24872496 map-loop24812533 k15875 k15972 k15783 k15791 process-include-decls2711 process-includes2708 parse-exports2706 loop2840 parse-decls2713 k15421 expand/begin2709 map-loop27982815 g27712780 map-loop27652786 read-forms2710 g27232732 map-loop27172747 k15193 k15000 map-loop29212943 g29862995 map-loop29803007 loop3077 expand3205 map-loop33363357 k13709 expand3305 expand3379 map-loop34013419 k13398 k13451 map-loop34353453 g35303531 g35233524 walk3467 walk13468 simplify3469 k12963 loop3884 k12549 k12502 doloop38223823 k12095 k11888 map-loop36733690 loop3576 expand2603 map-loop26112629 loop2564 test2555 err2552 chicken.syntax#make-er/ir-transformer mirror-rename2201 k10773 k10781 doloop22322233 inherit-pair-line-numbers2182 k10206 test2090 k10230 walk2132 doloop21472148 err2091 mapupdate2048 walk2049 loop2051 map-loop20182035 g20092010 g19931994 k9781 chicken.syntax#assq/drop-bwp! k9690 lp1926 loop1876 loop1889 loop1906 outstr1887 loop1852 mwalk1828 comp-def1544 k8995 loop21792 loop1775 loop1731 map-loop17441761 foldl16601670 map-loop16361675 k8691 map-loop16841711 loop21591 comp1543 loop1588 k8299 k8308 repeat1567 k8242 k8251 map-loop14521469 map-loop14811505 k7765 k7941 k7854 k7815 chicken.syntax#macro-alias k7778 loop1328 err1317 g13501359 map-loop13441372 k7480 k7492 loop1262 k7011 k7017 k7175 g12271228 loop1139 expand1088 map-loop11671185 map-loop11941211 call-handler1087 k6829 copy1106 loop1076 map-loop922939 for-each-loop948975 map-loop9851006 doloop900901 walk870) 
o|shared closure containers: 47 
o|shared closure users: 89 
o|calls to known targets: 417 
o|identified direct recursive calls: f_6463 1 
o|identified direct recursive calls: f_6511 1 
o|unused rest argument: rest911914 f_6417 
o|unused rest argument: rest10291031 f_6608 
o|unused rest argument: rest10601062 f_6674 
o|identified direct recursive calls: f_6725 1 
o|identified direct recursive calls: f_7070 1 
o|identified direct recursive calls: f_7139 1 
o|identified direct recursive calls: f_7392 3 
o|identified direct recursive calls: f_7464 2 
o|identified direct recursive calls: f_8118 1 
o|identified direct recursive calls: f_8748 1 
o|identified direct recursive calls: f_8849 1 
o|identified direct recursive calls: f_8822 1 
o|identified direct recursive calls: f_9289 1 
o|identified direct recursive calls: f_9371 1 
o|identified direct recursive calls: f_9455 1 
o|unused rest argument: rest19541955 f_9767 
o|identified direct recursive calls: f_9952 1 
o|identified direct recursive calls: f_10142 1 
o|identified direct recursive calls: f_10187 1 
o|identified direct recursive calls: f_10213 1 
o|identified direct recursive calls: f_10578 1 
o|identified direct recursive calls: f_10664 1 
o|identified direct recursive calls: f_10883 1 
o|identified direct recursive calls: f_10908 1 
o|identified direct recursive calls: f_11364 1 
o|identified direct recursive calls: f_11585 1 
o|identified direct recursive calls: f_11621 1 
o|identified direct recursive calls: f_11647 1 
o|unused rest argument: _3809 f_12458 
o|identified direct recursive calls: f_12530 1 
o|identified direct recursive calls: f_13493 1 
o|identified direct recursive calls: f_13545 1 
o|identified direct recursive calls: f_13768 1 
o|identified direct recursive calls: f_15507 2 
o|fast box initializations: 83 
o|fast global references: 28 
o|fast global assignments: 7 
o|dropping unused closure argument: f_10142 
o|dropping unused closure argument: f_10187 
o|dropping unused closure argument: f_10520 
o|dropping unused closure argument: f_10529 
o|dropping unused closure argument: f_10883 
o|dropping unused closure argument: f_11647 
o|dropping unused closure argument: f_15419 
o|dropping unused closure argument: f_6211 
o|dropping unused closure argument: f_6228 
o|dropping unused closure argument: f_7392 
o|dropping unused closure argument: f_9666 
*/
/* end of file */
