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

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

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


C_noret_decl(f_10013)
static void C_ccall f_10013(C_word c,C_word *av) C_noret;
C_noret_decl(f_10028)
static void C_ccall f_10028(C_word c,C_word *av) C_noret;
C_noret_decl(f_10036)
static void C_ccall f_10036(C_word c,C_word *av) C_noret;
C_noret_decl(f_10038)
static void C_ccall f_10038(C_word c,C_word *av) C_noret;
C_noret_decl(f_10046)
static void C_ccall f_10046(C_word c,C_word *av) C_noret;
C_noret_decl(f_10058)
static void C_ccall f_10058(C_word c,C_word *av) C_noret;
C_noret_decl(f_10085)
static void C_ccall f_10085(C_word c,C_word *av) C_noret;
C_noret_decl(f_10100)
static void C_ccall f_10100(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_10157)
static void C_ccall f_10157(C_word c,C_word *av) C_noret;
C_noret_decl(f_10159)
static void C_ccall f_10159(C_word c,C_word *av) C_noret;
C_noret_decl(f_10194)
static void C_ccall f_10194(C_word c,C_word *av) C_noret;
C_noret_decl(f_10216)
static void C_ccall f_10216(C_word c,C_word *av) C_noret;
C_noret_decl(f_10220)
static void C_ccall f_10220(C_word c,C_word *av) 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_10280)
static void C_ccall f_10280(C_word c,C_word *av) C_noret;
C_noret_decl(f_10320)
static void C_ccall f_10320(C_word c,C_word *av) C_noret;
C_noret_decl(f_10340)
static void C_ccall f_10340(C_word c,C_word *av) C_noret;
C_noret_decl(f_10344)
static void C_ccall f_10344(C_word c,C_word *av) C_noret;
C_noret_decl(f_10348)
static void C_ccall f_10348(C_word c,C_word *av) C_noret;
C_noret_decl(f_10350)
static void C_ccall f_10350(C_word c,C_word *av) C_noret;
C_noret_decl(f_10356)
static void C_ccall f_10356(C_word c,C_word *av) C_noret;
C_noret_decl(f_10364)
static void C_ccall f_10364(C_word c,C_word *av) C_noret;
C_noret_decl(f_10370)
static void C_fcall f_10370(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10390)
static void C_ccall f_10390(C_word c,C_word *av) C_noret;
C_noret_decl(f_10394)
static void C_ccall f_10394(C_word c,C_word *av) C_noret;
C_noret_decl(f_10417)
static void C_ccall f_10417(C_word c,C_word *av) C_noret;
C_noret_decl(f_10490)
static void C_ccall f_10490(C_word c,C_word *av) C_noret;
C_noret_decl(f_10493)
static void C_fcall f_10493(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_10497)
static void C_ccall f_10497(C_word c,C_word *av) C_noret;
C_noret_decl(f_10500)
static void C_ccall f_10500(C_word c,C_word *av) C_noret;
C_noret_decl(f_10503)
static void C_ccall f_10503(C_word c,C_word *av) C_noret;
C_noret_decl(f_10518)
static void C_ccall f_10518(C_word c,C_word *av) C_noret;
C_noret_decl(f_10549)
static void C_ccall f_10549(C_word c,C_word *av) C_noret;
C_noret_decl(f_10555)
static void C_ccall f_10555(C_word c,C_word *av) C_noret;
C_noret_decl(f_10561)
static void C_ccall f_10561(C_word c,C_word *av) C_noret;
C_noret_decl(f_10609)
static void C_ccall f_10609(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_10663)
static void C_fcall f_10663(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10675)
static void C_fcall f_10675(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10685)
static void C_ccall f_10685(C_word c,C_word *av) C_noret;
C_noret_decl(f_10704)
static void C_fcall f_10704(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_10707)
static void C_fcall f_10707(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_10711)
static void C_ccall f_10711(C_word c,C_word *av) C_noret;
C_noret_decl(f_10714)
static void C_ccall f_10714(C_word c,C_word *av) C_noret;
C_noret_decl(f_10717)
static void C_ccall f_10717(C_word c,C_word *av) C_noret;
C_noret_decl(f_10756)
static void C_ccall f_10756(C_word c,C_word *av) C_noret;
C_noret_decl(f_10774)
static void C_ccall f_10774(C_word c,C_word *av) C_noret;
C_noret_decl(f_10790)
static void C_ccall f_10790(C_word c,C_word *av) C_noret;
C_noret_decl(f_10811)
static void C_ccall f_10811(C_word c,C_word *av) C_noret;
C_noret_decl(f_10845)
static void C_ccall f_10845(C_word c,C_word *av) C_noret;
C_noret_decl(f_10861)
static void C_ccall f_10861(C_word c,C_word *av) C_noret;
C_noret_decl(f_10865)
static void C_fcall f_10865(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10870)
static void C_ccall f_10870(C_word c,C_word *av) C_noret;
C_noret_decl(f_10900)
static void C_ccall f_10900(C_word c,C_word *av) C_noret;
C_noret_decl(f_10904)
static void C_fcall f_10904(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10909)
static void C_ccall f_10909(C_word c,C_word *av) C_noret;
C_noret_decl(f_10951)
static void C_fcall f_10951(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10956)
static void C_ccall f_10956(C_word c,C_word *av) C_noret;
C_noret_decl(f_10993)
static void C_ccall f_10993(C_word c,C_word *av) C_noret;
C_noret_decl(f_10997)
static void C_ccall f_10997(C_word c,C_word *av) C_noret;
C_noret_decl(f_11004)
static void C_ccall f_11004(C_word c,C_word *av) C_noret;
C_noret_decl(f_11008)
static void C_ccall f_11008(C_word c,C_word *av) C_noret;
C_noret_decl(f_11036)
static void C_ccall f_11036(C_word c,C_word *av) C_noret;
C_noret_decl(f_11069)
static void C_ccall f_11069(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_11093)
static void C_ccall f_11093(C_word c,C_word *av) C_noret;
C_noret_decl(f_11126)
static void C_ccall f_11126(C_word c,C_word *av) C_noret;
C_noret_decl(f_11133)
static void C_ccall f_11133(C_word c,C_word *av) C_noret;
C_noret_decl(f_11135)
static void C_fcall f_11135(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret;
C_noret_decl(f_11139)
static void C_ccall f_11139(C_word c,C_word *av) C_noret;
C_noret_decl(f_11143)
static void C_ccall f_11143(C_word c,C_word *av) C_noret;
C_noret_decl(f_11149)
static void C_ccall f_11149(C_word c,C_word *av) C_noret;
C_noret_decl(f_11155)
static void C_fcall f_11155(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11161)
static void C_ccall f_11161(C_word c,C_word *av) C_noret;
C_noret_decl(f_11164)
static void C_ccall f_11164(C_word c,C_word *av) C_noret;
C_noret_decl(f_11170)
static void C_ccall f_11170(C_word c,C_word *av) C_noret;
C_noret_decl(f_11173)
static void C_ccall f_11173(C_word c,C_word *av) C_noret;
C_noret_decl(f_11174)
static void C_fcall f_11174(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11181)
static void C_ccall f_11181(C_word c,C_word *av) C_noret;
C_noret_decl(f_11184)
static void C_ccall f_11184(C_word c,C_word *av) C_noret;
C_noret_decl(f_11190)
static void C_ccall f_11190(C_word c,C_word *av) C_noret;
C_noret_decl(f_11205)
static void C_ccall f_11205(C_word c,C_word *av) C_noret;
C_noret_decl(f_11247)
static void C_ccall f_11247(C_word c,C_word *av) C_noret;
C_noret_decl(f_11253)
static void C_ccall f_11253(C_word c,C_word *av) C_noret;
C_noret_decl(f_11262)
static void C_ccall f_11262(C_word c,C_word *av) C_noret;
C_noret_decl(f_11265)
static void C_ccall f_11265(C_word c,C_word *av) C_noret;
C_noret_decl(f_11271)
static void C_ccall f_11271(C_word c,C_word *av) C_noret;
C_noret_decl(f_11274)
static void C_ccall f_11274(C_word c,C_word *av) C_noret;
C_noret_decl(f_11282)
static void C_ccall f_11282(C_word c,C_word *av) C_noret;
C_noret_decl(f_11289)
static void C_ccall f_11289(C_word c,C_word *av) C_noret;
C_noret_decl(f_11293)
static void C_ccall f_11293(C_word c,C_word *av) C_noret;
C_noret_decl(f_11301)
static void C_ccall f_11301(C_word c,C_word *av) C_noret;
C_noret_decl(f_11306)
static void C_fcall f_11306(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11329)
static void C_fcall f_11329(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11356)
static void C_ccall f_11356(C_word c,C_word *av) C_noret;
C_noret_decl(f_11360)
static void C_ccall f_11360(C_word c,C_word *av) C_noret;
C_noret_decl(f_11364)
static void C_ccall f_11364(C_word c,C_word *av) C_noret;
C_noret_decl(f_11368)
static void C_ccall f_11368(C_word c,C_word *av) C_noret;
C_noret_decl(f_11372)
static void C_ccall f_11372(C_word c,C_word *av) C_noret;
C_noret_decl(f_11389)
static void C_ccall f_11389(C_word c,C_word *av) C_noret;
C_noret_decl(f_11398)
static void C_fcall f_11398(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11408)
static void C_ccall f_11408(C_word c,C_word *av) C_noret;
C_noret_decl(f_11421)
static void C_ccall f_11421(C_word c,C_word *av) C_noret;
C_noret_decl(f_11432)
static void C_ccall f_11432(C_word c,C_word *av) C_noret;
C_noret_decl(f_11434)
static void C_ccall f_11434(C_word c,C_word *av) C_noret;
C_noret_decl(f_11448)
static void C_fcall f_11448(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11452)
static void C_ccall f_11452(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_11458)
static void C_ccall f_11458(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_11501)
static void C_ccall f_11501(C_word c,C_word *av) C_noret;
C_noret_decl(f_11504)
static void C_ccall f_11504(C_word c,C_word *av) C_noret;
C_noret_decl(f_11507)
static void C_ccall f_11507(C_word c,C_word *av) C_noret;
C_noret_decl(f_11540)
static void C_fcall f_11540(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11550)
static void C_ccall f_11550(C_word c,C_word *av) C_noret;
C_noret_decl(f_11553)
static void C_ccall f_11553(C_word c,C_word *av) C_noret;
C_noret_decl(f_11556)
static void C_ccall f_11556(C_word c,C_word *av) C_noret;
C_noret_decl(f_11559)
static void C_ccall f_11559(C_word c,C_word *av) C_noret;
C_noret_decl(f_11570)
static void C_ccall f_11570(C_word c,C_word *av) C_noret;
C_noret_decl(f_11582)
static void C_ccall f_11582(C_word c,C_word *av) C_noret;
C_noret_decl(f_11590)
static void C_ccall f_11590(C_word c,C_word *av) C_noret;
C_noret_decl(f_11609)
static void C_ccall f_11609(C_word c,C_word *av) C_noret;
C_noret_decl(f_11632)
static void C_ccall f_11632(C_word c,C_word *av) C_noret;
C_noret_decl(f_11635)
static void C_ccall f_11635(C_word c,C_word *av) C_noret;
C_noret_decl(f_11657)
static void C_ccall f_11657(C_word c,C_word *av) C_noret;
C_noret_decl(f_11682)
static void C_ccall f_11682(C_word c,C_word *av) C_noret;
C_noret_decl(f_11697)
static void C_fcall f_11697(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11707)
static void C_ccall f_11707(C_word c,C_word *av) C_noret;
C_noret_decl(f_11726)
static void C_fcall f_11726(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11736)
static void C_ccall f_11736(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_11795)
static void C_ccall f_11795(C_word c,C_word *av) C_noret;
C_noret_decl(f_11797)
static void C_ccall f_11797(C_word c,C_word *av) C_noret;
C_noret_decl(f_11805)
static void C_ccall f_11805(C_word c,C_word *av) C_noret;
C_noret_decl(f_11807)
static void C_ccall f_11807(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_11820)
static void C_ccall f_11820(C_word c,C_word *av) C_noret;
C_noret_decl(f_11822)
static void C_ccall f_11822(C_word c,C_word *av) C_noret;
C_noret_decl(f_11825)
static C_word C_fcall f_11825(C_word *a,C_word t0);
C_noret_decl(f_11869)
static void C_ccall f_11869(C_word c,C_word *av) C_noret;
C_noret_decl(f_11873)
static void C_ccall f_11873(C_word c,C_word *av) C_noret;
C_noret_decl(f_11875)
static void C_fcall f_11875(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11879)
static void C_ccall f_11879(C_word c,C_word *av) C_noret;
C_noret_decl(f_11882)
static void C_ccall f_11882(C_word c,C_word *av) C_noret;
C_noret_decl(f_11885)
static void C_ccall f_11885(C_word c,C_word *av) C_noret;
C_noret_decl(f_11906)
static void C_fcall f_11906(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11920)
static void C_fcall f_11920(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11937)
static void C_ccall f_11937(C_word c,C_word *av) C_noret;
C_noret_decl(f_11989)
static void C_ccall f_11989(C_word c,C_word *av) C_noret;
C_noret_decl(f_11993)
static void C_ccall f_11993(C_word c,C_word *av) C_noret;
C_noret_decl(f_11997)
static void C_ccall f_11997(C_word c,C_word *av) C_noret;
C_noret_decl(f_12001)
static void C_ccall f_12001(C_word c,C_word *av) C_noret;
C_noret_decl(f_12005)
static void C_ccall f_12005(C_word c,C_word *av) C_noret;
C_noret_decl(f_12009)
static void C_ccall f_12009(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_12037)
static void C_ccall f_12037(C_word c,C_word *av) C_noret;
C_noret_decl(f_12043)
static void C_ccall f_12043(C_word c,C_word *av) C_noret;
C_noret_decl(f_12050)
static void C_ccall f_12050(C_word c,C_word *av) C_noret;
C_noret_decl(f_12060)
static void C_ccall f_12060(C_word c,C_word *av) C_noret;
C_noret_decl(f_12069)
static void C_fcall f_12069(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12081)
static void C_fcall f_12081(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12091)
static void C_ccall f_12091(C_word c,C_word *av) C_noret;
C_noret_decl(f_12114)
static void C_ccall f_12114(C_word c,C_word *av) C_noret;
C_noret_decl(f_12117)
static void C_ccall f_12117(C_word c,C_word *av) C_noret;
C_noret_decl(f_12118)
static void C_fcall f_12118(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12126)
static void C_ccall f_12126(C_word c,C_word *av) C_noret;
C_noret_decl(f_12129)
static void C_ccall f_12129(C_word c,C_word *av) C_noret;
C_noret_decl(f_12133)
static void C_fcall f_12133(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12143)
static void C_ccall f_12143(C_word c,C_word *av) C_noret;
C_noret_decl(f_12155)
static void C_ccall f_12155(C_word c,C_word *av) C_noret;
C_noret_decl(f_12160)
static void C_ccall f_12160(C_word c,C_word *av) C_noret;
C_noret_decl(f_12169)
static void C_ccall f_12169(C_word c,C_word *av) C_noret;
C_noret_decl(f_12176)
static void C_ccall f_12176(C_word c,C_word *av) C_noret;
C_noret_decl(f_12180)
static void C_ccall f_12180(C_word c,C_word *av) C_noret;
C_noret_decl(f_12182)
static void C_fcall f_12182(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12207)
static void C_ccall f_12207(C_word c,C_word *av) C_noret;
C_noret_decl(f_12218)
static void C_ccall f_12218(C_word c,C_word *av) C_noret;
C_noret_decl(f_12222)
static void C_ccall f_12222(C_word c,C_word *av) C_noret;
C_noret_decl(f_12228)
static void C_ccall f_12228(C_word c,C_word *av) C_noret;
C_noret_decl(f_12231)
static void C_ccall f_12231(C_word c,C_word *av) C_noret;
C_noret_decl(f_12234)
static void C_ccall f_12234(C_word c,C_word *av) C_noret;
C_noret_decl(f_12237)
static void C_ccall f_12237(C_word c,C_word *av) C_noret;
C_noret_decl(f_12240)
static void C_ccall f_12240(C_word c,C_word *av) C_noret;
C_noret_decl(f_12243)
static void C_ccall f_12243(C_word c,C_word *av) C_noret;
C_noret_decl(f_12244)
static void C_fcall f_12244(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12248)
static void C_ccall f_12248(C_word c,C_word *av) C_noret;
C_noret_decl(f_12249)
static void C_fcall f_12249(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12263)
static void C_ccall f_12263(C_word c,C_word *av) C_noret;
C_noret_decl(f_12267)
static void C_ccall f_12267(C_word c,C_word *av) C_noret;
C_noret_decl(f_12271)
static void C_ccall f_12271(C_word c,C_word *av) C_noret;
C_noret_decl(f_12275)
static void C_ccall f_12275(C_word c,C_word *av) C_noret;
C_noret_decl(f_12279)
static void C_ccall f_12279(C_word c,C_word *av) C_noret;
C_noret_decl(f_12283)
static void C_ccall f_12283(C_word c,C_word *av) C_noret;
C_noret_decl(f_12291)
static void C_ccall f_12291(C_word c,C_word *av) C_noret;
C_noret_decl(f_12301)
static void C_ccall f_12301(C_word c,C_word *av) C_noret;
C_noret_decl(f_12313)
static void C_ccall f_12313(C_word c,C_word *av) C_noret;
C_noret_decl(f_12321)
static void C_fcall f_12321(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12331)
static void C_ccall f_12331(C_word c,C_word *av) C_noret;
C_noret_decl(f_12351)
static void C_fcall f_12351(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12361)
static void C_ccall f_12361(C_word c,C_word *av) C_noret;
C_noret_decl(f_12374)
static void C_fcall f_12374(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12384)
static void C_fcall f_12384(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12394)
static void C_ccall f_12394(C_word c,C_word *av) C_noret;
C_noret_decl(f_12406)
static void C_ccall f_12406(C_word c,C_word *av) C_noret;
C_noret_decl(f_12410)
static void C_ccall f_12410(C_word c,C_word *av) C_noret;
C_noret_decl(f_12422)
static void C_ccall f_12422(C_word c,C_word *av) C_noret;
C_noret_decl(f_12426)
static void C_ccall f_12426(C_word c,C_word *av) C_noret;
C_noret_decl(f_12430)
static void C_ccall f_12430(C_word c,C_word *av) C_noret;
C_noret_decl(f_12434)
static void C_ccall f_12434(C_word c,C_word *av) C_noret;
C_noret_decl(f_12438)
static void C_ccall f_12438(C_word c,C_word *av) C_noret;
C_noret_decl(f_12442)
static void C_ccall f_12442(C_word c,C_word *av) C_noret;
C_noret_decl(f_12450)
static void C_ccall f_12450(C_word c,C_word *av) C_noret;
C_noret_decl(f_12452)
static void C_ccall f_12452(C_word c,C_word *av) C_noret;
C_noret_decl(f_12468)
static void C_ccall f_12468(C_word c,C_word *av) C_noret;
C_noret_decl(f_12480)
static void C_ccall f_12480(C_word c,C_word *av) C_noret;
C_noret_decl(f_12488)
static void C_ccall f_12488(C_word c,C_word *av) C_noret;
C_noret_decl(f_12496)
static void C_ccall f_12496(C_word c,C_word *av) C_noret;
C_noret_decl(f_12504)
static void C_ccall f_12504(C_word c,C_word *av) C_noret;
C_noret_decl(f_12506)
static void C_ccall f_12506(C_word c,C_word *av) C_noret;
C_noret_decl(f_12514)
static void C_ccall f_12514(C_word c,C_word *av) C_noret;
C_noret_decl(f_12518)
static void C_ccall f_12518(C_word c,C_word *av) C_noret;
C_noret_decl(f_12524)
static void C_fcall f_12524(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12549)
static void C_ccall f_12549(C_word c,C_word *av) C_noret;
C_noret_decl(f_12553)
static void C_ccall f_12553(C_word c,C_word *av) C_noret;
C_noret_decl(f_12573)
static void C_ccall f_12573(C_word c,C_word *av) C_noret;
C_noret_decl(f_12579)
static void C_ccall f_12579(C_word c,C_word *av) C_noret;
C_noret_decl(f_12583)
static void C_ccall f_12583(C_word c,C_word *av) C_noret;
C_noret_decl(f_12596)
static void C_ccall f_12596(C_word c,C_word *av) C_noret;
C_noret_decl(f_12600)
static void C_ccall f_12600(C_word c,C_word *av) C_noret;
C_noret_decl(f_12604)
static void C_ccall f_12604(C_word c,C_word *av) C_noret;
C_noret_decl(f_12608)
static void C_ccall f_12608(C_word c,C_word *av) C_noret;
C_noret_decl(f_12615)
static void C_ccall f_12615(C_word c,C_word *av) C_noret;
C_noret_decl(f_12617)
static void C_fcall f_12617(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12653)
static void C_ccall f_12653(C_word c,C_word *av) C_noret;
C_noret_decl(f_12659)
static void C_ccall f_12659(C_word c,C_word *av) C_noret;
C_noret_decl(f_12682)
static void C_ccall f_12682(C_word c,C_word *av) C_noret;
C_noret_decl(f_12684)
static void C_fcall f_12684(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12718)
static void C_fcall f_12718(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12743)
static void C_ccall f_12743(C_word c,C_word *av) C_noret;
C_noret_decl(f_12756)
static void C_ccall f_12756(C_word c,C_word *av) C_noret;
C_noret_decl(f_12765)
static void C_fcall f_12765(C_word t0,C_word t1,C_word t2) 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_12804)
static void C_ccall f_12804(C_word c,C_word *av) C_noret;
C_noret_decl(f_12826)
static void C_ccall f_12826(C_word c,C_word *av) C_noret;
C_noret_decl(f_12844)
static void C_ccall f_12844(C_word c,C_word *av) C_noret;
C_noret_decl(f_12852)
static void C_ccall f_12852(C_word c,C_word *av) C_noret;
C_noret_decl(f_12854)
static void C_fcall f_12854(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12862)
static void C_fcall f_12862(C_word t0,C_word t1,C_word t2,C_word t3) 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_12878)
static void C_ccall f_12878(C_word c,C_word *av) C_noret;
C_noret_decl(f_12886)
static void C_ccall f_12886(C_word c,C_word *av) C_noret;
C_noret_decl(f_12890)
static void C_ccall f_12890(C_word c,C_word *av) C_noret;
C_noret_decl(f_12901)
static void C_ccall f_12901(C_word c,C_word *av) C_noret;
C_noret_decl(f_12920)
static void C_ccall f_12920(C_word c,C_word *av) C_noret;
C_noret_decl(f_12924)
static void C_ccall f_12924(C_word c,C_word *av) C_noret;
C_noret_decl(f_12950)
static void C_ccall f_12950(C_word c,C_word *av) C_noret;
C_noret_decl(f_12965)
static void C_ccall f_12965(C_word c,C_word *av) C_noret;
C_noret_decl(f_12969)
static void C_ccall f_12969(C_word c,C_word *av) C_noret;
C_noret_decl(f_13031)
static void C_ccall f_13031(C_word c,C_word *av) C_noret;
C_noret_decl(f_13046)
static void C_fcall f_13046(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_13063)
static void C_ccall f_13063(C_word c,C_word *av) C_noret;
C_noret_decl(f_13069)
static void C_fcall f_13069(C_word t0,C_word t1) 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_13111)
static void C_ccall f_13111(C_word c,C_word *av) C_noret;
C_noret_decl(f_13117)
static void C_ccall f_13117(C_word c,C_word *av) C_noret;
C_noret_decl(f_13130)
static void C_ccall f_13130(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_13191)
static void C_fcall f_13191(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_13212)
static void C_ccall f_13212(C_word c,C_word *av) C_noret;
C_noret_decl(f_13216)
static void C_ccall f_13216(C_word c,C_word *av) C_noret;
C_noret_decl(f_13224)
static void C_ccall f_13224(C_word c,C_word *av) C_noret;
C_noret_decl(f_13230)
static void C_fcall f_13230(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13243)
static void C_ccall f_13243(C_word c,C_word *av) C_noret;
C_noret_decl(f_13272)
static void C_ccall f_13272(C_word c,C_word *av) C_noret;
C_noret_decl(f_13278)
static void C_ccall f_13278(C_word c,C_word *av) C_noret;
C_noret_decl(f_13291)
static void C_ccall f_13291(C_word c,C_word *av) C_noret;
C_noret_decl(f_13295)
static void C_ccall f_13295(C_word c,C_word *av) C_noret;
C_noret_decl(f_13349)
static void C_ccall f_13349(C_word c,C_word *av) C_noret;
C_noret_decl(f_13373)
static void C_ccall f_13373(C_word c,C_word *av) C_noret;
C_noret_decl(f_13386)
static void C_ccall f_13386(C_word c,C_word *av) C_noret;
C_noret_decl(f_13394)
static void C_ccall f_13394(C_word c,C_word *av) C_noret;
C_noret_decl(f_13432)
static void C_ccall f_13432(C_word c,C_word *av) C_noret;
C_noret_decl(f_13442)
static void C_fcall f_13442(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13446)
static void C_ccall f_13446(C_word c,C_word *av) C_noret;
C_noret_decl(f_13449)
static void C_ccall f_13449(C_word c,C_word *av) C_noret;
C_noret_decl(f_13452)
static void C_ccall f_13452(C_word c,C_word *av) C_noret;
C_noret_decl(f_13482)
static void C_ccall f_13482(C_word c,C_word *av) C_noret;
C_noret_decl(f_13485)
static void C_ccall f_13485(C_word c,C_word *av) C_noret;
C_noret_decl(f_13488)
static void C_ccall f_13488(C_word c,C_word *av) C_noret;
C_noret_decl(f_13518)
static void C_ccall f_13518(C_word c,C_word *av) C_noret;
C_noret_decl(f_13545)
static void C_fcall f_13545(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_13549)
static void C_ccall f_13549(C_word c,C_word *av) C_noret;
C_noret_decl(f_13552)
static void C_ccall f_13552(C_word c,C_word *av) C_noret;
C_noret_decl(f_13555)
static void C_ccall f_13555(C_word c,C_word *av) C_noret;
C_noret_decl(f_13561)
static void C_fcall f_13561(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13584)
static void C_ccall f_13584(C_word c,C_word *av) C_noret;
C_noret_decl(f_13599)
static void C_ccall f_13599(C_word c,C_word *av) C_noret;
C_noret_decl(f_13607)
static void C_ccall f_13607(C_word c,C_word *av) C_noret;
C_noret_decl(f_13609)
static void C_ccall f_13609(C_word c,C_word *av) C_noret;
C_noret_decl(f_13659)
static void C_ccall f_13659(C_word c,C_word *av) C_noret;
C_noret_decl(f_13667)
static void C_ccall f_13667(C_word c,C_word *av) C_noret;
C_noret_decl(f_13675)
static void C_ccall f_13675(C_word c,C_word *av) C_noret;
C_noret_decl(f_13683)
static void C_ccall f_13683(C_word c,C_word *av) C_noret;
C_noret_decl(f_13711)
static void C_ccall f_13711(C_word c,C_word *av) C_noret;
C_noret_decl(f_13719)
static void C_ccall f_13719(C_word c,C_word *av) C_noret;
C_noret_decl(f_13745)
static void C_ccall f_13745(C_word c,C_word *av) C_noret;
C_noret_decl(f_13758)
static void C_ccall f_13758(C_word c,C_word *av) C_noret;
C_noret_decl(f_13775)
static void C_ccall f_13775(C_word c,C_word *av) C_noret;
C_noret_decl(f_13779)
static void C_ccall f_13779(C_word c,C_word *av) C_noret;
C_noret_decl(f_13783)
static void C_ccall f_13783(C_word c,C_word *av) C_noret;
C_noret_decl(f_13794)
static void C_ccall f_13794(C_word c,C_word *av) C_noret;
C_noret_decl(f_13798)
static void C_ccall f_13798(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_13885)
static void C_ccall f_13885(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_13914)
static void C_ccall f_13914(C_word c,C_word *av) C_noret;
C_noret_decl(f_13918)
static void C_ccall f_13918(C_word c,C_word *av) C_noret;
C_noret_decl(f_13922)
static void C_ccall f_13922(C_word c,C_word *av) C_noret;
C_noret_decl(f_13931)
static void C_ccall f_13931(C_word c,C_word *av) C_noret;
C_noret_decl(f_13940)
static void C_ccall f_13940(C_word c,C_word *av) C_noret;
C_noret_decl(f_13944)
static void C_ccall f_13944(C_word c,C_word *av) C_noret;
C_noret_decl(f_14042)
static void C_ccall f_14042(C_word c,C_word *av) C_noret;
C_noret_decl(f_14050)
static void C_ccall f_14050(C_word c,C_word *av) C_noret;
C_noret_decl(f_14055)
static void C_fcall f_14055(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14065)
static void C_ccall f_14065(C_word c,C_word *av) C_noret;
C_noret_decl(f_14069)
static C_word C_fcall f_14069(C_word *a,C_word t0,C_word t1);
C_noret_decl(f_3365)
static void C_ccall f_3365(C_word c,C_word *av) C_noret;
C_noret_decl(f_3368)
static void C_ccall f_3368(C_word c,C_word *av) C_noret;
C_noret_decl(f_3371)
static void C_ccall f_3371(C_word c,C_word *av) C_noret;
C_noret_decl(f_3374)
static void C_ccall f_3374(C_word c,C_word *av) C_noret;
C_noret_decl(f_3377)
static void C_ccall f_3377(C_word c,C_word *av) C_noret;
C_noret_decl(f_3380)
static void C_ccall f_3380(C_word c,C_word *av) C_noret;
C_noret_decl(f_3388)
static void C_fcall f_3388(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_3402)
static void C_ccall f_3402(C_word c,C_word *av) C_noret;
C_noret_decl(f_3406)
static void C_ccall f_3406(C_word c,C_word *av) C_noret;
C_noret_decl(f_3412)
static void C_ccall f_3412(C_word c,C_word *av) C_noret;
C_noret_decl(f_3490)
static void C_fcall f_3490(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_3508)
static void C_ccall f_3508(C_word c,C_word *av) C_noret;
C_noret_decl(f_3542)
static void C_fcall f_3542(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_3548)
static void C_fcall f_3548(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_3562)
static void C_ccall f_3562(C_word c,C_word *av) C_noret;
C_noret_decl(f_3581)
static void C_fcall f_3581(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_3596)
static void C_fcall f_3596(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_3604)
static void C_fcall f_3604(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_3612)
static void C_ccall f_3612(C_word c,C_word *av) C_noret;
C_noret_decl(f_3623)
static void C_ccall f_3623(C_word c,C_word *av) C_noret;
C_noret_decl(f_3636)
static void C_fcall f_3636(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_3643)
static void C_ccall f_3643(C_word c,C_word *av) C_noret;
C_noret_decl(f_3650)
static void C_ccall f_3650(C_word c,C_word *av) C_noret;
C_noret_decl(f_3654)
static void C_ccall f_3654(C_word c,C_word *av) C_noret;
C_noret_decl(f_3666)
static void C_ccall f_3666(C_word c,C_word *av) C_noret;
C_noret_decl(f_3668)
static void C_fcall f_3668(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_3715)
static void C_ccall f_3715(C_word c,C_word *av) C_noret;
C_noret_decl(f_3717)
static void C_fcall f_3717(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_3751)
static void C_fcall f_3751(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_3757)
static void C_fcall f_3757(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_3779)
static void C_ccall f_3779(C_word c,C_word *av) C_noret;
C_noret_decl(f_3785)
static void C_fcall f_3785(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_3791)
static void C_fcall f_3791(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_3801)
static void C_ccall f_3801(C_word c,C_word *av) C_noret;
C_noret_decl(f_3815)
static void C_fcall f_3815(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_3821)
static void C_fcall f_3821(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_3835)
static void C_ccall f_3835(C_word c,C_word *av) C_noret;
C_noret_decl(f_3871)
static void C_fcall f_3871(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_3877)
static void C_fcall f_3877(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_3890)
static void C_ccall f_3890(C_word c,C_word *av) C_noret;
C_noret_decl(f_3904)
static void C_ccall f_3904(C_word c,C_word *av) C_noret;
C_noret_decl(f_3912)
static void C_ccall f_3912(C_word c,C_word *av) C_noret;
C_noret_decl(f_3952)
static void C_fcall f_3952(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_3966)
static void C_ccall f_3966(C_word c,C_word *av) C_noret;
C_noret_decl(f_3979)
static void C_ccall f_3979(C_word c,C_word *av) C_noret;
C_noret_decl(f_3991)
static void C_fcall f_3991(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4000)
static void C_fcall f_4000(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4008)
static void C_fcall f_4008(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_4015)
static void C_ccall f_4015(C_word c,C_word *av) C_noret;
C_noret_decl(f_4029)
static void C_ccall f_4029(C_word c,C_word *av) C_noret;
C_noret_decl(f_4044)
static void C_fcall f_4044(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4052)
static void C_fcall f_4052(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_4056)
static void C_ccall f_4056(C_word c,C_word *av) C_noret;
C_noret_decl(f_4060)
static C_word C_fcall f_4060(C_word *a,C_word t0,C_word t1);
C_noret_decl(f_4078)
static void C_ccall f_4078(C_word c,C_word *av) C_noret;
C_noret_decl(f_4117)
static void C_fcall f_4117(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4157)
static C_word C_fcall f_4157(C_word t0);
C_noret_decl(f_4216)
static void C_fcall f_4216(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_4393)
static void C_fcall f_4393(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4399)
static void C_fcall f_4399(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4413)
static void C_ccall f_4413(C_word c,C_word *av) C_noret;
C_noret_decl(f_4417)
static void C_ccall f_4417(C_word c,C_word *av) C_noret;
C_noret_decl(f_4429)
static void C_ccall f_4429(C_word c,C_word *av) C_noret;
C_noret_decl(f_4447)
static void C_ccall f_4447(C_word c,C_word *av) C_noret;
C_noret_decl(f_4662)
static void C_ccall f_4662(C_word c,C_word *av) C_noret;
C_noret_decl(f_4666)
static void C_ccall f_4666(C_word c,C_word *av) C_noret;
C_noret_decl(f_4670)
static void C_ccall f_4670(C_word c,C_word *av) C_noret;
C_noret_decl(f_4674)
static void C_ccall f_4674(C_word c,C_word *av) C_noret;
C_noret_decl(f_4676)
static void C_ccall f_4676(C_word c,C_word *av) C_noret;
C_noret_decl(f_4679)
static C_word C_fcall f_4679(C_word *a,C_word t0,C_word t1);
C_noret_decl(f_4702)
static void C_fcall f_4702(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_4707)
static void C_ccall f_4707(C_word c,C_word *av) C_noret;
C_noret_decl(f_4709)
static C_word C_fcall f_4709(C_word t0);
C_noret_decl(f_4714)
static void C_fcall f_4714(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_4716)
static void C_fcall f_4716(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4732)
static void C_fcall f_4732(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4742)
static void C_ccall f_4742(C_word c,C_word *av) C_noret;
C_noret_decl(f_4755)
static void C_fcall f_4755(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_4759)
static void C_ccall f_4759(C_word c,C_word *av) C_noret;
C_noret_decl(f_4762)
static void C_ccall f_4762(C_word c,C_word *av) C_noret;
C_noret_decl(f_4765)
static void C_ccall f_4765(C_word c,C_word *av) C_noret;
C_noret_decl(f_4777)
static void C_fcall f_4777(C_word t0,C_word t1) C_noret;
C_noret_decl(f_4781)
static void C_ccall f_4781(C_word c,C_word *av) C_noret;
C_noret_decl(f_4783)
static void C_ccall f_4783(C_word c,C_word *av) C_noret;
C_noret_decl(f_4825)
static void C_fcall f_4825(C_word t0,C_word t1) C_noret;
C_noret_decl(f_4828)
static void C_ccall f_4828(C_word c,C_word *av) C_noret;
C_noret_decl(f_4851)
static void C_ccall f_4851(C_word c,C_word *av) C_noret;
C_noret_decl(f_4862)
static void C_ccall f_4862(C_word c,C_word *av) C_noret;
C_noret_decl(f_4866)
static void C_ccall f_4866(C_word c,C_word *av) C_noret;
C_noret_decl(f_4899)
static void C_ccall f_4899(C_word c,C_word *av) C_noret;
C_noret_decl(f_4902)
static void C_ccall f_4902(C_word c,C_word *av) C_noret;
C_noret_decl(f_4905)
static void C_ccall f_4905(C_word c,C_word *av) C_noret;
C_noret_decl(f_4923)
static void C_ccall f_4923(C_word c,C_word *av) C_noret;
C_noret_decl(f_4930)
static void C_ccall f_4930(C_word c,C_word *av) C_noret;
C_noret_decl(f_4973)
static void C_ccall f_4973(C_word c,C_word *av) C_noret;
C_noret_decl(f_4976)
static void C_ccall f_4976(C_word c,C_word *av) C_noret;
C_noret_decl(f_4979)
static void C_ccall f_4979(C_word c,C_word *av) C_noret;
C_noret_decl(f_4992)
static void C_fcall f_4992(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5002)
static void C_ccall f_5002(C_word c,C_word *av) C_noret;
C_noret_decl(f_5023)
static void C_ccall f_5023(C_word c,C_word *av) C_noret;
C_noret_decl(f_5027)
static void C_ccall f_5027(C_word c,C_word *av) C_noret;
C_noret_decl(f_5032)
static void C_ccall f_5032(C_word c,C_word *av) C_noret;
C_noret_decl(f_5035)
static void C_fcall f_5035(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_5049)
static void C_ccall f_5049(C_word c,C_word *av) C_noret;
C_noret_decl(f_5059)
static void C_ccall f_5059(C_word c,C_word *av) C_noret;
C_noret_decl(f_5061)
static C_word C_fcall f_5061(C_word t0);
C_noret_decl(f_5065)
static void C_fcall f_5065(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5079)
static C_word C_fcall f_5079(C_word t0);
C_noret_decl(f_5102)
static void C_fcall f_5102(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5106)
static void C_ccall f_5106(C_word c,C_word *av) C_noret;
C_noret_decl(f_5109)
static void C_ccall f_5109(C_word c,C_word *av) C_noret;
C_noret_decl(f_5117)
static void C_ccall f_5117(C_word c,C_word *av) C_noret;
C_noret_decl(f_5127)
static void C_ccall f_5127(C_word c,C_word *av) C_noret;
C_noret_decl(f_5133)
static void C_ccall f_5133(C_word c,C_word *av) C_noret;
C_noret_decl(f_5172)
static C_word C_fcall f_5172(C_word t0,C_word t1);
C_noret_decl(f_5186)
static void C_ccall f_5186(C_word c,C_word *av) C_noret;
C_noret_decl(f_5188)
static void C_fcall f_5188(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5228)
static void C_ccall f_5228(C_word c,C_word *av) C_noret;
C_noret_decl(f_5230)
static void C_fcall f_5230(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5237)
static void C_ccall f_5237(C_word c,C_word *av) C_noret;
C_noret_decl(f_5249)
static void C_fcall f_5249(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5279)
static void C_ccall f_5279(C_word c,C_word *av) C_noret;
C_noret_decl(f_5301)
static void C_ccall f_5301(C_word c,C_word *av) C_noret;
C_noret_decl(f_5311)
static void C_ccall f_5311(C_word c,C_word *av) C_noret;
C_noret_decl(f_5323)
static void C_ccall f_5323(C_word c,C_word *av) C_noret;
C_noret_decl(f_5327)
static void C_ccall f_5327(C_word c,C_word *av) C_noret;
C_noret_decl(f_5331)
static void C_ccall f_5331(C_word c,C_word *av) C_noret;
C_noret_decl(f_5335)
static void C_ccall f_5335(C_word c,C_word *av) C_noret;
C_noret_decl(f_5339)
static void C_ccall f_5339(C_word c,C_word *av) C_noret;
C_noret_decl(f_5343)
static void C_ccall f_5343(C_word c,C_word *av) C_noret;
C_noret_decl(f_5347)
static void C_ccall f_5347(C_word c,C_word *av) C_noret;
C_noret_decl(f_5351)
static void C_ccall f_5351(C_word c,C_word *av) C_noret;
C_noret_decl(f_5376)
static void C_ccall f_5376(C_word c,C_word *av) C_noret;
C_noret_decl(f_5380)
static void C_ccall f_5380(C_word c,C_word *av) C_noret;
C_noret_decl(f_5382)
static void C_fcall f_5382(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_5396)
static void C_ccall f_5396(C_word c,C_word *av) C_noret;
C_noret_decl(f_5399)
static void C_ccall f_5399(C_word c,C_word *av) C_noret;
C_noret_decl(f_5402)
static void C_ccall f_5402(C_word c,C_word *av) C_noret;
C_noret_decl(f_5405)
static void C_ccall f_5405(C_word c,C_word *av) C_noret;
C_noret_decl(f_5465)
static void C_ccall f_5465(C_word c,C_word *av) C_noret;
C_noret_decl(f_5478)
static void C_fcall f_5478(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5482)
static void C_ccall f_5482(C_word c,C_word *av) C_noret;
C_noret_decl(f_5489)
static void C_ccall f_5489(C_word c,C_word *av) C_noret;
C_noret_decl(f_5520)
static void C_fcall f_5520(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5524)
static void C_ccall f_5524(C_word c,C_word *av) C_noret;
C_noret_decl(f_5528)
static void C_fcall f_5528(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5532)
static void C_ccall f_5532(C_word c,C_word *av) C_noret;
C_noret_decl(f_5535)
static void C_ccall f_5535(C_word c,C_word *av) C_noret;
C_noret_decl(f_5540)
static void C_fcall f_5540(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_5544)
static void C_ccall f_5544(C_word c,C_word *av) C_noret;
C_noret_decl(f_5547)
static void C_ccall f_5547(C_word c,C_word *av) C_noret;
C_noret_decl(f_5550)
static void C_ccall f_5550(C_word c,C_word *av) C_noret;
C_noret_decl(f_5559)
static void C_ccall f_5559(C_word c,C_word *av) C_noret;
C_noret_decl(f_5565)
static void C_ccall f_5565(C_word c,C_word *av) C_noret;
C_noret_decl(f_5571)
static void C_ccall f_5571(C_word c,C_word *av) C_noret;
C_noret_decl(f_5582)
static void C_ccall f_5582(C_word c,C_word *av) C_noret;
C_noret_decl(f_5586)
static void C_ccall f_5586(C_word c,C_word *av) C_noret;
C_noret_decl(f_5609)
static void C_fcall f_5609(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5619)
static void C_fcall f_5619(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5622)
static void C_ccall f_5622(C_word c,C_word *av) C_noret;
C_noret_decl(f_5639)
static void C_ccall f_5639(C_word c,C_word *av) C_noret;
C_noret_decl(f_5672)
static void C_ccall f_5672(C_word c,C_word *av) C_noret;
C_noret_decl(f_5675)
static void C_fcall f_5675(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5690)
static void C_fcall f_5690(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5698)
static void C_fcall f_5698(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5708)
static void C_ccall f_5708(C_word c,C_word *av) C_noret;
C_noret_decl(f_5710)
static void C_fcall f_5710(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5735)
static void C_ccall f_5735(C_word c,C_word *av) C_noret;
C_noret_decl(f_5745)
static void C_ccall f_5745(C_word c,C_word *av) C_noret;
C_noret_decl(f_5756)
static void C_ccall f_5756(C_word c,C_word *av) C_noret;
C_noret_decl(f_5774)
static void C_ccall f_5774(C_word c,C_word *av) C_noret;
C_noret_decl(f_5782)
static void C_ccall f_5782(C_word c,C_word *av) C_noret;
C_noret_decl(f_5792)
static void C_ccall f_5792(C_word c,C_word *av) C_noret;
C_noret_decl(f_5799)
static void C_ccall f_5799(C_word c,C_word *av) C_noret;
C_noret_decl(f_5817)
static void C_ccall f_5817(C_word c,C_word *av) C_noret;
C_noret_decl(f_5822)
static void C_ccall f_5822(C_word c,C_word *av) C_noret;
C_noret_decl(f_5828)
static void C_ccall f_5828(C_word c,C_word *av) C_noret;
C_noret_decl(f_5834)
static void C_fcall f_5834(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5840)
static void C_ccall f_5840(C_word c,C_word *av) C_noret;
C_noret_decl(f_5847)
static void C_ccall f_5847(C_word c,C_word *av) C_noret;
C_noret_decl(f_5862)
static void C_ccall f_5862(C_word c,C_word *av) C_noret;
C_noret_decl(f_5882)
static void C_ccall f_5882(C_word c,C_word *av) C_noret;
C_noret_decl(f_5889)
static void C_ccall f_5889(C_word c,C_word *av) C_noret;
C_noret_decl(f_5892)
static void C_ccall f_5892(C_word c,C_word *av) C_noret;
C_noret_decl(f_5909)
static void C_ccall f_5909(C_word c,C_word *av) C_noret;
C_noret_decl(f_5914)
static void C_ccall f_5914(C_word c,C_word *av) C_noret;
C_noret_decl(f_5921)
static void C_ccall f_5921(C_word c,C_word *av) C_noret;
C_noret_decl(f_5936)
static void C_ccall f_5936(C_word c,C_word *av) C_noret;
C_noret_decl(f_5956)
static void C_ccall f_5956(C_word c,C_word *av) C_noret;
C_noret_decl(f_5990)
static void C_ccall f_5990(C_word c,C_word *av) C_noret;
C_noret_decl(f_6002)
static void C_ccall f_6002(C_word c,C_word *av) C_noret;
C_noret_decl(f_6005)
static void C_ccall f_6005(C_word c,C_word *av) C_noret;
C_noret_decl(f_6012)
static void C_fcall f_6012(C_word t0,C_word t1) C_noret;
C_noret_decl(f_6015)
static void C_ccall f_6015(C_word c,C_word *av) C_noret;
C_noret_decl(f_6024)
static void C_ccall f_6024(C_word c,C_word *av) C_noret;
C_noret_decl(f_6027)
static void C_ccall f_6027(C_word c,C_word *av) C_noret;
C_noret_decl(f_6031)
static void C_fcall f_6031(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6041)
static void C_ccall f_6041(C_word c,C_word *av) C_noret;
C_noret_decl(f_6048)
static void C_ccall f_6048(C_word c,C_word *av) C_noret;
C_noret_decl(f_6056)
static void C_ccall f_6056(C_word c,C_word *av) C_noret;
C_noret_decl(f_6058)
static void C_fcall f_6058(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6068)
static void C_ccall f_6068(C_word c,C_word *av) C_noret;
C_noret_decl(f_6082)
static void C_ccall f_6082(C_word c,C_word *av) C_noret;
C_noret_decl(f_6091)
static void C_ccall f_6091(C_word c,C_word *av) C_noret;
C_noret_decl(f_6094)
static void C_fcall f_6094(C_word t0,C_word t1) C_noret;
C_noret_decl(f_6097)
static void C_ccall f_6097(C_word c,C_word *av) C_noret;
C_noret_decl(f_6116)
static void C_ccall f_6116(C_word c,C_word *av) C_noret;
C_noret_decl(f_6122)
static void C_fcall f_6122(C_word t0,C_word t1) C_noret;
C_noret_decl(f_6125)
static void C_ccall f_6125(C_word c,C_word *av) C_noret;
C_noret_decl(f_6133)
static void C_ccall f_6133(C_word c,C_word *av) C_noret;
C_noret_decl(f_6140)
static void C_ccall f_6140(C_word c,C_word *av) C_noret;
C_noret_decl(f_6146)
static void C_fcall f_6146(C_word t0,C_word t1) C_noret;
C_noret_decl(f_6152)
static void C_ccall f_6152(C_word c,C_word *av) C_noret;
C_noret_decl(f_6155)
static void C_ccall f_6155(C_word c,C_word *av) C_noret;
C_noret_decl(f_6156)
static void C_fcall f_6156(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6166)
static void C_ccall f_6166(C_word c,C_word *av) C_noret;
C_noret_decl(f_6169)
static void C_ccall f_6169(C_word c,C_word *av) C_noret;
C_noret_decl(f_6174)
static void C_ccall f_6174(C_word c,C_word *av) C_noret;
C_noret_decl(f_6177)
static void C_ccall f_6177(C_word c,C_word *av) C_noret;
C_noret_decl(f_6181)
static void C_ccall f_6181(C_word c,C_word *av) C_noret;
C_noret_decl(f_6188)
static void C_ccall f_6188(C_word c,C_word *av) C_noret;
C_noret_decl(f_6191)
static void C_ccall f_6191(C_word c,C_word *av) C_noret;
C_noret_decl(f_6213)
static void C_ccall f_6213(C_word c,C_word *av) C_noret;
C_noret_decl(f_6215)
static void C_fcall f_6215(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6225)
static void C_ccall f_6225(C_word c,C_word *av) C_noret;
C_noret_decl(f_6247)
static void C_ccall f_6247(C_word c,C_word *av) C_noret;
C_noret_decl(f_6256)
static void C_ccall f_6256(C_word c,C_word *av) C_noret;
C_noret_decl(f_6270)
static void C_fcall f_6270(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_6287)
static void C_fcall f_6287(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_6300)
static void C_ccall f_6300(C_word c,C_word *av) C_noret;
C_noret_decl(f_6305)
static void C_fcall f_6305(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6330)
static void C_ccall f_6330(C_word c,C_word *av) C_noret;
C_noret_decl(f_6341)
static void C_ccall f_6341(C_word c,C_word *av) C_noret;
C_noret_decl(f_6345)
static void C_ccall f_6345(C_word c,C_word *av) C_noret;
C_noret_decl(f_6351)
static void C_ccall f_6351(C_word c,C_word *av) C_noret;
C_noret_decl(f_6357)
static void C_ccall f_6357(C_word c,C_word *av) C_noret;
C_noret_decl(f_6363)
static void C_ccall f_6363(C_word c,C_word *av) C_noret;
C_noret_decl(f_6378)
static void C_ccall f_6378(C_word c,C_word *av) C_noret;
C_noret_decl(f_6382)
static void C_ccall f_6382(C_word c,C_word *av) C_noret;
C_noret_decl(f_6394)
static void C_ccall f_6394(C_word c,C_word *av) C_noret;
C_noret_decl(f_6444)
static void C_ccall f_6444(C_word c,C_word *av) C_noret;
C_noret_decl(f_6456)
static void C_ccall f_6456(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_6467)
static void C_ccall f_6467(C_word c,C_word *av) C_noret;
C_noret_decl(f_6471)
static void C_ccall f_6471(C_word c,C_word *av) C_noret;
C_noret_decl(f_6478)
static void C_ccall f_6478(C_word c,C_word *av) C_noret;
C_noret_decl(f_6483)
static void C_fcall f_6483(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6493)
static void C_ccall f_6493(C_word c,C_word *av) C_noret;
C_noret_decl(f_6495)
static void C_fcall f_6495(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6520)
static void C_ccall f_6520(C_word c,C_word *av) C_noret;
C_noret_decl(f_6531)
static void C_ccall f_6531(C_word c,C_word *av) C_noret;
C_noret_decl(f_6539)
static void C_ccall f_6539(C_word c,C_word *av) C_noret;
C_noret_decl(f_6568)
static void C_ccall f_6568(C_word c,C_word *av) C_noret;
C_noret_decl(f_6581)
static void C_ccall f_6581(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_6605)
static void C_ccall f_6605(C_word c,C_word *av) C_noret;
C_noret_decl(f_6611)
static void C_ccall f_6611(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_6640)
static void C_ccall f_6640(C_word c,C_word *av) C_noret;
C_noret_decl(f_6644)
static void C_ccall f_6644(C_word c,C_word *av) C_noret;
C_noret_decl(f_6650)
static void C_ccall f_6650(C_word c,C_word *av) C_noret;
C_noret_decl(f_6653)
static void C_ccall f_6653(C_word c,C_word *av) C_noret;
C_noret_decl(f_6660)
static void C_ccall f_6660(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_6694)
static void C_ccall f_6694(C_word c,C_word *av) C_noret;
C_noret_decl(f_6698)
static void C_ccall f_6698(C_word c,C_word *av) C_noret;
C_noret_decl(f_6705)
static void C_ccall f_6705(C_word c,C_word *av) C_noret;
C_noret_decl(f_6720)
static void C_ccall f_6720(C_word c,C_word *av) C_noret;
C_noret_decl(f_6738)
static void C_ccall f_6738(C_word c,C_word *av) C_noret;
C_noret_decl(f_6741)
static void C_fcall f_6741(C_word t0,C_word t1) C_noret;
C_noret_decl(f_6751)
static void C_ccall f_6751(C_word c,C_word *av) C_noret;
C_noret_decl(f_6753)
static void C_ccall f_6753(C_word c,C_word *av) C_noret;
C_noret_decl(f_6772)
static void C_ccall f_6772(C_word c,C_word *av) C_noret;
C_noret_decl(f_6778)
static void C_ccall f_6778(C_word c,C_word *av) C_noret;
C_noret_decl(f_6788)
static void C_ccall f_6788(C_word c,C_word *av) C_noret;
C_noret_decl(f_6792)
static void C_ccall f_6792(C_word c,C_word *av) C_noret;
C_noret_decl(f_6802)
static void C_ccall f_6802(C_word c,C_word *av) C_noret;
C_noret_decl(f_6806)
static void C_ccall f_6806(C_word c,C_word *av) C_noret;
C_noret_decl(f_6812)
static void C_ccall f_6812(C_word c,C_word *av) C_noret;
C_noret_decl(f_6819)
static void C_ccall f_6819(C_word c,C_word *av) C_noret;
C_noret_decl(f_6832)
static void C_ccall f_6832(C_word c,C_word *av) C_noret;
C_noret_decl(f_6840)
static void C_ccall f_6840(C_word c,C_word *av) C_noret;
C_noret_decl(f_6844)
static void C_ccall f_6844(C_word c,C_word *av) C_noret;
C_noret_decl(f_6850)
static void C_ccall f_6850(C_word c,C_word *av) C_noret;
C_noret_decl(f_6860)
static void C_ccall f_6860(C_word c,C_word *av) C_noret;
C_noret_decl(f_6864)
static void C_ccall f_6864(C_word c,C_word *av) C_noret;
C_noret_decl(f_6882)
static void C_ccall f_6882(C_word c,C_word *av) C_noret;
C_noret_decl(f_6885)
static void C_ccall f_6885(C_word c,C_word *av) C_noret;
C_noret_decl(f_6894)
static void C_fcall f_6894(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6901)
static void C_ccall f_6901(C_word c,C_word *av) C_noret;
C_noret_decl(f_6903)
static void C_fcall f_6903(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6928)
static void C_ccall f_6928(C_word c,C_word *av) C_noret;
C_noret_decl(f_6961)
static void C_ccall f_6961(C_word c,C_word *av) C_noret;
C_noret_decl(f_6967)
static void C_ccall f_6967(C_word c,C_word *av) C_noret;
C_noret_decl(f_6973)
static void C_ccall f_6973(C_word c,C_word *av) C_noret;
C_noret_decl(f_6982)
static void C_ccall f_6982(C_word c,C_word *av) C_noret;
C_noret_decl(f_6994)
static void C_fcall f_6994(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7000)
static void C_ccall f_7000(C_word c,C_word *av) C_noret;
C_noret_decl(f_7006)
static void C_ccall f_7006(C_word c,C_word *av) C_noret;
C_noret_decl(f_7015)
static void C_ccall f_7015(C_word c,C_word *av) C_noret;
C_noret_decl(f_7017)
static void C_fcall f_7017(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7027)
static void C_ccall f_7027(C_word c,C_word *av) C_noret;
C_noret_decl(f_7041)
static void C_ccall f_7041(C_word c,C_word *av) C_noret;
C_noret_decl(f_7042)
static void C_ccall f_7042(C_word c,C_word *av) C_noret;
C_noret_decl(f_7059)
static void C_ccall f_7059(C_word c,C_word *av) C_noret;
C_noret_decl(f_7083)
static void C_ccall f_7083(C_word c,C_word *av) C_noret;
C_noret_decl(f_7093)
static void C_fcall f_7093(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7112)
static void C_ccall f_7112(C_word c,C_word *av) C_noret;
C_noret_decl(f_7120)
static void C_ccall f_7120(C_word c,C_word *av) C_noret;
C_noret_decl(f_7124)
static void C_ccall f_7124(C_word c,C_word *av) C_noret;
C_noret_decl(f_7131)
static void C_ccall f_7131(C_word c,C_word *av) C_noret;
C_noret_decl(f_7135)
static void C_ccall f_7135(C_word c,C_word *av) C_noret;
C_noret_decl(f_7152)
static void C_fcall f_7152(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8) C_noret;
C_noret_decl(f_7158)
static void C_fcall f_7158(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_7168)
static void C_ccall f_7168(C_word c,C_word *av) C_noret;
C_noret_decl(f_7178)
static void C_ccall f_7178(C_word c,C_word *av) C_noret;
C_noret_decl(f_7184)
static void C_ccall f_7184(C_word c,C_word *av) C_noret;
C_noret_decl(f_7212)
static void C_fcall f_7212(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7218)
static void C_ccall f_7218(C_word c,C_word *av) C_noret;
C_noret_decl(f_7222)
static void C_ccall f_7222(C_word c,C_word *av) C_noret;
C_noret_decl(f_7225)
static void C_ccall f_7225(C_word c,C_word *av) C_noret;
C_noret_decl(f_7228)
static void C_ccall f_7228(C_word c,C_word *av) C_noret;
C_noret_decl(f_7231)
static void C_ccall f_7231(C_word c,C_word *av) C_noret;
C_noret_decl(f_7234)
static void C_ccall f_7234(C_word c,C_word *av) C_noret;
C_noret_decl(f_7237)
static void C_ccall f_7237(C_word c,C_word *av) C_noret;
C_noret_decl(f_7266)
static void C_ccall f_7266(C_word c,C_word *av) C_noret;
C_noret_decl(f_7270)
static void C_ccall f_7270(C_word c,C_word *av) C_noret;
C_noret_decl(f_7275)
static void C_ccall f_7275(C_word c,C_word *av) C_noret;
C_noret_decl(f_7303)
static void C_fcall f_7303(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7313)
static void C_ccall f_7313(C_word c,C_word *av) C_noret;
C_noret_decl(f_7341)
static void C_fcall f_7341(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7381)
static C_word C_fcall f_7381(C_word t0);
C_noret_decl(f_7385)
static void C_fcall f_7385(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7392)
static void C_ccall f_7392(C_word c,C_word *av) C_noret;
C_noret_decl(f_7395)
static void C_ccall f_7395(C_word c,C_word *av) C_noret;
C_noret_decl(f_7398)
static void C_ccall f_7398(C_word c,C_word *av) C_noret;
C_noret_decl(f_7407)
static void C_ccall f_7407(C_word c,C_word *av) C_noret;
C_noret_decl(f_7408)
static void C_fcall f_7408(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7415)
static void C_ccall f_7415(C_word c,C_word *av) C_noret;
C_noret_decl(f_7421)
static void C_ccall f_7421(C_word c,C_word *av) C_noret;
C_noret_decl(f_7424)
static void C_ccall f_7424(C_word c,C_word *av) C_noret;
C_noret_decl(f_7430)
static void C_fcall f_7430(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7439)
static void C_ccall f_7439(C_word c,C_word *av) C_noret;
C_noret_decl(f_7451)
static void C_ccall f_7451(C_word c,C_word *av) C_noret;
C_noret_decl(f_7457)
static void C_fcall f_7457(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7466)
static void C_fcall f_7466(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7473)
static void C_ccall f_7473(C_word c,C_word *av) C_noret;
C_noret_decl(f_7476)
static void C_ccall f_7476(C_word c,C_word *av) C_noret;
C_noret_decl(f_7479)
static void C_ccall f_7479(C_word c,C_word *av) C_noret;
C_noret_decl(f_7494)
static void C_ccall f_7494(C_word c,C_word *av) C_noret;
C_noret_decl(f_7514)
static void C_ccall f_7514(C_word c,C_word *av) C_noret;
C_noret_decl(f_7518)
static void C_ccall f_7518(C_word c,C_word *av) C_noret;
C_noret_decl(f_7522)
static void C_ccall f_7522(C_word c,C_word *av) C_noret;
C_noret_decl(f_7532)
static void C_ccall f_7532(C_word c,C_word *av) C_noret;
C_noret_decl(f_7551)
static void C_ccall f_7551(C_word c,C_word *av) C_noret;
C_noret_decl(f_7555)
static void C_ccall f_7555(C_word c,C_word *av) C_noret;
C_noret_decl(f_7574)
static void C_ccall f_7574(C_word c,C_word *av) C_noret;
C_noret_decl(f_7594)
static void C_ccall f_7594(C_word c,C_word *av) C_noret;
C_noret_decl(f_7598)
static void C_ccall f_7598(C_word c,C_word *av) C_noret;
C_noret_decl(f_7605)
static void C_ccall f_7605(C_word c,C_word *av) C_noret;
C_noret_decl(f_7616)
static void C_fcall f_7616(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7626)
static void C_ccall f_7626(C_word c,C_word *av) C_noret;
C_noret_decl(f_7646)
static void C_ccall f_7646(C_word c,C_word *av) C_noret;
C_noret_decl(f_7649)
static void C_ccall f_7649(C_word c,C_word *av) C_noret;
C_noret_decl(f_7652)
static void C_ccall f_7652(C_word c,C_word *av) C_noret;
C_noret_decl(f_7667)
static void C_ccall f_7667(C_word c,C_word *av) C_noret;
C_noret_decl(f_7669)
static void C_fcall f_7669(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7675)
static void C_fcall f_7675(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7699)
static void C_ccall f_7699(C_word c,C_word *av) C_noret;
C_noret_decl(f_7712)
static void C_fcall f_7712(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7721)
static void C_ccall f_7721(C_word c,C_word *av) C_noret;
C_noret_decl(f_7724)
static void C_ccall f_7724(C_word c,C_word *av) C_noret;
C_noret_decl(f_7725)
static void C_fcall f_7725(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7735)
static void C_ccall f_7735(C_word c,C_word *av) C_noret;
C_noret_decl(f_7743)
static void C_ccall f_7743(C_word c,C_word *av) C_noret;
C_noret_decl(f_7751)
static void C_ccall f_7751(C_word c,C_word *av) C_noret;
C_noret_decl(f_7757)
static void C_ccall f_7757(C_word c,C_word *av) C_noret;
C_noret_decl(f_7770)
static void C_ccall f_7770(C_word c,C_word *av) C_noret;
C_noret_decl(f_7784)
static void C_ccall f_7784(C_word c,C_word *av) C_noret;
C_noret_decl(f_7785)
static void C_fcall f_7785(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7792)
static void C_ccall f_7792(C_word c,C_word *av) C_noret;
C_noret_decl(f_7800)
static void C_ccall f_7800(C_word c,C_word *av) C_noret;
C_noret_decl(f_7802)
static void C_fcall f_7802(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7815)
static void C_ccall f_7815(C_word c,C_word *av) C_noret;
C_noret_decl(f_7826)
static void C_ccall f_7826(C_word c,C_word *av) C_noret;
C_noret_decl(f_7832)
static void C_ccall f_7832(C_word c,C_word *av) C_noret;
C_noret_decl(f_7844)
static void C_ccall f_7844(C_word c,C_word *av) C_noret;
C_noret_decl(f_7847)
static void C_ccall f_7847(C_word c,C_word *av) C_noret;
C_noret_decl(f_7850)
static void C_ccall f_7850(C_word c,C_word *av) C_noret;
C_noret_decl(f_7859)
static void C_ccall f_7859(C_word c,C_word *av) C_noret;
C_noret_decl(f_7867)
static void C_fcall f_7867(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7883)
static void C_fcall f_7883(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7896)
static void C_fcall f_7896(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7920)
static void C_fcall f_7920(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7944)
static void C_ccall f_7944(C_word c,C_word *av) C_noret;
C_noret_decl(f_7955)
static void C_ccall f_7955(C_word c,C_word *av) C_noret;
C_noret_decl(f_7967)
static void C_fcall f_7967(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7975)
static void C_fcall f_7975(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7991)
static void C_ccall f_7991(C_word c,C_word *av) C_noret;
C_noret_decl(f_8011)
static void C_ccall f_8011(C_word c,C_word *av) C_noret;
C_noret_decl(f_8022)
static void C_ccall f_8022(C_word c,C_word *av) C_noret;
C_noret_decl(f_8053)
static void C_ccall f_8053(C_word c,C_word *av) C_noret;
C_noret_decl(f_8059)
static void C_fcall f_8059(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8069)
static void C_ccall f_8069(C_word c,C_word *av) C_noret;
C_noret_decl(f_8082)
static void C_fcall f_8082(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8092)
static void C_ccall f_8092(C_word c,C_word *av) C_noret;
C_noret_decl(f_8105)
static void C_fcall f_8105(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8115)
static void C_ccall f_8115(C_word c,C_word *av) C_noret;
C_noret_decl(f_8142)
static void C_fcall f_8142(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8192)
static void C_ccall f_8192(C_word c,C_word *av) C_noret;
C_noret_decl(f_8194)
static void C_ccall f_8194(C_word c,C_word *av) C_noret;
C_noret_decl(f_8198)
static void C_ccall f_8198(C_word c,C_word *av) C_noret;
C_noret_decl(f_8208)
static void C_ccall f_8208(C_word c,C_word *av) C_noret;
C_noret_decl(f_8217)
static C_word C_fcall f_8217(C_word t0,C_word t1);
C_noret_decl(f_8307)
static void C_ccall f_8307(C_word c,C_word *av) C_noret;
C_noret_decl(f_8310)
static void C_ccall f_8310(C_word c,C_word *av) C_noret;
C_noret_decl(f_8331)
static void C_ccall f_8331(C_word c,C_word *av) C_noret;
C_noret_decl(f_8381)
static void C_ccall f_8381(C_word c,C_word *av) C_noret;
C_noret_decl(f_8385)
static void C_ccall f_8385(C_word c,C_word *av) C_noret;
C_noret_decl(f_8389)
static void C_ccall f_8389(C_word c,C_word *av) C_noret;
C_noret_decl(f_8393)
static void C_ccall f_8393(C_word c,C_word *av) C_noret;
C_noret_decl(f_8397)
static void C_ccall f_8397(C_word c,C_word *av) C_noret;
C_noret_decl(f_8426)
static void C_ccall f_8426(C_word c,C_word *av) C_noret;
C_noret_decl(f_8453)
static void C_ccall f_8453(C_word c,C_word *av) C_noret;
C_noret_decl(f_8484)
static void C_ccall f_8484(C_word c,C_word *av) C_noret;
C_noret_decl(f_8501)
static void C_fcall f_8501(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8525)
static void C_ccall f_8525(C_word c,C_word *av) C_noret;
C_noret_decl(f_8536)
static void C_ccall f_8536(C_word c,C_word *av) C_noret;
C_noret_decl(f_8555)
static void C_ccall f_8555(C_word c,C_word *av) C_noret;
C_noret_decl(f_8598)
static void C_ccall f_8598(C_word c,C_word *av) C_noret;
C_noret_decl(f_8613)
static void C_ccall f_8613(C_word c,C_word *av) C_noret;
C_noret_decl(f_8621)
static void C_ccall f_8621(C_word c,C_word *av) C_noret;
C_noret_decl(f_8657)
static void C_ccall f_8657(C_word c,C_word *av) C_noret;
C_noret_decl(f_8690)
static void C_ccall f_8690(C_word c,C_word *av) C_noret;
C_noret_decl(f_8706)
static void C_ccall f_8706(C_word c,C_word *av) C_noret;
C_noret_decl(f_8752)
static void C_ccall f_8752(C_word c,C_word *av) C_noret;
C_noret_decl(f_8767)
static void C_ccall f_8767(C_word c,C_word *av) C_noret;
C_noret_decl(f_8779)
static void C_ccall f_8779(C_word c,C_word *av) C_noret;
C_noret_decl(f_8826)
static void C_ccall f_8826(C_word c,C_word *av) C_noret;
C_noret_decl(f_8841)
static void C_ccall f_8841(C_word c,C_word *av) C_noret;
C_noret_decl(f_8849)
static void C_ccall f_8849(C_word c,C_word *av) C_noret;
C_noret_decl(f_8857)
static void C_ccall f_8857(C_word c,C_word *av) C_noret;
C_noret_decl(f_8888)
static void C_ccall f_8888(C_word c,C_word *av) C_noret;
C_noret_decl(f_8909)
static void C_ccall f_8909(C_word c,C_word *av) C_noret;
C_noret_decl(f_8930)
static void C_ccall f_8930(C_word c,C_word *av) C_noret;
C_noret_decl(f_8939)
static void C_fcall f_8939(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8950)
static void C_ccall f_8950(C_word c,C_word *av) C_noret;
C_noret_decl(f_8959)
static void C_ccall f_8959(C_word c,C_word *av) C_noret;
C_noret_decl(f_8964)
static void C_fcall f_8964(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8989)
static void C_ccall f_8989(C_word c,C_word *av) C_noret;
C_noret_decl(f_8991)
static void C_ccall f_8991(C_word c,C_word *av) C_noret;
C_noret_decl(f_9031)
static void C_ccall f_9031(C_word c,C_word *av) C_noret;
C_noret_decl(f_9041)
static void C_fcall f_9041(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9066)
static void C_ccall f_9066(C_word c,C_word *av) C_noret;
C_noret_decl(f_9075)
static void C_fcall f_9075(C_word t0,C_word t1,C_word t2) 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_9164)
static void C_ccall f_9164(C_word c,C_word *av) C_noret;
C_noret_decl(f_9173)
static void C_ccall f_9173(C_word c,C_word *av) C_noret;
C_noret_decl(f_9188)
static void C_ccall f_9188(C_word c,C_word *av) C_noret;
C_noret_decl(f_9196)
static void C_ccall f_9196(C_word c,C_word *av) C_noret;
C_noret_decl(f_9200)
static void C_ccall f_9200(C_word c,C_word *av) C_noret;
C_noret_decl(f_9253)
static void C_ccall f_9253(C_word c,C_word *av) C_noret;
C_noret_decl(f_9276)
static void C_ccall f_9276(C_word c,C_word *av) C_noret;
C_noret_decl(f_9280)
static void C_ccall f_9280(C_word c,C_word *av) C_noret;
C_noret_decl(f_9314)
static void C_ccall f_9314(C_word c,C_word *av) C_noret;
C_noret_decl(f_9360)
static void C_ccall f_9360(C_word c,C_word *av) C_noret;
C_noret_decl(f_9364)
static void C_ccall f_9364(C_word c,C_word *av) C_noret;
C_noret_decl(f_9393)
static void C_ccall f_9393(C_word c,C_word *av) C_noret;
C_noret_decl(f_9418)
static void C_fcall f_9418(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9422)
static void C_ccall f_9422(C_word c,C_word *av) C_noret;
C_noret_decl(f_9426)
static void C_ccall f_9426(C_word c,C_word *av) C_noret;
C_noret_decl(f_9463)
static void C_ccall f_9463(C_word c,C_word *av) C_noret;
C_noret_decl(f_9493)
static void C_ccall f_9493(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_9563)
static void C_ccall f_9563(C_word c,C_word *av) C_noret;
C_noret_decl(f_9567)
static void C_ccall f_9567(C_word c,C_word *av) C_noret;
C_noret_decl(f_9647)
static void C_ccall f_9647(C_word c,C_word *av) C_noret;
C_noret_decl(f_9668)
static void C_ccall f_9668(C_word c,C_word *av) C_noret;
C_noret_decl(f_9676)
static void C_ccall f_9676(C_word c,C_word *av) C_noret;
C_noret_decl(f_9759)
static void C_ccall f_9759(C_word c,C_word *av) C_noret;
C_noret_decl(f_9774)
static void C_ccall f_9774(C_word c,C_word *av) C_noret;
C_noret_decl(f_9827)
static void C_ccall f_9827(C_word c,C_word *av) C_noret;
C_noret_decl(f_9842)
static void C_ccall f_9842(C_word c,C_word *av) C_noret;
C_noret_decl(f_9861)
static void C_ccall f_9861(C_word c,C_word *av) C_noret;
C_noret_decl(f_9870)
static void C_ccall f_9870(C_word c,C_word *av) C_noret;
C_noret_decl(f_9886)
static void C_fcall f_9886(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_9908)
static void C_ccall f_9908(C_word c,C_word *av) C_noret;
C_noret_decl(f_9911)
static void C_ccall f_9911(C_word c,C_word *av) C_noret;
C_noret_decl(f_9914)
static void C_ccall f_9914(C_word c,C_word *av) C_noret;
C_noret_decl(f_9929)
static void C_ccall f_9929(C_word c,C_word *av) C_noret;
C_noret_decl(f_9933)
static void C_ccall f_9933(C_word c,C_word *av) C_noret;
C_noret_decl(f_9943)
static void C_ccall f_9943(C_word c,C_word *av) C_noret;
C_noret_decl(f_9955)
static void C_ccall f_9955(C_word c,C_word *av) C_noret;
C_noret_decl(f_9967)
static void C_ccall f_9967(C_word c,C_word *av) C_noret;
C_noret_decl(f_9971)
static void C_ccall f_9971(C_word c,C_word *av) C_noret;
C_noret_decl(C_optimizer_toplevel)
C_externexport void C_ccall C_optimizer_toplevel(C_word c,C_word *av) C_noret;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_13545(t0,t1,t2,t3,t4);}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

/* k10011 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10013(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_10013,c,av);}
a=C_alloc(22);
if(C_truep(t1)){
t2=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10028,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_i_cadr(((C_word*)t0)[4]);
t5=C_a_i_list1(&a,1,t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10036,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10038,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10046,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1406: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t6;
av2[2]=t7;
av2[3]=t8;
C_call_with_values(4,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k10026 in k10011 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10028(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10028,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1401: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10034 in k10011 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10036(C_word c,C_word *av){
C_word tmp;
C_word 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_10036,c,av);}
/* optimizer.scm:1404: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[58];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* a10037 in k10011 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10038(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10038,c,av);}
a=C_alloc(5);
t2=C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],C_fix(1));
/* optimizer.scm:1406: split-at */
f_3542(t1,((C_word*)t0)[3],t2);}

/* a10045 in k10011 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10046(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_10046,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10058,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1408: chicken.compiler.support#qnode */
t5=*((C_word*)lf[76]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_caddr(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k10056 in a10045 in k10011 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10058(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10058,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* optimizer.scm:1407: scheme#append */
t3=*((C_word*)lf[7]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10083 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10085(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_10085,c,av);}
a=C_alloc(11);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_i_cddddr(((C_word*)t0)[2]);
t4=C_i_car(t3);
t5=C_i_cadddr(((C_word*)t0)[2]);
t6=(C_truep(*((C_word*)lf[231]+1))?C_i_caddr(((C_word*)t0)[2]):C_i_cadr(((C_word*)t0)[2]));
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10100,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t6,a[6]=t5,a[7]=t4,tmp=(C_word)a,a+=8,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10194,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1424: filter */
f_3991(t7,t8,((C_word*)t0)[5]);}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k10098 in k10083 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10100(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10100,c,av);}
a=C_alloc(13);
if(C_truep(C_i_nullp(t1))){
t2=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10121,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1429: chicken.compiler.support#qnode */
t4=*((C_word*)lf[76]+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_i_cdr(t1);
if(C_truep(C_i_nullp(t2))){
t3=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t4=C_i_car(t1);
t5=C_a_i_list2(&a,2,((C_word*)t0)[2],t4);
/* optimizer.scm:1431: chicken.compiler.support#make-node */
t6=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=t3;
av2[4]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t3=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10157,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10159,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1437: chicken.compiler.support#fold-inner */
t6=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}

/* k10119 in k10098 in k10083 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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 t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_10121,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1429: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10155 in k10098 in k10083 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10157(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10157,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1433: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* a10158 in k10098 in k10083 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10159(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_10159,c,av);}
a=C_alloc(12);
t4=C_eqp(*((C_word*)lf[232]+1),lf[234]);
if(C_truep(t4)){
t5=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t6=C_a_i_list2(&a,2,t2,t3);
/* optimizer.scm:1440: chicken.compiler.support#make-node */
t7=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t7;
av2[1]=t1;
av2[2]=lf[58];
av2[3]=t5;
av2[4]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
else{
t5=C_a_i_list2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
t6=C_a_i_list2(&a,2,t2,t3);
/* optimizer.scm:1441: chicken.compiler.support#make-node */
t7=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t7;
av2[1]=t1;
av2[2]=lf[120];
av2[3]=t5;
av2[4]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}}

/* a10193 in k10083 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10194(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_10194,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10220,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1426: chicken.compiler.support#node-class */
t4=*((C_word*)lf[41]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k10214 in k10218 in a10193 in k10083 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10216(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10216,c,av);}
t2=C_i_car(t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_not(C_eqp(((C_word*)t0)[3],t2));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10218 in a10193 in k10083 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10220(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_10220,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[75],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10216,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1427: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10254 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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 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(14,c,4)))){
C_save_and_reclaim((void *)f_10256,c,av);}
a=C_alloc(14);
if(C_truep(t1)){
t2=C_i_caddr(((C_word*)t0)[2]);
t3=(C_truep(t2)?t2:*((C_word*)lf[231]+1));
if(C_truep(t3)){
t4=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10280,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t6=C_eqp(*((C_word*)lf[232]+1),lf[234]);
if(C_truep(t6)){
t7=C_i_cddddr(((C_word*)t0)[2]);
t8=C_i_car(t7);
t9=C_a_i_list1(&a,1,t8);
/* optimizer.scm:1458: chicken.compiler.support#make-node */
t10=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t10;
av2[1]=t5;
av2[2]=lf[58];
av2[3]=t9;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}
else{
t7=C_i_cadr(((C_word*)t0)[2]);
t8=C_a_i_list2(&a,2,t7,((C_word*)t0)[6]);
/* optimizer.scm:1462: chicken.compiler.support#make-node */
t9=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=t5;
av2[2]=lf[120];
av2[3]=t8;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}}
else{
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k10278 in k10254 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10280(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10280,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1454: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10318 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10320(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word 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_10320,c,av);}
a=C_alloc(17);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_i_length(((C_word*)t0)[3]);
t4=C_i_car(((C_word*)t0)[2]);
if(C_truep(C_i_greater_or_equalp(t3,t4))){
t5=C_i_cadr(((C_word*)t0)[2]);
t6=C_a_i_list2(&a,2,C_SCHEME_TRUE,t5);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10340,a[2]=((C_word*)t0)[4],a[3]=t6,tmp=(C_word)a,a+=4,tmp);
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10344,a[2]=t7,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1479: chicken.compiler.support#varnode */
t9=*((C_word*)lf[82]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=C_i_cadr(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t5=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k10338 in k10318 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10340(C_word c,C_word *av){
C_word tmp;
C_word 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_10340,c,av);}
/* optimizer.scm:1476: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[30];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k10342 in k10318 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10344(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_10344,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10348,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10350,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10356,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1481: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t2;
av2[2]=t3;
av2[3]=t4;
C_call_with_values(4,av2);}}

/* k10346 in k10342 in k10318 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10348(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_10348,c,av);}
a=C_alloc(6);
/* optimizer.scm:1478: cons* */
f_3815(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,((C_word*)t0)[4],t1));}

/* a10349 in k10342 in k10318 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10350(C_word c,C_word *av){
C_word tmp;
C_word 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_10350,c,av);}
/* optimizer.scm:1481: split-at */
f_3542(t1,((C_word*)t0)[2],((C_word*)t0)[3]);}

/* a10355 in k10342 in k10318 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10356(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_10356,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10364,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t5=C_i_cddr(((C_word*)t0)[2]);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10370,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
t9=((C_word*)t7)[1];
f_10370(t9,t4,t3,t5);}

/* k10362 in a10355 in k10342 in k10318 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10364(C_word c,C_word *av){
C_word tmp;
C_word 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_10364,c,av);}
/* optimizer.scm:1482: scheme#append */
t2=*((C_word*)lf[7]+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);}}

/* loop in a10355 in k10342 in k10318 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_10370(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_10370,4,t0,t1,t2,t3);}
a=C_alloc(5);
if(C_truep(C_i_nullp(t2))){
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10390,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_car(t3);
if(C_truep(C_i_symbolp(t5))){
/* optimizer.scm:1090: chicken.compiler.support#varnode */
t6=*((C_word*)lf[82]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t6=C_i_pairp(t5);
t7=(C_truep(t6)?C_eqp(lf[75],C_u_i_car(t5)):C_SCHEME_FALSE);
if(C_truep(t7)){
/* optimizer.scm:1091: chicken.compiler.support#qnode */
t8=*((C_word*)lf[76]+1);{
C_word av2[3];
av2[0]=t8;
av2[1]=t4;
av2[2]=C_i_cadr(t5);
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
/* optimizer.scm:1092: chicken.compiler.support#qnode */
t8=*((C_word*)lf[76]+1);{
C_word av2[3];
av2[0]=t8;
av2[1]=t4;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}}}
else{
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10417,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1491: loop */
t9=t5;
t10=C_u_i_cdr(t2);
t11=C_i_cdr(t3);
t1=t9;
t2=t10;
t3=t11;
goto loop;}}}

/* k10388 in loop in a10355 in k10342 in k10318 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10390(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10390,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10394,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1489: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_10370(t3,t2,C_SCHEME_END_OF_LIST,C_u_i_cdr(((C_word*)t0)[4]));}

/* k10392 in k10388 in loop in a10355 in k10342 in k10318 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10394(C_word c,C_word *av){
C_word tmp;
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_10394,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);}}

/* k10415 in loop in a10355 in k10342 in k10318 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10417(C_word c,C_word *av){
C_word tmp;
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_10417,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10490(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(39,c,8)))){
C_save_and_reclaim((void *)f_10490,c,av);}
a=C_alloc(39);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_END_OF_LIST;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_END_OF_LIST;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_fix(0);
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_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10493,a[2]=t17,a[3]=t7,a[4]=t9,a[5]=t11,a[6]=t13,a[7]=t15,a[8]=t3,tmp=(C_word)a,a+=9,tmp));
t19=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10704,a[2]=t11,a[3]=t3,a[4]=t9,a[5]=t7,tmp=(C_word)a,a+=6,tmp));
t20=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11135,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11817,a[2]=t1,a[3]=t5,a[4]=t13,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1737: chicken.compiler.support#debugging */
t22=*((C_word*)lf[35]+1);{
C_word *av2=av;
av2[0]=t22;
av2[1]=t21;
av2[2]=lf[48];
av2[3]=lf[184];
((C_proc)(void*)(*((C_word*)t22+1)))(4,av2);}}

/* walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_10493(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(13,0,2)))){
C_save_and_reclaim_args((void *)trf_10493,5,t0,t1,t2,t3,t4);}
a=C_alloc(13);
t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10497,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=t4,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);
/* optimizer.scm:1512: chicken.compiler.support#node-parameters */
t6=*((C_word*)lf[43]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k10495 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10497(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_10497,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10500,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
/* optimizer.scm:1513: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[42]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k10498 in k10495 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10500(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_10500,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10503,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp);
/* optimizer.scm:1514: chicken.compiler.support#node-class */
t3=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k10501 in k10498 in k10495 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10503(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_10503,c,av);}
a=C_alloc(22);
t2=C_eqp(t1,lf[29]);
if(C_truep(t2)){
t3=C_i_caddr(((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10518,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp);
if(C_truep(((C_word*)t0)[6])){
if(C_truep(C_i_cadr(((C_word*)t0)[2]))){
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10621,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[13],a[7]=t4,a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[14],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:1519: chicken.compiler.support#db-get */
t6=*((C_word*)lf[55]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[14];
av2[3]=((C_word*)t0)[6];
av2[4]=lf[130];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_10518(2,av2);}}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_10518(2,av2);}}}
else{
t3=C_eqp(t1,lf[31]);
if(C_truep(t3)){
/* optimizer.scm:1533: walk */
t4=((C_word*)((C_word*)t0)[11])[1];
f_10493(t4,((C_word*)t0)[4],C_i_car(((C_word*)t0)[2]),C_i_car(((C_word*)t0)[12]),C_SCHEME_FALSE);}
else{
t4=C_eqp(t1,lf[26]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10647,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[12],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1535: walk */
t6=((C_word*)((C_word*)t0)[11])[1];
f_10493(t6,t5,C_i_car(((C_word*)t0)[2]),C_i_car(((C_word*)t0)[12]),((C_word*)t0)[5]);}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10663,a[2]=((C_word*)t0)[11],tmp=(C_word)a,a+=3,tmp);
t6=C_i_check_list_2(((C_word*)t0)[12],lf[23]);
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_10675,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_10675(t10,((C_word*)t0)[4],((C_word*)t0)[12]);}}}}

/* k10516 in k10501 in k10498 in k10495 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10518(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_10518,c,av);}
if(C_truep(t1)){
/* optimizer.scm:1531: transform */
t2=((C_word*)((C_word*)t0)[2])[1];
f_11135(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1],((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8],((C_word*)((C_word*)t0)[9])[1]);}
else{
/* optimizer.scm:1532: walk */
t2=((C_word*)((C_word*)t0)[10])[1];
f_10493(t2,((C_word*)t0)[3],C_SCHEME_FALSE,C_i_car(((C_word*)t0)[11]),C_SCHEME_FALSE);}}

/* k10547 in k10619 in k10501 in k10498 in k10495 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_10549(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_10549,c,av);}
a=C_alloc(11);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10555,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* optimizer.scm:1522: chicken.compiler.support#db-get-list */
t3=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[129];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_10518(2,av2);}}}

/* k10553 in k10547 in k10619 in k10501 in k10498 in k10495 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_10555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_10555,c,av);}
a=C_alloc(11);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10561,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* optimizer.scm:1523: chicken.compiler.support#db-get-list */
t3=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[10];
av2[3]=((C_word*)t0)[6];
av2[4]=lf[154];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_10518(2,av2);}}}

/* k10559 in k10553 in k10547 in k10619 in k10501 in k10498 in k10495 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_10561(C_word c,C_word *av){
C_word tmp;
C_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,2)))){
C_save_and_reclaim((void *)f_10561,c,av);}
a=C_alloc(13);
if(C_truep(t1)){
t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10609,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10617,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1527: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t3=((C_word*)t0)[9];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_10518(2,av2);}}}
else{
t2=((C_word*)t0)[9];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_10518(2,av2);}}}

/* k10607 in k10559 in k10553 in k10547 in k10619 in k10501 in k10498 in k10495 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_10609(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(3,c,6)))){
C_save_and_reclaim((void *)f_10609,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
t2=C_i_length(((C_word*)t0)[2]);
t3=C_i_length(((C_word*)t0)[3]);
t4=C_eqp(t2,t3);
if(C_truep(t4)){
t5=C_i_car(((C_word*)t0)[4]);
t6=C_i_car(((C_word*)t0)[5]);
t7=C_a_i_cons(&a,2,((C_word*)t0)[6],((C_word*)t0)[5]);
/* optimizer.scm:1530: scan */
t8=((C_word*)((C_word*)t0)[7])[1];
f_10704(t8,((C_word*)t0)[8],t5,t6,((C_word*)t0)[6],((C_word*)t0)[9],t7);}
else{
t5=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_10518(2,av2);}}}
else{
t2=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_10518(2,av2);}}}

/* k10615 in k10559 in k10553 in k10547 in k10619 in k10501 in k10498 in k10495 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
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,3)))){
C_save_and_reclaim((void *)f_10617,c,av);}
/* optimizer.scm:1526: chicken.compiler.support#variable-mark */
t2=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_i_car(t1);
av2[3]=lf[160];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k10619 in k10501 in k10498 in k10495 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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 t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_10621,c,av);}
a=C_alloc(10);
if(C_truep(C_i_not(t1))){
if(C_truep(C_i_listp(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10549,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]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:1521: chicken.compiler.support#db-get */
t3=*((C_word*)lf[55]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[80];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_10518(2,av2);}}}
else{
t2=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_10518(2,av2);}}}

/* k10645 in k10501 in k10498 in k10495 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10647,c,av);}
/* optimizer.scm:1536: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_10493(t2,((C_word*)t0)[3],C_SCHEME_FALSE,C_i_cadr(((C_word*)t0)[4]),C_SCHEME_FALSE);}

/* g2204 in k10501 in k10498 in k10495 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_10663(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_10663,3,t0,t1,t2);}
/* optimizer.scm:1537: walk */
t3=((C_word*)((C_word*)t0)[2])[1];
f_10493(t3,t1,C_SCHEME_FALSE,t2,C_SCHEME_FALSE);}

/* for-each-loop2203 in k10501 in k10498 in k10495 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_10675(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_10675,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_10685,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1537: g2204 */
t4=((C_word*)t0)[3];
f_10663(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k10683 in for-each-loop2203 in k10501 in k10498 in k10495 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_10685(C_word c,C_word *av){
C_word tmp;
C_word 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_10685,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_10675(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_10704(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 t18;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(25,0,6)))){
C_save_and_reclaim_args((void *)trf_10704,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(25);
t7=C_SCHEME_END_OF_LIST;
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=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|12,a[1]=(C_word)f_10707,a[2]=t6,a[3]=t10,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t8,a[7]=t12,a[8]=t5,a[9]=((C_word*)t0)[4],a[10]=t4,a[11]=((C_word*)t0)[5],a[12]=t3,tmp=(C_word)a,a+=13,tmp));
t14=C_set_block_item(((C_word*)t0)[5],0,C_SCHEME_END_OF_LIST);
t15=C_set_block_item(((C_word*)t0)[4],0,C_SCHEME_END_OF_LIST);
t16=C_set_block_item(((C_word*)t0)[2],0,C_fix(0));
t17=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11126,a[2]=t8,a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1616: rec */
t18=((C_word*)t12)[1];
f_10707(t18,t17,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,t6);}

/* rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_10707(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){
C_save_and_reclaim_args((void *)trf_10707,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(18);
t6=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10711,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]=t3,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=t5,a[11]=t4,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],a[17]=t2,tmp=(C_word)a,a+=18,tmp);
/* optimizer.scm:1543: chicken.compiler.support#node-parameters */
t7=*((C_word*)lf[43]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10711(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_10711,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_10714,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp);
/* optimizer.scm:1544: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[42]+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)[17];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10714(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){
C_save_and_reclaim((void *)f_10714,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_10717,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp);
/* optimizer.scm:1545: chicken.compiler.support#node-class */
t3=*((C_word*)lf[41]+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)[18];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_10717(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(33,c,5)))){
C_save_and_reclaim((void *)f_10717,c,av);}
a=C_alloc(33);
t2=C_eqp(t1,lf[24]);
if(C_truep(t2)){
t3=C_i_car(((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10756,a[2]=((C_word*)t0)[3],a[3]=t3,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);
/* optimizer.scm:1548: chicken.compiler.support#db-get */
t5=*((C_word*)lf[55]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[7];
av2[3]=t3;
av2[4]=lf[161];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t3=C_eqp(t1,lf[29]);
if(C_truep(t3)){
if(C_truep(((C_word*)t0)[8])){
t4=C_i_caddr(((C_word*)t0)[2]);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10774,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1556: ##sys#decompose-lambda-list */
t6=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=((C_word*)t0)[3];
av2[2]=t4;
av2[3]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t4=C_eqp(t1,lf[120]);
if(C_truep(t4)){
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[5])[1]))){
t5=C_i_cadr(((C_word*)t0)[2]);
t6=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[6])[1],t5);
t7=C_mutate(((C_word *)((C_word*)t0)[6])+1,t6);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10811,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1565: every */
f_3751(((C_word*)t0)[3],t8,((C_word*)t0)[10]);}
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{
t5=C_eqp(t1,lf[100]);
if(C_truep(t5)){
if(C_truep(((C_word*)t0)[13])){
if(C_truep(((C_word*)t0)[14])){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10845,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1568: chicken.compiler.support#scan-used-variables */
t7=*((C_word*)lf[162]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=C_i_car(((C_word*)t0)[10]);
av2[3]=((C_word*)t0)[12];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t6=C_eqp(t1,lf[163]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10861,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:1573: chicken.compiler.support#estimate-foreign-result-size */
t8=*((C_word*)lf[164]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=C_i_cadr(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t7=C_eqp(t1,lf[165]);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10900,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:1581: chicken.compiler.support#estimate-foreign-result-size */
t9=*((C_word*)lf[164]+1);{
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{
t8=C_eqp(t1,lf[30]);
if(C_truep(t8)){
t9=C_i_car(((C_word*)t0)[10]);
t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11008,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[16],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[17],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[18],a[11]=t9,tmp=(C_word)a,a+=12,tmp);
/* optimizer.scm:1590: chicken.compiler.support#node-class */
t11=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t11;
av2[1]=t10;
av2[2]=t9;
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t9=C_eqp(t1,lf[166]);
if(C_truep(t9)){
t10=C_i_cadddr(((C_word*)t0)[2]);
t11=C_i_zerop(t10);
if(C_truep(t11)){
t12=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t12;
av2[1]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[5])[1]))){
t12=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[6])[1],t10);
t13=C_mutate(((C_word *)((C_word*)t0)[6])+1,t12);
t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11036,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1607: every */
f_3751(((C_word*)t0)[3],t14,((C_word*)t0)[10]);}
else{
t12=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}}
else{
t10=C_eqp(t1,lf[31]);
if(C_truep(t10)){
/* optimizer.scm:1608: rec */
t11=((C_word*)((C_word*)t0)[11])[1];
f_10707(t11,((C_word*)t0)[3],C_i_car(((C_word*)t0)[10]),C_i_car(((C_word*)t0)[2]),C_SCHEME_FALSE,((C_word*)t0)[12]);}
else{
t11=C_eqp(t1,lf[26]);
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11069,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[12],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1610: rec */
t13=((C_word*)((C_word*)t0)[11])[1];
f_10707(t13,t12,C_i_car(((C_word*)t0)[10]),C_i_car(((C_word*)t0)[2]),((C_word*)t0)[19],((C_word*)t0)[12]);}
else{
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11093,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1612: every */
f_3751(((C_word*)t0)[3],t12,((C_word*)t0)[10]);}}}}}}}}}}}

/* k10754 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_10756(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(29,c,1)))){
C_save_and_reclaim((void *)f_10756,c,av);}
a=C_alloc(29);
t2=C_i_not(t1);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_memq(((C_word*)t0)[3],((C_word*)t0)[4]);
t4=C_i_not(t3);
if(C_truep(t4)){
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[5])[1]))){
t5=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[6])[1],C_fix(2));
t6=C_mutate(((C_word *)((C_word*)t0)[6])+1,t5);
t7=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}}

/* a10773 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_10774(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_10774,c,av);}
a=C_alloc(8);
t5=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);
t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5);
t7=C_i_car(((C_word*)t0)[4]);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10790,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1560: scheme#append */
t9=*((C_word*)lf[7]+1);{
C_word *av2=av;
av2[0]=t9;
av2[1]=t8;
av2[2]=t2;
av2[3]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}

/* k10788 in a10773 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_10790(C_word c,C_word *av){
C_word tmp;
C_word 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_10790,c,av);}
/* optimizer.scm:1560: rec */
t2=((C_word*)((C_word*)t0)[2])[1];
f_10707(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,t1);}

/* a10810 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_10811(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_10811,c,av);}
/* optimizer.scm:1565: rec */
t3=((C_word*)((C_word*)t0)[2])[1];
f_10707(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);}

/* k10843 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_10845(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_10845,c,av);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t1))){
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
t4=C_a_i_cons(&a,2,t3,t2);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4);
t6=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k10859 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_10861(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(35,c,2)))){
C_save_and_reclaim((void *)f_10861,c,av);}
a=C_alloc(35);
t2=C_i_zerop(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10865,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(t2)){
t4=t3;
f_10865(t4,t2);}
else{
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[6])[1]))){
t4=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[7])[1],t1);
t5=C_mutate(((C_word *)((C_word*)t0)[7])+1,t4);
t6=t3;
f_10865(t6,C_SCHEME_TRUE);}
else{
t4=t3;
f_10865(t4,C_SCHEME_FALSE);}}}

/* k10863 in k10859 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_fcall f_10865(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_10865,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10870,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1579: every */
f_3751(((C_word*)t0)[4],t2,((C_word*)t0)[5]);}
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);}}}

/* a10869 in k10863 in k10859 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_10870(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_10870,c,av);}
/* optimizer.scm:1579: rec */
t3=((C_word*)((C_word*)t0)[2])[1];
f_10707(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);}

/* k10898 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_10900(C_word c,C_word *av){
C_word tmp;
C_word t0=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(35,c,2)))){
C_save_and_reclaim((void *)f_10900,c,av);}
a=C_alloc(35);
t2=C_i_zerop(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10904,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(t2)){
t4=t3;
f_10904(t4,t2);}
else{
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[6])[1]))){
t4=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[7])[1],t1);
t5=C_mutate(((C_word *)((C_word*)t0)[7])+1,t4);
t6=t3;
f_10904(t6,C_SCHEME_TRUE);}
else{
t4=t3;
f_10904(t4,C_SCHEME_FALSE);}}}

/* k10902 in k10898 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_fcall f_10904(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_10904,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10909,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1587: every */
f_3751(((C_word*)t0)[4],t2,((C_word*)t0)[5]);}
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);}}}

/* a10908 in k10902 in k10898 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_10909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_10909,c,av);}
/* optimizer.scm:1587: rec */
t3=((C_word*)((C_word*)t0)[2])[1];
f_10707(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);}

/* k10949 in k11002 in k11006 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_fcall f_10951(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_10951,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10956,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1600: every */
f_3751(((C_word*)t0)[4],t2,C_i_cdr(((C_word*)t0)[5]));}
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);}}}

/* a10955 in k10949 in k11002 in k11006 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_10956(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_10956,c,av);}
/* optimizer.scm:1600: rec */
t3=((C_word*)((C_word*)t0)[2])[1];
f_10707(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);}

/* k10991 in k10995 in k11002 in k11006 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_10993(C_word c,C_word *av){
C_word tmp;
C_word t0=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,1)))){
C_save_and_reclaim((void *)f_10993,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[2])[1]);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
t5=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE);
t6=((C_word*)t0)[4];
f_10951(t6,C_SCHEME_TRUE);}

/* k10995 in k11002 in k11006 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_10997(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_10997,c,av);}
a=C_alloc(5);
t2=C_eqp(lf[24],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10993,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);
/* optimizer.scm:1596: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+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=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE);
t4=((C_word*)t0)[4];
f_10951(t4,C_SCHEME_TRUE);}}

/* k11002 in k11006 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_11004(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_11004,c,av);}
a=C_alloc(12);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10951,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t4=C_eqp(t2,((C_word*)t0)[6]);
if(C_truep(t4)){
t5=((C_word*)((C_word*)t0)[7])[1];
if(C_truep(C_i_zerop(t5))){
t6=C_i_cadr(((C_word*)t0)[5]);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10997,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=t3,a[5]=t6,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1595: chicken.compiler.support#node-class */
t8=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=t6;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t6=t3;
f_10951(t6,C_SCHEME_FALSE);}}
else{
t5=t3;
f_10951(t5,C_eqp(t2,((C_word*)t0)[10]));}}

/* k11006 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_11008(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_11008,c,av);}
a=C_alloc(11);
t2=C_eqp(lf[24],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11004,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:1591: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+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)[11];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* a11035 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_11036(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_11036,c,av);}
/* optimizer.scm:1607: rec */
t3=((C_word*)((C_word*)t0)[2])[1];
f_10707(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);}

/* k11067 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_11069(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_11069,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=C_i_cadr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11080,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1611: scheme#append */
t4=*((C_word*)lf[7]+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)[5];
av2[3]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
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);}}}

/* k11078 in k11067 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
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;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_11080,c,av);}
/* optimizer.scm:1611: rec */
t2=((C_word*)((C_word*)t0)[2])[1];
f_10707(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,t1);}

/* a11092 in k10715 in k10712 in k10709 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_11093(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_11093,c,av);}
/* optimizer.scm:1612: rec */
t3=((C_word*)((C_word*)t0)[2])[1];
f_10707(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);}

/* k11124 in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_11126(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11126,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11133,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1617: delete */
f_3871(t2,((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1],*((C_word*)lf[47]+1));}
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);}}}

/* k11131 in k11124 in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_11133(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,3)))){
C_save_and_reclaim((void *)f_11133,c,av);}
a=C_alloc(3);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_i_length(t2);
t4=C_i_length(t1);
t5=C_eqp(t3,t4);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4447,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* mini-srfi-1.scm:197: every */
f_3751(((C_word*)t0)[3],t6,t2);}
else{
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_11135(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){
C_word tmp;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(19,0,5)))){
C_save_and_reclaim_args((void *)trf_11135,8,t0,t1,t2,t3,t4,t5,t6,t7);}
a=C_alloc(19);
t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11139,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=t3,a[5]=t6,a[6]=t5,a[7]=t1,a[8]=t4,a[9]=t2,a[10]=((C_word*)t0)[3],tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_pairp(t5))){
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11795,a[2]=t8,a[3]=t3,a[4]=t7,tmp=(C_word)a,a+=5,tmp);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11797,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1621: ##sys#make-promise */
t11=*((C_word*)lf[181]+1);{
C_word av2[3];
av2[0]=t11;
av2[1]=t9;
av2[2]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
/* optimizer.scm:1622: chicken.compiler.support#debugging */
t9=*((C_word*)lf[35]+1);{
C_word av2[6];
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[36];
av2[3]=lf[183];
av2[4]=t3;
av2[5]=t7;
((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}}}

/* k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_11139(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_11139,c,av);}
a=C_alloc(10);
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11143,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:1624: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+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)[9];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_11143(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,4)))){
C_save_and_reclaim((void *)f_11143,c,av);}
a=C_alloc(14);
t2=C_i_caddr(t1);
t3=C_i_length(t2);
t4=C_SCHEME_END_OF_LIST;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11149,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=t5,a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp);
/* optimizer.scm:1627: chicken.compiler.support#db-get-list */
t7=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[154];
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}

/* k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_11149(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_11149,c,av);}
a=C_alloc(16);
t2=C_SCHEME_END_OF_LIST;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11155,a[2]=((C_word*)t0)[2],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]=t3,a[10]=t1,a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],tmp=(C_word)a,a+=14,tmp);
if(C_truep(C_i_listp(((C_word*)t0)[2]))){
t5=C_eqp(C_u_i_length(((C_word*)t0)[2]),C_fix(4));
t6=t4;
f_11155(t6,(C_truep(t5)?C_i_listp(C_i_caddr(((C_word*)t0)[2])):C_SCHEME_FALSE));}
else{
t5=t4;
f_11155(t5,C_SCHEME_FALSE);}}

/* k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_11155(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,3)))){
C_save_and_reclaim_args((void *)trf_11155,2,t0,t1);}
a=C_alloc(15);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_11161,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]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp);
/* optimizer.scm:1631: scheme#caaddr */
t4=*((C_word*)lf[178]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
/* optimizer.scm:1735: chicken.compiler.support#bomb */
t2=*((C_word*)lf[173]+1);{
C_word av2[4];
av2[0]=t2;
av2[1]=((C_word*)t0)[8];
av2[2]=lf[179];
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}

/* k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_11161(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_11161,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_11164,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp);
/* optimizer.scm:1632: scheme#cdaddr */
t3=*((C_word*)lf[177]+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);}}

/* k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_11164(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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_11164,c,av);}
a=C_alloc(15);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_i_setslot(C_u_i_cdr(t2),C_fix(0),t1);
t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_11170,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],tmp=(C_word)a,a+=15,tmp);
/* optimizer.scm:1636: chicken.compiler.support#node-class-set! */
t5=*((C_word*)lf[169]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[15];
av2[3]=lf[100];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
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 t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
C_save_and_reclaim((void *)f_11170,c,av);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11173,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11755,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],a[9]=t2,tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:1639: chicken.compiler.support#node-subexpressions */
t4=*((C_word*)lf[42]+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)[14];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_11173(C_word c,C_word *av){
C_word tmp;
C_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_11173,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11247,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11421,a[2]=((C_word*)t0)[9],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1709: filter */
f_3991(t3,t4,((C_word*)t0)[10]);}

/* g2323 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_fcall f_11174(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(8,0,2)))){
C_save_and_reclaim_args((void *)trf_11174,3,t0,t1,t2);}
a=C_alloc(8);
t3=C_i_cdr(t2);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11181,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:1694: chicken.compiler.support#node-subexpressions */
t5=*((C_word*)lf[42]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k11179 in g2323 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_11181(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_11181,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11184,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:1695: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11182 in k11179 in g2323 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_ccall f_11184(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(8,c,3)))){
C_save_and_reclaim((void *)f_11184,c,av);}
a=C_alloc(8);
t2=C_i_cdr(t1);
t3=C_i_pairp(t2);
t4=(C_truep(t3)?C_i_cadr(t1):C_SCHEME_FALSE);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11190,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
t6=C_i_cdr(((C_word*)t0)[2]);
t7=C_i_length(t6);
t8=C_eqp(((C_word*)t0)[7],t7);
if(C_truep(t8)){
t9=t5;{
C_word *av2=av;
av2[0]=t9;
av2[1]=C_SCHEME_UNDEFINED;
f_11190(2,av2);}}
else{
/* optimizer.scm:1699: chicken.compiler.support#quit-compiling */
t9=*((C_word*)lf[167]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t9;
av2[1]=t5;
av2[2]=lf[168];
av2[3]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}}

/* k11188 in k11182 in k11179 in g2323 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_11190(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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(20,c,4)))){
C_save_and_reclaim((void *)f_11190,c,av);}
a=C_alloc(20);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11205,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t4=C_a_i_list4(&a,4,C_SCHEME_TRUE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);
t5=C_u_i_car(((C_word*)t0)[2]);
t6=C_i_cddr(((C_word*)t0)[2]);
t7=C_a_i_cons(&a,2,t5,t6);
/* optimizer.scm:1705: chicken.compiler.support#make-node */
t8=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t8;
av2[1]=t3;
av2[2]=lf[166];
av2[3]=t4;
av2[4]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}

/* k11203 in k11188 in k11182 in k11179 in g2323 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in ... */
static void C_ccall f_11205(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11205,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1702: chicken.compiler.support#node-subexpressions-set! */
t3=*((C_word*)lf[149]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_11247(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_11247,c,av);}
a=C_alloc(11);
t2=C_i_check_list_2(t1,lf[23]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11253,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11398,a[2]=t5,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_11398(t7,t3,t1);}

/* k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_11253(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_11253,c,av);}
a=C_alloc(5);
t2=(C_truep(((C_word*)t0)[2])?C_i_pairp(((C_word*)t0)[3]):C_SCHEME_FALSE);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11262,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1716: chicken.compiler.support#make-node */
t4=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_FALSE;
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_ccall f_11262(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11262,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11265,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);
/* optimizer.scm:1717: chicken.compiler.support#copy-node! */
t3=*((C_word*)lf[32]+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]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_11265(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_11265,c,av);}
a=C_alloc(11);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[6]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11271,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);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11329,a[2]=t5,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_11329(t7,t3,((C_word*)t0)[2]);}

/* k11269 in k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in ... */
static void C_ccall f_11271(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_11271,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11274,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1728: chicken.compiler.support#copy-node! */
t3=*((C_word*)lf[32]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11272 in k11269 in k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in ... */
static void C_ccall f_11274(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_11274,c,av);}
a=C_alloc(5);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11306,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_11306(t5,((C_word*)t0)[2],((C_word*)t0)[3]);}

/* k11280 in for-each-loop2450 in k11272 in k11269 in k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in ... */
static void C_ccall f_11282(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11282,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11289,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);
/* optimizer.scm:1733: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[42]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11287 in k11280 in for-each-loop2450 in k11272 in k11269 in k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in ... */
static void C_ccall f_11289(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11289,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11293,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);
/* optimizer.scm:1733: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[34];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11291 in k11287 in k11280 in for-each-loop2450 in k11272 in k11269 in k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in ... */
static void C_ccall f_11293(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11293,c,av);}
t2=C_i_set_car(((C_word*)t0)[2],t1);
t3=((C_word*)((C_word*)t0)[3])[1];
f_11306(t3,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11299 in for-each-loop2450 in k11272 in k11269 in k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in ... */
static void C_ccall f_11301(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11301,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* optimizer.scm:1732: chicken.compiler.support#node-parameters-set! */
t3=*((C_word*)lf[150]+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);}}

/* for-each-loop2450 in k11272 in k11269 in k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in ... */
static void C_fcall f_11306(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,2)))){
C_save_and_reclaim_args((void *)trf_11306,3,t0,t1,t2);}
a=C_alloc(10);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_cdr(t3);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11282,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11301,a[2]=t5,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1732: chicken.base#gensym */
t7=*((C_word*)lf[115]+1);{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* foldr2436 in k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in ... */
static void C_fcall f_11329(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_11329,3,t0,t1,t2);}
a=C_alloc(4);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11389,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t6=t4;
t7=C_slot(t2,C_fix(1));
t1=t6;
t2=t7;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11354 in k11370 in k11387 in foldr2436 in k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in ... */
static void C_ccall f_11356(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11356,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
/* optimizer.scm:1721: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[26];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11358 in k11370 in k11387 in foldr2436 in k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in ... */
static void C_ccall f_11360(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11360,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11364,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1724: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11362 in k11358 in k11370 in k11387 in foldr2436 in k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in ... */
static void C_ccall f_11364(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11364,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11368,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1724: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[42]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11366 in k11362 in k11358 in k11370 in k11387 in foldr2436 in k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in ... */
static void C_ccall f_11368(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11368,c,av);}
/* optimizer.scm:1724: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k11370 in k11387 in foldr2436 in k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in ... */
static void C_ccall f_11372(C_word c,C_word *av){
C_word tmp;
C_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_11372,c,av);}
a=C_alloc(9);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11356,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11360,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1724: chicken.compiler.support#node-class */
t5=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k11387 in foldr2436 in k11263 in k11260 in k11251 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in ... */
static void C_ccall f_11389(C_word c,C_word *av){
C_word tmp;
C_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_11389,c,av);}
a=C_alloc(8);
t2=C_i_car(((C_word*)t0)[2]);
t3=C_a_i_list1(&a,1,t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11372,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1723: chicken.compiler.support#node-subexpressions */
t5=*((C_word*)lf[42]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_u_i_cdr(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* for-each-loop2322 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_fcall f_11398(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_11398,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_11408,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1691: g2323 */
t4=((C_word*)t0)[3];
f_11174(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k11406 in for-each-loop2322 in k11245 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_ccall f_11408(C_word c,C_word *av){
C_word tmp;
C_word 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_11408,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11398(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* a11420 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_11421(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_11421,c,av);}
a=C_alloc(6);
t3=C_i_cdr(t2);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11432,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11434,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1711: any */
f_3785(t4,t5,((C_word*)((C_word*)t0)[2])[1]);}

/* k11430 in a11420 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_11432(C_word c,C_word *av){
C_word tmp;
C_word 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_11432,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);}}

/* a11433 in a11420 in k11171 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_11434(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11434,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_eqp(C_i_cdr(t2),((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_fcall f_11448(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(12,0,2)))){
C_save_and_reclaim_args((void *)trf_11448,3,t0,t1,t2);}
a=C_alloc(12);
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11452,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp);
/* optimizer.scm:1640: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_11452(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_11452,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11455,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* optimizer.scm:1641: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[42]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_11455,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11458,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
/* optimizer.scm:1642: chicken.compiler.support#node-class */
t3=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_11458(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(14,c,3)))){
C_save_and_reclaim((void *)f_11458,c,av);}
a=C_alloc(14);
t2=C_eqp(t1,lf[30]);
if(C_truep(t2)){
t3=C_i_car(((C_word*)t0)[2]);
t4=C_i_cadr(((C_word*)t0)[2]);
t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11473,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)[2],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]=t3,a[13]=t4,tmp=(C_word)a,a+=14,tmp);
/* optimizer.scm:1646: chicken.compiler.support#node-parameters */
t6=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t3=C_eqp(t1,lf[26]);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[12]);
t5=C_i_car(((C_word*)t0)[2]);
if(C_truep(C_i_memq(t4,((C_word*)t0)[13]))){
t6=((C_word*)((C_word*)t0)[10])[1];
t7=C_a_i_cons(&a,2,t4,t5);
t8=C_a_i_cons(&a,2,t7,t6);
t9=C_mutate(((C_word *)((C_word*)t0)[10])+1,t8);
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11682,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1684: chicken.compiler.support#copy-node! */
t11=*((C_word*)lf[32]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t11;
av2[1]=t10;
av2[2]=C_i_cadr(((C_word*)t0)[2]);
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}
else{
t6=C_i_check_list_2(((C_word*)t0)[2],lf[23]);
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_11697,a[2]=t8,a[3]=((C_word*)t0)[11],tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_11697(t10,((C_word*)t0)[7],((C_word*)t0)[2]);}}
else{
t4=C_i_check_list_2(((C_word*)t0)[2],lf[23]);
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_11726,a[2]=t6,a[3]=((C_word*)t0)[11],tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_11726(t8,((C_word*)t0)[7],((C_word*)t0)[2]);}}}

/* k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in ... */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_11473,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11476,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
/* optimizer.scm:1647: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[43]+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)[13];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in ... */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_11476,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11657,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
/* optimizer.scm:1648: chicken.compiler.support#node-class */
t3=*((C_word*)lf[41]+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)[13];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11499 in k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in ... */
static void C_ccall f_11501(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11501,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11504,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);
/* optimizer.scm:1656: chicken.compiler.support#node-class-set! */
t3=*((C_word*)lf[169]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[170];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11502 in k11499 in k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in ... */
static void C_ccall f_11504(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_11504,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11507,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_a_i_list2(&a,2,C_SCHEME_TRUE,((C_word*)t0)[5]);
/* optimizer.scm:1657: chicken.compiler.support#node-parameters-set! */
t4=*((C_word*)lf[150]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k11505 in k11502 in k11499 in k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in ... */
static void C_ccall f_11507(C_word c,C_word *av){
C_word tmp;
C_word 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_11507,c,av);}
/* optimizer.scm:1658: chicken.compiler.support#node-subexpressions-set! */
t2=*((C_word*)lf[149]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_i_cddr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* g2357 in k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in ... */
static void C_fcall f_11540(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_11540,3,t0,t1,t2);}
a=C_alloc(10);
t3=C_i_cdr(t2);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11609,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]=t3,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:1662: chicken.compiler.support#node-subexpressions */
t5=*((C_word*)lf[42]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k11548 in k11607 in g2357 in k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in ... */
static void C_ccall f_11550(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_11550,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11553,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:1667: chicken.compiler.support#node-class-set! */
t3=*((C_word*)lf[169]+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)[5];
av2[3]=lf[26];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11551 in k11548 in k11607 in g2357 in k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in ... */
static void C_ccall f_11553(C_word c,C_word *av){
C_word tmp;
C_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_11553,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11556,a[2]=((C_word*)t0)[2],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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11582,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11590,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1668: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k11554 in k11551 in k11548 in k11607 in g2357 in k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in ... */
static void C_ccall f_11556(C_word c,C_word *av){
C_word tmp;
C_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,4)))){
C_save_and_reclaim((void *)f_11556,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11559,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|4,a[1]=(C_word)f_11570,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
t4=C_a_i_list2(&a,2,C_SCHEME_FALSE,((C_word*)t0)[6]);
/* optimizer.scm:1671: chicken.compiler.support#make-node */
t5=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[170];
av2[3]=t4;
av2[4]=C_i_cddr(((C_word*)t0)[7]);
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k11557 in k11554 in k11551 in k11548 in k11607 in g2357 in k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in ... */
static void C_ccall f_11559(C_word c,C_word *av){
C_word tmp;
C_word 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_11559,c,av);}
/* optimizer.scm:1672: rec */
t2=((C_word*)((C_word*)t0)[2])[1];
f_11448(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k11568 in k11554 in k11551 in k11548 in k11607 in g2357 in k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in ... */
static void C_ccall f_11570(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11570,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
/* optimizer.scm:1669: chicken.compiler.support#node-subexpressions-set! */
t3=*((C_word*)lf[149]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11580 in k11551 in k11548 in k11607 in g2357 in k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in ... */
static void C_ccall f_11582(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11582,c,av);}
/* optimizer.scm:1668: chicken.compiler.support#node-parameters-set! */
t2=*((C_word*)lf[150]+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);}}

/* k11588 in k11551 in k11548 in k11607 in g2357 in k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in ... */
static void C_ccall f_11590(C_word c,C_word *av){
C_word tmp;
C_word 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_11590,c,av);}
/* optimizer.scm:1668: take */
f_3490(((C_word*)t0)[2],C_i_caddr(t1),C_fix(1));}

/* k11607 in g2357 in k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in ... */
static void C_ccall f_11609(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_11609,c,av);}
a=C_alloc(9);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11550,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],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
t4=C_i_cdr(((C_word*)t0)[6]);
t5=C_i_length(t4);
t6=C_eqp(((C_word*)t0)[8],t5);
if(C_truep(t6)){
t7=t3;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_UNDEFINED;
f_11550(2,av2);}}
else{
/* optimizer.scm:1664: chicken.compiler.support#quit-compiling */
t7=*((C_word*)lf[167]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t3;
av2[2]=lf[172];
av2[3]=((C_word*)t0)[9];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}

/* k11630 in k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in ... */
static void C_ccall f_11632(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11632,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11635,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);
/* optimizer.scm:1676: chicken.compiler.support#node-parameters-set! */
t3=*((C_word*)lf[150]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11633 in k11630 in k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in ... */
static void C_ccall f_11635(C_word c,C_word *av){
C_word tmp;
C_word 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_11635,c,av);}
/* optimizer.scm:1677: chicken.compiler.support#node-subexpressions-set! */
t2=*((C_word*)lf[149]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_i_cdr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k11655 in k11474 in k11471 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in ... */
static void C_ccall f_11657(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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(14,c,3)))){
C_save_and_reclaim((void *)f_11657,c,av);}
a=C_alloc(14);
t2=C_eqp(lf[24],t1);
if(C_truep(t2)){
t3=C_i_car(((C_word*)t0)[2]);
t4=C_eqp(((C_word*)t0)[3],t3);
if(C_truep(t4)){
t5=((C_word*)((C_word*)t0)[4])[1];
t6=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t0)[5]);
t7=C_a_i_cons(&a,2,t6,t5);
t8=C_mutate(((C_word *)((C_word*)t0)[4])+1,t7);
t9=C_i_car(((C_word*)t0)[6]);
t10=C_eqp(((C_word*)t0)[7],t9);
if(C_truep(t10)){
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11501,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp);
t12=C_i_cdr(((C_word*)t0)[9]);
t13=C_i_length(t12);
t14=C_eqp(((C_word*)t0)[11],t13);
if(C_truep(t14)){
t15=t11;{
C_word *av2=av;
av2[0]=t15;
av2[1]=C_SCHEME_UNDEFINED;
f_11501(2,av2);}}
else{
/* optimizer.scm:1653: chicken.compiler.support#quit-compiling */
t15=*((C_word*)lf[167]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t15;
av2[1]=t11;
av2[2]=lf[171];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}}}
else{
t11=C_i_car(((C_word*)t0)[6]);
t12=C_i_assq(t11,((C_word*)((C_word*)t0)[12])[1]);
if(C_truep(t12)){
t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11540,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:1651: g2357 */
t14=t13;
f_11540(t14,((C_word*)t0)[8],t12);}
else{
/* optimizer.scm:1673: chicken.compiler.support#bomb */
t13=*((C_word*)lf[173]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t13;
av2[1]=((C_word*)t0)[8];
av2[2]=lf[174];
av2[3]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}}}}
else{
t5=C_i_car(((C_word*)t0)[2]);
t6=C_eqp(((C_word*)t0)[7],t5);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11632,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1675: chicken.compiler.support#node-class-set! */
t8=*((C_word*)lf[169]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=((C_word*)t0)[5];
av2[3]=lf[175];
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
else{
/* optimizer.scm:1678: chicken.compiler.support#bomb */
t7=*((C_word*)lf[173]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=((C_word*)t0)[8];
av2[2]=lf[176];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}
else{
t3=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11680 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in ... */
static void C_ccall f_11682(C_word c,C_word *av){
C_word tmp;
C_word 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_11682,c,av);}
/* optimizer.scm:1685: rec */
t2=((C_word*)((C_word*)t0)[2])[1];
f_11448(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* for-each-loop2379 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in ... */
static void C_fcall f_11697(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_11697,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_11707,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1686: g2380 */
t4=((C_word*)((C_word*)t0)[3])[1];
f_11448(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k11705 in for-each-loop2379 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in ... */
static void C_ccall f_11707(C_word c,C_word *av){
C_word tmp;
C_word 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_11707,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11697(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop2396 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in ... */
static void C_fcall f_11726(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_11726,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_11736,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1688: g2397 */
t4=((C_word*)((C_word*)t0)[3])[1];
f_11448(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k11734 in for-each-loop2396 in k11456 in k11453 in k11450 in rec in k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in ... */
static void C_ccall f_11736(C_word c,C_word *av){
C_word tmp;
C_word 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_11736,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11726(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k11753 in k11168 in k11162 in k11159 in k11153 in k11147 in k11141 in k11137 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 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 t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_11755,c,av);}
a=C_alloc(12);
t2=C_i_car(t1);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11448,a[2]=((C_word*)t0)[2],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]=t4,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp));
t6=((C_word*)t4)[1];
f_11448(t6,((C_word*)t0)[9],t2);}

/* k11793 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_11795(C_word c,C_word *av){
C_word tmp;
C_word 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_11795,c,av);}
/* optimizer.scm:1621: chicken.compiler.support#debugging */
t2=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[36];
av2[3]=lf[180];
av2[4]=((C_word*)t0)[3];
av2[5]=t1;
av2[6]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}

/* a11796 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_11797(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_11797,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11805,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11807,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1621: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t2;
av2[2]=t3;
av2[3]=*((C_word*)lf[182]+1);
C_call_with_values(4,av2);}}

/* k11803 in a11796 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_11805(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11805,c,av);}
/* optimizer.scm:1621: ##sys#make-promise */
t2=*((C_word*)lf[181]+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);}}

/* a11806 in a11796 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_11807(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(12,c,3)))){
C_save_and_reclaim((void *)f_11807,c,av);}
a=C_alloc(12);
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[8]);
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_4117,a[2]=t4,a[3]=t8,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t10=((C_word*)t8)[1];
f_4117(t10,t1,((C_word*)t0)[2]);}

/* k11815 in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11817,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11820,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1738: walk */
t3=((C_word*)((C_word*)t0)[4])[1];
f_10493(t3,t2,C_SCHEME_FALSE,((C_word*)t0)[5],C_SCHEME_FALSE);}

/* k11818 in k11815 in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_11820(C_word c,C_word *av){
C_word tmp;
C_word 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_11820,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)((C_word*)t0)[3])[1];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_11822(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_11822,c,av);}
a=C_alloc(29);
t4=C_SCHEME_END_OF_LIST;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_FALSE;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_END_OF_LIST;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11825,a[2]=t9,a[3]=t7,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t15=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11875,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t11,a[6]=t3,tmp=(C_word)a,a+=7,tmp));
t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12114,a[2]=t3,a[3]=t5,a[4]=t1,a[5]=t2,a[6]=t13,tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1822: chicken.compiler.support#debugging */
t17=*((C_word*)lf[35]+1);{
C_word *av2=av;
av2[0]=t17;
av2[1]=t16;
av2[2]=lf[48];
av2[3]=lf[195];
((C_proc)(void*)(*((C_word*)t17+1)))(4,av2);}}

/* close in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static C_word C_fcall f_11825(C_word *a,C_word t0){
C_word tmp;
C_word t1;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_stack_overflow_check;{}
if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[2])[1]))){
t1=C_i_length(((C_word*)((C_word*)t0)[2])[1]);
if(C_truep(C_fixnum_greaterp(t1,C_fix(1)))){
t2=((C_word*)((C_word*)t0)[3])[1];
t3=((C_word*)((C_word*)t0)[2])[1];
t4=((C_word*)((C_word*)t0)[4])[1];
t5=C_a_i_cons(&a,2,t2,t3);
t6=C_a_i_cons(&a,2,t5,t4);
t7=C_mutate(((C_word *)((C_word*)t0)[4])+1,t6);
t8=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_END_OF_LIST);
t9=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_FALSE);
return(t9);}
else{
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_END_OF_LIST);
t3=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_FALSE);
return(t3);}}
else{
t1=C_SCHEME_UNDEFINED;
return(t1);}}

/* k11867 in k11871 in k11987 in k11991 in k11995 in k11999 in k12003 in k12007 in k11904 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_11869(C_word c,C_word *av){
C_word tmp;
C_word 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_11869,c,av);}
t2=((C_word*)t0)[2];
f_11920(t2,C_i_listp(C_i_caddr(t1)));}

/* k11871 in k11987 in k11991 in k11995 in k11999 in k12003 in k12007 in k11904 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_ccall f_11873(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_11873,c,av);}
a=C_alloc(3);
t2=C_eqp(lf[29],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11869,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1775: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];
f_11920(t3,C_SCHEME_FALSE);}}

/* walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_11875(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_11875,4,t0,t1,t2,t3);}
a=C_alloc(10);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11879,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t1,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);
/* optimizer.scm:1778: chicken.compiler.support#node-subexpressions */
t5=*((C_word*)lf[42]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_11879(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_11879,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11882,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* optimizer.scm:1779: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_11882(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_11882,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11885,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
/* optimizer.scm:1780: chicken.compiler.support#node-class */
t3=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_11885(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(16,c,5)))){
C_save_and_reclaim((void *)f_11885,c,av);}
a=C_alloc(16);
t2=C_eqp(t1,lf[26]);
if(C_truep(t2)){
t3=C_i_car(((C_word*)t0)[2]);
t4=C_i_car(((C_word*)t0)[3]);
t5=C_i_cadr(((C_word*)t0)[3]);
t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11906,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t5,a[9]=t4,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[4])[1]))){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12019,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1787: chicken.compiler.support#node-class */
t8=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t7=t6;
f_11906(t7,C_SCHEME_FALSE);}}
else{
t3=C_eqp(t1,lf[29]);
t4=(C_truep(t3)?t3:C_eqp(t1,lf[100]));
if(C_truep(t4)){
t5=C_i_caddr(((C_word*)t0)[2]);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12037,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1810: ##sys#decompose-lambda-list */
t7=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=((C_word*)t0)[8];
av2[2]=t5;
av2[3]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
t5=(
/* optimizer.scm:1819: close */
  f_11825(C_a_i(&a,6),((C_word*)((C_word*)t0)[10])[1])
);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12069,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t7=C_i_check_list_2(((C_word*)t0)[3],lf[23]);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12081,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t11=((C_word*)t9)[1];
f_12081(t11,((C_word*)t0)[8],((C_word*)t0)[3]);}}}

/* k11904 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_11906(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(16,0,3)))){
C_save_and_reclaim_args((void *)trf_11906,2,t0,t1);}
a=C_alloc(16);
if(C_truep(t1)){
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]);
/* optimizer.scm:1790: walk */
t4=((C_word*)((C_word*)t0)[6])[1];
f_11875(t4,((C_word*)t0)[7],((C_word*)t0)[8],t3);}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11920,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[10],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)[11],tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12009,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1792: chicken.compiler.support#node-class */
t4=*((C_word*)lf[41]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[9];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t2;
f_11920(t3,C_SCHEME_FALSE);}}}

/* k11918 in k11904 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_fcall f_11920(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){
C_save_and_reclaim_args((void *)trf_11920,2,t0,t1);}
a=C_alloc(13);
if(C_truep(t1)){
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
t4=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]);
/* optimizer.scm:1803: walk */
t5=((C_word*)((C_word*)t0)[6])[1];
f_11875(t5,((C_word*)t0)[7],((C_word*)t0)[8],t4);}
else{
t2=(
/* optimizer.scm:1806: close */
  f_11825(C_a_i(&a,6),((C_word*)((C_word*)t0)[9])[1])
);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11937,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1807: walk */
t4=((C_word*)((C_word*)t0)[6])[1];
f_11875(t4,t3,((C_word*)t0)[2],((C_word*)t0)[5]);}}

/* k11935 in k11918 in k11904 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_11937(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11937,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
/* optimizer.scm:1808: walk */
t3=((C_word*)((C_word*)t0)[4])[1];
f_11875(t3,((C_word*)t0)[5],((C_word*)t0)[6],t2);}

/* k11987 in k11991 in k11995 in k11999 in k12003 in k12007 in k11904 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_11989(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_11989,c,av);}
a=C_alloc(4);
t2=C_i_length(t1);
t3=C_eqp(((C_word*)t0)[2],t2);
if(C_truep(t3)){
if(C_truep(C_i_memq(((C_word*)t0)[3],((C_word*)t0)[4]))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11873,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1774: chicken.compiler.support#node-class */
t5=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=((C_word*)t0)[5];
f_11920(t4,C_SCHEME_FALSE);}}
else{
t4=((C_word*)t0)[5];
f_11920(t4,C_SCHEME_FALSE);}}

/* k11991 in k11995 in k11999 in k12003 in k12007 in k11904 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_11993(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_11993,c,av);}
a=C_alloc(7);
t2=C_i_length(t1);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11989,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1798: chicken.compiler.support#db-get-list */
t4=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[154];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k11995 in k11999 in k12003 in k12007 in k11904 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_11997(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_11997,c,av);}
a=C_alloc(7);
t2=C_eqp(lf[29],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11993,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:1797: chicken.compiler.support#db-get-list */
t4=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[129];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t3=((C_word*)t0)[4];
f_11920(t3,C_SCHEME_FALSE);}}

/* k11999 in k12003 in k12007 in k11904 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_12001(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_12001,c,av);}
a=C_alloc(7);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11997,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1796: chicken.compiler.support#node-class */
t4=*((C_word*)lf[41]+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);}}

/* k12003 in k12007 in k11904 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_12005(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_12005,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12001,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1794: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+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);}}

/* k12007 in k11904 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_12009(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_12009,c,av);}
a=C_alloc(6);
t2=C_eqp(lf[31],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12005,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);
/* optimizer.scm:1793: chicken.compiler.support#node-subexpressions */
t4=*((C_word*)lf[42]+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=((C_word*)t0)[3];
f_11920(t3,C_SCHEME_FALSE);}}

/* k12017 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12019,c,av);}
t2=((C_word*)t0)[2];
f_11906(t2,C_eqp(lf[34],t1));}

/* a12036 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12037(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_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_12037,c,av);}
a=C_alloc(29);
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_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=C_SCHEME_FALSE;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12043,a[2]=t10,a[3]=((C_word*)t0)[2],a[4]=t12,a[5]=((C_word*)t0)[3],a[6]=t6,a[7]=t8,tmp=(C_word)a,a+=8,tmp);
t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12050,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t15=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12060,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t8,a[5]=((C_word*)t0)[3],a[6]=t10,a[7]=t12,tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:1814: ##sys#dynamic-wind */
t16=*((C_word*)lf[186]+1);{
C_word *av2=av;
av2[0]=t16;
av2[1]=t1;
av2[2]=t13;
av2[3]=t14;
av2[4]=t15;
((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}}

/* a12042 in a12036 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_12043(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12043,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]);
t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[6])[1]);
t5=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[7])[1]);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* a12049 in a12036 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_12050(C_word c,C_word *av){
C_word tmp;
C_word 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_12050,c,av);}
/* optimizer.scm:1816: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_11875(t2,t1,C_i_car(((C_word*)t0)[3]),((C_word*)t0)[4]);}

/* a12059 in a12036 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_12060(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12060,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]);
t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[6])[1]);
t5=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[7])[1]);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* g2563 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_12069(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_12069,3,t0,t1,t2);}
/* optimizer.scm:1820: g2578 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_11875(t3,t1,t2,((C_word*)t0)[3]);}

/* for-each-loop2562 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_12081(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_12081,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_12091,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1820: g2563 */
t4=((C_word*)t0)[3];
f_12069(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k12089 in for-each-loop2562 in k11883 in k11880 in k11877 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_12091(C_word c,C_word *av){
C_word tmp;
C_word 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_12091,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_12081(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12114(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12114,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12117,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);
/* optimizer.scm:1825: walk */
t3=((C_word*)((C_word*)t0)[6])[1];
f_11875(t3,t2,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);}

/* k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12117(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_12117,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12118,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=((C_word*)((C_word*)t0)[3])[1];
t4=C_i_check_list_2(t3,lf[23]);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12756,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12765,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_12765(t9,t5,t3);}

/* g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_12118(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_12118,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_i_car(t2);
t4=C_u_i_cdr(t2);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12126,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1832: chicken.base#gensym */
t6=*((C_word*)lf[115]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[194];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12126(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_12126,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12129,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);
/* optimizer.scm:1833: chicken.base#gensym */
t3=*((C_word*)lf[115]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[105];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12129(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(26,c,3)))){
C_save_and_reclaim((void *)f_12129,c,av);}
a=C_alloc(26);
t2=C_fix(1);
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t5=t4;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=((C_word*)t6)[1];
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12133,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t9=C_i_check_list_2(((C_word*)t0)[2],lf[8]);
t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12228,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,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|5,a[1]=(C_word)f_12718,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp));
t14=((C_word*)t12)[1];
f_12718(t14,t10,((C_word*)t0)[2]);}

/* g2603 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_fcall f_12133(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_12133,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12222,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1839: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k12141 in k12216 in k12220 in g2603 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_12143(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,3)))){
C_save_and_reclaim((void *)f_12143,c,av);}
a=C_alloc(20);
t2=C_i_caddr(t1);
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[8]);
t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12155,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],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12182,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_12182(t12,t8,t2);}

/* k12153 in k12141 in k12216 in k12220 in g2603 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_12155(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_12155,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12160,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:1844: ##sys#decompose-lambda-list */
t3=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[7];
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* a12159 in k12153 in k12141 in k12216 in k12220 in g2603 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_12160(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_12160,c,av);}
a=C_alloc(7);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12180,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);
/* optimizer.scm:1847: chicken.compiler.support#node-subexpressions */
t6=*((C_word*)lf[42]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k12167 in k12178 in a12159 in k12153 in k12141 in k12216 in k12220 in g2603 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_12169(C_word c,C_word *av){
C_word tmp;
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_12169,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list4(&a,4,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12174 in k12178 in a12159 in k12153 in k12141 in k12216 in k12220 in g2603 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_12176(C_word c,C_word *av){
C_word tmp;
C_word 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_12176,c,av);}
/* optimizer.scm:1850: chicken.compiler.support#copy-node! */
t2=*((C_word*)lf[32]+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);}}

/* k12178 in a12159 in k12153 in k12141 in k12216 in k12220 in g2603 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_ccall f_12180(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(40,c,4)))){
C_save_and_reclaim((void *)f_12180,c,av);}
a=C_alloc(40);
t2=C_i_car(t1);
t3=((C_word*)((C_word*)t0)[2])[1];
t4=((C_word*)((C_word*)t0)[2])[1];
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t4,C_fix(1)));
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12169,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12176,a[2]=t6,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1851: chicken.compiler.support#make-node */
t8=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=lf[34];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}

/* map-loop2622 in k12141 in k12216 in k12220 in g2603 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_fcall f_12182(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_12182,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_12207,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);
/* optimizer.scm:1843: g2628 */
t4=*((C_word*)lf[115]+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);}}}

/* k12205 in map-loop2622 in k12141 in k12216 in k12220 in g2603 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_12207(C_word c,C_word *av){
C_word tmp;
C_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_12207,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_12182(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k12216 in k12220 in g2603 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_12218(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_12218,c,av);}
a=C_alloc(7);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12143,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1841: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+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);}}

/* k12220 in g2603 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_12222(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_12222,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12218,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1840: chicken.compiler.support#node-subexpressions */
t4=*((C_word*)lf[42]+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);}}

/* k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_12228(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_12228,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12231,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:1855: chicken.base#gensym */
t3=*((C_word*)lf[115]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[193];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_12231(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word 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(24,c,3)))){
C_save_and_reclaim((void *)f_12231,c,av);}
a=C_alloc(24);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12234,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_i_check_list_2(((C_word*)t0)[5],lf[8]);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12682,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12684,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_12684(t12,t8,((C_word*)t0)[5]);}

/* k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_12234(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_12234,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12237,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12653,a[2]=((C_word*)t0)[7],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12659,tmp=(C_word)a,a+=2,tmp);
/* optimizer.scm:1858: list-tabulate */
f_4393(t3,t1,t4);}

/* k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_12237(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
C_save_and_reclaim((void *)f_12237,c,av);}
a=C_alloc(26);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12240,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
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=lf[14];
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12615,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12617,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_12617(t12,t8,((C_word*)t0)[6]);}

/* k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_12240(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_12240,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12243,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12374,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp));
t6=((C_word*)t4)[1];
f_12374(t6,t2,((C_word*)t0)[10]);}

/* k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_12243(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_12243,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12244,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|3,a[1]=(C_word)f_12351,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_12351(t6,((C_word*)t0)[5],((C_word*)t0)[6]);}

/* g2696 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_fcall f_12244(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,4)))){
C_save_and_reclaim_args((void *)trf_12244,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12248,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1923: chicken.compiler.support#db-get */
t4=*((C_word*)lf[55]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
av2[3]=C_i_car(t2);
av2[4]=lf[154];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12246 in g2696 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_12248(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_12248,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12249,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_check_list_2(t1,lf[23]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12321,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_12321(t7,((C_word*)t0)[5],t1);}

/* g2748 in k12246 in g2696 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in ... */
static void C_fcall f_12249(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_12249,3,t0,t1,t2);}
a=C_alloc(7);
t3=C_i_cdr(t2);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12313,a[2]=t1,a[3]=t3,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);
/* optimizer.scm:1927: chicken.compiler.support#node-subexpressions */
t5=*((C_word*)lf[42]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k12261 in k12311 in g2748 in k12246 in g2696 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in ... */
static void C_ccall f_12263(C_word c,C_word *av){
C_word tmp;
C_word 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_12263,c,av);}
/* optimizer.scm:1928: chicken.compiler.support#copy-node! */
t2=*((C_word*)lf[32]+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);}}

/* k12265 in k12311 in g2748 in k12246 in g2696 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in ... */
static void C_ccall f_12267(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_12267,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12271,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12275,a[2]=t2,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);
/* optimizer.scm:1931: chicken.compiler.support#varnode */
t4=*((C_word*)lf[82]+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);}}

/* k12269 in k12265 in k12311 in g2748 in k12246 in g2696 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in ... */
static void C_ccall f_12271(C_word c,C_word *av){
C_word tmp;
C_word 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_12271,c,av);}
/* optimizer.scm:1929: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[30];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k12273 in k12265 in k12311 in g2748 in k12246 in g2696 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in ... */
static void C_ccall f_12275(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(40,c,3)))){
C_save_and_reclaim((void *)f_12275,c,av);}
a=C_alloc(40);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12279,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12283,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t4=C_i_length(((C_word*)t0)[3]);
t5=C_s_a_i_minus(&a,2,((C_word*)t0)[5],t4);
t6=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12301,tmp=(C_word)a,a+=2,tmp);
/* optimizer.scm:1934: list-tabulate */
f_4393(t3,t5,t6);}

/* k12277 in k12273 in k12265 in k12311 in g2748 in k12246 in g2696 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in ... */
static void C_ccall f_12279(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12279,c,av);}
a=C_alloc(3);
/* optimizer.scm:1931: cons* */
f_3815(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,1,t1));}

/* k12281 in k12273 in k12265 in k12311 in g2748 in k12246 in g2696 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in ... */
static void C_ccall f_12283(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12283,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12291,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1937: chicken.compiler.support#qnode */
t3=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12289 in k12281 in k12273 in k12265 in k12311 in g2748 in k12246 in g2696 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in ... */
static void C_ccall f_12291(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12291,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* optimizer.scm:1932: scheme#append */
t3=*((C_word*)lf[7]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* a12300 in k12273 in k12265 in k12311 in g2748 in k12246 in g2696 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in ... */
static void C_ccall f_12301(C_word c,C_word *av){
C_word tmp;
C_word 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_12301,c,av);}
/* optimizer.scm:1936: chicken.compiler.support#qnode */
t2=*((C_word*)lf[76]+1);{
C_word av2[3];
av2[0]=t2;
av2[1]=t1;
av2[2]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12311 in g2748 in k12246 in g2696 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in ... */
static void C_ccall f_12313(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_12313,c,av);}
a=C_alloc(11);
t2=C_i_cdr(t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12263,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12267,a[2]=t3,a[3]=t2,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);
/* optimizer.scm:1930: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* for-each-loop2747 in k12246 in g2696 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in ... */
static void C_fcall f_12321(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_12321,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_12331,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1924: g2748 */
t4=((C_word*)t0)[3];
f_12249(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k12329 in for-each-loop2747 in k12246 in g2696 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in ... */
static void C_ccall f_12331(C_word c,C_word *av){
C_word tmp;
C_word 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_12331,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_12321(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop2695 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_fcall f_12351(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_12351,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_12361,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1921: g2696 */
t4=((C_word*)t0)[3];
f_12244(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k12359 in for-each-loop2695 in k12241 in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_12361(C_word c,C_word *av){
C_word tmp;
C_word 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_12361,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_12351(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_fcall f_12374(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_12374,3,t0,t1,t2);}
a=C_alloc(11);
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12608,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp);
/* optimizer.scm:1868: chicken.compiler.support#node-subexpressions */
t4=*((C_word*)lf[42]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in ... */
static void C_fcall f_12384(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(18,0,4)))){
C_save_and_reclaim_args((void *)trf_12384,2,t0,t1);}
a=C_alloc(18);
if(C_truep(t1)){
/* optimizer.scm:1872: descend */
t2=((C_word*)((C_word*)t0)[2])[1];
f_12374(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12394,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t3=C_a_i_list1(&a,1,((C_word*)t0)[6]);
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12406,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],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);
/* optimizer.scm:1879: chicken.compiler.support#make-node */
t5=*((C_word*)lf[33]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[34];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}

/* k12392 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in ... */
static void C_ccall f_12394(C_word c,C_word *av){
C_word tmp;
C_word 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_12394,c,av);}
/* optimizer.scm:1874: chicken.compiler.support#copy-node! */
t2=*((C_word*)lf[32]+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);}}

/* k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in ... */
static void C_ccall f_12406(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_12406,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12410,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12583,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:1881: chicken.base#gensym */
t4=*((C_word*)lf[115]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k12408 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in ... */
static void C_ccall f_12410(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_12410,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1875: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[26];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12420 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in ... */
static void C_ccall f_12422(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_12422,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12426,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12430,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12434,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1914: chicken.compiler.support#varnode */
t5=*((C_word*)lf[82]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k12424 in k12420 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in ... */
static void C_ccall f_12426(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12426,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1880: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[26];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12428 in k12420 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in ... */
static void C_ccall f_12430(C_word c,C_word *av){
C_word tmp;
C_word 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_12430,c,av);}
/* optimizer.scm:1912: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[30];
av2[3]=lf[187];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k12432 in k12420 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in ... */
static void C_ccall f_12434(C_word c,C_word *av){
C_word tmp;
C_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_12434,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12438,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_12442,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12452,tmp=(C_word)a,a+=2,tmp);
/* optimizer.scm:1916: list-tabulate */
f_4393(t3,((C_word*)t0)[3],t4);}

/* k12436 in k12432 in k12420 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in ... */
static void C_ccall f_12438(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12438,c,av);}
a=C_alloc(3);
/* optimizer.scm:1914: cons* */
f_3815(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,1,t1));}

/* k12440 in k12432 in k12420 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in ... */
static void C_ccall f_12442(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12442,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12450,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1917: chicken.compiler.support#qnode */
t3=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_fix(0);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12448 in k12440 in k12432 in k12420 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in ... */
static void C_ccall f_12450(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12450,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* optimizer.scm:1915: scheme#append */
t3=*((C_word*)lf[7]+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);}}

/* a12451 in k12432 in k12420 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in ... */
static void C_ccall f_12452(C_word c,C_word *av){
C_word tmp;
C_word 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_12452,c,av);}
/* optimizer.scm:1916: chicken.compiler.support#qnode */
t2=*((C_word*)lf[76]+1);{
C_word av2[3];
av2[0]=t2;
av2[1]=t1;
av2[2]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12466 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in ... */
static void C_ccall f_12468(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12468,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* optimizer.scm:1883: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[31];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12478 in k12577 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in ... */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12480,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* optimizer.scm:1886: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[29];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12486 in k12577 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in ... */
static void C_ccall f_12488(C_word c,C_word *av){
C_word tmp;
C_word 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_12488,c,av);}
/* optimizer.scm:1891: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[40];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k12494 in k12571 in k12577 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in ... */
static void C_ccall f_12496(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12496,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12504,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1908: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[42]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12502 in k12494 in k12571 in k12577 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in ... */
static void C_ccall f_12504(C_word c,C_word *av){
C_word tmp;
C_word 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_12504,c,av);}
/* optimizer.scm:1894: scheme#append */
t2=*((C_word*)lf[7]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=C_i_cdr(t1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* a12505 in k12571 in k12577 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in ... */
static void C_ccall f_12506(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12506,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12514,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1898: chicken.compiler.support#qnode */
t4=*((C_word*)lf[76]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_cadr(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k12512 in a12505 in k12571 in k12577 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in ... */
static void C_ccall f_12514(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_12514,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12518,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=C_i_caddr(((C_word*)t0)[3]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12524,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_12524(t7,t2,((C_word*)t0)[4],t3);}

/* k12516 in k12512 in a12505 in k12571 in k12577 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in ... */
static void C_ccall f_12518(C_word c,C_word *av){
C_word tmp;
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_12518,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* loop in k12512 in a12505 in k12571 in k12577 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in ... */
static void C_fcall f_12524(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(10,0,2)))){
C_save_and_reclaim_args((void *)trf_12524,4,t0,t1,t2,t3);}
a=C_alloc(10);
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_i_cadddr(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t3);
t5=C_a_i_list1(&a,1,t4);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12549,a[2]=t1,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1905: chicken.compiler.support#varnode */
t7=*((C_word*)lf[82]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}

/* k12547 in loop in k12512 in a12505 in k12571 in k12577 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in ... */
static void C_ccall f_12549(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_12549,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12553,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1906: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_12524(t3,t2,C_u_i_cdr(((C_word*)t0)[5]),C_u_i_cdr(((C_word*)t0)[6]));}

/* k12551 in k12547 in loop in k12512 in a12505 in k12571 in k12577 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in ... */
static void C_ccall f_12553(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12553,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1903: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[26];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12571 in k12577 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in ... */
static void C_ccall f_12573(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_12573,c,av);}
a=C_alloc(11);
t2=C_a_i_list1(&a,1,t1);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12496,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12506,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1896: append-map */
f_3581(t3,t4,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);}

/* k12577 in k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in ... */
static void C_ccall f_12579(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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(58,c,2)))){
C_save_and_reclaim((void *)f_12579,c,av);}
a=C_alloc(58);
t2=C_a_i_list4(&a,4,t1,C_SCHEME_TRUE,((C_word*)t0)[2],C_fix(0));
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12480,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=((C_word*)((C_word*)t0)[4])[1];
t5=C_s_a_i_minus(&a,2,t4,C_fix(1));
t6=C_a_i_list1(&a,1,t5);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12488,a[2]=t3,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12573,a[2]=t7,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1895: chicken.compiler.support#varnode */
t9=*((C_word*)lf[82]+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);}}

/* k12581 in k12404 in k12382 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in ... */
static void C_ccall f_12583(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){
C_save_and_reclaim((void *)f_12583,c,av);}
a=C_alloc(24);
t2=C_a_i_list1(&a,1,t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12422,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t4=C_a_i_list1(&a,1,((C_word*)t0)[4]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12468,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12579,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:1888: chicken.base#gensym */
t7=*((C_word*)lf[115]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[188];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k12594 in k12598 in k12602 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in ... */
static void C_ccall f_12596(C_word c,C_word *av){
C_word tmp;
C_word 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_12596,c,av);}
t2=((C_word*)t0)[2];
f_12384(t2,C_eqp(lf[34],t1));}

/* k12598 in k12602 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in ... */
static void C_ccall f_12600(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12600,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12596,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1871: chicken.compiler.support#node-class */
t4=*((C_word*)lf[41]+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);}}

/* k12602 in k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_12604(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_12604,c,av);}
a=C_alloc(3);
t2=C_eqp(lf[26],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12600,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1870: chicken.compiler.support#node-subexpressions */
t4=*((C_word*)lf[42]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];
f_12384(t3,C_SCHEME_FALSE);}}

/* k12606 in descend in k12238 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_ccall f_12608(C_word c,C_word *av){
C_word tmp;
C_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_12608,c,av);}
a=C_alloc(16);
t2=C_i_cadr(t1);
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12384,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],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12604,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1869: chicken.compiler.support#node-class */
t5=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k12613 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_12615(C_word c,C_word *av){
C_word tmp;
C_word 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_12615,c,av);}
/* optimizer.scm:1861: chicken.compiler.support#debugging */
t2=*((C_word*)lf[35]+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[189];
av2[3]=lf[190];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* map-loop2705 in k12235 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_fcall f_12617(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_12617,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);}}}

/* k12651 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_12653(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12653,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
/* optimizer.scm:1857: scheme#append */
t3=*((C_word*)lf[7]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* a12658 in k12232 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_12659(C_word c,C_word *av){
C_word tmp;
C_word 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_12659,c,av);}
/* optimizer.scm:1858: chicken.base#gensym */
t2=*((C_word*)lf[115]+1);{
C_word av2[3];
av2[0]=t2;
av2[1]=t1;
av2[2]=lf[191];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12680 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_12682(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12682,c,av);}{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[192]+1);
av2[3]=t1;
C_apply(4,av2);}}

/* map-loop2664 in k12229 in k12226 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_fcall f_12684(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_12684,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_caddr(t3);
t5=C_i_length(t4);
t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST);
t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6);
t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6);
t10=t1;
t11=C_slot(t2,C_fix(1));
t1=t10;
t2=t11;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* map-loop2597 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_fcall f_12718(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_12718,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_12743,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);
/* optimizer.scm:1836: g2603 */
t4=((C_word*)t0)[4];
f_12133(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);}}}

/* k12741 in map-loop2597 in k12127 in k12124 in g2493 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_12743(C_word c,C_word *av){
C_word tmp;
C_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_12743,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_12718(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k12754 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12756(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12756,c,av);}
/* optimizer.scm:1943: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_i_pairp(((C_word*)((C_word*)t0)[4])[1]);
C_values(4,av2);}}

/* for-each-loop2492 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_12765(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_12765,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_12775,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1828: g2493 */
t4=((C_word*)t0)[3];
f_12118(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k12773 in for-each-loop2492 in k12115 in k12112 in chicken.compiler.optimizer#determine-loop-and-dispatch in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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,2)))){
C_save_and_reclaim((void *)f_12775,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_12765(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* a12803 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12804(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7=av[7];
C_word t8=av[8];
C_word t9=av[9];
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_12804,c,av);}
a=C_alloc(9);
t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12924,a[2]=t5,a[3]=t7,a[4]=t6,a[5]=t1,a[6]=t8,a[7]=t9,a[8]=t4,tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:958: membership-test-operators */
t11=*((C_word*)lf[18]+1);{
C_word *av2=av;
av2[0]=t11;
av2[1]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}

/* k12824 in k12918 in k12922 in a12803 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12826(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word 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(24,c,3)))){
C_save_and_reclaim((void *)f_12826,c,av);}
a=C_alloc(24);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_list1(&a,1,t2);
t4=C_a_i_list1(&a,1,t1);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12844,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12852,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t5,a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,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_12854,a[2]=t3,a[3]=t1,a[4]=t8,tmp=(C_word)a,a+=5,tmp));
t10=((C_word*)t8)[1];
f_12854(t10,t6,((C_word*)t0)[8]);}

/* k12842 in k12824 in k12918 in k12922 in a12803 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12844(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_12844,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:963: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[26];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12850 in k12824 in k12918 in k12922 in a12803 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12852(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12852,c,av);}
a=C_alloc(9);
t2=C_a_i_list3(&a,3,t1,((C_word*)t0)[2],((C_word*)t0)[3]);
/* optimizer.scm:967: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[25];
av2[3]=((C_word*)t0)[5];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* foldr1612 in k12824 in k12918 in k12922 in a12803 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_12854(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(9,0,4)))){
C_save_and_reclaim_args((void *)trf_12854,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12862,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12901,a[2]=t3,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t7=t5;
t8=C_slot(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}
else{
/* optimizer.scm:978: chicken.compiler.support#qnode */
t3=*((C_word*)lf[76]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t1;
av2[2]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* g1617 in foldr1612 in k12824 in k12918 in k12922 in a12803 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_12862(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_12862,4,t0,t1,t2,t3);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12874,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12886,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:975: chicken.compiler.support#varnode */
t6=*((C_word*)lf[82]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k12872 in g1617 in foldr1612 in k12824 in k12918 in k12922 in a12803 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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(5,c,2)))){
C_save_and_reclaim((void *)f_12874,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12878,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:976: chicken.compiler.support#qnode */
t3=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12876 in k12872 in g1617 in foldr1612 in k12824 in k12918 in k12922 in a12803 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12878(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12878,c,av);}
a=C_alloc(9);
t2=C_a_i_list3(&a,3,((C_word*)t0)[2],t1,((C_word*)t0)[3]);
/* optimizer.scm:972: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[39];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12884 in g1617 in foldr1612 in k12824 in k12918 in k12922 in a12803 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12886(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12886,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12890,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:975: chicken.compiler.support#qnode */
t3=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12888 in k12884 in g1617 in foldr1612 in k12824 in k12918 in k12922 in a12803 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12890(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12890,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:975: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[58];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12899 in foldr1612 in k12824 in k12918 in k12922 in a12803 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12901(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12901,c,av);}
/* optimizer.scm:970: g1617 */
t2=((C_word*)t0)[2];
f_12862(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k12918 in k12922 in a12803 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12920(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_12920,c,av);}
a=C_alloc(9);
if(C_truep(C_i_lessp(((C_word*)t0)[2],t1))){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12826,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:961: chicken.base#gensym */
t3=*((C_word*)lf[115]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k12922 in a12803 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12924(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
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_12924,c,av);}
a=C_alloc(10);
t2=C_i_assoc(((C_word*)t0)[2],t1);
if(C_truep(t2)){
if(C_truep(C_i_listp(((C_word*)t0)[3]))){
t3=C_i_length(((C_word*)t0)[3]);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12920,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:960: membership-unfold-limit */
t5=*((C_word*)lf[19]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
else{
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* a12949 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12950(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7=av[7];
C_word t8=av[8];
C_word t9=av[9];
C_word t10=av[10];
C_word t11;
C_word t12;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_12950,c,av);}
a=C_alloc(7);
if(C_truep(t3)){
t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12965,a[2]=t1,a[3]=t5,a[4]=t7,a[5]=t8,a[6]=t9,tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:946: chicken.compiler.support#varnode */
t12=*((C_word*)lf[82]+1);{
C_word *av2=av;
av2[0]=t12;
av2[1]=t11;
av2[2]=t10;
((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}
else{
t11=t1;{
C_word *av2=av;
av2[0]=t11;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}

/* k12963 in a12949 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12965(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,4)))){
C_save_and_reclaim((void *)f_12965,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12969,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_list3(&a,3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);
/* optimizer.scm:947: chicken.compiler.support#make-node */
t4=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[39];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12967 in k12963 in a12949 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_12969(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12969,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:944: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* a13030 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13031(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7=av[7];
C_word t8=av[8];
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_13031,c,av);}
a=C_alloc(8);
if(C_truep(t3)){
t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13130,a[2]=t7,a[3]=t5,a[4]=t6,a[5]=t4,a[6]=t1,a[7]=t8,tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:907: chicken.compiler.support#db-get-list */
t10=*((C_word*)lf[152]+1);{
C_word *av2=av;
av2[0]=t10;
av2[1]=t9;
av2[2]=t2;
av2[3]=t4;
av2[4]=lf[129];
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}
else{
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}

/* loop in k13128 in a13030 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_13046(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){
C_save_and_reclaim_args((void *)trf_13046,5,t0,t1,t2,t3,t4);}
a=C_alloc(14);
if(C_truep(C_i_nullp(t2))){
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13063,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:913: scheme#reverse */
t6=*((C_word*)lf[4]+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=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13069,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t4,tmp=(C_word)a,a+=9,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13117,a[2]=t5,a[3]=((C_word*)t0)[6],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:915: chicken.compiler.support#node-class */
t7=*((C_word*)lf[41]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}

/* k13061 in loop in k13128 in a13030 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13063(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_13063,c,av);}
/* optimizer.scm:911: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[30];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k13067 in loop in k13128 in a13030 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_13069(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(9,0,4)))){
C_save_and_reclaim_args((void *)trf_13069,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13082,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=C_a_i_list1(&a,1,((C_word*)t0)[6]);
/* optimizer.scm:919: chicken.compiler.support#make-node */
t5=*((C_word*)lf[33]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[58];
av2[3]=t4;
av2[4]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_u_i_car(((C_word*)t0)[2]);
t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]);
/* optimizer.scm:925: loop */
t5=((C_word*)((C_word*)t0)[4])[1];
f_13046(t5,((C_word*)t0)[5],t2,t4,((C_word*)t0)[8]);}}

/* k13080 in k13067 in loop in k13128 in a13030 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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 t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_13082,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
/* optimizer.scm:918: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_13046(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,C_SCHEME_TRUE);}

/* k13109 in k13115 in loop in k13128 in a13030 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13111(C_word c,C_word *av){
C_word tmp;
C_word 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_13111,c,av);}
t2=((C_word*)t0)[2];
f_13069(t2,C_eqp(((C_word*)t0)[3],C_i_car(t1)));}

/* k13115 in loop in k13128 in a13030 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13117(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13117,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[24],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13111,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:917: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_car(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];
f_13069(t3,C_SCHEME_FALSE);}}

/* k13128 in a13030 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13130(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word 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_13130,c,av);}
a=C_alloc(9);
t2=C_i_length(t1);
t3=C_eqp(C_fix(1),t2);
if(C_truep(t3)){
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13046,a[2]=((C_word*)t0)[2],a[3]=t5,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));
t7=((C_word*)t5)[1];
f_13046(t7,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);}
else{
t4=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* a13163 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7=av[7];
C_word t8=av[8];
C_word t9=av[9];
C_word t10=av[10];
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_13164,c,av);}
a=C_alloc(11);
if(C_truep(t3)){
t11=C_eqp(t4,t8);
if(C_truep(C_i_not(t11))){
t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13295,a[2]=t7,a[3]=t9,a[4]=t8,a[5]=t5,a[6]=t6,a[7]=t4,a[8]=t1,a[9]=t10,a[10]=t2,tmp=(C_word)a,a+=11,tmp);
/* optimizer.scm:870: chicken.compiler.support#db-get */
t13=*((C_word*)lf[55]+1);{
C_word *av2=av;
av2[0]=t13;
av2[1]=t12;
av2[2]=t2;
av2[3]=t8;
av2[4]=lf[90];
((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}}
else{
t12=t1;{
C_word *av2=av;
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}
else{
t11=t1;{
C_word *av2=av;
av2[0]=t11;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}

/* loop in k13289 in k13293 in a13163 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_13191(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){
C_save_and_reclaim_args((void *)trf_13191,5,t0,t1,t2,t3,t4);}
a=C_alloc(14);
if(C_truep(C_i_nullp(t2))){
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13212,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:877: chicken.compiler.support#varnode */
t6=*((C_word*)lf[82]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13230,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t4,tmp=(C_word)a,a+=9,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13278,a[2]=t5,a[3]=((C_word*)t0)[8],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:883: chicken.compiler.support#node-class */
t7=*((C_word*)lf[41]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}

/* k13210 in loop in k13289 in k13293 in a13163 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13212(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_13212,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13216,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_a_i_list1(&a,1,((C_word*)t0)[4]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13224,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:881: scheme#reverse */
t5=*((C_word*)lf[4]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k13214 in k13210 in loop in k13289 in k13293 in a13163 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13216(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13216,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:875: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13222 in k13210 in loop in k13289 in k13293 in a13163 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13224(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_13224,c,av);}
/* optimizer.scm:878: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[58];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k13228 in loop in k13289 in k13293 in a13163 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_13230(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(9,0,4)))){
C_save_and_reclaim_args((void *)trf_13230,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13243,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=C_a_i_list1(&a,1,((C_word*)t0)[6]);
/* optimizer.scm:887: chicken.compiler.support#make-node */
t5=*((C_word*)lf[33]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[58];
av2[3]=t4;
av2[4]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_u_i_car(((C_word*)t0)[2]);
t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]);
/* optimizer.scm:893: loop */
t5=((C_word*)((C_word*)t0)[4])[1];
f_13191(t5,((C_word*)t0)[5],t2,t4,((C_word*)t0)[8]);}}

/* k13241 in k13228 in loop in k13289 in k13293 in a13163 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13243(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13243,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
/* optimizer.scm:886: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_13191(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,C_SCHEME_TRUE);}

/* k13270 in k13276 in loop in k13289 in k13293 in a13163 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13272(C_word c,C_word *av){
C_word tmp;
C_word 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_13272,c,av);}
t2=((C_word*)t0)[2];
f_13230(t2,C_eqp(((C_word*)t0)[3],C_i_car(t1)));}

/* k13276 in loop in k13289 in k13293 in a13163 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13278(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_13278,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[24],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13272,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:885: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_car(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];
f_13230(t3,C_SCHEME_FALSE);}}

/* k13289 in k13293 in a13163 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13291(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
C_save_and_reclaim((void *)f_13291,c,av);}
a=C_alloc(11);
t2=C_i_length(t1);
t3=C_eqp(C_fix(1),t2);
if(C_truep(t3)){
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13191,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp));
t7=((C_word*)t5)[1];
f_13191(t7,((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);}
else{
t4=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k13293 in a13163 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13295(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_13295,c,av);}
a=C_alloc(10);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13291,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:871: chicken.compiler.support#db-get-list */
t3=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[10];
av2[3]=((C_word*)t0)[7];
av2[4]=lf[129];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* a13348 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13349(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7=av[7];
C_word t8=av[8];
C_word t9=av[9];
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_13349,c,av);}
a=C_alloc(10);
t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13394,a[2]=t5,a[3]=t8,a[4]=t9,a[5]=t1,a[6]=t7,a[7]=t6,a[8]=t2,a[9]=t4,tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:850: eq-inline-operator */
t11=*((C_word*)lf[17]+1);{
C_word *av2=av;
av2[0]=t11;
av2[1]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}

/* k13371 in k13384 in k13392 in a13348 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13373(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13373,c,av);}
a=C_alloc(9);
t2=C_a_i_list3(&a,3,t1,((C_word*)t0)[2],((C_word*)t0)[3]);
/* optimizer.scm:852: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[25];
av2[3]=((C_word*)t0)[5];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13384 in k13392 in a13348 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13386(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13386,c,av);}
a=C_alloc(9);
t2=C_i_length(t1);
t3=C_eqp(C_fix(1),t2);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13373,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);
t5=C_a_i_list1(&a,1,((C_word*)t0)[6]);
/* optimizer.scm:854: chicken.compiler.support#make-node */
t6=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t4;
av2[2]=lf[58];
av2[3]=t5;
av2[4]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k13392 in a13348 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13394(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_13394,c,av);}
a=C_alloc(8);
t2=C_i_equalp(((C_word*)t0)[2],t1);
if(C_truep(C_i_not(t2))){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13386,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:851: chicken.compiler.support#db-get-list */
t4=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
av2[3]=((C_word*)t0)[9];
av2[4]=lf[129];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13432(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_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_13432,c,av);}
a=C_alloc(9);
t6=C_a_i_list1(&a,1,t4);
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_13442,a[2]=t8,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_13442(t10,t1,t6,t5);}

/* loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_13442(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(7,0,2)))){
C_save_and_reclaim_args((void *)trf_13442,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13446,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t3,tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:785: chicken.compiler.support#node-class */
t5=*((C_word*)lf[41]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13446(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13446,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13449,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);
/* optimizer.scm:786: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13449(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13449,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13452,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);
/* optimizer.scm:787: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[42]+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);}}

/* k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13452(C_word c,C_word *av){
C_word tmp;
C_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,4)))){
C_save_and_reclaim((void *)f_13452,c,av);}
a=C_alloc(8);
t2=C_eqp(((C_word*)t0)[2],lf[26]);
if(C_truep(t2)){
t3=C_i_cdr(((C_word*)t0)[3]);
if(C_truep(C_i_nullp(t3))){
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13719,a[2]=t1,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);
/* optimizer.scm:790: chicken.compiler.support#db-get */
t5=*((C_word*)lf[55]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[7];
av2[3]=C_i_car(((C_word*)t0)[3]);
av2[4]=lf[135];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t4=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t3=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13482(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_13482,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13485,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:794: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[42]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13485(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_13485,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13488,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:795: chicken.compiler.support#node-class */
t3=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_13488(C_word c,C_word *av){
C_word tmp;
C_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_13488,c,av);}
a=C_alloc(7);
t2=C_eqp(t1,lf[34]);
if(C_truep(t2)){
t3=C_i_car(((C_word*)t0)[2]);
t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]);
/* optimizer.scm:796: loop1 */
t5=((C_word*)((C_word*)t0)[4])[1];
f_13442(t5,((C_word*)t0)[5],t4,C_i_cadr(((C_word*)t0)[6]));}
else{
t3=C_eqp(t1,lf[31]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13518,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:798: scheme#reverse */
t5=*((C_word*)lf[4]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}

/* k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_13518(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(10,c,5)))){
C_save_and_reclaim((void *)f_13518,c,av);}
a=C_alloc(10);
if(C_truep(C_i_pairp(t1))){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_i_car(t1);
t4=C_eqp(t2,t3);
if(C_truep(t4)){
t5=C_i_car(((C_word*)t0)[3]);
t6=C_a_i_list1(&a,1,t5);
t7=C_u_i_cdr(t1);
t8=C_i_cadr(((C_word*)t0)[4]);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13545,a[2]=t10,a[3]=t1,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_13545(t12,((C_word*)t0)[6],t6,t7,t8);}
else{
t5=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t2=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_fcall f_13545(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(9,0,2)))){
C_save_and_reclaim_args((void *)trf_13545,5,t0,t1,t2,t3,t4);}
a=C_alloc(9);
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13549,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=t4,a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:804: chicken.compiler.support#node-class */
t6=*((C_word*)lf[41]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_13549(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_13549,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13552,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:805: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[43]+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);}}

/* k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_13552(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_13552,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* optimizer.scm:806: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[42]+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);}}

/* k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_13555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_13555,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13561,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
t3=C_eqp(((C_word*)t0)[8],lf[26]);
if(C_truep(t3)){
t4=C_i_cdr(((C_word*)t0)[9]);
if(C_truep(C_i_nullp(t4))){
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13683,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[9],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:809: chicken.compiler.support#db-get */
t6=*((C_word*)lf[55]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[10];
av2[3]=C_i_car(((C_word*)t0)[9]);
av2[4]=lf[135];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t5=t2;
f_13561(t5,C_SCHEME_FALSE);}}
else{
t4=t2;
f_13561(t4,C_SCHEME_FALSE);}}

/* k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_fcall f_13561(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_13561,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13584,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:814: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[42]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_car(((C_word*)t0)[6]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
if(C_truep(C_i_nullp(((C_word*)t0)[5]))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13599,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13609,tmp=(C_word)a,a+=2,tmp);
/* optimizer.scm:818: ##sys#call-with-values */{
C_word av2[4];
av2[0]=0;
av2[1]=((C_word*)t0)[4];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}

/* k13582 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_13584(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_13584,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[2]);
/* optimizer.scm:814: loop2 */
t4=((C_word*)((C_word*)t0)[3])[1];
f_13545(t4,((C_word*)t0)[4],t3,C_i_cdr(((C_word*)t0)[5]),C_i_cadr(((C_word*)t0)[6]));}

/* a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_13599(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_13599,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13607,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:819: scheme#reverse */
t3=*((C_word*)lf[4]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in ... */
static void C_ccall f_13607(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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(21,c,4)))){
C_save_and_reclaim((void *)f_13607,c,av);}
a=C_alloc(21);
t2=C_SCHEME_END_OF_LIST;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,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*)t0)[2],lf[8]);
t9=C_i_check_list_2(t1,lf[8]);
t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7667,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t1,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|4,a[1]=(C_word)f_8142,a[2]=t6,a[3]=t12,a[4]=t7,tmp=(C_word)a,a+=5,tmp));
t14=((C_word*)t12)[1];
f_8142(t14,t10,((C_word*)t0)[2],t1);}

/* a13608 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_13609(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13609,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?t2:C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k13657 in k13665 in k13673 in k13681 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in ... */
static void C_ccall f_13659(C_word c,C_word *av){
C_word tmp;
C_word 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_13659,c,av);}
t2=((C_word*)t0)[2];
f_13561(t2,C_eqp(((C_word*)t0)[3],C_i_car(t1)));}

/* k13665 in k13673 in k13681 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in ... */
static void C_ccall f_13667(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13667,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[31],t1);
if(C_truep(t2)){
t3=C_u_i_car(((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13659,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:813: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[43]+1);{
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_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t3=((C_word*)t0)[3];
f_13561(t3,C_SCHEME_FALSE);}}

/* k13673 in k13681 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_13675(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13675,c,av);}
a=C_alloc(5);
if(C_truep(C_i_not(t1))){
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13667,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);
/* optimizer.scm:812: chicken.compiler.support#node-class */
t3=*((C_word*)lf[41]+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)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[3];
f_13561(t2,C_SCHEME_FALSE);}}
else{
t2=((C_word*)t0)[3];
f_13561(t2,C_SCHEME_FALSE);}}

/* k13681 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_ccall f_13683(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13683,c,av);}
a=C_alloc(5);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13675,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);
/* optimizer.scm:810: chicken.compiler.support#db-get */
t3=*((C_word*)lf[55]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_i_car(((C_word*)t0)[6]);
av2[4]=lf[129];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=((C_word*)t0)[3];
f_13561(t2,C_SCHEME_FALSE);}}

/* k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13711(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_13711,c,av);}
a=C_alloc(9);
if(C_truep(C_i_not(t1))){
t2=C_i_car(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13482,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],a[8]=t2,tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:793: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+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)[6];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13719(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_13719,c,av);}
a=C_alloc(8);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13711,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:791: chicken.compiler.support#db-get */
t3=*((C_word*)lf[55]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
av2[3]=C_i_car(((C_word*)t0)[3]);
av2[4]=lf[129];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* a13744 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13745(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7=av[7];
C_word t8=av[8];
C_word t9=av[9];
C_word t10=av[10];
C_word t11=av[11];
C_word t12;
C_word t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_13745,c,av);}
a=C_alloc(11);
t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13798,a[2]=t5,a[3]=t10,a[4]=t1,a[5]=t9,a[6]=t11,a[7]=t7,a[8]=t6,a[9]=t2,a[10]=t4,tmp=(C_word)a,a+=11,tmp);
/* optimizer.scm:759: eq-inline-operator */
t13=*((C_word*)lf[17]+1);{
C_word *av2=av;
av2[0]=t13;
av2[1]=t12;
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}

/* k13756 in k13796 in a13744 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13758(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_13758,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13794,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:761: chicken.compiler.support#db-get-list */
t3=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
av2[3]=((C_word*)t0)[9];
av2[4]=lf[129];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k13773 in k13792 in k13756 in k13796 in a13744 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13775(C_word c,C_word *av){
C_word tmp;
C_word 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_13775,c,av);}
/* optimizer.scm:762: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[40];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k13777 in k13792 in k13756 in k13796 in a13744 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13779(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13779,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13783,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);
/* optimizer.scm:766: chicken.compiler.support#qnode */
t3=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13781 in k13777 in k13792 in k13756 in k13796 in a13744 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13783(C_word c,C_word *av){
C_word tmp;
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_13783,c,av);}
a=C_alloc(9);
/* optimizer.scm:765: cons* */
f_3815(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,3,t1,((C_word*)t0)[4],((C_word*)t0)[5]));}

/* k13792 in k13756 in k13796 in a13744 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13794(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,2)))){
C_save_and_reclaim((void *)f_13794,c,av);}
a=C_alloc(42);
t2=C_i_length(t1);
t3=C_eqp(C_fix(1),t2);
if(C_truep(t3)){
t4=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
t5=C_a_i_list1(&a,1,t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13775,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13779,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:765: chicken.compiler.support#varnode */
t8=*((C_word*)lf[82]+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)[7];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k13796 in a13744 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13798(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_13798,c,av);}
a=C_alloc(10);
if(C_truep(C_i_equalp(((C_word*)t0)[2],t1))){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13758,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:760: chicken.compiler.support#immediate? */
t3=*((C_word*)lf[214]+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);}}
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);}}}

/* a13871 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7=av[7];
C_word t8=av[8];
C_word t9=av[9];
C_word t10=av[10];
C_word t11=av[11];
C_word t12=av[12];
C_word t13=av[13];
C_word t14=av[14];
C_word t15;
C_word t16;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_13872,c,av);}
a=C_alloc(13);
t15=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_13944,a[2]=t7,a[3]=t10,a[4]=t11,a[5]=t14,a[6]=t1,a[7]=t9,a[8]=t8,a[9]=t4,a[10]=t2,a[11]=t6,a[12]=t5,tmp=(C_word)a,a+=13,tmp);
/* optimizer.scm:732: eq-inline-operator */
t16=*((C_word*)lf[17]+1);{
C_word *av2=av;
av2[0]=t16;
av2[1]=t15;
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}

/* k13883 in k13942 in a13871 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13885(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_13885,c,av);}
a=C_alloc(12);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|11,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],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
/* optimizer.scm:734: chicken.compiler.support#immediate? */
t3=*((C_word*)lf[214]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k13889 in k13883 in k13942 in a13871 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13891(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_13891,c,av);}
a=C_alloc(11);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13940,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:735: chicken.compiler.support#db-get-list */
t3=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[11];
av2[4]=lf[129];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k13912 in k13929 in k13938 in k13889 in k13883 in k13942 in a13871 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13914(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13914,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13918,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);
/* optimizer.scm:741: chicken.compiler.support#qnode */
t3=*((C_word*)lf[76]+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);}}

/* k13916 in k13912 in k13929 in k13938 in k13889 in k13883 in k13942 in a13871 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13918(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13918,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13922,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);
/* optimizer.scm:743: chicken.compiler.support#qnode */
t3=*((C_word*)lf[76]+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);}}

/* k13920 in k13916 in k13912 in k13929 in k13938 in k13889 in k13883 in k13942 in a13871 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13922(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){
C_save_and_reclaim((void *)f_13922,c,av);}
a=C_alloc(18);
t2=C_a_i_list6(&a,6,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);
/* optimizer.scm:737: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[7];
av2[2]=lf[40];
av2[3]=lf[213];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13929 in k13938 in k13889 in k13883 in k13942 in a13871 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13931(C_word c,C_word *av){
C_word tmp;
C_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_13931,c,av);}
a=C_alloc(8);
t2=C_i_length(t1);
t3=C_eqp(C_fix(1),t2);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13914,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:740: chicken.compiler.support#varnode */
t5=*((C_word*)lf[82]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k13938 in k13889 in k13883 in k13942 in a13871 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13940(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_13940,c,av);}
a=C_alloc(9);
t2=C_i_length(t1);
t3=C_eqp(C_fix(1),t2);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13931,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:736: chicken.compiler.support#db-get-list */
t5=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[10];
av2[4]=lf[129];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k13942 in a13871 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_13944(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_13944,c,av);}
a=C_alloc(12);
if(C_truep(C_i_equalp(((C_word*)t0)[2],t1))){
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13885,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp);
/* optimizer.scm:733: chicken.compiler.support#immediate? */
t3=*((C_word*)lf[214]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_14042(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_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_14042,c,av);}
a=C_alloc(9);
t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14050,a[2]=t4,a[3]=t6,a[4]=t3,a[5]=t5,a[6]=t2,a[7]=t7,a[8]=t1,tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:700: chicken.internal#hash-table-ref */
t9=*((C_word*)lf[57]+1);{
C_word *av2=av;
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[156];
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}

/* k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_14050(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_14050,c,av);}
a=C_alloc(11);
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|8,a[1]=(C_word)f_14055,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],tmp=(C_word)a,a+=9,tmp));
t6=((C_word*)t4)[1];
f_14055(t6,((C_word*)t0)[8],t2);}

/* loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_14055(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 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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(19,0,2)))){
C_save_and_reclaim_args((void *)trf_14055,3,t0,t1,t2);}
a=C_alloc(19);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14065,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=C_i_caar(t2);
t5=C_u_i_car(t2);
t6=C_u_i_cdr(t5);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8217,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
switch(t4){
case C_fix(1):
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8307,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t6,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1099: chicken.compiler.support#intrinsic? */
t9=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}
case C_fix(2):
if(C_truep(((C_word*)t0)[5])){
t8=C_i_length(((C_word*)t0)[4]);
t9=C_i_car(t6);
if(C_truep(C_i_nequalp(t8,t9))){
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8426,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1117: chicken.compiler.support#intrinsic? */
t11=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t11;
av2[1]=t10;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t10=t3;{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(3):
if(C_truep(((C_word*)t0)[5])){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8484,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1130: chicken.compiler.support#intrinsic? */
t9=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(4):
if(C_truep(((C_word*)t0)[5])){
if(C_truep(*((C_word*)lf[231]+1))){
t8=C_i_length(((C_word*)t0)[4]);
t9=C_eqp(C_fix(2),t8);
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8598,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1143: chicken.compiler.support#intrinsic? */
t11=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t11;
av2[1]=t10;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t10=t3;{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(5):
if(C_truep(((C_word*)t0)[5])){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8657,a[2]=((C_word*)t0)[4],a[3]=t6,a[4]=((C_word*)t0)[6],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1155: chicken.compiler.support#intrinsic? */
t9=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(6):
t8=C_i_caddr(t6);
t9=(C_truep(t8)?t8:*((C_word*)lf[231]+1));
if(C_truep(t9)){
if(C_truep(((C_word*)t0)[5])){
t10=C_i_length(((C_word*)t0)[4]);
t11=C_eqp(C_fix(1),t10);
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8752,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=t6,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1170: chicken.compiler.support#intrinsic? */
t13=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t13;
av2[1]=t12;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}
else{
t12=t3;{
C_word av2[2];
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t10=t3;{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t10=t3;{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(7):
t8=C_i_cadddr(t6);
t9=(C_truep(t8)?t8:*((C_word*)lf[231]+1));
if(C_truep(t9)){
if(C_truep(((C_word*)t0)[5])){
t10=C_i_length(((C_word*)t0)[4]);
t11=C_i_car(t6);
if(C_truep(C_i_nequalp(t10,t11))){
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8826,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=t6,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1182: chicken.compiler.support#intrinsic? */
t13=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t13;
av2[1]=t12;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}
else{
t12=t3;{
C_word av2[2];
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t10=t3;{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t10=t3;{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(8):
if(C_truep(((C_word*)t0)[5])){
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8888,a[2]=t6,a[3]=t3,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1192: chicken.compiler.support#intrinsic? */
t9=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(9):
if(C_truep(((C_word*)t0)[5])){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8909,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=t3,a[5]=t6,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1199: chicken.compiler.support#intrinsic? */
t9=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(10):
if(C_truep(((C_word*)t0)[5])){
t8=C_i_cadddr(t6);
t9=(C_truep(t8)?t8:*((C_word*)lf[231]+1));
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9164,a[2]=((C_word*)t0)[4],a[3]=t6,a[4]=((C_word*)t0)[6],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1230: chicken.compiler.support#intrinsic? */
t11=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t11;
av2[1]=t10;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t10=t3;{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(11):
if(C_truep(((C_word*)t0)[5])){
t8=C_i_caddr(t6);
t9=(C_truep(t8)?t8:*((C_word*)lf[231]+1));
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9253,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1247: chicken.compiler.support#intrinsic? */
t11=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t11;
av2[1]=t10;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t10=t3;{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(12):
if(C_truep(((C_word*)t0)[5])){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9314,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1260: chicken.compiler.support#intrinsic? */
t9=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(13):
if(C_truep(((C_word*)t0)[5])){
t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9393,a[2]=t6,a[3]=t7,a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:1274: chicken.compiler.support#intrinsic? */
t9=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(14):
if(C_truep(((C_word*)t0)[5])){
t8=C_i_cadr(t6);
t9=C_i_length(((C_word*)t0)[4]);
if(C_truep(C_i_nequalp(t8,t9))){
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9463,a[2]=t6,a[3]=((C_word*)t0)[6],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1286: chicken.compiler.support#intrinsic? */
t11=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t11;
av2[1]=t10;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t10=t3;{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(15):
if(C_truep(((C_word*)t0)[5])){
t8=C_i_length(((C_word*)t0)[4]);
t9=C_eqp(C_fix(1),t8);
if(C_truep(t9)){
t10=*((C_word*)lf[231]+1);
t11=(C_truep(*((C_word*)lf[231]+1))?*((C_word*)lf[231]+1):C_i_cadddr(t6));
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9546,a[2]=t6,a[3]=t3,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1303: chicken.compiler.support#intrinsic? */
t13=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t13;
av2[1]=t12;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}
else{
t12=t3;{
C_word av2[2];
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t10=t3;{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(16):
t8=C_i_car(t6);
t9=C_i_length(((C_word*)t0)[4]);
t10=C_i_caddr(t6);
t11=C_i_cadddr(t6);
t12=C_i_cddddr(t6);
t13=C_i_pairp(t12);
t14=(C_truep(t13)?C_i_car(C_i_cddddr(t6)):C_SCHEME_FALSE);
if(C_truep(((C_word*)t0)[5])){
t15=C_i_not(t8);
t16=(C_truep(t15)?t15:C_i_nequalp(t9,t8));
if(C_truep(t16)){
t17=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9647,a[2]=t10,a[3]=((C_word*)t0)[6],a[4]=t3,a[5]=t11,a[6]=t9,a[7]=((C_word*)t0)[4],a[8]=t14,a[9]=t6,tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:1328: chicken.compiler.support#intrinsic? */
t18=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t18;
av2[1]=t17;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t18+1)))(3,av2);}}
else{
t17=t3;{
C_word av2[2];
av2[0]=t17;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t15=t3;{
C_word av2[2];
av2[0]=t15;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(17):
if(C_truep(((C_word*)t0)[5])){
t8=C_i_length(((C_word*)t0)[4]);
t9=C_i_car(t6);
if(C_truep(C_i_nequalp(t8,t9))){
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9759,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=t6,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1348: chicken.compiler.support#intrinsic? */
t11=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t11;
av2[1]=t10;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t10=t3;{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(18):
if(C_truep(((C_word*)t0)[5])){
if(C_truep(C_i_nullp(((C_word*)t0)[4]))){
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9827,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1362: chicken.compiler.support#intrinsic? */
t9=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(19):
if(C_truep(((C_word*)t0)[5])){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9861,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1368: chicken.compiler.support#intrinsic? */
t9=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(20):
t8=C_i_length(((C_word*)t0)[4]);
t9=C_i_cadddr(t6);
t10=(C_truep(t9)?t9:*((C_word*)lf[231]+1));
if(C_truep(t10)){
if(C_truep(((C_word*)t0)[5])){
t11=C_i_car(t6);
if(C_truep(C_i_nequalp(t8,t11))){
t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10013,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=t6,a[5]=t8,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1400: chicken.compiler.support#intrinsic? */
t13=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t13;
av2[1]=t12;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}
else{
t12=t3;{
C_word av2[2];
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t11=t3;{
C_word av2[2];
av2[0]=t11;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t11=t3;{
C_word av2[2];
av2[0]=t11;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(21):
if(C_truep(((C_word*)t0)[5])){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10085,a[2]=t6,a[3]=((C_word*)t0)[6],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1418: chicken.compiler.support#intrinsic? */
t9=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(22):
t8=C_i_car(t6);
t9=C_i_length(((C_word*)t0)[4]);
t10=C_i_cadddr(t6);
if(C_truep(((C_word*)t0)[5])){
if(C_truep(C_i_nequalp(t9,t8))){
t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10256,a[2]=t6,a[3]=((C_word*)t0)[6],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=t10,tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1452: chicken.compiler.support#intrinsic? */
t12=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t12;
av2[1]=t11;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}
else{
t11=t3;{
C_word av2[2];
av2[0]=t11;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t11=t3;{
C_word av2[2];
av2[0]=t11;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
case C_fix(23):
if(C_truep(((C_word*)t0)[5])){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10320,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1473: chicken.compiler.support#intrinsic? */
t9=*((C_word*)lf[128]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t8=t3;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}
default:
/* optimizer.scm:1493: chicken.compiler.support#bomb */
t8=*((C_word*)lf[173]+1);{
C_word av2[3];
av2[0]=t8;
av2[1]=t3;
av2[2]=lf[242];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}}

/* k14063 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_14065(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(38,c,2)))){
C_save_and_reclaim((void *)f_14065,c,av);}
a=C_alloc(38);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14069,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:701: g1415 */
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
/* optimizer.scm:701: g1415 */
  f_14069(C_a_i(&a,35),t2,t1)
);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* optimizer.scm:710: loop */
t2=((C_word*)((C_word*)t0)[4])[1];
f_14055(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[5]));}}

/* g1415 in k14063 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static C_word C_fcall f_14069(C_word *a,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;{}
t2=C_i_assq(((C_word*)t0)[2],lf[51]);
if(C_truep(t2)){
t3=C_i_cdr(t2);
t4=C_s_a_i_plus(&a,2,t3,C_fix(1));
t5=C_i_set_cdr(t2,t4);
return(t1);}
else{
t3=lf[51];
t4=C_a_i_cons(&a,2,((C_word*)t0)[2],C_fix(1));
t5=C_a_i_cons(&a,2,t4,lf[51]);
t6=C_mutate(&lf[51] /* (set! chicken.compiler.optimizer#simplified-ops ...) */,t5);
return(t1);}}

/* k3363 */
static void C_ccall f_3365(C_word c,C_word *av){
C_word tmp;
C_word t0=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_3365,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3368,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_eval_toplevel(2,av2);}}

/* k3366 in k3363 */
static void C_ccall f_3368(C_word c,C_word *av){
C_word tmp;
C_word t0=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_3368,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3371,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_expand_toplevel(2,av2);}}

/* k3369 in k3366 in k3363 */
static void C_ccall f_3371(C_word c,C_word *av){
C_word tmp;
C_word t0=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_3371,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3374,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);}}

/* k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3374(C_word c,C_word *av){
C_word tmp;
C_word t0=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_3374,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3377,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_internal_toplevel(2,av2);}}

/* k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3377(C_word c,C_word *av){
C_word tmp;
C_word t0=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_3377,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3380,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_support_toplevel(2,av2);}}

/* k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3380(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(39,c,5)))){
C_save_and_reclaim((void *)f_3380,c,av);}
a=C_alloc(39);
t2=C_a_i_provide(&a,1,lf[0]);
t3=C_a_i_provide(&a,1,lf[1]);
t4=C_mutate(&lf[2] /* (set! chicken.compiler.optimizer#take ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3490,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate(&lf[3] /* (set! chicken.compiler.optimizer#split-at ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3542,tmp=(C_word)a,a+=2,tmp));
t6=C_mutate(&lf[5] /* (set! chicken.compiler.optimizer#append-map ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3581,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate(&lf[11] /* (set! chicken.compiler.optimizer#every ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3751,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate(&lf[9] /* (set! chicken.compiler.optimizer#any ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3785,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate(&lf[12] /* (set! chicken.compiler.optimizer#cons* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3815,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate(&lf[13] /* (set! chicken.compiler.optimizer#delete ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3871,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate(&lf[14] /* (set! chicken.compiler.optimizer#first ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3912,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate(&lf[15] /* (set! chicken.compiler.optimizer#filter ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3991,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate(&lf[16] /* (set! chicken.compiler.optimizer#list-tabulate ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4393,tmp=(C_word)a,a+=2,tmp));
t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4662,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:52: chicken.base#make-parameter */
t15=*((C_word*)lf[243]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t15;
av2[1]=t14;
av2[2]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}

/* loop in a5827 in a5821 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3388(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(7,0,2)))){
C_save_and_reclaim_args((void *)trf_3388,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t4))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3402,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:43: scheme#reverse */
t6=*((C_word*)lf[4]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3412,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
/* mini-srfi-1.scm:44: pred */
t6=((C_word*)t0)[3];
f_5834(t6,t5,C_i_car(t4));}}

/* k3400 in loop in a5827 in a5821 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3402(C_word c,C_word *av){
C_word tmp;
C_word t0=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_3402,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3406,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:43: scheme#reverse */
t3=*((C_word*)lf[4]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k3404 in k3400 in loop in a5827 in a5821 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_3406(C_word c,C_word *av){
C_word tmp;
C_word 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_3406,c,av);}
/* mini-srfi-1.scm:43: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
C_values(4,av2);}}

/* k3410 in loop in a5827 in a5821 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3412(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_3412,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_u_i_car(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]);
/* mini-srfi-1.scm:44: loop */
t4=((C_word*)((C_word*)t0)[4])[1];
f_3388(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],C_u_i_cdr(((C_word*)t0)[2]));}
else{
t2=C_u_i_car(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[6]);
/* mini-srfi-1.scm:45: loop */
t4=((C_word*)((C_word*)t0)[4])[1];
f_3388(t4,((C_word*)t0)[5],((C_word*)t0)[3],t3,C_u_i_cdr(((C_word*)t0)[2]));}}

/* chicken.compiler.optimizer#take in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3490(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_3490,3,t1,t2,t3);}
a=C_alloc(4);
if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(0)))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3508,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:56: take */
t7=t5;
t8=C_u_i_cdr(t2);
t9=C_fixnum_difference(t3,C_fix(1));
t1=t7;
t2=t8;
t3=t9;
goto loop;}}

/* k3506 in chicken.compiler.optimizer#take in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3508(C_word c,C_word *av){
C_word tmp;
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_3508,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.optimizer#split-at in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3542(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){
C_save_and_reclaim_args((void *)trf_3542,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3548,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_3548(t7,t1,t3,C_SCHEME_END_OF_LIST,t2);}

/* loop in chicken.compiler.optimizer#split-at in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3548(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){
C_save_and_reclaim_args((void *)trf_3548,5,t0,t1,t2,t3,t4);}
a=C_alloc(4);
if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3562,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:67: scheme#reverse */
t6=*((C_word*)lf[4]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=C_fixnum_difference(t2,C_fix(1));
t6=C_i_car(t4);
t7=C_a_i_cons(&a,2,t6,t3);
/* mini-srfi-1.scm:68: loop */
t9=t1;
t10=t5;
t11=t7;
t12=C_u_i_cdr(t4);
t1=t9;
t2=t10;
t3=t11;
t4=t12;
goto loop;}}

/* k3560 in loop in chicken.compiler.optimizer#split-at in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3562(C_word c,C_word *av){
C_word tmp;
C_word 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_3562,c,av);}
/* mini-srfi-1.scm:67: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
C_values(4,av2);}}

/* chicken.compiler.optimizer#append-map in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3581(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_3581,4,t1,t2,t3,t4);}
a=C_alloc(9);
if(C_truep(C_i_nullp(t4))){
t5=C_i_check_list_2(t3,lf[6]);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3596,a[2]=t2,a[3]=t7,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_3596(t9,t1,t3);}
else{
t5=C_a_i_cons(&a,2,t3,t4);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3636,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_3636(t9,t1,t5);}}

/* foldr107 in chicken.compiler.optimizer#append-map in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3596(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_3596,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3604,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3623,a[2]=t3,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t7=t5;
t8=C_slot(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* g112 in foldr107 in chicken.compiler.optimizer#append-map in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3604(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_3604,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3612,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:72: proc */
t5=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k3610 in g112 in foldr107 in chicken.compiler.optimizer#append-map in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3612(C_word c,C_word *av){
C_word tmp;
C_word 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_3612,c,av);}
/* mini-srfi-1.scm:72: scheme#append */
t2=*((C_word*)lf[7]+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);}}

/* k3621 in foldr107 in chicken.compiler.optimizer#append-map in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3623(C_word c,C_word *av){
C_word tmp;
C_word 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_3623,c,av);}
/* mini-srfi-1.scm:72: g112 */
t2=((C_word*)t0)[2];
f_3604(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* loop in chicken.compiler.optimizer#append-map in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3636(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_3636,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3643,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);
/* mini-srfi-1.scm:74: any */
f_3785(t3,*((C_word*)lf[10]+1),t2);}

/* k3641 in loop in chicken.compiler.optimizer#append-map in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3643(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
C_save_and_reclaim((void *)f_3643,c,av);}
a=C_alloc(21);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3650,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_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[8]);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3715,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3717,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_3717(t12,t8,((C_word*)t0)[4]);}}

/* k3648 in k3641 in loop in chicken.compiler.optimizer#append-map in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_3650,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3654,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3666,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3668,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_3668(t11,t7,((C_word*)t0)[4]);}

/* k3652 in k3648 in k3641 in loop in chicken.compiler.optimizer#append-map in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3654(C_word c,C_word *av){
C_word tmp;
C_word 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_3654,c,av);}
/* mini-srfi-1.scm:76: scheme#append */
t2=*((C_word*)lf[7]+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);}}

/* k3664 in k3648 in k3641 in loop in chicken.compiler.optimizer#append-map in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3666(C_word c,C_word *av){
C_word tmp;
C_word 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_3666,c,av);}
/* mini-srfi-1.scm:77: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_3636(t2,((C_word*)t0)[3],t1);}

/* map-loop149 in k3648 in k3641 in loop in chicken.compiler.optimizer#append-map in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3668(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_3668,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);}}}

/* k3713 in k3641 in loop in chicken.compiler.optimizer#append-map in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3715(C_word c,C_word *av){
C_word tmp;
C_word 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_3715,c,av);}{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
C_apply(4,av2);}}

/* map-loop122 in k3641 in loop in chicken.compiler.optimizer#append-map in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3717(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_3717,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);}}}

/* chicken.compiler.optimizer#every in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3751(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_3751,3,t1,t2,t3);}
a=C_alloc(6);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3757,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_3757(t7,t1,t3);}

/* loop in chicken.compiler.optimizer#every in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3757(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_3757,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_i_nullp(t2);
if(C_truep(t3)){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3779,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* mini-srfi-1.scm:82: pred */
t5=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k3777 in loop in chicken.compiler.optimizer#every in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3779(C_word c,C_word *av){
C_word tmp;
C_word 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_3779,c,av);}
if(C_truep(C_i_not(t1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* mini-srfi-1.scm:83: loop */
t2=((C_word*)((C_word*)t0)[3])[1];
f_3757(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}

/* chicken.compiler.optimizer#any in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3785(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_3785,3,t1,t2,t3);}
a=C_alloc(6);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3791,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_3791(t7,t1,t3);}

/* loop in chicken.compiler.optimizer#any in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3791(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_3791,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_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3801,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* mini-srfi-1.scm:88: pred */
t4=((C_word*)t0)[3];{
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);}}}

/* k3799 in loop in chicken.compiler.optimizer#any in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3801(C_word c,C_word *av){
C_word tmp;
C_word 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_3801,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{
/* mini-srfi-1.scm:89: loop */
t2=((C_word*)((C_word*)t0)[3])[1];
f_3791(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}

/* chicken.compiler.optimizer#cons* in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3815(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_3815,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3821,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_3821(t7,t1,t2,t3);}

/* loop in chicken.compiler.optimizer#cons* in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3821(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_3821,4,t0,t1,t2,t3);}
a=C_alloc(4);
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3835,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:95: loop */
t6=t4;
t7=C_i_car(t3);
t8=C_u_i_cdr(t3);
t1=t6;
t2=t7;
t3=t8;
goto loop;}}

/* k3833 in loop in chicken.compiler.optimizer#cons* in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3835(C_word c,C_word *av){
C_word tmp;
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_3835,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.optimizer#delete in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3871(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_3871,4,t1,t2,t3,t4);}
a=C_alloc(7);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3877,a[2]=t6,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_3877(t8,t1,t3);}

/* loop in chicken.compiler.optimizer#delete in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3877(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_3877,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3890,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* mini-srfi-1.scm:106: test */
t4=((C_word*)t0)[3];{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
av2[3]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k3888 in loop in chicken.compiler.optimizer#delete in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3890(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_3890,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
/* mini-srfi-1.scm:107: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_3877(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}
else{
t2=C_u_i_car(((C_word*)t0)[4]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3904,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:109: loop */
t4=((C_word*)((C_word*)t0)[2])[1];
f_3877(t4,t3,C_u_i_cdr(((C_word*)t0)[4]));}}

/* k3902 in k3888 in loop in chicken.compiler.optimizer#delete in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3904(C_word c,C_word *av){
C_word tmp;
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_3904,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.optimizer#first in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3912(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_3912,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* loop in k4974 in k4971 in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3952(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_3952,3,t0,t1,t2);}
a=C_alloc(10);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_car(t2);
t4=C_u_i_cdr(t2);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3966,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3979,a[2]=((C_word*)t0)[2],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:123: delete */
f_3871(t6,t3,t4,((C_word*)t0)[3]);}}

/* k3964 in loop in k4974 in k4971 in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3966(C_word c,C_word *av){
C_word tmp;
C_word t0=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_3966,c,av);}
a=C_alloc(3);
t2=C_i_equalp(((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?((C_word*)t0)[4]:C_a_i_cons(&a,2,((C_word*)t0)[5],t1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k3977 in loop in k4974 in k4971 in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_3979(C_word c,C_word *av){
C_word tmp;
C_word 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_3979,c,av);}
/* mini-srfi-1.scm:123: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_3952(t2,((C_word*)t0)[3],t1);}

/* chicken.compiler.optimizer#filter in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_3991(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_3991,3,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_check_list_2(t3,lf[6]);
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_4000,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_4000(t8,t1,t3);}

/* foldr254 in chicken.compiler.optimizer#filter in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_4000(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_4000,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4008,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4029,a[2]=t3,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t7=t5;
t8=C_slot(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* g259 in foldr254 in chicken.compiler.optimizer#filter in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_4008(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_4008,4,t0,t1,t2,t3);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4015,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* mini-srfi-1.scm:131: pred */
t5=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k4013 in g259 in foldr254 in chicken.compiler.optimizer#filter in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4015(C_word c,C_word *av){
C_word tmp;
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_4015,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]):((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k4027 in foldr254 in chicken.compiler.optimizer#filter in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4029(C_word c,C_word *av){
C_word tmp;
C_word 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_4029,c,av);}
/* mini-srfi-1.scm:131: g259 */
t2=((C_word*)t0)[2];
f_4008(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* foldr272 in k7790 in g1728 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in ... */
static void C_fcall f_4044(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_4044,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4052,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4078,a[2]=t3,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t7=t5;
t8=C_slot(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* g277 in foldr272 in k7790 in g1728 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in ... */
static void C_fcall f_4052(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_4052,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4056,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:135: pred */
t5=((C_word*)t0)[2];
f_7802(t5,t4,t2);}

/* k4054 in g277 in foldr272 in k7790 in g1728 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in ... */
static void C_ccall f_4056(C_word c,C_word *av){
C_word tmp;
C_word t0=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_4056,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4060,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* mini-srfi-1.scm:135: g287 */
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
/* mini-srfi-1.scm:135: g287 */
  f_4060(C_a_i(&a,3),t2,t1)
);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* g287 in k4054 in g277 in foldr272 in k7790 in g1728 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in ... */
static C_word C_fcall f_4060(C_word *a,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_a_i_cons(&a,2,t1,((C_word*)t0)[2]));}

/* k4076 in foldr272 in k7790 in g1728 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in ... */
static void C_ccall f_4078(C_word c,C_word *av){
C_word tmp;
C_word 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_4078,c,av);}
/* mini-srfi-1.scm:134: g277 */
t2=((C_word*)t0)[2];
f_4052(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* map-loop300 in a11806 in a11796 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_4117(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_4117,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t9=t1;
t10=C_slot(t2,C_fix(1));
t1=t9;
t2=t10;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* loop in k4849 in k4823 in k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static C_word C_fcall f_4157(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;
loop:{}
t2=C_i_cdr(t1);
if(C_truep(C_i_nullp(t2))){
return(C_u_i_car(t1));}
else{
t4=C_u_i_cdr(t1);
t1=t4;
goto loop;}}

/* loop in k5476 in a5464 in k5400 in k5397 in k5394 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_4216(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_4216,4,t0,t1,t2,t3);}
a=C_alloc(3);
if(C_truep(C_i_nullp(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
if(C_truep(C_i_memq(t4,t3))){
/* mini-srfi-1.scm:160: loop */
t9=t1;
t10=C_u_i_cdr(t2);
t11=t3;
t1=t9;
t2=t10;
t3=t11;
goto loop;}
else{
t5=C_u_i_cdr(t2);
t6=C_u_i_car(t2);
t7=C_a_i_cons(&a,2,t6,t3);
/* mini-srfi-1.scm:161: loop */
t9=t1;
t10=t5;
t11=t7;
t1=t9;
t2=t10;
t3=t11;
goto loop;}}}

/* chicken.compiler.optimizer#list-tabulate in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_4393(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_4393,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_4399,a[2]=t2,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_4399(t7,t1,C_fix(0));}

/* loop in chicken.compiler.optimizer#list-tabulate in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_4399(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_4399,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4413,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* mini-srfi-1.scm:190: proc */
t4=((C_word*)t0)[4];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k4411 in loop in chicken.compiler.optimizer#list-tabulate in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4413(C_word c,C_word *av){
C_word tmp;
C_word t0=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_4413,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4417,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:190: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4399(t3,t2,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* k4415 in k4411 in loop in chicken.compiler.optimizer#list-tabulate in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4417(C_word c,C_word *av){
C_word tmp;
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_4417,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);}}

/* a4428 in a7801 in k7790 in g1728 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in ... */
static void C_ccall f_4429(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_4429,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_memq(t2,((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a4446 in k11131 in k11124 in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4447(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_4447,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_memq(t2,((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4662(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_4662,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[17]+1 /* (set! chicken.compiler.optimizer#eq-inline-operator ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4666,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:53: chicken.base#make-parameter */
t4=*((C_word*)lf[243]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4666(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_4666,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.optimizer#membership-test-operators ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4670,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:54: chicken.base#make-parameter */
t4=*((C_word*)lf[243]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4670(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
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_4670,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.optimizer#membership-unfold-limit ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4674,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:55: chicken.base#make-parameter */
t4=*((C_word*)lf[243]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4674(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_4674,c,av);}
a=C_alloc(5);
t2=C_mutate((C_word*)lf[20]+1 /* (set! chicken.compiler.optimizer#default-optimization-passes ...) */,t1);
t3=C_mutate((C_word*)lf[21]+1 /* (set! chicken.compiler.optimizer#scan-toplevel-assignments ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4676,tmp=(C_word)a,a+=2,tmp));
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5027,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:150: scheme#make-vector */
t5=*((C_word*)lf[196]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_fix(301);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4676(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(49,c,5)))){
C_save_and_reclaim((void *)f_4676,c,av);}
a=C_alloc(49);
t3=C_SCHEME_END_OF_LIST;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_END_OF_LIST;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_FALSE;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_END_OF_LIST;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_SCHEME_UNDEFINED;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_SCHEME_UNDEFINED;
t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp);
t19=C_SCHEME_UNDEFINED;
t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp);
t21=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4679,a[2]=t8,a[3]=t6,a[4]=t4,tmp=(C_word)a,a+=5,tmp));
t22=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4702,a[2]=t10,tmp=(C_word)a,a+=3,tmp));
t23=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4709,a[2]=t8,a[3]=t10,tmp=(C_word)a,a+=4,tmp));
t24=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4714,a[2]=t10,a[3]=t20,tmp=(C_word)a,a+=4,tmp));
t25=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4755,a[2]=t10,a[3]=t6,a[4]=t16,a[5]=t18,a[6]=t20,a[7]=t14,a[8]=t12,tmp=(C_word)a,a+=9,tmp));
t26=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4973,a[2]=t4,a[3]=t1,a[4]=t20,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:127: chicken.compiler.support#debugging */
t27=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t27;
av2[1]=t26;
av2[2]=lf[48];
av2[3]=lf[49];
((C_proc)(void*)(*((C_word*)t27+1)))(4,av2);}}

/* mark in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static C_word C_fcall f_4679(C_word *a,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_stack_overflow_check;{}
t2=C_i_not(((C_word*)((C_word*)t0)[2])[1]);
t3=(C_truep(t2)?C_i_not(C_i_memq(t1,((C_word*)((C_word*)t0)[3])[1])):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[4])[1]);
t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,t4);
return(t5);}
else{
t4=C_SCHEME_UNDEFINED;
return(t4);}}

/* remember in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_4702(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,4)))){
C_save_and_reclaim_args((void *)trf_4702,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4707,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:71: chicken.base#alist-update! */
t5=*((C_word*)lf[22]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
av2[3]=t3;
av2[4]=((C_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k4705 in remember in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4707(C_word c,C_word *av){
C_word tmp;
C_word t0=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_4707,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* touch in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static C_word C_fcall f_4709(C_word t0){
C_word tmp;
C_word t1;
C_word t2;
C_word t3;
C_stack_overflow_check;{}
t1=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE);
t2=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_END_OF_LIST);
return(t2);}

/* scan-each in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_4714(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
C_save_and_reclaim_args((void *)trf_4714,5,t0,t1,t2,t3,t4);}
a=C_alloc(12);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4716,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t6=C_i_check_list_2(t2,lf[23]);
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_4732,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_4732(t10,t1,t2);}

/* g578 in scan-each in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_4716(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(0,0,3)))){
C_save_and_reclaim_args((void *)trf_4716,3,t0,t1,t2);}
if(C_truep(((C_word*)t0)[2])){
t3=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_END_OF_LIST);
/* optimizer.scm:80: scan */
t4=((C_word*)((C_word*)t0)[4])[1];
f_4755(t4,t1,t2,((C_word*)t0)[5]);}
else{
/* optimizer.scm:80: scan */
t3=((C_word*)((C_word*)t0)[4])[1];
f_4755(t3,t1,t2,((C_word*)t0)[5]);}}

/* for-each-loop577 in scan-each in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_4732(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_4732,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_4742,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:78: g578 */
t4=((C_word*)t0)[3];
f_4716(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k4740 in for-each-loop577 in scan-each in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4742(C_word c,C_word *av){
C_word tmp;
C_word 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_4742,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_4732(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_4755(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(12,0,2)))){
C_save_and_reclaim_args((void *)trf_4755,4,t0,t1,t2,t3);}
a=C_alloc(12);
t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4759,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=t2,a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp);
/* optimizer.scm:84: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[43]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4759(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_4759,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4762,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* optimizer.scm:85: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[42]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[10];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4762(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_4762,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_4765,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
/* optimizer.scm:86: chicken.compiler.support#node-class */
t3=*((C_word*)lf[41]+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)[11];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4765(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_4765,c,av);}
a=C_alloc(15);
t2=C_eqp(t1,lf[24]);
if(C_truep(t2)){
t3=C_i_car(((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4777,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_memq(t3,((C_word*)t0)[5]);
t6=C_i_not(t5);
t7=(C_truep(t6)?C_i_not(C_i_memq(t3,((C_word*)((C_word*)t0)[6])[1])):C_SCHEME_FALSE);
if(C_truep(t7)){
t8=C_a_i_cons(&a,2,t3,((C_word*)((C_word*)t0)[6])[1]);
t9=C_mutate(((C_word *)((C_word*)t0)[6])+1,t8);
t10=t4;
f_4777(t10,t9);}
else{
t8=t4;
f_4777(t8,C_SCHEME_UNDEFINED);}}
else{
t3=C_eqp(t1,lf[25]);
t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_4825,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[10],a[8]=t1,a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[3],tmp=(C_word)a,a+=15,tmp);
if(C_truep(t3)){
t5=t4;
f_4825(t5,t3);}
else{
t5=C_eqp(t1,lf[39]);
t6=t4;
f_4825(t6,(C_truep(t5)?t5:C_eqp(t1,lf[40])));}}}

/* k4775 in k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_4777(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_4777,2,t0,t1);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4781,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4783,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:93: filter */
f_3991(t2,t3,((C_word*)((C_word*)t0)[2])[1]);}

/* k4779 in k4775 in k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4781(C_word c,C_word *av){
C_word tmp;
C_word t0=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_4781,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a4782 in k4775 in k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4783(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_4783,c,av);}
t3=C_i_car(t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_not(C_eqp(t3,((C_word*)t0)[2]));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k4823 in k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_4825(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(12,0,4)))){
C_save_and_reclaim_args((void *)trf_4825,2,t0,t1);}
a=C_alloc(12);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4828,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:96: scan */
t3=((C_word*)((C_word*)t0)[7])[1];
f_4755(t3,t2,C_i_car(((C_word*)t0)[5]),((C_word*)t0)[6]);}
else{
t2=C_eqp(((C_word*)t0)[8],lf[26]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4851,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4866,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:101: chicken.base#butlast */
t5=*((C_word*)lf[27]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t3=C_eqp(((C_word*)t0)[8],lf[28]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[8],lf[29]));
if(C_truep(t4)){
t5=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t0)[8],lf[30]);
if(C_truep(t5)){
/* optimizer.scm:106: touch */
t6=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t6;
av2[1]=(
/* optimizer.scm:106: touch */
  f_4709(((C_word*)((C_word*)t0)[2])[1])
);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_eqp(((C_word*)t0)[8],lf[31]);
if(C_truep(t6)){
t7=C_i_car(((C_word*)t0)[9]);
t8=C_i_car(((C_word*)t0)[5]);
t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4899,a[2]=t7,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[14],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:111: scan */
t10=((C_word*)((C_word*)t0)[7])[1];
f_4755(t10,t9,t8,((C_word*)t0)[6]);}
else{
/* optimizer.scm:125: scan-each */
t7=((C_word*)((C_word*)t0)[3])[1];
f_4714(t7,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);}}}}}}

/* k4826 in k4823 in k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4828(C_word c,C_word *av){
C_word tmp;
C_word t0=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_4828,c,av);}
t2=(
/* optimizer.scm:97: touch */
  f_4709(((C_word*)((C_word*)t0)[2])[1])
);
/* optimizer.scm:98: scan-each */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4714(t3,((C_word*)t0)[4],C_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],C_SCHEME_TRUE);}

/* k4849 in k4823 in k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4851(C_word c,C_word *av){
C_word tmp;
C_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_4851,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4157,tmp=(C_word)a,a+=2,tmp);
t3=(
  f_4157(((C_word*)t0)[2])
);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4862,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:102: scheme#append */
t5=*((C_word*)lf[7]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k4860 in k4849 in k4823 in k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4862(C_word c,C_word *av){
C_word tmp;
C_word 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_4862,c,av);}
/* optimizer.scm:102: scan */
t2=((C_word*)((C_word*)t0)[2])[1];
f_4755(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k4864 in k4823 in k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4866(C_word c,C_word *av){
C_word tmp;
C_word 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_4866,c,av);}
/* optimizer.scm:101: scan-each */
t2=((C_word*)((C_word*)t0)[2])[1];
f_4714(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_SCHEME_FALSE);}

/* k4897 in k4823 in k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4899(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_4899,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4902,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:112: chicken.base#alist-ref */
t3=*((C_word*)lf[38]+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*)((C_word*)t0)[9])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k4900 in k4897 in k4823 in k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4902(C_word c,C_word *av){
C_word tmp;
C_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,4)))){
C_save_and_reclaim((void *)f_4902,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4905,a[2]=((C_word*)t0)[2],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_truep(t1)?C_i_not(C_i_memq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[8])[1])):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4923,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:118: chicken.compiler.support#debugging */
t5=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[36];
av2[3]=lf[37];
av2[4]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_4905(2,av2);}}}

/* k4903 in k4900 in k4897 in k4823 in k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4905(C_word c,C_word *av){
C_word tmp;
C_word t0=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_4905,c,av);}
a=C_alloc(3);
if(C_truep(C_i_memq(((C_word*)t0)[2],((C_word*)t0)[3]))){
/* optimizer.scm:123: remember */
t2=((C_word*)((C_word*)t0)[4])[1];
f_4702(t2,((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)t0)[6]);}
else{
t2=(
/* optimizer.scm:122: mark */
  f_4679(C_a_i(&a,3),((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[2])
);
/* optimizer.scm:123: remember */
t3=((C_word*)((C_word*)t0)[4])[1];
f_4702(t3,((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)t0)[6]);}}

/* k4921 in k4900 in k4897 in k4823 in k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4923(C_word c,C_word *av){
C_word tmp;
C_word t0=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_4923,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4930,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:120: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[34];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k4928 in k4921 in k4900 in k4897 in k4823 in k4763 in k4760 in k4757 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4930(C_word c,C_word *av){
C_word tmp;
C_word 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_4930,c,av);}
/* optimizer.scm:119: chicken.compiler.support#copy-node! */
t2=*((C_word*)lf[32]+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);}}

/* k4971 in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4973(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_4973,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4976,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:128: scan */
t3=((C_word*)((C_word*)t0)[4])[1];
f_4755(t3,t2,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);}

/* k4974 in k4971 in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4976(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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_4976,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4979,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[2])[1]))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5023,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=((C_word*)((C_word*)t0)[2])[1];
t5=*((C_word*)lf[47]+1);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3952,a[2]=t7,a[3]=t5,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_3952(t9,t3,t4);}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_4979(2,av2);}}}

/* k4977 in k4974 in k4971 in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_4979(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_4979,c,av);}
a=C_alloc(5);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_i_check_list_2(t2,lf[23]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4992,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_4992(t7,((C_word*)t0)[3],t2);}

/* for-each-loop559 in k4977 in k4974 in k4971 in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_4992(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_4992,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_5002,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=*((C_word*)lf[44]+1);
/* optimizer.scm:131: g636 */
t6=*((C_word*)lf[44]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[45];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k5000 in for-each-loop559 in k4977 in k4974 in k4971 in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5002(C_word c,C_word *av){
C_word tmp;
C_word 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_5002,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_4992(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k5021 in k4974 in k4971 in chicken.compiler.optimizer#scan-toplevel-assignments in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5023(C_word c,C_word *av){
C_word tmp;
C_word 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_5023,c,av);}
/* optimizer.scm:130: chicken.compiler.support#debugging */
t2=*((C_word*)lf[35]+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[36];
av2[3]=lf[46];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5027(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(52,c,9)))){
C_save_and_reclaim((void *)f_5027,c,av);}
a=C_alloc(52);
t2=C_mutate(&lf[50] /* (set! chicken.compiler.optimizer#simplifications ...) */,t1);
t3=lf[51] /* chicken.compiler.optimizer#simplified-ops */ =C_SCHEME_END_OF_LIST;;
t4=lf[52] /* chicken.compiler.optimizer#broken-constant-nodes */ =C_SCHEME_END_OF_LIST;;
t5=lf[53] /* chicken.compiler.optimizer#inline-history */ =C_SCHEME_END_OF_LIST;;
t6=C_mutate((C_word*)lf[54]+1 /* (set! chicken.compiler.optimizer#perform-high-level-optimizations ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5032,tmp=(C_word)a,a+=2,tmp));
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7646,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t8=C_a_i_list(&a,1,lf[191]);
t9=C_a_i_list(&a,2,lf[24],t8);
t10=C_a_i_cons(&a,2,lf[229],lf[230]);
t11=C_a_i_cons(&a,2,t9,t10);
t12=C_a_i_cons(&a,2,lf[218],t11);
t13=C_a_i_cons(&a,2,lf[30],t12);
t14=C_a_i_list(&a,4,lf[191],lf[229],lf[230],lf[218]);
t15=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14042,tmp=(C_word)a,a+=2,tmp);
t16=C_a_i_list(&a,3,t13,t14,t15);
t17=C_a_i_list(&a,1,t16);
/* optimizer.scm:691: chicken.internal#hash-table-set! */
t18=*((C_word*)lf[158]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t18;
av2[1]=t7;
av2[2]=lf[50];
av2[3]=lf[30];
av2[4]=t17;
((C_proc)(void*)(*((C_word*)t18+1)))(5,av2);}}

/* chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5032(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7=av[7];
C_word t8=av[8];
C_word t9;
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(116,c,9)))){
C_save_and_reclaim((void *)f_5032,c,av);}
a=C_alloc(116);
t9=C_fix(0);
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_fix(0);
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_fix(0);
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_SCHEME_END_OF_LIST;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_SCHEME_END_OF_LIST;
t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp);
t19=C_SCHEME_FALSE;
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_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5035,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t40=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5061,a[2]=t20,tmp=(C_word)a,a+=3,tmp));
t41=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5065,tmp=(C_word)a,a+=2,tmp));
t42=C_set_block_item(t28,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5102,a[2]=t18,a[3]=t24,a[4]=t28,a[5]=t3,a[6]=t8,tmp=(C_word)a,a+=7,tmp));
t43=C_set_block_item(t30,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5230,a[2]=t24,a[3]=t22,a[4]=t3,tmp=(C_word)a,a+=5,tmp));
t44=C_set_block_item(t32,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5382,a[2]=t20,a[3]=t28,a[4]=t12,a[5]=t24,a[6]=t32,a[7]=t30,a[8]=t36,tmp=(C_word)a,a+=9,tmp));
t45=C_set_block_item(t34,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5520,a[2]=t3,a[3]=t34,a[4]=t22,tmp=(C_word)a,a+=5,tmp));
t46=C_set_block_item(t36,0,(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_5540,a[2]=t24,a[3]=t22,a[4]=t14,a[5]=t34,a[6]=t10,a[7]=t32,a[8]=t38,a[9]=t3,a[10]=t26,a[11]=t16,a[12]=t5,a[13]=t6,a[14]=t7,a[15]=t4,tmp=(C_word)a,a+=16,tmp));
t47=C_set_block_item(t38,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7152,a[2]=t26,a[3]=t32,tmp=(C_word)a,a+=4,tmp));
t48=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7212,a[2]=t1,a[3]=t2,a[4]=t20,a[5]=t12,a[6]=t10,a[7]=t14,a[8]=t18,a[9]=t32,tmp=(C_word)a,a+=10,tmp);
t49=C_SCHEME_FALSE;
t50=(*a=C_VECTOR_TYPE|1,a[1]=t49,tmp=(C_word)a,a+=2,tmp);
t51=C_fix(0);
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_set_block_item(t54,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7381,a[2]=t50,tmp=(C_word)a,a+=3,tmp));
t58=C_set_block_item(t56,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7385,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t59=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7392,a[2]=t48,a[3]=t50,a[4]=t52,a[5]=t54,a[6]=t3,a[7]=t56,tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:643: chicken.compiler.support#debugging */
t60=*((C_word*)lf[35]+1);{
C_word *av2=av;
av2[0]=t60;
av2[1]=t59;
av2[2]=lf[48];
av2[3]=lf[155];
((C_proc)(void*)(*((C_word*)t60+1)))(4,av2);}}

/* test in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5035(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_5035,4,t0,t1,t2,t3);}
/* optimizer.scm:166: chicken.compiler.support#db-get */
t4=*((C_word*)lf[55]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k5047 in k5400 in k5397 in k5394 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5049(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,2)))){
C_save_and_reclaim((void *)f_5049,c,av);}
a=C_alloc(36);
t2=C_eqp(lf[75],t1);
if(C_truep(t2)){
t3=((C_word*)((C_word*)t0)[2])[1];
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t3,C_fix(1)));
t5=(
/* optimizer.scm:234: touch */
  f_5061(((C_word*)((C_word*)t0)[3])[1])
);
t6=C_u_i_car(((C_word*)t0)[4]);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5059,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:168: chicken.compiler.support#node-parameters */
t8=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=t6;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
/* optimizer.scm:225: simplify */
t3=((C_word*)((C_word*)t0)[9])[1];
f_5102(t3,((C_word*)t0)[10],((C_word*)t0)[11]);}}

/* k5057 in k5047 in k5400 in k5397 in k5394 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5059(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_5059,c,av);}
t2=C_i_car(t1);
t3=(C_truep(t2)?C_i_cadr(((C_word*)t0)[2]):C_i_caddr(((C_word*)t0)[2]));
/* optimizer.scm:235: walk */
t4=((C_word*)((C_word*)t0)[3])[1];
f_5382(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6]);}

/* touch in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static C_word C_fcall f_5061(C_word t0){
C_word tmp;
C_word t1;
C_word t2;
C_stack_overflow_check;{}
t1=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE);
return(t1);}

/* invalidate-gae! in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5065(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(2,0,2)))){
C_save_and_reclaim_args((void *)trf_5065,2,t1,t2);}
a=C_alloc(2);
t3=C_i_check_list_2(t2,lf[23]);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5079,tmp=(C_word)a,a+=2,tmp);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(
  f_5079(t2)
);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* for-each-loop687 in invalidate-gae! in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static C_word C_fcall f_5079(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=C_slot(t1,C_fix(0));
t3=C_i_set_cdr(t2,C_SCHEME_FALSE);
t5=C_slot(t1,C_fix(1));
t1=t5;
goto loop;}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5102(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(12,0,2)))){
C_save_and_reclaim_args((void *)trf_5102,3,t0,t1,t2);}
a=C_alloc(12);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5106,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5228,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:176: chicken.compiler.support#node-class */
t5=*((C_word*)lf[41]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k5104 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5106(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_5106,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5109,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|7,a[1]=(C_word)f_5117,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:177: any */
f_3785(t2,t3,t1);}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k5107 in k5104 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5109(C_word c,C_word *av){
C_word tmp;
C_word 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_5109,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?t1:((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a5116 in k5104 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5117(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_5117,c,av);}
a=C_alloc(10);
t3=C_i_cadr(t2);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5127,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=t3,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:179: chicken.compiler.support#match-node */
t5=*((C_word*)lf[56]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[7];
av2[3]=C_i_car(t2);
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(5,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);}}}

/* k5125 in a5116 in k5104 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5127(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(29,c,3)))){
C_save_and_reclaim((void *)f_5127,c,av);}
a=C_alloc(29);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5133,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t3=C_i_caddr(((C_word*)t0)[2]);
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|2,a[1]=(C_word)f_5172,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t9=C_i_check_list_2(((C_word*)t0)[7],lf[8]);
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5186,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,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|5,a[1]=(C_word)f_5188,a[2]=t8,a[3]=t6,a[4]=t12,a[5]=t7,tmp=(C_word)a,a+=6,tmp));
t14=((C_word*)t12)[1];
f_5188(t14,t10,((C_word*)t0)[7]);}
else{
t2=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k5131 in k5125 in a5116 in k5104 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5133(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,2)))){
C_save_and_reclaim((void *)f_5133,c,av);}
a=C_alloc(29);
if(C_truep(t1)){
t2=C_i_caar(((C_word*)t0)[2]);
t3=C_i_assq(t2,((C_word*)((C_word*)t0)[3])[1]);
if(C_truep(t3)){
t4=C_i_cdr(t3);
t5=C_s_a_i_plus(&a,2,t4,C_fix(1));
t6=C_i_set_cdr(t3,t5);
t7=(
/* optimizer.scm:187: touch */
  f_5061(((C_word*)((C_word*)t0)[4])[1])
);
/* optimizer.scm:188: simplify */
t8=((C_word*)((C_word*)t0)[5])[1];
f_5102(t8,((C_word*)t0)[6],t1);}
else{
t4=((C_word*)((C_word*)t0)[3])[1];
t5=C_a_i_cons(&a,2,t2,C_fix(1));
t6=C_a_i_cons(&a,2,t5,t4);
t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t6);
t8=(
/* optimizer.scm:187: touch */
  f_5061(((C_word*)((C_word*)t0)[4])[1])
);
/* optimizer.scm:188: simplify */
t9=((C_word*)((C_word*)t0)[5])[1];
f_5102(t9,((C_word*)t0)[6],t1);}}
else{
t2=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* g727 in k5125 in a5116 in k5104 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static C_word C_fcall f_5172(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_i_cdr(C_i_assq(t1,((C_word*)t0)[2])));}

/* k5184 in k5125 in a5116 in k5104 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5186(C_word c,C_word *av){
C_word tmp;
C_word 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_5186,c,av);}{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
av2[5]=t1;
C_apply(6,av2);}}

/* map-loop721 in k5125 in a5116 in k5104 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5188(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_5188,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=(
/* optimizer.scm:181: g727 */
  f_5172(((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);}}}

/* k5226 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5228(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_5228,c,av);}
/* optimizer.scm:175: chicken.internal#hash-table-ref */
t2=*((C_word*)lf[57]+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[50];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5230(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_5230,3,t0,t1,t2);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5380,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:197: chicken.compiler.support#node-class */
t4=*((C_word*)lf[41]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k5235 in k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5237(C_word c,C_word *av){
C_word tmp;
C_word 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_5237,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?t1:((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k5247 in k5374 in k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5249(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,2)))){
C_save_and_reclaim_args((void *)trf_5249,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5351,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:205: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[42]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word av2[2];
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k5277 in k5337 in k5341 in k5345 in k5349 in k5247 in k5374 in k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5279(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_5279,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=C_i_car(t1);
if(C_truep(t2)){
t3=C_u_i_cdr(t1);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5335,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:212: test */
t5=((C_word*)((C_word*)t0)[8])[1];
f_5035(t5,t4,((C_word*)t0)[6],lf[62]);}
else{
t4=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t3=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
else{
t2=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k5299 in k5333 in k5277 in k5337 in k5341 in k5345 in k5349 in k5247 in k5374 in k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_5301(C_word c,C_word *av){
C_word tmp;
C_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_5301,c,av);}
a=C_alloc(9);
t2=(
/* optimizer.scm:216: touch */
  f_5061(((C_word*)((C_word*)t0)[2])[1])
);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5311,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5323,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:218: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k5309 in k5299 in k5333 in k5277 in k5337 in k5341 in k5345 in k5349 in k5247 in k5374 in k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_5311(C_word c,C_word *av){
C_word tmp;
C_word 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_5311,c,av);}
/* optimizer.scm:217: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k5321 in k5299 in k5333 in k5277 in k5337 in k5341 in k5345 in k5349 in k5247 in k5374 in k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_5323(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_5323,c,av);}
a=C_alloc(6);
t2=C_i_cdr(t1);
/* optimizer.scm:218: cons* */
f_3815(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,((C_word*)t0)[4],t2));}

/* k5325 in k5333 in k5277 in k5337 in k5341 in k5345 in k5349 in k5247 in k5374 in k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_5327(C_word c,C_word *av){
C_word tmp;
C_word 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_5327,c,av);}
/* optimizer.scm:214: chicken.compiler.support#debugging */
t2=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[59];
av2[3]=lf[60];
av2[4]=t1;
av2[5]=((C_word*)t0)[3];
av2[6]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}

/* k5329 in k5333 in k5277 in k5337 in k5341 in k5345 in k5349 in k5247 in k5374 in k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_5331(C_word c,C_word *av){
C_word tmp;
C_word 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_5331,c,av);}
/* optimizer.scm:215: chicken.compiler.support#call-info */
t2=*((C_word*)lf[61]+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);}}

/* k5333 in k5277 in k5337 in k5341 in k5345 in k5349 in k5247 in k5374 in k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_5335(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_5335,c,av);}
a=C_alloc(17);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5301,a[2]=((C_word*)t0)[2],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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5327,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5331,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:215: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t2=((C_word*)t0)[9];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k5337 in k5341 in k5345 in k5349 in k5247 in k5374 in k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5339(C_word c,C_word *av){
C_word tmp;
C_word t0=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_5339,c,av);}
a=C_alloc(9);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5279,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:209: chicken.compiler.support#db-get */
t3=*((C_word*)lf[55]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[6];
av2[4]=lf[63];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k5341 in k5345 in k5349 in k5247 in k5374 in k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5343(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_5343,c,av);}
a=C_alloc(10);
t2=C_i_car(t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5339,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:208: chicken.compiler.support#db-get */
t4=*((C_word*)lf[55]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
av2[3]=t2;
av2[4]=lf[64];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t3=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k5345 in k5349 in k5247 in k5374 in k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5347(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_5347,c,av);}
a=C_alloc(9);
t2=C_eqp(lf[24],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5343,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:207: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+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)[9];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k5349 in k5247 in k5374 in k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5351(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_5351,c,av);}
a=C_alloc(10);
t2=C_i_car(t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5347,a[2]=((C_word*)t0)[2],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]=t2,tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:206: chicken.compiler.support#node-class */
t4=*((C_word*)lf[41]+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{
t3=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k5374 in k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5376(C_word c,C_word *av){
C_word tmp;
C_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_5376,c,av);}
a=C_alloc(8);
t2=C_i_car(t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5249,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
if(C_truep((C_truep(C_i_equalp(t2,lf[65]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t2,lf[66]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
t4=t3;
f_5249(t4,lf[67]);}
else{
if(C_truep((C_truep(C_i_equalp(t2,lf[68]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t2,lf[69]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
t4=t3;
f_5249(t4,lf[70]);}
else{
if(C_truep((C_truep(C_i_equalp(t2,lf[71]))?C_SCHEME_TRUE:C_SCHEME_FALSE))){
t4=t3;
f_5249(t4,lf[72]);}
else{
t4=C_i_member(t2,lf[73]);
t5=t3;
f_5249(t5,(C_truep(t4)?lf[74]:C_SCHEME_FALSE));}}}}
else{
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k5378 in maybe-replace-rest-arg-calls in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5380(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_5380,c,av);}
a=C_alloc(12);
t2=C_eqp(lf[58],t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5237,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t2)){
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5376,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:198: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=((C_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);}}}

/* walk in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5382(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(12,0,4)))){
C_save_and_reclaim_args((void *)trf_5382,5,t0,t1,t2,t3,t4);}
a=C_alloc(12);
if(C_truep(C_i_memq(t2,lf[52]))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=((C_word*)((C_word*)t0)[2])[1];
t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5396,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t3,a[8]=t4,a[9]=((C_word*)t0)[7],a[10]=t5,a[11]=((C_word*)t0)[2],tmp=(C_word)a,a+=12,tmp);
/* optimizer.scm:227: walk1 */
t7=((C_word*)((C_word*)t0)[8])[1];
f_5540(t7,t6,t2,t3,t4);}}

/* k5394 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5396(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_5396,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5399,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* optimizer.scm:228: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[42]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k5397 in k5394 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5399(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_5399,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5402,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
/* optimizer.scm:229: chicken.compiler.support#node-class */
t3=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k5400 in k5397 in k5394 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5402(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(16,c,5)))){
C_save_and_reclaim((void *)f_5402,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5405,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_eqp(t1,lf[25]);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[4]);
t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5049,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],a[6]=t2,a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
/* optimizer.scm:167: chicken.compiler.support#node-class */
t6=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t4=C_eqp(t1,lf[58]);
if(C_truep(t4)){
/* optimizer.scm:242: maybe-replace-rest-arg-calls */
t5=((C_word*)((C_word*)t0)[11])[1];
f_5230(t5,t2,((C_word*)t0)[10]);}
else{
t5=C_eqp(t1,lf[30]);
if(C_truep(t5)){
t6=C_i_car(((C_word*)t0)[4]);
t7=C_i_cddr(((C_word*)t0)[4]);
t8=C_a_i_cons(&a,2,t6,t7);
t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5465,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:245: chicken.compiler.support#maybe-constant-fold-call */
t10=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t10;
av2[1]=t2;
av2[2]=((C_word*)t0)[10];
av2[3]=t8;
av2[4]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}
else{
/* optimizer.scm:225: simplify */
t6=((C_word*)((C_word*)t0)[2])[1];
f_5102(t6,((C_word*)t0)[3],((C_word*)t0)[10]);}}}}

/* k5403 in k5400 in k5397 in k5394 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5405(C_word c,C_word *av){
C_word tmp;
C_word 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_5405,c,av);}
/* optimizer.scm:225: simplify */
t2=((C_word*)((C_word*)t0)[2])[1];
f_5102(t2,((C_word*)t0)[3],t1);}

/* a5464 in k5400 in k5397 in k5394 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5465(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_5465,c,av);}
a=C_alloc(4);
if(C_truep(C_i_not(t2))){
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5478,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[3])){
t6=t5;
f_5478(t6,C_SCHEME_UNDEFINED);}
else{
t6=C_set_block_item(((C_word*)t0)[4],0,C_SCHEME_FALSE);
t7=t5;
f_5478(t7,t6);}}
else{
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t5=(
/* optimizer.scm:256: touch */
  f_5061(((C_word*)((C_word*)t0)[5])[1])
);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5489,a[2]=((C_word*)t0)[6],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:258: chicken.compiler.support#qnode */
t7=*((C_word*)lf[76]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}

/* k5476 in a5464 in k5400 in k5397 in k5394 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5478(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){
C_save_and_reclaim_args((void *)trf_5478,2,t0,t1);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5482,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=lf[52];
t4=C_a_i_list(&a,1,((C_word*)t0)[3]);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4216,a[2]=t6,tmp=(C_word)a,a+=3,tmp));
t8=((C_word*)t6)[1];
f_4216(t8,t2,t4,lf[52]);}

/* k5480 in k5476 in a5464 in k5400 in k5397 in k5394 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5482(C_word c,C_word *av){
C_word tmp;
C_word t0=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_5482,c,av);}
t2=C_mutate(&lf[52] /* (set! chicken.compiler.optimizer#broken-constant-nodes ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k5487 in a5464 in k5400 in k5397 in k5394 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5489(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_5489,c,av);}
a=C_alloc(9);
t2=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t3=C_i_cadr(((C_word*)t0)[2]);
t4=C_a_i_list2(&a,2,t3,t1);
/* optimizer.scm:259: chicken.compiler.support#make-node */
t5=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=t2;
av2[4]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* replace-var in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5520(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_5520,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5524,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:266: test */
t4=((C_word*)((C_word*)t0)[4])[1];
f_5035(t4,t3,t2,lf[79]);}

/* k5522 in replace-var in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5524(C_word c,C_word *av){
C_word tmp;
C_word t0=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_5524,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5528,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);
/* optimizer.scm:266: g818 */
t3=t2;
f_5528(t3,((C_word*)t0)[5],t1);}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* g818 in k5522 in replace-var in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5528(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_5528,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5532,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:268: replace-var */
t4=((C_word*)((C_word*)t0)[4])[1];
f_5520(t4,t3,t2);}

/* k5530 in g818 in k5522 in replace-var in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5532(C_word c,C_word *av){
C_word tmp;
C_word t0=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,5)))){
C_save_and_reclaim((void *)f_5532,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5535,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:270: chicken.compiler.support#db-put! */
t3=*((C_word*)lf[78]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[79];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k5533 in k5530 in g818 in k5522 in replace-var in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5535(C_word c,C_word *av){
C_word tmp;
C_word 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_5535,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);}}

/* walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5540(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(20,0,2)))){
C_save_and_reclaim_args((void *)trf_5540,5,t0,t1,t2,t3,t4);}
a=C_alloc(20);
t5=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_5544,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=t3,a[11]=((C_word*)t0)[8],a[12]=t2,a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[10],a[15]=((C_word*)t0)[11],a[16]=((C_word*)t0)[12],a[17]=((C_word*)t0)[13],a[18]=((C_word*)t0)[14],a[19]=((C_word*)t0)[15],tmp=(C_word)a,a+=20,tmp);
/* optimizer.scm:275: chicken.compiler.support#node-subexpressions */
t6=*((C_word*)lf[42]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5544(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
C_save_and_reclaim((void *)f_5544,c,av);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_5547,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],tmp=(C_word)a,a+=21,tmp);
/* optimizer.scm:276: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[12];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5547(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){
C_save_and_reclaim((void *)f_5547,c,av);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_5550,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],tmp=(C_word)a,a+=22,tmp);
/* optimizer.scm:277: chicken.compiler.support#node-class */
t3=*((C_word*)lf[41]+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)[13];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5550(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(20,c,8)))){
C_save_and_reclaim((void *)f_5550,c,av);}
a=C_alloc(20);
t2=C_eqp(t1,lf[24]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5559,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:281: replace-var */
t4=((C_word*)((C_word*)t0)[8])[1];
f_5520(t4,t3,C_i_car(((C_word*)t0)[5]));}
else{
t3=C_eqp(t1,lf[26]);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[5]);
t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5672,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[5],a[10]=t4,a[11]=((C_word*)t0)[4],tmp=(C_word)a,a+=12,tmp);
/* optimizer.scm:302: test */
t6=((C_word*)((C_word*)t0)[4])[1];
f_5035(t6,t5,t4,lf[91]);}
else{
t4=C_eqp(t1,lf[29]);
if(C_truep(t4)){
t5=C_i_caddr(((C_word*)t0)[5]);
t6=C_i_car(((C_word*)t0)[5]);
t7=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5817,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[11],a[6]=t6,a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[3],a[10]=t5,a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=t1,tmp=(C_word)a,a+=14,tmp);
/* optimizer.scm:320: test */
t8=((C_word*)((C_word*)t0)[4])[1];
f_5035(t8,t7,t6,lf[99]);}
else{
t5=C_eqp(t1,lf[100]);
if(C_truep(t5)){
/* optimizer.scm:353: walk-generic */
t6=((C_word*)((C_word*)t0)[13])[1];
f_7152(t6,((C_word*)t0)[3],((C_word*)t0)[14],t1,((C_word*)t0)[5],((C_word*)t0)[11],((C_word*)t0)[12],C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);}
else{
t6=C_eqp(t1,lf[30]);
if(C_truep(t6)){
t7=C_i_car(((C_word*)t0)[11]);
t8=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_5990,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[15],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[14],a[11]=t1,a[12]=((C_word*)t0)[5],a[13]=t7,a[14]=((C_word*)t0)[16],a[15]=((C_word*)t0)[4],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],tmp=(C_word)a,a+=20,tmp);
/* optimizer.scm:357: chicken.compiler.support#node-class */
t9=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=t7;
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t7=C_eqp(t1,lf[31]);
if(C_truep(t7)){
t8=C_i_car(((C_word*)t0)[5]);
t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6961,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t8,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[15],a[12]=((C_word*)t0)[21],tmp=(C_word)a,a+=13,tmp);
/* optimizer.scm:544: test */
t10=((C_word*)((C_word*)t0)[4])[1];
f_5035(t10,t9,t8,lf[90]);}
else{
/* optimizer.scm:573: walk-generic */
t8=((C_word*)((C_word*)t0)[13])[1];
f_7152(t8,((C_word*)t0)[3],((C_word*)t0)[14],t1,((C_word*)t0)[5],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[7],C_SCHEME_FALSE);}}}}}}}

/* k5557 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5559(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_5559,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5565,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:282: test */
t3=((C_word*)((C_word*)t0)[4])[1];
f_5035(t3,t2,t1,lf[87]);}

/* k5563 in k5557 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5565(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_5565,c,av);}
a=C_alloc(29);
if(C_truep(t1)){
t2=(
/* optimizer.scm:283: touch */
  f_5061(((C_word*)((C_word*)t0)[2])[1])
);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5571,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);
/* optimizer.scm:284: chicken.compiler.support#debugging */
t4=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[36];
av2[3]=lf[81];
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t2=C_i_car(((C_word*)t0)[6]);
t3=C_eqp(((C_word*)t0)[5],t2);
if(C_truep(C_i_not(t3))){
t4=(
/* optimizer.scm:287: touch */
  f_5061(((C_word*)((C_word*)t0)[2])[1])
);
t5=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[7])[1],C_fix(1));
t6=C_mutate(((C_word *)((C_word*)t0)[7])+1,t5);
/* optimizer.scm:289: chicken.compiler.support#varnode */
t7=*((C_word*)lf[82]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t4=C_i_assq(((C_word*)t0)[5],((C_word*)t0)[8]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5609,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:282: g846 */
t6=t5;
f_5609(t6,((C_word*)t0)[3],t4);}
else{
/* optimizer.scm:298: chicken.compiler.support#varnode */
t5=*((C_word*)lf[82]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}}}

/* k5569 in k5563 in k5557 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5571(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_5571,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5582,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5586,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:285: test */
t4=((C_word*)((C_word*)t0)[3])[1];
f_5035(t4,t3,((C_word*)t0)[4],lf[80]);}

/* k5580 in k5569 in k5563 in k5557 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5582(C_word c,C_word *av){
C_word tmp;
C_word 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_5582,c,av);}
/* optimizer.scm:285: chicken.compiler.support#qnode */
t2=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_i_car(t1);
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k5584 in k5569 in k5563 in k5557 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5586(C_word c,C_word *av){
C_word tmp;
C_word 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_5586,c,av);}
/* optimizer.scm:285: chicken.compiler.support#node-parameters */
t2=*((C_word*)lf[43]+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);}}

/* g846 in k5563 in k5557 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5609(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_5609,3,t0,t1,t2);}
a=C_alloc(8);
t3=C_i_cdr(t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5619,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t3)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5639,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:294: chicken.compiler.support#variable-mark */
t6=*((C_word*)lf[85]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
av2[3]=lf[86];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t5=t4;
f_5619(t5,C_SCHEME_FALSE);}}

/* k5617 in g846 in k5563 in k5557 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5619(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){
C_save_and_reclaim_args((void *)trf_5619,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5622,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:295: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word av2[6];
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[36];
av2[3]=lf[83];
av2[4]=((C_word*)t0)[4];
av2[5]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
else{
/* optimizer.scm:297: chicken.compiler.support#varnode */
t2=*((C_word*)lf[82]+1);{
C_word av2[3];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}

/* k5620 in k5617 in g846 in k5563 in k5557 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5622(C_word c,C_word *av){
C_word tmp;
C_word 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_5622,c,av);}
/* optimizer.scm:296: chicken.compiler.support#varnode */
t2=*((C_word*)lf[82]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k5637 in g846 in k5563 in k5557 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5639(C_word c,C_word *av){
C_word tmp;
C_word 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_5639,c,av);}
t2=((C_word*)t0)[2];
f_5619(t2,C_i_not(C_eqp(lf[84],t1)));}

/* k5670 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5672(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_5672,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5675,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
if(C_truep(t1)){
t3=t2;
f_5675(t3,t1);}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5792,a[2]=t2,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:303: test */
t4=((C_word*)((C_word*)t0)[11])[1];
f_5035(t4,t3,((C_word*)t0)[10],lf[90]);}}

/* k5673 in k5670 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5675(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(29,0,4)))){
C_save_and_reclaim_args((void *)trf_5675,2,t0,t1);}
a=C_alloc(29);
if(C_truep(t1)){
t2=(
/* optimizer.scm:305: touch */
  f_5061(((C_word*)((C_word*)t0)[2])[1])
);
t3=((C_word*)((C_word*)t0)[3])[1];
t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_s_a_i_plus(&a,2,t3,C_fix(1)));
/* optimizer.scm:307: walk */
t5=((C_word*)((C_word*)t0)[4])[1];
f_5382(t5,((C_word*)t0)[5],C_i_cadr(((C_word*)t0)[6]),((C_word*)t0)[7],((C_word*)t0)[8]);}
else{
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5690,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[9],tmp=(C_word)a,a+=7,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5745,a[2]=((C_word*)t0)[10],a[3]=t2,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5782,a[2]=((C_word*)t0)[11],a[3]=t3,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:309: chicken.compiler.support#node-class */
t5=*((C_word*)lf[41]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_car(((C_word*)t0)[6]);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k5688 in k5673 in k5670 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5690(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(22,0,3)))){
C_save_and_reclaim_args((void *)trf_5690,2,t0,t1);}
a=C_alloc(22);
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_5698,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t7=C_i_check_list_2(((C_word*)t0)[4],lf[8]);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5708,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,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_5710,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_5710(t12,t8,((C_word*)t0)[4]);}

/* g877 in k5688 in k5673 in k5670 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5698(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_5698,3,t0,t1,t2);}
/* optimizer.scm:315: g894 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_5382(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k5706 in k5688 in k5673 in k5670 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5708(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_5708,c,av);}
/* optimizer.scm:315: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[26];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* map-loop871 in k5688 in k5673 in k5670 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5710(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_5710,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_5735,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);
/* optimizer.scm:315: g877 */
t4=((C_word*)t0)[4];
f_5698(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);}}}

/* k5733 in map-loop871 in k5688 in k5673 in k5670 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5735(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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_5735,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_5710(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k5743 in k5673 in k5670 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5745(C_word c,C_word *av){
C_word tmp;
C_word t0=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_5745,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5756,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);
/* optimizer.scm:312: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[43]+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)[5]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[3];
f_5690(t2,((C_word*)t0)[4]);}}

/* k5754 in k5743 in k5673 in k5670 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5756(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_5756,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2);
t4=((C_word*)t0)[3];
f_5690(t4,C_a_i_cons(&a,2,t3,((C_word*)t0)[4]));}

/* k5772 in k5780 in k5673 in k5670 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5774(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_5774,c,av);}
/* optimizer.scm:310: test */
t2=((C_word*)((C_word*)t0)[2])[1];
f_5035(t2,((C_word*)t0)[3],C_i_car(t1),lf[88]);}

/* k5780 in k5673 in k5670 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5782(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_5782,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[24],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5774,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:310: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_car(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_5745(2,av2);}}}

/* k5790 in k5670 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5792(C_word c,C_word *av){
C_word tmp;
C_word t0=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_5792,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5799,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:304: test */
t3=((C_word*)((C_word*)t0)[3])[1];
f_5035(t3,t2,((C_word*)t0)[4],lf[89]);}
else{
t2=((C_word*)t0)[2];
f_5675(t2,C_SCHEME_FALSE);}}

/* k5797 in k5790 in k5670 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5799(C_word c,C_word *av){
C_word tmp;
C_word 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_5799,c,av);}
t2=((C_word*)t0)[2];
f_5675(t2,C_i_not(t1));}

/* k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5817(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){
C_save_and_reclaim((void *)f_5817,c,av);}
a=C_alloc(13);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5822,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:321: ##sys#decompose-lambda-list */
t3=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[9];
av2[2]=((C_word*)t0)[10];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5909,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp);
/* optimizer.scm:337: test */
t3=((C_word*)((C_word*)t0)[2])[1];
f_5035(t3,t2,((C_word*)t0)[6],lf[95]);}}

/* a5821 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5822(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_5822,c,av);}
a=C_alloc(15);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5828,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5840,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t3,a[9]=t4,a[10]=((C_word*)t0)[2],tmp=(C_word)a,a+=11,tmp);
/* optimizer.scm:324: ##sys#call-with-values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t5;
av2[3]=t6;
C_call_with_values(4,av2);}}

/* a5827 in a5821 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5828(C_word c,C_word *av){
C_word tmp;
C_word t0=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_5828,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5834,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3388,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_3388(t6,t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,((C_word*)t0)[3]);}

/* a5833 in a5827 in a5821 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_5834(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_5834,3,t0,t1,t2);}
/* optimizer.scm:324: test */
t3=((C_word*)((C_word*)t0)[2])[1];
f_5035(t3,t1,t2,lf[92]);}

/* a5839 in a5821 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5840(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_5840,c,av);}
a=C_alloc(12);
t4=(
/* optimizer.scm:325: touch */
  f_5061(((C_word*)((C_word*)t0)[2])[1])
);
t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5847,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t3,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
/* optimizer.scm:326: chicken.compiler.support#debugging */
t6=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[36];
av2[3]=lf[96];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* k5845 in a5839 in a5821 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5847(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_5847,c,av);}
a=C_alloc(16);
t2=C_i_car(((C_word*)t0)[2]);
t3=C_i_cadr(((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5882,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5889,a[2]=((C_word*)t0)[8],a[3]=t4,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)t0)[10])){
/* optimizer.scm:330: test */
t6=((C_word*)((C_word*)t0)[11])[1];
f_5035(t6,t5,((C_word*)t0)[5],lf[95]);}
else{
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_5889(2,av2);}}}

/* k5860 in k5880 in k5845 in a5839 in a5821 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_5862(C_word c,C_word *av){
C_word tmp;
C_word t0=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_5862,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* optimizer.scm:327: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[29];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k5880 in k5845 in a5839 in a5821 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5882(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){
C_save_and_reclaim((void *)f_5882,c,av);}
a=C_alloc(19);
t2=C_i_cadddr(((C_word*)t0)[2]);
t3=C_a_i_list4(&a,4,((C_word*)t0)[3],((C_word*)t0)[4],t1,t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5862,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=C_i_car(((C_word*)t0)[6]);
t6=C_a_i_cons(&a,2,((C_word*)t0)[7],((C_word*)t0)[8]);
/* optimizer.scm:336: walk */
t7=((C_word*)((C_word*)t0)[9])[1];
f_5382(t7,t4,t5,t6,C_SCHEME_END_OF_LIST);}

/* k5887 in k5845 in a5839 in a5821 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5889(C_word c,C_word *av){
C_word tmp;
C_word t0=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_5889,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5892,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);
/* optimizer.scm:331: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[36];
av2[3]=lf[94];
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
/* optimizer.scm:334: chicken.compiler.support#build-lambda-list */
t2=*((C_word*)lf[93]+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)[2];
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}

/* k5890 in k5887 in k5845 in a5839 in a5821 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_5892(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_5892,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
/* optimizer.scm:333: chicken.compiler.support#build-lambda-list */
t3=*((C_word*)lf[93]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k5907 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5909(C_word c,C_word *av){
C_word tmp;
C_word t0=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,8)))){
C_save_and_reclaim((void *)f_5909,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5914,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:338: ##sys#decompose-lambda-list */
t3=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[8];
av2[2]=((C_word*)t0)[9];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[6]);
/* optimizer.scm:350: walk-generic */
t3=((C_word*)((C_word*)t0)[10])[1];
f_7152(t3,((C_word*)t0)[8],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[3],((C_word*)t0)[4],t2,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);}}

/* a5913 in k5907 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5914(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_5914,c,av);}
a=C_alloc(10);
t5=(
/* optimizer.scm:341: touch */
  f_5061(((C_word*)((C_word*)t0)[2])[1])
);
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5921,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=t2,tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:342: chicken.compiler.support#debugging */
t7=*((C_word*)lf[35]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[36];
av2[3]=lf[98];
av2[4]=t4;
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}

/* k5919 in a5913 in k5907 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5921(C_word c,C_word *av){
C_word tmp;
C_word t0=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,4)))){
C_save_and_reclaim((void *)f_5921,c,av);}
a=C_alloc(39);
t2=C_i_car(((C_word*)t0)[2]);
t3=C_i_cadr(((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5956,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
t5=C_s_a_i_plus(&a,2,((C_word*)t0)[8],C_fix(1));
/* optimizer.scm:347: chicken.compiler.support#build-lambda-list */
t6=*((C_word*)lf[93]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t4;
av2[2]=((C_word*)t0)[9];
av2[3]=t5;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* k5934 in k5954 in k5919 in a5913 in k5907 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_5936(C_word c,C_word *av){
C_word tmp;
C_word t0=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_5936,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* optimizer.scm:343: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[29];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k5954 in k5919 in a5913 in k5907 in k5815 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5956(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){
C_save_and_reclaim((void *)f_5956,c,av);}
a=C_alloc(19);
t2=C_i_cadddr(((C_word*)t0)[2]);
t3=C_a_i_list4(&a,4,((C_word*)t0)[3],((C_word*)t0)[4],t1,t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5936,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=C_i_car(((C_word*)t0)[6]);
t6=C_a_i_cons(&a,2,((C_word*)t0)[7],((C_word*)t0)[8]);
/* optimizer.scm:349: walk */
t7=((C_word*)((C_word*)t0)[9])[1];
f_5382(t7,t4,t5,t6,C_SCHEME_END_OF_LIST);}

/* k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_5990(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(30,c,8)))){
C_save_and_reclaim((void *)f_5990,c,av);}
a=C_alloc(30);
t2=C_eqp(t1,lf[24]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_6864,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],tmp=(C_word)a,a+=20,tmp);
/* optimizer.scm:361: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+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)[13];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=C_eqp(t1,lf[29]);
if(C_truep(t3)){
if(C_truep(C_i_car(((C_word*)t0)[12]))){
/* optimizer.scm:535: walk-generic */
t4=((C_word*)((C_word*)t0)[9])[1];
f_7152(t4,((C_word*)t0)[7],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[8],C_SCHEME_FALSE);}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6882,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
t5=C_i_cdr(((C_word*)t0)[12]);
t6=C_a_i_cons(&a,2,C_SCHEME_TRUE,t5);
t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=((C_word*)t9)[1];
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6894,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6901,a[2]=t4,a[3]=t6,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_6903,a[2]=t9,a[3]=t14,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp));
t16=((C_word*)t14)[1];
f_6903(t16,t12,((C_word*)t0)[2]);}}
else{
/* optimizer.scm:540: walk-generic */
t4=((C_word*)((C_word*)t0)[9])[1];
f_7152(t4,((C_word*)t0)[7],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[8],C_SCHEME_TRUE);}}}

/* k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_6002(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){
C_save_and_reclaim((void *)f_6002,c,av);}
a=C_alloc(27);
t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_6005,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],tmp=(C_word)a,a+=22,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6860,a[2]=t2,a[3]=((C_word*)t0)[16],a[4]=((C_word*)t0)[13],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:363: test */
t4=((C_word*)((C_word*)t0)[16])[1];
f_5035(t4,t3,((C_word*)t0)[13],lf[130]);}

/* k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_6005(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(30,c,3)))){
C_save_and_reclaim((void *)f_6005,c,av);}
a=C_alloc(30);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_6012,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t2,a[9]=t1,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[2],a[16]=((C_word*)t0)[14],a[17]=((C_word*)t0)[15],a[18]=((C_word*)t0)[16],a[19]=((C_word*)t0)[17],a[20]=((C_word*)t0)[18],a[21]=((C_word*)t0)[19],a[22]=((C_word*)t0)[20],a[23]=((C_word*)t0)[21],tmp=(C_word)a,a+=24,tmp);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6819,a[2]=t3,a[3]=((C_word*)t0)[17],a[4]=t1,a[5]=((C_word*)t0)[14],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:367: test */
t5=((C_word*)((C_word*)t0)[17])[1];
f_5035(t5,t4,((C_word*)t0)[14],lf[90]);}

/* k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_6012(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(24,0,3)))){
C_save_and_reclaim_args((void *)trf_6012,2,t0,t1);}
a=C_alloc(24);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_6015,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp);
/* optimizer.scm:372: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[43]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_6091,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[14],a[11]=((C_word*)t0)[15],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[2],a[14]=((C_word*)t0)[5],a[15]=((C_word*)t0)[9],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp);
/* optimizer.scm:391: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[85]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[16];
av2[3]=lf[131];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k6013 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_6015(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){
C_save_and_reclaim((void *)f_6015,c,av);}
a=C_alloc(17);
t2=C_i_caddr(t1);
t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_6024,a[2]=((C_word*)t0)[2],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]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,tmp);
/* optimizer.scm:374: chicken.compiler.support#check-signature */
t4=*((C_word*)lf[107]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[16];
av2[3]=((C_word*)t0)[8];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k6022 in k6013 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_6024(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_6024,c,av);}
a=C_alloc(11);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6027,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:375: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[36];
av2[3]=lf[104];
av2[4]=((C_word*)t0)[11];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6082,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[14],a[6]=((C_word*)t0)[15],a[7]=((C_word*)t0)[16],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:386: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[105];
av2[3]=lf[106];
av2[4]=((C_word*)t0)[11];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k6025 in k6022 in k6013 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_6027(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(19,c,3)))){
C_save_and_reclaim((void *)f_6027,c,av);}
a=C_alloc(19);
t2=(
/* optimizer.scm:376: touch */
  f_5061(((C_word*)((C_word*)t0)[2])[1])
);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6031,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t4=C_i_check_list_2(((C_word*)t0)[4],lf[23]);
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6041,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6058,a[2]=t7,a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_6058(t9,t5,((C_word*)t0)[4]);}

/* g959 in k6025 in k6022 in k6013 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_fcall f_6031(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(0,0,5)))){
C_save_and_reclaim_args((void *)trf_6031,3,t0,t1,t2);}
t3=*((C_word*)lf[78]+1);
/* optimizer.scm:377: g974 */
t4=*((C_word*)lf[78]+1);{
C_word av2[6];
av2[0]=t4;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[101];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}

/* k6039 in k6025 in k6022 in k6013 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_6041(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_6041,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6048,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6056,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:381: chicken.compiler.support#node-subexpressions */
t4=*((C_word*)lf[42]+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)[9];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k6046 in k6039 in k6025 in k6022 in k6013 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_6048(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_6048,c,av);}
/* optimizer.scm:379: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_5382(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k6054 in k6039 in k6025 in k6022 in k6013 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_6056(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_6056,c,av);}
/* optimizer.scm:380: chicken.compiler.support#inline-lambda-bindings */
t2=*((C_word*)lf[102]+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]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=C_i_car(t1);
av2[5]=C_SCHEME_FALSE;
av2[6]=((C_word*)t0)[5];
av2[7]=*((C_word*)lf[103]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}}

/* for-each-loop958 in k6025 in k6022 in k6013 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_fcall f_6058(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_6058,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_6068,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:377: g959 */
t4=((C_word*)t0)[3];
f_6031(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k6066 in for-each-loop958 in k6025 in k6022 in k6013 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_6068(C_word c,C_word *av){
C_word tmp;
C_word 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_6068,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_6058(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k6080 in k6022 in k6013 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_6082(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_6082,c,av);}
/* optimizer.scm:390: walk-generic */
t2=((C_word*)((C_word*)t0)[2])[1];
f_7152(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_TRUE);}

/* k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_6091(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,2)))){
C_save_and_reclaim((void *)f_6091,c,av);}
a=C_alloc(30);
t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_6094,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6812,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[19],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:392: chicken.compiler.support#node-class */
t4=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_car(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t2;
f_6094(t3,C_SCHEME_FALSE);}}

/* k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_fcall f_6094(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(27,0,4)))){
C_save_and_reclaim_args((void *)trf_6094,2,t0,t1);}
a=C_alloc(27);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6097,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:404: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word av2[5];
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[36];
av2[3]=lf[108];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_6122,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[2],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[3],tmp=(C_word)a,a+=24,tmp);
if(C_truep(((C_word*)t0)[15])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6705,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:413: chicken.compiler.support#node-class */
t4=*((C_word*)lf[41]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[15];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t2;
f_6122(t3,C_SCHEME_FALSE);}}}

/* k6095 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_6097(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_6097,c,av);}
a=C_alloc(8);
t2=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t3=C_i_car(((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6116,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:411: chicken.compiler.support#make-node */
t5=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[34];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k6114 in k6095 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_6116(C_word c,C_word *av){
C_word tmp;
C_word t0=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_6116,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:408: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_fcall f_6122(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(24,0,2)))){
C_save_and_reclaim_args((void *)trf_6122,2,t0,t1);}
a=C_alloc(24);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_6125,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp);
/* optimizer.scm:415: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[43]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[14];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6650,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[23],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[14],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[6],tmp=(C_word)a,a+=13,tmp);
if(C_truep(((C_word*)t0)[14])){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6698,a[2]=t2,a[3]=((C_word*)t0)[14],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:521: chicken.compiler.support#node-class */
t4=*((C_word*)lf[41]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[14];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t2;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_6650(2,av2);}}}}

/* k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_6125(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,5)))){
C_save_and_reclaim((void *)f_6125,c,av);}
a=C_alloc(25);
t2=C_i_caddr(t1);
t3=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_6133,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=t2,a[15]=((C_word*)t0)[13],a[16]=((C_word*)t0)[14],a[17]=((C_word*)t0)[15],a[18]=((C_word*)t0)[16],a[19]=((C_word*)t0)[17],a[20]=((C_word*)t0)[18],a[21]=((C_word*)t0)[19],a[22]=((C_word*)t0)[20],a[23]=((C_word*)t0)[21],a[24]=((C_word*)t0)[22],tmp=(C_word)a,a+=25,tmp);
/* optimizer.scm:417: ##sys#decompose-lambda-list */
t4=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[23];
av2[2]=t2;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_6133(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,3)))){
C_save_and_reclaim((void *)f_6133,c,av);}
a=C_alloc(32);
t5=C_i_car(((C_word*)t0)[2]);
t6=(*a=C_CLOSURE_TYPE|28,a[1]=(C_word)f_6140,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=t5,a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=t1,a[18]=((C_word*)t0)[2],a[19]=((C_word*)t0)[17],a[20]=t3,a[21]=((C_word*)t0)[18],a[22]=((C_word*)t0)[19],a[23]=((C_word*)t0)[20],a[24]=t2,a[25]=((C_word*)t0)[21],a[26]=((C_word*)t0)[22],a[27]=((C_word*)t0)[23],a[28]=((C_word*)t0)[24],tmp=(C_word)a,a+=29,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6644,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:421: chicken.compiler.support#variable-mark */
t8=*((C_word*)lf[85]+1);{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
av2[2]=((C_word*)t0)[17];
av2[3]=lf[126];
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}

/* k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_6140(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){
C_save_and_reclaim((void *)f_6140,c,av);}
a=C_alloc(39);
t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_6146,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=t1,a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],a[26]=((C_word*)t0)[25],tmp=(C_word)a,a+=27,tmp);
if(C_truep(((C_word*)t0)[26])){
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6581,a[2]=t1,a[3]=((C_word*)t0)[18],a[4]=((C_word*)t0)[27],a[5]=t2,a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[28],a[10]=((C_word*)t0)[19],a[11]=((C_word*)t0)[23],tmp=(C_word)a,a+=12,tmp);
/* optimizer.scm:423: test */
t4=((C_word*)((C_word*)t0)[23])[1];
f_5035(t4,t3,((C_word*)t0)[19],lf[124]);}
else{
t3=t2;
f_6146(t3,C_SCHEME_FALSE);}}

/* k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_fcall f_6146(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(23,0,4)))){
C_save_and_reclaim_args((void *)trf_6146,2,t0,t1);}
a=C_alloc(23);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_6152,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],tmp=(C_word)a,a+=20,tmp);
/* optimizer.scm:435: chicken.compiler.support#check-signature */
t3=*((C_word*)lf[107]+1);{
C_word av2[5];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[20];
av2[3]=((C_word*)t0)[15];
av2[4]=((C_word*)t0)[14];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_6256,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[21],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[17],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)[3],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[22],a[15]=((C_word*)t0)[23],a[16]=((C_word*)t0)[2],a[17]=((C_word*)t0)[10],a[18]=((C_word*)t0)[24],a[19]=((C_word*)t0)[25],a[20]=((C_word*)t0)[26],a[21]=((C_word*)t0)[14],a[22]=((C_word*)t0)[11],tmp=(C_word)a,a+=23,tmp);
/* optimizer.scm:465: test */
t3=((C_word*)((C_word*)t0)[24])[1];
f_5035(t3,t2,((C_word*)t0)[11],lf[99]);}}

/* k6150 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_6152(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,6)))){
C_save_and_reclaim((void *)f_6152,c,av);}
a=C_alloc(18);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_6155,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],tmp=(C_word)a,a+=18,tmp);
t3=(C_truep(((C_word*)t0)[18])?lf[112]:lf[113]);
/* optimizer.scm:436: chicken.compiler.support#debugging */
t4=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[105];
av2[3]=t3;
av2[4]=((C_word*)t0)[10];
av2[5]=((C_word*)t0)[11];
av2[6]=C_i_cadddr(((C_word*)t0)[19]);
((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6247,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[17],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],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:460: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[105];
av2[3]=lf[114];
av2[4]=((C_word*)t0)[10];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k6153 in k6150 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in ... */
static void C_ccall f_6155(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_6155,c,av);}
a=C_alloc(27);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6156,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_i_check_list_2(((C_word*)t0)[3],lf[23]);
t4=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_6166,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[2],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],tmp=(C_word)a,a+=18,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_6215,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_6215(t8,t4,((C_word*)t0)[3]);}

/* g1052 in k6153 in k6150 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in ... */
static void C_fcall f_6156(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(0,0,5)))){
C_save_and_reclaim_args((void *)trf_6156,3,t0,t1,t2);}
t3=*((C_word*)lf[78]+1);
/* optimizer.scm:441: g1067 */
t4=*((C_word*)lf[78]+1);{
C_word av2[6];
av2[0]=t4;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[101];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}

/* k6164 in k6153 in k6150 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in ... */
static void C_ccall f_6166(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){
C_save_and_reclaim((void *)f_6166,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_6169,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],tmp=(C_word)a,a+=18,tmp);
/* optimizer.scm:443: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[36];
av2[3]=lf[111];
av2[4]=((C_word*)t0)[9];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k6167 in k6164 in k6153 in k6150 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in ... */
static void C_ccall f_6169(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_6169,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_6174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp);
/* optimizer.scm:444: chicken.base#call/cc */
t3=*((C_word*)lf[110]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[17];
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* a6173 in k6167 in k6164 in k6153 in k6150 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in ... */
static void C_ccall f_6174(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
C_save_and_reclaim((void *)f_6174,c,av);}
a=C_alloc(26);
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6177,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6191,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[12],a[6]=t1,a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6213,a[2]=t4,a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[14],a[5]=((C_word*)t0)[15],a[6]=t3,tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:453: chicken.compiler.support#node-subexpressions */
t6=*((C_word*)lf[42]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[16];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* cfk in a6173 in k6167 in k6164 in k6153 in k6150 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in ... */
static void C_ccall f_6177(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
C_save_and_reclaim((void *)f_6177,c,av);}
a=C_alloc(11);
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6181,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* optimizer.scm:447: chicken.compiler.support#debugging */
t4=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[105];
av2[3]=lf[109];
av2[4]=((C_word*)t0)[10];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}

/* k6179 in cfk in a6173 in k6167 in k6164 in k6153 in k6150 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in ... */
static void C_ccall f_6181(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,8)))){
C_save_and_reclaim((void *)f_6181,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6188,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:451: walk-generic */
t3=((C_word*)((C_word*)t0)[4])[1];
f_7152(t3,t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_TRUE);}

/* k6186 in k6179 in cfk in a6173 in k6167 in k6164 in k6153 in k6150 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in ... */
static void C_ccall f_6188(C_word c,C_word *av){
C_word tmp;
C_word 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_6188,c,av);}
/* optimizer.scm:451: return */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k6189 in a6173 in k6167 in k6164 in k6153 in k6150 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in ... */
static void C_ccall f_6191(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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_6191,c,av);}
a=C_alloc(6);
t2=C_i_car(((C_word*)t0)[2]);
t3=lf[53];
t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
t5=C_a_i_cons(&a,2,t4,lf[53]);
t6=C_mutate(&lf[53] /* (set! chicken.compiler.optimizer#inline-history ...) */,t5);
t7=(
/* optimizer.scm:457: touch */
  f_5061(((C_word*)((C_word*)t0)[4])[1])
);
/* optimizer.scm:458: walk */
t8=((C_word*)((C_word*)t0)[5])[1];
f_5382(t8,((C_word*)t0)[6],t1,((C_word*)t0)[2],((C_word*)t0)[7]);}

/* k6211 in a6173 in k6167 in k6164 in k6153 in k6150 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in ... */
static void C_ccall f_6213(C_word c,C_word *av){
C_word tmp;
C_word 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_6213,c,av);}
/* optimizer.scm:452: chicken.compiler.support#inline-lambda-bindings */
t2=*((C_word*)lf[102]+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]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=C_i_car(t1);
av2[5]=C_SCHEME_TRUE;
av2[6]=((C_word*)t0)[5];
av2[7]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}}

/* for-each-loop1051 in k6153 in k6150 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in ... */
static void C_fcall f_6215(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_6215,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_6225,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:441: g1052 */
t4=((C_word*)t0)[3];
f_6156(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k6223 in for-each-loop1051 in k6153 in k6150 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in ... */
static void C_ccall f_6225(C_word c,C_word *av){
C_word tmp;
C_word 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_6225,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_6215(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k6245 in k6150 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in ... */
static void C_ccall f_6247(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_6247,c,av);}
/* optimizer.scm:464: walk-generic */
t2=((C_word*)((C_word*)t0)[2])[1];
f_7152(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_TRUE);}

/* k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_6256(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,8)))){
C_save_and_reclaim((void *)f_6256,c,av);}
a=C_alloc(17);
if(C_truep(t1)){
t2=C_i_length(((C_word*)t0)[2]);
if(C_truep(C_i_lessp(t2,((C_word*)t0)[3]))){
/* optimizer.scm:467: walk-generic */
t3=((C_word*)((C_word*)t0)[4])[1];
f_7152(t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],C_SCHEME_TRUE);}
else{
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|12,a[1]=(C_word)f_6270,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[14],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[15],a[9]=t4,a[10]=((C_word*)t0)[16],a[11]=((C_word*)t0)[17],a[12]=((C_word*)t0)[18],tmp=(C_word)a,a+=13,tmp));
t6=((C_word*)t4)[1];
f_6270(t6,((C_word*)t0)[5],((C_word*)t0)[19],((C_word*)t0)[3],((C_word*)t0)[2],C_SCHEME_END_OF_LIST);}}
else{
t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_6568,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[20],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],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)[15],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[21],tmp=(C_word)a,a+=17,tmp);
/* optimizer.scm:494: test */
t3=((C_word*)((C_word*)t0)[18])[1];
f_5035(t3,t2,((C_word*)t0)[22],lf[95]);}}

/* loop in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in ... */
static void C_fcall f_6270(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 t14;
C_word t15;
C_word t16;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(24,0,3)))){
C_save_and_reclaim_args((void *)trf_6270,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(24);
t6=C_i_nullp(t2);
t7=(C_truep(t6)?t6:C_i_zerop(t3));
if(C_truep(t7)){
t8=(
/* optimizer.scm:470: touch */
  f_5061(((C_word*)((C_word*)t0)[2])[1])
);
t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t10=t9;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=((C_word*)t11)[1];
t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6287,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);
t14=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6341,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[5],a[7]=t11,a[8]=t13,a[9]=t12,tmp=(C_word)a,a+=10,tmp);
t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6345,a[2]=t14,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:475: scheme#reverse */
t16=*((C_word*)lf[4]+1);{
C_word av2[3];
av2[0]=t16;
av2[1]=t15;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6351,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[9],a[7]=t4,a[8]=t5,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],tmp=(C_word)a,a+=14,tmp);
/* optimizer.scm:478: test */
t9=((C_word*)((C_word*)t0)[12])[1];
f_5035(t9,t8,C_i_car(t2),lf[92]);}}

/* g1107 in loop in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in ... */
static void C_fcall f_6287(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_6287,3,t0,t1,t2);}
/* optimizer.scm:472: g1124 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_5382(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k6295 in k6339 in loop in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in ... */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_6297,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6300,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:476: invalidate-gae! */
f_5065(t2,((C_word*)t0)[5]);}

/* k6298 in k6295 in k6339 in loop in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in ... */
static void C_ccall f_6300(C_word c,C_word *av){
C_word tmp;
C_word 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_6300,c,av);}
/* optimizer.scm:477: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[30];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* map-loop1101 in k6339 in loop in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in ... */
static void C_fcall f_6305(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_6305,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_6330,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);
/* optimizer.scm:472: g1107 */
t4=((C_word*)t0)[4];
f_6287(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);}}}

/* k6328 in map-loop1101 in k6339 in loop in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in ... */
static void C_ccall f_6330(C_word c,C_word *av){
C_word tmp;
C_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_6330,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_6305(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k6339 in loop in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in ... */
static void C_ccall f_6341(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_6341,c,av);}
a=C_alloc(17);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6297,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
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_6305,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_6305(t7,t3,t2);}

/* k6343 in loop in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in ... */
static void C_ccall f_6345(C_word c,C_word *av){
C_word tmp;
C_word 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_6345,c,av);}
/* optimizer.scm:475: scheme#append */
t2=*((C_word*)lf[7]+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);}}

/* k6349 in loop in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in ... */
static void C_ccall f_6351(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,5)))){
C_save_and_reclaim((void *)f_6351,c,av);}
a=C_alloc(32);
if(C_truep(t1)){
t2=(
/* optimizer.scm:479: touch */
  f_5061(((C_word*)((C_word*)t0)[2])[1])
);
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6357,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp);
/* optimizer.scm:480: chicken.compiler.support#debugging */
t4=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[36];
av2[3]=lf[118];
av2[4]=C_u_i_car(((C_word*)t0)[4]);
av2[5]=((C_word*)t0)[13];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}
else{
t2=C_u_i_cdr(((C_word*)t0)[4]);
t3=C_s_a_i_minus(&a,2,((C_word*)t0)[5],C_fix(1));
t4=C_i_cdr(((C_word*)t0)[7]);
t5=C_u_i_car(((C_word*)t0)[7]);
t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[8]);
/* optimizer.scm:490: loop */
t7=((C_word*)((C_word*)t0)[6])[1];
f_6270(t7,((C_word*)t0)[3],t2,t3,t4,t6);}}

/* k6355 in k6349 in loop in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in ... */
static void C_ccall f_6357(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_6357,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6363,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:483: chicken.compiler.support#expression-has-side-effects? */
t3=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_car(((C_word*)t0)[6]);
av2[3]=((C_word*)t0)[11];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k6361 in k6355 in k6349 in loop in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in ... */
static void C_ccall f_6363(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,5)))){
C_save_and_reclaim((void *)f_6363,c,av);}
a=C_alloc(29);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6394,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:486: chicken.base#gensym */
t3=*((C_word*)lf[115]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[116];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=C_u_i_cdr(((C_word*)t0)[3]);
t3=C_s_a_i_minus(&a,2,((C_word*)t0)[4],C_fix(1));
/* optimizer.scm:489: loop */
t4=((C_word*)((C_word*)t0)[5])[1];
f_6270(t4,((C_word*)t0)[2],t2,t3,C_u_i_cdr(((C_word*)t0)[6]),((C_word*)t0)[7]);}}

/* k6376 in k6392 in k6361 in k6355 in k6349 in loop in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in ... */
static void C_ccall f_6378(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(34,c,5)))){
C_save_and_reclaim((void *)f_6378,c,av);}
a=C_alloc(34);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6382,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_u_i_cdr(((C_word*)t0)[4]);
t4=C_s_a_i_minus(&a,2,((C_word*)t0)[5],C_fix(1));
/* optimizer.scm:488: loop */
t5=((C_word*)((C_word*)t0)[6])[1];
f_6270(t5,t2,t3,t4,C_u_i_cdr(((C_word*)t0)[7]),((C_word*)t0)[8]);}

/* k6380 in k6376 in k6392 in k6361 in k6355 in k6349 in loop in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in ... */
static void C_ccall f_6382(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_6382,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:484: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[26];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k6392 in k6361 in k6355 in k6349 in loop in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in ... */
static void C_ccall f_6394(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_6394,c,av);}
a=C_alloc(12);
t2=C_a_i_list1(&a,1,t1);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6378,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],tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:487: walk */
t4=((C_word*)((C_word*)t0)[8])[1];
f_5382(t4,t3,C_u_i_car(((C_word*)t0)[6]),((C_word*)t0)[9],((C_word*)t0)[10]);}

/* k6442 in k6566 in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in ... */
static void C_ccall f_6444(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,8)))){
C_save_and_reclaim((void *)f_6444,c,av);}
a=C_alloc(12);
t2=C_i_length(((C_word*)t0)[2]);
if(C_truep(C_i_lessp(t2,t1))){
/* optimizer.scm:498: walk-generic */
t3=((C_word*)((C_word*)t0)[3])[1];
f_7152(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_TRUE);}
else{
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6456,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[4],tmp=(C_word)a,a+=12,tmp);
/* optimizer.scm:500: chicken.compiler.support#debugging */
t4=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[36];
av2[3]=lf[121];
av2[4]=((C_word*)t0)[14];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}

/* k6454 in k6442 in k6566 in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in ... */
static void C_ccall f_6456(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_6456,c,av);}
a=C_alloc(13);
t2=(*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);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6467,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:501: ##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)[11];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}

/* a6460 in k6454 in k6442 in k6566 in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in ... */
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);}
/* optimizer.scm:501: split-at */
f_3542(t1,((C_word*)t0)[2],((C_word*)t0)[3]);}

/* a6466 in k6454 in k6442 in k6566 in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in ... */
static void C_ccall f_6467(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(39,c,4)))){
C_save_and_reclaim((void *)f_6467,c,av);}
a=C_alloc(39);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6471,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);
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_6483,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6531,a[2]=((C_word*)t0)[7],a[3]=t4,a[4]=((C_word*)t0)[8],a[5]=t7,a[6]=t9,a[7]=t8,tmp=(C_word)a,a+=8,tmp);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6539,a[2]=t10,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_nullp(t3))){
/* optimizer.scm:511: chicken.compiler.support#qnode */
t12=*((C_word*)lf[76]+1);{
C_word *av2=av;
av2[0]=t12;
av2[1]=t11;
av2[2]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}
else{
t12=C_i_length(t3);
t13=C_a_i_fixnum_times(&a,2,C_fix(3),t12);
t14=C_a_i_list2(&a,2,lf[119],t13);
/* optimizer.scm:512: chicken.compiler.support#make-node */
t15=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t15;
av2[1]=t11;
av2[2]=lf[120];
av2[3]=t14;
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}}}

/* k6469 in a6466 in k6454 in k6442 in k6566 in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in ... */
static void C_ccall f_6471(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_6471,c,av);}
a=C_alloc(7);
t2=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[2])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6478,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:517: invalidate-gae! */
f_5065(t4,((C_word*)t0)[5]);}

/* k6476 in k6469 in a6466 in k6454 in k6442 in k6566 in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in ... */
static void C_ccall f_6478(C_word c,C_word *av){
C_word tmp;
C_word 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_6478,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);}}

/* g1157 in a6466 in k6454 in k6442 in k6566 in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in ... */
static void C_fcall f_6483(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_6483,3,t0,t1,t2);}
/* optimizer.scm:505: g1174 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_5382(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k6491 in k6529 in a6466 in k6454 in k6442 in k6566 in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in ... */
static void C_ccall f_6493(C_word c,C_word *av){
C_word tmp;
C_word 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_6493,c,av);}
/* optimizer.scm:502: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[30];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* map-loop1151 in k6529 in a6466 in k6454 in k6442 in k6566 in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in ... */
static void C_fcall f_6495(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_6495,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_6520,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);
/* optimizer.scm:505: g1157 */
t4=((C_word*)t0)[4];
f_6483(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);}}}

/* k6518 in map-loop1151 in k6529 in a6466 in k6454 in k6442 in k6566 in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in ... */
static void C_ccall f_6520(C_word c,C_word *av){
C_word tmp;
C_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_6520,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_6495(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k6529 in a6466 in k6454 in k6442 in k6566 in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in ... */
static void C_ccall f_6531(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_6531,c,av);}
a=C_alloc(15);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6493,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],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_6495,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_6495(t7,t3,t2);}

/* k6537 in a6466 in k6454 in k6442 in k6566 in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in ... */
static void C_ccall f_6539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6539,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* optimizer.scm:507: scheme#append */
t3=*((C_word*)lf[7]+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);}}

/* k6566 in k6254 in k6144 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in ... */
static void C_ccall f_6568(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,8)))){
C_save_and_reclaim((void *)f_6568,c,av);}
a=C_alloc(15);
t2=(C_truep(t1)?C_i_not(C_i_memq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1])):C_SCHEME_FALSE);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6444,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],tmp=(C_word)a,a+=15,tmp);
/* optimizer.scm:496: chicken.compiler.support#llist-length */
t4=*((C_word*)lf[122]+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)[16];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
/* optimizer.scm:519: walk-generic */
t3=((C_word*)((C_word*)t0)[5])[1];
f_7152(t3,((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],C_SCHEME_TRUE);}}

/* k6579 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_ccall f_6581(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_6581,c,av);}
a=C_alloc(12);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6640,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:424: test */
t3=((C_word*)((C_word*)t0)[11])[1];
f_5035(t3,t2,((C_word*)t0)[7],lf[101]);}
else{
t2=((C_word*)t0)[5];
f_6146(t2,C_SCHEME_FALSE);}}

/* k6597 in k6634 in k6638 in k6579 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in ... */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_6599,c,av);}
a=C_alloc(16);
t2=C_eqp(t1,lf[84]);
t3=(C_truep(t2)?C_SCHEME_FALSE:(C_truep(((C_word*)t0)[2])?((C_word*)t0)[2]:C_i_lessp(C_i_cadddr(((C_word*)t0)[3]),((C_word*)t0)[4])));
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6605,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp);
t5=C_i_car(((C_word*)t0)[8]);
t6=C_a_i_cons(&a,2,((C_word*)t0)[7],t5);
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_7341,a[2]=t6,a[3]=((C_word*)t0)[9],a[4]=t8,tmp=(C_word)a,a+=5,tmp));
t10=((C_word*)t8)[1];
f_7341(t10,t4,lf[53],C_fix(0));}
else{
t4=((C_word*)t0)[5];
f_6146(t4,C_SCHEME_FALSE);}}

/* k6603 in k6597 in k6634 in k6638 in k6579 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in ... */
static void C_ccall f_6605(C_word c,C_word *av){
C_word tmp;
C_word t0=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,6)))){
C_save_and_reclaim((void *)f_6605,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];
f_6146(t2,t1);}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6611,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:432: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[105];
av2[3]=lf[123];
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
av2[6]=C_u_i_car(((C_word*)t0)[5]);
((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}}}

/* k6609 in k6603 in k6597 in k6634 in k6638 in k6579 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in ... */
static void C_ccall f_6611(C_word c,C_word *av){
C_word tmp;
C_word 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_6611,c,av);}
t2=((C_word*)t0)[2];
f_6146(t2,C_SCHEME_FALSE);}

/* k6634 in k6638 in k6579 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in ... */
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(10,c,3)))){
C_save_and_reclaim((void *)f_6636,c,av);}
a=C_alloc(10);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6599,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:426: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[85]+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)[10];
av2[3]=lf[86];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=((C_word*)t0)[5];
f_6146(t2,C_SCHEME_FALSE);}}

/* k6638 in k6579 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_6640(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_6640,c,av);}
a=C_alloc(11);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6636,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:425: test */
t3=((C_word*)((C_word*)t0)[11])[1];
f_5035(t3,t2,((C_word*)t0)[7],lf[95]);}
else{
t2=((C_word*)t0)[5];
f_6146(t2,C_SCHEME_FALSE);}}

/* k6642 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_6644(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6644,c,av);}
/* optimizer.scm:421: chicken.compiler.support#node? */
t2=*((C_word*)lf[125]+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);}}

/* k6648 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_6650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,8)))){
C_save_and_reclaim((void *)f_6650,c,av);}
a=C_alloc(13);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6653,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6674,a[2]=t2,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:525: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+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);}}
else{
/* optimizer.scm:532: walk-generic */
t2=((C_word*)((C_word*)t0)[10])[1];
f_7152(t2,((C_word*)t0)[3],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[8],((C_word*)t0)[6],((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_TRUE);}}

/* k6651 in k6648 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_6653(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_6653,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6660,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_u_i_cdr(((C_word*)t0)[6]);
t4=C_a_i_cons(&a,2,((C_word*)t0)[7],t3);
/* optimizer.scm:527: chicken.compiler.support#make-node */
t5=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=lf[30];
av2[3]=((C_word*)t0)[8];
av2[4]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k6658 in k6651 in k6648 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_6660(C_word c,C_word *av){
C_word tmp;
C_word 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_6660,c,av);}
/* optimizer.scm:526: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_5382(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k6672 in k6648 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
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;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_6674,c,av);}
/* optimizer.scm:524: chicken.compiler.support#debugging */
t2=*((C_word*)lf[35]+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[105];
av2[3]=lf[127];
av2[4]=((C_word*)t0)[3];
av2[5]=C_i_car(t1);
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k6692 in k6696 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_6694(C_word c,C_word *av){
C_word tmp;
C_word 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_6694,c,av);}
/* optimizer.scm:522: chicken.compiler.support#intrinsic? */
t2=*((C_word*)lf[128]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_i_car(t1);
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k6696 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_6698(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_6698,c,av);}
a=C_alloc(3);
t2=C_eqp(lf[24],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6694,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:522: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_6650(2,av2);}}}

/* k6703 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_6705(C_word c,C_word *av){
C_word tmp;
C_word 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_6705,c,av);}
t2=((C_word*)t0)[2];
f_6122(t2,C_eqp(lf[29],t1));}

/* k6718 in k6804 in k6810 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_6720(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_6720,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6792,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:396: chicken.compiler.support#node-class */
t3=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[2];
f_6094(t2,C_SCHEME_FALSE);}}

/* k6736 in k6786 in k6790 in k6718 in k6804 in k6810 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_ccall f_6738(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_6738,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6741,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(t1)){
t3=t2;
f_6741(t3,t1);}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6778,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:399: test */
t4=((C_word*)((C_word*)t0)[5])[1];
f_5035(t4,t3,C_u_i_car(((C_word*)t0)[6]),lf[129]);}}

/* k6739 in k6736 in k6786 in k6790 in k6718 in k6804 in k6810 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in ... */
static void C_fcall f_6741(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_6741,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6751,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6753,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:402: any */
f_3785(t2,t3,C_u_i_cdr(((C_word*)t0)[4]));}
else{
t2=((C_word*)t0)[2];
f_6094(t2,C_SCHEME_FALSE);}}

/* k6749 in k6739 in k6736 in k6786 in k6790 in k6718 in k6804 in k6810 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in ... */
static void C_ccall f_6751(C_word c,C_word *av){
C_word tmp;
C_word 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_6751,c,av);}
t2=((C_word*)t0)[2];
f_6094(t2,C_i_not(t1));}

/* a6752 in k6739 in k6736 in k6786 in k6790 in k6718 in k6804 in k6810 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in ... */
static void C_ccall f_6753(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6753,c,av);}
t3=*((C_word*)lf[117]+1);
/* optimizer.scm:402: g1011 */
t4=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k6770 in k6776 in k6736 in k6786 in k6790 in k6718 in k6804 in k6810 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in ... */
static void C_ccall f_6772(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_6772,c,av);}
t2=((C_word*)t0)[2];
f_6741(t2,C_i_not(t1));}

/* k6776 in k6736 in k6786 in k6790 in k6718 in k6804 in k6810 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_6778(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6778,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6772,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:400: test */
t3=((C_word*)((C_word*)t0)[3])[1];
f_5035(t3,t2,C_u_i_car(((C_word*)t0)[4]),lf[62]);}
else{
t2=((C_word*)t0)[2];
f_6741(t2,C_SCHEME_FALSE);}}

/* k6786 in k6790 in k6718 in k6804 in k6810 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_6788(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_6788,c,av);}
a=C_alloc(7);
t2=C_i_caddr(t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6738,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:398: test */
t4=((C_word*)((C_word*)t0)[5])[1];
f_5035(t4,t3,C_i_car(t2),lf[92]);}
else{
t3=((C_word*)t0)[2];
f_6094(t3,C_SCHEME_FALSE);}}

/* k6790 in k6718 in k6804 in k6810 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_6792(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_6792,c,av);}
a=C_alloc(6);
t2=C_eqp(lf[29],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6788,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);
/* optimizer.scm:397: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];
f_6094(t3,C_SCHEME_FALSE);}}

/* k6800 in k6804 in k6810 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_6802(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6802,c,av);}
if(C_truep(C_i_not(t1))){
/* optimizer.scm:395: test */
t2=((C_word*)((C_word*)t0)[2])[1];
f_5035(t2,((C_word*)t0)[3],((C_word*)t0)[4],lf[80]);}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_6720(2,av2);}}}

/* k6804 in k6810 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_6806(C_word c,C_word *av){
C_word tmp;
C_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_6806,c,av);}
a=C_alloc(11);
t2=C_i_car(t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6720,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6802,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:394: test */
t5=((C_word*)((C_word*)t0)[5])[1];
f_5035(t5,t4,t2,lf[130]);}
else{
t3=((C_word*)t0)[2];
f_6094(t3,C_SCHEME_FALSE);}}

/* k6810 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_6812(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_6812,c,av);}
a=C_alloc(6);
t2=C_eqp(lf[24],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6806,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);
/* optimizer.scm:393: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_car(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];
f_6094(t3,C_SCHEME_FALSE);}}

/* k6817 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_6819(C_word c,C_word *av){
C_word tmp;
C_word t0=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_6819,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6844,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);
/* optimizer.scm:368: test */
t3=((C_word*)((C_word*)t0)[3])[1];
f_5035(t3,t2,((C_word*)t0)[5],lf[89]);}
else{
t2=((C_word*)t0)[2];
f_6012(t2,C_SCHEME_FALSE);}}

/* k6830 in k6842 in k6817 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_6832(C_word c,C_word *av){
C_word tmp;
C_word 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_6832,c,av);}
t2=((C_word*)t0)[2];
f_6012(t2,C_i_not(t1));}

/* k6838 in k6842 in k6817 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_6840(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6840,c,av);}
/* optimizer.scm:370: test */
t2=((C_word*)((C_word*)t0)[2])[1];
f_5035(t2,((C_word*)t0)[3],C_i_car(t1),lf[101]);}

/* k6842 in k6817 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_6844(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_6844,c,av);}
a=C_alloc(7);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6832,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6840,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:370: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+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)[2];
f_6012(t2,C_SCHEME_FALSE);}}

/* k6848 in k6858 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_6850(C_word c,C_word *av){
C_word tmp;
C_word 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_6850,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
f_6005(2,av2);}}
else{
/* optimizer.scm:365: test */
t2=((C_word*)((C_word*)t0)[3])[1];
f_5035(t2,((C_word*)t0)[2],((C_word*)t0)[4],lf[132]);}}

/* k6858 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_6860(C_word c,C_word *av){
C_word tmp;
C_word t0=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_6860,c,av);}
a=C_alloc(5);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6850,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);
/* optimizer.scm:364: test */
t3=((C_word*)((C_word*)t0)[3])[1];
f_5035(t3,t2,((C_word*)t0)[4],lf[80]);}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_6005(2,av2);}}}

/* k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_6864(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
C_save_and_reclaim((void *)f_6864,c,av);}
a=C_alloc(21);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_6002,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t2,a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],tmp=(C_word)a,a+=21,tmp);
/* optimizer.scm:362: chicken.compiler.support#call-info */
t4=*((C_word*)lf[61]+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)[12];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k6880 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_6882(C_word c,C_word *av){
C_word tmp;
C_word t0=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_6882,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6885,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:538: invalidate-gae! */
f_5065(t2,((C_word*)t0)[4]);}

/* k6883 in k6880 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_6885(C_word c,C_word *av){
C_word tmp;
C_word 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_6885,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);}}

/* g1198 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_6894(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_6894,3,t0,t1,t2);}
/* optimizer.scm:537: g1215 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_5382(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k6899 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_6901(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_6901,c,av);}
/* optimizer.scm:536: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[30];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* map-loop1192 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_6903(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_6903,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_6928,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);
/* optimizer.scm:537: g1198 */
t4=((C_word*)t0)[4];
f_6894(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);}}}

/* k6926 in map-loop1192 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_6928(C_word c,C_word *av){
C_word tmp;
C_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_6928,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_6903(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_6961(C_word c,C_word *av){
C_word tmp;
C_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_6961,c,av);}
a=C_alloc(13);
if(C_truep(t1)){
t2=(
/* optimizer.scm:545: touch */
  f_5061(((C_word*)((C_word*)t0)[2])[1])
);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6967,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6973,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:546: test */
t5=((C_word*)((C_word*)t0)[5])[1];
f_5035(t5,t4,((C_word*)t0)[4],lf[88]);}
else{
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6982,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],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);
/* optimizer.scm:549: test */
t3=((C_word*)((C_word*)t0)[5])[1];
f_5035(t3,t2,((C_word*)t0)[4],lf[79]);}}

/* k6965 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_6967(C_word c,C_word *av){
C_word tmp;
C_word 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_6967,c,av);}
/* optimizer.scm:548: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[34];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k6971 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_6973(C_word c,C_word *av){
C_word tmp;
C_word 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_6973,c,av);}
if(C_truep(t1)){
/* optimizer.scm:547: chicken.compiler.support#debugging */
t2=*((C_word*)lf[35]+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[105];
av2[3]=lf[133];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
else{
/* optimizer.scm:548: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[34];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}

/* k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_6982(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){
C_save_and_reclaim((void *)f_6982,c,av);}
a=C_alloc(19);
if(C_truep(t1)){
t2=(
/* optimizer.scm:550: touch */
  f_5061(((C_word*)((C_word*)t0)[2])[1])
);
/* optimizer.scm:551: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[34];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6994,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7135,a[2]=t2,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[12],tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:552: test */
t4=((C_word*)((C_word*)t0)[6])[1];
f_5035(t4,t3,((C_word*)t0)[4],lf[88]);}}

/* k6992 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_6994(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_6994,2,t0,t1);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(
/* optimizer.scm:557: touch */
  f_5061(((C_word*)((C_word*)t0)[2])[1])
);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7000,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:558: chicken.compiler.support#debugging */
t4=*((C_word*)lf[35]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[36];
av2[3]=lf[134];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7006,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7083,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:561: walk */
t4=((C_word*)((C_word*)t0)[8])[1];
f_5382(t4,t3,C_i_car(((C_word*)t0)[9]),((C_word*)t0)[10],((C_word*)t0)[5]);}}

/* k6998 in k6992 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7000(C_word c,C_word *av){
C_word tmp;
C_word 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_7000,c,av);}
/* optimizer.scm:559: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[34];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k7004 in k6992 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7006(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7006,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7041,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);
/* optimizer.scm:563: test */
t3=((C_word*)((C_word*)t0)[5])[1];
f_5035(t3,t2,((C_word*)t0)[2],lf[88]);}

/* k7013 in k7039 in k7004 in k6992 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_7015(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7015,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);}}

/* for-each-loop1244 in k7039 in k7004 in k6992 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_fcall f_7017(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_7017,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_7027,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:562: g1245 */
t4=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k7025 in for-each-loop1244 in k7039 in k7004 in k6992 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_7027(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7027,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7017(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k7039 in k7004 in k6992 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7041(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,3)))){
C_save_and_reclaim((void *)f_7041,c,av);}
a=C_alloc(13);
t2=(C_truep(t1)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7042,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp):(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7059,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp));
t3=C_i_check_list_2(((C_word*)t0)[3],lf[23]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7015,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7017,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_7017(t8,t4,((C_word*)t0)[3]);}

/* f_7042 in k7039 in k7004 in k6992 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_7042(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7042,c,av);}
t3=C_i_cdr(t2);
t4=C_eqp(((C_word*)t0)[2],t3);
if(C_truep(t4)){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_set_i_slot(t2,C_fix(1),C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_SCHEME_UNDEFINED;
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* f_7059 in k7039 in k7004 in k6992 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_7059(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7059,c,av);}
t3=C_i_car(t2);
t4=C_eqp(((C_word*)t0)[2],t3);
if(C_truep(t4)){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_set_i_slot(t2,C_fix(1),C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_SCHEME_UNDEFINED;
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k7081 in k6992 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7083(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7083,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* optimizer.scm:561: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[31];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k7091 in k7133 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_7093(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_7093,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7124,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:554: test */
t3=((C_word*)((C_word*)t0)[5])[1];
f_5035(t3,t2,((C_word*)t0)[6],lf[135]);}
else{
t2=((C_word*)t0)[2];
f_6994(t2,C_SCHEME_FALSE);}}

/* k7110 in k7118 in k7122 in k7091 in k7133 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_7112(C_word c,C_word *av){
C_word tmp;
C_word 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_7112,c,av);}
t2=((C_word*)t0)[2];
f_6994(t2,C_i_not(t1));}

/* k7118 in k7122 in k7091 in k7133 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_7120(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7120,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7112,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:556: chicken.compiler.support#expression-has-side-effects? */
t3=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_car(((C_word*)t0)[3]);
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=((C_word*)t0)[2];
f_6994(t2,C_SCHEME_FALSE);}}

/* k7122 in k7091 in k7133 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7124(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7124,c,av);}
a=C_alloc(5);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7120,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);
/* optimizer.scm:555: test */
t3=((C_word*)((C_word*)t0)[5])[1];
f_5035(t3,t2,((C_word*)t0)[6],lf[129]);}
else{
t2=((C_word*)t0)[2];
f_6994(t2,C_SCHEME_FALSE);}}

/* k7129 in k7133 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7131(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7131,c,av);}
t2=((C_word*)t0)[2];
f_7093(t2,C_i_not(t1));}

/* k7133 in k6980 in k6959 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7135(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_7135,c,av);}
a=C_alloc(10);
t2=C_i_not(t1);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7093,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t2)){
t4=t3;
f_7093(t4,t2);}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7131,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:553: chicken.compiler.support#variable-visible? */
t5=*((C_word*)lf[136]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}

/* walk-generic in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_7152(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){
C_word tmp;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,5)))){
C_save_and_reclaim_args((void *)trf_7152,9,t0,t1,t2,t3,t4,t5,t6,t7,t8);}
a=C_alloc(13);
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|10,a[1]=(C_word)f_7158,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t8,a[6]=((C_word*)t0)[2],a[7]=t7,a[8]=t10,a[9]=((C_word*)t0)[3],a[10]=t6,tmp=(C_word)a,a+=11,tmp));
t12=((C_word*)t10)[1];
f_7158(t12,t1,C_SCHEME_TRUE,t5,C_SCHEME_END_OF_LIST);}

/* lp in walk-generic in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_7158(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(8,0,4)))){
C_save_and_reclaim_args((void *)trf_7158,5,t0,t1,t2,t3,t4);}
a=C_alloc(8);
if(C_truep(C_i_nullp(t3))){
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7168,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t4,tmp=(C_word)a,a+=8,tmp);
if(C_truep(((C_word*)t0)[5])){
/* optimizer.scm:580: invalidate-gae! */
f_5065(t5,((C_word*)t0)[7]);}
else{
t6=t5;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
f_7168(2,av2);}}}
else{
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7184,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[8],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:584: walk */
t6=((C_word*)((C_word*)t0)[9])[1];
f_5382(t6,t5,C_i_car(t3),((C_word*)t0)[10],((C_word*)t0)[7]);}}

/* k7166 in lp in walk-generic in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7168(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7168,c,av);}
a=C_alloc(5);
if(C_truep(((C_word*)t0)[2])){
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);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7178,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:582: scheme#reverse */
t3=*((C_word*)lf[4]+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);}}}

/* k7176 in k7166 in lp in walk-generic in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7178(C_word c,C_word *av){
C_word tmp;
C_word 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_7178,c,av);}
/* optimizer.scm:582: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k7182 in lp in walk-generic in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7184(C_word c,C_word *av){
C_word tmp;
C_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_7184,c,av);}
a=C_alloc(3);
t2=(C_truep(((C_word*)t0)[2])?C_eqp(t1,C_u_i_car(((C_word*)t0)[3])):C_SCHEME_FALSE);
t3=C_u_i_cdr(((C_word*)t0)[3]);
t4=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]);
/* optimizer.scm:585: lp */
t5=((C_word*)((C_word*)t0)[5])[1];
f_7158(t5,((C_word*)t0)[6],t2,t3,t4);}

/* k7210 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_7212(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_7212,2,t0,t1);}
a=C_alloc(10);
if(C_truep(t1)){
/* optimizer.scm:589: scheme#values */{
C_word av2[4];
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_SCHEME_TRUE;
C_values(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7218,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)[9],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:591: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[48];
av2[3]=lf[147];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k7216 in k7210 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7218(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_7218,c,av);}
a=C_alloc(8);
t2=lf[51] /* chicken.compiler.optimizer#simplified-ops */ =C_SCHEME_END_OF_LIST;;
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7222,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:593: walk */
t4=((C_word*)((C_word*)t0)[8])[1];
f_5382(t4,t3,((C_word*)t0)[9],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);}

/* k7220 in k7216 in k7210 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7222(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_7222,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7225,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[7])[1]))){
/* optimizer.scm:594: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[36];
av2[3]=lf[146];
av2[4]=((C_word*)((C_word*)t0)[7])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_7225(2,av2);}}}

/* k7223 in k7220 in k7216 in k7210 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7225(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_7225,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7228,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_i_pairp(lf[51]))){
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7266,tmp=(C_word)a,a+=2,tmp);
/* optimizer.scm:596: chicken.compiler.support#with-debugging-output */
t4=*((C_word*)lf[145]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[36];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_7228(2,av2);}}}

/* k7226 in k7223 in k7220 in k7216 in k7210 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7228(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_7228,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7231,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(C_i_greaterp(((C_word*)((C_word*)t0)[7])[1],C_fix(0)))){
/* optimizer.scm:607: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[36];
av2[3]=lf[139];
av2[4]=((C_word*)((C_word*)t0)[7])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_7231(2,av2);}}}

/* k7229 in k7226 in k7223 in k7220 in k7216 in k7210 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7231(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_7231,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7234,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_greaterp(((C_word*)((C_word*)t0)[6])[1],C_fix(0)))){
/* optimizer.scm:608: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[36];
av2[3]=lf[138];
av2[4]=((C_word*)((C_word*)t0)[6])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_7234(2,av2);}}}

/* k7232 in k7229 in k7226 in k7223 in k7220 in k7216 in k7210 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7234(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_7234,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7237,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_greaterp(((C_word*)((C_word*)t0)[5])[1],C_fix(0)))){
/* optimizer.scm:609: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[36];
av2[3]=lf[137];
av2[4]=((C_word*)((C_word*)t0)[5])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
/* optimizer.scm:610: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
C_values(4,av2);}}}

/* k7235 in k7232 in k7229 in k7226 in k7223 in k7220 in k7216 in k7210 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7237(C_word c,C_word *av){
C_word tmp;
C_word 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_7237,c,av);}
/* optimizer.scm:610: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
C_values(4,av2);}}

/* a7265 in k7223 in k7220 in k7216 in k7210 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7266(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7266,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7270,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:599: chicken.base#print */
t3=*((C_word*)lf[140]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[144];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k7268 in a7265 in k7223 in k7220 in k7216 in k7210 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7270(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_7270,c,av);}
a=C_alloc(5);
t2=lf[51];
t3=C_i_check_list_2(lf[51],lf[23]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7303,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_7303(t7,((C_word*)t0)[2],lf[51]);}

/* k7273 in for-each-loop1284 in k7268 in a7265 in k7223 in k7220 in k7216 in k7210 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7275(C_word c,C_word *av){
C_word tmp;
C_word 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_7275,c,av);}
if(C_truep(C_i_greaterp(C_u_i_cdr(((C_word*)t0)[2]),C_fix(1)))){
/* optimizer.scm:604: chicken.base#print */
t2=*((C_word*)lf[140]+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_make_character(9);
av2[3]=C_u_i_cdr(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
/* optimizer.scm:605: scheme#newline */
t2=*((C_word*)lf[141]+1);{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* for-each-loop1284 in k7268 in a7265 in k7223 in k7220 in k7216 in k7210 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_7303(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_7303,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7313,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7275,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:602: chicken.base#print* */
t6=*((C_word*)lf[142]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[143];
av2[3]=C_i_car(t4);
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k7311 in for-each-loop1284 in k7268 in a7265 in k7223 in k7220 in k7216 in k7210 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7313(C_word c,C_word *av){
C_word tmp;
C_word 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_7313,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7303(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* loop in k6597 in k6634 in k6638 in k6579 in k6138 in a6132 in k6123 in k6120 in k6092 in k6089 in k6010 in k6003 in k6000 in k6862 in k5988 in k5548 in k5545 in k5542 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in ... */
static void C_fcall f_7341(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){
C_save_and_reclaim_args((void *)trf_7341,4,t0,t1,t2,t3);}
a=C_alloc(29);
t4=C_i_nullp(t2);
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_equalp(((C_word*)t0)[2],t5))){
if(C_truep(C_i_lessp(t3,((C_word*)t0)[3]))){
t6=C_u_i_cdr(t2);
t7=C_s_a_i_plus(&a,2,t3,C_fix(1));
/* optimizer.scm:626: loop */
t9=t1;
t10=t6;
t11=t7;
t1=t9;
t2=t10;
t3=t11;
goto loop;}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
/* optimizer.scm:627: loop */
t9=t1;
t10=C_u_i_cdr(t2);
t11=t3;
t1=t9;
t2=t10;
t3=t11;
goto loop;}}}

/* touch in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static C_word C_fcall f_7381(C_word t0){
C_word tmp;
C_word t1;
C_word t2;
C_stack_overflow_check;{}
t1=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE);
return(C_SCHEME_TRUE);}

/* test in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_7385(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_7385,4,t0,t1,t2,t3);}
/* optimizer.scm:641: chicken.compiler.support#db-get */
t4=*((C_word*)lf[55]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7392(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_7392,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7395,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_7407,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]=t2,tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:646: chicken.compiler.support#intrinsic? */
t4=*((C_word*)lf[128]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[153];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k7393 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7395(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7395,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7398,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_greaterp(((C_word*)((C_word*)t0)[4])[1],C_fix(0)))){
/* optimizer.scm:684: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[36];
av2[3]=lf[148];
av2[4]=((C_word*)((C_word*)t0)[4])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=((C_word*)t0)[2];
f_7212(t3,((C_word*)((C_word*)t0)[3])[1]);}}

/* k7396 in k7393 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7398(C_word c,C_word *av){
C_word tmp;
C_word 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_7398,c,av);}
t2=((C_word*)t0)[2];
f_7212(t2,((C_word*)((C_word*)t0)[3])[1]);}

/* k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7407(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_7407,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7408,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7605,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:682: test */
t4=((C_word*)((C_word*)t0)[5])[1];
f_7385(t4,t3,lf[153],lf[154]);}
else{
t2=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_7395(2,av2);}}}

/* g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_7408(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(8,0,2)))){
C_save_and_reclaim_args((void *)trf_7408,3,t0,t1,t2);}
a=C_alloc(8);
t3=C_i_cdr(t2);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7415,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:650: chicken.compiler.support#node-subexpressions */
t5=*((C_word*)lf[42]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7415(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_7415,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7598,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:651: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cadr(t1);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7421(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_7421,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7424,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:653: chicken.compiler.support#db-get-list */
t3=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[8];
av2[4]=lf[129];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7424(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_7424,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7430,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
if(C_truep(((C_word*)t0)[8])){
t3=C_i_length(t1);
t4=C_eqp(C_fix(1),t3);
if(C_truep(t4)){
t5=C_i_length(((C_word*)t0)[6]);
t6=C_eqp(C_fix(3),t5);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7574,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:657: chicken.compiler.support#node-class */
t8=*((C_word*)lf[41]+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)[8];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t7=t2;
f_7430(t7,C_SCHEME_FALSE);}}
else{
t5=t2;
f_7430(t5,C_SCHEME_FALSE);}}
else{
t3=t2;
f_7430(t3,C_SCHEME_FALSE);}}

/* k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_7430(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,2)))){
C_save_and_reclaim_args((void *)trf_7430,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7555,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:658: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[43]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k7437 in k7549 in k7553 in k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in ... */
static void C_ccall f_7439(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_7439,c,av);}
a=C_alloc(10);
t2=C_i_listp(((C_word*)t0)[2]);
t3=(C_truep(t2)?C_i_nullp(C_i_cdr(((C_word*)t0)[2])):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[2]);
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7451,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t4,tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:664: chicken.compiler.support#db-get-list */
t6=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[9];
av2[3]=t4;
av2[4]=lf[129];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k7449 in k7437 in k7549 in k7553 in k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in ... */
static void C_ccall f_7451(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_7451,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7457,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
t3=C_i_length(t1);
t4=C_eqp(C_fix(1),t3);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7532,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:666: chicken.compiler.support#node-class */
t6=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=t2;
f_7457(t5,C_SCHEME_FALSE);}}

/* k7455 in k7449 in k7437 in k7549 in k7553 in k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_fcall f_7457(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_7457,2,t0,t1);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7522,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:668: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[42]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k7464 in k7520 in k7455 in k7449 in k7437 in k7549 in k7553 in k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_fcall f_7466(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(37,0,3)))){
C_save_and_reclaim_args((void *)trf_7466,2,t0,t1);}
a=C_alloc(37);
if(C_truep(t1)){
t2=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1));
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7473,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);
/* optimizer.scm:676: chicken.compiler.support#node-parameters-set! */
t5=*((C_word*)lf[150]+1);{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[7];
av2[3]=lf[151];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k7471 in k7464 in k7520 in k7455 in k7449 in k7437 in k7549 in k7553 in k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_ccall f_7473(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_7473,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7476,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);
/* optimizer.scm:677: chicken.compiler.support#node-subexpressions-set! */
t3=*((C_word*)lf[149]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=C_i_cdr(((C_word*)t0)[7]);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k7474 in k7471 in k7464 in k7520 in k7455 in k7449 in k7437 in k7549 in k7553 in k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in ... */
static void C_ccall f_7476(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_7476,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7479,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_i_car(((C_word*)t0)[4]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7494,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:680: scheme#reverse */
t5=*((C_word*)lf[4]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_u_i_cdr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k7477 in k7474 in k7471 in k7464 in k7520 in k7455 in k7449 in k7437 in k7549 in k7553 in k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in ... */
static void C_ccall f_7479(C_word c,C_word *av){
C_word tmp;
C_word 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_7479,c,av);}
/* optimizer.scm:681: touch */
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(
/* optimizer.scm:681: touch */
  f_7381(((C_word*)((C_word*)t0)[3])[1])
);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k7492 in k7474 in k7471 in k7464 in k7520 in k7455 in k7449 in k7437 in k7549 in k7553 in k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in ... */
static void C_ccall f_7494(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7494,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:678: chicken.compiler.support#node-subexpressions-set! */
t3=*((C_word*)lf[149]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k7512 in k7516 in k7520 in k7455 in k7449 in k7437 in k7549 in k7553 in k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in ... */
static void C_ccall f_7514(C_word c,C_word *av){
C_word tmp;
C_word 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_7514,c,av);}
t2=((C_word*)t0)[2];
f_7466(t2,C_eqp(((C_word*)t0)[3],C_i_car(t1)));}

/* k7516 in k7520 in k7455 in k7449 in k7437 in k7549 in k7553 in k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in ... */
static void C_ccall f_7518(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_7518,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[24],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7514,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:671: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];
f_7466(t3,C_SCHEME_FALSE);}}

/* k7520 in k7455 in k7449 in k7437 in k7549 in k7553 in k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in ... */
static void C_ccall f_7522(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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_7522,c,av);}
a=C_alloc(14);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7466,a[2]=((C_word*)t0)[2],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);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7518,a[2]=t3,a[3]=((C_word*)t0)[9],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:670: chicken.compiler.support#node-class */
t5=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k7530 in k7449 in k7437 in k7549 in k7553 in k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in ... */
static void C_ccall f_7532(C_word c,C_word *av){
C_word tmp;
C_word 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_7532,c,av);}
t2=((C_word*)t0)[2];
f_7457(t2,C_eqp(lf[25],t1));}

/* k7549 in k7553 in k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 in ... */
static void C_ccall f_7551(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_7551,c,av);}
a=C_alloc(10);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7439,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,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);
/* optimizer.scm:660: chicken.compiler.support#node-subexpressions */
t4=*((C_word*)lf[42]+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);}}

/* k7553 in k7428 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_7555,c,av);}
a=C_alloc(9);
t2=C_i_caddr(t1);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7551,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:659: chicken.compiler.support#node-subexpressions */
t4=*((C_word*)lf[42]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k7572 in k7422 in k7419 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7574(C_word c,C_word *av){
C_word tmp;
C_word 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_7574,c,av);}
t2=((C_word*)t0)[2];
f_7430(t2,C_eqp(lf[29],t1));}

/* k7592 in k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7594(C_word c,C_word *av){
C_word tmp;
C_word 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_7594,c,av);}
if(C_truep(C_i_not(t1))){
/* optimizer.scm:652: test */
t2=((C_word*)((C_word*)t0)[2])[1];
f_7385(t2,((C_word*)t0)[3],((C_word*)t0)[4],lf[80]);}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_7421(2,av2);}}}

/* k7596 in k7413 in g1350 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7598(C_word c,C_word *av){
C_word tmp;
C_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,3)))){
C_save_and_reclaim((void *)f_7598,c,av);}
a=C_alloc(14);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7421,a[2]=((C_word*)t0)[2],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]=t2,tmp=(C_word)a,a+=9,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7594,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:652: test */
t5=((C_word*)((C_word*)t0)[8])[1];
f_7385(t5,t4,t2,lf[130]);}

/* k7603 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7605(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_7605,c,av);}
a=C_alloc(6);
t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
t3=C_i_check_list_2(t2,lf[23]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7616,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_7616(t7,((C_word*)t0)[3],t2);}

/* for-each-loop1349 in k7603 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_7616(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_7616,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_7626,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:647: g1350 */
t4=((C_word*)t0)[3];
f_7408(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k7624 in for-each-loop1349 in k7603 in k7405 in k7390 in chicken.compiler.optimizer#perform-high-level-optimizations in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7626(C_word c,C_word *av){
C_word tmp;
C_word 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_7626,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7616(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7646(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word t44;
C_word t45;
C_word t46;
C_word t47;
C_word t48;
C_word t49;
C_word t50;
C_word t51;
C_word t52;
C_word t53;
C_word t54;
C_word t55;
C_word t56;
C_word t57;
C_word t58;
C_word t59;
C_word t60;
C_word t61;
C_word t62;
C_word t63;
C_word t64;
C_word t65;
C_word t66;
C_word t67;
C_word t68;
C_word t69;
C_word t70;
C_word t71;
C_word t72;
C_word t73;
C_word t74;
C_word t75;
C_word t76;
C_word t77;
C_word t78;
C_word t79;
C_word t80;
C_word t81;
C_word t82;
C_word t83;
C_word t84;
C_word t85;
C_word t86;
C_word t87;
C_word t88;
C_word t89;
C_word t90;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(594,c,15)))){
C_save_and_reclaim((void *)f_7646,c,av);}
a=C_alloc(594);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7649,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_a_i_list(&a,1,lf[205]);
t4=C_a_i_list(&a,1,lf[203]);
t5=C_a_i_list(&a,1,lf[206]);
t6=C_a_i_list(&a,2,lf[24],t5);
t7=C_a_i_list(&a,1,lf[207]);
t8=C_a_i_list(&a,2,lf[75],t7);
t9=C_a_i_list(&a,4,lf[58],t4,t6,t8);
t10=C_a_i_list(&a,1,lf[205]);
t11=C_a_i_list(&a,2,lf[24],t10);
t12=C_a_i_list(&a,1,lf[208]);
t13=C_a_i_list(&a,1,lf[203]);
t14=C_a_i_list(&a,1,lf[206]);
t15=C_a_i_list(&a,2,lf[24],t14);
t16=C_a_i_list(&a,1,lf[209]);
t17=C_a_i_list(&a,2,lf[75],t16);
t18=C_a_i_list(&a,4,lf[58],t13,t15,t17);
t19=C_a_i_list(&a,1,lf[208]);
t20=C_a_i_list(&a,2,lf[24],t19);
t21=C_a_i_list(&a,5,lf[25],lf[198],t20,lf[210],lf[211]);
t22=C_a_i_list(&a,4,lf[26],t12,t18,t21);
t23=C_a_i_list(&a,5,lf[25],lf[202],t11,lf[212],t22);
t24=C_a_i_list(&a,4,lf[26],t3,t9,t23);
t25=C_a_i_list(&a,11,lf[206],lf[205],lf[208],lf[203],lf[207],lf[209],lf[212],lf[210],lf[202],lf[198],lf[211]);
t26=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13872,tmp=(C_word)a,a+=2,tmp);
t27=C_a_i_list(&a,3,t24,t25,t26);
t28=C_a_i_list(&a,1,lf[197]);
t29=C_a_i_list(&a,1,lf[203]);
t30=C_a_i_list(&a,1,lf[206]);
t31=C_a_i_list(&a,2,lf[24],t30);
t32=C_a_i_list(&a,1,lf[215]);
t33=C_a_i_list(&a,2,lf[75],t32);
t34=C_a_i_list(&a,4,lf[58],t29,t31,t33);
t35=C_a_i_list(&a,1,lf[197]);
t36=C_a_i_list(&a,2,lf[24],t35);
t37=C_a_i_list(&a,1,lf[216]);
t38=C_a_i_list(&a,1,lf[206]);
t39=C_a_i_list(&a,2,lf[24],t38);
t40=C_a_i_cons(&a,2,t39,lf[217]);
t41=C_a_i_cons(&a,2,t37,t40);
t42=C_a_i_cons(&a,2,lf[40],t41);
t43=C_a_i_list(&a,5,lf[25],lf[218],t36,lf[219],t42);
t44=C_a_i_list(&a,4,lf[26],t28,t34,t43);
t45=C_a_i_list(&a,8,lf[197],lf[203],lf[206],lf[215],lf[218],lf[219],lf[216],lf[217]);
t46=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13745,tmp=(C_word)a,a+=2,tmp);
t47=C_a_i_list(&a,3,t44,t45,t46);
t48=C_a_i_list(&a,1,lf[205]);
t49=C_a_i_list(&a,2,lf[34],C_SCHEME_END_OF_LIST);
t50=C_a_i_list(&a,4,lf[26],t48,t49,lf[220]);
t51=C_a_i_list(&a,2,lf[205],lf[220]);
t52=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13432,tmp=(C_word)a,a+=2,tmp);
t53=C_a_i_list(&a,3,t50,t51,t52);
t54=C_a_i_list(&a,1,lf[197]);
t55=C_a_i_list(&a,1,lf[203]);
t56=C_a_i_cons(&a,2,t55,lf[223]);
t57=C_a_i_cons(&a,2,lf[58],t56);
t58=C_a_i_list(&a,1,lf[197]);
t59=C_a_i_list(&a,2,lf[24],t58);
t60=C_a_i_list(&a,5,lf[25],lf[218],t59,lf[189],lf[199]);
t61=C_a_i_list(&a,4,lf[26],t54,t57,t60);
t62=C_a_i_list(&a,6,lf[197],lf[203],lf[223],lf[218],lf[189],lf[199]);
t63=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13349,tmp=(C_word)a,a+=2,tmp);
t64=C_a_i_list(&a,3,t61,t62,t63);
t65=C_a_i_list(&a,1,lf[197]);
t66=C_a_i_list(&a,1,lf[224]);
t67=C_a_i_cons(&a,2,t66,lf[225]);
t68=C_a_i_cons(&a,2,lf[58],t67);
t69=C_a_i_list(&a,1,lf[226]);
t70=C_a_i_list(&a,2,lf[24],t69);
t71=C_a_i_list(&a,1,lf[227]);
t72=C_a_i_cons(&a,2,t71,lf[228]);
t73=C_a_i_cons(&a,2,lf[58],t72);
t74=C_a_i_list(&a,4,lf[30],lf[48],t70,t73);
t75=C_a_i_list(&a,4,lf[26],t65,t68,t74);
t76=C_a_i_list(&a,7,lf[197],lf[224],lf[225],lf[48],lf[226],lf[227],lf[228]);
t77=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13164,tmp=(C_word)a,a+=2,tmp);
t78=C_a_i_list(&a,3,t75,t76,t77);
t79=C_a_i_list(&a,1,lf[197]);
t80=C_a_i_list(&a,1,lf[203]);
t81=C_a_i_cons(&a,2,t80,lf[225]);
t82=C_a_i_cons(&a,2,lf[58],t81);
t83=C_a_i_cons(&a,2,lf[48],lf[228]);
t84=C_a_i_cons(&a,2,lf[30],t83);
t85=C_a_i_list(&a,4,lf[26],t79,t82,t84);
t86=C_a_i_list(&a,5,lf[197],lf[203],lf[225],lf[48],lf[228]);
t87=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13031,tmp=(C_word)a,a+=2,tmp);
t88=C_a_i_list(&a,3,t85,t86,t87);
t89=C_a_i_list(&a,6,t27,t47,t53,t64,t78,t88);
/* optimizer.scm:691: chicken.internal#hash-table-set! */
t90=*((C_word*)lf[158]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t90;
av2[1]=t2;
av2[2]=lf[50];
av2[3]=lf[26];
av2[4]=t89;
((C_proc)(void*)(*((C_word*)t90+1)))(5,av2);}}

/* k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7649(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(166,c,11)))){
C_save_and_reclaim((void *)f_7649,c,av);}
a=C_alloc(166);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7652,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_a_i_list(&a,1,lf[197]);
t4=C_a_i_list(&a,2,lf[24],t3);
t5=C_a_i_list(&a,4,lf[30],lf[198],t4,lf[199]);
t6=C_a_i_list(&a,1,lf[197]);
t7=C_a_i_list(&a,2,lf[24],t6);
t8=C_a_i_list(&a,4,lf[30],lf[200],t7,lf[201]);
t9=C_a_i_list(&a,5,lf[25],lf[202],lf[189],t5,t8);
t10=C_a_i_list(&a,7,lf[202],lf[198],lf[200],lf[189],lf[199],lf[201],lf[197]);
t11=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12950,tmp=(C_word)a,a+=2,tmp);
t12=C_a_i_list(&a,3,t9,t10,t11);
t13=C_a_i_list(&a,1,lf[203]);
t14=C_a_i_list(&a,1,lf[204]);
t15=C_a_i_list(&a,2,lf[75],t14);
t16=C_a_i_list(&a,4,lf[58],t13,lf[189],t15);
t17=C_a_i_list(&a,5,lf[25],lf[202],t16,lf[199],lf[201]);
t18=C_a_i_list(&a,6,lf[202],lf[203],lf[189],lf[204],lf[199],lf[201]);
t19=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12804,tmp=(C_word)a,a+=2,tmp);
t20=C_a_i_list(&a,3,t17,t18,t19);
t21=C_a_i_list(&a,2,t12,t20);
/* optimizer.scm:691: chicken.internal#hash-table-set! */
t22=*((C_word*)lf[158]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t22;
av2[1]=t2;
av2[2]=lf[50];
av2[3]=lf[25];
av2[4]=t21;
((C_proc)(void*)(*((C_word*)t22+1)))(5,av2);}}

/* k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_7652(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_7652,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8192,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1073: scheme#make-vector */
t3=*((C_word*)lf[196]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_fix(301);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in ... */
static void C_ccall f_7667(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){
C_save_and_reclaim((void *)f_7667,c,av);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7669,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7712,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7724,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,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_8105,a[2]=t6,a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_8105(t8,t4,((C_word*)t0)[3],((C_word*)t0)[6]);}

/* find-path in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in ... */
static void C_fcall f_7669(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_7669,4,t0,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_7675,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_7675(t7,t1,t2,C_SCHEME_END_OF_LIST);}

/* find in find-path in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in ... */
static void C_fcall f_7675(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_7675,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=C_i_memq(t2,t3);
if(C_truep(C_i_not(t4))){
t5=C_i_assq(t2,((C_word*)((C_word*)t0)[2])[1]);
t6=C_i_cdr(t5);
t7=C_i_memq(((C_word*)t0)[3],t6);
if(C_truep(t7)){
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=C_a_i_cons(&a,2,t2,t3);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7699,a[2]=((C_word*)t0)[4],a[3]=t8,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:996: any */
f_3785(t1,t9,t6);}}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* a7698 in find in find-path in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in ... */
static void C_ccall f_7699(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7699,c,av);}
/* optimizer.scm:996: find */
t3=((C_word*)((C_word*)t0)[2])[1];
f_7675(t3,t1,t2,((C_word*)t0)[3]);}

/* g1664 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in ... */
static void C_fcall f_7712(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_7712,4,t0,t1,t2,t3);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7721,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1000: chicken.compiler.support#scan-used-variables */
t5=*((C_word*)lf[162]+1);{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k7719 in g1664 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in ... */
static void C_ccall f_7721(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_7721,c,av);}
a=C_alloc(6);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
t4=C_a_i_cons(&a,2,t3,t2);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4);
t6=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in ... */
static void C_ccall f_7724(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(25,c,3)))){
C_save_and_reclaim((void *)f_7724,c,av);}
a=C_alloc(25);
t2=C_SCHEME_END_OF_LIST;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_END_OF_LIST;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7725,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7784,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]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8082,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t11=((C_word*)t9)[1];
f_8082(t11,t7,((C_word*)t0)[3]);}

/* g1704 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in ... */
static void C_fcall f_7725(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,3)))){
C_save_and_reclaim_args((void *)trf_7725,3,t0,t1,t2);}
a=C_alloc(10);
t3=C_i_memq(t2,((C_word*)((C_word*)t0)[2])[1]);
if(C_truep(C_i_not(t3))){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7735,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7757,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1009: filter */
f_3991(t4,t5,((C_word*)t0)[5]);}
else{
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k7733 in g1704 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in ... */
static void C_ccall f_7735(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_7735,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7751,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);
/* optimizer.scm:1012: chicken.base#gensym */
t3=*((C_word*)lf[115]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k7741 in k7749 in k7733 in g1704 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in ... */
static void C_ccall f_7743(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7743,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k7749 in k7733 in g1704 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in ... */
static void C_ccall f_7751(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_7751,c,av);}
a=C_alloc(16);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=((C_word*)((C_word*)t0)[4])[1];
t4=C_a_i_cons(&a,2,t1,t2);
t5=C_a_i_cons(&a,2,t4,t3);
t6=C_mutate(((C_word *)((C_word*)t0)[4])+1,t5);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7743,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t8=C_a_i_list1(&a,1,((C_word*)t0)[2]);
/* optimizer.scm:1013: scheme#append */
t9=*((C_word*)lf[7]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=t7;
av2[2]=t8;
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)((C_word*)t0)[5])[1];
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}

/* a7756 in g1704 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in ... */
static void C_ccall f_7757(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_7757,c,av);}
a=C_alloc(6);
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(C_i_not(t3))){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7770,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1010: find-path */
t5=((C_word*)t0)[3];
f_7669(t5,t4,((C_word*)t0)[2],t2);}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k7768 in a7756 in g1704 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in ... */
static void C_ccall f_7770(C_word c,C_word *av){
C_word tmp;
C_word 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_7770,c,av);}
if(C_truep(t1)){
/* optimizer.scm:1010: find-path */
t2=((C_word*)t0)[2];
f_7669(t2,((C_word*)t0)[3],((C_word*)t0)[4],((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);}}}

/* k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in ... */
static void C_ccall f_7784(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_7784,c,av);}
a=C_alloc(22);
t2=C_SCHEME_END_OF_LIST;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7785,a[2]=t3,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);
t5=((C_word*)((C_word*)t0)[2])[1];
t6=C_i_check_list_2(t5,lf[23]);
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7844,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t3,tmp=(C_word)a,a+=8,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8059,a[2]=t9,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t11=((C_word*)t9)[1];
f_8059(t11,t7,t5);}

/* g1728 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in ... */
static void C_fcall f_7785(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(11,0,4)))){
C_save_and_reclaim_args((void *)trf_7785,3,t0,t1,t2);}
a=C_alloc(11);
t3=C_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7792,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7826,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1022: append-map */
f_3581(t4,t5,C_u_i_cdr(t2),C_SCHEME_END_OF_LIST);}

/* k7790 in g1728 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in ... */
static void C_ccall f_7792(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_7792,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7800,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_7802,a[2]=((C_word*)t0)[5],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=((C_word*)((C_word*)t0)[6])[1];
t5=C_i_check_list_2(t4,lf[6]);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4044,a[2]=t3,a[3]=t7,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_4044(t9,t2,t4);}

/* k7798 in k7790 in g1728 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in ... */
static void C_ccall f_7800(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_7800,c,av);}
a=C_alloc(6);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
t4=C_a_i_cons(&a,2,t3,t2);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4);
t6=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* a7801 in k7790 in g1728 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in ... */
static void C_fcall f_7802(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,3)))){
C_save_and_reclaim_args((void *)trf_7802,3,t0,t1,t2);}
a=C_alloc(7);
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(C_i_not(t3))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7815,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t5=C_i_cdr(t2);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4429,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* mini-srfi-1.scm:193: every */
f_3751(t4,t6,t5);}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k7813 in a7801 in k7790 in g1728 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in ... */
static void C_ccall f_7815(C_word c,C_word *av){
C_word tmp;
C_word 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_7815,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?C_u_i_car(((C_word*)t0)[3]):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a7825 in g1728 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in ... */
static void C_ccall f_7826(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_7826,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7832,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1023: filter */
f_3991(t1,t3,((C_word*)t0)[3]);}

/* a7831 in a7825 in g1728 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in ... */
static void C_ccall f_7832(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7832,c,av);}
/* optimizer.scm:1023: find-path */
t3=((C_word*)t0)[2];
f_7669(t3,t1,((C_word*)t0)[3],t2);}

/* k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in ... */
static void C_ccall f_7844(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_7844,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7847,a[2]=((C_word*)t0)[2],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);
/* optimizer.scm:1035: chicken.sort#topological-sort */
t3=*((C_word*)lf[222]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[7])[1];
av2[3]=*((C_word*)lf[47]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in ... */
static void C_ccall f_7847(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_7847,c,av);}
a=C_alloc(15);
t2=C_SCHEME_END_OF_LIST;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7850,a[2]=t3,a[3]=((C_word*)t0)[2],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|6,a[1]=(C_word)f_7867,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t6,tmp=(C_word)a,a+=7,tmp));
t8=((C_word*)t6)[1];
f_7867(t8,t4,t1,((C_word*)t0)[6]);}

/* k7848 in k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in ... */
static void C_ccall f_7850(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7850,c,av);}
a=C_alloc(4);
if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[2])[1]))){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7859,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1066: chicken.compiler.support#debugging */
t3=*((C_word*)lf[35]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[36];
av2[3]=lf[221];
av2[4]=((C_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
/* optimizer.scm:1068: 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]=t1;
av2[3]=C_SCHEME_FALSE;
C_values(4,av2);}}}

/* k7857 in k7848 in k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in ... */
static void C_ccall f_7859(C_word c,C_word *av){
C_word tmp;
C_word 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_7859,c,av);}
/* optimizer.scm:1067: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_SCHEME_TRUE;
C_values(4,av2);}}

/* foldl1758 in k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in ... */
static void C_fcall f_7867(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(11,0,4)))){
C_save_and_reclaim_args((void *)trf_7867,4,t0,t1,t2,t3);}
a=C_alloc(11);
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7883,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);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8053,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1040: g1765 */
t7=t5;
f_7883(t7,t6,t3,C_slot(t2,C_fix(0)));}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* g1765 in foldl1758 in k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in ... */
static void C_fcall f_7883(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_7883,4,t0,t1,t2,t3);}
a=C_alloc(8);
t4=C_i_assq(t3,((C_word*)((C_word*)t0)[2])[1]);
t5=C_i_cdr(t4);
t6=C_i_car(t5);
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7896,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t1,a[7]=t5,tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_i_nullp(C_u_i_cdr(t5)))){
t8=C_i_assq(t6,((C_word*)((C_word*)t0)[5])[1]);
t9=C_i_cdr(t8);
t10=t7;
f_7896(t10,C_i_not(C_i_memq(t6,t9)));}
else{
t8=t7;
f_7896(t8,C_SCHEME_FALSE);}}

/* k7894 in g1765 in foldl1758 in k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in ... */
static void C_fcall f_7896(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_7896,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
t4=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[4]);
t5=C_i_cdr(t4);
t6=C_a_i_list2(&a,2,t5,((C_word*)t0)[5]);
/* optimizer.scm:1047: chicken.compiler.support#make-node */
t7=*((C_word*)lf[33]+1);{
C_word av2[5];
av2[0]=t7;
av2[1]=((C_word*)t0)[6];
av2[2]=lf[26];
av2[3]=((C_word*)t0)[7];
av2[4]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
else{
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|5,a[1]=(C_word)f_7920,a[2]=t3,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp));
t5=((C_word*)t3)[1];
f_7920(t5,((C_word*)t0)[6],((C_word*)t0)[7]);}}

/* foldr1781 in k7894 in g1765 in foldl1758 in k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in ... */
static void C_fcall f_7920(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,3)))){
C_save_and_reclaim_args((void *)trf_7920,3,t0,t1,t2);}
a=C_alloc(7);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7955,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t8=t4;
t9=C_slot(t2,C_fix(1));
t1=t8;
t2=t9;
goto loop;}
else{
t3=C_i_check_list_2(((C_word*)t0)[3],lf[6]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7967,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_7967(t7,t1,((C_word*)t0)[3]);}}

/* k7942 in k7953 in foldr1781 in k7894 in g1765 in foldl1758 in k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in ... */
static void C_ccall f_7944(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7944,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
/* optimizer.scm:1051: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[26];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k7953 in foldr1781 in k7894 in g1765 in foldl1758 in k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in ... */
static void C_ccall f_7955(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_7955,c,av);}
a=C_alloc(8);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7944,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1053: chicken.compiler.support#make-node */
t4=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[34];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* foldr1794 in foldr1781 in k7894 in g1765 in foldl1758 in k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in ... */
static void C_fcall f_7967(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_7967,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7975,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8022,a[2]=t3,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t7=t5;
t8=C_slot(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* g1799 in foldr1794 in foldr1781 in k7894 in g1765 in foldl1758 in k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in ... */
static void C_fcall f_7975(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_7975,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8011,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1057: chicken.base#gensym */
t5=*((C_word*)lf[115]+1);{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k7989 in k8009 in g1799 in foldr1794 in foldr1781 in k7894 in g1765 in foldl1758 in k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in ... */
static void C_ccall f_7991(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7991,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
/* optimizer.scm:1056: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[26];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8009 in g1799 in foldr1794 in foldr1781 in k7894 in g1765 in foldl1758 in k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in ... */
static void C_ccall f_8011(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_8011,c,av);}
a=C_alloc(14);
t2=C_a_i_list1(&a,1,t1);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7991,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_a_i_list1(&a,1,((C_word*)t0)[4]);
t5=C_i_assq(((C_word*)t0)[4],((C_word*)t0)[5]);
t6=C_i_cdr(t5);
t7=C_a_i_list1(&a,1,t6);
/* optimizer.scm:1058: chicken.compiler.support#make-node */
t8=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t8;
av2[1]=t3;
av2[2]=lf[31];
av2[3]=t4;
av2[4]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}

/* k8020 in foldr1794 in foldr1781 in k7894 in g1765 in foldl1758 in k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in ... */
static void C_ccall f_8022(C_word c,C_word *av){
C_word tmp;
C_word 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_8022,c,av);}
/* optimizer.scm:1054: g1799 */
t2=((C_word*)t0)[2];
f_7975(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k8051 in foldl1758 in k7845 in k7842 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in ... */
static void C_ccall f_8053(C_word c,C_word *av){
C_word tmp;
C_word 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_8053,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7867(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* for-each-loop1727 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in ... */
static void C_fcall f_8059(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_8059,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_8069,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1018: g1728 */
t4=((C_word*)t0)[3];
f_7785(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k8067 in for-each-loop1727 in k7782 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in ... */
static void C_ccall f_8069(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8069,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_8059(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop1703 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in ... */
static void C_fcall f_8082(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_8082,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_8092,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1006: g1704 */
t4=((C_word*)t0)[3];
f_7725(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k8090 in for-each-loop1703 in k7722 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in ... */
static void C_ccall f_8092(C_word c,C_word *av){
C_word tmp;
C_word 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_8092,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_8082(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop1663 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in ... */
static void C_fcall f_8105(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_8105,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8115,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:999: g1664 */
t7=((C_word*)t0)[3];
f_7712(t7,t6,C_slot(t2,C_fix(0)),C_slot(t3,C_fix(0)));}
else{
t6=C_SCHEME_UNDEFINED;
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k8113 in for-each-loop1663 in k7665 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in ... */
static void C_ccall f_8115(C_word c,C_word *av){
C_word tmp;
C_word 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_8115,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_8105(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* map-loop1632 in k13605 in a13598 in k13559 in k13553 in k13550 in k13547 in loop2 in k13516 in k13486 in k13483 in k13480 in k13709 in k13717 in k13450 in k13447 in k13444 in loop1 in a13431 in k7644 in k5025 in k4672 in ... */
static void C_fcall f_8142(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_8142,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);}}}

/* k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8192(C_word c,C_word *av){
C_word tmp;
C_word t0=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,4)))){
C_save_and_reclaim((void *)f_8192,c,av);}
a=C_alloc(6);
t2=C_mutate(&lf[156] /* (set! chicken.compiler.optimizer#substitution-table ...) */,t1);
t3=C_mutate((C_word*)lf[157]+1 /* (set! chicken.compiler.optimizer#rewrite ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8194,tmp=(C_word)a,a+=2,tmp));
t4=C_mutate((C_word*)lf[159]+1 /* (set! chicken.compiler.optimizer#transform-direct-lambdas! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10490,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate((C_word*)lf[185]+1 /* (set! chicken.compiler.optimizer#determine-loop-and-dispatch ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11822,tmp=(C_word)a,a+=2,tmp));
t6=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* chicken.compiler.optimizer#rewrite in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8194(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,3)))){
C_save_and_reclaim((void*)f_8194,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_8198,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1076: chicken.internal#hash-table-ref */
t5=*((C_word*)lf[57]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[156];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k8196 in chicken.compiler.optimizer#rewrite in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8198(C_word c,C_word *av){
C_word tmp;
C_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_8198,c,av);}
a=C_alloc(7);
t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8208,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t4=C_a_i_list1(&a,1,((C_word*)t0)[4]);
/* optimizer.scm:1077: scheme#append */
t5=*((C_word*)lf[7]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=t2;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k8206 in k8196 in chicken.compiler.optimizer#rewrite in k8190 in k7650 in k7647 in k7644 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8208(C_word c,C_word *av){
C_word tmp;
C_word 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_8208,c,av);}
/* optimizer.scm:1077: chicken.internal#hash-table-set! */
t2=*((C_word*)lf[158]+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[156];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* argc-ok? in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static C_word C_fcall f_8217(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;
loop:{}
t2=C_i_not(t1);
if(C_truep(t2)){
return(t2);}
else{
t3=C_fixnump(t1);
t4=(C_truep(t3)?C_eqp(t1,C_i_length(((C_word*)t0)[2])):C_SCHEME_FALSE);
if(C_truep(t4)){
return(t4);}
else{
if(C_truep(C_i_pairp(t1))){
t5=f_8217(t0,C_u_i_car(t1));
if(C_truep(t5)){
t7=C_u_i_cdr(t1);
t1=t7;
goto loop;}
else{
return(C_SCHEME_FALSE);}}
else{
return(C_SCHEME_FALSE);}}}}

/* k8305 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8307(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_8307,c,av);}
a=C_alloc(13);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8310,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t3=C_i_length(((C_word*)t0)[6]);
t4=C_i_car(((C_word*)t0)[5]);
if(C_truep(C_i_nequalp(t3,t4))){
t5=C_i_car(((C_word*)t0)[6]);
t6=C_i_cadr(((C_word*)t0)[6]);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8397,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1103: chicken.compiler.support#node-class */
t8=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t5=t2;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_8310(2,av2);}}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k8308 in k8305 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8310(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8310,c,av);}
a=C_alloc(11);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
f_14065(2,av2);}}
else{
if(C_truep(((C_word*)t0)[3])){
t2=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8331,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_i_cadr(((C_word*)t0)[5]);
t5=C_a_i_list1(&a,1,t4);
/* optimizer.scm:1110: chicken.compiler.support#make-node */
t6=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t3;
av2[2]=lf[58];
av2[3]=t5;
av2[4]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}}

/* k8329 in k8308 in k8305 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8331(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8331,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1108: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8379 in k8387 in k8383 in k8391 in k8395 in k8305 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8381(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_8381,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1106: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8383 in k8391 in k8395 in k8305 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8385(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8385,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8389,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1105: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[43]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k8387 in k8383 in k8391 in k8395 in k8305 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8389(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_8389,c,av);}
a=C_alloc(8);
if(C_truep(C_i_equalp(((C_word*)t0)[2],t1))){
t2=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8381,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1106: chicken.compiler.support#qnode */
t4=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_8310(2,av2);}}}

/* k8391 in k8395 in k8305 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8393(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_8393,c,av);}
a=C_alloc(5);
t2=C_eqp(lf[24],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8385,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);
/* optimizer.scm:1105: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[43]+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=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_8310(2,av2);}}}

/* k8395 in k8305 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8397(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_8397,c,av);}
a=C_alloc(6);
t2=C_eqp(lf[24],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8393,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1104: chicken.compiler.support#node-class */
t4=*((C_word*)lf[41]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_8310(2,av2);}}}

/* k8424 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8426(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_8426,c,av);}
a=C_alloc(11);
if(C_truep(t1)){
t2=C_i_caddr(((C_word*)t0)[2]);
t3=(C_truep(t2)?t2:*((C_word*)lf[231]+1));
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[3]);
t5=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8453,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t5,tmp=(C_word)a,a+=5,tmp);
t7=C_i_cadr(((C_word*)t0)[2]);
t8=C_a_i_list1(&a,1,t7);
/* optimizer.scm:1124: chicken.compiler.support#make-node */
t9=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=t6;
av2[2]=lf[58];
av2[3]=t8;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
else{
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k8451 in k8424 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8453(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_8453,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1120: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8482 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8484(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(7,c,3)))){
C_save_and_reclaim((void *)f_8484,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_i_not(t2);
t4=(C_truep(t3)?t3:C_i_nequalp(C_i_length(((C_word*)t0)[3]),C_i_cadr(((C_word*)t0)[2])));
if(C_truep(t4)){
t5=C_i_check_list_2(((C_word*)t0)[3],lf[6]);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8501,a[2]=t7,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp));
t9=((C_word*)t7)[1];
f_8501(t9,((C_word*)t0)[5],((C_word*)t0)[3]);}
else{
t5=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* foldr1888 in k8482 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_8501(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_8501,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8536,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t6=t4;
t7=C_slot(t2,C_fix(1));
t1=t6;
t2=t7;
goto loop;}
else{
t3=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8555,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1135: chicken.compiler.support#varnode */
t5=*((C_word*)lf[82]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_car(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k8523 in k8534 in foldr1888 in k8482 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8525(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_8525,c,av);}
a=C_alloc(9);
t2=C_a_i_list1(&a,1,t1);
t3=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
/* optimizer.scm:1134: chicken.compiler.support#make-node */
t4=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[26];
av2[3]=t2;
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k8534 in foldr1888 in k8482 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8536(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8536,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8525,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1134: chicken.base#gensym */
t3=*((C_word*)lf[115]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k8553 in foldr1888 in k8482 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_8555,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1135: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8596 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8598(C_word c,C_word *av){
C_word tmp;
C_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,2)))){
C_save_and_reclaim((void *)f_8598,c,av);}
a=C_alloc(13);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_a_i_list2(&a,2,C_SCHEME_FALSE,t2);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8613,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1145: chicken.compiler.support#varnode */
t5=*((C_word*)lf[82]+1);{
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_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k8611 in k8596 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8613(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_8613,c,av);}
a=C_alloc(8);
t2=C_i_car(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8621,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
/* optimizer.scm:1148: chicken.compiler.support#qnode */
t4=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_cadr(((C_word*)t0)[6]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k8619 in k8611 in k8596 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8621(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_8621,c,av);}
a=C_alloc(15);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_a_i_list5(&a,5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,t2);
/* optimizer.scm:1144: chicken.compiler.support#make-node */
t4=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[6];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[7];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k8655 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8657(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(16,c,2)))){
C_save_and_reclaim((void *)f_8657,c,av);}
a=C_alloc(16);
if(C_truep(t1)){
t2=C_i_length(((C_word*)t0)[2]);
t3=C_eqp(C_fix(1),t2);
if(C_truep(t3)){
t4=C_i_caddr(((C_word*)t0)[3]);
t5=C_i_not(t4);
t6=(C_truep(t5)?t5:C_eqp(t4,*((C_word*)lf[232]+1)));
if(C_truep(t6)){
t7=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8690,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t7,tmp=(C_word)a,a+=5,tmp);
t9=C_i_car(((C_word*)t0)[3]);
t10=C_a_i_list1(&a,1,t9);
t11=C_i_car(((C_word*)t0)[2]);
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8706,a[2]=t11,a[3]=t8,a[4]=t10,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1163: chicken.compiler.support#qnode */
t13=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t13;
av2[1]=t12;
av2[2]=C_i_cadr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}
else{
t7=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k8688 in k8655 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8690(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8690,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1159: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8704 in k8655 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8706(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8706,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1161: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[58];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8750 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8752(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){
C_save_and_reclaim((void *)f_8752,c,av);}
a=C_alloc(18);
if(C_truep(t1)){
t2=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8767,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_i_car(((C_word*)t0)[4]);
t5=C_a_i_list1(&a,1,t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8779,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t7=C_i_cadr(((C_word*)t0)[4]);
t8=C_a_i_list1(&a,1,t7);
/* optimizer.scm:1174: chicken.compiler.support#make-node */
t9=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=t6;
av2[2]=lf[58];
av2[3]=t8;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k8765 in k8750 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8767(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8767,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1171: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8777 in k8750 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8779(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8779,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* optimizer.scm:1173: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[58];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8824 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8826(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(19,c,2)))){
C_save_and_reclaim((void *)f_8826,c,av);}
a=C_alloc(19);
if(C_truep(t1)){
t2=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8841,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_i_cadr(((C_word*)t0)[4]);
t5=C_a_i_list1(&a,1,t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8849,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8857,a[2]=t6,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
/* optimizer.scm:1187: chicken.compiler.support#qnode */
t8=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=C_i_caddr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k8839 in k8824 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8841(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8841,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1183: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8847 in k8824 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8849(C_word c,C_word *av){
C_word tmp;
C_word 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_8849,c,av);}
/* optimizer.scm:1185: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[58];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k8855 in k8824 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8857(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8857,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* optimizer.scm:1186: scheme#append */
t3=*((C_word*)lf[7]+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);}}

/* k8886 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8888(C_word c,C_word *av){
C_word tmp;
C_word 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_8888,c,av);}
if(C_truep(t1)){
/* optimizer.scm:1191: g1927 */
t2=C_i_car(((C_word*)t0)[2]);{
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)[2];
av2[4]=((C_word*)t0)[5];
av2[5]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k8907 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(8,c,2)))){
C_save_and_reclaim((void *)f_8909,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=C_i_length(((C_word*)t0)[2]);
if(C_truep(C_fixnum_lessp(t2,C_fix(2)))){
t3=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8930,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1201: chicken.compiler.support#qnode */
t5=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t3=(C_truep(*((C_word*)lf[231]+1))?C_i_not(C_eqp(*((C_word*)lf[232]+1),lf[233])):C_SCHEME_FALSE);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8939,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
if(C_truep(t3)){
t5=t4;
f_8939(t5,t3);}
else{
t5=C_eqp(*((C_word*)lf[232]+1),lf[234]);
t6=(C_truep(t5)?C_i_caddr(((C_word*)t0)[5]):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t4;
f_8939(t7,t6);}
else{
t7=C_eqp(*((C_word*)lf[232]+1),lf[236]);
t8=t4;
f_8939(t8,(C_truep(t7)?C_i_cadddr(((C_word*)t0)[5]):C_SCHEME_FALSE));}}}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k8928 in k8907 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8930(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8930,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1201: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8937 in k8907 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_8939(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(18,0,3)))){
C_save_and_reclaim_args((void *)trf_8939,2,t0,t1);}
a=C_alloc(18);
if(C_truep(t1)){
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8950,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t7=C_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_9075,a[2]=t4,a[3]=t8,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t10=((C_word*)t8)[1];
f_9075(t10,t6,((C_word*)t0)[5]);}
else{
t2=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k8948 in k8937 in k8907 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8950(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,3)))){
C_save_and_reclaim((void *)f_8950,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_word*)lf[82]+1);
t7=C_i_check_list_2(t1,lf[8]);
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8959,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
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_9041,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_9041(t12,t8,t1);}

/* k8957 in k8948 in k8937 in k8907 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8959(C_word c,C_word *av){
C_word tmp;
C_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,4)))){
C_save_and_reclaim((void *)f_8959,c,av);}
a=C_alloc(8);
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|5,a[1]=(C_word)f_8964,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp));
t5=((C_word*)t3)[1];
f_8964(t5,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}

/* loop in k8957 in k8948 in k8937 in k8907 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_8964(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(14,0,4)))){
C_save_and_reclaim_args((void *)trf_8964,4,t0,t1,t2,t3);}
a=C_alloc(14);
if(C_truep(C_i_nullp(t2))){
t4=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t5=C_eqp(*((C_word*)lf[232]+1),lf[234]);
t6=(C_truep(t5)?C_i_car(((C_word*)t0)[2]):C_i_cadr(((C_word*)t0)[2]));
t7=C_a_i_list1(&a,1,t6);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8989,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8991,a[2]=t7,tmp=(C_word)a,a+=3,tmp);
/* optimizer.scm:1218: chicken.compiler.support#fold-boolean */
t10=*((C_word*)lf[235]+1);{
C_word av2[4];
av2[0]=t10;
av2[1]=t8;
av2[2]=t9;
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}
else{
t4=C_i_car(t3);
t5=C_a_i_list1(&a,1,t4);
t6=C_i_car(t2);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9031,a[2]=t6,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1224: loop */
t11=t7;
t12=C_u_i_cdr(t2);
t13=C_u_i_cdr(t3);
t1=t11;
t2=t12;
t3=t13;
goto loop;}}

/* k8987 in loop in k8957 in k8948 in k8937 in k8907 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8989(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8989,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1210: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* a8990 in loop in k8957 in k8948 in k8937 in k8907 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_8991(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
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_8991,c,av);}
a=C_alloc(6);
t4=C_a_i_list2(&a,2,t2,t3);
/* optimizer.scm:1219: chicken.compiler.support#make-node */
t5=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=lf[58];
av2[3]=((C_word*)t0)[2];
av2[4]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k9029 in loop in k8957 in k8948 in k8937 in k8907 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9031(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9031,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1221: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[26];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* map-loop1972 in k8948 in k8937 in k8907 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_9041(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_9041,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_9066,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);
/* optimizer.scm:1206: g1978 */
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)(void*)(*((C_word*)t4+1)))(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);}}}

/* k9064 in map-loop1972 in k8948 in k8937 in k8907 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9066(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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_9066,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_9041(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* map-loop1944 in k8937 in k8907 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_9075(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_9075,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_9100,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);
/* optimizer.scm:1205: chicken.base#gensym */
t4=*((C_word*)lf[115]+1);{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9098 in map-loop1944 in k8937 in k8907 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9100,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_9075(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k9162 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_9164,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_i_length(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9173,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* optimizer.scm:1232: scheme#< */{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=t3;
av2[2]=C_fix(0);
av2[3]=t2;
av2[4]=C_fix(3);
C_lessp(5,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k9171 in k9162 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9173(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_9173,c,av);}
a=C_alloc(13);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_a_i_list2(&a,2,C_SCHEME_FALSE,t2);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9188,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1234: chicken.compiler.support#varnode */
t5=*((C_word*)lf[82]+1);{
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_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k9186 in k9171 in k9162 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9188(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_9188,c,av);}
a=C_alloc(9);
t2=C_i_car(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9196,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:1237: chicken.compiler.support#qnode */
t4=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_cadr(((C_word*)t0)[6]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k9194 in k9186 in k9171 in k9162 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9196(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_9196,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,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]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
t3=C_i_cdr(((C_word*)t0)[7]);
if(C_truep(C_i_nullp(t3))){
/* optimizer.scm:1239: chicken.compiler.support#varnode */
t4=*((C_word*)lf[82]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=C_i_caddr(((C_word*)t0)[8]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_cadr(((C_word*)t0)[7]);
f_9200(2,av2);}}}

/* k9198 in k9194 in k9186 in k9171 in k9162 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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 t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_9200,c,av);}
a=C_alloc(15);
t2=C_a_i_list5(&a,5,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);
/* optimizer.scm:1233: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[6];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[7];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k9251 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9253(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_9253,c,av);}
a=C_alloc(15);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_i_not(t2);
t4=(C_truep(t3)?t3:C_i_nequalp(C_i_length(((C_word*)t0)[3]),C_i_car(((C_word*)t0)[2])));
if(C_truep(t4)){
t5=C_i_cadr(((C_word*)t0)[2]);
t6=C_a_i_list2(&a,2,C_SCHEME_TRUE,t5);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9276,a[2]=((C_word*)t0)[4],a[3]=t6,tmp=(C_word)a,a+=4,tmp);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9280,a[2]=t7,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1252: chicken.compiler.support#varnode */
t9=*((C_word*)lf[82]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=C_i_cadr(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t5=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k9274 in k9251 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9276(C_word c,C_word *av){
C_word tmp;
C_word 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_9276,c,av);}
/* optimizer.scm:1251: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[30];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k9278 in k9251 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9280(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_9280,c,av);}
a=C_alloc(6);
/* optimizer.scm:1252: cons* */
f_3815(((C_word*)t0)[2],t1,C_a_i_list(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));}

/* k9312 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9314(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(15,c,4)))){
C_save_and_reclaim((void *)f_9314,c,av);}
a=C_alloc(15);
if(C_truep(t1)){
t2=C_i_cadr(((C_word*)t0)[2]);
t3=(C_truep(t2)?t2:*((C_word*)lf[231]+1));
if(C_truep(t3)){
t4=C_i_length(((C_word*)t0)[3]);
t5=C_i_caddr(((C_word*)t0)[2]);
if(C_truep(C_i_less_or_equalp(t4,t5))){
t6=C_eqp(t4,C_fix(1));
if(C_truep(t6)){
t7=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t8=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[3]);
/* optimizer.scm:1265: chicken.compiler.support#make-node */
t9=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=((C_word*)t0)[5];
av2[2]=lf[30];
av2[3]=t7;
av2[4]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
else{
t7=C_i_car(((C_word*)t0)[2]);
t8=C_a_i_list2(&a,2,C_SCHEME_TRUE,t7);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9360,a[2]=((C_word*)t0)[5],a[3]=t8,tmp=(C_word)a,a+=4,tmp);
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9364,a[2]=t9,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1267: chicken.compiler.support#varnode */
t11=*((C_word*)lf[82]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t11;
av2[1]=t10;
av2[2]=C_i_car(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}}
else{
t6=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k9358 in k9312 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9360(C_word c,C_word *av){
C_word tmp;
C_word 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_9360,c,av);}
/* optimizer.scm:1266: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[30];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k9362 in k9312 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9364(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_9364,c,av);}
a=C_alloc(6);
/* optimizer.scm:1267: cons* */
f_3815(((C_word*)t0)[2],t1,C_a_i_list(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));}

/* k9391 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9393(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_9393,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=C_i_caddr(((C_word*)t0)[2]);
t3=(C_truep(t2)?t2:*((C_word*)lf[231]+1));
if(C_truep(t3)){
t4=(
/* optimizer.scm:1276: argc-ok? */
  f_8217(((C_word*)t0)[3],C_i_car(((C_word*)t0)[2]))
);
if(C_truep(t4)){
t5=C_i_cadr(((C_word*)t0)[2]);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9418,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t5,tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[7]))){
t7=C_u_i_cdr(((C_word*)t0)[7]);
t8=t6;
f_9418(t8,C_a_i_cons(&a,2,C_SCHEME_TRUE,t7));}
else{
t7=t6;
f_9418(t7,((C_word*)t0)[7]);}}
else{
t5=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k9416 in k9391 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_9418(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(15,0,4)))){
C_save_and_reclaim_args((void *)trf_9418,2,t0,t1);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9422,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9426,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t4=C_a_i_list2(&a,2,((C_word*)t0)[5],C_SCHEME_TRUE);
/* optimizer.scm:1279: chicken.compiler.support#make-node */
t5=*((C_word*)lf[33]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[237];
av2[3]=t4;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k9420 in k9416 in k9391 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9422(C_word c,C_word *av){
C_word tmp;
C_word 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_9422,c,av);}
/* optimizer.scm:1278: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[30];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k9424 in k9416 in k9391 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9426(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_9426,c,av);}
a=C_alloc(6);
/* optimizer.scm:1279: cons* */
f_3815(((C_word*)t0)[2],t1,C_a_i_list(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));}

/* k9461 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9463(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(11,c,4)))){
C_save_and_reclaim((void *)f_9463,c,av);}
a=C_alloc(11);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_eqp(*((C_word*)lf[232]+1),t2);
if(C_truep(t3)){
t4=C_i_cadddr(((C_word*)t0)[2]);
t5=(C_truep(t4)?t4:*((C_word*)lf[231]+1));
if(C_truep(t5)){
t6=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9493,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t6,tmp=(C_word)a,a+=5,tmp);
t8=(C_truep(*((C_word*)lf[231]+1))?C_i_cadddr(((C_word*)t0)[2]):C_i_caddr(((C_word*)t0)[2]));
t9=C_a_i_list1(&a,1,t8);
/* optimizer.scm:1292: chicken.compiler.support#make-node */
t10=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t10;
av2[1]=t7;
av2[2]=lf[58];
av2[3]=t9;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}
else{
t6=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k9491 in k9461 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9493(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9493,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1289: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k9544 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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 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_9546,c,av);}
a=C_alloc(15);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_eqp(*((C_word*)lf[232]+1),t2);
if(C_truep(t3)){
t4=C_i_caddr(((C_word*)t0)[2]);
t5=C_a_i_list2(&a,2,C_SCHEME_TRUE,t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9563,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9567,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1306: chicken.compiler.support#varnode */
t8=*((C_word*)lf[82]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=C_i_caddr(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t4=C_i_cadr(((C_word*)t0)[2]);
t5=C_eqp(*((C_word*)lf[232]+1),t4);
if(C_truep(t5)){
t6=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t7=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]);
/* optimizer.scm:1308: chicken.compiler.support#make-node */
t8=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t8;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=t6;
av2[4]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}
else{
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k9561 in k9544 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_9563,c,av);}
/* optimizer.scm:1305: chicken.compiler.support#make-node */
t2=*((C_word*)lf[33]+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[30];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k9565 in k9544 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9567(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_9567,c,av);}
a=C_alloc(6);
/* optimizer.scm:1306: cons* */
f_3815(((C_word*)t0)[2],t1,C_a_i_list(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));}

/* k9645 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9647(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_9647,c,av);}
a=C_alloc(14);
if(C_truep(t1)){
t2=*((C_word*)lf[231]+1);
t3=(C_truep(*((C_word*)lf[231]+1))?*((C_word*)lf[231]+1):((C_word*)t0)[2]);
if(C_truep(t3)){
t4=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9668,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9676,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t5,a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
t7=(C_truep(((C_word*)t0)[8])?(C_truep(C_i_fixnum_positivep(((C_word*)t0)[6]))?C_fixnum_less_or_equal_p(((C_word*)t0)[6],C_fix(8)):C_SCHEME_FALSE):C_SCHEME_FALSE);
if(C_truep(t7)){
/* optimizer.scm:1336: chicken.string#conc */
t8=*((C_word*)lf[238]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t8;
av2[1]=t6;
av2[2]=C_i_cadr(((C_word*)t0)[9]);
av2[3]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
else{
t8=t6;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_i_cadr(((C_word*)t0)[9]);
f_9676(2,av2);}}}
else{
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k9666 in k9645 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9668(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9668,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1330: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k9674 in k9645 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9676(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(68,c,4)))){
C_save_and_reclaim((void *)f_9676,c,av);}
a=C_alloc(68);
t2=C_eqp(C_SCHEME_TRUE,((C_word*)t0)[2]);
if(C_truep(t2)){
t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1));
t4=C_a_i_list2(&a,2,t1,t3);
/* optimizer.scm:1333: chicken.compiler.support#make-node */
t5=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[120];
av2[3]=t4;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t3=C_u_i_car(((C_word*)t0)[2]);
t4=C_i_cadr(((C_word*)t0)[2]);
t5=C_s_a_i_times(&a,2,((C_word*)t0)[3],t4);
t6=C_s_a_i_plus(&a,2,t3,t5);
t7=C_a_i_list2(&a,2,t1,t6);
/* optimizer.scm:1333: chicken.compiler.support#make-node */
t8=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t8;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[120];
av2[3]=t7;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}
else{
t3=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
/* optimizer.scm:1333: chicken.compiler.support#make-node */
t4=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[120];
av2[3]=t3;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}}

/* k9757 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9759(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_9759,c,av);}
a=C_alloc(11);
if(C_truep(t1)){
t2=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9774,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(*((C_word*)lf[231]+1))){
t4=C_i_cddr(((C_word*)t0)[4]);
t5=C_i_pairp(t4);
t6=(C_truep(t5)?C_i_caddr(((C_word*)t0)[4]):C_i_cadr(((C_word*)t0)[4]));
t7=C_a_i_list1(&a,1,t6);
/* optimizer.scm:1352: chicken.compiler.support#make-node */
t8=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t8;
av2[1]=t3;
av2[2]=lf[58];
av2[3]=t7;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}
else{
t4=C_i_cadr(((C_word*)t0)[4]);
t5=C_a_i_list1(&a,1,t4);
/* optimizer.scm:1352: chicken.compiler.support#make-node */
t6=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t3;
av2[2]=lf[58];
av2[3]=t5;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k9772 in k9757 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9774(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9774,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1349: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k9825 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9827(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_9827,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9842,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* optimizer.scm:1363: chicken.compiler.support#qnode */
t4=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_car(((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_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k9840 in k9825 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9842(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9842,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1363: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k9859 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9861(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_9861,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=C_i_length(((C_word*)t0)[2]);
if(C_truep(C_fixnum_greaterp(t2,C_fix(2)))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9870,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);
/* optimizer.scm:1370: scheme#reverse */
t4=*((C_word*)lf[4]+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);}}
else{
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_14065(2,av2);}}}

/* k9868 in k9859 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9870(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(6,c,6)))){
C_save_and_reclaim((void *)f_9870,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
t3=C_i_cadr(t1);
t4=C_u_i_cdr(t1);
t5=C_u_i_cdr(t4);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9886,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_9886(t9,((C_word*)t0)[3],t2,t3,t5,((C_word*)t0)[4]);}

/* lp in k9868 in k9859 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_fcall f_9886(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_9886,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(10);
if(C_truep(C_i_nullp(t4))){
t6=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9908,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=t1,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1378: chicken.compiler.support#varnode */
t8=*((C_word*)lf[82]+1);{
C_word av2[3];
av2[0]=t8;
av2[1]=t7;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9911,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t5,a[7]=t2,a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp);
/* optimizer.scm:1379: chicken.base#gensym */
t7=*((C_word*)lf[115]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[240];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}

/* k9906 in lp in k9868 in k9859 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9908(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_9908,c,av);}
a=C_alloc(12);
t2=C_a_i_list4(&a,4,t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);
/* optimizer.scm:1376: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[5];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[6];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k9909 in lp in k9868 in k9859 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9911(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_9911,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9914,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* optimizer.scm:1380: chicken.base#gensym */
t3=*((C_word*)lf[115]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[239];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k9912 in k9909 in lp in k9868 in k9859 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9914(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(40,c,2)))){
C_save_and_reclaim((void *)f_9914,c,av);}
a=C_alloc(40);
t2=C_a_i_list1(&a,1,t1);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9929,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]=t1,tmp=(C_word)a,a+=8,tmp);
t4=C_a_i_list1(&a,1,((C_word*)t0)[6]);
t5=C_a_i_list4(&a,4,t1,C_SCHEME_TRUE,t4,C_fix(0));
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9955,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t7=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9967,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t6,a[5]=t7,a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1388: chicken.compiler.support#varnode */
t9=*((C_word*)lf[82]+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)[9];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}

/* k9927 in k9912 in k9909 in lp in k9868 in k9859 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9929(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9929,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9933,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_i_car(((C_word*)t0)[4]);
t4=C_u_i_cdr(((C_word*)t0)[4]);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9943,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
/* optimizer.scm:1392: chicken.compiler.support#varnode */
t6=*((C_word*)lf[82]+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)[7];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k9931 in k9927 in k9912 in k9909 in lp in k9868 in k9859 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9933(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9933,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* optimizer.scm:1381: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[26];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k9941 in k9927 in k9912 in k9909 in lp in k9868 in k9859 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9943(C_word c,C_word *av){
C_word tmp;
C_word 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_9943,c,av);}
/* optimizer.scm:1389: lp */
t2=((C_word*)((C_word*)t0)[2])[1];
f_9886(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);}

/* k9953 in k9912 in k9909 in lp in k9868 in k9859 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9955(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_9955,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* optimizer.scm:1384: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[29];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k9965 in k9912 in k9909 in lp in k9868 in k9859 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9967(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_9967,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9971,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);
/* optimizer.scm:1388: chicken.compiler.support#varnode */
t3=*((C_word*)lf[82]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k9969 in k9965 in k9912 in k9909 in lp in k9868 in k9859 in loop in k14048 in a14041 in k5025 in k4672 in k4668 in k4664 in k4660 in k3378 in k3375 in k3372 in k3369 in k3366 in k3363 */
static void C_ccall f_9971(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_9971,c,av);}
a=C_alloc(12);
t2=C_a_i_list4(&a,4,((C_word*)t0)[2],((C_word*)t0)[3],t1,((C_word*)t0)[4]);
/* optimizer.scm:1386: chicken.compiler.support#make-node */
t3=*((C_word*)lf[33]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[5];
av2[2]=lf[30];
av2[3]=((C_word*)t0)[6];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* toplevel */
static C_TLS int toplevel_initialized=0;

void C_ccall C_optimizer_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("optimizer"));
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_optimizer_toplevel,c,av);}
toplevel_initialized=1;
if(C_unlikely(!C_demand_2(1246))){
C_save(t1);
C_rereclaim2(1246*sizeof(C_word),1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,244);
lf[0]=C_h_intern(&lf[0],9, C_text("optimizer"));
lf[1]=C_h_intern(&lf[1],27, C_text("chicken.compiler.optimizer#"));
lf[4]=C_h_intern(&lf[4],14, C_text("scheme#reverse"));
lf[6]=C_h_intern(&lf[6],5, C_text("foldr"));
lf[7]=C_h_intern(&lf[7],13, C_text("scheme#append"));
lf[8]=C_h_intern(&lf[8],3, C_text("map"));
lf[10]=C_h_intern(&lf[10],12, C_text("scheme#null\077"));
lf[17]=C_h_intern(&lf[17],45, C_text("chicken.compiler.optimizer#eq-inline-operator"));
lf[18]=C_h_intern(&lf[18],52, C_text("chicken.compiler.optimizer#membership-test-operators"));
lf[19]=C_h_intern(&lf[19],50, C_text("chicken.compiler.optimizer#membership-unfold-limit"));
lf[20]=C_h_intern(&lf[20],54, C_text("chicken.compiler.optimizer#default-optimization-passes"));
lf[21]=C_h_intern(&lf[21],52, C_text("chicken.compiler.optimizer#scan-toplevel-assignments"));
lf[22]=C_h_intern(&lf[22],26, C_text("chicken.base#alist-update!"));
lf[23]=C_h_intern(&lf[23],8, C_text("for-each"));
lf[24]=C_h_intern(&lf[24],15, C_text("##core#variable"));
lf[25]=C_h_intern(&lf[25],2, C_text("if"));
lf[26]=C_h_intern(&lf[26],3, C_text("let"));
lf[27]=C_h_intern(&lf[27],20, C_text("chicken.base#butlast"));
lf[28]=C_h_intern(&lf[28],6, C_text("lambda"));
lf[29]=C_h_intern(&lf[29],13, C_text("##core#lambda"));
lf[30]=C_h_intern(&lf[30],11, C_text("##core#call"));
lf[31]=C_h_intern(&lf[31],4, C_text("set!"));
lf[32]=C_h_intern(&lf[32],35, C_text("chicken.compiler.support#copy-node!"));
lf[33]=C_h_intern(&lf[33],34, C_text("chicken.compiler.support#make-node"));
lf[34]=C_h_intern(&lf[34],16, C_text("##core#undefined"));
lf[35]=C_h_intern(&lf[35],34, C_text("chicken.compiler.support#debugging"));
lf[36]=C_h_intern(&lf[36],1, C_text("o"));
lf[37]=C_decode_literal(C_heaptop,C_text("\376B\000\000&dropping redundant toplevel assignment"));
lf[38]=C_h_intern(&lf[38],22, C_text("chicken.base#alist-ref"));
lf[39]=C_h_intern(&lf[39],11, C_text("##core#cond"));
lf[40]=C_h_intern(&lf[40],13, C_text("##core#switch"));
lf[41]=C_h_intern(&lf[41],35, C_text("chicken.compiler.support#node-class"));
lf[42]=C_h_intern(&lf[42],44, C_text("chicken.compiler.support#node-subexpressions"));
lf[43]=C_h_intern(&lf[43],40, C_text("chicken.compiler.support#node-parameters"));
lf[44]=C_h_intern(&lf[44],38, C_text("chicken.compiler.support#mark-variable"));
lf[45]=C_h_intern(&lf[45],23, C_text("##compiler#always-bound"));
lf[46]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014safe globals"));
lf[47]=C_h_intern(&lf[47],10, C_text("scheme#eq\077"));
lf[48]=C_h_intern(&lf[48],1, C_text("p"));
lf[49]=C_decode_literal(C_heaptop,C_text("\376B\000\000 scanning toplevel assignments..."));
lf[54]=C_h_intern(&lf[54],59, C_text("chicken.compiler.optimizer#perform-high-level-optimizations"));
lf[55]=C_h_intern(&lf[55],31, C_text("chicken.compiler.support#db-get"));
lf[56]=C_h_intern(&lf[56],35, C_text("chicken.compiler.support#match-node"));
lf[57]=C_h_intern(&lf[57],31, C_text("chicken.internal#hash-table-ref"));
lf[58]=C_h_intern(&lf[58],13, C_text("##core#inline"));
lf[59]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001o\376\003\000\000\002\376\001\000\000\001\001x\376\377\016"));
lf[60]=C_decode_literal(C_heaptop,C_text("\376B\000\000!known list op on rest arg sublist"));
lf[61]=C_h_intern(&lf[61],34, C_text("chicken.compiler.support#call-info"));
lf[62]=C_h_intern(&lf[62],8, C_text("assigned"));
lf[63]=C_h_intern(&lf[63],8, C_text("rest-cdr"));
lf[64]=C_h_intern(&lf[64],8, C_text("captured"));
lf[65]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_i_car"));
lf[66]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_u_i_car"));
lf[67]=C_h_intern(&lf[67],15, C_text("##core#rest-car"));
lf[68]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_i_cdr"));
lf[69]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_u_i_cdr"));
lf[70]=C_h_intern(&lf[70],15, C_text("##core#rest-cdr"));
lf[71]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_i_nullp"));
lf[72]=C_h_intern(&lf[72],17, C_text("##core#rest-null\077"));
lf[73]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\012C_i_length\376\003\000\000\002\376B\000\000\014C_u_i_length\376\377\016"));
lf[74]=C_h_intern(&lf[74],18, C_text("##core#rest-length"));
lf[75]=C_h_intern(&lf[75],5, C_text("quote"));
lf[76]=C_h_intern(&lf[76],30, C_text("chicken.compiler.support#qnode"));
lf[77]=C_h_intern(&lf[77],49, C_text("chicken.compiler.support#maybe-constant-fold-call"));
lf[78]=C_h_intern(&lf[78],32, C_text("chicken.compiler.support#db-put!"));
lf[79]=C_h_intern(&lf[79],10, C_text("replacable"));
lf[80]=C_h_intern(&lf[80],5, C_text("value"));
lf[81]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035substituted constant variable"));
lf[82]=C_h_intern(&lf[82],32, C_text("chicken.compiler.support#varnode"));
lf[83]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032propagated global variable"));
lf[84]=C_h_intern(&lf[84],2, C_text("no"));
lf[85]=C_h_intern(&lf[85],38, C_text("chicken.compiler.support#variable-mark"));
lf[86]=C_h_intern(&lf[86],17, C_text("##compiler#inline"));
lf[87]=C_h_intern(&lf[87],11, C_text("collapsable"));
lf[88]=C_h_intern(&lf[88],6, C_text("global"));
lf[89]=C_h_intern(&lf[89],9, C_text("replacing"));
lf[90]=C_h_intern(&lf[90],12, C_text("contractable"));
lf[91]=C_h_intern(&lf[91],9, C_text("removable"));
lf[92]=C_h_intern(&lf[92],6, C_text("unused"));
lf[93]=C_h_intern(&lf[93],42, C_text("chicken.compiler.support#build-lambda-list"));
lf[94]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047merged explicitly consed rest parameter"));
lf[95]=C_h_intern(&lf[95],13, C_text("explicit-rest"));
lf[96]=C_decode_literal(C_heaptop,C_text("\376B\000\000 removed unused formal parameters"));
lf[97]=C_h_intern(&lf[97],27, C_text("##sys#decompose-lambda-list"));
lf[98]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047merged explicitly consed rest parameter"));
lf[99]=C_h_intern(&lf[99],21, C_text("has-unused-parameters"));
lf[100]=C_h_intern(&lf[100],20, C_text("##core#direct_lambda"));
lf[101]=C_h_intern(&lf[101],13, C_text("inline-target"));
lf[102]=C_h_intern(&lf[102],47, C_text("chicken.compiler.support#inline-lambda-bindings"));
lf[103]=C_h_intern(&lf[103],17, C_text("chicken.base#void"));
lf[104]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024contracted procedure"));
lf[105]=C_h_intern(&lf[105],1, C_text("i"));
lf[106]=C_decode_literal(C_heaptop,C_text("\376B\000\000>not contracting procedure because argument list does not match"));
lf[107]=C_h_intern(&lf[107],40, C_text("chicken.compiler.support#check-signature"));
lf[108]=C_decode_literal(C_heaptop,C_text("\376B\000\0001removed call to pure procedure with unused result"));
lf[109]=C_decode_literal(C_heaptop,C_text("\376B\000\0008not inlining procedure because it refers to contractable"));
lf[110]=C_h_intern(&lf[110],20, C_text("chicken.base#call/cc"));
lf[111]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022inlining procedure"));
lf[112]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017global inlining"));
lf[113]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010inlining"));
lf[114]=C_decode_literal(C_heaptop,C_text("\376B\000\000;not inlining procedure because argument list does not match"));
lf[115]=C_h_intern(&lf[115],19, C_text("chicken.base#gensym"));
lf[116]=C_h_intern(&lf[116],1, C_text("t"));
lf[117]=C_h_intern(&lf[117],53, C_text("chicken.compiler.support#expression-has-side-effects\077"));
lf[118]=C_decode_literal(C_heaptop,C_text("\376B\000\000+removed unused parameter to known procedure"));
lf[119]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_a_i_list"));
lf[120]=C_h_intern(&lf[120],22, C_text("##core#inline_allocate"));
lf[121]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042consed rest parameter at call site"));
lf[122]=C_h_intern(&lf[122],37, C_text("chicken.compiler.support#llist-length"));
lf[123]=C_decode_literal(C_heaptop,C_text("\376B\000\000(not inlining as unroll-limit is exceeded"));
lf[124]=C_h_intern(&lf[124],9, C_text("inlinable"));
lf[125]=C_h_intern(&lf[125],30, C_text("chicken.compiler.support#node\077"));
lf[126]=C_h_intern(&lf[126],24, C_text("##compiler#inline-global"));
lf[127]=C_decode_literal(C_heaptop,C_text("\376B\000\000 inlining call to intrinsic alias"));
lf[128]=C_h_intern(&lf[128],35, C_text("chicken.compiler.support#intrinsic\077"));
lf[129]=C_h_intern(&lf[129],10, C_text("references"));
lf[130]=C_h_intern(&lf[130],7, C_text("unknown"));
lf[131]=C_h_intern(&lf[131],15, C_text("##compiler#pure"));
lf[132]=C_h_intern(&lf[132],11, C_text("local-value"));
lf[133]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034removing global contractable"));
lf[134]=C_decode_literal(C_heaptop,C_text("\376B\000\0006removed side-effect free assignment to unused variable"));
lf[135]=C_h_intern(&lf[135],16, C_text("inline-transient"));
lf[136]=C_h_intern(&lf[136],42, C_text("chicken.compiler.support#variable-visible\077"));
lf[137]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031removed conditional forms"));
lf[138]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025removed binding forms"));
lf[139]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022replaced variables"));
lf[140]=C_h_intern(&lf[140],18, C_text("chicken.base#print"));
lf[141]=C_h_intern(&lf[141],14, C_text("scheme#newline"));
lf[142]=C_h_intern(&lf[142],19, C_text("chicken.base#print\052"));
lf[143]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004    "));
lf[144]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027  call simplifications:"));
lf[145]=C_h_intern(&lf[145],46, C_text("chicken.compiler.support#with-debugging-output"));
lf[146]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017simplifications"));
lf[147]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022traversal phase..."));
lf[148]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023Removed `not\047 forms"));
lf[149]=C_h_intern(&lf[149],49, C_text("chicken.compiler.support#node-subexpressions-set!"));
lf[150]=C_h_intern(&lf[150],45, C_text("chicken.compiler.support#node-parameters-set!"));
lf[151]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\006\001\376\377\016"));
lf[152]=C_h_intern(&lf[152],36, C_text("chicken.compiler.support#db-get-list"));
lf[153]=C_h_intern(&lf[153],3, C_text("not"));
lf[154]=C_h_intern(&lf[154],10, C_text("call-sites"));
lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031pre-optimization phase..."));
lf[157]=C_h_intern(&lf[157],34, C_text("chicken.compiler.optimizer#rewrite"));
lf[158]=C_h_intern(&lf[158],32, C_text("chicken.internal#hash-table-set!"));
lf[159]=C_h_intern(&lf[159],52, C_text("chicken.compiler.optimizer#transform-direct-lambdas!"));
lf[160]=C_h_intern(&lf[160],26, C_text("##compiler#callback-lambda"));
lf[161]=C_h_intern(&lf[161],5, C_text("boxed"));
lf[162]=C_h_intern(&lf[162],44, C_text("chicken.compiler.support#scan-used-variables"));
lf[163]=C_h_intern(&lf[163],17, C_text("##core#inline_ref"));
lf[164]=C_h_intern(&lf[164],53, C_text("chicken.compiler.support#estimate-foreign-result-size"));
lf[165]=C_h_intern(&lf[165],21, C_text("##core#inline_loc_ref"));
lf[166]=C_h_intern(&lf[166],18, C_text("##core#direct_call"));
lf[167]=C_h_intern(&lf[167],39, C_text("chicken.compiler.support#quit-compiling"));
lf[168]=C_decode_literal(C_heaptop,C_text("\376B\000\000;known procedure called with wrong number of arguments: `~A\047"));
lf[169]=C_h_intern(&lf[169],40, C_text("chicken.compiler.support#node-class-set!"));
lf[170]=C_h_intern(&lf[170],14, C_text("##core#recurse"));
lf[171]=C_decode_literal(C_heaptop,C_text("\376B\000\000Gknown procedure called recursively with wrong number of arguments: `~A\047"));
lf[172]=C_decode_literal(C_heaptop,C_text("\376B\000\000Gknown procedure called recursively with wrong number of arguments: `~A\047"));
lf[173]=C_h_intern(&lf[173],29, C_text("chicken.compiler.support#bomb"));
lf[174]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014missing kvar"));
lf[175]=C_h_intern(&lf[175],13, C_text("##core#return"));
lf[176]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017bad call (leaf)"));
lf[177]=C_h_intern(&lf[177],13, C_text("scheme#cdaddr"));
lf[178]=C_h_intern(&lf[178],13, C_text("scheme#caaddr"));
lf[179]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026invalid parameter list"));
lf[180]=C_decode_literal(C_heaptop,C_text("\376B\000\0006direct leaf routine with hoistable closures/allocation"));
lf[181]=C_h_intern(&lf[181],18, C_text("##sys#make-promise"));
lf[182]=C_h_intern(&lf[182],10, C_text("##sys#list"));
lf[183]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036direct leaf routine/allocation"));
lf[184]=C_decode_literal(C_heaptop,C_text("\376B\000\000(direct leaf routine optimization pass..."));
lf[185]=C_h_intern(&lf[185],54, C_text("chicken.compiler.optimizer#determine-loop-and-dispatch"));
lf[186]=C_h_intern(&lf[186],18, C_text("##sys#dynamic-wind"));
lf[187]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\006\001\376\377\016"));
lf[188]=C_h_intern(&lf[188],2, C_text("f_"));
lf[189]=C_h_intern(&lf[189],1, C_text("x"));
lf[190]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012clustering"));
lf[191]=C_h_intern(&lf[191],1, C_text("a"));
lf[192]=C_h_intern(&lf[192],10, C_text("scheme#max"));
lf[193]=C_h_intern(&lf[193],1, C_text("k"));
lf[194]=C_h_intern(&lf[194],8, C_text("dispatch"));
lf[195]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027collecting clusters ..."));
lf[196]=C_h_intern(&lf[196],18, C_text("scheme#make-vector"));
lf[197]=C_h_intern(&lf[197],3, C_text("var"));
lf[198]=C_h_intern(&lf[198],2, C_text("d2"));
lf[199]=C_h_intern(&lf[199],1, C_text("y"));
lf[200]=C_h_intern(&lf[200],2, C_text("d3"));
lf[201]=C_h_intern(&lf[201],1, C_text("z"));
lf[202]=C_h_intern(&lf[202],2, C_text("d1"));
lf[203]=C_h_intern(&lf[203],2, C_text("op"));
lf[204]=C_h_intern(&lf[204],5, C_text("clist"));
lf[205]=C_h_intern(&lf[205],4, C_text("var1"));
lf[206]=C_h_intern(&lf[206],4, C_text("var0"));
lf[207]=C_h_intern(&lf[207],6, C_text("const1"));
lf[208]=C_h_intern(&lf[208],4, C_text("var2"));
lf[209]=C_h_intern(&lf[209],6, C_text("const2"));
lf[210]=C_h_intern(&lf[210],5, C_text("body2"));
lf[211]=C_h_intern(&lf[211],4, C_text("rest"));
lf[212]=C_h_intern(&lf[212],5, C_text("body1"));
lf[213]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\001\000\000\000\002\376\377\016"));
lf[214]=C_h_intern(&lf[214],35, C_text("chicken.compiler.support#immediate\077"));
lf[215]=C_h_intern(&lf[215],5, C_text("const"));
lf[216]=C_h_intern(&lf[216],1, C_text("n"));
lf[217]=C_h_intern(&lf[217],7, C_text("clauses"));
lf[218]=C_h_intern(&lf[218],1, C_text("d"));
lf[219]=C_h_intern(&lf[219],4, C_text("body"));
lf[220]=C_h_intern(&lf[220],4, C_text("more"));
lf[221]=C_decode_literal(C_heaptop,C_text("\376B\000\000!converted assignments to bindings"));
lf[222]=C_h_intern(&lf[222],29, C_text("chicken.sort#topological-sort"));
lf[223]=C_h_intern(&lf[223],4, C_text("args"));
lf[224]=C_h_intern(&lf[224],3, C_text("op1"));
lf[225]=C_h_intern(&lf[225],5, C_text("args1"));
lf[226]=C_h_intern(&lf[226],4, C_text("kvar"));
lf[227]=C_h_intern(&lf[227],3, C_text("op2"));
lf[228]=C_h_intern(&lf[228],5, C_text("args2"));
lf[229]=C_h_intern(&lf[229],1, C_text("b"));
lf[230]=C_h_intern(&lf[230],1, C_text("c"));
lf[231]=C_h_intern(&lf[231],31, C_text("chicken.compiler.support#unsafe"));
lf[232]=C_h_intern(&lf[232],36, C_text("chicken.compiler.support#number-type"));
lf[233]=C_h_intern(&lf[233],7, C_text("generic"));
lf[234]=C_h_intern(&lf[234],6, C_text("fixnum"));
lf[235]=C_h_intern(&lf[235],37, C_text("chicken.compiler.support#fold-boolean"));
lf[236]=C_h_intern(&lf[236],6, C_text("flonum"));
lf[237]=C_h_intern(&lf[237],11, C_text("##core#proc"));
lf[238]=C_h_intern(&lf[238],19, C_text("chicken.string#conc"));
lf[239]=C_h_intern(&lf[239],2, C_text("va"));
lf[240]=C_h_intern(&lf[240],1, C_text("r"));
lf[241]=C_h_intern(&lf[241],35, C_text("chicken.compiler.support#fold-inner"));
lf[242]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023bad type (optimize)"));
lf[243]=C_h_intern(&lf[243],27, C_text("chicken.base#make-parameter"));
C_register_lf2(lf,244,create_ptable());{}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3365,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_library_toplevel(2,av2);}}

#ifdef C_ENABLE_PTABLES
static C_PTABLE_ENTRY ptable[828] = {
{C_text("f_10013:optimizer_2escm"),(void*)f_10013},
{C_text("f_10028:optimizer_2escm"),(void*)f_10028},
{C_text("f_10036:optimizer_2escm"),(void*)f_10036},
{C_text("f_10038:optimizer_2escm"),(void*)f_10038},
{C_text("f_10046:optimizer_2escm"),(void*)f_10046},
{C_text("f_10058:optimizer_2escm"),(void*)f_10058},
{C_text("f_10085:optimizer_2escm"),(void*)f_10085},
{C_text("f_10100:optimizer_2escm"),(void*)f_10100},
{C_text("f_10121:optimizer_2escm"),(void*)f_10121},
{C_text("f_10157:optimizer_2escm"),(void*)f_10157},
{C_text("f_10159:optimizer_2escm"),(void*)f_10159},
{C_text("f_10194:optimizer_2escm"),(void*)f_10194},
{C_text("f_10216:optimizer_2escm"),(void*)f_10216},
{C_text("f_10220:optimizer_2escm"),(void*)f_10220},
{C_text("f_10256:optimizer_2escm"),(void*)f_10256},
{C_text("f_10280:optimizer_2escm"),(void*)f_10280},
{C_text("f_10320:optimizer_2escm"),(void*)f_10320},
{C_text("f_10340:optimizer_2escm"),(void*)f_10340},
{C_text("f_10344:optimizer_2escm"),(void*)f_10344},
{C_text("f_10348:optimizer_2escm"),(void*)f_10348},
{C_text("f_10350:optimizer_2escm"),(void*)f_10350},
{C_text("f_10356:optimizer_2escm"),(void*)f_10356},
{C_text("f_10364:optimizer_2escm"),(void*)f_10364},
{C_text("f_10370:optimizer_2escm"),(void*)f_10370},
{C_text("f_10390:optimizer_2escm"),(void*)f_10390},
{C_text("f_10394:optimizer_2escm"),(void*)f_10394},
{C_text("f_10417:optimizer_2escm"),(void*)f_10417},
{C_text("f_10490:optimizer_2escm"),(void*)f_10490},
{C_text("f_10493:optimizer_2escm"),(void*)f_10493},
{C_text("f_10497:optimizer_2escm"),(void*)f_10497},
{C_text("f_10500:optimizer_2escm"),(void*)f_10500},
{C_text("f_10503:optimizer_2escm"),(void*)f_10503},
{C_text("f_10518:optimizer_2escm"),(void*)f_10518},
{C_text("f_10549:optimizer_2escm"),(void*)f_10549},
{C_text("f_10555:optimizer_2escm"),(void*)f_10555},
{C_text("f_10561:optimizer_2escm"),(void*)f_10561},
{C_text("f_10609:optimizer_2escm"),(void*)f_10609},
{C_text("f_10617:optimizer_2escm"),(void*)f_10617},
{C_text("f_10621:optimizer_2escm"),(void*)f_10621},
{C_text("f_10647:optimizer_2escm"),(void*)f_10647},
{C_text("f_10663:optimizer_2escm"),(void*)f_10663},
{C_text("f_10675:optimizer_2escm"),(void*)f_10675},
{C_text("f_10685:optimizer_2escm"),(void*)f_10685},
{C_text("f_10704:optimizer_2escm"),(void*)f_10704},
{C_text("f_10707:optimizer_2escm"),(void*)f_10707},
{C_text("f_10711:optimizer_2escm"),(void*)f_10711},
{C_text("f_10714:optimizer_2escm"),(void*)f_10714},
{C_text("f_10717:optimizer_2escm"),(void*)f_10717},
{C_text("f_10756:optimizer_2escm"),(void*)f_10756},
{C_text("f_10774:optimizer_2escm"),(void*)f_10774},
{C_text("f_10790:optimizer_2escm"),(void*)f_10790},
{C_text("f_10811:optimizer_2escm"),(void*)f_10811},
{C_text("f_10845:optimizer_2escm"),(void*)f_10845},
{C_text("f_10861:optimizer_2escm"),(void*)f_10861},
{C_text("f_10865:optimizer_2escm"),(void*)f_10865},
{C_text("f_10870:optimizer_2escm"),(void*)f_10870},
{C_text("f_10900:optimizer_2escm"),(void*)f_10900},
{C_text("f_10904:optimizer_2escm"),(void*)f_10904},
{C_text("f_10909:optimizer_2escm"),(void*)f_10909},
{C_text("f_10951:optimizer_2escm"),(void*)f_10951},
{C_text("f_10956:optimizer_2escm"),(void*)f_10956},
{C_text("f_10993:optimizer_2escm"),(void*)f_10993},
{C_text("f_10997:optimizer_2escm"),(void*)f_10997},
{C_text("f_11004:optimizer_2escm"),(void*)f_11004},
{C_text("f_11008:optimizer_2escm"),(void*)f_11008},
{C_text("f_11036:optimizer_2escm"),(void*)f_11036},
{C_text("f_11069:optimizer_2escm"),(void*)f_11069},
{C_text("f_11080:optimizer_2escm"),(void*)f_11080},
{C_text("f_11093:optimizer_2escm"),(void*)f_11093},
{C_text("f_11126:optimizer_2escm"),(void*)f_11126},
{C_text("f_11133:optimizer_2escm"),(void*)f_11133},
{C_text("f_11135:optimizer_2escm"),(void*)f_11135},
{C_text("f_11139:optimizer_2escm"),(void*)f_11139},
{C_text("f_11143:optimizer_2escm"),(void*)f_11143},
{C_text("f_11149:optimizer_2escm"),(void*)f_11149},
{C_text("f_11155:optimizer_2escm"),(void*)f_11155},
{C_text("f_11161:optimizer_2escm"),(void*)f_11161},
{C_text("f_11164:optimizer_2escm"),(void*)f_11164},
{C_text("f_11170:optimizer_2escm"),(void*)f_11170},
{C_text("f_11173:optimizer_2escm"),(void*)f_11173},
{C_text("f_11174:optimizer_2escm"),(void*)f_11174},
{C_text("f_11181:optimizer_2escm"),(void*)f_11181},
{C_text("f_11184:optimizer_2escm"),(void*)f_11184},
{C_text("f_11190:optimizer_2escm"),(void*)f_11190},
{C_text("f_11205:optimizer_2escm"),(void*)f_11205},
{C_text("f_11247:optimizer_2escm"),(void*)f_11247},
{C_text("f_11253:optimizer_2escm"),(void*)f_11253},
{C_text("f_11262:optimizer_2escm"),(void*)f_11262},
{C_text("f_11265:optimizer_2escm"),(void*)f_11265},
{C_text("f_11271:optimizer_2escm"),(void*)f_11271},
{C_text("f_11274:optimizer_2escm"),(void*)f_11274},
{C_text("f_11282:optimizer_2escm"),(void*)f_11282},
{C_text("f_11289:optimizer_2escm"),(void*)f_11289},
{C_text("f_11293:optimizer_2escm"),(void*)f_11293},
{C_text("f_11301:optimizer_2escm"),(void*)f_11301},
{C_text("f_11306:optimizer_2escm"),(void*)f_11306},
{C_text("f_11329:optimizer_2escm"),(void*)f_11329},
{C_text("f_11356:optimizer_2escm"),(void*)f_11356},
{C_text("f_11360:optimizer_2escm"),(void*)f_11360},
{C_text("f_11364:optimizer_2escm"),(void*)f_11364},
{C_text("f_11368:optimizer_2escm"),(void*)f_11368},
{C_text("f_11372:optimizer_2escm"),(void*)f_11372},
{C_text("f_11389:optimizer_2escm"),(void*)f_11389},
{C_text("f_11398:optimizer_2escm"),(void*)f_11398},
{C_text("f_11408:optimizer_2escm"),(void*)f_11408},
{C_text("f_11421:optimizer_2escm"),(void*)f_11421},
{C_text("f_11432:optimizer_2escm"),(void*)f_11432},
{C_text("f_11434:optimizer_2escm"),(void*)f_11434},
{C_text("f_11448:optimizer_2escm"),(void*)f_11448},
{C_text("f_11452:optimizer_2escm"),(void*)f_11452},
{C_text("f_11455:optimizer_2escm"),(void*)f_11455},
{C_text("f_11458:optimizer_2escm"),(void*)f_11458},
{C_text("f_11473:optimizer_2escm"),(void*)f_11473},
{C_text("f_11476:optimizer_2escm"),(void*)f_11476},
{C_text("f_11501:optimizer_2escm"),(void*)f_11501},
{C_text("f_11504:optimizer_2escm"),(void*)f_11504},
{C_text("f_11507:optimizer_2escm"),(void*)f_11507},
{C_text("f_11540:optimizer_2escm"),(void*)f_11540},
{C_text("f_11550:optimizer_2escm"),(void*)f_11550},
{C_text("f_11553:optimizer_2escm"),(void*)f_11553},
{C_text("f_11556:optimizer_2escm"),(void*)f_11556},
{C_text("f_11559:optimizer_2escm"),(void*)f_11559},
{C_text("f_11570:optimizer_2escm"),(void*)f_11570},
{C_text("f_11582:optimizer_2escm"),(void*)f_11582},
{C_text("f_11590:optimizer_2escm"),(void*)f_11590},
{C_text("f_11609:optimizer_2escm"),(void*)f_11609},
{C_text("f_11632:optimizer_2escm"),(void*)f_11632},
{C_text("f_11635:optimizer_2escm"),(void*)f_11635},
{C_text("f_11657:optimizer_2escm"),(void*)f_11657},
{C_text("f_11682:optimizer_2escm"),(void*)f_11682},
{C_text("f_11697:optimizer_2escm"),(void*)f_11697},
{C_text("f_11707:optimizer_2escm"),(void*)f_11707},
{C_text("f_11726:optimizer_2escm"),(void*)f_11726},
{C_text("f_11736:optimizer_2escm"),(void*)f_11736},
{C_text("f_11755:optimizer_2escm"),(void*)f_11755},
{C_text("f_11795:optimizer_2escm"),(void*)f_11795},
{C_text("f_11797:optimizer_2escm"),(void*)f_11797},
{C_text("f_11805:optimizer_2escm"),(void*)f_11805},
{C_text("f_11807:optimizer_2escm"),(void*)f_11807},
{C_text("f_11817:optimizer_2escm"),(void*)f_11817},
{C_text("f_11820:optimizer_2escm"),(void*)f_11820},
{C_text("f_11822:optimizer_2escm"),(void*)f_11822},
{C_text("f_11825:optimizer_2escm"),(void*)f_11825},
{C_text("f_11869:optimizer_2escm"),(void*)f_11869},
{C_text("f_11873:optimizer_2escm"),(void*)f_11873},
{C_text("f_11875:optimizer_2escm"),(void*)f_11875},
{C_text("f_11879:optimizer_2escm"),(void*)f_11879},
{C_text("f_11882:optimizer_2escm"),(void*)f_11882},
{C_text("f_11885:optimizer_2escm"),(void*)f_11885},
{C_text("f_11906:optimizer_2escm"),(void*)f_11906},
{C_text("f_11920:optimizer_2escm"),(void*)f_11920},
{C_text("f_11937:optimizer_2escm"),(void*)f_11937},
{C_text("f_11989:optimizer_2escm"),(void*)f_11989},
{C_text("f_11993:optimizer_2escm"),(void*)f_11993},
{C_text("f_11997:optimizer_2escm"),(void*)f_11997},
{C_text("f_12001:optimizer_2escm"),(void*)f_12001},
{C_text("f_12005:optimizer_2escm"),(void*)f_12005},
{C_text("f_12009:optimizer_2escm"),(void*)f_12009},
{C_text("f_12019:optimizer_2escm"),(void*)f_12019},
{C_text("f_12037:optimizer_2escm"),(void*)f_12037},
{C_text("f_12043:optimizer_2escm"),(void*)f_12043},
{C_text("f_12050:optimizer_2escm"),(void*)f_12050},
{C_text("f_12060:optimizer_2escm"),(void*)f_12060},
{C_text("f_12069:optimizer_2escm"),(void*)f_12069},
{C_text("f_12081:optimizer_2escm"),(void*)f_12081},
{C_text("f_12091:optimizer_2escm"),(void*)f_12091},
{C_text("f_12114:optimizer_2escm"),(void*)f_12114},
{C_text("f_12117:optimizer_2escm"),(void*)f_12117},
{C_text("f_12118:optimizer_2escm"),(void*)f_12118},
{C_text("f_12126:optimizer_2escm"),(void*)f_12126},
{C_text("f_12129:optimizer_2escm"),(void*)f_12129},
{C_text("f_12133:optimizer_2escm"),(void*)f_12133},
{C_text("f_12143:optimizer_2escm"),(void*)f_12143},
{C_text("f_12155:optimizer_2escm"),(void*)f_12155},
{C_text("f_12160:optimizer_2escm"),(void*)f_12160},
{C_text("f_12169:optimizer_2escm"),(void*)f_12169},
{C_text("f_12176:optimizer_2escm"),(void*)f_12176},
{C_text("f_12180:optimizer_2escm"),(void*)f_12180},
{C_text("f_12182:optimizer_2escm"),(void*)f_12182},
{C_text("f_12207:optimizer_2escm"),(void*)f_12207},
{C_text("f_12218:optimizer_2escm"),(void*)f_12218},
{C_text("f_12222:optimizer_2escm"),(void*)f_12222},
{C_text("f_12228:optimizer_2escm"),(void*)f_12228},
{C_text("f_12231:optimizer_2escm"),(void*)f_12231},
{C_text("f_12234:optimizer_2escm"),(void*)f_12234},
{C_text("f_12237:optimizer_2escm"),(void*)f_12237},
{C_text("f_12240:optimizer_2escm"),(void*)f_12240},
{C_text("f_12243:optimizer_2escm"),(void*)f_12243},
{C_text("f_12244:optimizer_2escm"),(void*)f_12244},
{C_text("f_12248:optimizer_2escm"),(void*)f_12248},
{C_text("f_12249:optimizer_2escm"),(void*)f_12249},
{C_text("f_12263:optimizer_2escm"),(void*)f_12263},
{C_text("f_12267:optimizer_2escm"),(void*)f_12267},
{C_text("f_12271:optimizer_2escm"),(void*)f_12271},
{C_text("f_12275:optimizer_2escm"),(void*)f_12275},
{C_text("f_12279:optimizer_2escm"),(void*)f_12279},
{C_text("f_12283:optimizer_2escm"),(void*)f_12283},
{C_text("f_12291:optimizer_2escm"),(void*)f_12291},
{C_text("f_12301:optimizer_2escm"),(void*)f_12301},
{C_text("f_12313:optimizer_2escm"),(void*)f_12313},
{C_text("f_12321:optimizer_2escm"),(void*)f_12321},
{C_text("f_12331:optimizer_2escm"),(void*)f_12331},
{C_text("f_12351:optimizer_2escm"),(void*)f_12351},
{C_text("f_12361:optimizer_2escm"),(void*)f_12361},
{C_text("f_12374:optimizer_2escm"),(void*)f_12374},
{C_text("f_12384:optimizer_2escm"),(void*)f_12384},
{C_text("f_12394:optimizer_2escm"),(void*)f_12394},
{C_text("f_12406:optimizer_2escm"),(void*)f_12406},
{C_text("f_12410:optimizer_2escm"),(void*)f_12410},
{C_text("f_12422:optimizer_2escm"),(void*)f_12422},
{C_text("f_12426:optimizer_2escm"),(void*)f_12426},
{C_text("f_12430:optimizer_2escm"),(void*)f_12430},
{C_text("f_12434:optimizer_2escm"),(void*)f_12434},
{C_text("f_12438:optimizer_2escm"),(void*)f_12438},
{C_text("f_12442:optimizer_2escm"),(void*)f_12442},
{C_text("f_12450:optimizer_2escm"),(void*)f_12450},
{C_text("f_12452:optimizer_2escm"),(void*)f_12452},
{C_text("f_12468:optimizer_2escm"),(void*)f_12468},
{C_text("f_12480:optimizer_2escm"),(void*)f_12480},
{C_text("f_12488:optimizer_2escm"),(void*)f_12488},
{C_text("f_12496:optimizer_2escm"),(void*)f_12496},
{C_text("f_12504:optimizer_2escm"),(void*)f_12504},
{C_text("f_12506:optimizer_2escm"),(void*)f_12506},
{C_text("f_12514:optimizer_2escm"),(void*)f_12514},
{C_text("f_12518:optimizer_2escm"),(void*)f_12518},
{C_text("f_12524:optimizer_2escm"),(void*)f_12524},
{C_text("f_12549:optimizer_2escm"),(void*)f_12549},
{C_text("f_12553:optimizer_2escm"),(void*)f_12553},
{C_text("f_12573:optimizer_2escm"),(void*)f_12573},
{C_text("f_12579:optimizer_2escm"),(void*)f_12579},
{C_text("f_12583:optimizer_2escm"),(void*)f_12583},
{C_text("f_12596:optimizer_2escm"),(void*)f_12596},
{C_text("f_12600:optimizer_2escm"),(void*)f_12600},
{C_text("f_12604:optimizer_2escm"),(void*)f_12604},
{C_text("f_12608:optimizer_2escm"),(void*)f_12608},
{C_text("f_12615:optimizer_2escm"),(void*)f_12615},
{C_text("f_12617:optimizer_2escm"),(void*)f_12617},
{C_text("f_12653:optimizer_2escm"),(void*)f_12653},
{C_text("f_12659:optimizer_2escm"),(void*)f_12659},
{C_text("f_12682:optimizer_2escm"),(void*)f_12682},
{C_text("f_12684:optimizer_2escm"),(void*)f_12684},
{C_text("f_12718:optimizer_2escm"),(void*)f_12718},
{C_text("f_12743:optimizer_2escm"),(void*)f_12743},
{C_text("f_12756:optimizer_2escm"),(void*)f_12756},
{C_text("f_12765:optimizer_2escm"),(void*)f_12765},
{C_text("f_12775:optimizer_2escm"),(void*)f_12775},
{C_text("f_12804:optimizer_2escm"),(void*)f_12804},
{C_text("f_12826:optimizer_2escm"),(void*)f_12826},
{C_text("f_12844:optimizer_2escm"),(void*)f_12844},
{C_text("f_12852:optimizer_2escm"),(void*)f_12852},
{C_text("f_12854:optimizer_2escm"),(void*)f_12854},
{C_text("f_12862:optimizer_2escm"),(void*)f_12862},
{C_text("f_12874:optimizer_2escm"),(void*)f_12874},
{C_text("f_12878:optimizer_2escm"),(void*)f_12878},
{C_text("f_12886:optimizer_2escm"),(void*)f_12886},
{C_text("f_12890:optimizer_2escm"),(void*)f_12890},
{C_text("f_12901:optimizer_2escm"),(void*)f_12901},
{C_text("f_12920:optimizer_2escm"),(void*)f_12920},
{C_text("f_12924:optimizer_2escm"),(void*)f_12924},
{C_text("f_12950:optimizer_2escm"),(void*)f_12950},
{C_text("f_12965:optimizer_2escm"),(void*)f_12965},
{C_text("f_12969:optimizer_2escm"),(void*)f_12969},
{C_text("f_13031:optimizer_2escm"),(void*)f_13031},
{C_text("f_13046:optimizer_2escm"),(void*)f_13046},
{C_text("f_13063:optimizer_2escm"),(void*)f_13063},
{C_text("f_13069:optimizer_2escm"),(void*)f_13069},
{C_text("f_13082:optimizer_2escm"),(void*)f_13082},
{C_text("f_13111:optimizer_2escm"),(void*)f_13111},
{C_text("f_13117:optimizer_2escm"),(void*)f_13117},
{C_text("f_13130:optimizer_2escm"),(void*)f_13130},
{C_text("f_13164:optimizer_2escm"),(void*)f_13164},
{C_text("f_13191:optimizer_2escm"),(void*)f_13191},
{C_text("f_13212:optimizer_2escm"),(void*)f_13212},
{C_text("f_13216:optimizer_2escm"),(void*)f_13216},
{C_text("f_13224:optimizer_2escm"),(void*)f_13224},
{C_text("f_13230:optimizer_2escm"),(void*)f_13230},
{C_text("f_13243:optimizer_2escm"),(void*)f_13243},
{C_text("f_13272:optimizer_2escm"),(void*)f_13272},
{C_text("f_13278:optimizer_2escm"),(void*)f_13278},
{C_text("f_13291:optimizer_2escm"),(void*)f_13291},
{C_text("f_13295:optimizer_2escm"),(void*)f_13295},
{C_text("f_13349:optimizer_2escm"),(void*)f_13349},
{C_text("f_13373:optimizer_2escm"),(void*)f_13373},
{C_text("f_13386:optimizer_2escm"),(void*)f_13386},
{C_text("f_13394:optimizer_2escm"),(void*)f_13394},
{C_text("f_13432:optimizer_2escm"),(void*)f_13432},
{C_text("f_13442:optimizer_2escm"),(void*)f_13442},
{C_text("f_13446:optimizer_2escm"),(void*)f_13446},
{C_text("f_13449:optimizer_2escm"),(void*)f_13449},
{C_text("f_13452:optimizer_2escm"),(void*)f_13452},
{C_text("f_13482:optimizer_2escm"),(void*)f_13482},
{C_text("f_13485:optimizer_2escm"),(void*)f_13485},
{C_text("f_13488:optimizer_2escm"),(void*)f_13488},
{C_text("f_13518:optimizer_2escm"),(void*)f_13518},
{C_text("f_13545:optimizer_2escm"),(void*)f_13545},
{C_text("f_13549:optimizer_2escm"),(void*)f_13549},
{C_text("f_13552:optimizer_2escm"),(void*)f_13552},
{C_text("f_13555:optimizer_2escm"),(void*)f_13555},
{C_text("f_13561:optimizer_2escm"),(void*)f_13561},
{C_text("f_13584:optimizer_2escm"),(void*)f_13584},
{C_text("f_13599:optimizer_2escm"),(void*)f_13599},
{C_text("f_13607:optimizer_2escm"),(void*)f_13607},
{C_text("f_13609:optimizer_2escm"),(void*)f_13609},
{C_text("f_13659:optimizer_2escm"),(void*)f_13659},
{C_text("f_13667:optimizer_2escm"),(void*)f_13667},
{C_text("f_13675:optimizer_2escm"),(void*)f_13675},
{C_text("f_13683:optimizer_2escm"),(void*)f_13683},
{C_text("f_13711:optimizer_2escm"),(void*)f_13711},
{C_text("f_13719:optimizer_2escm"),(void*)f_13719},
{C_text("f_13745:optimizer_2escm"),(void*)f_13745},
{C_text("f_13758:optimizer_2escm"),(void*)f_13758},
{C_text("f_13775:optimizer_2escm"),(void*)f_13775},
{C_text("f_13779:optimizer_2escm"),(void*)f_13779},
{C_text("f_13783:optimizer_2escm"),(void*)f_13783},
{C_text("f_13794:optimizer_2escm"),(void*)f_13794},
{C_text("f_13798:optimizer_2escm"),(void*)f_13798},
{C_text("f_13872:optimizer_2escm"),(void*)f_13872},
{C_text("f_13885:optimizer_2escm"),(void*)f_13885},
{C_text("f_13891:optimizer_2escm"),(void*)f_13891},
{C_text("f_13914:optimizer_2escm"),(void*)f_13914},
{C_text("f_13918:optimizer_2escm"),(void*)f_13918},
{C_text("f_13922:optimizer_2escm"),(void*)f_13922},
{C_text("f_13931:optimizer_2escm"),(void*)f_13931},
{C_text("f_13940:optimizer_2escm"),(void*)f_13940},
{C_text("f_13944:optimizer_2escm"),(void*)f_13944},
{C_text("f_14042:optimizer_2escm"),(void*)f_14042},
{C_text("f_14050:optimizer_2escm"),(void*)f_14050},
{C_text("f_14055:optimizer_2escm"),(void*)f_14055},
{C_text("f_14065:optimizer_2escm"),(void*)f_14065},
{C_text("f_14069:optimizer_2escm"),(void*)f_14069},
{C_text("f_3365:optimizer_2escm"),(void*)f_3365},
{C_text("f_3368:optimizer_2escm"),(void*)f_3368},
{C_text("f_3371:optimizer_2escm"),(void*)f_3371},
{C_text("f_3374:optimizer_2escm"),(void*)f_3374},
{C_text("f_3377:optimizer_2escm"),(void*)f_3377},
{C_text("f_3380:optimizer_2escm"),(void*)f_3380},
{C_text("f_3388:optimizer_2escm"),(void*)f_3388},
{C_text("f_3402:optimizer_2escm"),(void*)f_3402},
{C_text("f_3406:optimizer_2escm"),(void*)f_3406},
{C_text("f_3412:optimizer_2escm"),(void*)f_3412},
{C_text("f_3490:optimizer_2escm"),(void*)f_3490},
{C_text("f_3508:optimizer_2escm"),(void*)f_3508},
{C_text("f_3542:optimizer_2escm"),(void*)f_3542},
{C_text("f_3548:optimizer_2escm"),(void*)f_3548},
{C_text("f_3562:optimizer_2escm"),(void*)f_3562},
{C_text("f_3581:optimizer_2escm"),(void*)f_3581},
{C_text("f_3596:optimizer_2escm"),(void*)f_3596},
{C_text("f_3604:optimizer_2escm"),(void*)f_3604},
{C_text("f_3612:optimizer_2escm"),(void*)f_3612},
{C_text("f_3623:optimizer_2escm"),(void*)f_3623},
{C_text("f_3636:optimizer_2escm"),(void*)f_3636},
{C_text("f_3643:optimizer_2escm"),(void*)f_3643},
{C_text("f_3650:optimizer_2escm"),(void*)f_3650},
{C_text("f_3654:optimizer_2escm"),(void*)f_3654},
{C_text("f_3666:optimizer_2escm"),(void*)f_3666},
{C_text("f_3668:optimizer_2escm"),(void*)f_3668},
{C_text("f_3715:optimizer_2escm"),(void*)f_3715},
{C_text("f_3717:optimizer_2escm"),(void*)f_3717},
{C_text("f_3751:optimizer_2escm"),(void*)f_3751},
{C_text("f_3757:optimizer_2escm"),(void*)f_3757},
{C_text("f_3779:optimizer_2escm"),(void*)f_3779},
{C_text("f_3785:optimizer_2escm"),(void*)f_3785},
{C_text("f_3791:optimizer_2escm"),(void*)f_3791},
{C_text("f_3801:optimizer_2escm"),(void*)f_3801},
{C_text("f_3815:optimizer_2escm"),(void*)f_3815},
{C_text("f_3821:optimizer_2escm"),(void*)f_3821},
{C_text("f_3835:optimizer_2escm"),(void*)f_3835},
{C_text("f_3871:optimizer_2escm"),(void*)f_3871},
{C_text("f_3877:optimizer_2escm"),(void*)f_3877},
{C_text("f_3890:optimizer_2escm"),(void*)f_3890},
{C_text("f_3904:optimizer_2escm"),(void*)f_3904},
{C_text("f_3912:optimizer_2escm"),(void*)f_3912},
{C_text("f_3952:optimizer_2escm"),(void*)f_3952},
{C_text("f_3966:optimizer_2escm"),(void*)f_3966},
{C_text("f_3979:optimizer_2escm"),(void*)f_3979},
{C_text("f_3991:optimizer_2escm"),(void*)f_3991},
{C_text("f_4000:optimizer_2escm"),(void*)f_4000},
{C_text("f_4008:optimizer_2escm"),(void*)f_4008},
{C_text("f_4015:optimizer_2escm"),(void*)f_4015},
{C_text("f_4029:optimizer_2escm"),(void*)f_4029},
{C_text("f_4044:optimizer_2escm"),(void*)f_4044},
{C_text("f_4052:optimizer_2escm"),(void*)f_4052},
{C_text("f_4056:optimizer_2escm"),(void*)f_4056},
{C_text("f_4060:optimizer_2escm"),(void*)f_4060},
{C_text("f_4078:optimizer_2escm"),(void*)f_4078},
{C_text("f_4117:optimizer_2escm"),(void*)f_4117},
{C_text("f_4157:optimizer_2escm"),(void*)f_4157},
{C_text("f_4216:optimizer_2escm"),(void*)f_4216},
{C_text("f_4393:optimizer_2escm"),(void*)f_4393},
{C_text("f_4399:optimizer_2escm"),(void*)f_4399},
{C_text("f_4413:optimizer_2escm"),(void*)f_4413},
{C_text("f_4417:optimizer_2escm"),(void*)f_4417},
{C_text("f_4429:optimizer_2escm"),(void*)f_4429},
{C_text("f_4447:optimizer_2escm"),(void*)f_4447},
{C_text("f_4662:optimizer_2escm"),(void*)f_4662},
{C_text("f_4666:optimizer_2escm"),(void*)f_4666},
{C_text("f_4670:optimizer_2escm"),(void*)f_4670},
{C_text("f_4674:optimizer_2escm"),(void*)f_4674},
{C_text("f_4676:optimizer_2escm"),(void*)f_4676},
{C_text("f_4679:optimizer_2escm"),(void*)f_4679},
{C_text("f_4702:optimizer_2escm"),(void*)f_4702},
{C_text("f_4707:optimizer_2escm"),(void*)f_4707},
{C_text("f_4709:optimizer_2escm"),(void*)f_4709},
{C_text("f_4714:optimizer_2escm"),(void*)f_4714},
{C_text("f_4716:optimizer_2escm"),(void*)f_4716},
{C_text("f_4732:optimizer_2escm"),(void*)f_4732},
{C_text("f_4742:optimizer_2escm"),(void*)f_4742},
{C_text("f_4755:optimizer_2escm"),(void*)f_4755},
{C_text("f_4759:optimizer_2escm"),(void*)f_4759},
{C_text("f_4762:optimizer_2escm"),(void*)f_4762},
{C_text("f_4765:optimizer_2escm"),(void*)f_4765},
{C_text("f_4777:optimizer_2escm"),(void*)f_4777},
{C_text("f_4781:optimizer_2escm"),(void*)f_4781},
{C_text("f_4783:optimizer_2escm"),(void*)f_4783},
{C_text("f_4825:optimizer_2escm"),(void*)f_4825},
{C_text("f_4828:optimizer_2escm"),(void*)f_4828},
{C_text("f_4851:optimizer_2escm"),(void*)f_4851},
{C_text("f_4862:optimizer_2escm"),(void*)f_4862},
{C_text("f_4866:optimizer_2escm"),(void*)f_4866},
{C_text("f_4899:optimizer_2escm"),(void*)f_4899},
{C_text("f_4902:optimizer_2escm"),(void*)f_4902},
{C_text("f_4905:optimizer_2escm"),(void*)f_4905},
{C_text("f_4923:optimizer_2escm"),(void*)f_4923},
{C_text("f_4930:optimizer_2escm"),(void*)f_4930},
{C_text("f_4973:optimizer_2escm"),(void*)f_4973},
{C_text("f_4976:optimizer_2escm"),(void*)f_4976},
{C_text("f_4979:optimizer_2escm"),(void*)f_4979},
{C_text("f_4992:optimizer_2escm"),(void*)f_4992},
{C_text("f_5002:optimizer_2escm"),(void*)f_5002},
{C_text("f_5023:optimizer_2escm"),(void*)f_5023},
{C_text("f_5027:optimizer_2escm"),(void*)f_5027},
{C_text("f_5032:optimizer_2escm"),(void*)f_5032},
{C_text("f_5035:optimizer_2escm"),(void*)f_5035},
{C_text("f_5049:optimizer_2escm"),(void*)f_5049},
{C_text("f_5059:optimizer_2escm"),(void*)f_5059},
{C_text("f_5061:optimizer_2escm"),(void*)f_5061},
{C_text("f_5065:optimizer_2escm"),(void*)f_5065},
{C_text("f_5079:optimizer_2escm"),(void*)f_5079},
{C_text("f_5102:optimizer_2escm"),(void*)f_5102},
{C_text("f_5106:optimizer_2escm"),(void*)f_5106},
{C_text("f_5109:optimizer_2escm"),(void*)f_5109},
{C_text("f_5117:optimizer_2escm"),(void*)f_5117},
{C_text("f_5127:optimizer_2escm"),(void*)f_5127},
{C_text("f_5133:optimizer_2escm"),(void*)f_5133},
{C_text("f_5172:optimizer_2escm"),(void*)f_5172},
{C_text("f_5186:optimizer_2escm"),(void*)f_5186},
{C_text("f_5188:optimizer_2escm"),(void*)f_5188},
{C_text("f_5228:optimizer_2escm"),(void*)f_5228},
{C_text("f_5230:optimizer_2escm"),(void*)f_5230},
{C_text("f_5237:optimizer_2escm"),(void*)f_5237},
{C_text("f_5249:optimizer_2escm"),(void*)f_5249},
{C_text("f_5279:optimizer_2escm"),(void*)f_5279},
{C_text("f_5301:optimizer_2escm"),(void*)f_5301},
{C_text("f_5311:optimizer_2escm"),(void*)f_5311},
{C_text("f_5323:optimizer_2escm"),(void*)f_5323},
{C_text("f_5327:optimizer_2escm"),(void*)f_5327},
{C_text("f_5331:optimizer_2escm"),(void*)f_5331},
{C_text("f_5335:optimizer_2escm"),(void*)f_5335},
{C_text("f_5339:optimizer_2escm"),(void*)f_5339},
{C_text("f_5343:optimizer_2escm"),(void*)f_5343},
{C_text("f_5347:optimizer_2escm"),(void*)f_5347},
{C_text("f_5351:optimizer_2escm"),(void*)f_5351},
{C_text("f_5376:optimizer_2escm"),(void*)f_5376},
{C_text("f_5380:optimizer_2escm"),(void*)f_5380},
{C_text("f_5382:optimizer_2escm"),(void*)f_5382},
{C_text("f_5396:optimizer_2escm"),(void*)f_5396},
{C_text("f_5399:optimizer_2escm"),(void*)f_5399},
{C_text("f_5402:optimizer_2escm"),(void*)f_5402},
{C_text("f_5405:optimizer_2escm"),(void*)f_5405},
{C_text("f_5465:optimizer_2escm"),(void*)f_5465},
{C_text("f_5478:optimizer_2escm"),(void*)f_5478},
{C_text("f_5482:optimizer_2escm"),(void*)f_5482},
{C_text("f_5489:optimizer_2escm"),(void*)f_5489},
{C_text("f_5520:optimizer_2escm"),(void*)f_5520},
{C_text("f_5524:optimizer_2escm"),(void*)f_5524},
{C_text("f_5528:optimizer_2escm"),(void*)f_5528},
{C_text("f_5532:optimizer_2escm"),(void*)f_5532},
{C_text("f_5535:optimizer_2escm"),(void*)f_5535},
{C_text("f_5540:optimizer_2escm"),(void*)f_5540},
{C_text("f_5544:optimizer_2escm"),(void*)f_5544},
{C_text("f_5547:optimizer_2escm"),(void*)f_5547},
{C_text("f_5550:optimizer_2escm"),(void*)f_5550},
{C_text("f_5559:optimizer_2escm"),(void*)f_5559},
{C_text("f_5565:optimizer_2escm"),(void*)f_5565},
{C_text("f_5571:optimizer_2escm"),(void*)f_5571},
{C_text("f_5582:optimizer_2escm"),(void*)f_5582},
{C_text("f_5586:optimizer_2escm"),(void*)f_5586},
{C_text("f_5609:optimizer_2escm"),(void*)f_5609},
{C_text("f_5619:optimizer_2escm"),(void*)f_5619},
{C_text("f_5622:optimizer_2escm"),(void*)f_5622},
{C_text("f_5639:optimizer_2escm"),(void*)f_5639},
{C_text("f_5672:optimizer_2escm"),(void*)f_5672},
{C_text("f_5675:optimizer_2escm"),(void*)f_5675},
{C_text("f_5690:optimizer_2escm"),(void*)f_5690},
{C_text("f_5698:optimizer_2escm"),(void*)f_5698},
{C_text("f_5708:optimizer_2escm"),(void*)f_5708},
{C_text("f_5710:optimizer_2escm"),(void*)f_5710},
{C_text("f_5735:optimizer_2escm"),(void*)f_5735},
{C_text("f_5745:optimizer_2escm"),(void*)f_5745},
{C_text("f_5756:optimizer_2escm"),(void*)f_5756},
{C_text("f_5774:optimizer_2escm"),(void*)f_5774},
{C_text("f_5782:optimizer_2escm"),(void*)f_5782},
{C_text("f_5792:optimizer_2escm"),(void*)f_5792},
{C_text("f_5799:optimizer_2escm"),(void*)f_5799},
{C_text("f_5817:optimizer_2escm"),(void*)f_5817},
{C_text("f_5822:optimizer_2escm"),(void*)f_5822},
{C_text("f_5828:optimizer_2escm"),(void*)f_5828},
{C_text("f_5834:optimizer_2escm"),(void*)f_5834},
{C_text("f_5840:optimizer_2escm"),(void*)f_5840},
{C_text("f_5847:optimizer_2escm"),(void*)f_5847},
{C_text("f_5862:optimizer_2escm"),(void*)f_5862},
{C_text("f_5882:optimizer_2escm"),(void*)f_5882},
{C_text("f_5889:optimizer_2escm"),(void*)f_5889},
{C_text("f_5892:optimizer_2escm"),(void*)f_5892},
{C_text("f_5909:optimizer_2escm"),(void*)f_5909},
{C_text("f_5914:optimizer_2escm"),(void*)f_5914},
{C_text("f_5921:optimizer_2escm"),(void*)f_5921},
{C_text("f_5936:optimizer_2escm"),(void*)f_5936},
{C_text("f_5956:optimizer_2escm"),(void*)f_5956},
{C_text("f_5990:optimizer_2escm"),(void*)f_5990},
{C_text("f_6002:optimizer_2escm"),(void*)f_6002},
{C_text("f_6005:optimizer_2escm"),(void*)f_6005},
{C_text("f_6012:optimizer_2escm"),(void*)f_6012},
{C_text("f_6015:optimizer_2escm"),(void*)f_6015},
{C_text("f_6024:optimizer_2escm"),(void*)f_6024},
{C_text("f_6027:optimizer_2escm"),(void*)f_6027},
{C_text("f_6031:optimizer_2escm"),(void*)f_6031},
{C_text("f_6041:optimizer_2escm"),(void*)f_6041},
{C_text("f_6048:optimizer_2escm"),(void*)f_6048},
{C_text("f_6056:optimizer_2escm"),(void*)f_6056},
{C_text("f_6058:optimizer_2escm"),(void*)f_6058},
{C_text("f_6068:optimizer_2escm"),(void*)f_6068},
{C_text("f_6082:optimizer_2escm"),(void*)f_6082},
{C_text("f_6091:optimizer_2escm"),(void*)f_6091},
{C_text("f_6094:optimizer_2escm"),(void*)f_6094},
{C_text("f_6097:optimizer_2escm"),(void*)f_6097},
{C_text("f_6116:optimizer_2escm"),(void*)f_6116},
{C_text("f_6122:optimizer_2escm"),(void*)f_6122},
{C_text("f_6125:optimizer_2escm"),(void*)f_6125},
{C_text("f_6133:optimizer_2escm"),(void*)f_6133},
{C_text("f_6140:optimizer_2escm"),(void*)f_6140},
{C_text("f_6146:optimizer_2escm"),(void*)f_6146},
{C_text("f_6152:optimizer_2escm"),(void*)f_6152},
{C_text("f_6155:optimizer_2escm"),(void*)f_6155},
{C_text("f_6156:optimizer_2escm"),(void*)f_6156},
{C_text("f_6166:optimizer_2escm"),(void*)f_6166},
{C_text("f_6169:optimizer_2escm"),(void*)f_6169},
{C_text("f_6174:optimizer_2escm"),(void*)f_6174},
{C_text("f_6177:optimizer_2escm"),(void*)f_6177},
{C_text("f_6181:optimizer_2escm"),(void*)f_6181},
{C_text("f_6188:optimizer_2escm"),(void*)f_6188},
{C_text("f_6191:optimizer_2escm"),(void*)f_6191},
{C_text("f_6213:optimizer_2escm"),(void*)f_6213},
{C_text("f_6215:optimizer_2escm"),(void*)f_6215},
{C_text("f_6225:optimizer_2escm"),(void*)f_6225},
{C_text("f_6247:optimizer_2escm"),(void*)f_6247},
{C_text("f_6256:optimizer_2escm"),(void*)f_6256},
{C_text("f_6270:optimizer_2escm"),(void*)f_6270},
{C_text("f_6287:optimizer_2escm"),(void*)f_6287},
{C_text("f_6297:optimizer_2escm"),(void*)f_6297},
{C_text("f_6300:optimizer_2escm"),(void*)f_6300},
{C_text("f_6305:optimizer_2escm"),(void*)f_6305},
{C_text("f_6330:optimizer_2escm"),(void*)f_6330},
{C_text("f_6341:optimizer_2escm"),(void*)f_6341},
{C_text("f_6345:optimizer_2escm"),(void*)f_6345},
{C_text("f_6351:optimizer_2escm"),(void*)f_6351},
{C_text("f_6357:optimizer_2escm"),(void*)f_6357},
{C_text("f_6363:optimizer_2escm"),(void*)f_6363},
{C_text("f_6378:optimizer_2escm"),(void*)f_6378},
{C_text("f_6382:optimizer_2escm"),(void*)f_6382},
{C_text("f_6394:optimizer_2escm"),(void*)f_6394},
{C_text("f_6444:optimizer_2escm"),(void*)f_6444},
{C_text("f_6456:optimizer_2escm"),(void*)f_6456},
{C_text("f_6461:optimizer_2escm"),(void*)f_6461},
{C_text("f_6467:optimizer_2escm"),(void*)f_6467},
{C_text("f_6471:optimizer_2escm"),(void*)f_6471},
{C_text("f_6478:optimizer_2escm"),(void*)f_6478},
{C_text("f_6483:optimizer_2escm"),(void*)f_6483},
{C_text("f_6493:optimizer_2escm"),(void*)f_6493},
{C_text("f_6495:optimizer_2escm"),(void*)f_6495},
{C_text("f_6520:optimizer_2escm"),(void*)f_6520},
{C_text("f_6531:optimizer_2escm"),(void*)f_6531},
{C_text("f_6539:optimizer_2escm"),(void*)f_6539},
{C_text("f_6568:optimizer_2escm"),(void*)f_6568},
{C_text("f_6581:optimizer_2escm"),(void*)f_6581},
{C_text("f_6599:optimizer_2escm"),(void*)f_6599},
{C_text("f_6605:optimizer_2escm"),(void*)f_6605},
{C_text("f_6611:optimizer_2escm"),(void*)f_6611},
{C_text("f_6636:optimizer_2escm"),(void*)f_6636},
{C_text("f_6640:optimizer_2escm"),(void*)f_6640},
{C_text("f_6644:optimizer_2escm"),(void*)f_6644},
{C_text("f_6650:optimizer_2escm"),(void*)f_6650},
{C_text("f_6653:optimizer_2escm"),(void*)f_6653},
{C_text("f_6660:optimizer_2escm"),(void*)f_6660},
{C_text("f_6674:optimizer_2escm"),(void*)f_6674},
{C_text("f_6694:optimizer_2escm"),(void*)f_6694},
{C_text("f_6698:optimizer_2escm"),(void*)f_6698},
{C_text("f_6705:optimizer_2escm"),(void*)f_6705},
{C_text("f_6720:optimizer_2escm"),(void*)f_6720},
{C_text("f_6738:optimizer_2escm"),(void*)f_6738},
{C_text("f_6741:optimizer_2escm"),(void*)f_6741},
{C_text("f_6751:optimizer_2escm"),(void*)f_6751},
{C_text("f_6753:optimizer_2escm"),(void*)f_6753},
{C_text("f_6772:optimizer_2escm"),(void*)f_6772},
{C_text("f_6778:optimizer_2escm"),(void*)f_6778},
{C_text("f_6788:optimizer_2escm"),(void*)f_6788},
{C_text("f_6792:optimizer_2escm"),(void*)f_6792},
{C_text("f_6802:optimizer_2escm"),(void*)f_6802},
{C_text("f_6806:optimizer_2escm"),(void*)f_6806},
{C_text("f_6812:optimizer_2escm"),(void*)f_6812},
{C_text("f_6819:optimizer_2escm"),(void*)f_6819},
{C_text("f_6832:optimizer_2escm"),(void*)f_6832},
{C_text("f_6840:optimizer_2escm"),(void*)f_6840},
{C_text("f_6844:optimizer_2escm"),(void*)f_6844},
{C_text("f_6850:optimizer_2escm"),(void*)f_6850},
{C_text("f_6860:optimizer_2escm"),(void*)f_6860},
{C_text("f_6864:optimizer_2escm"),(void*)f_6864},
{C_text("f_6882:optimizer_2escm"),(void*)f_6882},
{C_text("f_6885:optimizer_2escm"),(void*)f_6885},
{C_text("f_6894:optimizer_2escm"),(void*)f_6894},
{C_text("f_6901:optimizer_2escm"),(void*)f_6901},
{C_text("f_6903:optimizer_2escm"),(void*)f_6903},
{C_text("f_6928:optimizer_2escm"),(void*)f_6928},
{C_text("f_6961:optimizer_2escm"),(void*)f_6961},
{C_text("f_6967:optimizer_2escm"),(void*)f_6967},
{C_text("f_6973:optimizer_2escm"),(void*)f_6973},
{C_text("f_6982:optimizer_2escm"),(void*)f_6982},
{C_text("f_6994:optimizer_2escm"),(void*)f_6994},
{C_text("f_7000:optimizer_2escm"),(void*)f_7000},
{C_text("f_7006:optimizer_2escm"),(void*)f_7006},
{C_text("f_7015:optimizer_2escm"),(void*)f_7015},
{C_text("f_7017:optimizer_2escm"),(void*)f_7017},
{C_text("f_7027:optimizer_2escm"),(void*)f_7027},
{C_text("f_7041:optimizer_2escm"),(void*)f_7041},
{C_text("f_7042:optimizer_2escm"),(void*)f_7042},
{C_text("f_7059:optimizer_2escm"),(void*)f_7059},
{C_text("f_7083:optimizer_2escm"),(void*)f_7083},
{C_text("f_7093:optimizer_2escm"),(void*)f_7093},
{C_text("f_7112:optimizer_2escm"),(void*)f_7112},
{C_text("f_7120:optimizer_2escm"),(void*)f_7120},
{C_text("f_7124:optimizer_2escm"),(void*)f_7124},
{C_text("f_7131:optimizer_2escm"),(void*)f_7131},
{C_text("f_7135:optimizer_2escm"),(void*)f_7135},
{C_text("f_7152:optimizer_2escm"),(void*)f_7152},
{C_text("f_7158:optimizer_2escm"),(void*)f_7158},
{C_text("f_7168:optimizer_2escm"),(void*)f_7168},
{C_text("f_7178:optimizer_2escm"),(void*)f_7178},
{C_text("f_7184:optimizer_2escm"),(void*)f_7184},
{C_text("f_7212:optimizer_2escm"),(void*)f_7212},
{C_text("f_7218:optimizer_2escm"),(void*)f_7218},
{C_text("f_7222:optimizer_2escm"),(void*)f_7222},
{C_text("f_7225:optimizer_2escm"),(void*)f_7225},
{C_text("f_7228:optimizer_2escm"),(void*)f_7228},
{C_text("f_7231:optimizer_2escm"),(void*)f_7231},
{C_text("f_7234:optimizer_2escm"),(void*)f_7234},
{C_text("f_7237:optimizer_2escm"),(void*)f_7237},
{C_text("f_7266:optimizer_2escm"),(void*)f_7266},
{C_text("f_7270:optimizer_2escm"),(void*)f_7270},
{C_text("f_7275:optimizer_2escm"),(void*)f_7275},
{C_text("f_7303:optimizer_2escm"),(void*)f_7303},
{C_text("f_7313:optimizer_2escm"),(void*)f_7313},
{C_text("f_7341:optimizer_2escm"),(void*)f_7341},
{C_text("f_7381:optimizer_2escm"),(void*)f_7381},
{C_text("f_7385:optimizer_2escm"),(void*)f_7385},
{C_text("f_7392:optimizer_2escm"),(void*)f_7392},
{C_text("f_7395:optimizer_2escm"),(void*)f_7395},
{C_text("f_7398:optimizer_2escm"),(void*)f_7398},
{C_text("f_7407:optimizer_2escm"),(void*)f_7407},
{C_text("f_7408:optimizer_2escm"),(void*)f_7408},
{C_text("f_7415:optimizer_2escm"),(void*)f_7415},
{C_text("f_7421:optimizer_2escm"),(void*)f_7421},
{C_text("f_7424:optimizer_2escm"),(void*)f_7424},
{C_text("f_7430:optimizer_2escm"),(void*)f_7430},
{C_text("f_7439:optimizer_2escm"),(void*)f_7439},
{C_text("f_7451:optimizer_2escm"),(void*)f_7451},
{C_text("f_7457:optimizer_2escm"),(void*)f_7457},
{C_text("f_7466:optimizer_2escm"),(void*)f_7466},
{C_text("f_7473:optimizer_2escm"),(void*)f_7473},
{C_text("f_7476:optimizer_2escm"),(void*)f_7476},
{C_text("f_7479:optimizer_2escm"),(void*)f_7479},
{C_text("f_7494:optimizer_2escm"),(void*)f_7494},
{C_text("f_7514:optimizer_2escm"),(void*)f_7514},
{C_text("f_7518:optimizer_2escm"),(void*)f_7518},
{C_text("f_7522:optimizer_2escm"),(void*)f_7522},
{C_text("f_7532:optimizer_2escm"),(void*)f_7532},
{C_text("f_7551:optimizer_2escm"),(void*)f_7551},
{C_text("f_7555:optimizer_2escm"),(void*)f_7555},
{C_text("f_7574:optimizer_2escm"),(void*)f_7574},
{C_text("f_7594:optimizer_2escm"),(void*)f_7594},
{C_text("f_7598:optimizer_2escm"),(void*)f_7598},
{C_text("f_7605:optimizer_2escm"),(void*)f_7605},
{C_text("f_7616:optimizer_2escm"),(void*)f_7616},
{C_text("f_7626:optimizer_2escm"),(void*)f_7626},
{C_text("f_7646:optimizer_2escm"),(void*)f_7646},
{C_text("f_7649:optimizer_2escm"),(void*)f_7649},
{C_text("f_7652:optimizer_2escm"),(void*)f_7652},
{C_text("f_7667:optimizer_2escm"),(void*)f_7667},
{C_text("f_7669:optimizer_2escm"),(void*)f_7669},
{C_text("f_7675:optimizer_2escm"),(void*)f_7675},
{C_text("f_7699:optimizer_2escm"),(void*)f_7699},
{C_text("f_7712:optimizer_2escm"),(void*)f_7712},
{C_text("f_7721:optimizer_2escm"),(void*)f_7721},
{C_text("f_7724:optimizer_2escm"),(void*)f_7724},
{C_text("f_7725:optimizer_2escm"),(void*)f_7725},
{C_text("f_7735:optimizer_2escm"),(void*)f_7735},
{C_text("f_7743:optimizer_2escm"),(void*)f_7743},
{C_text("f_7751:optimizer_2escm"),(void*)f_7751},
{C_text("f_7757:optimizer_2escm"),(void*)f_7757},
{C_text("f_7770:optimizer_2escm"),(void*)f_7770},
{C_text("f_7784:optimizer_2escm"),(void*)f_7784},
{C_text("f_7785:optimizer_2escm"),(void*)f_7785},
{C_text("f_7792:optimizer_2escm"),(void*)f_7792},
{C_text("f_7800:optimizer_2escm"),(void*)f_7800},
{C_text("f_7802:optimizer_2escm"),(void*)f_7802},
{C_text("f_7815:optimizer_2escm"),(void*)f_7815},
{C_text("f_7826:optimizer_2escm"),(void*)f_7826},
{C_text("f_7832:optimizer_2escm"),(void*)f_7832},
{C_text("f_7844:optimizer_2escm"),(void*)f_7844},
{C_text("f_7847:optimizer_2escm"),(void*)f_7847},
{C_text("f_7850:optimizer_2escm"),(void*)f_7850},
{C_text("f_7859:optimizer_2escm"),(void*)f_7859},
{C_text("f_7867:optimizer_2escm"),(void*)f_7867},
{C_text("f_7883:optimizer_2escm"),(void*)f_7883},
{C_text("f_7896:optimizer_2escm"),(void*)f_7896},
{C_text("f_7920:optimizer_2escm"),(void*)f_7920},
{C_text("f_7944:optimizer_2escm"),(void*)f_7944},
{C_text("f_7955:optimizer_2escm"),(void*)f_7955},
{C_text("f_7967:optimizer_2escm"),(void*)f_7967},
{C_text("f_7975:optimizer_2escm"),(void*)f_7975},
{C_text("f_7991:optimizer_2escm"),(void*)f_7991},
{C_text("f_8011:optimizer_2escm"),(void*)f_8011},
{C_text("f_8022:optimizer_2escm"),(void*)f_8022},
{C_text("f_8053:optimizer_2escm"),(void*)f_8053},
{C_text("f_8059:optimizer_2escm"),(void*)f_8059},
{C_text("f_8069:optimizer_2escm"),(void*)f_8069},
{C_text("f_8082:optimizer_2escm"),(void*)f_8082},
{C_text("f_8092:optimizer_2escm"),(void*)f_8092},
{C_text("f_8105:optimizer_2escm"),(void*)f_8105},
{C_text("f_8115:optimizer_2escm"),(void*)f_8115},
{C_text("f_8142:optimizer_2escm"),(void*)f_8142},
{C_text("f_8192:optimizer_2escm"),(void*)f_8192},
{C_text("f_8194:optimizer_2escm"),(void*)f_8194},
{C_text("f_8198:optimizer_2escm"),(void*)f_8198},
{C_text("f_8208:optimizer_2escm"),(void*)f_8208},
{C_text("f_8217:optimizer_2escm"),(void*)f_8217},
{C_text("f_8307:optimizer_2escm"),(void*)f_8307},
{C_text("f_8310:optimizer_2escm"),(void*)f_8310},
{C_text("f_8331:optimizer_2escm"),(void*)f_8331},
{C_text("f_8381:optimizer_2escm"),(void*)f_8381},
{C_text("f_8385:optimizer_2escm"),(void*)f_8385},
{C_text("f_8389:optimizer_2escm"),(void*)f_8389},
{C_text("f_8393:optimizer_2escm"),(void*)f_8393},
{C_text("f_8397:optimizer_2escm"),(void*)f_8397},
{C_text("f_8426:optimizer_2escm"),(void*)f_8426},
{C_text("f_8453:optimizer_2escm"),(void*)f_8453},
{C_text("f_8484:optimizer_2escm"),(void*)f_8484},
{C_text("f_8501:optimizer_2escm"),(void*)f_8501},
{C_text("f_8525:optimizer_2escm"),(void*)f_8525},
{C_text("f_8536:optimizer_2escm"),(void*)f_8536},
{C_text("f_8555:optimizer_2escm"),(void*)f_8555},
{C_text("f_8598:optimizer_2escm"),(void*)f_8598},
{C_text("f_8613:optimizer_2escm"),(void*)f_8613},
{C_text("f_8621:optimizer_2escm"),(void*)f_8621},
{C_text("f_8657:optimizer_2escm"),(void*)f_8657},
{C_text("f_8690:optimizer_2escm"),(void*)f_8690},
{C_text("f_8706:optimizer_2escm"),(void*)f_8706},
{C_text("f_8752:optimizer_2escm"),(void*)f_8752},
{C_text("f_8767:optimizer_2escm"),(void*)f_8767},
{C_text("f_8779:optimizer_2escm"),(void*)f_8779},
{C_text("f_8826:optimizer_2escm"),(void*)f_8826},
{C_text("f_8841:optimizer_2escm"),(void*)f_8841},
{C_text("f_8849:optimizer_2escm"),(void*)f_8849},
{C_text("f_8857:optimizer_2escm"),(void*)f_8857},
{C_text("f_8888:optimizer_2escm"),(void*)f_8888},
{C_text("f_8909:optimizer_2escm"),(void*)f_8909},
{C_text("f_8930:optimizer_2escm"),(void*)f_8930},
{C_text("f_8939:optimizer_2escm"),(void*)f_8939},
{C_text("f_8950:optimizer_2escm"),(void*)f_8950},
{C_text("f_8959:optimizer_2escm"),(void*)f_8959},
{C_text("f_8964:optimizer_2escm"),(void*)f_8964},
{C_text("f_8989:optimizer_2escm"),(void*)f_8989},
{C_text("f_8991:optimizer_2escm"),(void*)f_8991},
{C_text("f_9031:optimizer_2escm"),(void*)f_9031},
{C_text("f_9041:optimizer_2escm"),(void*)f_9041},
{C_text("f_9066:optimizer_2escm"),(void*)f_9066},
{C_text("f_9075:optimizer_2escm"),(void*)f_9075},
{C_text("f_9100:optimizer_2escm"),(void*)f_9100},
{C_text("f_9164:optimizer_2escm"),(void*)f_9164},
{C_text("f_9173:optimizer_2escm"),(void*)f_9173},
{C_text("f_9188:optimizer_2escm"),(void*)f_9188},
{C_text("f_9196:optimizer_2escm"),(void*)f_9196},
{C_text("f_9200:optimizer_2escm"),(void*)f_9200},
{C_text("f_9253:optimizer_2escm"),(void*)f_9253},
{C_text("f_9276:optimizer_2escm"),(void*)f_9276},
{C_text("f_9280:optimizer_2escm"),(void*)f_9280},
{C_text("f_9314:optimizer_2escm"),(void*)f_9314},
{C_text("f_9360:optimizer_2escm"),(void*)f_9360},
{C_text("f_9364:optimizer_2escm"),(void*)f_9364},
{C_text("f_9393:optimizer_2escm"),(void*)f_9393},
{C_text("f_9418:optimizer_2escm"),(void*)f_9418},
{C_text("f_9422:optimizer_2escm"),(void*)f_9422},
{C_text("f_9426:optimizer_2escm"),(void*)f_9426},
{C_text("f_9463:optimizer_2escm"),(void*)f_9463},
{C_text("f_9493:optimizer_2escm"),(void*)f_9493},
{C_text("f_9546:optimizer_2escm"),(void*)f_9546},
{C_text("f_9563:optimizer_2escm"),(void*)f_9563},
{C_text("f_9567:optimizer_2escm"),(void*)f_9567},
{C_text("f_9647:optimizer_2escm"),(void*)f_9647},
{C_text("f_9668:optimizer_2escm"),(void*)f_9668},
{C_text("f_9676:optimizer_2escm"),(void*)f_9676},
{C_text("f_9759:optimizer_2escm"),(void*)f_9759},
{C_text("f_9774:optimizer_2escm"),(void*)f_9774},
{C_text("f_9827:optimizer_2escm"),(void*)f_9827},
{C_text("f_9842:optimizer_2escm"),(void*)f_9842},
{C_text("f_9861:optimizer_2escm"),(void*)f_9861},
{C_text("f_9870:optimizer_2escm"),(void*)f_9870},
{C_text("f_9886:optimizer_2escm"),(void*)f_9886},
{C_text("f_9908:optimizer_2escm"),(void*)f_9908},
{C_text("f_9911:optimizer_2escm"),(void*)f_9911},
{C_text("f_9914:optimizer_2escm"),(void*)f_9914},
{C_text("f_9929:optimizer_2escm"),(void*)f_9929},
{C_text("f_9933:optimizer_2escm"),(void*)f_9933},
{C_text("f_9943:optimizer_2escm"),(void*)f_9943},
{C_text("f_9955:optimizer_2escm"),(void*)f_9955},
{C_text("f_9967:optimizer_2escm"),(void*)f_9967},
{C_text("f_9971:optimizer_2escm"),(void*)f_9971},
{C_text("toplevel:optimizer_2escm"),(void*)C_optimizer_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.compiler.optimizer#partition 
o|hiding unexported module binding: chicken.compiler.optimizer#span 
o|hiding unexported module binding: chicken.compiler.optimizer#take 
o|hiding unexported module binding: chicken.compiler.optimizer#drop 
o|hiding unexported module binding: chicken.compiler.optimizer#split-at 
o|hiding unexported module binding: chicken.compiler.optimizer#append-map 
o|hiding unexported module binding: chicken.compiler.optimizer#every 
o|hiding unexported module binding: chicken.compiler.optimizer#any 
o|hiding unexported module binding: chicken.compiler.optimizer#cons* 
o|hiding unexported module binding: chicken.compiler.optimizer#concatenate 
o|hiding unexported module binding: chicken.compiler.optimizer#delete 
o|hiding unexported module binding: chicken.compiler.optimizer#first 
o|hiding unexported module binding: chicken.compiler.optimizer#second 
o|hiding unexported module binding: chicken.compiler.optimizer#third 
o|hiding unexported module binding: chicken.compiler.optimizer#fourth 
o|hiding unexported module binding: chicken.compiler.optimizer#fifth 
o|hiding unexported module binding: chicken.compiler.optimizer#delete-duplicates 
o|hiding unexported module binding: chicken.compiler.optimizer#alist-cons 
o|hiding unexported module binding: chicken.compiler.optimizer#filter 
o|hiding unexported module binding: chicken.compiler.optimizer#filter-map 
o|hiding unexported module binding: chicken.compiler.optimizer#remove 
o|hiding unexported module binding: chicken.compiler.optimizer#unzip1 
o|hiding unexported module binding: chicken.compiler.optimizer#last 
o|hiding unexported module binding: chicken.compiler.optimizer#list-index 
o|hiding unexported module binding: chicken.compiler.optimizer#lset-adjoin/eq? 
o|hiding unexported module binding: chicken.compiler.optimizer#lset-difference/eq? 
o|hiding unexported module binding: chicken.compiler.optimizer#lset-union/eq? 
o|hiding unexported module binding: chicken.compiler.optimizer#lset-intersection/eq? 
o|hiding unexported module binding: chicken.compiler.optimizer#list-tabulate 
o|hiding unexported module binding: chicken.compiler.optimizer#lset<=/eq? 
o|hiding unexported module binding: chicken.compiler.optimizer#lset=/eq? 
o|hiding unexported module binding: chicken.compiler.optimizer#length+ 
o|hiding unexported module binding: chicken.compiler.optimizer#find 
o|hiding unexported module binding: chicken.compiler.optimizer#find-tail 
o|hiding unexported module binding: chicken.compiler.optimizer#iota 
o|hiding unexported module binding: chicken.compiler.optimizer#make-list 
o|hiding unexported module binding: chicken.compiler.optimizer#posq 
o|hiding unexported module binding: chicken.compiler.optimizer#posv 
o|hiding unexported module binding: chicken.compiler.optimizer#simplifications 
o|hiding unexported module binding: chicken.compiler.optimizer#simplified-ops 
o|hiding unexported module binding: chicken.compiler.optimizer#broken-constant-nodes 
o|hiding unexported module binding: chicken.compiler.optimizer#inline-history 
o|hiding unexported module binding: chicken.compiler.optimizer#within-unrolling-limit 
o|hiding unexported module binding: chicken.compiler.optimizer#perform-pre-optimization! 
o|hiding unexported module binding: chicken.compiler.optimizer#register-simplifications 
o|hiding unexported module binding: chicken.compiler.optimizer#reorganize-recursive-bindings 
o|hiding unexported module binding: chicken.compiler.optimizer#substitution-table 
o|hiding unexported module binding: chicken.compiler.optimizer#simplify-named-call 
S|applied compiler syntax:
S|  chicken.base#o		1
S|  scheme#for-each		20
S|  chicken.base#foldl		4
S|  scheme#map		15
S|  chicken.base#foldr		8
o|eliminated procedure checks: 239 
o|eliminated procedure checks: 1 
o|eliminated procedure checks: 1 
o|eliminated procedure checks: 1 
o|specializations:
o|  1 (scheme#set-car! pair *)
o|  1 (scheme#length list)
o|  1 (chicken.base#sub1 fixnum)
o|  2 (scheme#cddr (pair * pair))
o|  2 (scheme#> fixnum fixnum)
o|  1 (chicken.base#add1 fixnum)
o|  1 (scheme#<= fixnum fixnum)
o|  1 (scheme#positive? fixnum)
o|  1 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *)
o|  1 (scheme#< fixnum fixnum)
o|  1 (scheme#cdar (pair pair *))
o|  19 (scheme#= fixnum fixnum)
o|  2 (scheme#set-cdr! pair *)
o|  1 (scheme#* fixnum fixnum)
o|  4 (chicken.base#sub1 *)
o|  5 (scheme#zero? *)
o|  9 (chicken.base#add1 *)
o|  64 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword))
o|  1 (scheme#eqv? * *)
o|  16 (##sys#check-list (or pair list) *)
o|  56 (scheme#cdr pair)
o|  26 (scheme#car pair)
(o e)|safe calls: 1509 
(o e)|assignments to immediate values: 10 
o|safe globals: (chicken.compiler.optimizer#posv chicken.compiler.optimizer#posq chicken.compiler.optimizer#make-list chicken.compiler.optimizer#iota chicken.compiler.optimizer#find-tail chicken.compiler.optimizer#find chicken.compiler.optimizer#length+ chicken.compiler.optimizer#lset=/eq? chicken.compiler.optimizer#lset<=/eq? chicken.compiler.optimizer#list-tabulate chicken.compiler.optimizer#lset-intersection/eq? chicken.compiler.optimizer#lset-union/eq? chicken.compiler.optimizer#lset-difference/eq? chicken.compiler.optimizer#lset-adjoin/eq? chicken.compiler.optimizer#list-index chicken.compiler.optimizer#last chicken.compiler.optimizer#unzip1 chicken.compiler.optimizer#remove chicken.compiler.optimizer#filter-map chicken.compiler.optimizer#filter chicken.compiler.optimizer#alist-cons chicken.compiler.optimizer#delete-duplicates chicken.compiler.optimizer#fifth chicken.compiler.optimizer#fourth chicken.compiler.optimizer#third chicken.compiler.optimizer#second chicken.compiler.optimizer#first chicken.compiler.optimizer#delete chicken.compiler.optimizer#concatenate chicken.compiler.optimizer#cons* chicken.compiler.optimizer#any chicken.compiler.optimizer#every chicken.compiler.optimizer#append-map chicken.compiler.optimizer#split-at chicken.compiler.optimizer#drop chicken.compiler.optimizer#take chicken.compiler.optimizer#span chicken.compiler.optimizer#partition) 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#span 
o|inlining procedure: k3492 
o|inlining procedure: k3492 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#drop 
o|inlining procedure: k3550 
o|inlining procedure: k3550 
o|merged explicitly consed rest parameter: lsts102 
o|inlining procedure: k3583 
o|inlining procedure: k3598 
o|inlining procedure: k3598 
o|inlining procedure: k3583 
o|inlining procedure: k3638 
o|inlining procedure: k3638 
o|inlining procedure: k3670 
o|contracted procedure: "(mini-srfi-1.scm:77) g155164" 
o|inlining procedure: k3670 
o|inlining procedure: k3719 
o|contracted procedure: "(mini-srfi-1.scm:76) g128137" 
o|inlining procedure: k3719 
o|inlining procedure: k3762 
o|inlining procedure: k3762 
o|inlining procedure: k3793 
o|inlining procedure: k3793 
o|merged explicitly consed rest parameter: xs203 
o|inlining procedure: k3823 
o|inlining procedure: k3823 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#concatenate 
o|inlining procedure: k3879 
o|inlining procedure: k3879 
o|inlining procedure: k4010 
o|inlining procedure: k4010 
o|inlining procedure: k4002 
o|inlining procedure: k4002 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#remove 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#list-index 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#lset-difference/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#lset-union/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#lset-intersection/eq? 
o|inlining procedure: k4401 
o|inlining procedure: k4401 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#length+ 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#find 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#find-tail 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#iota 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#make-list 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#posq 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#posv 
o|inlining procedure: k4681 
o|inlining procedure: k4681 
o|inlining procedure: k4718 
o|inlining procedure: k4718 
o|inlining procedure: k4734 
o|inlining procedure: k4734 
o|inlining procedure: k4766 
o|inlining procedure: "(optimizer.scm:89) chicken.compiler.optimizer#first" 
o|inlining procedure: k4766 
o|inlining procedure: "(optimizer.scm:96) chicken.compiler.optimizer#first" 
o|inlining procedure: k4843 
o|contracted procedure: "(optimizer.scm:102) chicken.compiler.optimizer#last" 
o|inlining procedure: k4159 
o|inlining procedure: k4159 
o|inlining procedure: k4843 
o|inlining procedure: k4876 
o|inlining procedure: k4876 
o|inlining procedure: k4906 
o|inlining procedure: k4906 
o|inlining procedure: "(optimizer.scm:110) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:109) chicken.compiler.optimizer#first" 
o|substituted constant variable: a4942 
o|substituted constant variable: a4944 
o|substituted constant variable: a4949 
o|substituted constant variable: a4951 
o|substituted constant variable: a4953 
o|inlining procedure: k4957 
o|inlining procedure: k4957 
o|substituted constant variable: a4964 
o|substituted constant variable: a4966 
o|substituted constant variable: a4968 
o|substituted constant variable: a4970 
o|inlining procedure: k4994 
o|contracted procedure: "(optimizer.scm:131) g560628" 
o|propagated global variable: g636637 chicken.compiler.support#mark-variable 
o|inlining procedure: k4994 
o|contracted procedure: "(optimizer.scm:130) chicken.compiler.optimizer#delete-duplicates" 
o|inlining procedure: k3954 
o|inlining procedure: k3954 
o|inlining procedure: k5081 
o|contracted procedure: "(optimizer.scm:172) g688695" 
o|inlining procedure: k5081 
o|inlining procedure: k5110 
o|inlining procedure: k5110 
o|inlining procedure: k5122 
o|inlining procedure: k5134 
o|inlining procedure: k5134 
o|inlining procedure: k5190 
o|inlining procedure: k5190 
o|inlining procedure: "(optimizer.scm:180) chicken.compiler.optimizer#third" 
o|inlining procedure: "(optimizer.scm:179) chicken.compiler.optimizer#first" 
o|inlining procedure: k5122 
o|inlining procedure: "(optimizer.scm:178) chicken.compiler.optimizer#second" 
o|inlining procedure: k5238 
o|inlining procedure: k5238 
o|inlining procedure: k5244 
o|inlining procedure: k5256 
o|inlining procedure: k5268 
o|inlining procedure: k5280 
o|inlining procedure: k5290 
o|consed rest parameter at call site: "(optimizer.scm:218) chicken.compiler.optimizer#cons*" 2 
o|inlining procedure: k5290 
o|inlining procedure: k5280 
o|inlining procedure: k5268 
o|inlining procedure: "(optimizer.scm:207) chicken.compiler.optimizer#first" 
o|inlining procedure: k5256 
o|inlining procedure: "(optimizer.scm:205) chicken.compiler.optimizer#first" 
o|inlining procedure: k5355 
o|inlining procedure: k5355 
o|inlining procedure: k5367 
o|inlining procedure: k5367 
o|inlining procedure: k5244 
o|inlining procedure: k5384 
o|inlining procedure: k5384 
o|inlining procedure: k5403 
o|inlining procedure: k5424 
o|inlining procedure: k5424 
o|contracted procedure: "(optimizer.scm:235) node-value671" 
o|inlining procedure: "(optimizer.scm:168) chicken.compiler.optimizer#first" 
o|contracted procedure: "(optimizer.scm:232) constant-node?670" 
o|inlining procedure: k5403 
o|inlining procedure: k5451 
o|inlining procedure: k5467 
o|contracted procedure: "(optimizer.scm:253) chicken.compiler.optimizer#lset-adjoin/eq?" 
o|inlining procedure: k4218 
o|inlining procedure: k4218 
o|propagated global variable: lst342 chicken.compiler.optimizer#broken-constant-nodes 
o|inlining procedure: k5467 
o|inlining procedure: k5451 
o|substituted constant variable: a5514 
o|substituted constant variable: a5516 
o|substituted constant variable: a5518 
o|inlining procedure: k5525 
o|inlining procedure: k5525 
o|inlining procedure: k5551 
o|inlining procedure: k5587 
o|inlining procedure: k5587 
o|inlining procedure: k5614 
o|inlining procedure: k5614 
o|inlining procedure: "(optimizer.scm:286) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:281) chicken.compiler.optimizer#first" 
o|inlining procedure: k5551 
o|inlining procedure: k5667 
o|inlining procedure: "(optimizer.scm:307) chicken.compiler.optimizer#second" 
o|inlining procedure: k5667 
o|inlining procedure: k5712 
o|inlining procedure: k5712 
o|inlining procedure: "(optimizer.scm:312) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:312) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:310) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:310) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:309) chicken.compiler.optimizer#first" 
o|inlining procedure: k5787 
o|inlining procedure: k5787 
o|inlining procedure: "(optimizer.scm:301) chicken.compiler.optimizer#first" 
o|inlining procedure: k5800 
o|contracted procedure: "(optimizer.scm:324) chicken.compiler.optimizer#partition" 
o|inlining procedure: k3390 
o|inlining procedure: k3390 
o|inlining procedure: "(optimizer.scm:336) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:335) chicken.compiler.optimizer#fourth" 
o|inlining procedure: "(optimizer.scm:329) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:329) chicken.compiler.optimizer#first" 
o|inlining procedure: k5904 
o|inlining procedure: "(optimizer.scm:349) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:348) chicken.compiler.optimizer#fourth" 
o|inlining procedure: "(optimizer.scm:346) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:345) chicken.compiler.optimizer#first" 
o|inlining procedure: k5904 
o|inlining procedure: "(optimizer.scm:319) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:318) chicken.compiler.optimizer#third" 
o|inlining procedure: k5800 
o|inlining procedure: k5979 
o|inlining procedure: k6007 
o|propagated global variable: g974975 chicken.compiler.support#db-put! 
o|inlining procedure: "(optimizer.scm:381) chicken.compiler.optimizer#first" 
o|inlining procedure: k6060 
o|inlining procedure: k6060 
o|inlining procedure: "(optimizer.scm:373) chicken.compiler.optimizer#third" 
o|inlining procedure: k6007 
o|inlining procedure: k6117 
o|inlining procedure: k6141 
o|propagated global variable: g10671068 chicken.compiler.support#db-put! 
o|inlining procedure: "(optimizer.scm:453) chicken.compiler.optimizer#first" 
o|inlining procedure: k6217 
o|inlining procedure: k6217 
o|inlining procedure: "(optimizer.scm:440) chicken.compiler.optimizer#fourth" 
o|inlining procedure: k6141 
o|inlining procedure: k6257 
o|inlining procedure: k6257 
o|inlining procedure: k6272 
o|inlining procedure: k6307 
o|inlining procedure: k6307 
o|inlining procedure: k6272 
o|inlining procedure: k6358 
o|inlining procedure: k6358 
o|inlining procedure: k6436 
o|inlining procedure: k6497 
o|inlining procedure: k6497 
o|inlining procedure: k6537 
o|inlining procedure: k6537 
o|substituted constant variable: a6554 
o|inlining procedure: k6436 
o|inlining procedure: k6576 
o|inlining procedure: k6588 
o|inlining procedure: k6606 
o|inlining procedure: k6606 
o|contracted procedure: "(optimizer.scm:430) chicken.compiler.optimizer#within-unrolling-limit" 
o|inlining procedure: k7346 
o|inlining procedure: k7346 
o|inlining procedure: k7355 
o|inlining procedure: k7355 
o|inlining procedure: k6621 
o|inlining procedure: k6621 
o|inlining procedure: "(optimizer.scm:429) chicken.compiler.optimizer#fourth" 
o|substituted constant variable: a6632 
o|inlining procedure: k6588 
o|inlining procedure: k6576 
o|inlining procedure: "(optimizer.scm:420) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:416) chicken.compiler.optimizer#third" 
o|inlining procedure: k6117 
o|inlining procedure: "(optimizer.scm:525) chicken.compiler.optimizer#first" 
o|inlining procedure: k6678 
o|inlining procedure: "(optimizer.scm:522) chicken.compiler.optimizer#first" 
o|inlining procedure: k6678 
o|inlining procedure: k6709 
o|inlining procedure: k6721 
o|inlining procedure: k6733 
o|propagated global variable: g10111012 chicken.compiler.support#expression-has-side-effects? 
o|inlining procedure: k6760 
o|inlining procedure: k6760 
o|inlining procedure: k6733 
o|inlining procedure: "(optimizer.scm:397) chicken.compiler.optimizer#third" 
o|inlining procedure: k6721 
o|inlining procedure: "(optimizer.scm:393) chicken.compiler.optimizer#first" 
o|inlining procedure: k6709 
o|inlining procedure: k6820 
o|inlining procedure: "(optimizer.scm:370) chicken.compiler.optimizer#first" 
o|inlining procedure: k6820 
o|inlining procedure: k6851 
o|inlining procedure: k6851 
o|inlining procedure: "(optimizer.scm:361) chicken.compiler.optimizer#first" 
o|inlining procedure: k6865 
o|inlining procedure: k6905 
o|inlining procedure: k6905 
o|inlining procedure: "(optimizer.scm:534) chicken.compiler.optimizer#first" 
o|inlining procedure: k6865 
o|substituted constant variable: a6944 
o|substituted constant variable: a6946 
o|inlining procedure: k5979 
o|inlining procedure: k6956 
o|inlining procedure: k6956 
o|inlining procedure: k6989 
o|inlining procedure: k6989 
o|inlining procedure: k7019 
o|inlining procedure: k7019 
o|inlining procedure: k7044 
o|substituted constant variable: a7054 
o|inlining procedure: k7044 
o|inlining procedure: k7061 
o|substituted constant variable: a7071 
o|inlining procedure: k7061 
o|inlining procedure: k7094 
o|inlining procedure: "(optimizer.scm:556) chicken.compiler.optimizer#first" 
o|inlining procedure: k7094 
o|inlining procedure: "(optimizer.scm:543) chicken.compiler.optimizer#first" 
o|substituted constant variable: a7140 
o|substituted constant variable: a7142 
o|substituted constant variable: a7144 
o|substituted constant variable: a7146 
o|substituted constant variable: a7148 
o|substituted constant variable: a7150 
o|inlining procedure: k7160 
o|inlining procedure: k7160 
o|inlining procedure: k7207 
o|inlining procedure: k7207 
o|inlining procedure: k7305 
o|contracted procedure: "(optimizer.scm:600) g12851292" 
o|inlining procedure: k7276 
o|inlining procedure: k7276 
o|inlining procedure: k7305 
o|propagated global variable: g12911293 chicken.compiler.optimizer#simplified-ops 
o|contracted procedure: "(optimizer.scm:588) chicken.compiler.optimizer#perform-pre-optimization!" 
o|inlining procedure: k7396 
o|inlining procedure: k7396 
o|inlining procedure: k7425 
o|inlining procedure: k7452 
o|inlining procedure: "(optimizer.scm:671) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:668) chicken.compiler.optimizer#first" 
o|inlining procedure: k7452 
o|substituted constant variable: a7533 
o|inlining procedure: "(optimizer.scm:659) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:658) chicken.compiler.optimizer#third" 
o|inlining procedure: k7425 
o|inlining procedure: k7556 
o|substituted constant variable: a7575 
o|inlining procedure: k7556 
o|substituted constant variable: a7580 
o|inlining procedure: "(optimizer.scm:651) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:651) chicken.compiler.optimizer#second" 
o|inlining procedure: k7618 
o|inlining procedure: k7618 
o|merged explicitly consed rest parameter: ss1397 
o|inlining procedure: k10504 
o|inlining procedure: "(optimizer.scm:1532) chicken.compiler.optimizer#first" 
o|inlining procedure: k10529 
o|inlining procedure: k10541 
o|inlining procedure: k10556 
o|inlining procedure: k10565 
o|inlining procedure: k10577 
o|inlining procedure: "(optimizer.scm:1530) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1530) chicken.compiler.optimizer#first" 
o|inlining procedure: k10577 
o|inlining procedure: "(optimizer.scm:1527) chicken.compiler.optimizer#first" 
o|inlining procedure: k10565 
o|inlining procedure: k10556 
o|inlining procedure: k10541 
o|inlining procedure: k10529 
o|inlining procedure: "(optimizer.scm:1518) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1516) chicken.compiler.optimizer#third" 
o|inlining procedure: k10504 
o|inlining procedure: "(optimizer.scm:1533) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1533) chicken.compiler.optimizer#first" 
o|inlining procedure: k10639 
o|inlining procedure: "(optimizer.scm:1536) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1535) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1535) chicken.compiler.optimizer#first" 
o|inlining procedure: k10639 
o|inlining procedure: k10677 
o|inlining procedure: k10677 
o|substituted constant variable: a10698 
o|substituted constant variable: a10700 
o|substituted constant variable: a10702 
o|inlining procedure: k10718 
o|inlining procedure: k10736 
o|inlining procedure: k10736 
o|inlining procedure: "(optimizer.scm:1547) chicken.compiler.optimizer#first" 
o|inlining procedure: k10718 
o|inlining procedure: k10763 
o|inlining procedure: "(optimizer.scm:1560) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1557) chicken.compiler.optimizer#third" 
o|inlining procedure: k10763 
o|inlining procedure: k10791 
o|inlining procedure: "(optimizer.scm:1564) chicken.compiler.optimizer#second" 
o|inlining procedure: k10791 
o|inlining procedure: k10826 
o|inlining procedure: k10832 
o|inlining procedure: k10832 
o|inlining procedure: "(optimizer.scm:1568) chicken.compiler.optimizer#first" 
o|inlining procedure: k10826 
o|inlining procedure: k10850 
o|inlining procedure: k10875 
o|inlining procedure: k10875 
o|inlining procedure: "(optimizer.scm:1573) chicken.compiler.optimizer#second" 
o|inlining procedure: k10850 
o|inlining procedure: k10895 
o|inlining procedure: k10895 
o|inlining procedure: k10914 
o|inlining procedure: k10914 
o|inlining procedure: "(optimizer.scm:1581) chicken.compiler.optimizer#first" 
o|inlining procedure: k10928 
o|inlining procedure: k10943 
o|inlining procedure: k10943 
o|inlining procedure: k10968 
o|inlining procedure: "(optimizer.scm:1596) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1594) chicken.compiler.optimizer#second" 
o|inlining procedure: k10968 
o|inlining procedure: "(optimizer.scm:1591) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1589) chicken.compiler.optimizer#first" 
o|inlining procedure: k10928 
o|inlining procedure: k11019 
o|inlining procedure: k11019 
o|inlining procedure: "(optimizer.scm:1602) chicken.compiler.optimizer#fourth" 
o|inlining procedure: k11041 
o|inlining procedure: "(optimizer.scm:1608) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1608) chicken.compiler.optimizer#first" 
o|inlining procedure: k11041 
o|inlining procedure: k11064 
o|inlining procedure: "(optimizer.scm:1611) chicken.compiler.optimizer#second" 
o|inlining procedure: k11064 
o|inlining procedure: "(optimizer.scm:1610) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1610) chicken.compiler.optimizer#first" 
o|substituted constant variable: a11099 
o|substituted constant variable: a11101 
o|substituted constant variable: a11103 
o|substituted constant variable: a11105 
o|substituted constant variable: a11107 
o|substituted constant variable: a11109 
o|substituted constant variable: a11111 
o|substituted constant variable: a11113 
o|substituted constant variable: a11115 
o|substituted constant variable: a11117 
o|inlining procedure: k11121 
o|contracted procedure: "(optimizer.scm:1617) chicken.compiler.optimizer#lset=/eq?" 
o|inlining procedure: k4437 
o|inlining procedure: k4437 
o|inlining procedure: k11121 
o|inlining procedure: "(optimizer.scm:1704) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1697) chicken.compiler.optimizer#second" 
o|inlining procedure: k11150 
o|inlining procedure: k11308 
o|contracted procedure: "(optimizer.scm:1729) g24512458" 
o|inlining procedure: k11308 
o|inlining procedure: k11331 
o|contracted procedure: "(optimizer.scm:1719) g24412442" 
o|inlining procedure: "(optimizer.scm:1723) chicken.compiler.optimizer#first" 
o|inlining procedure: k11331 
o|inlining procedure: k11400 
o|inlining procedure: k11400 
o|inlining procedure: k11459 
o|inlining procedure: k11483 
o|inlining procedure: "(optimizer.scm:1668) chicken.compiler.optimizer#third" 
o|inlining procedure: "(optimizer.scm:1662) chicken.compiler.optimizer#first" 
o|inlining procedure: k11537 
o|inlining procedure: k11537 
o|inlining procedure: "(optimizer.scm:1659) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1651) chicken.compiler.optimizer#first" 
o|inlining procedure: k11483 
o|inlining procedure: "(optimizer.scm:1674) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1649) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1645) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1644) chicken.compiler.optimizer#first" 
o|inlining procedure: k11459 
o|inlining procedure: k11670 
o|inlining procedure: "(optimizer.scm:1684) chicken.compiler.optimizer#second" 
o|inlining procedure: k11670 
o|inlining procedure: k11699 
o|inlining procedure: k11699 
o|inlining procedure: "(optimizer.scm:1681) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1680) chicken.compiler.optimizer#first" 
o|inlining procedure: k11728 
o|inlining procedure: k11728 
o|substituted constant variable: a11749 
o|substituted constant variable: a11751 
o|inlining procedure: "(optimizer.scm:1639) chicken.compiler.optimizer#first" 
o|inlining procedure: k11150 
o|inlining procedure: k11766 
o|inlining procedure: k11766 
o|substituted constant variable: a11781 
o|inlining procedure: "(optimizer.scm:1625) chicken.compiler.optimizer#third" 
o|contracted procedure: "(optimizer.scm:1621) chicken.compiler.optimizer#unzip1" 
o|inlining procedure: k4119 
o|contracted procedure: "(mini-srfi-1.scm:143) g306315" 
o|inlining procedure: k4119 
o|inlining procedure: k11827 
o|substituted constant variable: a11849 
o|inlining procedure: k11827 
o|inlining procedure: k11886 
o|inlining procedure: k11915 
o|inlining procedure: k11915 
o|inlining procedure: k11945 
o|inlining procedure: k11963 
o|contracted procedure: "(optimizer.scm:1800) user-lambda?2488" 
o|inlining procedure: k11853 
o|inlining procedure: "(optimizer.scm:1775) chicken.compiler.optimizer#third" 
o|inlining procedure: k11853 
o|inlining procedure: k11963 
o|inlining procedure: "(optimizer.scm:1794) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1793) chicken.compiler.optimizer#first" 
o|inlining procedure: k11945 
o|inlining procedure: "(optimizer.scm:1785) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1784) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1783) chicken.compiler.optimizer#first" 
o|inlining procedure: k11886 
o|inlining procedure: "(optimizer.scm:1816) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1811) chicken.compiler.optimizer#third" 
o|inlining procedure: k12083 
o|inlining procedure: k12083 
o|substituted constant variable: a12107 
o|substituted constant variable: a12109 
o|substituted constant variable: a12111 
o|inlining procedure: "(optimizer.scm:1847) chicken.compiler.optimizer#first" 
o|inlining procedure: k12184 
o|inlining procedure: k12184 
o|inlining procedure: "(optimizer.scm:1842) chicken.compiler.optimizer#third" 
o|inlining procedure: "(optimizer.scm:1840) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1839) chicken.compiler.optimizer#first" 
o|consed rest parameter at call site: "(optimizer.scm:1931) chicken.compiler.optimizer#cons*" 2 
o|inlining procedure: "(optimizer.scm:1937) chicken.compiler.optimizer#second" 
o|inlining procedure: k12323 
o|inlining procedure: k12323 
o|inlining procedure: k12353 
o|inlining procedure: k12353 
o|inlining procedure: k12379 
o|inlining procedure: k12379 
o|consed rest parameter at call site: "(optimizer.scm:1914) chicken.compiler.optimizer#cons*" 2 
o|inlining procedure: k12526 
o|inlining procedure: "(optimizer.scm:1902) chicken.compiler.optimizer#fourth" 
o|inlining procedure: k12526 
o|inlining procedure: "(optimizer.scm:1900) chicken.compiler.optimizer#third" 
o|inlining procedure: "(optimizer.scm:1898) chicken.compiler.optimizer#second" 
o|consed rest parameter at call site: "(optimizer.scm:1896) chicken.compiler.optimizer#append-map" 3 
o|inlining procedure: "(optimizer.scm:1870) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1868) chicken.compiler.optimizer#second" 
o|inlining procedure: k12619 
o|inlining procedure: k12619 
o|inlining procedure: k12686 
o|contracted procedure: "(optimizer.scm:1856) g26702679" 
o|inlining procedure: "(optimizer.scm:1856) chicken.compiler.optimizer#third" 
o|inlining procedure: k12686 
o|inlining procedure: k12720 
o|inlining procedure: k12720 
o|inlining procedure: k12767 
o|inlining procedure: k12767 
o|consed rest parameter at call site: "(optimizer.scm:930) chicken.compiler.optimizer#register-simplifications" 2 
o|inlining procedure: k12809 
o|inlining procedure: k12821 
o|inlining procedure: k12856 
o|inlining procedure: k12856 
o|inlining procedure: k12821 
o|inlining procedure: k12809 
o|inlining procedure: k12952 
o|inlining procedure: k12952 
o|consed rest parameter at call site: "(optimizer.scm:713) chicken.compiler.optimizer#register-simplifications" 2 
o|inlining procedure: k13033 
o|inlining procedure: k13048 
o|inlining procedure: k13048 
o|substituted constant variable: a13122 
o|inlining procedure: k13033 
o|inlining procedure: k13166 
o|inlining procedure: k13175 
o|inlining procedure: k13193 
o|inlining procedure: k13193 
o|substituted constant variable: a13283 
o|inlining procedure: k13175 
o|inlining procedure: k13166 
o|inlining procedure: k13351 
o|substituted constant variable: a13378 
o|inlining procedure: k13351 
o|inlining procedure: k13453 
o|inlining procedure: k13465 
o|inlining procedure: k13489 
o|inlining procedure: "(optimizer.scm:796) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:796) chicken.compiler.optimizer#first" 
o|inlining procedure: k13489 
o|inlining procedure: k13519 
o|inlining procedure: k13556 
o|inlining procedure: "(optimizer.scm:816) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:814) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:814) chicken.compiler.optimizer#first" 
o|inlining procedure: k13556 
o|contracted procedure: "(optimizer.scm:819) chicken.compiler.optimizer#reorganize-recursive-bindings" 
o|inlining procedure: k7677 
o|inlining procedure: k7677 
o|inlining procedure: k7727 
o|inlining procedure: k7759 
o|inlining procedure: k7759 
o|inlining procedure: k7727 
o|inlining procedure: k7804 
o|contracted procedure: "(optimizer.scm:1029) chicken.compiler.optimizer#lset<=/eq?" 
o|inlining procedure: k7804 
o|contracted procedure: "(optimizer.scm:1028) chicken.compiler.optimizer#filter-map" 
o|inlining procedure: k4057 
o|inlining procedure: k4057 
o|inlining procedure: k4046 
o|inlining procedure: k4046 
o|consed rest parameter at call site: "(optimizer.scm:1022) chicken.compiler.optimizer#append-map" 3 
o|inlining procedure: k7851 
o|inlining procedure: k7851 
o|inlining procedure: k7869 
o|inlining procedure: k7891 
o|inlining procedure: k7891 
o|inlining procedure: k7922 
o|contracted procedure: "(optimizer.scm:1049) g17861787" 
o|inlining procedure: k7922 
o|inlining procedure: k7969 
o|inlining procedure: k7969 
o|inlining procedure: k7869 
o|inlining procedure: k8061 
o|inlining procedure: k8061 
o|inlining procedure: k8084 
o|inlining procedure: k8084 
o|inlining procedure: k8107 
o|inlining procedure: k8107 
o|inlining procedure: k8144 
o|inlining procedure: k8144 
o|inlining procedure: k13611 
o|inlining procedure: k13611 
o|inlining procedure: k13617 
o|inlining procedure: k13629 
o|inlining procedure: k13641 
o|inlining procedure: "(optimizer.scm:813) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:813) chicken.compiler.optimizer#first" 
o|inlining procedure: k13641 
o|inlining procedure: "(optimizer.scm:812) chicken.compiler.optimizer#first" 
o|inlining procedure: k13629 
o|inlining procedure: "(optimizer.scm:810) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:809) chicken.compiler.optimizer#first" 
o|inlining procedure: k13617 
o|inlining procedure: "(optimizer.scm:803) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:801) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:800) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:800) chicken.compiler.optimizer#first" 
o|inlining procedure: k13519 
o|substituted constant variable: a13705 
o|substituted constant variable: a13707 
o|inlining procedure: "(optimizer.scm:792) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:791) chicken.compiler.optimizer#first" 
o|inlining procedure: k13465 
o|inlining procedure: "(optimizer.scm:790) chicken.compiler.optimizer#first" 
o|inlining procedure: k13453 
o|inlining procedure: k13747 
o|inlining procedure: k13759 
o|consed rest parameter at call site: "(optimizer.scm:765) chicken.compiler.optimizer#cons*" 2 
o|inlining procedure: k13759 
o|substituted constant variable: a13786 
o|inlining procedure: k13747 
o|inlining procedure: k13874 
o|inlining procedure: k13886 
o|inlining procedure: k13898 
o|inlining procedure: k13898 
o|substituted constant variable: a13923 
o|substituted constant variable: a13932 
o|inlining procedure: k13886 
o|inlining procedure: k13874 
o|consed rest parameter at call site: "(optimizer.scm:694) chicken.compiler.optimizer#register-simplifications" 2 
o|inlining procedure: k14057 
o|inlining procedure: k14057 
o|inlining procedure: k14074 
o|inlining procedure: k14074 
o|contracted procedure: "(optimizer.scm:702) chicken.compiler.optimizer#simplify-named-call" 
o|inlining procedure: k8222 
o|inlining procedure: k8222 
o|inlining procedure: k8231 
o|inlining procedure: k8231 
o|inlining procedure: k8296 
o|inlining procedure: k8311 
o|inlining procedure: k8311 
o|inlining procedure: "(optimizer.scm:1110) chicken.compiler.optimizer#second" 
o|inlining procedure: k8349 
o|inlining procedure: k8361 
o|inlining procedure: k8361 
o|inlining procedure: k8349 
o|inlining procedure: "(optimizer.scm:1102) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1101) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1100) chicken.compiler.optimizer#first" 
o|inlining procedure: k8296 
o|inlining procedure: k8412 
o|inlining procedure: k8421 
o|inlining procedure: "(optimizer.scm:1124) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1119) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1118) chicken.compiler.optimizer#third" 
o|inlining procedure: k8421 
o|inlining procedure: "(optimizer.scm:1116) chicken.compiler.optimizer#first" 
o|inlining procedure: k8412 
o|inlining procedure: k8470 
o|inlining procedure: k8479 
o|inlining procedure: k8503 
o|contracted procedure: "(optimizer.scm:1132) g18931894" 
o|inlining procedure: k8503 
o|inlining procedure: "(optimizer.scm:1135) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1131) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1131) chicken.compiler.optimizer#second" 
o|inlining procedure: k8479 
o|inlining procedure: k8470 
o|inlining procedure: k8581 
o|inlining procedure: k8587 
o|inlining procedure: "(optimizer.scm:1149) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1148) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1147) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1145) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1144) chicken.compiler.optimizer#first" 
o|inlining procedure: k8587 
o|substituted constant variable: a8638 
o|inlining procedure: k8581 
o|inlining procedure: k8643 
o|inlining procedure: k8652 
o|inlining procedure: k8664 
o|inlining procedure: "(optimizer.scm:1163) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1162) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1161) chicken.compiler.optimizer#first" 
o|inlining procedure: k8664 
o|inlining procedure: "(optimizer.scm:1157) chicken.compiler.optimizer#third" 
o|substituted constant variable: a8718 
o|inlining procedure: k8652 
o|inlining procedure: k8643 
o|inlining procedure: k8729 
o|inlining procedure: k8741 
o|inlining procedure: "(optimizer.scm:1174) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1173) chicken.compiler.optimizer#first" 
o|inlining procedure: k8741 
o|substituted constant variable: a8792 
o|inlining procedure: k8729 
o|inlining procedure: "(optimizer.scm:1167) chicken.compiler.optimizer#third" 
o|inlining procedure: k8797 
o|inlining procedure: k8812 
o|inlining procedure: k8821 
o|inlining procedure: "(optimizer.scm:1187) chicken.compiler.optimizer#third" 
o|inlining procedure: "(optimizer.scm:1185) chicken.compiler.optimizer#second" 
o|inlining procedure: k8821 
o|inlining procedure: "(optimizer.scm:1181) chicken.compiler.optimizer#first" 
o|inlining procedure: k8812 
o|inlining procedure: "(optimizer.scm:1179) chicken.compiler.optimizer#fourth" 
o|inlining procedure: k8797 
o|inlining procedure: k8880 
o|inlining procedure: "(optimizer.scm:1193) chicken.compiler.optimizer#first" 
o|inlining procedure: k8880 
o|inlining procedure: k8895 
o|inlining procedure: k8904 
o|inlining procedure: k8931 
o|inlining procedure: k8966 
o|inlining procedure: k9001 
o|inlining procedure: "(optimizer.scm:1216) chicken.compiler.optimizer#first" 
o|inlining procedure: k9001 
o|inlining procedure: "(optimizer.scm:1217) chicken.compiler.optimizer#second" 
o|inlining procedure: k8966 
o|inlining procedure: k9043 
o|inlining procedure: k9043 
o|inlining procedure: k9077 
o|contracted procedure: "(optimizer.scm:1205) g19501959" 
o|inlining procedure: k9077 
o|inlining procedure: k8931 
o|inlining procedure: k9111 
o|inlining procedure: k9111 
o|inlining procedure: "(optimizer.scm:1204) chicken.compiler.optimizer#fourth" 
o|inlining procedure: "(optimizer.scm:1203) chicken.compiler.optimizer#third" 
o|substituted constant variable: a9140 
o|inlining procedure: k8904 
o|inlining procedure: k8895 
o|inlining procedure: k9147 
o|inlining procedure: k9159 
o|inlining procedure: k9198 
o|inlining procedure: "(optimizer.scm:1239) chicken.compiler.optimizer#third" 
o|inlining procedure: k9198 
o|inlining procedure: "(optimizer.scm:1240) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1237) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1236) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1234) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1233) chicken.compiler.optimizer#first" 
o|inlining procedure: k9159 
o|inlining procedure: "(optimizer.scm:1229) chicken.compiler.optimizer#fourth" 
o|inlining procedure: k9147 
o|inlining procedure: k9230 
o|inlining procedure: k9239 
o|inlining procedure: k9257 
o|consed rest parameter at call site: "(optimizer.scm:1252) chicken.compiler.optimizer#cons*" 2 
o|inlining procedure: "(optimizer.scm:1252) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1251) chicken.compiler.optimizer#second" 
o|inlining procedure: k9257 
o|inlining procedure: "(optimizer.scm:1250) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1248) chicken.compiler.optimizer#first" 
o|inlining procedure: k9239 
o|inlining procedure: "(optimizer.scm:1246) chicken.compiler.optimizer#third" 
o|inlining procedure: k9230 
o|inlining procedure: k9306 
o|inlining procedure: k9315 
o|inlining procedure: k9333 
o|inlining procedure: k9333 
o|consed rest parameter at call site: "(optimizer.scm:1267) chicken.compiler.optimizer#cons*" 2 
o|inlining procedure: "(optimizer.scm:1267) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1266) chicken.compiler.optimizer#first" 
o|substituted constant variable: a9374 
o|inlining procedure: "(optimizer.scm:1263) chicken.compiler.optimizer#third" 
o|inlining procedure: k9315 
o|inlining procedure: "(optimizer.scm:1261) chicken.compiler.optimizer#second" 
o|inlining procedure: k9306 
o|inlining procedure: k9379 
o|inlining procedure: k9388 
o|inlining procedure: k9403 
o|consed rest parameter at call site: "(optimizer.scm:1279) chicken.compiler.optimizer#cons*" 2 
o|inlining procedure: "(optimizer.scm:1277) chicken.compiler.optimizer#second" 
o|inlining procedure: k9403 
o|inlining procedure: "(optimizer.scm:1276) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1275) chicken.compiler.optimizer#third" 
o|inlining procedure: k9388 
o|inlining procedure: k9379 
o|inlining procedure: k9449 
o|inlining procedure: k9458 
o|inlining procedure: k9470 
o|inlining procedure: k9499 
o|inlining procedure: "(optimizer.scm:1294) chicken.compiler.optimizer#fourth" 
o|inlining procedure: k9499 
o|inlining procedure: "(optimizer.scm:1294) chicken.compiler.optimizer#third" 
o|inlining procedure: k9470 
o|inlining procedure: "(optimizer.scm:1288) chicken.compiler.optimizer#fourth" 
o|inlining procedure: "(optimizer.scm:1287) chicken.compiler.optimizer#first" 
o|inlining procedure: k9458 
o|inlining procedure: "(optimizer.scm:1285) chicken.compiler.optimizer#second" 
o|inlining procedure: k9449 
o|inlining procedure: k9520 
o|inlining procedure: k9529 
o|inlining procedure: k9541 
o|consed rest parameter at call site: "(optimizer.scm:1306) chicken.compiler.optimizer#cons*" 2 
o|inlining procedure: "(optimizer.scm:1306) chicken.compiler.optimizer#third" 
o|inlining procedure: "(optimizer.scm:1305) chicken.compiler.optimizer#third" 
o|inlining procedure: k9576 
o|inlining procedure: k9576 
o|inlining procedure: "(optimizer.scm:1307) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1304) chicken.compiler.optimizer#first" 
o|inlining procedure: k9541 
o|propagated global variable: tmp20552057 chicken.compiler.support#unsafe 
o|propagated global variable: tmp20552057 chicken.compiler.support#unsafe 
o|inlining procedure: "(optimizer.scm:1302) chicken.compiler.optimizer#fourth" 
o|inlining procedure: k9529 
o|substituted constant variable: a9604 
o|inlining procedure: k9520 
o|inlining procedure: k9630 
o|inlining procedure: k9642 
o|inlining procedure: k9678 
o|inlining procedure: k9678 
o|inlining procedure: "(optimizer.scm:1336) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1337) chicken.compiler.optimizer#second" 
o|inlining procedure: k9717 
o|substituted constant variable: a9725 
o|inlining procedure: k9717 
o|propagated global variable: tmp20762078 chicken.compiler.support#unsafe 
o|propagated global variable: tmp20762078 chicken.compiler.support#unsafe 
o|inlining procedure: k9642 
o|inlining procedure: k9630 
o|inlining procedure: "(optimizer.scm:1324) chicken.compiler.optimizer#fourth" 
o|inlining procedure: "(optimizer.scm:1323) chicken.compiler.optimizer#third" 
o|inlining procedure: "(optimizer.scm:1321) chicken.compiler.optimizer#first" 
o|inlining procedure: k9739 
o|inlining procedure: k9748 
o|inlining procedure: k9780 
o|inlining procedure: "(optimizer.scm:1354) chicken.compiler.optimizer#third" 
o|inlining procedure: k9780 
o|inlining procedure: "(optimizer.scm:1355) chicken.compiler.optimizer#second" 
o|inlining procedure: k9748 
o|inlining procedure: "(optimizer.scm:1347) chicken.compiler.optimizer#first" 
o|inlining procedure: k9739 
o|inlining procedure: k9813 
o|inlining procedure: k9822 
o|inlining procedure: "(optimizer.scm:1363) chicken.compiler.optimizer#first" 
o|inlining procedure: k9822 
o|inlining procedure: k9813 
o|inlining procedure: k9847 
o|inlining procedure: k9856 
o|inlining procedure: k9888 
o|inlining procedure: k9888 
o|substituted constant variable: a9980 
o|inlining procedure: k9856 
o|inlining procedure: k9847 
o|inlining procedure: k9990 
o|inlining procedure: k10002 
o|inlining procedure: "(optimizer.scm:1408) chicken.compiler.optimizer#third" 
o|inlining procedure: "(optimizer.scm:1405) chicken.compiler.optimizer#second" 
o|inlining procedure: k10002 
o|inlining procedure: "(optimizer.scm:1399) chicken.compiler.optimizer#first" 
o|inlining procedure: k9990 
o|inlining procedure: "(optimizer.scm:1397) chicken.compiler.optimizer#fourth" 
o|inlining procedure: k10071 
o|inlining procedure: k10080 
o|inlining procedure: k10122 
o|inlining procedure: "(optimizer.scm:1431) chicken.compiler.optimizer#first" 
o|inlining procedure: k10122 
o|inlining procedure: k10161 
o|inlining procedure: k10161 
o|inlining procedure: k10200 
o|inlining procedure: "(optimizer.scm:1427) chicken.compiler.optimizer#first" 
o|inlining procedure: k10200 
o|inlining procedure: "(optimizer.scm:1422) chicken.compiler.optimizer#third" 
o|inlining procedure: "(optimizer.scm:1422) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1421) chicken.compiler.optimizer#fourth" 
o|inlining procedure: "(optimizer.scm:1419) chicken.compiler.optimizer#first" 
o|inlining procedure: k10080 
o|inlining procedure: k10071 
o|inlining procedure: k10242 
o|inlining procedure: k10251 
o|inlining procedure: k10278 
o|inlining procedure: k10278 
o|inlining procedure: "(optimizer.scm:1464) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1453) chicken.compiler.optimizer#third" 
o|inlining procedure: k10251 
o|inlining procedure: k10242 
o|inlining procedure: "(optimizer.scm:1449) chicken.compiler.optimizer#fourth" 
o|inlining procedure: "(optimizer.scm:1447) chicken.compiler.optimizer#first" 
o|inlining procedure: k10306 
o|inlining procedure: k10315 
o|consed rest parameter at call site: "(optimizer.scm:1478) chicken.compiler.optimizer#cons*" 2 
o|inlining procedure: k10372 
o|contracted procedure: "(optimizer.scm:1489) defarg1841" 
o|inlining procedure: k8263 
o|inlining procedure: k8263 
o|inlining procedure: k10372 
o|inlining procedure: "(optimizer.scm:1479) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1477) chicken.compiler.optimizer#second" 
o|inlining procedure: "(optimizer.scm:1475) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:1474) chicken.compiler.optimizer#first" 
o|inlining procedure: k10315 
o|inlining procedure: k10306 
o|substituted constant variable: a10444 
o|substituted constant variable: a10446 
o|substituted constant variable: a10448 
o|substituted constant variable: a10450 
o|substituted constant variable: a10452 
o|substituted constant variable: a10454 
o|substituted constant variable: a10456 
o|substituted constant variable: a10458 
o|substituted constant variable: a10460 
o|substituted constant variable: a10462 
o|substituted constant variable: a10464 
o|substituted constant variable: a10466 
o|substituted constant variable: a10468 
o|substituted constant variable: a10470 
o|substituted constant variable: a10472 
o|substituted constant variable: a10474 
o|substituted constant variable: a10476 
o|substituted constant variable: a10478 
o|substituted constant variable: a10480 
o|substituted constant variable: a10482 
o|substituted constant variable: a10484 
o|substituted constant variable: a10486 
o|substituted constant variable: a10488 
o|replaced variables: 3030 
o|removed binding forms: 447 
o|substituted constant variable: r349314124 
o|substituted constant variable: r359914130 
o|substituted constant variable: r363914132 
o|substituted constant variable: r379414140 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#second 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#third 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#fourth 
o|substituted constant variable: r400314149 
o|substituted constant variable: r440214150 
o|substituted constant variable: r513514216 
o|substituted constant variable: r512314229 
o|substituted constant variable: r529114242 
o|substituted constant variable: r528114243 
o|substituted constant variable: r526914244 
o|substituted constant variable: r525714250 
o|substituted constant variable: r535614256 
o|substituted constant variable: r536814258 
o|substituted constant variable: r536814259 
o|substituted constant variable: r524514260 
o|inlining procedure: k5403 
o|inlining procedure: k5473 
o|inlining procedure: k5473 
o|inlining procedure: k5403 
o|substituted constant variable: r578814336 
o|converted assignments to bindings: (cfk1075) 
o|substituted constant variable: r660714447 
o|substituted constant variable: r735614451 
o|substituted constant variable: r658914459 
o|substituted constant variable: r657714460 
o|substituted constant variable: r667914483 
o|substituted constant variable: r676114488 
o|substituted constant variable: r673414489 
o|substituted constant variable: r672214495 
o|substituted constant variable: r671014501 
o|substituted constant variable: r682114508 
o|inlining procedure: k6965 
o|substituted constant variable: r709514542 
o|substituted constant variable: r755714585 
o|substituted constant variable: r1057814619 
o|substituted constant variable: r1056614625 
o|substituted constant variable: r1055714626 
o|substituted constant variable: r1054214627 
o|substituted constant variable: r1053014628 
o|substituted constant variable: r1076414689 
o|substituted constant variable: r1083314698 
o|substituted constant variable: r1083314699 
o|substituted constant variable: r1082714705 
o|substituted constant variable: r1087614707 
o|substituted constant variable: r1087614708 
o|substituted constant variable: r1089614716 
o|substituted constant variable: r1091514717 
o|substituted constant variable: r1091514718 
o|substituted constant variable: r1094414726 
o|substituted constant variable: r1096914727 
o|inlining procedure: k10975 
o|inlining procedure: k10975 
o|substituted constant variable: r1096914738 
o|substituted constant variable: r1106514775 
o|substituted constant variable: r443814788 
o|substituted constant variable: r1112214789 
o|substituted constant variable: r1176714886 
o|inlining procedure: k11833 
o|inlining procedure: k11833 
o|substituted constant variable: r1185414907 
o|substituted constant variable: r1196414908 
o|substituted constant variable: r1194614919 
o|inlining procedure: "(optimizer.scm:1861) chicken.compiler.optimizer#first" 
o|inlining procedure: "(optimizer.scm:930) chicken.compiler.optimizer#register-simplifications" 
o|substituted constant variable: r1282215025 
o|substituted constant variable: r1281015026 
o|substituted constant variable: r1295315028 
o|inlining procedure: "(optimizer.scm:713) chicken.compiler.optimizer#register-simplifications" 
o|substituted constant variable: r1303415032 
o|substituted constant variable: r1317615037 
o|substituted constant variable: r1316715038 
o|substituted constant variable: r1335215040 
o|substituted constant variable: r767815074 
o|substituted constant variable: r776015077 
o|substituted constant variable: r780515080 
o|substituted constant variable: r404715084 
o|converted assignments to bindings: (find-path1672) 
o|substituted constant variable: r1361215104 
o|substituted constant variable: r1364215118 
o|substituted constant variable: r1363015124 
o|substituted constant variable: r1361815135 
o|substituted constant variable: r1352015156 
o|substituted constant variable: r1346615167 
o|substituted constant variable: r1345415173 
o|substituted constant variable: r1376015176 
o|substituted constant variable: r1374815177 
o|substituted constant variable: r1389915181 
o|substituted constant variable: r1388715182 
o|substituted constant variable: r1387515183 
o|inlining procedure: "(optimizer.scm:694) chicken.compiler.optimizer#register-simplifications" 
o|substituted constant variable: r1405815184 
o|substituted constant variable: r823215193 
o|substituted constant variable: r836215204 
o|substituted constant variable: r835015205 
o|substituted constant variable: r842215239 
o|substituted constant variable: r841315245 
o|substituted constant variable: r848015265 
o|substituted constant variable: r858815294 
o|substituted constant variable: r858215295 
o|substituted constant variable: r866515314 
o|substituted constant variable: r865315320 
o|substituted constant variable: r874215334 
o|substituted constant variable: r873015335 
o|substituted constant variable: r882215354 
o|substituted constant variable: r881315360 
o|substituted constant variable: r888115373 
o|substituted constant variable: r893215397 
o|substituted constant variable: r890515410 
o|substituted constant variable: r916015448 
o|substituted constant variable: r914815454 
o|substituted constant variable: r925815468 
o|substituted constant variable: r924015479 
o|substituted constant variable: r931615505 
o|substituted constant variable: r930715511 
o|substituted constant variable: r940415520 
o|substituted constant variable: r938915531 
o|substituted constant variable: r947115550 
o|substituted constant variable: r945915561 
o|substituted constant variable: r945015567 
o|substituted constant variable: r957715582 
o|substituted constant variable: r954215593 
o|substituted constant variable: r953015599 
o|inlining procedure: k9678 
o|substituted constant variable: r971815618 
o|substituted constant variable: r964315619 
o|substituted constant variable: r963115620 
o|substituted constant variable: r974915652 
o|substituted constant variable: r982315666 
o|substituted constant variable: r981415667 
o|substituted constant variable: r985715672 
o|substituted constant variable: r1000315686 
o|substituted constant variable: r999115692 
o|substituted constant variable: r1020115716 
o|substituted constant variable: r1020115716 
o|folded constant expression: (scheme#not (quote #f)) 
o|substituted constant variable: r1008115738 
o|substituted constant variable: r1025215756 
o|substituted constant variable: r1024315757 
o|substituted constant variable: r1031615794 
o|simplifications: ((let . 2)) 
o|replaced variables: 1138 
o|removed binding forms: 2452 
o|inlining procedure: k5143 
o|inlining procedure: "(optimizer.scm:186) chicken.compiler.optimizer#alist-cons" 
o|inlining procedure: k5107 
o|inlining procedure: k5235 
o|inlining procedure: k5235 
o|inlining procedure: k5235 
o|inlining procedure: k5235 
o|inlining procedure: k5235 
o|inlining procedure: k5235 
o|inlining procedure: k5235 
o|inlining procedure: k5235 
o|inlining procedure: k5235 
o|inlining procedure: k5235 
o|inlining procedure: k5235 
o|inlining procedure: "(optimizer.scm:312) chicken.compiler.optimizer#alist-cons" 
o|inlining procedure: "(optimizer.scm:456) chicken.compiler.optimizer#alist-cons" 
o|inlining procedure: k7235 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#register-simplifications 
o|inlining procedure: "(optimizer.scm:1570) chicken.compiler.optimizer#alist-cons" 
o|substituted constant variable: r109691472715922 
o|substituted constant variable: r109691472715925 
o|inlining procedure: "(optimizer.scm:1650) chicken.compiler.optimizer#alist-cons" 
o|inlining procedure: "(optimizer.scm:1683) chicken.compiler.optimizer#alist-cons" 
o|inlining procedure: "(optimizer.scm:1769) chicken.compiler.optimizer#alist-cons" 
o|substituted constant variable: class139615998 
o|substituted constant variable: class139616006 
o|inlining procedure: "(optimizer.scm:1000) chicken.compiler.optimizer#alist-cons" 
o|inlining procedure: "(optimizer.scm:1012) chicken.compiler.optimizer#alist-cons" 
o|inlining procedure: "(optimizer.scm:1026) chicken.compiler.optimizer#alist-cons" 
o|substituted constant variable: class139616057 
o|inlining procedure: "(optimizer.scm:708) chicken.compiler.optimizer#alist-cons" 
o|removed call to pure procedure with unused result: "(optimizer.scm:1205) ##sys#slot" 
o|inlining procedure: "(optimizer.scm:1325) chicken.compiler.optimizer#fifth" 
o|inlining procedure: "(optimizer.scm:1420) chicken.compiler.optimizer#fifth" 
o|inlining procedure: "(optimizer.scm:1460) chicken.compiler.optimizer#fifth" 
o|replaced variables: 12 
o|removed binding forms: 910 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#fifth 
o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#alist-cons 
o|substituted constant variable: y24516132 
o|substituted constant variable: r510816139 
o|substituted constant variable: r510816139 
o|substituted constant variable: r523616142 
o|substituted constant variable: r523616142 
o|substituted constant variable: r523616145 
o|substituted constant variable: r523616145 
o|substituted constant variable: r523616148 
o|substituted constant variable: r523616148 
o|substituted constant variable: r523616151 
o|substituted constant variable: r523616151 
o|substituted constant variable: r523616154 
o|substituted constant variable: r523616154 
o|substituted constant variable: r523616157 
o|substituted constant variable: r523616157 
o|substituted constant variable: r523616160 
o|substituted constant variable: r523616160 
o|substituted constant variable: r523616163 
o|substituted constant variable: r523616163 
o|substituted constant variable: r523616166 
o|substituted constant variable: r523616166 
o|substituted constant variable: r523616169 
o|substituted constant variable: r523616169 
o|substituted constant variable: r523616172 
o|substituted constant variable: r523616172 
o|substituted constant variable: x24416242 
o|substituted constant variable: y24516341 
o|contracted procedure: k9102 
o|inlining procedure: k9783 
o|replaced variables: 35 
o|removed binding forms: 45 
o|removed conditional forms: 12 
o|substituted constant variable: r978416531 
o|removed binding forms: 53 
o|removed conditional forms: 1 
o|removed binding forms: 1 
o|simplifications: ((if . 45) (let . 41) (##core#call . 1305)) 
o|  call simplifications:
o|    scheme#>=
o|    scheme#symbol?
o|    scheme#cddddr	4
o|    scheme#*
o|    scheme#<=
o|    chicken.fixnum#fx<
o|    scheme#=	10
o|    chicken.base#fixnum?
o|    chicken.fixnum#fx=
o|    ##sys#cons	17
o|    ##sys#list	87
o|    scheme#assoc
o|    scheme#-
o|    chicken.fixnum#fx>	2
o|    scheme#set-car!
o|    scheme#list?	6
o|    scheme#>	5
o|    scheme#length	46
o|    scheme#<	6
o|    ##sys#call-with-values	6
o|    scheme#cadddr	16
o|    scheme#+	8
o|    scheme#cddr	6
o|    scheme#member	4
o|    scheme#list	150
o|    scheme#cadr	55
o|    scheme#caddr	34
o|    scheme#caar	2
o|    scheme#assq	10
o|    scheme#set-cdr!	3
o|    scheme#equal?	6
o|    scheme#eq?	147
o|    scheme#memq	17
o|    chicken.fixnum#fx>=
o|    chicken.fixnum#fx+
o|    scheme#not	59
o|    scheme#null?	32
o|    scheme#apply	3
o|    scheme#cdr	41
o|    ##sys#setslot	18
o|    ##sys#check-list	32
o|    scheme#pair?	63
o|    ##sys#slot	106
o|    scheme#values	8
o|    chicken.fixnum#fx<=	3
o|    scheme#car	177
o|    chicken.fixnum#fx-	2
o|    scheme#cons	102
o|contracted procedure: k3495 
o|contracted procedure: k3502 
o|contracted procedure: k3512 
o|contracted procedure: k3553 
o|contracted procedure: k3567 
o|contracted procedure: k3577 
o|contracted procedure: k3571 
o|contracted procedure: k3586 
o|contracted procedure: k3589 
o|contracted procedure: k3601 
o|contracted procedure: k3617 
o|contracted procedure: k3625 
o|contracted procedure: k3632 
o|contracted procedure: k3656 
o|contracted procedure: k3673 
o|contracted procedure: k3695 
o|contracted procedure: k3691 
o|contracted procedure: k3676 
o|contracted procedure: k3679 
o|contracted procedure: k3687 
o|contracted procedure: k3702 
o|contracted procedure: k3710 
o|contracted procedure: k3722 
o|contracted procedure: k3744 
o|contracted procedure: k3740 
o|contracted procedure: k3725 
o|contracted procedure: k3728 
o|contracted procedure: k3736 
o|contracted procedure: k3759 
o|contracted procedure: k3768 
o|contracted procedure: k3781 
o|contracted procedure: k3796 
o|contracted procedure: k3811 
o|contracted procedure: k3826 
o|contracted procedure: k3837 
o|contracted procedure: k3882 
o|contracted procedure: k3908 
o|contracted procedure: k3993 
o|contracted procedure: k4005 
o|contracted procedure: k4023 
o|contracted procedure: k4031 
o|contracted procedure: k4404 
o|contracted procedure: k4419 
o|contracted procedure: k4688 
o|contracted procedure: k4691 
o|contracted procedure: k4698 
o|contracted procedure: k4725 
o|contracted procedure: k4737 
o|contracted procedure: k4747 
o|contracted procedure: k4751 
o|contracted procedure: k4769 
o|contracted procedure: k4772 
o|contracted procedure: k4793 
o|contracted procedure: k4789 
o|contracted procedure: k4800 
o|contracted procedure: k4814 
o|contracted procedure: k4803 
o|contracted procedure: k4810 
o|contracted procedure: k4820 
o|contracted procedure: k4836 
o|contracted procedure: k4840 
o|contracted procedure: k4846 
o|contracted procedure: k4172 
o|contracted procedure: k4162 
o|contracted procedure: k4870 
o|contracted procedure: k4873 
o|contracted procedure: k4879 
o|contracted procedure: k4888 
o|contracted procedure: k4891 
o|contracted procedure: k4894 
o|contracted procedure: k4912 
o|contracted procedure: k4935 
o|contracted procedure: k4954 
o|contracted procedure: k4985 
o|contracted procedure: k4997 
o|contracted procedure: k5007 
o|contracted procedure: k5011 
o|contracted procedure: k5014 
o|contracted procedure: k3957 
o|contracted procedure: k3960 
o|contracted procedure: k3970 
o|contracted procedure: k5072 
o|contracted procedure: k5084 
o|contracted procedure: k5098 
o|contracted procedure: k5087 
o|contracted procedure: k5094 
o|contracted procedure: k5119 
o|contracted procedure: k5137 
o|contracted procedure: k5140 
o|contracted procedure: k5157 
o|contracted procedure: k5143 
o|contracted procedure: k398716136 
o|contracted procedure: k5161 
o|contracted procedure: k5165 
o|contracted procedure: k5169 
o|contracted procedure: k5178 
o|contracted procedure: k5181 
o|contracted procedure: k5193 
o|contracted procedure: k5196 
o|contracted procedure: k5199 
o|contracted procedure: k5207 
o|contracted procedure: k5215 
o|contracted procedure: k5222 
o|contracted procedure: k5232 
o|contracted procedure: k5241 
o|contracted procedure: k5253 
o|contracted procedure: k5259 
o|contracted procedure: k5265 
o|contracted procedure: k5271 
o|contracted procedure: k5283 
o|contracted procedure: k5293 
o|contracted procedure: k5313 
o|contracted procedure: k5317 
o|contracted procedure: k5352 
o|contracted procedure: k5358 
o|contracted procedure: k5364 
o|contracted procedure: k5370 
o|contracted procedure: k5387 
o|contracted procedure: k5406 
o|contracted procedure: k5439 
o|contracted procedure: k5412 
o|contracted procedure: k5427 
o|contracted procedure: k5424 
o|contracted procedure: k5445 
o|contracted procedure: k5454 
o|contracted procedure: k5506 
o|contracted procedure: k5510 
o|contracted procedure: k5461 
o|contracted procedure: k5470 
o|contracted procedure: k4221 
o|contracted procedure: k4247 
o|contracted procedure: k4227 
o|contracted procedure: k4241 
o|contracted procedure: k5494 
o|contracted procedure: k5502 
o|contracted procedure: k5498 
o|contracted procedure: k5554 
o|contracted procedure: k5576 
o|contracted procedure: k5651 
o|contracted procedure: k5647 
o|contracted procedure: k5590 
o|contracted procedure: k5597 
o|contracted procedure: k5603 
o|contracted procedure: k5611 
o|contracted procedure: k5633 
o|contracted procedure: k5655 
o|contracted procedure: k5661 
o|contracted procedure: k5664 
o|contracted procedure: k5685 
o|contracted procedure: k5695 
o|contracted procedure: k5703 
o|contracted procedure: k5715 
o|contracted procedure: k5718 
o|contracted procedure: k5721 
o|contracted procedure: k5729 
o|contracted procedure: k5737 
o|contracted procedure: k5750 
o|contracted procedure: k398716185 
o|contracted procedure: k5758 
o|contracted procedure: k5761 
o|contracted procedure: k5768 
o|contracted procedure: k5776 
o|contracted procedure: k5784 
o|contracted procedure: k5803 
o|contracted procedure: k5806 
o|contracted procedure: k5809 
o|contracted procedure: k3393 
o|contracted procedure: k3417 
o|contracted procedure: k3428 
o|contracted procedure: k3436 
o|contracted procedure: k5872 
o|contracted procedure: k5876 
o|contracted procedure: k5884 
o|contracted procedure: k5852 
o|contracted procedure: k5856 
o|contracted procedure: k5864 
o|contracted procedure: k5868 
o|contracted procedure: k5946 
o|contracted procedure: k5950 
o|contracted procedure: k5958 
o|contracted procedure: k5926 
o|contracted procedure: k5930 
o|contracted procedure: k5938 
o|contracted procedure: k5942 
o|contracted procedure: k5967 
o|contracted procedure: k5973 
o|contracted procedure: k5982 
o|contracted procedure: k5985 
o|contracted procedure: k5994 
o|contracted procedure: k5997 
o|contracted procedure: k6016 
o|contracted procedure: k6036 
o|contracted procedure: k6050 
o|contracted procedure: k6063 
o|contracted procedure: k6073 
o|contracted procedure: k6077 
o|contracted procedure: k6102 
o|contracted procedure: k6110 
o|contracted procedure: k6106 
o|contracted procedure: k6126 
o|contracted procedure: k6135 
o|contracted procedure: k6161 
o|contracted procedure: k6203 
o|contracted procedure: k398716202 
o|contracted procedure: k6193 
o|propagated global variable: z24616199 chicken.compiler.optimizer#inline-history 
o|contracted procedure: k6207 
o|contracted procedure: k6220 
o|contracted procedure: k6230 
o|contracted procedure: k6234 
o|contracted procedure: k6238 
o|contracted procedure: k6242 
o|contracted procedure: k6433 
o|contracted procedure: k6260 
o|contracted procedure: k6275 
o|contracted procedure: k6278 
o|contracted procedure: k6284 
o|contracted procedure: k6292 
o|contracted procedure: k6310 
o|contracted procedure: k6313 
o|contracted procedure: k6316 
o|contracted procedure: k6324 
o|contracted procedure: k6332 
o|contracted procedure: k6368 
o|contracted procedure: k6372 
o|contracted procedure: k6405 
o|contracted procedure: k6418 
o|contracted procedure: k6422 
o|contracted procedure: k6428 
o|contracted procedure: k6560 
o|contracted procedure: k6448 
o|contracted procedure: k6473 
o|contracted procedure: k6480 
o|contracted procedure: k6488 
o|contracted procedure: k6500 
o|contracted procedure: k6503 
o|contracted procedure: k6506 
o|contracted procedure: k6514 
o|contracted procedure: k6522 
o|contracted procedure: k6533 
o|contracted procedure: k6540 
o|contracted procedure: k6556 
o|contracted procedure: k6550 
o|contracted procedure: k6573 
o|contracted procedure: k6585 
o|contracted procedure: k6591 
o|contracted procedure: k6615 
o|contracted procedure: k7334 
o|contracted procedure: k7343 
o|contracted procedure: k7374 
o|contracted procedure: k7352 
o|contracted procedure: k7358 
o|contracted procedure: k6618 
o|contracted procedure: k6628 
o|contracted procedure: k6662 
o|contracted procedure: k6668 
o|contracted procedure: k6681 
o|contracted procedure: k6688 
o|contracted procedure: k6706 
o|contracted procedure: k6712 
o|contracted procedure: k6724 
o|contracted procedure: k6730 
o|contracted procedure: k6763 
o|contracted procedure: k6782 
o|contracted procedure: k6793 
o|contracted procedure: k6814 
o|contracted procedure: k6823 
o|contracted procedure: k6834 
o|contracted procedure: k6845 
o|contracted procedure: k6868 
o|contracted procedure: k6874 
o|contracted procedure: k6937 
o|contracted procedure: k6887 
o|contracted procedure: k6891 
o|contracted procedure: k6908 
o|contracted procedure: k6911 
o|contracted procedure: k6914 
o|contracted procedure: k6922 
o|contracted procedure: k6930 
o|contracted procedure: k6950 
o|contracted procedure: k6953 
o|contracted procedure: k7007 
o|contracted procedure: k7056 
o|contracted procedure: k7047 
o|contracted procedure: k7073 
o|contracted procedure: k7064 
o|contracted procedure: k7010 
o|contracted procedure: k7022 
o|contracted procedure: k7032 
o|contracted procedure: k7036 
o|contracted procedure: k7077 
o|contracted procedure: k7085 
o|contracted procedure: k7088 
o|contracted procedure: k7097 
o|contracted procedure: k7103 
o|contracted procedure: k7114 
o|contracted procedure: k7163 
o|contracted procedure: k7189 
o|contracted procedure: k7195 
o|contracted procedure: k7204 
o|contracted procedure: k7241 
o|contracted procedure: k7247 
o|contracted procedure: k7253 
o|contracted procedure: k7259 
o|contracted procedure: k7296 
o|contracted procedure: k7308 
o|contracted procedure: k7318 
o|contracted procedure: k7322 
o|contracted procedure: k7279 
o|contracted procedure: k7293 
o|propagated global variable: g12911293 chicken.compiler.optimizer#simplified-ops 
o|contracted procedure: k7325 
o|contracted procedure: k7399 
o|contracted procedure: k7410 
o|contracted procedure: k7416 
o|contracted procedure: k7431 
o|contracted procedure: k7434 
o|contracted procedure: k7446 
o|contracted procedure: k7458 
o|contracted procedure: k7468 
o|contracted procedure: k7488 
o|contracted procedure: k7484 
o|contracted procedure: k7498 
o|contracted procedure: k7501 
o|contracted procedure: k7508 
o|contracted procedure: k7535 
o|contracted procedure: k7523 
o|contracted procedure: k7538 
o|contracted procedure: k7545 
o|contracted procedure: k7582 
o|contracted procedure: k7559 
o|contracted procedure: k7577 
o|contracted procedure: k7565 
o|contracted procedure: k7585 
o|contracted procedure: k7600 
o|contracted procedure: k7606 
o|contracted procedure: k7609 
o|contracted procedure: k7621 
o|contracted procedure: k7631 
o|contracted procedure: k7635 
o|contracted procedure: k8199 
o|contracted procedure: k8210 
o|contracted procedure: k10507 
o|contracted procedure: k10510 
o|contracted procedure: k10526 
o|contracted procedure: k10532 
o|contracted procedure: k10538 
o|contracted procedure: k10544 
o|contracted procedure: k10568 
o|contracted procedure: k10574 
o|contracted procedure: k10599 
o|contracted procedure: k10603 
o|contracted procedure: k10580 
o|contracted procedure: k10587 
o|contracted procedure: k10591 
o|contracted procedure: k10595 
o|contracted procedure: k10611 
o|contracted procedure: k10625 
o|contracted procedure: k10632 
o|contracted procedure: k10636 
o|contracted procedure: k10642 
o|contracted procedure: k10652 
o|contracted procedure: k10656 
o|contracted procedure: k10660 
o|contracted procedure: k10668 
o|contracted procedure: k10680 
o|contracted procedure: k10690 
o|contracted procedure: k10694 
o|contracted procedure: k10721 
o|contracted procedure: k10724 
o|contracted procedure: k10727 
o|contracted procedure: k10750 
o|contracted procedure: k10733 
o|contracted procedure: k10742 
o|contracted procedure: k10746 
o|contracted procedure: k10760 
o|contracted procedure: k10770 
o|contracted procedure: k10777 
o|contracted procedure: k10784 
o|contracted procedure: k10794 
o|contracted procedure: k10800 
o|contracted procedure: k10817 
o|contracted procedure: k10804 
o|contracted procedure: k10823 
o|contracted procedure: k10835 
o|contracted procedure: k398716232 
o|contracted procedure: k10839 
o|contracted procedure: k10847 
o|contracted procedure: k10853 
o|contracted procedure: k10878 
o|contracted procedure: k10882 
o|contracted procedure: k10886 
o|contracted procedure: k10892 
o|contracted procedure: k10917 
o|contracted procedure: k10921 
o|contracted procedure: k10925 
o|contracted procedure: k10931 
o|contracted procedure: k10934 
o|contracted procedure: k10940 
o|contracted procedure: k10946 
o|contracted procedure: k10962 
o|contracted procedure: k10965 
o|contracted procedure: k10972 
o|contracted procedure: k10979 
o|contracted procedure: k10987 
o|contracted procedure: k10983 
o|contracted procedure: k11012 
o|contracted procedure: k11015 
o|contracted procedure: k11025 
o|contracted procedure: k11029 
o|contracted procedure: k11044 
o|contracted procedure: k11051 
o|contracted procedure: k11055 
o|contracted procedure: k11061 
o|contracted procedure: k11074 
o|contracted procedure: k11082 
o|contracted procedure: k11086 
o|contracted procedure: k4453 
o|contracted procedure: k4457 
o|contracted procedure: k4440 
o|contracted procedure: k11783 
o|contracted procedure: k11144 
o|contracted procedure: k11156 
o|contracted procedure: k11165 
o|contracted procedure: k11176 
o|contracted procedure: k11242 
o|contracted procedure: k11235 
o|contracted procedure: k11185 
o|contracted procedure: k11199 
o|contracted procedure: k11195 
o|contracted procedure: k11207 
o|contracted procedure: k11217 
o|contracted procedure: k11211 
o|contracted procedure: k11232 
o|contracted procedure: k11228 
o|contracted procedure: k11220 
o|contracted procedure: k11248 
o|contracted procedure: k11257 
o|contracted procedure: k11266 
o|contracted procedure: k11311 
o|contracted procedure: k11325 
o|contracted procedure: k11277 
o|contracted procedure: k11314 
o|contracted procedure: k11321 
o|contracted procedure: k11295 
o|contracted procedure: k11334 
o|contracted procedure: k11383 
o|contracted procedure: k11376 
o|contracted procedure: k11343 
o|contracted procedure: k11347 
o|contracted procedure: k11350 
o|contracted procedure: k11391 
o|contracted procedure: k11403 
o|contracted procedure: k11413 
o|contracted procedure: k11417 
o|contracted procedure: k11423 
o|contracted procedure: k11440 
o|contracted procedure: k11444 
o|contracted procedure: k11462 
o|contracted procedure: k11465 
o|contracted procedure: k11468 
o|contracted procedure: k11480 
o|contracted procedure: k11651 
o|contracted procedure: k11486 
o|contracted procedure: k398716247 
o|contracted procedure: k11490 
o|contracted procedure: k11621 
o|contracted procedure: k11496 
o|contracted procedure: k11512 
o|contracted procedure: k11516 
o|contracted procedure: k11531 
o|contracted procedure: k11527 
o|contracted procedure: k11519 
o|contracted procedure: k11617 
o|contracted procedure: k11534 
o|contracted procedure: k11542 
o|contracted procedure: k11545 
o|contracted procedure: k11564 
o|contracted procedure: k11572 
o|contracted procedure: k11576 
o|contracted procedure: k11584 
o|contracted procedure: k11603 
o|contracted procedure: k11599 
o|contracted procedure: k11591 
o|contracted procedure: k11647 
o|contracted procedure: k11627 
o|contracted procedure: k11640 
o|contracted procedure: k11661 
o|contracted procedure: k11664 
o|contracted procedure: k11667 
o|contracted procedure: k11673 
o|contracted procedure: k398716254 
o|contracted procedure: k11677 
o|contracted procedure: k11687 
o|contracted procedure: k11690 
o|contracted procedure: k11702 
o|contracted procedure: k11712 
o|contracted procedure: k11716 
o|contracted procedure: k11719 
o|contracted procedure: k11731 
o|contracted procedure: k11741 
o|contracted procedure: k11745 
o|contracted procedure: k11763 
o|contracted procedure: k11769 
o|contracted procedure: k11776 
o|contracted procedure: k11786 
o|contracted procedure: k4102 
o|contracted procedure: k4110 
o|contracted procedure: k4122 
o|contracted procedure: k4144 
o|contracted procedure: k4140 
o|contracted procedure: k4125 
o|contracted procedure: k4128 
o|contracted procedure: k4136 
o|contracted procedure: k11830 
o|contracted procedure: k11846 
o|contracted procedure: k11838 
o|contracted procedure: k398716269 
o|contracted procedure: k11842 
o|contracted procedure: k11889 
o|contracted procedure: k11892 
o|contracted procedure: k11895 
o|contracted procedure: k11898 
o|contracted procedure: k11912 
o|contracted procedure: k11922 
o|contracted procedure: k11929 
o|contracted procedure: k11942 
o|contracted procedure: k11948 
o|contracted procedure: k11951 
o|contracted procedure: k11954 
o|contracted procedure: k11960 
o|contracted procedure: k11979 
o|contracted procedure: k11983 
o|contracted procedure: k11966 
o|contracted procedure: k11972 
o|contracted procedure: k11856 
o|contracted procedure: k11863 
o|contracted procedure: k12010 
o|contracted procedure: k12023 
o|contracted procedure: k12026 
o|contracted procedure: k12033 
o|contracted procedure: k12056 
o|contracted procedure: k12074 
o|contracted procedure: k12086 
o|contracted procedure: k12096 
o|contracted procedure: k12100 
o|contracted procedure: k12120 
o|contracted procedure: k12130 
o|contracted procedure: k12135 
o|contracted procedure: k12138 
o|contracted procedure: k12144 
o|contracted procedure: k12147 
o|contracted procedure: k12150 
o|contracted procedure: k12162 
o|contracted procedure: k12187 
o|contracted procedure: k12190 
o|contracted procedure: k12193 
o|contracted procedure: k12201 
o|contracted procedure: k12209 
o|contracted procedure: k12223 
o|contracted procedure: k12251 
o|contracted procedure: k12254 
o|contracted procedure: k12285 
o|contracted procedure: k12293 
o|contracted procedure: k12307 
o|contracted procedure: k12297 
o|contracted procedure: k12314 
o|contracted procedure: k12326 
o|contracted procedure: k12336 
o|contracted procedure: k12340 
o|contracted procedure: k12344 
o|contracted procedure: k12356 
o|contracted procedure: k12366 
o|contracted procedure: k12370 
o|contracted procedure: k12376 
o|contracted procedure: k12396 
o|contracted procedure: k12400 
o|contracted procedure: k12412 
o|contracted procedure: k12416 
o|contracted procedure: k12444 
o|contracted procedure: k12458 
o|contracted procedure: k12462 
o|contracted procedure: k12470 
o|contracted procedure: k12474 
o|contracted procedure: k12482 
o|contracted procedure: k12490 
o|contracted procedure: k12498 
o|contracted procedure: k12520 
o|contracted procedure: k12529 
o|contracted procedure: k12563 
o|contracted procedure: k12539 
o|contracted procedure: k12543 
o|contracted procedure: k12559 
o|contracted procedure: k12567 
o|contracted procedure: k12584 
o|contracted procedure: k12587 
o|contracted procedure: k12610 
o|contracted procedure: k12622 
o|contracted procedure: k12644 
o|contracted procedure: k12640 
o|contracted procedure: k12625 
o|contracted procedure: k12628 
o|contracted procedure: k12636 
o|contracted procedure: k12655 
o|contracted procedure: k12665 
o|contracted procedure: k12677 
o|contracted procedure: k12689 
o|contracted procedure: k12711 
o|contracted procedure: k12674 
o|contracted procedure: k12707 
o|contracted procedure: k12692 
o|contracted procedure: k12695 
o|contracted procedure: k12703 
o|contracted procedure: k12723 
o|contracted procedure: k12726 
o|contracted procedure: k12729 
o|contracted procedure: k12737 
o|contracted procedure: k12745 
o|contracted procedure: k12751 
o|contracted procedure: k12761 
o|contracted procedure: k12770 
o|contracted procedure: k12780 
o|contracted procedure: k12784 
o|contracted procedure: k12995 
o|contracted procedure: k12991 
o|contracted procedure: k12975 
o|contracted procedure: k12987 
o|contracted procedure: k12983 
o|contracted procedure: k12979 
o|contracted procedure: k12942 
o|contracted procedure: k12946 
o|contracted procedure: k12959 
o|contracted procedure: k12971 
o|contracted procedure: k12788 
o|contracted procedure: k12930 
o|contracted procedure: k12938 
o|contracted procedure: k12934 
o|contracted procedure: k12926 
o|contracted procedure: k12796 
o|contracted procedure: k12800 
o|contracted procedure: k12806 
o|contracted procedure: k12812 
o|contracted procedure: k12914 
o|contracted procedure: k12818 
o|contracted procedure: k12910 
o|contracted procedure: k12827 
o|contracted procedure: k12834 
o|contracted procedure: k12838 
o|contracted procedure: k12846 
o|contracted procedure: k12859 
o|contracted procedure: k12868 
o|contracted procedure: k12880 
o|contracted procedure: k12895 
o|contracted procedure: k12903 
o|contracted procedure: k12792 
o|contracted procedure: k13946 
o|contracted procedure: k14010 
o|contracted procedure: k14026 
o|contracted procedure: k14014 
o|contracted procedure: k14022 
o|contracted procedure: k14018 
o|contracted procedure: k13950 
o|contracted procedure: k14006 
o|contracted procedure: k13958 
o|contracted procedure: k13966 
o|contracted procedure: k13986 
o|contracted procedure: k14002 
o|contracted procedure: k13990 
o|contracted procedure: k13998 
o|contracted procedure: k13994 
o|contracted procedure: k13970 
o|contracted procedure: k13982 
o|contracted procedure: k13978 
o|contracted procedure: k13974 
o|contracted procedure: k13962 
o|contracted procedure: k13954 
o|contracted procedure: k13864 
o|contracted procedure: k13868 
o|contracted procedure: k13877 
o|contracted procedure: k13934 
o|contracted procedure: k13895 
o|contracted procedure: k13925 
o|contracted procedure: k13901 
o|contracted procedure: k13908 
o|contracted procedure: k12999 
o|contracted procedure: k13800 
o|contracted procedure: k13844 
o|contracted procedure: k13860 
o|contracted procedure: k13848 
o|contracted procedure: k13856 
o|contracted procedure: k13852 
o|contracted procedure: k13804 
o|contracted procedure: k13840 
o|contracted procedure: k13812 
o|contracted procedure: k13824 
o|contracted procedure: k13836 
o|contracted procedure: k13832 
o|contracted procedure: k13828 
o|contracted procedure: k13820 
o|contracted procedure: k13816 
o|contracted procedure: k13808 
o|contracted procedure: k13737 
o|contracted procedure: k13741 
o|contracted procedure: k13750 
o|contracted procedure: k13788 
o|contracted procedure: k13762 
o|contracted procedure: k13769 
o|contracted procedure: k13003 
o|contracted procedure: k13729 
o|contracted procedure: k13733 
o|contracted procedure: k13424 
o|contracted procedure: k13428 
o|contracted procedure: k13438 
o|contracted procedure: k13456 
o|contracted procedure: k13725 
o|contracted procedure: k13462 
o|contracted procedure: k13468 
o|contracted procedure: k13474 
o|contracted procedure: k13477 
o|contracted procedure: k13492 
o|contracted procedure: k13507 
o|contracted procedure: k13499 
o|contracted procedure: k13503 
o|contracted procedure: k13513 
o|contracted procedure: k13522 
o|contracted procedure: k13697 
o|contracted procedure: k13701 
o|contracted procedure: k13528 
o|contracted procedure: k13693 
o|contracted procedure: k13535 
o|contracted procedure: k13541 
o|contracted procedure: k13578 
o|contracted procedure: k13566 
o|contracted procedure: k13570 
o|contracted procedure: k13574 
o|contracted procedure: k13586 
o|contracted procedure: k13592 
o|contracted procedure: k7656 
o|contracted procedure: k7659 
o|contracted procedure: k7662 
o|contracted procedure: k7709 
o|contracted procedure: k7680 
o|contracted procedure: k7705 
o|contracted procedure: k7683 
o|contracted procedure: k7686 
o|contracted procedure: k7692 
o|contracted procedure: k398716304 
o|contracted procedure: k7715 
o|contracted procedure: k7779 
o|contracted procedure: k7730 
o|contracted procedure: k7753 
o|contracted procedure: k398716311 
o|contracted procedure: k7737 
o|contracted procedure: k7745 
o|contracted procedure: k7775 
o|contracted procedure: k7762 
o|contracted procedure: k7787 
o|contracted procedure: k398716318 
o|contracted procedure: k7794 
o|contracted procedure: k7822 
o|contracted procedure: k7807 
o|contracted procedure: k7818 
o|contracted procedure: k4037 
o|contracted procedure: k4049 
o|contracted procedure: k4072 
o|contracted procedure: k4080 
o|contracted procedure: k7839 
o|contracted procedure: k7854 
o|contracted procedure: k7872 
o|contracted procedure: k7879 
o|contracted procedure: k8048 
o|contracted procedure: k7885 
o|contracted procedure: k7888 
o|contracted procedure: k7898 
o|contracted procedure: k7913 
o|contracted procedure: k7909 
o|contracted procedure: k7905 
o|contracted procedure: k7925 
o|contracted procedure: k7949 
o|contracted procedure: k7934 
o|contracted procedure: k7938 
o|contracted procedure: k7957 
o|contracted procedure: k7960 
o|contracted procedure: k7972 
o|contracted procedure: k7981 
o|contracted procedure: k7985 
o|contracted procedure: k7993 
o|contracted procedure: k8005 
o|contracted procedure: k8001 
o|contracted procedure: k7997 
o|contracted procedure: k8016 
o|contracted procedure: k8024 
o|contracted procedure: k8027 
o|contracted procedure: k8042 
o|contracted procedure: k8038 
o|contracted procedure: k8034 
o|contracted procedure: k8055 
o|contracted procedure: k8064 
o|contracted procedure: k8074 
o|contracted procedure: k8078 
o|contracted procedure: k8087 
o|contracted procedure: k8097 
o|contracted procedure: k8101 
o|contracted procedure: k8135 
o|contracted procedure: k8110 
o|contracted procedure: k8120 
o|contracted procedure: k8124 
o|contracted procedure: k8128 
o|contracted procedure: k8132 
o|contracted procedure: k8183 
o|contracted procedure: k8147 
o|contracted procedure: k8173 
o|contracted procedure: k8177 
o|contracted procedure: k8169 
o|contracted procedure: k8150 
o|contracted procedure: k8153 
o|contracted procedure: k8161 
o|contracted procedure: k8165 
o|contracted procedure: k13614 
o|contracted procedure: k13689 
o|contracted procedure: k13620 
o|contracted procedure: k13626 
o|contracted procedure: k13632 
o|contracted procedure: k13638 
o|contracted procedure: k13644 
o|contracted procedure: k13653 
o|contracted procedure: k13661 
o|contracted procedure: k13669 
o|contracted procedure: k13677 
o|contracted procedure: k13685 
o|contracted procedure: k13713 
o|contracted procedure: k13721 
o|contracted procedure: k13007 
o|contracted procedure: k13396 
o|contracted procedure: k13420 
o|contracted procedure: k13416 
o|contracted procedure: k13400 
o|contracted procedure: k13412 
o|contracted procedure: k13408 
o|contracted procedure: k13404 
o|contracted procedure: k13341 
o|contracted procedure: k13345 
o|contracted procedure: k13388 
o|contracted procedure: k13354 
o|contracted procedure: k13380 
o|contracted procedure: k13360 
o|contracted procedure: k13367 
o|contracted procedure: k13375 
o|contracted procedure: k13011 
o|contracted procedure: k13301 
o|contracted procedure: k13337 
o|contracted procedure: k13333 
o|contracted procedure: k13305 
o|contracted procedure: k13329 
o|contracted procedure: k13313 
o|contracted procedure: k13325 
o|contracted procedure: k13321 
o|contracted procedure: k13317 
o|contracted procedure: k13309 
o|contracted procedure: k13156 
o|contracted procedure: k13160 
o|contracted procedure: k13297 
o|contracted procedure: k13172 
o|contracted procedure: k13178 
o|contracted procedure: k13285 
o|contracted procedure: k13184 
o|contracted procedure: k13196 
o|contracted procedure: k13206 
o|contracted procedure: k13218 
o|contracted procedure: k13237 
o|contracted procedure: k13245 
o|contracted procedure: k13254 
o|contracted procedure: k13259 
o|contracted procedure: k13266 
o|contracted procedure: k13280 
o|contracted procedure: k13015 
o|contracted procedure: k13132 
o|contracted procedure: k13152 
o|contracted procedure: k13148 
o|contracted procedure: k13136 
o|contracted procedure: k13144 
o|contracted procedure: k13140 
o|contracted procedure: k13023 
o|contracted procedure: k13027 
o|contracted procedure: k13124 
o|contracted procedure: k13039 
o|contracted procedure: k13051 
o|contracted procedure: k13076 
o|contracted procedure: k13084 
o|contracted procedure: k13093 
o|contracted procedure: k13098 
o|contracted procedure: k13105 
o|contracted procedure: k13119 
o|contracted procedure: k13019 
o|contracted procedure: k14121 
o|contracted procedure: k14113 
o|contracted procedure: k14117 
o|contracted procedure: k14109 
o|contracted procedure: k14105 
o|contracted procedure: k14034 
o|contracted procedure: k14038 
o|contracted procedure: k14051 
o|contracted procedure: k14060 
o|contracted procedure: k14071 
o|contracted procedure: k14082 
o|contracted procedure: k14074 
o|contracted procedure: k398716345 
o|contracted procedure: k14086 
o|propagated global variable: z24616342 chicken.compiler.optimizer#simplified-ops 
o|contracted procedure: k14098 
o|contracted procedure: k8219 
o|contracted procedure: k8234 
o|contracted procedure: k8250 
o|contracted procedure: k8257 
o|contracted procedure: k8299 
o|contracted procedure: k8321 
o|contracted procedure: k8325 
o|contracted procedure: k8337 
o|contracted procedure: k8333 
o|contracted procedure: k8399 
o|contracted procedure: k8403 
o|contracted procedure: k8340 
o|contracted procedure: k8343 
o|contracted procedure: k8346 
o|contracted procedure: k8352 
o|contracted procedure: k8358 
o|contracted procedure: k8364 
o|contracted procedure: k8371 
o|contracted procedure: k8375 
o|contracted procedure: k8409 
o|contracted procedure: k8463 
o|contracted procedure: k8467 
o|contracted procedure: k8418 
o|contracted procedure: k8430 
o|contracted procedure: k8433 
o|contracted procedure: k8436 
o|contracted procedure: k8443 
o|contracted procedure: k8447 
o|contracted procedure: k8459 
o|contracted procedure: k8455 
o|contracted procedure: k8473 
o|contracted procedure: k8572 
o|contracted procedure: k8488 
o|contracted procedure: k8494 
o|contracted procedure: k8506 
o|contracted procedure: k8530 
o|contracted procedure: k8515 
o|contracted procedure: k8519 
o|contracted procedure: k8538 
o|contracted procedure: k8545 
o|contracted procedure: k8549 
o|contracted procedure: k8557 
o|contracted procedure: k8564 
o|contracted procedure: k8568 
o|contracted procedure: k8578 
o|contracted procedure: k8640 
o|contracted procedure: k8590 
o|contracted procedure: k8635 
o|contracted procedure: k8603 
o|contracted procedure: k8615 
o|contracted procedure: k8623 
o|contracted procedure: k8607 
o|contracted procedure: k8627 
o|contracted procedure: k8631 
o|contracted procedure: k8646 
o|contracted procedure: k8720 
o|contracted procedure: k8661 
o|contracted procedure: k8667 
o|contracted procedure: k8670 
o|contracted procedure: k8673 
o|contracted procedure: k8680 
o|contracted procedure: k8684 
o|contracted procedure: k8712 
o|contracted procedure: k8692 
o|contracted procedure: k8700 
o|contracted procedure: k8696 
o|contracted procedure: k8708 
o|contracted procedure: k8726 
o|contracted procedure: k8732 
o|contracted procedure: k8735 
o|contracted procedure: k8794 
o|contracted procedure: k8744 
o|contracted procedure: k8757 
o|contracted procedure: k8761 
o|contracted procedure: k8789 
o|contracted procedure: k8769 
o|contracted procedure: k8773 
o|contracted procedure: k8785 
o|contracted procedure: k8781 
o|contracted procedure: k8800 
o|contracted procedure: k8806 
o|contracted procedure: k8809 
o|contracted procedure: k8867 
o|contracted procedure: k8871 
o|contracted procedure: k8818 
o|contracted procedure: k8831 
o|contracted procedure: k8835 
o|contracted procedure: k8863 
o|contracted procedure: k8843 
o|contracted procedure: k8851 
o|contracted procedure: k8859 
o|contracted procedure: k8877 
o|contracted procedure: k8889 
o|contracted procedure: k8898 
o|contracted procedure: k9137 
o|contracted procedure: k8913 
o|contracted procedure: k8920 
o|contracted procedure: k8924 
o|contracted procedure: k8940 
o|contracted procedure: k8951 
o|contracted procedure: k8954 
o|contracted procedure: k8969 
o|contracted procedure: k8976 
o|contracted procedure: k9004 
o|contracted procedure: k9001 
o|contracted procedure: k8984 
o|contracted procedure: k8980 
o|contracted procedure: k8997 
o|contracted procedure: k9037 
o|contracted procedure: k9017 
o|contracted procedure: k9025 
o|contracted procedure: k9021 
o|contracted procedure: k9046 
o|contracted procedure: k9049 
o|contracted procedure: k9052 
o|contracted procedure: k9060 
o|contracted procedure: k9068 
o|contracted procedure: k9080 
o|contracted procedure: k9083 
o|contracted procedure: k9086 
o|contracted procedure: k9094 
o|contracted procedure: k9123 
o|contracted procedure: k9108 
o|contracted procedure: k9117 
o|contracted procedure: k9133 
o|contracted procedure: k9144 
o|contracted procedure: k9153 
o|contracted procedure: k9156 
o|contracted procedure: k9165 
o|contracted procedure: k9227 
o|contracted procedure: k9178 
o|contracted procedure: k9190 
o|contracted procedure: k9182 
o|contracted procedure: k9215 
o|contracted procedure: k9201 
o|contracted procedure: k9208 
o|contracted procedure: k9219 
o|contracted procedure: k9223 
o|contracted procedure: k9233 
o|contracted procedure: k9242 
o|contracted procedure: k9245 
o|contracted procedure: k9254 
o|contracted procedure: k9260 
o|contracted procedure: k9286 
o|contracted procedure: k9270 
o|contracted procedure: k9282 
o|contracted procedure: k9293 
o|contracted procedure: k9297 
o|contracted procedure: k9303 
o|contracted procedure: k9318 
o|contracted procedure: k9321 
o|contracted procedure: k9324 
o|contracted procedure: k9376 
o|contracted procedure: k9330 
o|contracted procedure: k9336 
o|contracted procedure: k9343 
o|contracted procedure: k9347 
o|contracted procedure: k9370 
o|contracted procedure: k9354 
o|contracted procedure: k9366 
o|contracted procedure: k9382 
o|contracted procedure: k9397 
o|contracted procedure: k9400 
o|contracted procedure: k9409 
o|contracted procedure: k9428 
o|contracted procedure: k9431 
o|contracted procedure: k9440 
o|contracted procedure: k9446 
o|contracted procedure: k9513 
o|contracted procedure: k9517 
o|contracted procedure: k9455 
o|contracted procedure: k9509 
o|contracted procedure: k9467 
o|contracted procedure: k9473 
o|contracted procedure: k9476 
o|contracted procedure: k9483 
o|contracted procedure: k9487 
o|contracted procedure: k9499 
o|contracted procedure: k9495 
o|contracted procedure: k9523 
o|contracted procedure: k9606 
o|contracted procedure: k9532 
o|contracted procedure: k9538 
o|contracted procedure: k9598 
o|contracted procedure: k9550 
o|contracted procedure: k9573 
o|contracted procedure: k9557 
o|contracted procedure: k9569 
o|contracted procedure: k9594 
o|contracted procedure: k9579 
o|contracted procedure: k9586 
o|contracted procedure: k9590 
o|contracted procedure: k9612 
o|contracted procedure: k9615 
o|contracted procedure: k9618 
o|contracted procedure: k9621 
o|contracted procedure: k9624 
o|contracted procedure: k9636 
o|contracted procedure: k9639 
o|contracted procedure: k9651 
o|contracted procedure: k9658 
o|contracted procedure: k9662 
o|contracted procedure: k9681 
o|inlining procedure: k9670 
o|contracted procedure: k9688 
o|contracted procedure: k9701 
o|contracted procedure: k9697 
o|contracted procedure: k9678 
o|inlining procedure: k9670 
o|contracted procedure: k9704 
o|contracted procedure: k9711 
o|contracted procedure: k9736 
o|contracted procedure: k9729 
o|contracted procedure: k394216358 
o|contracted procedure: k9742 
o|contracted procedure: k9800 
o|contracted procedure: k9804 
o|contracted procedure: k9751 
o|contracted procedure: k9764 
o|contracted procedure: k9768 
o|contracted procedure: k9776 
o|contracted procedure: k9796 
o|contracted procedure: k9783 
o|contracted procedure: k9810 
o|contracted procedure: k9819 
o|contracted procedure: k9832 
o|contracted procedure: k9836 
o|contracted procedure: k9844 
o|contracted procedure: k9850 
o|contracted procedure: k9977 
o|contracted procedure: k9865 
o|contracted procedure: k9875 
o|contracted procedure: k9879 
o|contracted procedure: k9891 
o|contracted procedure: k9898 
o|contracted procedure: k9902 
o|contracted procedure: k9919 
o|contracted procedure: k9923 
o|contracted procedure: k9935 
o|contracted procedure: k9973 
o|contracted procedure: k9945 
o|contracted procedure: k9949 
o|contracted procedure: k9957 
o|contracted procedure: k9961 
o|contracted procedure: k9984 
o|contracted procedure: k9987 
o|contracted procedure: k9993 
o|contracted procedure: k9996 
o|contracted procedure: k10068 
o|contracted procedure: k10005 
o|contracted procedure: k10018 
o|contracted procedure: k10022 
o|contracted procedure: k10064 
o|contracted procedure: k10030 
o|contracted procedure: k10052 
o|contracted procedure: k10060 
o|contracted procedure: k10074 
o|contracted procedure: k10086 
o|contracted procedure: k394216365 
o|contracted procedure: k10089 
o|contracted procedure: k10092 
o|contracted procedure: k10095 
o|contracted procedure: k10104 
o|contracted procedure: k10111 
o|contracted procedure: k10115 
o|contracted procedure: k10190 
o|contracted procedure: k10125 
o|contracted procedure: k10132 
o|contracted procedure: k10140 
o|contracted procedure: k10136 
o|contracted procedure: k10147 
o|contracted procedure: k10151 
o|contracted procedure: k10164 
o|contracted procedure: k10171 
o|contracted procedure: k10175 
o|contracted procedure: k10182 
o|contracted procedure: k10186 
o|contracted procedure: k10203 
o|contracted procedure: k10210 
o|contracted procedure: k10200 
o|contracted procedure: k10230 
o|contracted procedure: k10233 
o|contracted procedure: k10236 
o|contracted procedure: k10239 
o|contracted procedure: k10248 
o|contracted procedure: k10260 
o|contracted procedure: k10263 
o|contracted procedure: k10270 
o|contracted procedure: k10274 
o|contracted procedure: k10281 
o|contracted procedure: k394216370 
o|contracted procedure: k10292 
o|contracted procedure: k10288 
o|contracted procedure: k10303 
o|contracted procedure: k10299 
o|contracted procedure: k10309 
o|contracted procedure: k10321 
o|contracted procedure: k10433 
o|contracted procedure: k10437 
o|contracted procedure: k10327 
o|contracted procedure: k10429 
o|contracted procedure: k10334 
o|contracted procedure: k10366 
o|contracted procedure: k10375 
o|contracted procedure: k10381 
o|contracted procedure: k10398 
o|contracted procedure: k8266 
o|contracted procedure: k8288 
o|contracted procedure: k8275 
o|contracted procedure: k8282 
o|contracted procedure: k10404 
o|contracted procedure: k10411 
o|contracted procedure: k10421 
o|contracted procedure: k10425 
o|contracted procedure: k14030 
o|simplifications: ((if . 16) (let . 367)) 
o|removed binding forms: 1220 
o|contracted procedure: k4684 
o|contracted procedure: k4796 
o|contracted procedure: k4918 
o|substituted constant variable: r5314 
o|contracted procedure: k6439 
o|contracted procedure: k6600 
o|contracted procedure: k7443 
o|contracted procedure: k8225 
o|contracted procedure: k8491 
o|contracted procedure: k8934 
o|contracted procedure: k9263 
o|contracted procedure: k9627 
o|contracted procedure: k9670 
o|inlining procedure: k9780 
o|inlining procedure: k9780 
o|replaced variables: 5 
o|removed binding forms: 12 
o|removed binding forms: 5 
o|direct leaf routine/allocation: mark552 3 
o|direct leaf routine/allocation: touch554 0 
o|direct leaf routine/allocation: loop327 0 
o|direct leaf routine/allocation: touch672 0 
o|direct leaf routine/allocation: for-each-loop687705 0 
o|direct leaf routine/allocation: g727736 0 
o|direct leaf routine/allocation: touch1342 0 
o|direct leaf routine/allocation: close2487 6 
o|direct leaf routine/allocation: g287288 3 
o|direct leaf routine/allocation: g14151416 35 
o|direct leaf routine/allocation: argc-ok?1840 0 
o|contracted procedure: "(optimizer.scm:97) k4829" 
o|contracted procedure: k4856 
o|converted assignments to bindings: (loop327) 
o|contracted procedure: "(optimizer.scm:122) k4906" 
o|converted assignments to bindings: (for-each-loop687705) 
o|contracted procedure: "(optimizer.scm:187) k5146" 
o|contracted procedure: "(optimizer.scm:187) k514616129" 
o|contracted procedure: "(optimizer.scm:181) k5211" 
o|contracted procedure: "(optimizer.scm:216) k5302" 
o|contracted procedure: "(optimizer.scm:234) k5417" 
o|contracted procedure: "(optimizer.scm:256) k5484" 
o|contracted procedure: "(optimizer.scm:283) k5566" 
o|contracted procedure: "(optimizer.scm:287) k5593" 
o|contracted procedure: "(optimizer.scm:305) k5676" 
o|contracted procedure: "(optimizer.scm:325) k5842" 
o|contracted procedure: "(optimizer.scm:341) k5916" 
o|contracted procedure: "(optimizer.scm:376) k6028" 
o|contracted procedure: "(optimizer.scm:457) k6196" 
o|contracted procedure: "(optimizer.scm:470) k6281" 
o|contracted procedure: "(optimizer.scm:479) k6352" 
o|contracted procedure: "(optimizer.scm:545) k6962" 
o|contracted procedure: "(optimizer.scm:550) k6983" 
o|contracted procedure: "(optimizer.scm:557) k6995" 
o|contracted procedure: "(optimizer.scm:1806) k11932" 
o|contracted procedure: "(optimizer.scm:1819) k12066" 
o|contracted procedure: "(optimizer.scm:1276) k9406" 
o|converted assignments to bindings: (argc-ok?1840) 
o|simplifications: ((let . 3)) 
o|removed binding forms: 24 
o|customizable procedures: (loop2157 lp2096 k9416 k8937 map-loop19441962 map-loop19721989 loop1996 foldr18881891 loop1407 k13067 loop1564 k13228 loop1541 k13559 map-loop16321651 g16641686 for-each-loop16631691 g17041711 for-each-loop17031719 g17281735 for-each-loop17271745 g17651766 foldl17581762 k7894 foldr17941797 g17991800 foldr17811784 foldr272275 g277278 a7801 find-path1672 find1675 loop21490 loop11468 foldr16121615 g16171618 g24932586 for-each-loop24922773 g26032612 map-loop25972653 map-loop26642684 map-loop27052722 k12382 chicken.compiler.optimizer#append-map loop2735 descend2729 g26962741 for-each-loop26952766 g27482755 for-each-loop27472761 chicken.compiler.optimizer#list-tabulate map-loop26222639 g25632570 for-each-loop25622580 k11904 k11918 walk2489 map-loop300318 k11153 for-each-loop23962406 for-each-loop23792389 g23572358 rec2330 g23232412 for-each-loop23222424 foldr24362439 for-each-loop24502463 k10949 k10902 k10863 chicken.compiler.optimizer#every rec2226 g22042211 for-each-loop22032214 scan2175 walk2174 transform2176 g13501357 for-each-loop13491385 test1343 k7428 k7455 k7464 k7210 for-each-loop12841296 lp1269 k7091 k6992 for-each-loop12441256 g11981207 map-loop11921217 k6010 k6739 k6092 k6120 loop1325 k6144 g11571166 map-loop11511176 chicken.compiler.optimizer#split-at loop1086 g11071116 map-loop11011126 invalidate-gae!673 g10521059 for-each-loop10511069 g959966 for-each-loop958976 walk-generic679 a5833 loop61 k5673 k5688 g877886 map-loop871896 g846847 k5617 g818819 replace-var677 walk1678 k5476 loop344 maybe-replace-rest-arg-calls675 walk676 k5247 test669 chicken.compiler.optimizer#cons* map-loop721739 simplify674 chicken.compiler.optimizer#delete loop237 for-each-loop559638 k4823 remember553 scan-each555 k4775 chicken.compiler.optimizer#filter g578585 for-each-loop577589 scan556 loop422 foldr254257 g259260 loop217 loop204 loop191 loop178 chicken.compiler.optimizer#any map-loop122140 map-loop149167 loop118 foldr107110 g112113 loop94 chicken.compiler.optimizer#take) 
o|calls to known targets: 550 
o|identified direct recursive calls: f_3490 1 
o|identified direct recursive calls: f_3548 1 
o|identified direct recursive calls: f_3596 1 
o|identified direct recursive calls: f_3668 1 
o|identified direct recursive calls: f_3717 1 
o|identified direct recursive calls: f_3821 1 
o|identified direct recursive calls: f_4000 1 
o|identified direct recursive calls: f_4157 1 
o|identified direct recursive calls: f_5079 1 
o|identified direct recursive calls: f_5188 1 
o|identified direct recursive calls: f_4216 2 
o|identified direct recursive calls: f_7341 2 
o|identified direct recursive calls: f_11329 1 
o|identified direct recursive calls: f_4117 1 
o|unused rest argument: _2760 f_12301 
o|unused rest argument: _2739 f_12452 
o|identified direct recursive calls: f_12617 1 
o|unused rest argument: _2692 f_12659 
o|identified direct recursive calls: f_12684 1 
o|identified direct recursive calls: f_12854 1 
o|identified direct recursive calls: f_4044 1 
o|identified direct recursive calls: f_7967 1 
o|identified direct recursive calls: f_7920 1 
o|identified direct recursive calls: f_8142 1 
o|identified direct recursive calls: f_8217 1 
o|identified direct recursive calls: f_8501 1 
o|identified direct recursive calls: f_8964 1 
o|identified direct recursive calls: f_10370 1 
o|fast box initializations: 90 
o|fast global references: 60 
o|fast global assignments: 19 
o|dropping unused closure argument: f_3490 
o|dropping unused closure argument: f_3542 
o|dropping unused closure argument: f_3581 
o|dropping unused closure argument: f_3751 
o|dropping unused closure argument: f_3785 
o|dropping unused closure argument: f_3815 
o|dropping unused closure argument: f_3871 
o|dropping unused closure argument: f_3991 
o|dropping unused closure argument: f_4157 
o|dropping unused closure argument: f_4393 
o|dropping unused closure argument: f_5065 
o|dropping unused closure argument: f_5079 
*/
/* end of file */
