/* Generated from scrutinizer.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: scrutinizer.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.scrutinizer -output-file scrutinizer.c
   unit: scrutinizer
   uses: library eval expand data-structures extras pathname port support internal
*/
#include "chicken.h"

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

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


C_noret_decl(f25856)
static void C_ccall f25856(C_word c,C_word *av) C_noret;
C_noret_decl(f25963)
static void C_ccall f25963(C_word c,C_word *av) C_noret;
C_noret_decl(f25978)
static void C_ccall f25978(C_word c,C_word *av) C_noret;
C_noret_decl(f25985)
static void C_ccall f25985(C_word c,C_word *av) C_noret;
C_noret_decl(f26227)
static void C_ccall f26227(C_word c,C_word *av) C_noret;
C_noret_decl(f26375)
static void C_ccall f26375(C_word c,C_word *av) C_noret;
C_noret_decl(f26440)
static void C_ccall f26440(C_word c,C_word *av) C_noret;
C_noret_decl(f26447)
static void C_ccall f26447(C_word c,C_word *av) C_noret;
C_noret_decl(f26593)
static void C_ccall f26593(C_word c,C_word *av) C_noret;
C_noret_decl(f26598)
static void C_ccall f26598(C_word c,C_word *av) C_noret;
C_noret_decl(f26607)
static void C_ccall f26607(C_word c,C_word *av) C_noret;
C_noret_decl(f26614)
static void C_ccall f26614(C_word c,C_word *av) C_noret;
C_noret_decl(f26653)
static void C_ccall f26653(C_word c,C_word *av) C_noret;
C_noret_decl(f26658)
static void C_ccall f26658(C_word c,C_word *av) C_noret;
C_noret_decl(f26663)
static void C_ccall f26663(C_word c,C_word *av) C_noret;
C_noret_decl(f26670)
static void C_ccall f26670(C_word c,C_word *av) C_noret;
C_noret_decl(f26677)
static void C_ccall f26677(C_word c,C_word *av) C_noret;
C_noret_decl(f26684)
static void C_ccall f26684(C_word c,C_word *av) C_noret;
C_noret_decl(f26691)
static void C_ccall f26691(C_word c,C_word *av) C_noret;
C_noret_decl(f27968)
static void C_ccall f27968(C_word c,C_word *av) C_noret;
C_noret_decl(f27973)
static void C_ccall f27973(C_word c,C_word *av) C_noret;
C_noret_decl(f27992)
static void C_ccall f27992(C_word c,C_word *av) C_noret;
C_noret_decl(f28220)
static void C_ccall f28220(C_word c,C_word *av) C_noret;
C_noret_decl(f28225)
static void C_ccall f28225(C_word c,C_word *av) C_noret;
C_noret_decl(f28230)
static void C_ccall f28230(C_word c,C_word *av) C_noret;
C_noret_decl(f_10001)
static void C_ccall f_10001(C_word c,C_word *av) C_noret;
C_noret_decl(f_10005)
static void C_ccall f_10005(C_word c,C_word *av) C_noret;
C_noret_decl(f_10007)
static void C_ccall f_10007(C_word c,C_word *av) C_noret;
C_noret_decl(f_10029)
static void C_ccall f_10029(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_10039)
static void C_ccall f_10039(C_word c,C_word *av) C_noret;
C_noret_decl(f_10042)
static void C_ccall f_10042(C_word c,C_word *av) C_noret;
C_noret_decl(f_10050)
static void C_ccall f_10050(C_word c,C_word *av) C_noret;
C_noret_decl(f_10059)
static void C_ccall f_10059(C_word c,C_word *av) C_noret;
C_noret_decl(f_10066)
static void C_ccall f_10066(C_word c,C_word *av) C_noret;
C_noret_decl(f_10073)
static void C_ccall f_10073(C_word c,C_word *av) C_noret;
C_noret_decl(f_10081)
static void C_ccall f_10081(C_word c,C_word *av) C_noret;
C_noret_decl(f_10083)
static void C_fcall f_10083(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_10091)
static void C_fcall f_10091(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10095)
static void C_fcall f_10095(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10107)
static void C_ccall f_10107(C_word c,C_word *av) C_noret;
C_noret_decl(f_10142)
static void C_ccall f_10142(C_word c,C_word *av) C_noret;
C_noret_decl(f_10164)
static void C_ccall f_10164(C_word c,C_word *av) C_noret;
C_noret_decl(f_10176)
static void C_fcall f_10176(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10189)
static void C_ccall f_10189(C_word c,C_word *av) C_noret;
C_noret_decl(f_10211)
static void C_ccall f_10211(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_10222)
static void C_fcall f_10222(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10293)
static void C_ccall f_10293(C_word c,C_word *av) C_noret;
C_noret_decl(f_10296)
static void C_ccall f_10296(C_word c,C_word *av) C_noret;
C_noret_decl(f_10299)
static void C_ccall f_10299(C_word c,C_word *av) C_noret;
C_noret_decl(f_10305)
static void C_ccall f_10305(C_word c,C_word *av) C_noret;
C_noret_decl(f_10308)
static void C_ccall f_10308(C_word c,C_word *av) C_noret;
C_noret_decl(f_10311)
static void C_ccall f_10311(C_word c,C_word *av) C_noret;
C_noret_decl(f_10317)
static void C_ccall f_10317(C_word c,C_word *av) C_noret;
C_noret_decl(f_10331)
static void C_fcall f_10331(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10339)
static void C_fcall f_10339(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10373)
static void C_ccall f_10373(C_word c,C_word *av) C_noret;
C_noret_decl(f_10422)
static void C_ccall f_10422(C_word c,C_word *av) C_noret;
C_noret_decl(f_10437)
static void C_fcall f_10437(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10440)
static void C_ccall f_10440(C_word c,C_word *av) C_noret;
C_noret_decl(f_10443)
static void C_ccall f_10443(C_word c,C_word *av) C_noret;
C_noret_decl(f_10452)
static void C_fcall f_10452(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10458)
static void C_ccall f_10458(C_word c,C_word *av) C_noret;
C_noret_decl(f_10464)
static void C_ccall f_10464(C_word c,C_word *av) C_noret;
C_noret_decl(f_10467)
static void C_ccall f_10467(C_word c,C_word *av) C_noret;
C_noret_decl(f_10474)
static void C_ccall f_10474(C_word c,C_word *av) C_noret;
C_noret_decl(f_10480)
static void C_ccall f_10480(C_word c,C_word *av) C_noret;
C_noret_decl(f_10483)
static void C_ccall f_10483(C_word c,C_word *av) C_noret;
C_noret_decl(f_10486)
static void C_ccall f_10486(C_word c,C_word *av) C_noret;
C_noret_decl(f_10489)
static void C_ccall f_10489(C_word c,C_word *av) C_noret;
C_noret_decl(f_10492)
static void C_ccall f_10492(C_word c,C_word *av) C_noret;
C_noret_decl(f_10495)
static void C_ccall f_10495(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_10523)
static void C_ccall f_10523(C_word c,C_word *av) C_noret;
C_noret_decl(f_10527)
static void C_ccall f_10527(C_word c,C_word *av) C_noret;
C_noret_decl(f_10556)
static void C_ccall f_10556(C_word c,C_word *av) C_noret;
C_noret_decl(f_10563)
static void C_fcall f_10563(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10566)
static void C_fcall f_10566(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10586)
static void C_fcall f_10586(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10593)
static void C_ccall f_10593(C_word c,C_word *av) C_noret;
C_noret_decl(f_10615)
static void C_ccall f_10615(C_word c,C_word *av) C_noret;
C_noret_decl(f_10619)
static void C_ccall f_10619(C_word c,C_word *av) C_noret;
C_noret_decl(f_10626)
static void C_ccall f_10626(C_word c,C_word *av) C_noret;
C_noret_decl(f_10628)
static void C_ccall f_10628(C_word c,C_word *av) C_noret;
C_noret_decl(f_10655)
static void C_ccall f_10655(C_word c,C_word *av) C_noret;
C_noret_decl(f_10662)
static void C_fcall f_10662(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10678)
static void C_ccall f_10678(C_word c,C_word *av) C_noret;
C_noret_decl(f_10682)
static void C_ccall f_10682(C_word c,C_word *av) C_noret;
C_noret_decl(f_10684)
static void C_ccall f_10684(C_word c,C_word *av) C_noret;
C_noret_decl(f_10691)
static void C_ccall f_10691(C_word c,C_word *av) C_noret;
C_noret_decl(f_10697)
static void C_ccall f_10697(C_word c,C_word *av) C_noret;
C_noret_decl(f_10703)
static void C_ccall f_10703(C_word c,C_word *av) C_noret;
C_noret_decl(f_10706)
static void C_ccall f_10706(C_word c,C_word *av) C_noret;
C_noret_decl(f_10709)
static void C_ccall f_10709(C_word c,C_word *av) C_noret;
C_noret_decl(f_10712)
static void C_ccall f_10712(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_10723)
static void C_ccall f_10723(C_word c,C_word *av) C_noret;
C_noret_decl(f_10726)
static void C_fcall f_10726(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10733)
static void C_fcall f_10733(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10736)
static void C_ccall f_10736(C_word c,C_word *av) C_noret;
C_noret_decl(f_10761)
static void C_ccall f_10761(C_word c,C_word *av) C_noret;
C_noret_decl(f_10765)
static void C_ccall f_10765(C_word c,C_word *av) C_noret;
C_noret_decl(f_10771)
static void C_ccall f_10771(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_10784)
static void C_fcall f_10784(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10796)
static void C_fcall f_10796(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10821)
static void C_ccall f_10821(C_word c,C_word *av) C_noret;
C_noret_decl(f_10838)
static void C_fcall f_10838(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10851)
static void C_ccall f_10851(C_word c,C_word *av) C_noret;
C_noret_decl(f_10854)
static void C_ccall f_10854(C_word c,C_word *av) C_noret;
C_noret_decl(f_10857)
static void C_ccall f_10857(C_word c,C_word *av) C_noret;
C_noret_decl(f_10863)
static void C_fcall f_10863(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10869)
static void C_ccall f_10869(C_word c,C_word *av) C_noret;
C_noret_decl(f_10875)
static void C_ccall f_10875(C_word c,C_word *av) C_noret;
C_noret_decl(f_10881)
static void C_ccall f_10881(C_word c,C_word *av) C_noret;
C_noret_decl(f_10904)
static void C_ccall f_10904(C_word c,C_word *av) C_noret;
C_noret_decl(f_10919)
static void C_ccall f_10919(C_word c,C_word *av) C_noret;
C_noret_decl(f_10925)
static void C_ccall f_10925(C_word c,C_word *av) C_noret;
C_noret_decl(f_10931)
static void C_ccall f_10931(C_word c,C_word *av) C_noret;
C_noret_decl(f_10947)
static void C_ccall f_10947(C_word c,C_word *av) C_noret;
C_noret_decl(f_10953)
static void C_ccall f_10953(C_word c,C_word *av) C_noret;
C_noret_decl(f_10957)
static void C_fcall f_10957(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10965)
static void C_ccall f_10965(C_word c,C_word *av) C_noret;
C_noret_decl(f_10987)
static void C_ccall f_10987(C_word c,C_word *av) C_noret;
C_noret_decl(f_10998)
static void C_ccall f_10998(C_word c,C_word *av) C_noret;
C_noret_decl(f_11002)
static void C_ccall f_11002(C_word c,C_word *av) C_noret;
C_noret_decl(f_11011)
static void C_ccall f_11011(C_word c,C_word *av) C_noret;
C_noret_decl(f_11014)
static void C_ccall f_11014(C_word c,C_word *av) C_noret;
C_noret_decl(f_11024)
static void C_fcall f_11024(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11036)
static void C_fcall f_11036(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11061)
static void C_ccall f_11061(C_word c,C_word *av) C_noret;
C_noret_decl(f_11070)
static void C_fcall f_11070(C_word t0,C_word t1,C_word t2,C_word t3) 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_11109)
static void C_ccall f_11109(C_word c,C_word *av) C_noret;
C_noret_decl(f_11111)
static void C_ccall f_11111(C_word c,C_word *av) C_noret;
C_noret_decl(f_11119)
static void C_ccall f_11119(C_word c,C_word *av) C_noret;
C_noret_decl(f_11127)
static void C_ccall f_11127(C_word c,C_word *av) C_noret;
C_noret_decl(f_11144)
static void C_ccall f_11144(C_word c,C_word *av) C_noret;
C_noret_decl(f_11146)
static void C_fcall f_11146(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11184)
static void C_fcall f_11184(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11213)
static void C_ccall f_11213(C_word c,C_word *av) C_noret;
C_noret_decl(f_11242)
static void C_ccall f_11242(C_word c,C_word *av) C_noret;
C_noret_decl(f_11248)
static void C_ccall f_11248(C_word c,C_word *av) C_noret;
C_noret_decl(f_11267)
static void C_ccall f_11267(C_word c,C_word *av) C_noret;
C_noret_decl(f_11273)
static void C_fcall f_11273(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11276)
static void C_fcall f_11276(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11298)
static void C_ccall f_11298(C_word c,C_word *av) C_noret;
C_noret_decl(f_11330)
static void C_ccall f_11330(C_word c,C_word *av) C_noret;
C_noret_decl(f_11333)
static void C_ccall f_11333(C_word c,C_word *av) C_noret;
C_noret_decl(f_11346)
static void C_fcall f_11346(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11367)
static void C_ccall f_11367(C_word c,C_word *av) C_noret;
C_noret_decl(f_11373)
static void C_ccall f_11373(C_word c,C_word *av) C_noret;
C_noret_decl(f_11376)
static void C_ccall f_11376(C_word c,C_word *av) C_noret;
C_noret_decl(f_11386)
static void C_ccall f_11386(C_word c,C_word *av) C_noret;
C_noret_decl(f_11405)
static void C_ccall f_11405(C_word c,C_word *av) C_noret;
C_noret_decl(f_11430)
static void C_fcall f_11430(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11440)
static void C_ccall f_11440(C_word c,C_word *av) C_noret;
C_noret_decl(f_11442)
static void C_fcall f_11442(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_11513)
static void C_ccall f_11513(C_word c,C_word *av) C_noret;
C_noret_decl(f_11516)
static void C_ccall f_11516(C_word c,C_word *av) C_noret;
C_noret_decl(f_11519)
static void C_ccall f_11519(C_word c,C_word *av) C_noret;
C_noret_decl(f_11522)
static void C_ccall f_11522(C_word c,C_word *av) C_noret;
C_noret_decl(f_11525)
static void C_ccall f_11525(C_word c,C_word *av) C_noret;
C_noret_decl(f_11531)
static void C_ccall f_11531(C_word c,C_word *av) C_noret;
C_noret_decl(f_11554)
static void C_ccall f_11554(C_word c,C_word *av) C_noret;
C_noret_decl(f_11558)
static void C_ccall f_11558(C_word c,C_word *av) C_noret;
C_noret_decl(f_11566)
static void C_ccall f_11566(C_word c,C_word *av) C_noret;
C_noret_decl(f_11569)
static void C_ccall f_11569(C_word c,C_word *av) C_noret;
C_noret_decl(f_11572)
static void C_ccall f_11572(C_word c,C_word *av) C_noret;
C_noret_decl(f_11575)
static void C_ccall f_11575(C_word c,C_word *av) C_noret;
C_noret_decl(f_11592)
static void C_fcall f_11592(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11602)
static void C_ccall f_11602(C_word c,C_word *av) C_noret;
C_noret_decl(f_11629)
static void C_ccall f_11629(C_word c,C_word *av) C_noret;
C_noret_decl(f_11631)
static void C_fcall f_11631(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11637)
static void C_fcall f_11637(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11647)
static void C_ccall f_11647(C_word c,C_word *av) C_noret;
C_noret_decl(f_11659)
static void C_ccall f_11659(C_word c,C_word *av) C_noret;
C_noret_decl(f_11667)
static void C_fcall f_11667(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11687)
static void C_ccall f_11687(C_word c,C_word *av) C_noret;
C_noret_decl(f_11700)
static void C_ccall f_11700(C_word c,C_word *av) C_noret;
C_noret_decl(f_11712)
static void C_ccall f_11712(C_word c,C_word *av) C_noret;
C_noret_decl(f_11719)
static void C_ccall f_11719(C_word c,C_word *av) C_noret;
C_noret_decl(f_11721)
static void C_fcall f_11721(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11746)
static void C_ccall f_11746(C_word c,C_word *av) C_noret;
C_noret_decl(f_11768)
static void C_ccall f_11768(C_word c,C_word *av) C_noret;
C_noret_decl(f_11781)
static void C_ccall f_11781(C_word c,C_word *av) C_noret;
C_noret_decl(f_11802)
static void C_ccall f_11802(C_word c,C_word *av) C_noret;
C_noret_decl(f_11827)
static void C_ccall f_11827(C_word c,C_word *av) C_noret;
C_noret_decl(f_11831)
static void C_ccall f_11831(C_word c,C_word *av) C_noret;
C_noret_decl(f_11842)
static void C_fcall f_11842(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11851)
static void C_fcall f_11851(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_11948)
static void C_ccall f_11948(C_word c,C_word *av) C_noret;
C_noret_decl(f_11973)
static void C_fcall f_11973(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11979)
static void C_ccall f_11979(C_word c,C_word *av) C_noret;
C_noret_decl(f_11995)
static void C_ccall f_11995(C_word c,C_word *av) C_noret;
C_noret_decl(f_12002)
static void C_ccall f_12002(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_12036)
static void C_fcall f_12036(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12079)
static void C_ccall f_12079(C_word c,C_word *av) C_noret;
C_noret_decl(f_12104)
static void C_fcall f_12104(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12110)
static void C_ccall f_12110(C_word c,C_word *av) C_noret;
C_noret_decl(f_12115)
static void C_ccall f_12115(C_word c,C_word *av) C_noret;
C_noret_decl(f_12121)
static void C_ccall f_12121(C_word c,C_word *av) C_noret;
C_noret_decl(f_12126)
static void C_fcall f_12126(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12132)
static void C_fcall f_12132(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12145)
static void C_ccall f_12145(C_word c,C_word *av) C_noret;
C_noret_decl(f_12162)
static void C_fcall f_12162(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12179)
static void C_fcall f_12179(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12192)
static void C_ccall f_12192(C_word c,C_word *av) C_noret;
C_noret_decl(f_12220)
static void C_fcall f_12220(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12233)
static void C_ccall f_12233(C_word c,C_word *av) C_noret;
C_noret_decl(f_12270)
static void C_ccall f_12270(C_word c,C_word *av) C_noret;
C_noret_decl(f_12311)
static void C_fcall f_12311(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12324)
static void C_ccall f_12324(C_word c,C_word *av) C_noret;
C_noret_decl(f_12354)
static void C_ccall f_12354(C_word c,C_word *av) C_noret;
C_noret_decl(f_12424)
static void C_ccall f_12424(C_word c,C_word *av) C_noret;
C_noret_decl(f_12428)
static void C_fcall f_12428(C_word t0,C_word t1,C_word t2) 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_fcall f_12442(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12463)
static void C_ccall f_12463(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_12472)
static void C_ccall f_12472(C_word c,C_word *av) C_noret;
C_noret_decl(f_12475)
static void C_ccall f_12475(C_word c,C_word *av) C_noret;
C_noret_decl(f_12484)
static void C_ccall f_12484(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_12509)
static void C_ccall f_12509(C_word c,C_word *av) C_noret;
C_noret_decl(f_12513)
static void C_ccall f_12513(C_word c,C_word *av) C_noret;
C_noret_decl(f_12516)
static void C_ccall f_12516(C_word c,C_word *av) C_noret;
C_noret_decl(f_12525)
static void C_ccall f_12525(C_word c,C_word *av) C_noret;
C_noret_decl(f_12543)
static void C_ccall f_12543(C_word c,C_word *av) C_noret;
C_noret_decl(f_12562)
static void C_ccall f_12562(C_word c,C_word *av) C_noret;
C_noret_decl(f_12678)
static void C_fcall f_12678(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12690)
static void C_ccall f_12690(C_word c,C_word *av) C_noret;
C_noret_decl(f_12693)
static void C_ccall f_12693(C_word c,C_word *av) C_noret;
C_noret_decl(f_12696)
static void C_ccall f_12696(C_word c,C_word *av) C_noret;
C_noret_decl(f_12699)
static void C_ccall f_12699(C_word c,C_word *av) C_noret;
C_noret_decl(f_12705)
static void C_ccall f_12705(C_word c,C_word *av) C_noret;
C_noret_decl(f_12798)
static void C_ccall f_12798(C_word c,C_word *av) C_noret;
C_noret_decl(f_12908)
static void C_ccall f_12908(C_word c,C_word *av) C_noret;
C_noret_decl(f_12941)
static void C_ccall f_12941(C_word c,C_word *av) C_noret;
C_noret_decl(f_13010)
static void C_ccall f_13010(C_word c,C_word *av) C_noret;
C_noret_decl(f_13043)
static void C_ccall f_13043(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_13151)
static void C_ccall f_13151(C_word c,C_word *av) C_noret;
C_noret_decl(f_13193)
static void C_ccall f_13193(C_word c,C_word *av) C_noret;
C_noret_decl(f_13227)
static void C_ccall f_13227(C_word c,C_word *av) C_noret;
C_noret_decl(f_13415)
static void C_fcall f_13415(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13421)
static void C_fcall f_13421(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13454)
static void C_ccall f_13454(C_word c,C_word *av) C_noret;
C_noret_decl(f_13468)
static void C_ccall f_13468(C_word c,C_word *av) C_noret;
C_noret_decl(f_13487)
static void C_fcall f_13487(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13490)
static void C_fcall f_13490(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13496)
static void C_ccall f_13496(C_word c,C_word *av) C_noret;
C_noret_decl(f_13517)
static void C_ccall f_13517(C_word c,C_word *av) C_noret;
C_noret_decl(f_13521)
static void C_ccall f_13521(C_word c,C_word *av) C_noret;
C_noret_decl(f_13532)
static void C_ccall f_13532(C_word c,C_word *av) C_noret;
C_noret_decl(f_13534)
static void C_ccall f_13534(C_word c,C_word *av) C_noret;
C_noret_decl(f_13569)
static void C_ccall f_13569(C_word c,C_word *av) C_noret;
C_noret_decl(f_13571)
static void C_fcall f_13571(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13612)
static void C_ccall f_13612(C_word c,C_word *av) C_noret;
C_noret_decl(f_13640)
static void C_ccall f_13640(C_word c,C_word *av) C_noret;
C_noret_decl(f_13646)
static void C_ccall f_13646(C_word c,C_word *av) C_noret;
C_noret_decl(f_13658)
static void C_fcall f_13658(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13678)
static void C_ccall f_13678(C_word c,C_word *av) C_noret;
C_noret_decl(f_13681)
static void C_ccall f_13681(C_word c,C_word *av) C_noret;
C_noret_decl(f_13684)
static void C_ccall f_13684(C_word c,C_word *av) C_noret;
C_noret_decl(f_13687)
static void C_ccall f_13687(C_word c,C_word *av) C_noret;
C_noret_decl(f_13690)
static void C_ccall f_13690(C_word c,C_word *av) C_noret;
C_noret_decl(f_13693)
static void C_ccall f_13693(C_word c,C_word *av) C_noret;
C_noret_decl(f_13700)
static void C_fcall f_13700(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13708)
static void C_ccall f_13708(C_word c,C_word *av) C_noret;
C_noret_decl(f_13712)
static void C_ccall f_13712(C_word c,C_word *av) C_noret;
C_noret_decl(f_13727)
static void C_ccall f_13727(C_word c,C_word *av) C_noret;
C_noret_decl(f_13733)
static void C_ccall f_13733(C_word c,C_word *av) C_noret;
C_noret_decl(f_13743)
static void C_ccall f_13743(C_word c,C_word *av) C_noret;
C_noret_decl(f_13749)
static void C_ccall f_13749(C_word c,C_word *av) C_noret;
C_noret_decl(f_13755)
static void C_ccall f_13755(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_13761)
static void C_ccall f_13761(C_word c,C_word *av) C_noret;
C_noret_decl(f_13778)
static void C_fcall f_13778(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13803)
static void C_ccall f_13803(C_word c,C_word *av) C_noret;
C_noret_decl(f_13814)
static void C_ccall f_13814(C_word c,C_word *av) C_noret;
C_noret_decl(f_13832)
static void C_ccall f_13832(C_word c,C_word *av) C_noret;
C_noret_decl(f_13842)
static void C_ccall f_13842(C_word c,C_word *av) C_noret;
C_noret_decl(f_13858)
static void C_ccall f_13858(C_word c,C_word *av) C_noret;
C_noret_decl(f_13862)
static void C_ccall f_13862(C_word c,C_word *av) C_noret;
C_noret_decl(f_13920)
static void C_ccall f_13920(C_word c,C_word *av) C_noret;
C_noret_decl(f_13922)
static void C_fcall f_13922(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13947)
static void C_ccall f_13947(C_word c,C_word *av) C_noret;
C_noret_decl(f_13966)
static void C_ccall f_13966(C_word c,C_word *av) C_noret;
C_noret_decl(f_13985)
static void C_ccall f_13985(C_word c,C_word *av) C_noret;
C_noret_decl(f_14000)
static void C_ccall f_14000(C_word c,C_word *av) C_noret;
C_noret_decl(f_14013)
static void C_ccall f_14013(C_word c,C_word *av) C_noret;
C_noret_decl(f_14016)
static void C_ccall f_14016(C_word c,C_word *av) C_noret;
C_noret_decl(f_14052)
static void C_ccall f_14052(C_word c,C_word *av) C_noret;
C_noret_decl(f_14076)
static void C_ccall f_14076(C_word c,C_word *av) C_noret;
C_noret_decl(f_14117)
static void C_ccall f_14117(C_word c,C_word *av) C_noret;
C_noret_decl(f_14119)
static void C_fcall f_14119(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14144)
static void C_ccall f_14144(C_word c,C_word *av) C_noret;
C_noret_decl(f_14173)
static void C_ccall f_14173(C_word c,C_word *av) C_noret;
C_noret_decl(f_14175)
static void C_fcall f_14175(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14200)
static void C_ccall f_14200(C_word c,C_word *av) C_noret;
C_noret_decl(f_14234)
static void C_ccall f_14234(C_word c,C_word *av) C_noret;
C_noret_decl(f_14248)
static void C_fcall f_14248(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14273)
static void C_ccall f_14273(C_word c,C_word *av) C_noret;
C_noret_decl(f_14293)
static void C_ccall f_14293(C_word c,C_word *av) C_noret;
C_noret_decl(f_14295)
static void C_fcall f_14295(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14320)
static void C_ccall f_14320(C_word c,C_word *av) C_noret;
C_noret_decl(f_14373)
static void C_fcall f_14373(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14378)
static void C_ccall f_14378(C_word c,C_word *av) C_noret;
C_noret_decl(f_14387)
static void C_ccall f_14387(C_word c,C_word *av) C_noret;
C_noret_decl(f_14404)
static void C_ccall f_14404(C_word c,C_word *av) C_noret;
C_noret_decl(f_14406)
static void C_ccall f_14406(C_word c,C_word *av) C_noret;
C_noret_decl(f_14421)
static void C_fcall f_14421(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14429)
static void C_ccall f_14429(C_word c,C_word *av) C_noret;
C_noret_decl(f_14456)
static void C_fcall f_14456(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14502)
static void C_ccall f_14502(C_word c,C_word *av) C_noret;
C_noret_decl(f_14551)
static void C_ccall f_14551(C_word c,C_word *av) C_noret;
C_noret_decl(f_14555)
static void C_ccall f_14555(C_word c,C_word *av) C_noret;
C_noret_decl(f_14601)
static void C_ccall f_14601(C_word c,C_word *av) C_noret;
C_noret_decl(f_14605)
static void C_ccall f_14605(C_word c,C_word *av) C_noret;
C_noret_decl(f_14631)
static void C_ccall f_14631(C_word c,C_word *av) C_noret;
C_noret_decl(f_14637)
static void C_fcall f_14637(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_14663)
static void C_ccall f_14663(C_word c,C_word *av) C_noret;
C_noret_decl(f_14667)
static void C_ccall f_14667(C_word c,C_word *av) C_noret;
C_noret_decl(f_14694)
static void C_fcall f_14694(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_14698)
static void C_ccall f_14698(C_word c,C_word *av) C_noret;
C_noret_decl(f_14701)
static void C_ccall f_14701(C_word c,C_word *av) C_noret;
C_noret_decl(f_14726)
static void C_ccall f_14726(C_word c,C_word *av) C_noret;
C_noret_decl(f_14732)
static void C_ccall f_14732(C_word c,C_word *av) C_noret;
C_noret_decl(f_14738)
static void C_ccall f_14738(C_word c,C_word *av) C_noret;
C_noret_decl(f_14753)
static void C_ccall f_14753(C_word c,C_word *av) C_noret;
C_noret_decl(f_14757)
static void C_ccall f_14757(C_word c,C_word *av) C_noret;
C_noret_decl(f_14762)
static void C_fcall f_14762(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14781)
static void C_ccall f_14781(C_word c,C_word *av) C_noret;
C_noret_decl(f_14790)
static void C_fcall f_14790(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_14794)
static void C_ccall f_14794(C_word c,C_word *av) C_noret;
C_noret_decl(f_14798)
static void C_fcall f_14798(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14808)
static void C_ccall f_14808(C_word c,C_word *av) C_noret;
C_noret_decl(f_14812)
static void C_fcall f_14812(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14828)
static void C_ccall f_14828(C_word c,C_word *av) C_noret;
C_noret_decl(f_14855)
static void C_ccall f_14855(C_word c,C_word *av) C_noret;
C_noret_decl(f_14879)
static void C_fcall f_14879(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14888)
static void C_ccall f_14888(C_word c,C_word *av) C_noret;
C_noret_decl(f_14899)
static void C_ccall f_14899(C_word c,C_word *av) C_noret;
C_noret_decl(f_14913)
static void C_fcall f_14913(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14931)
static void C_ccall f_14931(C_word c,C_word *av) C_noret;
C_noret_decl(f_14937)
static void C_ccall f_14937(C_word c,C_word *av) C_noret;
C_noret_decl(f_14944)
static void C_fcall f_14944(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_14973)
static void C_ccall f_14973(C_word c,C_word *av) C_noret;
C_noret_decl(f_15052)
static void C_ccall f_15052(C_word c,C_word *av) C_noret;
C_noret_decl(f_15082)
static void C_ccall f_15082(C_word c,C_word *av) C_noret;
C_noret_decl(f_15085)
static void C_ccall f_15085(C_word c,C_word *av) C_noret;
C_noret_decl(f_15103)
static void C_ccall f_15103(C_word c,C_word *av) C_noret;
C_noret_decl(f_15155)
static void C_fcall f_15155(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15206)
static void C_fcall f_15206(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15263)
static void C_fcall f_15263(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15320)
static void C_fcall f_15320(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_15329)
static void C_fcall f_15329(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_15339)
static void C_ccall f_15339(C_word c,C_word *av) C_noret;
C_noret_decl(f_15346)
static void C_fcall f_15346(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15348)
static void C_fcall f_15348(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_15427)
static void C_ccall f_15427(C_word c,C_word *av) C_noret;
C_noret_decl(f_15483)
static void C_fcall f_15483(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15516)
static void C_ccall f_15516(C_word c,C_word *av) C_noret;
C_noret_decl(f_15543)
static void C_fcall f_15543(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15554)
static void C_fcall f_15554(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15576)
static void C_ccall f_15576(C_word c,C_word *av) C_noret;
C_noret_decl(f_15584)
static void C_fcall f_15584(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15586)
static void C_fcall f_15586(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15612)
static void C_ccall f_15612(C_word c,C_word *av) C_noret;
C_noret_decl(f_15671)
static C_word C_fcall f_15671(C_word t0);
C_noret_decl(f_15724)
static C_word C_fcall f_15724(C_word t0);
C_noret_decl(f_15744)
static C_word C_fcall f_15744(C_word t0);
C_noret_decl(f_15803)
static void C_ccall f_15803(C_word c,C_word *av) C_noret;
C_noret_decl(f_15847)
static C_word C_fcall f_15847(C_word t0);
C_noret_decl(f_15886)
static void C_ccall f_15886(C_word c,C_word *av) C_noret;
C_noret_decl(f_15889)
static void C_ccall f_15889(C_word c,C_word *av) C_noret;
C_noret_decl(f_15894)
static void C_ccall f_15894(C_word c,C_word *av) C_noret;
C_noret_decl(f_15898)
static void C_ccall f_15898(C_word c,C_word *av) C_noret;
C_noret_decl(f_15900)
static void C_fcall f_15900(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15945)
static void C_ccall f_15945(C_word c,C_word *av) C_noret;
C_noret_decl(f_15962)
static void C_fcall f_15962(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15972)
static void C_ccall f_15972(C_word c,C_word *av) C_noret;
C_noret_decl(f_15989)
static void C_fcall f_15989(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15999)
static void C_ccall f_15999(C_word c,C_word *av) C_noret;
C_noret_decl(f_16019)
static void C_ccall f_16019(C_word c,C_word *av) C_noret;
C_noret_decl(f_16035)
static void C_fcall f_16035(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16045)
static void C_ccall f_16045(C_word c,C_word *av) C_noret;
C_noret_decl(f_16062)
static void C_fcall f_16062(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16072)
static void C_ccall f_16072(C_word c,C_word *av) C_noret;
C_noret_decl(f_16104)
static void C_ccall f_16104(C_word c,C_word *av) C_noret;
C_noret_decl(f_16146)
static void C_ccall f_16146(C_word c,C_word *av) C_noret;
C_noret_decl(f_16148)
static void C_fcall f_16148(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16173)
static void C_fcall f_16173(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16195)
static void C_fcall f_16195(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16205)
static void C_ccall f_16205(C_word c,C_word *av) C_noret;
C_noret_decl(f_16226)
static void C_fcall f_16226(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16232)
static C_word C_fcall f_16232(C_word t0,C_word t1);
C_noret_decl(f_16264)
static void C_ccall f_16264(C_word c,C_word *av) C_noret;
C_noret_decl(f_16267)
static void C_ccall f_16267(C_word c,C_word *av) C_noret;
C_noret_decl(f_16269)
static void C_ccall f_16269(C_word c,C_word *av) C_noret;
C_noret_decl(f_16277)
static void C_ccall f_16277(C_word c,C_word *av) C_noret;
C_noret_decl(f_16279)
static void C_fcall f_16279(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_16287)
static void C_fcall f_16287(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16368)
static void C_fcall f_16368(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16379)
static void C_ccall f_16379(C_word c,C_word *av) C_noret;
C_noret_decl(f_16381)
static void C_fcall f_16381(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16406)
static void C_ccall f_16406(C_word c,C_word *av) C_noret;
C_noret_decl(f_16426)
static void C_ccall f_16426(C_word c,C_word *av) C_noret;
C_noret_decl(f_16452)
static void C_ccall f_16452(C_word c,C_word *av) C_noret;
C_noret_decl(f_16465)
static void C_fcall f_16465(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16475)
static void C_fcall f_16475(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16486)
static void C_ccall f_16486(C_word c,C_word *av) C_noret;
C_noret_decl(f_16488)
static void C_fcall f_16488(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16513)
static void C_ccall f_16513(C_word c,C_word *av) C_noret;
C_noret_decl(f_16529)
static void C_ccall f_16529(C_word c,C_word *av) C_noret;
C_noret_decl(f_16532)
static void C_ccall f_16532(C_word c,C_word *av) C_noret;
C_noret_decl(f_16535)
static void C_ccall f_16535(C_word c,C_word *av) C_noret;
C_noret_decl(f_16542)
static void C_ccall f_16542(C_word c,C_word *av) C_noret;
C_noret_decl(f_16554)
static void C_ccall f_16554(C_word c,C_word *av) C_noret;
C_noret_decl(f_16558)
static void C_ccall f_16558(C_word c,C_word *av) C_noret;
C_noret_decl(f_16565)
static void C_fcall f_16565(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16577)
static void C_fcall f_16577(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16602)
static void C_ccall f_16602(C_word c,C_word *av) C_noret;
C_noret_decl(f_16611)
static void C_fcall f_16611(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16639)
static void C_ccall f_16639(C_word c,C_word *av) C_noret;
C_noret_decl(f_16658)
static void C_ccall f_16658(C_word c,C_word *av) C_noret;
C_noret_decl(f_16667)
static void C_ccall f_16667(C_word c,C_word *av) C_noret;
C_noret_decl(f_16671)
static void C_ccall f_16671(C_word c,C_word *av) C_noret;
C_noret_decl(f_16734)
static void C_ccall f_16734(C_word c,C_word *av) C_noret;
C_noret_decl(f_16738)
static void C_ccall f_16738(C_word c,C_word *av) C_noret;
C_noret_decl(f_16741)
static void C_ccall f_16741(C_word c,C_word *av) C_noret;
C_noret_decl(f_16747)
static void C_ccall f_16747(C_word c,C_word *av) C_noret;
C_noret_decl(f_16752)
static void C_ccall f_16752(C_word c,C_word *av) C_noret;
C_noret_decl(f_16757)
static void C_ccall f_16757(C_word c,C_word *av) C_noret;
C_noret_decl(f_16766)
static void C_ccall f_16766(C_word c,C_word *av) C_noret;
C_noret_decl(f_16772)
static void C_ccall f_16772(C_word c,C_word *av) C_noret;
C_noret_decl(f_16777)
static void C_ccall f_16777(C_word c,C_word *av) C_noret;
C_noret_decl(f_16783)
static void C_ccall f_16783(C_word c,C_word *av) C_noret;
C_noret_decl(f_16787)
static void C_ccall f_16787(C_word c,C_word *av) C_noret;
C_noret_decl(f_16790)
static void C_ccall f_16790(C_word c,C_word *av) C_noret;
C_noret_decl(f_16793)
static void C_ccall f_16793(C_word c,C_word *av) C_noret;
C_noret_decl(f_16796)
static void C_ccall f_16796(C_word c,C_word *av) C_noret;
C_noret_decl(f_16805)
static void C_fcall f_16805(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16812)
static void C_ccall f_16812(C_word c,C_word *av) C_noret;
C_noret_decl(f_16816)
static void C_ccall f_16816(C_word c,C_word *av) C_noret;
C_noret_decl(f_16820)
static void C_ccall f_16820(C_word c,C_word *av) C_noret;
C_noret_decl(f_16824)
static void C_ccall f_16824(C_word c,C_word *av) C_noret;
C_noret_decl(f_16831)
static void C_ccall f_16831(C_word c,C_word *av) C_noret;
C_noret_decl(f_16838)
static void C_ccall f_16838(C_word c,C_word *av) C_noret;
C_noret_decl(f_16844)
static void C_ccall f_16844(C_word c,C_word *av) C_noret;
C_noret_decl(f_16847)
static void C_ccall f_16847(C_word c,C_word *av) C_noret;
C_noret_decl(f_16850)
static void C_ccall f_16850(C_word c,C_word *av) C_noret;
C_noret_decl(f_16853)
static void C_ccall f_16853(C_word c,C_word *av) C_noret;
C_noret_decl(f_16856)
static void C_ccall f_16856(C_word c,C_word *av) C_noret;
C_noret_decl(f_16859)
static void C_ccall f_16859(C_word c,C_word *av) C_noret;
C_noret_decl(f_16862)
static void C_ccall f_16862(C_word c,C_word *av) C_noret;
C_noret_decl(f_16866)
static void C_ccall f_16866(C_word c,C_word *av) C_noret;
C_noret_decl(f_16871)
static void C_fcall f_16871(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16887)
static void C_ccall f_16887(C_word c,C_word *av) C_noret;
C_noret_decl(f_16898)
static void C_fcall f_16898(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16917)
static void C_ccall f_16917(C_word c,C_word *av) C_noret;
C_noret_decl(f_16931)
static void C_ccall f_16931(C_word c,C_word *av) C_noret;
C_noret_decl(f_16945)
static void C_ccall f_16945(C_word c,C_word *av) C_noret;
C_noret_decl(f_16959)
static void C_ccall f_16959(C_word c,C_word *av) C_noret;
C_noret_decl(f_16973)
static void C_ccall f_16973(C_word c,C_word *av) C_noret;
C_noret_decl(f_17003)
static void C_ccall f_17003(C_word c,C_word *av) C_noret;
C_noret_decl(f_17022)
static void C_ccall f_17022(C_word c,C_word *av) C_noret;
C_noret_decl(f_17054)
static void C_ccall f_17054(C_word c,C_word *av) C_noret;
C_noret_decl(f_17060)
static void C_ccall f_17060(C_word c,C_word *av) C_noret;
C_noret_decl(f_17062)
static void C_fcall f_17062(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17072)
static void C_ccall f_17072(C_word c,C_word *av) C_noret;
C_noret_decl(f_17085)
static void C_ccall f_17085(C_word c,C_word *av) C_noret;
C_noret_decl(f_17092)
static void C_ccall f_17092(C_word c,C_word *av) C_noret;
C_noret_decl(f_17098)
static void C_ccall f_17098(C_word c,C_word *av) C_noret;
C_noret_decl(f_17101)
static void C_ccall f_17101(C_word c,C_word *av) C_noret;
C_noret_decl(f_17104)
static void C_ccall f_17104(C_word c,C_word *av) C_noret;
C_noret_decl(f_17107)
static void C_ccall f_17107(C_word c,C_word *av) C_noret;
C_noret_decl(f_17110)
static void C_ccall f_17110(C_word c,C_word *av) C_noret;
C_noret_decl(f_17119)
static void C_ccall f_17119(C_word c,C_word *av) C_noret;
C_noret_decl(f_17133)
static void C_ccall f_17133(C_word c,C_word *av) C_noret;
C_noret_decl(f_17139)
static void C_ccall f_17139(C_word c,C_word *av) C_noret;
C_noret_decl(f_17143)
static void C_ccall f_17143(C_word c,C_word *av) C_noret;
C_noret_decl(f_17146)
static void C_ccall f_17146(C_word c,C_word *av) C_noret;
C_noret_decl(f_17151)
static void C_ccall f_17151(C_word c,C_word *av) C_noret;
C_noret_decl(f_17158)
static void C_fcall f_17158(C_word t0,C_word t1) C_noret;
C_noret_decl(f_17161)
static void C_ccall f_17161(C_word c,C_word *av) C_noret;
C_noret_decl(f_17167)
static void C_ccall f_17167(C_word c,C_word *av) C_noret;
C_noret_decl(f_17170)
static void C_ccall f_17170(C_word c,C_word *av) C_noret;
C_noret_decl(f_17173)
static void C_ccall f_17173(C_word c,C_word *av) C_noret;
C_noret_decl(f_17176)
static void C_ccall f_17176(C_word c,C_word *av) C_noret;
C_noret_decl(f_17179)
static void C_ccall f_17179(C_word c,C_word *av) C_noret;
C_noret_decl(f_17182)
static void C_ccall f_17182(C_word c,C_word *av) C_noret;
C_noret_decl(f_17185)
static void C_ccall f_17185(C_word c,C_word *av) C_noret;
C_noret_decl(f_17192)
static void C_ccall f_17192(C_word c,C_word *av) C_noret;
C_noret_decl(f_17196)
static void C_ccall f_17196(C_word c,C_word *av) C_noret;
C_noret_decl(f_17198)
static void C_fcall f_17198(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17219)
static void C_ccall f_17219(C_word c,C_word *av) C_noret;
C_noret_decl(f_17229)
static void C_ccall f_17229(C_word c,C_word *av) C_noret;
C_noret_decl(f_17237)
static void C_ccall f_17237(C_word c,C_word *av) C_noret;
C_noret_decl(f_17245)
static void C_ccall f_17245(C_word c,C_word *av) C_noret;
C_noret_decl(f_17253)
static void C_ccall f_17253(C_word c,C_word *av) C_noret;
C_noret_decl(f_17281)
static void C_ccall f_17281(C_word c,C_word *av) C_noret;
C_noret_decl(f_17292)
static void C_ccall f_17292(C_word c,C_word *av) C_noret;
C_noret_decl(f_17296)
static void C_ccall f_17296(C_word c,C_word *av) C_noret;
C_noret_decl(f_17301)
static void C_ccall f_17301(C_word c,C_word *av) C_noret;
C_noret_decl(f_17304)
static void C_fcall f_17304(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17309)
static void C_ccall f_17309(C_word c,C_word *av) C_noret;
C_noret_decl(f_17316)
static void C_ccall f_17316(C_word c,C_word *av) C_noret;
C_noret_decl(f_17320)
static void C_ccall f_17320(C_word c,C_word *av) C_noret;
C_noret_decl(f_17322)
static void C_fcall f_17322(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17329)
static void C_ccall f_17329(C_word c,C_word *av) C_noret;
C_noret_decl(f_17349)
static void C_ccall f_17349(C_word c,C_word *av) C_noret;
C_noret_decl(f_17355)
static void C_ccall f_17355(C_word c,C_word *av) C_noret;
C_noret_decl(f_17363)
static void C_ccall f_17363(C_word c,C_word *av) C_noret;
C_noret_decl(f_17367)
static void C_ccall f_17367(C_word c,C_word *av) C_noret;
C_noret_decl(f_17374)
static void C_ccall f_17374(C_word c,C_word *av) C_noret;
C_noret_decl(f_17380)
static void C_ccall f_17380(C_word c,C_word *av) C_noret;
C_noret_decl(f_17382)
static void C_fcall f_17382(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17407)
static void C_ccall f_17407(C_word c,C_word *av) C_noret;
C_noret_decl(f_17424)
static void C_ccall f_17424(C_word c,C_word *av) C_noret;
C_noret_decl(f_17430)
static void C_ccall f_17430(C_word c,C_word *av) C_noret;
C_noret_decl(f_17439)
static void C_ccall f_17439(C_word c,C_word *av) C_noret;
C_noret_decl(f_17478)
static void C_ccall f_17478(C_word c,C_word *av) C_noret;
C_noret_decl(f_17484)
static void C_fcall f_17484(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17487)
static void C_fcall f_17487(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17534)
static void C_ccall f_17534(C_word c,C_word *av) C_noret;
C_noret_decl(f_17544)
static void C_fcall f_17544(C_word t0,C_word t1) C_noret;
C_noret_decl(f_17571)
static void C_ccall f_17571(C_word c,C_word *av) C_noret;
C_noret_decl(f_17575)
static void C_ccall f_17575(C_word c,C_word *av) C_noret;
C_noret_decl(f_17635)
static void C_ccall f_17635(C_word c,C_word *av) C_noret;
C_noret_decl(f_17637)
static void C_ccall f_17637(C_word c,C_word *av) C_noret;
C_noret_decl(f_17646)
static void C_fcall f_17646(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17664)
static void C_ccall f_17664(C_word c,C_word *av) C_noret;
C_noret_decl(f_17668)
static void C_fcall f_17668(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17674)
static C_word C_fcall f_17674(C_word t0,C_word t1);
C_noret_decl(f_17702)
static void C_fcall f_17702(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17733)
static void C_ccall f_17733(C_word c,C_word *av) C_noret;
C_noret_decl(f_17765)
static void C_ccall f_17765(C_word c,C_word *av) C_noret;
C_noret_decl(f_17792)
static void C_ccall f_17792(C_word c,C_word *av) C_noret;
C_noret_decl(f_17795)
static void C_ccall f_17795(C_word c,C_word *av) C_noret;
C_noret_decl(f_17832)
static void C_fcall f_17832(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17890)
static void C_ccall f_17890(C_word c,C_word *av) C_noret;
C_noret_decl(f_17924)
static void C_ccall f_17924(C_word c,C_word *av) C_noret;
C_noret_decl(f_17956)
static void C_ccall f_17956(C_word c,C_word *av) C_noret;
C_noret_decl(f_17961)
static void C_ccall f_17961(C_word c,C_word *av) C_noret;
C_noret_decl(f_17965)
static void C_ccall f_17965(C_word c,C_word *av) C_noret;
C_noret_decl(f_17976)
static void C_ccall f_17976(C_word c,C_word *av) C_noret;
C_noret_decl(f_17978)
static void C_ccall f_17978(C_word c,C_word *av) C_noret;
C_noret_decl(f_17994)
static void C_ccall f_17994(C_word c,C_word *av) C_noret;
C_noret_decl(f_17997)
static void C_ccall f_17997(C_word c,C_word *av) C_noret;
C_noret_decl(f_18013)
static void C_fcall f_18013(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18060)
static void C_ccall f_18060(C_word c,C_word *av) C_noret;
C_noret_decl(f_18062)
static void C_fcall f_18062(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18087)
static void C_ccall f_18087(C_word c,C_word *av) C_noret;
C_noret_decl(f_18106)
static void C_fcall f_18106(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18110)
static C_word C_fcall f_18110(C_word *a,C_word t0,C_word t1);
C_noret_decl(f_18148)
static void C_ccall f_18148(C_word c,C_word *av) C_noret;
C_noret_decl(f_18154)
static void C_ccall f_18154(C_word c,C_word *av) C_noret;
C_noret_decl(f_18159)
static void C_fcall f_18159(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18184)
static void C_ccall f_18184(C_word c,C_word *av) C_noret;
C_noret_decl(f_18260)
static void C_ccall f_18260(C_word c,C_word *av) C_noret;
C_noret_decl(f_18290)
static void C_fcall f_18290(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18302)
static void C_ccall f_18302(C_word c,C_word *av) C_noret;
C_noret_decl(f_18329)
static void C_ccall f_18329(C_word c,C_word *av) C_noret;
C_noret_decl(f_18332)
static void C_ccall f_18332(C_word c,C_word *av) C_noret;
C_noret_decl(f_18336)
static void C_fcall f_18336(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18349)
static void C_fcall f_18349(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18352)
static void C_ccall f_18352(C_word c,C_word *av) C_noret;
C_noret_decl(f_18376)
static void C_ccall f_18376(C_word c,C_word *av) C_noret;
C_noret_decl(f_18384)
static void C_fcall f_18384(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18388)
static void C_ccall f_18388(C_word c,C_word *av) C_noret;
C_noret_decl(f_18399)
static void C_ccall f_18399(C_word c,C_word *av) C_noret;
C_noret_decl(f_18478)
static void C_ccall f_18478(C_word c,C_word *av) C_noret;
C_noret_decl(f_18520)
static void C_fcall f_18520(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_18538)
static void C_ccall f_18538(C_word c,C_word *av) C_noret;
C_noret_decl(f_18541)
static void C_ccall f_18541(C_word c,C_word *av) C_noret;
C_noret_decl(f_18545)
static void C_fcall f_18545(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18588)
static void C_ccall f_18588(C_word c,C_word *av) C_noret;
C_noret_decl(f_18594)
static void C_ccall f_18594(C_word c,C_word *av) C_noret;
C_noret_decl(f_18599)
static void C_fcall f_18599(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18624)
static void C_ccall f_18624(C_word c,C_word *av) C_noret;
C_noret_decl(f_18669)
static void C_ccall f_18669(C_word c,C_word *av) C_noret;
C_noret_decl(f_18678)
static void C_ccall f_18678(C_word c,C_word *av) C_noret;
C_noret_decl(f_18682)
static void C_fcall f_18682(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18692)
static void C_ccall f_18692(C_word c,C_word *av) C_noret;
C_noret_decl(f_18724)
static void C_ccall f_18724(C_word c,C_word *av) C_noret;
C_noret_decl(f_18730)
static void C_ccall f_18730(C_word c,C_word *av) C_noret;
C_noret_decl(f_18732)
static void C_fcall f_18732(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18757)
static void C_ccall f_18757(C_word c,C_word *av) C_noret;
C_noret_decl(f_18889)
static void C_ccall f_18889(C_word c,C_word *av) C_noret;
C_noret_decl(f_18893)
static void C_fcall f_18893(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18897)
static void C_fcall f_18897(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18900)
static void C_ccall f_18900(C_word c,C_word *av) C_noret;
C_noret_decl(f_18932)
static void C_fcall f_18932(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18936)
static void C_ccall f_18936(C_word c,C_word *av) C_noret;
C_noret_decl(f_18949)
static void C_ccall f_18949(C_word c,C_word *av) C_noret;
C_noret_decl(f_18953)
static void C_ccall f_18953(C_word c,C_word *av) C_noret;
C_noret_decl(f_18956)
static void C_ccall f_18956(C_word c,C_word *av) C_noret;
C_noret_decl(f_18962)
static void C_ccall f_18962(C_word c,C_word *av) C_noret;
C_noret_decl(f_18964)
static void C_fcall f_18964(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18989)
static void C_ccall f_18989(C_word c,C_word *av) C_noret;
C_noret_decl(f_19004)
static void C_ccall f_19004(C_word c,C_word *av) C_noret;
C_noret_decl(f_19013)
static void C_ccall f_19013(C_word c,C_word *av) C_noret;
C_noret_decl(f_19021)
static void C_ccall f_19021(C_word c,C_word *av) C_noret;
C_noret_decl(f_19023)
static void C_ccall f_19023(C_word c,C_word *av) C_noret;
C_noret_decl(f_19038)
static void C_ccall f_19038(C_word c,C_word *av) C_noret;
C_noret_decl(f_19041)
static void C_fcall f_19041(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19053)
static void C_fcall f_19053(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19064)
static void C_fcall f_19064(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19070)
static void C_ccall f_19070(C_word c,C_word *av) C_noret;
C_noret_decl(f_19076)
static void C_ccall f_19076(C_word c,C_word *av) C_noret;
C_noret_decl(f_19092)
static void C_ccall f_19092(C_word c,C_word *av) C_noret;
C_noret_decl(f_19095)
static void C_ccall f_19095(C_word c,C_word *av) C_noret;
C_noret_decl(f_19105)
static void C_ccall f_19105(C_word c,C_word *av) C_noret;
C_noret_decl(f_19131)
static void C_fcall f_19131(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19137)
static void C_ccall f_19137(C_word c,C_word *av) C_noret;
C_noret_decl(f_19143)
static void C_ccall f_19143(C_word c,C_word *av) C_noret;
C_noret_decl(f_19159)
static void C_ccall f_19159(C_word c,C_word *av) C_noret;
C_noret_decl(f_19165)
static void C_fcall f_19165(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19190)
static void C_ccall f_19190(C_word c,C_word *av) C_noret;
C_noret_decl(f_19228)
static void C_ccall f_19228(C_word c,C_word *av) C_noret;
C_noret_decl(f_19230)
static void C_fcall f_19230(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19255)
static void C_ccall f_19255(C_word c,C_word *av) C_noret;
C_noret_decl(f_19281)
static void C_ccall f_19281(C_word c,C_word *av) C_noret;
C_noret_decl(f_19283)
static void C_fcall f_19283(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19308)
static void C_ccall f_19308(C_word c,C_word *av) C_noret;
C_noret_decl(f_19317)
static void C_fcall f_19317(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19345)
static void C_fcall f_19345(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_19359)
static void C_ccall f_19359(C_word c,C_word *av) C_noret;
C_noret_decl(f_19393)
static void C_ccall f_19393(C_word c,C_word *av) C_noret;
C_noret_decl(f_19397)
static void C_ccall f_19397(C_word c,C_word *av) C_noret;
C_noret_decl(f_19431)
static void C_fcall f_19431(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19435)
static void C_ccall f_19435(C_word c,C_word *av) C_noret;
C_noret_decl(f_19443)
static void C_fcall f_19443(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19463)
static void C_ccall f_19463(C_word c,C_word *av) C_noret;
C_noret_decl(f_19479)
static void C_ccall f_19479(C_word c,C_word *av) C_noret;
C_noret_decl(f_19481)
static void C_fcall f_19481(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_19485)
static void C_ccall f_19485(C_word c,C_word *av) C_noret;
C_noret_decl(f_19548)
static void C_ccall f_19548(C_word c,C_word *av) C_noret;
C_noret_decl(f_19560)
static void C_ccall f_19560(C_word c,C_word *av) C_noret;
C_noret_decl(f_19564)
static void C_ccall f_19564(C_word c,C_word *av) C_noret;
C_noret_decl(f_19580)
static void C_ccall f_19580(C_word c,C_word *av) C_noret;
C_noret_decl(f_19584)
static void C_ccall f_19584(C_word c,C_word *av) C_noret;
C_noret_decl(f_19605)
static void C_ccall f_19605(C_word c,C_word *av) C_noret;
C_noret_decl(f_19628)
static void C_ccall f_19628(C_word c,C_word *av) C_noret;
C_noret_decl(f_19635)
static void C_ccall f_19635(C_word c,C_word *av) C_noret;
C_noret_decl(f_19638)
static void C_ccall f_19638(C_word c,C_word *av) C_noret;
C_noret_decl(f_19641)
static void C_ccall f_19641(C_word c,C_word *av) C_noret;
C_noret_decl(f_19694)
static void C_ccall f_19694(C_word c,C_word *av) C_noret;
C_noret_decl(f_19704)
static void C_ccall f_19704(C_word c,C_word *av) C_noret;
C_noret_decl(f_19731)
static void C_fcall f_19731(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_19749)
static void C_ccall f_19749(C_word c,C_word *av) C_noret;
C_noret_decl(f_19826)
static void C_fcall f_19826(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19828)
static void C_ccall f_19828(C_word c,C_word *av) C_noret;
C_noret_decl(f_19832)
static void C_ccall f_19832(C_word c,C_word *av) C_noret;
C_noret_decl(f_19835)
static void C_ccall f_19835(C_word c,C_word *av) C_noret;
C_noret_decl(f_19881)
static void C_ccall f_19881(C_word c,C_word *av) C_noret;
C_noret_decl(f_19884)
static void C_ccall f_19884(C_word c,C_word *av) C_noret;
C_noret_decl(f_19890)
static void C_fcall f_19890(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19894)
static void C_fcall f_19894(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19898)
static void C_ccall f_19898(C_word c,C_word *av) C_noret;
C_noret_decl(f_19905)
static void C_ccall f_19905(C_word c,C_word *av) C_noret;
C_noret_decl(f_19909)
static void C_ccall f_19909(C_word c,C_word *av) C_noret;
C_noret_decl(f_19921)
static void C_ccall f_19921(C_word c,C_word *av) C_noret;
C_noret_decl(f_19924)
static void C_ccall f_19924(C_word c,C_word *av) C_noret;
C_noret_decl(f_19927)
static void C_ccall f_19927(C_word c,C_word *av) C_noret;
C_noret_decl(f_19930)
static void C_ccall f_19930(C_word c,C_word *av) C_noret;
C_noret_decl(f_19933)
static void C_ccall f_19933(C_word c,C_word *av) C_noret;
C_noret_decl(f_19936)
static void C_ccall f_19936(C_word c,C_word *av) C_noret;
C_noret_decl(f_19939)
static void C_ccall f_19939(C_word c,C_word *av) C_noret;
C_noret_decl(f_19941)
static void C_ccall f_19941(C_word c,C_word *av) C_noret;
C_noret_decl(f_19950)
static void C_fcall f_19950(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19960)
static void C_fcall f_19960(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_19982)
static void C_ccall f_19982(C_word c,C_word *av) C_noret;
C_noret_decl(f_19992)
static void C_ccall f_19992(C_word c,C_word *av) C_noret;
C_noret_decl(f_19995)
static void C_ccall f_19995(C_word c,C_word *av) C_noret;
C_noret_decl(f_19997)
static void C_fcall f_19997(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20041)
static void C_ccall f_20041(C_word c,C_word *av) C_noret;
C_noret_decl(f_20058)
static void C_ccall f_20058(C_word c,C_word *av) C_noret;
C_noret_decl(f_20064)
static void C_ccall f_20064(C_word c,C_word *av) C_noret;
C_noret_decl(f_20071)
static void C_ccall f_20071(C_word c,C_word *av) C_noret;
C_noret_decl(f_20095)
static void C_ccall f_20095(C_word c,C_word *av) C_noret;
C_noret_decl(f_20104)
static void C_ccall f_20104(C_word c,C_word *av) C_noret;
C_noret_decl(f_20107)
static void C_ccall f_20107(C_word c,C_word *av) C_noret;
C_noret_decl(f_20111)
static void C_ccall f_20111(C_word c,C_word *av) C_noret;
C_noret_decl(f_20115)
static void C_ccall f_20115(C_word c,C_word *av) C_noret;
C_noret_decl(f_20127)
static void C_fcall f_20127(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20157)
static void C_ccall f_20157(C_word c,C_word *av) C_noret;
C_noret_decl(f_20171)
static void C_ccall f_20171(C_word c,C_word *av) C_noret;
C_noret_decl(f_20175)
static void C_ccall f_20175(C_word c,C_word *av) C_noret;
C_noret_decl(f_20179)
static void C_ccall f_20179(C_word c,C_word *av) C_noret;
C_noret_decl(f_20202)
static void C_ccall f_20202(C_word c,C_word *av) C_noret;
C_noret_decl(f_20204)
static void C_fcall f_20204(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_20207)
static void C_fcall f_20207(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20216)
static void C_fcall f_20216(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20267)
static void C_ccall f_20267(C_word c,C_word *av) C_noret;
C_noret_decl(f_20271)
static void C_fcall f_20271(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20275)
static void C_ccall f_20275(C_word c,C_word *av) C_noret;
C_noret_decl(f_20279)
static void C_fcall f_20279(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20287)
static void C_ccall f_20287(C_word c,C_word *av) C_noret;
C_noret_decl(f_20289)
static void C_ccall f_20289(C_word c,C_word *av) C_noret;
C_noret_decl(f_20313)
static void C_fcall f_20313(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20338)
static void C_ccall f_20338(C_word c,C_word *av) C_noret;
C_noret_decl(f_20349)
static void C_ccall f_20349(C_word c,C_word *av) C_noret;
C_noret_decl(f_20359)
static void C_ccall f_20359(C_word c,C_word *av) C_noret;
C_noret_decl(f_20361)
static void C_fcall f_20361(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20386)
static void C_ccall f_20386(C_word c,C_word *av) C_noret;
C_noret_decl(f_20403)
static void C_ccall f_20403(C_word c,C_word *av) C_noret;
C_noret_decl(f_20405)
static void C_fcall f_20405(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20419)
static void C_fcall f_20419(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20435)
static void C_ccall f_20435(C_word c,C_word *av) C_noret;
C_noret_decl(f_20454)
static void C_ccall f_20454(C_word c,C_word *av) C_noret;
C_noret_decl(f_20460)
static void C_ccall f_20460(C_word c,C_word *av) C_noret;
C_noret_decl(f_20462)
static void C_fcall f_20462(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20472)
static void C_ccall f_20472(C_word c,C_word *av) C_noret;
C_noret_decl(f_20492)
static void C_ccall f_20492(C_word c,C_word *av) C_noret;
C_noret_decl(f_20495)
static void C_ccall f_20495(C_word c,C_word *av) C_noret;
C_noret_decl(f_20506)
static void C_ccall f_20506(C_word c,C_word *av) C_noret;
C_noret_decl(f_20509)
static void C_ccall f_20509(C_word c,C_word *av) C_noret;
C_noret_decl(f_20529)
static void C_fcall f_20529(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20536)
static void C_ccall f_20536(C_word c,C_word *av) C_noret;
C_noret_decl(f_20539)
static void C_ccall f_20539(C_word c,C_word *av) C_noret;
C_noret_decl(f_20565)
static void C_fcall f_20565(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20578)
static void C_ccall f_20578(C_word c,C_word *av) C_noret;
C_noret_decl(f_20580)
static void C_fcall f_20580(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20605)
static void C_ccall f_20605(C_word c,C_word *av) C_noret;
C_noret_decl(f_20620)
static void C_fcall f_20620(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20627)
static void C_ccall f_20627(C_word c,C_word *av) C_noret;
C_noret_decl(f_20630)
static void C_ccall f_20630(C_word c,C_word *av) C_noret;
C_noret_decl(f_20637)
static void C_ccall f_20637(C_word c,C_word *av) C_noret;
C_noret_decl(f_20646)
static void C_fcall f_20646(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20652)
static void C_fcall f_20652(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20665)
static void C_ccall f_20665(C_word c,C_word *av) C_noret;
C_noret_decl(f_20681)
static void C_ccall f_20681(C_word c,C_word *av) C_noret;
C_noret_decl(f_20687)
static void C_ccall f_20687(C_word c,C_word *av) C_noret;
C_noret_decl(f_20690)
static void C_ccall f_20690(C_word c,C_word *av) C_noret;
C_noret_decl(f_20693)
static void C_ccall f_20693(C_word c,C_word *av) C_noret;
C_noret_decl(f_20696)
static void C_ccall f_20696(C_word c,C_word *av) C_noret;
C_noret_decl(f_20704)
static void C_ccall f_20704(C_word c,C_word *av) C_noret;
C_noret_decl(f_20717)
static void C_ccall f_20717(C_word c,C_word *av) C_noret;
C_noret_decl(f_20719)
static void C_fcall f_20719(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20744)
static void C_ccall f_20744(C_word c,C_word *av) C_noret;
C_noret_decl(f_20760)
static void C_ccall f_20760(C_word c,C_word *av) C_noret;
C_noret_decl(f_20772)
static void C_fcall f_20772(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20781)
static void C_ccall f_20781(C_word c,C_word *av) C_noret;
C_noret_decl(f_20790)
static void C_fcall f_20790(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20849)
static void C_ccall f_20849(C_word c,C_word *av) C_noret;
C_noret_decl(f_20851)
static void C_fcall f_20851(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20876)
static void C_ccall f_20876(C_word c,C_word *av) C_noret;
C_noret_decl(f_20901)
static void C_ccall f_20901(C_word c,C_word *av) C_noret;
C_noret_decl(f_20907)
static void C_ccall f_20907(C_word c,C_word *av) C_noret;
C_noret_decl(f_20910)
static void C_ccall f_20910(C_word c,C_word *av) C_noret;
C_noret_decl(f_20913)
static void C_ccall f_20913(C_word c,C_word *av) C_noret;
C_noret_decl(f_20944)
static void C_ccall f_20944(C_word c,C_word *av) C_noret;
C_noret_decl(f_20947)
static void C_fcall f_20947(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20950)
static void C_ccall f_20950(C_word c,C_word *av) C_noret;
C_noret_decl(f_20967)
static void C_fcall f_20967(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20992)
static void C_ccall f_20992(C_word c,C_word *av) C_noret;
C_noret_decl(f_21001)
static void C_fcall f_21001(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21026)
static void C_ccall f_21026(C_word c,C_word *av) C_noret;
C_noret_decl(f_21063)
static void C_ccall f_21063(C_word c,C_word *av) C_noret;
C_noret_decl(f_21070)
static void C_ccall f_21070(C_word c,C_word *av) C_noret;
C_noret_decl(f_21074)
static void C_ccall f_21074(C_word c,C_word *av) C_noret;
C_noret_decl(f_21076)
static void C_ccall f_21076(C_word c,C_word *av) C_noret;
C_noret_decl(f_21084)
static void C_ccall f_21084(C_word c,C_word *av) C_noret;
C_noret_decl(f_21086)
static void C_fcall f_21086(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21090)
static void C_ccall f_21090(C_word c,C_word *av) C_noret;
C_noret_decl(f_21095)
static void C_fcall f_21095(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_21121)
static void C_ccall f_21121(C_word c,C_word *av) C_noret;
C_noret_decl(f_21126)
static void C_fcall f_21126(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21138)
static void C_fcall f_21138(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21163)
static void C_ccall f_21163(C_word c,C_word *av) C_noret;
C_noret_decl(f_21180)
static void C_ccall f_21180(C_word c,C_word *av) C_noret;
C_noret_decl(f_21189)
static void C_ccall f_21189(C_word c,C_word *av) C_noret;
C_noret_decl(f_21191)
static void C_fcall f_21191(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21199)
static void C_ccall f_21199(C_word c,C_word *av) C_noret;
C_noret_decl(f_21203)
static void C_ccall f_21203(C_word c,C_word *av) C_noret;
C_noret_decl(f_21205)
static void C_ccall f_21205(C_word c,C_word *av) C_noret;
C_noret_decl(f_21213)
static void C_ccall f_21213(C_word c,C_word *av) C_noret;
C_noret_decl(f_21215)
static void C_fcall f_21215(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21219)
static void C_ccall f_21219(C_word c,C_word *av) C_noret;
C_noret_decl(f_21228)
static void C_ccall f_21228(C_word c,C_word *av) C_noret;
C_noret_decl(f_21234)
static void C_ccall f_21234(C_word c,C_word *av) C_noret;
C_noret_decl(f_21237)
static void C_ccall f_21237(C_word c,C_word *av) C_noret;
C_noret_decl(f_21240)
static void C_ccall f_21240(C_word c,C_word *av) C_noret;
C_noret_decl(f_21245)
static void C_fcall f_21245(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21258)
static void C_ccall f_21258(C_word c,C_word *av) C_noret;
C_noret_decl(f_21264)
static void C_ccall f_21264(C_word c,C_word *av) C_noret;
C_noret_decl(f_21267)
static void C_ccall f_21267(C_word c,C_word *av) C_noret;
C_noret_decl(f_21270)
static void C_ccall f_21270(C_word c,C_word *av) C_noret;
C_noret_decl(f_21277)
static void C_ccall f_21277(C_word c,C_word *av) C_noret;
C_noret_decl(f_21295)
static void C_fcall f_21295(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_21309)
static void C_fcall f_21309(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21313)
static void C_ccall f_21313(C_word c,C_word *av) C_noret;
C_noret_decl(f_21317)
static void C_ccall f_21317(C_word c,C_word *av) C_noret;
C_noret_decl(f_21323)
static void C_ccall f_21323(C_word c,C_word *av) C_noret;
C_noret_decl(f_21331)
static void C_ccall f_21331(C_word c,C_word *av) C_noret;
C_noret_decl(f_21337)
static void C_ccall f_21337(C_word c,C_word *av) C_noret;
C_noret_decl(f_21345)
static void C_ccall f_21345(C_word c,C_word *av) C_noret;
C_noret_decl(f_21349)
static void C_ccall f_21349(C_word c,C_word *av) C_noret;
C_noret_decl(f_21355)
static void C_ccall f_21355(C_word c,C_word *av) C_noret;
C_noret_decl(f_21358)
static void C_ccall f_21358(C_word c,C_word *av) C_noret;
C_noret_decl(f_21361)
static void C_ccall f_21361(C_word c,C_word *av) C_noret;
C_noret_decl(f_21364)
static void C_ccall f_21364(C_word c,C_word *av) C_noret;
C_noret_decl(f_21367)
static void C_ccall f_21367(C_word c,C_word *av) C_noret;
C_noret_decl(f_21373)
static void C_ccall f_21373(C_word c,C_word *av) C_noret;
C_noret_decl(f_21376)
static void C_ccall f_21376(C_word c,C_word *av) C_noret;
C_noret_decl(f_21379)
static void C_ccall f_21379(C_word c,C_word *av) C_noret;
C_noret_decl(f_21382)
static void C_ccall f_21382(C_word c,C_word *av) C_noret;
C_noret_decl(f_21385)
static void C_ccall f_21385(C_word c,C_word *av) C_noret;
C_noret_decl(f_21401)
static void C_ccall f_21401(C_word c,C_word *av) C_noret;
C_noret_decl(f_21415)
static void C_fcall f_21415(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21419)
static void C_ccall f_21419(C_word c,C_word *av) C_noret;
C_noret_decl(f_21422)
static void C_ccall f_21422(C_word c,C_word *av) C_noret;
C_noret_decl(f_21435)
static void C_ccall f_21435(C_word c,C_word *av) C_noret;
C_noret_decl(f_21439)
static void C_ccall f_21439(C_word c,C_word *av) C_noret;
C_noret_decl(f_21454)
static void C_ccall f_21454(C_word c,C_word *av) C_noret;
C_noret_decl(f_21466)
static void C_fcall f_21466(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21472)
static void C_ccall f_21472(C_word c,C_word *av) C_noret;
C_noret_decl(f_21478)
static void C_ccall f_21478(C_word c,C_word *av) C_noret;
C_noret_decl(f_21485)
static void C_ccall f_21485(C_word c,C_word *av) C_noret;
C_noret_decl(f_21491)
static void C_ccall f_21491(C_word c,C_word *av) C_noret;
C_noret_decl(f_21494)
static void C_ccall f_21494(C_word c,C_word *av) C_noret;
C_noret_decl(f_21497)
static void C_ccall f_21497(C_word c,C_word *av) C_noret;
C_noret_decl(f_21500)
static void C_ccall f_21500(C_word c,C_word *av) C_noret;
C_noret_decl(f_21503)
static void C_ccall f_21503(C_word c,C_word *av) C_noret;
C_noret_decl(f_21509)
static void C_ccall f_21509(C_word c,C_word *av) C_noret;
C_noret_decl(f_21515)
static void C_ccall f_21515(C_word c,C_word *av) C_noret;
C_noret_decl(f_21518)
static void C_ccall f_21518(C_word c,C_word *av) C_noret;
C_noret_decl(f_21521)
static void C_ccall f_21521(C_word c,C_word *av) C_noret;
C_noret_decl(f_21526)
static void C_fcall f_21526(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21529)
static void C_fcall f_21529(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21537)
static void C_ccall f_21537(C_word c,C_word *av) C_noret;
C_noret_decl(f_21541)
static void C_ccall f_21541(C_word c,C_word *av) C_noret;
C_noret_decl(f_21543)
static void C_fcall f_21543(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21547)
static void C_ccall f_21547(C_word c,C_word *av) C_noret;
C_noret_decl(f_21567)
static void C_ccall f_21567(C_word c,C_word *av) C_noret;
C_noret_decl(f_21574)
static void C_ccall f_21574(C_word c,C_word *av) C_noret;
C_noret_decl(f_21595)
static void C_ccall f_21595(C_word c,C_word *av) C_noret;
C_noret_decl(f_21605)
static void C_ccall f_21605(C_word c,C_word *av) C_noret;
C_noret_decl(f_21609)
static void C_ccall f_21609(C_word c,C_word *av) C_noret;
C_noret_decl(f_21613)
static void C_ccall f_21613(C_word c,C_word *av) C_noret;
C_noret_decl(f_21617)
static void C_ccall f_21617(C_word c,C_word *av) C_noret;
C_noret_decl(f_21621)
static void C_ccall f_21621(C_word c,C_word *av) C_noret;
C_noret_decl(f_21625)
static void C_ccall f_21625(C_word c,C_word *av) C_noret;
C_noret_decl(f_21629)
static void C_ccall f_21629(C_word c,C_word *av) C_noret;
C_noret_decl(f_21633)
static void C_ccall f_21633(C_word c,C_word *av) C_noret;
C_noret_decl(f_21640)
static void C_ccall f_21640(C_word c,C_word *av) C_noret;
C_noret_decl(f_21656)
static void C_ccall f_21656(C_word c,C_word *av) C_noret;
C_noret_decl(f_21659)
static void C_fcall f_21659(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21665)
static void C_ccall f_21665(C_word c,C_word *av) C_noret;
C_noret_decl(f_21681)
static void C_ccall f_21681(C_word c,C_word *av) C_noret;
C_noret_decl(f_21687)
static void C_ccall f_21687(C_word c,C_word *av) C_noret;
C_noret_decl(f_21694)
static void C_ccall f_21694(C_word c,C_word *av) C_noret;
C_noret_decl(f_21698)
static void C_ccall f_21698(C_word c,C_word *av) C_noret;
C_noret_decl(f_21702)
static void C_ccall f_21702(C_word c,C_word *av) C_noret;
C_noret_decl(f_21706)
static void C_ccall f_21706(C_word c,C_word *av) C_noret;
C_noret_decl(f_21709)
static void C_ccall f_21709(C_word c,C_word *av) C_noret;
C_noret_decl(f_21713)
static void C_ccall f_21713(C_word c,C_word *av) C_noret;
C_noret_decl(f_21717)
static void C_ccall f_21717(C_word c,C_word *av) C_noret;
C_noret_decl(f_21723)
static void C_ccall f_21723(C_word c,C_word *av) C_noret;
C_noret_decl(f_21726)
static void C_ccall f_21726(C_word c,C_word *av) C_noret;
C_noret_decl(f_21740)
static void C_fcall f_21740(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21758)
static void C_ccall f_21758(C_word c,C_word *av) C_noret;
C_noret_decl(f_21771)
static void C_ccall f_21771(C_word c,C_word *av) C_noret;
C_noret_decl(f_21775)
static void C_ccall f_21775(C_word c,C_word *av) C_noret;
C_noret_decl(f_21779)
static void C_ccall f_21779(C_word c,C_word *av) C_noret;
C_noret_decl(f_21785)
static void C_ccall f_21785(C_word c,C_word *av) C_noret;
C_noret_decl(f_21796)
static void C_ccall f_21796(C_word c,C_word *av) C_noret;
C_noret_decl(f_21800)
static void C_ccall f_21800(C_word c,C_word *av) C_noret;
C_noret_decl(f_21804)
static void C_ccall f_21804(C_word c,C_word *av) C_noret;
C_noret_decl(f_21808)
static void C_ccall f_21808(C_word c,C_word *av) C_noret;
C_noret_decl(f_21812)
static void C_ccall f_21812(C_word c,C_word *av) C_noret;
C_noret_decl(f_21823)
static void C_ccall f_21823(C_word c,C_word *av) C_noret;
C_noret_decl(f_21827)
static void C_ccall f_21827(C_word c,C_word *av) C_noret;
C_noret_decl(f_21831)
static void C_ccall f_21831(C_word c,C_word *av) C_noret;
C_noret_decl(f_21835)
static void C_ccall f_21835(C_word c,C_word *av) C_noret;
C_noret_decl(f_21839)
static void C_ccall f_21839(C_word c,C_word *av) C_noret;
C_noret_decl(f_21846)
static void C_ccall f_21846(C_word c,C_word *av) C_noret;
C_noret_decl(f_21857)
static void C_ccall f_21857(C_word c,C_word *av) C_noret;
C_noret_decl(f_21861)
static void C_ccall f_21861(C_word c,C_word *av) C_noret;
C_noret_decl(f_21865)
static void C_ccall f_21865(C_word c,C_word *av) C_noret;
C_noret_decl(f_21881)
static void C_ccall f_21881(C_word c,C_word *av) C_noret;
C_noret_decl(f_21885)
static void C_ccall f_21885(C_word c,C_word *av) C_noret;
C_noret_decl(f_21890)
static void C_fcall f_21890(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_21895)
static void C_ccall f_21895(C_word c,C_word *av) C_noret;
C_noret_decl(f_21906)
static void C_ccall f_21906(C_word c,C_word *av) C_noret;
C_noret_decl(f_21910)
static void C_ccall f_21910(C_word c,C_word *av) C_noret;
C_noret_decl(f_21914)
static void C_ccall f_21914(C_word c,C_word *av) C_noret;
C_noret_decl(f_21918)
static void C_ccall f_21918(C_word c,C_word *av) C_noret;
C_noret_decl(f_21922)
static void C_ccall f_21922(C_word c,C_word *av) C_noret;
C_noret_decl(f_21926)
static void C_ccall f_21926(C_word c,C_word *av) C_noret;
C_noret_decl(f_21930)
static void C_ccall f_21930(C_word c,C_word *av) C_noret;
C_noret_decl(f_21934)
static void C_ccall f_21934(C_word c,C_word *av) C_noret;
C_noret_decl(f_21936)
static void C_ccall f_21936(C_word c,C_word *av) C_noret;
C_noret_decl(f_21941)
static void C_ccall f_21941(C_word c,C_word *av) C_noret;
C_noret_decl(f_21943)
static void C_ccall f_21943(C_word c,C_word *av) C_noret;
C_noret_decl(f_21955)
static void C_ccall f_21955(C_word c,C_word *av) C_noret;
C_noret_decl(f_21959)
static void C_ccall f_21959(C_word c,C_word *av) C_noret;
C_noret_decl(f_21963)
static void C_ccall f_21963(C_word c,C_word *av) C_noret;
C_noret_decl(f_21967)
static void C_ccall f_21967(C_word c,C_word *av) C_noret;
C_noret_decl(f_21971)
static void C_ccall f_21971(C_word c,C_word *av) C_noret;
C_noret_decl(f_21977)
static void C_ccall f_21977(C_word c,C_word *av) C_noret;
C_noret_decl(f_21980)
static void C_ccall f_21980(C_word c,C_word *av) C_noret;
C_noret_decl(f_21983)
static void C_ccall f_21983(C_word c,C_word *av) C_noret;
C_noret_decl(f_21990)
static void C_ccall f_21990(C_word c,C_word *av) C_noret;
C_noret_decl(f_22006)
static void C_ccall f_22006(C_word c,C_word *av) C_noret;
C_noret_decl(f_22012)
static void C_ccall f_22012(C_word c,C_word *av) C_noret;
C_noret_decl(f_22015)
static void C_ccall f_22015(C_word c,C_word *av) C_noret;
C_noret_decl(f_22018)
static void C_ccall f_22018(C_word c,C_word *av) C_noret;
C_noret_decl(f_22021)
static void C_ccall f_22021(C_word c,C_word *av) C_noret;
C_noret_decl(f_22029)
static void C_fcall f_22029(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_22034)
static void C_ccall f_22034(C_word c,C_word *av) C_noret;
C_noret_decl(f_22041)
static void C_ccall f_22041(C_word c,C_word *av) C_noret;
C_noret_decl(f_22049)
static void C_ccall f_22049(C_word c,C_word *av) C_noret;
C_noret_decl(f_22053)
static void C_ccall f_22053(C_word c,C_word *av) C_noret;
C_noret_decl(f_22057)
static void C_ccall f_22057(C_word c,C_word *av) C_noret;
C_noret_decl(f_22061)
static void C_ccall f_22061(C_word c,C_word *av) C_noret;
C_noret_decl(f_22065)
static void C_ccall f_22065(C_word c,C_word *av) C_noret;
C_noret_decl(f_22071)
static void C_ccall f_22071(C_word c,C_word *av) C_noret;
C_noret_decl(f_22074)
static void C_ccall f_22074(C_word c,C_word *av) C_noret;
C_noret_decl(f_22077)
static void C_ccall f_22077(C_word c,C_word *av) C_noret;
C_noret_decl(f_22083)
static void C_ccall f_22083(C_word c,C_word *av) C_noret;
C_noret_decl(f_22089)
static void C_ccall f_22089(C_word c,C_word *av) C_noret;
C_noret_decl(f_22092)
static void C_ccall f_22092(C_word c,C_word *av) C_noret;
C_noret_decl(f_22095)
static void C_ccall f_22095(C_word c,C_word *av) C_noret;
C_noret_decl(f_22098)
static void C_ccall f_22098(C_word c,C_word *av) C_noret;
C_noret_decl(f_22101)
static void C_ccall f_22101(C_word c,C_word *av) C_noret;
C_noret_decl(f_22104)
static void C_ccall f_22104(C_word c,C_word *av) C_noret;
C_noret_decl(f_22107)
static void C_ccall f_22107(C_word c,C_word *av) C_noret;
C_noret_decl(f_22114)
static void C_ccall f_22114(C_word c,C_word *av) C_noret;
C_noret_decl(f_22120)
static void C_ccall f_22120(C_word c,C_word *av) C_noret;
C_noret_decl(f_22123)
static void C_ccall f_22123(C_word c,C_word *av) C_noret;
C_noret_decl(f_22126)
static void C_ccall f_22126(C_word c,C_word *av) C_noret;
C_noret_decl(f_22132)
static void C_ccall f_22132(C_word c,C_word *av) C_noret;
C_noret_decl(f_22138)
static void C_ccall f_22138(C_word c,C_word *av) C_noret;
C_noret_decl(f_22141)
static void C_ccall f_22141(C_word c,C_word *av) C_noret;
C_noret_decl(f_22144)
static void C_ccall f_22144(C_word c,C_word *av) C_noret;
C_noret_decl(f_22151)
static void C_ccall f_22151(C_word c,C_word *av) C_noret;
C_noret_decl(f_22161)
static void C_ccall f_22161(C_word c,C_word *av) C_noret;
C_noret_decl(f_22164)
static void C_fcall f_22164(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_22176)
static void C_ccall f_22176(C_word c,C_word *av) C_noret;
C_noret_decl(f_22180)
static void C_ccall f_22180(C_word c,C_word *av) C_noret;
C_noret_decl(f_22184)
static void C_ccall f_22184(C_word c,C_word *av) C_noret;
C_noret_decl(f_22200)
static void C_ccall f_22200(C_word c,C_word *av) C_noret;
C_noret_decl(f_22206)
static void C_ccall f_22206(C_word c,C_word *av) C_noret;
C_noret_decl(f_22209)
static void C_ccall f_22209(C_word c,C_word *av) C_noret;
C_noret_decl(f_22212)
static void C_ccall f_22212(C_word c,C_word *av) C_noret;
C_noret_decl(f_22215)
static void C_ccall f_22215(C_word c,C_word *av) C_noret;
C_noret_decl(f_22223)
static void C_ccall f_22223(C_word c,C_word *av) C_noret;
C_noret_decl(f_22226)
static void C_fcall f_22226(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_22238)
static void C_ccall f_22238(C_word c,C_word *av) C_noret;
C_noret_decl(f_22242)
static void C_ccall f_22242(C_word c,C_word *av) C_noret;
C_noret_decl(f_22246)
static void C_ccall f_22246(C_word c,C_word *av) C_noret;
C_noret_decl(f_22250)
static void C_ccall f_22250(C_word c,C_word *av) C_noret;
C_noret_decl(f_22263)
static void C_ccall f_22263(C_word c,C_word *av) C_noret;
C_noret_decl(f_22269)
static void C_ccall f_22269(C_word c,C_word *av) C_noret;
C_noret_decl(f_22272)
static void C_ccall f_22272(C_word c,C_word *av) C_noret;
C_noret_decl(f_22275)
static void C_ccall f_22275(C_word c,C_word *av) C_noret;
C_noret_decl(f_22278)
static void C_ccall f_22278(C_word c,C_word *av) C_noret;
C_noret_decl(f_22282)
static void C_ccall f_22282(C_word c,C_word *av) C_noret;
C_noret_decl(f_22289)
static void C_ccall f_22289(C_word c,C_word *av) C_noret;
C_noret_decl(f_22295)
static void C_ccall f_22295(C_word c,C_word *av) C_noret;
C_noret_decl(f_22298)
static void C_ccall f_22298(C_word c,C_word *av) C_noret;
C_noret_decl(f_22301)
static void C_ccall f_22301(C_word c,C_word *av) C_noret;
C_noret_decl(f_22304)
static void C_ccall f_22304(C_word c,C_word *av) C_noret;
C_noret_decl(f_22307)
static void C_ccall f_22307(C_word c,C_word *av) C_noret;
C_noret_decl(f_22310)
static void C_ccall f_22310(C_word c,C_word *av) C_noret;
C_noret_decl(f_22314)
static void C_ccall f_22314(C_word c,C_word *av) C_noret;
C_noret_decl(f_22320)
static void C_ccall f_22320(C_word c,C_word *av) C_noret;
C_noret_decl(f_22323)
static void C_ccall f_22323(C_word c,C_word *av) C_noret;
C_noret_decl(f_22326)
static void C_ccall f_22326(C_word c,C_word *av) C_noret;
C_noret_decl(f_22329)
static void C_ccall f_22329(C_word c,C_word *av) C_noret;
C_noret_decl(f_22337)
static void C_ccall f_22337(C_word c,C_word *av) C_noret;
C_noret_decl(f_22343)
static void C_ccall f_22343(C_word c,C_word *av) C_noret;
C_noret_decl(f_22346)
static void C_fcall f_22346(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_22358)
static void C_ccall f_22358(C_word c,C_word *av) C_noret;
C_noret_decl(f_22362)
static void C_ccall f_22362(C_word c,C_word *av) C_noret;
C_noret_decl(f_22366)
static void C_ccall f_22366(C_word c,C_word *av) C_noret;
C_noret_decl(f_22370)
static void C_ccall f_22370(C_word c,C_word *av) C_noret;
C_noret_decl(f_22383)
static void C_ccall f_22383(C_word c,C_word *av) C_noret;
C_noret_decl(f_22389)
static void C_ccall f_22389(C_word c,C_word *av) C_noret;
C_noret_decl(f_22392)
static void C_ccall f_22392(C_word c,C_word *av) C_noret;
C_noret_decl(f_22395)
static void C_ccall f_22395(C_word c,C_word *av) C_noret;
C_noret_decl(f_22398)
static void C_ccall f_22398(C_word c,C_word *av) C_noret;
C_noret_decl(f_22402)
static void C_ccall f_22402(C_word c,C_word *av) C_noret;
C_noret_decl(f_22409)
static void C_ccall f_22409(C_word c,C_word *av) C_noret;
C_noret_decl(f_22415)
static void C_ccall f_22415(C_word c,C_word *av) C_noret;
C_noret_decl(f_22418)
static void C_ccall f_22418(C_word c,C_word *av) C_noret;
C_noret_decl(f_22421)
static void C_ccall f_22421(C_word c,C_word *av) C_noret;
C_noret_decl(f_22424)
static void C_ccall f_22424(C_word c,C_word *av) C_noret;
C_noret_decl(f_22427)
static void C_ccall f_22427(C_word c,C_word *av) C_noret;
C_noret_decl(f_22430)
static void C_ccall f_22430(C_word c,C_word *av) C_noret;
C_noret_decl(f_22434)
static void C_ccall f_22434(C_word c,C_word *av) C_noret;
C_noret_decl(f_22440)
static void C_ccall f_22440(C_word c,C_word *av) C_noret;
C_noret_decl(f_22443)
static void C_ccall f_22443(C_word c,C_word *av) C_noret;
C_noret_decl(f_22446)
static void C_ccall f_22446(C_word c,C_word *av) C_noret;
C_noret_decl(f_22449)
static void C_ccall f_22449(C_word c,C_word *av) C_noret;
C_noret_decl(f_22457)
static void C_ccall f_22457(C_word c,C_word *av) C_noret;
C_noret_decl(f_22468)
static void C_ccall f_22468(C_word c,C_word *av) C_noret;
C_noret_decl(f_22479)
static void C_ccall f_22479(C_word c,C_word *av) C_noret;
C_noret_decl(f_22483)
static void C_ccall f_22483(C_word c,C_word *av) C_noret;
C_noret_decl(f_22487)
static void C_ccall f_22487(C_word c,C_word *av) C_noret;
C_noret_decl(f_22491)
static void C_ccall f_22491(C_word c,C_word *av) C_noret;
C_noret_decl(f_22495)
static void C_ccall f_22495(C_word c,C_word *av) C_noret;
C_noret_decl(f_22502)
static void C_ccall f_22502(C_word c,C_word *av) C_noret;
C_noret_decl(f_22513)
static void C_ccall f_22513(C_word c,C_word *av) C_noret;
C_noret_decl(f_22517)
static void C_ccall f_22517(C_word c,C_word *av) C_noret;
C_noret_decl(f_22521)
static void C_ccall f_22521(C_word c,C_word *av) C_noret;
C_noret_decl(f_22525)
static void C_ccall f_22525(C_word c,C_word *av) C_noret;
C_noret_decl(f_22529)
static void C_ccall f_22529(C_word c,C_word *av) C_noret;
C_noret_decl(f_22543)
static void C_ccall f_22543(C_word c,C_word *av) C_noret;
C_noret_decl(f_22547)
static void C_ccall f_22547(C_word c,C_word *av) C_noret;
C_noret_decl(f_22551)
static void C_ccall f_22551(C_word c,C_word *av) C_noret;
C_noret_decl(f_22565)
static void C_ccall f_22565(C_word c,C_word *av) C_noret;
C_noret_decl(f_22569)
static void C_ccall f_22569(C_word c,C_word *av) C_noret;
C_noret_decl(f_22583)
static void C_ccall f_22583(C_word c,C_word *av) C_noret;
C_noret_decl(f_22587)
static void C_ccall f_22587(C_word c,C_word *av) C_noret;
C_noret_decl(f_22591)
static void C_ccall f_22591(C_word c,C_word *av) C_noret;
C_noret_decl(f_22605)
static void C_ccall f_22605(C_word c,C_word *av) C_noret;
C_noret_decl(f_22609)
static void C_ccall f_22609(C_word c,C_word *av) C_noret;
C_noret_decl(f_22617)
static void C_ccall f_22617(C_word c,C_word *av) C_noret;
C_noret_decl(f_22631)
static void C_ccall f_22631(C_word c,C_word *av) C_noret;
C_noret_decl(f_22635)
static void C_ccall f_22635(C_word c,C_word *av) C_noret;
C_noret_decl(f_22639)
static void C_ccall f_22639(C_word c,C_word *av) C_noret;
C_noret_decl(f_22643)
static void C_ccall f_22643(C_word c,C_word *av) C_noret;
C_noret_decl(f_22663)
static void C_ccall f_22663(C_word c,C_word *av) C_noret;
C_noret_decl(f_22667)
static void C_ccall f_22667(C_word c,C_word *av) C_noret;
C_noret_decl(f_22671)
static void C_ccall f_22671(C_word c,C_word *av) C_noret;
C_noret_decl(f_22675)
static void C_ccall f_22675(C_word c,C_word *av) C_noret;
C_noret_decl(f_22679)
static void C_ccall f_22679(C_word c,C_word *av) C_noret;
C_noret_decl(f_22683)
static void C_ccall f_22683(C_word c,C_word *av) C_noret;
C_noret_decl(f_22693)
static void C_ccall f_22693(C_word c,C_word *av) C_noret;
C_noret_decl(f_22695)
static void C_fcall f_22695(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22720)
static void C_ccall f_22720(C_word c,C_word *av) C_noret;
C_noret_decl(f_22732)
static void C_ccall f_22732(C_word c,C_word *av) C_noret;
C_noret_decl(f_22739)
static void C_ccall f_22739(C_word c,C_word *av) C_noret;
C_noret_decl(f_22753)
static void C_ccall f_22753(C_word c,C_word *av) C_noret;
C_noret_decl(f_22757)
static void C_ccall f_22757(C_word c,C_word *av) C_noret;
C_noret_decl(f_22769)
static void C_ccall f_22769(C_word c,C_word *av) C_noret;
C_noret_decl(f_22781)
static void C_ccall f_22781(C_word c,C_word *av) C_noret;
C_noret_decl(f_22799)
static void C_ccall f_22799(C_word c,C_word *av) C_noret;
C_noret_decl(f_22803)
static void C_ccall f_22803(C_word c,C_word *av) C_noret;
C_noret_decl(f_22807)
static void C_ccall f_22807(C_word c,C_word *av) C_noret;
C_noret_decl(f_22811)
static void C_ccall f_22811(C_word c,C_word *av) C_noret;
C_noret_decl(f_22815)
static void C_ccall f_22815(C_word c,C_word *av) C_noret;
C_noret_decl(f_22819)
static void C_ccall f_22819(C_word c,C_word *av) C_noret;
C_noret_decl(f_22823)
static void C_ccall f_22823(C_word c,C_word *av) C_noret;
C_noret_decl(f_22826)
static void C_ccall f_22826(C_word c,C_word *av) C_noret;
C_noret_decl(f_22834)
static void C_fcall f_22834(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_22845)
static void C_ccall f_22845(C_word c,C_word *av) C_noret;
C_noret_decl(f_22851)
static void C_ccall f_22851(C_word c,C_word *av) C_noret;
C_noret_decl(f_22854)
static void C_ccall f_22854(C_word c,C_word *av) C_noret;
C_noret_decl(f_22857)
static void C_ccall f_22857(C_word c,C_word *av) C_noret;
C_noret_decl(f_22860)
static void C_ccall f_22860(C_word c,C_word *av) C_noret;
C_noret_decl(f_22868)
static void C_ccall f_22868(C_word c,C_word *av) C_noret;
C_noret_decl(f_22872)
static void C_ccall f_22872(C_word c,C_word *av) C_noret;
C_noret_decl(f_22876)
static void C_ccall f_22876(C_word c,C_word *av) C_noret;
C_noret_decl(f_22880)
static void C_ccall f_22880(C_word c,C_word *av) C_noret;
C_noret_decl(f_22883)
static void C_ccall f_22883(C_word c,C_word *av) C_noret;
C_noret_decl(f_22889)
static void C_ccall f_22889(C_word c,C_word *av) C_noret;
C_noret_decl(f_22892)
static void C_ccall f_22892(C_word c,C_word *av) C_noret;
C_noret_decl(f_22895)
static void C_ccall f_22895(C_word c,C_word *av) C_noret;
C_noret_decl(f_22898)
static void C_ccall f_22898(C_word c,C_word *av) C_noret;
C_noret_decl(f_22901)
static void C_ccall f_22901(C_word c,C_word *av) C_noret;
C_noret_decl(f_22908)
static void C_ccall f_22908(C_word c,C_word *av) C_noret;
C_noret_decl(f_22912)
static void C_ccall f_22912(C_word c,C_word *av) C_noret;
C_noret_decl(f_22924)
static void C_ccall f_22924(C_word c,C_word *av) C_noret;
C_noret_decl(f_22928)
static void C_ccall f_22928(C_word c,C_word *av) C_noret;
C_noret_decl(f_22969)
static void C_ccall f_22969(C_word c,C_word *av) C_noret;
C_noret_decl(f_22986)
static void C_ccall f_22986(C_word c,C_word *av) C_noret;
C_noret_decl(f_23007)
static void C_ccall f_23007(C_word c,C_word *av) C_noret;
C_noret_decl(f_23009)
static void C_fcall f_23009(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_23043)
static void C_ccall f_23043(C_word c,C_word *av) C_noret;
C_noret_decl(f_23064)
static void C_ccall f_23064(C_word c,C_word *av) C_noret;
C_noret_decl(f_23066)
static void C_fcall f_23066(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_23100)
static void C_ccall f_23100(C_word c,C_word *av) C_noret;
C_noret_decl(f_23125)
static void C_ccall f_23125(C_word c,C_word *av) C_noret;
C_noret_decl(f_23127)
static void C_fcall f_23127(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_23165)
static void C_ccall f_23165(C_word c,C_word *av) C_noret;
C_noret_decl(f_23190)
static void C_ccall f_23190(C_word c,C_word *av) C_noret;
C_noret_decl(f_23192)
static void C_fcall f_23192(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_23232)
static void C_ccall f_23232(C_word c,C_word *av) C_noret;
C_noret_decl(f_23234)
static void C_ccall f_23234(C_word c,C_word *av) C_noret;
C_noret_decl(f_23242)
static void C_ccall f_23242(C_word c,C_word *av) C_noret;
C_noret_decl(f_23244)
static void C_ccall f_23244(C_word c,C_word *av) C_noret;
C_noret_decl(f_23260)
static void C_ccall f_23260(C_word c,C_word *av) C_noret;
C_noret_decl(f_23264)
static void C_ccall f_23264(C_word c,C_word *av) C_noret;
C_noret_decl(f_23273)
static void C_ccall f_23273(C_word c,C_word *av) C_noret;
C_noret_decl(f_23300)
static void C_ccall f_23300(C_word c,C_word *av) C_noret;
C_noret_decl(f_23311)
static void C_ccall f_23311(C_word c,C_word *av) C_noret;
C_noret_decl(f_23317)
static void C_ccall f_23317(C_word c,C_word *av) C_noret;
C_noret_decl(f_23321)
static void C_ccall f_23321(C_word c,C_word *av) C_noret;
C_noret_decl(f_23374)
static void C_ccall f_23374(C_word c,C_word *av) C_noret;
C_noret_decl(f_23378)
static void C_ccall f_23378(C_word c,C_word *av) C_noret;
C_noret_decl(f_23382)
static void C_ccall f_23382(C_word c,C_word *av) C_noret;
C_noret_decl(f_6714)
static void C_ccall f_6714(C_word c,C_word *av) C_noret;
C_noret_decl(f_6717)
static void C_ccall f_6717(C_word c,C_word *av) C_noret;
C_noret_decl(f_6720)
static void C_ccall f_6720(C_word c,C_word *av) C_noret;
C_noret_decl(f_6723)
static void C_ccall f_6723(C_word c,C_word *av) C_noret;
C_noret_decl(f_6726)
static void C_ccall f_6726(C_word c,C_word *av) C_noret;
C_noret_decl(f_6729)
static void C_ccall f_6729(C_word c,C_word *av) C_noret;
C_noret_decl(f_6732)
static void C_ccall f_6732(C_word c,C_word *av) C_noret;
C_noret_decl(f_6735)
static void C_ccall f_6735(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_6804)
static void C_fcall f_6804(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6818)
static void C_ccall f_6818(C_word c,C_word *av) C_noret;
C_noret_decl(f_6842)
static void C_ccall f_6842(C_word c,C_word *av) C_noret;
C_noret_decl(f_6848)
static void C_fcall f_6848(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6866)
static void C_ccall f_6866(C_word c,C_word *av) C_noret;
C_noret_decl(f_6906)
static void C_fcall f_6906(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_6920)
static void C_ccall f_6920(C_word c,C_word *av) C_noret;
C_noret_decl(f_6939)
static void C_fcall f_6939(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6954)
static void C_fcall f_6954(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6962)
static void C_fcall f_6962(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6970)
static void C_ccall f_6970(C_word c,C_word *av) C_noret;
C_noret_decl(f_6981)
static void C_ccall f_6981(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_word t2) C_noret;
C_noret_decl(f_7001)
static void C_ccall f_7001(C_word c,C_word *av) C_noret;
C_noret_decl(f_7008)
static void C_ccall f_7008(C_word c,C_word *av) C_noret;
C_noret_decl(f_7012)
static void C_ccall f_7012(C_word c,C_word *av) C_noret;
C_noret_decl(f_7024)
static void C_ccall f_7024(C_word c,C_word *av) C_noret;
C_noret_decl(f_7026)
static void C_fcall f_7026(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7073)
static void C_ccall f_7073(C_word c,C_word *av) C_noret;
C_noret_decl(f_7075)
static void C_fcall f_7075(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7109)
static void C_fcall f_7109(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7115)
static void C_fcall f_7115(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7137)
static void C_ccall f_7137(C_word c,C_word *av) C_noret;
C_noret_decl(f_7143)
static void C_fcall f_7143(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7149)
static void C_fcall f_7149(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7159)
static void C_ccall f_7159(C_word c,C_word *av) C_noret;
C_noret_decl(f_7179)
static void C_fcall f_7179(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7193)
static void C_ccall f_7193(C_word c,C_word *av) C_noret;
C_noret_decl(f_7207)
static void C_fcall f_7207(C_word t0,C_word t1,C_word t2) 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_7235)
static void C_fcall f_7235(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7248)
static void C_ccall f_7248(C_word c,C_word *av) C_noret;
C_noret_decl(f_7262)
static void C_ccall f_7262(C_word c,C_word *av) C_noret;
C_noret_decl(f_7304)
static void C_fcall f_7304(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7310)
static void C_fcall f_7310(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7324)
static void C_ccall f_7324(C_word c,C_word *av) C_noret;
C_noret_decl(f_7337)
static void C_ccall f_7337(C_word c,C_word *av) C_noret;
C_noret_decl(f_7393)
static void C_fcall f_7393(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7402)
static void C_fcall f_7402(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7410)
static void C_fcall f_7410(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7414)
static void C_ccall f_7414(C_word c,C_word *av) C_noret;
C_noret_decl(f_7418)
static C_word C_fcall f_7418(C_word *a,C_word t0,C_word t1);
C_noret_decl(f_7436)
static void C_ccall f_7436(C_word c,C_word *av) C_noret;
C_noret_decl(f_7458)
static void C_ccall f_7458(C_word c,C_word *av) C_noret;
C_noret_decl(f_7475)
static void C_fcall f_7475(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7574)
static void C_fcall f_7574(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7660)
static void C_fcall f_7660(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7685)
static void C_fcall f_7685(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7708)
static void C_ccall f_7708(C_word c,C_word *av) C_noret;
C_noret_decl(f_7713)
static void C_ccall f_7713(C_word c,C_word *av) C_noret;
C_noret_decl(f_7727)
static void C_ccall f_7727(C_word c,C_word *av) C_noret;
C_noret_decl(f_7751)
static void C_fcall f_7751(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7757)
static void C_fcall f_7757(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7771)
static void C_ccall f_7771(C_word c,C_word *av) C_noret;
C_noret_decl(f_7775)
static void C_ccall f_7775(C_word c,C_word *av) C_noret;
C_noret_decl(f_7787)
static void C_ccall f_7787(C_word c,C_word *av) C_noret;
C_noret_decl(f_7793)
static void C_fcall f_7793(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7805)
static void C_ccall f_7805(C_word c,C_word *av) C_noret;
C_noret_decl(f_7870)
static C_word C_fcall f_7870(C_word t0,C_word t1);
C_noret_decl(f_7931)
static void C_ccall f_7931(C_word c,C_word *av) C_noret;
C_noret_decl(f_7934)
static void C_fcall f_7934(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7943)
static void C_ccall f_7943(C_word c,C_word *av) C_noret;
C_noret_decl(f_8063)
static void C_ccall f_8063(C_word c,C_word *av) C_noret;
C_noret_decl(f_8071)
static void C_ccall f_8071(C_word c,C_word *av) C_noret;
C_noret_decl(f_8073)
static void C_ccall f_8073(C_word c,C_word *av) C_noret;
C_noret_decl(f_8116)
static void C_ccall f_8116(C_word c,C_word *av) C_noret;
C_noret_decl(f_8153)
static void C_fcall f_8153(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8166)
static void C_ccall f_8166(C_word c,C_word *av) C_noret;
C_noret_decl(f_8178)
static void C_ccall f_8178(C_word c,C_word *av) C_noret;
C_noret_decl(f_8181)
static void C_ccall f_8181(C_word c,C_word *av) C_noret;
C_noret_decl(f_8242)
static void C_ccall f_8242(C_word c,C_word *av) C_noret;
C_noret_decl(f_8244)
static void C_fcall f_8244(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8269)
static void C_ccall f_8269(C_word c,C_word *av) C_noret;
C_noret_decl(f_8293)
static void C_ccall f_8293(C_word c,C_word *av) C_noret;
C_noret_decl(f_8297)
static void C_ccall f_8297(C_word c,C_word *av) C_noret;
C_noret_decl(f_8327)
static void C_ccall f_8327(C_word c,C_word *av) C_noret;
C_noret_decl(f_8330)
static void C_ccall f_8330(C_word c,C_word *av) C_noret;
C_noret_decl(f_8332)
static void C_fcall f_8332(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8357)
static void C_ccall f_8357(C_word c,C_word *av) C_noret;
C_noret_decl(f_8402)
static void C_ccall f_8402(C_word c,C_word *av) C_noret;
C_noret_decl(f_8406)
static void C_fcall f_8406(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8416)
static void C_ccall f_8416(C_word c,C_word *av) C_noret;
C_noret_decl(f_8425)
static void C_ccall f_8425(C_word c,C_word *av) C_noret;
C_noret_decl(f_8445)
static void C_fcall f_8445(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8457)
static C_word C_fcall f_8457(C_word t0,C_word t1);
C_noret_decl(f_8476)
static void C_fcall f_8476(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_8480)
static void C_ccall f_8480(C_word c,C_word *av) C_noret;
C_noret_decl(f_8492)
static void C_fcall f_8492(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8530)
static void C_ccall f_8530(C_word c,C_word *av) C_noret;
C_noret_decl(f_8537)
static void C_ccall f_8537(C_word c,C_word *av) C_noret;
C_noret_decl(f_8539)
static void C_ccall f_8539(C_word c,C_word *av) C_noret;
C_noret_decl(f_8571)
static void C_ccall f_8571(C_word c,C_word *av) C_noret;
C_noret_decl(f_8601)
static void C_fcall f_8601(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_8605)
static void C_ccall f_8605(C_word c,C_word *av) C_noret;
C_noret_decl(f_8611)
static void C_ccall f_8611(C_word c,C_word *av) C_noret;
C_noret_decl(f_8623)
static void C_ccall f_8623(C_word c,C_word *av) C_noret;
C_noret_decl(f_8625)
static void C_fcall f_8625(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8653)
static void C_ccall f_8653(C_word c,C_word *av) C_noret;
C_noret_decl(f_8656)
static void C_ccall f_8656(C_word c,C_word *av) C_noret;
C_noret_decl(f_8669)
static void C_ccall f_8669(C_word c,C_word *av) C_noret;
C_noret_decl(f_8672)
static void C_ccall f_8672(C_word c,C_word *av) C_noret;
C_noret_decl(f_8675)
static void C_ccall f_8675(C_word c,C_word *av) C_noret;
C_noret_decl(f_8691)
static void C_fcall f_8691(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_8701)
static void C_ccall f_8701(C_word c,C_word *av) C_noret;
C_noret_decl(f_8707)
static void C_ccall f_8707(C_word c,C_word *av) C_noret;
C_noret_decl(f_8717)
static void C_ccall f_8717(C_word c,C_word *av) C_noret;
C_noret_decl(f_8726)
static void C_fcall f_8726(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8729)
static void C_ccall f_8729(C_word c,C_word *av) C_noret;
C_noret_decl(f_8736)
static void C_ccall f_8736(C_word c,C_word *av) C_noret;
C_noret_decl(f_8742)
static void C_ccall f_8742(C_word c,C_word *av) C_noret;
C_noret_decl(f_8747)
static void C_ccall f_8747(C_word c,C_word *av) C_noret;
C_noret_decl(f_8753)
static void C_ccall f_8753(C_word c,C_word *av) C_noret;
C_noret_decl(f_8757)
static void C_ccall f_8757(C_word c,C_word *av) C_noret;
C_noret_decl(f_8760)
static void C_ccall f_8760(C_word c,C_word *av) C_noret;
C_noret_decl(f_8763)
static void C_fcall f_8763(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8766)
static void C_ccall f_8766(C_word c,C_word *av) C_noret;
C_noret_decl(f_8769)
static void C_ccall f_8769(C_word c,C_word *av) C_noret;
C_noret_decl(f_8772)
static void C_fcall f_8772(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8775)
static void C_fcall f_8775(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8778)
static void C_ccall f_8778(C_word c,C_word *av) C_noret;
C_noret_decl(f_8791)
static void C_fcall f_8791(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8803)
static void C_fcall f_8803(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8828)
static void C_ccall f_8828(C_word c,C_word *av) C_noret;
C_noret_decl(f_8838)
static void C_fcall f_8838(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8847)
static void C_ccall f_8847(C_word c,C_word *av) C_noret;
C_noret_decl(f_8859)
static void C_ccall f_8859(C_word c,C_word *av) C_noret;
C_noret_decl(f_8866)
static void C_ccall f_8866(C_word c,C_word *av) C_noret;
C_noret_decl(f_8869)
static void C_ccall f_8869(C_word c,C_word *av) C_noret;
C_noret_decl(f_8872)
static void C_ccall f_8872(C_word c,C_word *av) C_noret;
C_noret_decl(f_8906)
static void C_fcall f_8906(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8913)
static void C_ccall f_8913(C_word c,C_word *av) C_noret;
C_noret_decl(f_8916)
static void C_ccall f_8916(C_word c,C_word *av) C_noret;
C_noret_decl(f_8922)
static void C_ccall f_8922(C_word c,C_word *av) C_noret;
C_noret_decl(f_8951)
static void C_ccall f_8951(C_word c,C_word *av) C_noret;
C_noret_decl(f_8955)
static void C_ccall f_8955(C_word c,C_word *av) C_noret;
C_noret_decl(f_8973)
static void C_ccall f_8973(C_word c,C_word *av) C_noret;
C_noret_decl(f_8976)
static void C_ccall f_8976(C_word c,C_word *av) C_noret;
C_noret_decl(f_8979)
static void C_ccall f_8979(C_word c,C_word *av) C_noret;
C_noret_decl(f_8985)
static void C_ccall f_8985(C_word c,C_word *av) C_noret;
C_noret_decl(f_9018)
static void C_ccall f_9018(C_word c,C_word *av) C_noret;
C_noret_decl(f_9022)
static void C_ccall f_9022(C_word c,C_word *av) C_noret;
C_noret_decl(f_9061)
static void C_ccall f_9061(C_word c,C_word *av) C_noret;
C_noret_decl(f_9065)
static void C_fcall f_9065(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9084)
static void C_fcall f_9084(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9088)
static void C_fcall f_9088(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9094)
static void C_fcall f_9094(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9108)
static void C_ccall f_9108(C_word c,C_word *av) C_noret;
C_noret_decl(f_9114)
static void C_ccall f_9114(C_word c,C_word *av) C_noret;
C_noret_decl(f_9128)
static void C_ccall f_9128(C_word c,C_word *av) C_noret;
C_noret_decl(f_9159)
static void C_ccall f_9159(C_word c,C_word *av) C_noret;
C_noret_decl(f_9172)
static void C_ccall f_9172(C_word c,C_word *av) C_noret;
C_noret_decl(f_9182)
static void C_ccall f_9182(C_word c,C_word *av) C_noret;
C_noret_decl(f_9184)
static void C_ccall f_9184(C_word c,C_word *av) C_noret;
C_noret_decl(f_9213)
static void C_fcall f_9213(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_9226)
static void C_ccall f_9226(C_word c,C_word *av) C_noret;
C_noret_decl(f_9242)
static void C_ccall f_9242(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_9257)
static void C_ccall f_9257(C_word c,C_word *av) C_noret;
C_noret_decl(f_9285)
static void C_ccall f_9285(C_word c,C_word *av) C_noret;
C_noret_decl(f_9289)
static void C_ccall f_9289(C_word c,C_word *av) C_noret;
C_noret_decl(f_9291)
static void C_fcall f_9291(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9325)
static C_word C_fcall f_9325(C_word *a,C_word t0);
C_noret_decl(f_9330)
static void C_fcall f_9330(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_9336)
static void C_fcall f_9336(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9341)
static void C_ccall f_9341(C_word c,C_word *av) C_noret;
C_noret_decl(f_9363)
static void C_fcall f_9363(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9370)
static void C_ccall f_9370(C_word c,C_word *av) C_noret;
C_noret_decl(f_9373)
static void C_ccall f_9373(C_word c,C_word *av) C_noret;
C_noret_decl(f_9376)
static void C_ccall f_9376(C_word c,C_word *av) C_noret;
C_noret_decl(f_9382)
static void C_ccall f_9382(C_word c,C_word *av) C_noret;
C_noret_decl(f_9386)
static void C_fcall f_9386(C_word t0,C_word t1,C_word t2) 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_9401)
static void C_fcall f_9401(C_word t0,C_word t1,C_word t2) 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_9435)
static void C_ccall f_9435(C_word c,C_word *av) C_noret;
C_noret_decl(f_9441)
static void C_ccall f_9441(C_word c,C_word *av) C_noret;
C_noret_decl(f_9459)
static void C_fcall f_9459(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_9463)
static void C_ccall f_9463(C_word c,C_word *av) C_noret;
C_noret_decl(f_9466)
static void C_ccall f_9466(C_word c,C_word *av) C_noret;
C_noret_decl(f_9469)
static void C_ccall f_9469(C_word c,C_word *av) C_noret;
C_noret_decl(f_9477)
static void C_ccall f_9477(C_word c,C_word *av) C_noret;
C_noret_decl(f_9505)
static void C_ccall f_9505(C_word c,C_word *av) C_noret;
C_noret_decl(f_9547)
static void C_ccall f_9547(C_word c,C_word *av) C_noret;
C_noret_decl(f_9564)
static void C_ccall f_9564(C_word c,C_word *av) C_noret;
C_noret_decl(f_9584)
static void C_ccall f_9584(C_word c,C_word *av) C_noret;
C_noret_decl(f_9601)
static void C_ccall f_9601(C_word c,C_word *av) C_noret;
C_noret_decl(f_9620)
static void C_ccall f_9620(C_word c,C_word *av) C_noret;
C_noret_decl(f_9626)
static void C_fcall f_9626(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9631)
static void C_ccall f_9631(C_word c,C_word *av) C_noret;
C_noret_decl(f_9650)
static void C_ccall f_9650(C_word c,C_word *av) C_noret;
C_noret_decl(f_9653)
static void C_ccall f_9653(C_word c,C_word *av) C_noret;
C_noret_decl(f_9657)
static void C_ccall f_9657(C_word c,C_word *av) C_noret;
C_noret_decl(f_9664)
static void C_ccall f_9664(C_word c,C_word *av) C_noret;
C_noret_decl(f_9676)
static void C_fcall f_9676(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9679)
static void C_ccall f_9679(C_word c,C_word *av) C_noret;
C_noret_decl(f_9711)
static void C_fcall f_9711(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9740)
static void C_ccall f_9740(C_word c,C_word *av) C_noret;
C_noret_decl(f_9805)
static void C_fcall f_9805(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9839)
static void C_fcall f_9839(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9849)
static void C_ccall f_9849(C_word c,C_word *av) C_noret;
C_noret_decl(f_9895)
static void C_ccall f_9895(C_word c,C_word *av) C_noret;
C_noret_decl(f_9899)
static void C_ccall f_9899(C_word c,C_word *av) C_noret;
C_noret_decl(f_9901)
static void C_ccall f_9901(C_word c,C_word *av) C_noret;
C_noret_decl(f_9924)
static void C_fcall f_9924(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_9942)
static void C_ccall f_9942(C_word c,C_word *av) C_noret;
C_noret_decl(f_9951)
static void C_ccall f_9951(C_word c,C_word *av) C_noret;
C_noret_decl(f_9954)
static void C_fcall f_9954(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9970)
static void C_fcall f_9970(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9979)
static void C_ccall f_9979(C_word c,C_word *av) C_noret;
C_noret_decl(f_9987)
static void C_ccall f_9987(C_word c,C_word *av) C_noret;
C_noret_decl(f_9997)
static void C_ccall f_9997(C_word c,C_word *av) C_noret;
C_noret_decl(C_scrutinizer_toplevel)
C_externexport void C_ccall C_scrutinizer_toplevel(C_word c,C_word *av) C_noret;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

/* f25856 in chicken.compiler.scrutinizer#make-list in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f25856(C_word c,C_word *av){
C_word tmp;
C_word 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 *)f25856,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* f25963 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f25963(C_word c,C_word *av){
C_word tmp;
C_word 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 *)f25963,c,av);}
/* scrutinizer.scm:581: scheme#append */
t2=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_END_OF_LIST;
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f25978 in map-loop5601 in k22677 in k22673 in k22669 in k22665 in k22661 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f25978(C_word c,C_word *av){
C_word tmp;
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 *)f25978,c,av);}
a=C_alloc(3);
/* scrutinizer.scm:2912: string-add-indent */
f_20529(((C_word*)t0)[2],t1,C_a_i_list(&a,1,lf[316]));}

/* f25985 in k22673 in k22669 in k22665 in k22661 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f25985(C_word c,C_word *av){
C_word tmp;
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 *)f25985,c,av);}
a=C_alloc(3);
/* scrutinizer.scm:2912: string-add-indent */
f_20529(((C_word*)t0)[2],t1,C_a_i_list(&a,1,lf[316]));}

/* f26227 in k20625 in map-loop4962 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f26227(C_word c,C_word *av){
C_word tmp;
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 *)f26227,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
f_20772(t2,C_a_i_list2(&a,2,lf[123],t1));}

/* f26375 in map-loop970 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f26375(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26375,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST);
t4=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t3);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
t6=((C_word*)((C_word*)t0)[3])[1];
f_9291(t6,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* f26440 in map-loop1622 in k10701 */
static void C_ccall f26440(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26440,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST);
t4=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t3);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
t6=((C_word*)((C_word*)t0)[3])[1];
f_11146(t6,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* f26447 in k10695 in k10689 in k10653 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f26447(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){
C_save_and_reclaim((void *)f26447,c,av);}
a=C_alloc(20);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_10703,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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]=t2,a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp);
/* scrutinizer.scm:678: procedure-name */
f_15155(t3,t2);}

/* f26593 in k19483 in known-length-vector-index in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f26593(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f26593,c,av);}
a=C_alloc(7);
t2=C_i_car(t1);
if(C_truep(t2)){
if(C_truep(C_i_pairp(t2))){
t3=C_i_car(t2);
t4=C_eqp(lf[50],t3);
if(C_truep(t4)){
t5=C_i_caddr(((C_word*)t0)[2]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19564,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t5,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2099: chicken.compiler.support#node-class */
t7=*((C_word*)lf[88]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t7+1)))(3,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{
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{
t3=((C_word*)t0)[3];{
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)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* f26598 in k19582 in vector-ref-result-type in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f26598(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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 *)f26598,c,av);}
a=C_alloc(7);
t2=C_i_car(t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19628,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);
/* scrutinizer.scm:2114: chicken.compiler.support#node-subexpressions */
t4=*((C_word*)lf[86]+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_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* f26607 in k19830 */
static void C_ccall f26607(C_word c,C_word *av){
C_word tmp;
C_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 *)f26607,c,av);}
a=C_alloc(10);
t2=C_i_car(t1);
if(C_truep(t2)){
t3=C_i_caddr(((C_word*)t0)[2]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19909,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]=t2,a[8]=((C_word*)t0)[8],a[9]=t3,tmp=(C_word)a,a+=10,tmp);
/* scrutinizer.scm:2185: chicken.compiler.support#node-class */
t5=*((C_word*)lf[88]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* f26614 in lp in derive-result-type in append-special-case in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f26614(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(33,c,4)))){
C_save_and_reclaim((void *)f26614,c,av);}
a=C_alloc(33);
t2=C_i_car(t1);
t3=C_i_pairp(t2);
t4=(C_truep(t3)?C_eqp(C_u_i_car(t2),lf[47]):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19982,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t6=C_u_i_cdr(((C_word*)t0)[3]);
t7=C_s_a_i_plus(&a,2,((C_word*)t0)[4],C_fix(1));
/* scrutinizer.scm:2254: lp */
t8=((C_word*)((C_word*)t0)[5])[1];
f_19960(t8,t5,t6,t7);}
else{
t5=C_i_pairp(t2);
t6=(C_truep(t5)?C_eqp(C_u_i_car(t2),lf[361]):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20041,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t8=C_u_i_cdr(((C_word*)t0)[3]);
t9=C_s_a_i_plus(&a,2,((C_word*)t0)[4],C_fix(1));
/* scrutinizer.scm:2262: lp */
t10=((C_word*)((C_word*)t0)[5])[1];
f_19960(t10,t7,t8,t9);}
else{
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20058,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t8=C_i_nullp(C_u_i_cdr(((C_word*)t0)[3]));
t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20064,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[8],a[8]=t2,tmp=(C_word)a,a+=9,tmp);
if(C_truep(t8)){
t10=t9;{
C_word *av2=av;
av2[0]=t10;
av2[1]=t8;
f_20064(2,av2);}}
else{
/* scrutinizer.scm:2243: match-types */
t10=*((C_word*)lf[170]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t10;
av2[1]=t9;
av2[2]=t2;
av2[3]=lf[47];
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}}}

/* f26653 in k20113 */
static void C_ccall f26653(C_word c,C_word *av){
C_word tmp;
C_word 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 *)f26653,c,av);}
t2=((C_word*)t0)[2];
f_20127(t2,C_i_car(t1));}

/* f26658 in k22926 in a22923 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f26658(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f26658,c,av);}
a=C_alloc(4);
t2=C_i_car(t1);
if(C_truep(t2)){
if(C_truep(C_i_pairp(t2))){
t3=C_i_car(t2);
t4=C_eqp(t3,lf[47]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22969,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2238: scheme#reverse */
t6=*((C_word*)lf[367]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=C_u_i_cdr(t2);
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
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);}}}

/* f26663 in map-loop4564 in a22985 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f26663(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26663,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST);
t4=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t3);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
t6=((C_word*)((C_word*)t0)[3])[1];
f_23009(t6,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* f26670 in map-loop4530 in a23042 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f26670(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26670,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST);
t4=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t3);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
t6=((C_word*)((C_word*)t0)[3])[1];
f_23066(t6,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* f26677 in map-loop4496 in a23099 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f26677(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26677,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST);
t4=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t3);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
t6=((C_word*)((C_word*)t0)[3])[1];
f_23127(t6,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* f26684 in map-loop4462 in a23164 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f26684(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26684,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST);
t4=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t3);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
t6=((C_word*)((C_word*)t0)[3])[1];
f_23192(t6,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* f26691 in k23271 in k23262 in a23259 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f26691(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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 *)f26691,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_23311,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* scrutinizer.scm:2129: type-always-immediate? */
t4=lf[27];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
f_8073(3,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* f27968 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f27968(C_word c,C_word *av){
C_word tmp;
C_word 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 *)f27968,c,av);}
/* scrutinizer.scm:2521: fragment */
f_21086(((C_word*)t0)[2],C_i_car(t1));}

/* f27973 in k8974 in k8971 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in ... */
static void C_ccall f27973(C_word c,C_word *av){
C_word tmp;
C_word 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 *)f27973,c,av);}
/* scrutinizer.scm:2521: fragment */
f_21086(((C_word*)t0)[2],C_i_car(t1));}

/* f27992 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f27992(C_word c,C_word *av){
C_word tmp;
C_word 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 *)f27992,c,av);}
/* scrutinizer.scm:2521: fragment */
f_21086(((C_word*)t0)[2],C_i_car(t1));}

/* f28220 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f28220(C_word c,C_word *av){
C_word tmp;
C_word 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 *)f28220,c,av);}
/* scrutinizer.scm:2521: fragment */
f_21086(((C_word*)t0)[2],C_i_car(t1));}

/* f28225 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f28225(C_word c,C_word *av){
C_word tmp;
C_word 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 *)f28225,c,av);}
/* scrutinizer.scm:2521: fragment */
f_21086(((C_word*)t0)[2],C_i_car(t1));}

/* f28230 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f28230(C_word c,C_word *av){
C_word tmp;
C_word 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 *)f28230,c,av);}
/* scrutinizer.scm:2521: fragment */
f_21086(((C_word*)t0)[2],C_i_car(t1));}

/* k9999 in k9949 in loop in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10001(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_10001,c,av);}
a=C_alloc(3);
t2=C_eqp(t1,lf[87]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9997,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:516: chicken.compiler.support#db-get */
t4=*((C_word*)lf[67]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[68];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t3=((C_word*)t0)[2];
f_9970(t3,C_SCHEME_FALSE);}}

/* k10003 in loop in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10005(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_10005,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10007,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);
/* scrutinizer.scm:513: single */
f_8625(((C_word*)t0)[7],t1,t2);}

/* a10006 in k10003 in loop in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10007(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,6)))){
C_save_and_reclaim((void *)f_10007,c,av);}
t3=lf[220];
/* scrutinizer.scm:514: g1372 */
t4=lf[220];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
av2[5]=((C_word*)t0)[5];
av2[6]=t2;
f_22223(7,av2);}}

/* a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10029(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(20,c,3)))){
C_save_and_reclaim((void *)f_10029,c,av);}
a=C_alloc(20);
t5=(C_truep(((C_word*)t0)[2])?C_a_i_list1(&a,1,((C_word*)t0)[2]):C_SCHEME_END_OF_LIST);
t6=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_10036,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t5,a[8]=((C_word*)t0)[7],a[9]=t3,a[10]=t2,a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=t4,a[15]=t1,a[16]=((C_word*)t0)[11],tmp=(C_word)a,a+=17,tmp);
/* scrutinizer.scm:526: initial-argument-types */
t7=((C_word*)((C_word*)t0)[12])[1];
f_9363(t7,t6,((C_word*)t0)[2],t3);}

/* k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
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 t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_10036,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10039,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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]=t1,a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp);
if(C_truep(((C_word*)t0)[14])){
/* scrutinizer.scm:527: scheme#append */
t3=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
av2[3]=lf[226];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
/* scrutinizer.scm:527: scheme#append */
t3=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10039(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(29,c,2)))){
C_save_and_reclaim((void *)f_10039,c,av);}
a=C_alloc(29);
t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_10042,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,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|6,a[1]=(C_word)f_10211,a[2]=((C_word*)t0)[16],a[3]=t2,a[4]=((C_word*)t0)[17],a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)t0)[14])){
/* scrutinizer.scm:529: chicken.base#butlast */
t8=*((C_word*)lf[225]+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)[10];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t8=t7;{
C_word *av2=av;
av2[0]=t8;
av2[1]=((C_word*)t0)[10];
f_10211(2,av2);}}}

/* k10040 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10042(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(49,c,4)))){
C_save_and_reclaim((void *)f_10042,c,av);}
a=C_alloc(49);
t2=(C_truep(((C_word*)t0)[2])?C_SCHEME_UNDEFINED:C_SCHEME_UNDEFINED);
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_FALSE;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
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_FALSE;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_SCHEME_FALSE;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10050,a[2]=t10,a[3]=((C_word*)t0)[3],a[4]=t12,a[5]=((C_word*)t0)[4],a[6]=t14,a[7]=((C_word*)t0)[5],a[8]=t4,a[9]=t6,a[10]=t8,tmp=(C_word)a,a+=11,tmp);
t16=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10059,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],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)[2],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=t1,tmp=(C_word)a,a+=15,tmp);
t17=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10189,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t6,a[5]=((C_word*)t0)[4],a[6]=t8,a[7]=((C_word*)t0)[5],a[8]=t10,a[9]=t12,a[10]=t14,tmp=(C_word)a,a+=11,tmp);
/* scrutinizer.scm:534: ##sys#dynamic-wind */
t18=*((C_word*)lf[224]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t18;
av2[1]=((C_word*)t0)[16];
av2[2]=t15;
av2[3]=t16;
av2[4]=t17;
((C_proc)(void*)(*((C_word*)t18+1)))(5,av2);}}

/* a10049 in k10040 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10050(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10050,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)[6])+1,((C_word*)((C_word*)t0)[7])[1]);
t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[8])[1]);
t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[9])[1]);
t7=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[10])[1]);
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}

/* a10058 in k10040 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10059(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(53,c,2)))){
C_save_and_reclaim((void *)f_10059,c,av);}
a=C_alloc(53);
t2=(
/* scrutinizer.scm:537: tag */
  f_9325(C_a_i(&a,29),((C_word*)((C_word*)t0)[2])[1])
);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10066,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)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
t4=C_i_car(((C_word*)t0)[9]);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10176,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=t2,a[5]=((C_word*)t0)[12],a[6]=t3,a[7]=t4,tmp=(C_word)a,a+=8,tmp);
if(C_truep(((C_word*)t0)[13])){
t6=C_a_i_cons(&a,2,((C_word*)t0)[13],lf[47]);
t7=t5;
f_10176(t7,C_a_i_cons(&a,2,t6,((C_word*)t0)[14]));}
else{
t6=t5;
f_10176(t6,((C_word*)t0)[14]);}}

/* k10064 in a10058 in k10040 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10066(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,5)))){
C_save_and_reclaim((void *)f_10066,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10073,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10081,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,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|5,a[1]=(C_word)f_10083,a[2]=t5,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));
t7=((C_word*)t5)[1];
f_10083(t7,t3,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* k10071 in k10064 in a10058 in k10040 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10073(C_word c,C_word *av){
C_word tmp;
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_10073,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list1(&a,1,t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k10079 in k10064 in a10058 in k10040 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10081(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_10081,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* scrutinizer.scm:553: scheme#append */
t3=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[223];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
av2[5]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* loop in k10064 in a10058 in k10040 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_10083(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(13,0,4)))){
C_save_and_reclaim_args((void *)trf_10083,5,t0,t1,t2,t3,t4);}
a=C_alloc(13);
if(C_truep(C_i_zerop(t2))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10091,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t4,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10164,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:559: chicken.compiler.support#db-get */
t7=*((C_word*)lf[67]+1);{
C_word av2[5];
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[5];
av2[3]=C_i_car(t3);
av2[4]=lf[68];
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}}

/* k10089 in loop in k10064 in a10058 in k10040 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_fcall f_10091(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,0,4)))){
C_save_and_reclaim_args((void *)trf_10091,2,t0,t1);}
a=C_alloc(33);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10095,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);
/* scrutinizer.scm:558: g1459 */
t3=t2;
f_10095(t3,((C_word*)t0)[6],t1);}
else{
t2=C_i_car(((C_word*)t0)[5]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10142,a[2]=((C_word*)t0)[6],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=C_s_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1));
/* scrutinizer.scm:573: loop */
t5=((C_word*)((C_word*)t0)[3])[1];
f_10083(t5,t3,t4,C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}}

/* g1459 in k10089 in loop in k10064 in a10058 in k10040 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_fcall f_10095(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,0,4)))){
C_save_and_reclaim_args((void *)trf_10095,3,t0,t1,t2);}
a=C_alloc(33);
t3=C_i_cdr(t2);
t4=C_eqp(t3,lf[53]);
t5=(C_truep(t4)?lf[53]:C_u_i_cdr(t2));
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10107,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t7=C_s_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1));
/* scrutinizer.scm:569: loop */
t8=((C_word*)((C_word*)t0)[3])[1];
f_10083(t8,t6,t7,C_i_cdr(((C_word*)t0)[4]),C_i_cdr(((C_word*)t0)[5]));}

/* k10105 in g1459 in k10089 in loop in k10064 in a10058 in k10040 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_10107(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_10107,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);}}

/* k10140 in k10089 in loop in k10064 in a10058 in k10040 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_10142(C_word c,C_word *av){
C_word tmp;
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_10142,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);}}

/* k10162 in loop in k10064 in a10058 in k10040 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_10164(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_10164,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
t2=C_u_i_car(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]);
t4=((C_word*)t0)[4];
f_10091(t4,C_i_assoc(t3,((C_word*)((C_word*)t0)[5])[1]));}
else{
t2=((C_word*)t0)[4];
f_10091(t2,C_SCHEME_FALSE);}}

/* k10174 in a10058 in k10040 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_10176(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,7)))){
C_save_and_reclaim_args((void *)trf_10176,2,t0,t1);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_a_i_list1(&a,1,((C_word*)t0)[4]);
/* scrutinizer.scm:538: walk */
t4=((C_word*)((C_word*)t0)[5])[1];
f_9459(t4,((C_word*)t0)[6],((C_word*)t0)[7],t1,t2,C_SCHEME_FALSE,t3,C_SCHEME_FALSE);}

/* a10188 in k10040 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10189(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(0,c,1)))){
C_save_and_reclaim((void *)f_10189,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)[6])+1,((C_word*)((C_word*)t0)[7])[1]);
t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[8])[1]);
t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[9])[1]);
t7=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[10])[1]);
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}

/* k10209 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10211(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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_10211,c,av);}
a=C_alloc(11);
t2=C_i_check_list_2(t1,lf[6]);
t3=C_i_check_list_2(((C_word*)t0)[2],lf[6]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10220,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10222,a[2]=((C_word*)t0)[5],a[3]=t6,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_10222(t8,t4,t1,((C_word*)t0)[2]);}

/* k10218 in k10209 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10220,c,av);}
/* scrutinizer.scm:528: scheme#append */
t2=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop1390 in k10209 in k10037 in k10034 in a10028 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_10222(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_10222,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);}}}

/* k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10293(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,7)))){
C_save_and_reclaim((void *)f_10293,c,av);}
a=C_alloc(25);
t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_10296,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t1,a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,tmp);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10626,a[2]=((C_word*)t0)[14],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[16],a[7]=t2,tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:578: walk */
t4=((C_word*)((C_word*)t0)[17])[1];
f_9459(t4,t3,C_i_car(((C_word*)t0)[11]),((C_word*)t0)[3],((C_word*)t0)[14],((C_word*)t0)[2],((C_word*)t0)[7],C_SCHEME_FALSE);}

/* k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10296(C_word c,C_word *av){
C_word tmp;
C_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(25,c,2)))){
C_save_and_reclaim((void *)f_10296,c,av);}
a=C_alloc(25);
t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10299,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10615,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[13])){
/* scrutinizer.scm:582: type-typeenv */
t4=lf[161];{
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];
f_15894(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f25963,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:583: type-typeenv */
t5=lf[161];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t1;
f_15894(3,av2);}}}

/* k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10299(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(32,c,2)))){
C_save_and_reclaim((void *)f_10299,c,av);}
a=C_alloc(32);
t2=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]);
t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10305,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,a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp);
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10563,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[15],a[4]=t3,a[5]=((C_word*)t0)[16],a[6]=((C_word*)t0)[14],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[17],tmp=(C_word)a,a+=11,tmp);
if(C_truep(((C_word*)t0)[14])){
if(C_truep(C_i_not(t2))){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10586,a[2]=t4,a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[7],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
t6=C_eqp(((C_word*)t0)[14],lf[59]);
if(C_truep(t6)){
t7=t5;
f_10586(t7,C_i_not(t6));}
else{
t7=C_i_pairp(((C_word*)t0)[14]);
t8=t5;
f_10586(t8,(C_truep(t7)?C_i_not(C_eqp(C_u_i_car(((C_word*)t0)[14]),lf[59])):C_SCHEME_TRUE));}}
else{
t5=t4;
f_10563(t5,C_SCHEME_FALSE);}}
else{
t5=t4;
f_10563(t5,C_SCHEME_FALSE);}}

/* k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10305(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){
C_save_and_reclaim((void *)f_10305,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10308,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10437,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[13],a[7]=((C_word*)t0)[11],tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_i_not(((C_word*)t0)[14]))){
if(C_truep(C_i_not(((C_word*)t0)[6]))){
t4=C_eqp(lf[53],((C_word*)t0)[5]);
if(C_truep(C_i_not(t4))){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10556,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:595: chicken.compiler.support#db-get */
t6=*((C_word*)lf[67]+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)[11];
av2[3]=((C_word*)t0)[8];
av2[4]=lf[250];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t5=t3;
f_10437(t5,C_SCHEME_FALSE);}}
else{
t4=t3;
f_10437(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_10437(t4,C_SCHEME_FALSE);}}

/* k10306 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10308(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_10308,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10311,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)t0)[6])){
t3=C_i_cdr(((C_word*)t0)[6]);
t4=C_eqp(lf[35],t3);
t5=(C_truep(t4)?C_i_setslot(((C_word*)t0)[6],C_fix(1),((C_word*)t0)[5]):C_SCHEME_UNDEFINED);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10331,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)t0)[10])){
t7=t6;
f_10331(t7,(C_truep(((C_word*)t0)[10])?((C_word*)t0)[5]:lf[53]));}
else{
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10422,a[2]=t6,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:623: chicken.compiler.support#db-get */
t8=*((C_word*)lf[67]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=((C_word*)t0)[11];
av2[3]=((C_word*)t0)[8];
av2[4]=lf[232];
((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_10311(2,av2);}}}

/* k10309 in k10306 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10311(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10311,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10317,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);
/* scrutinizer.scm:657: type-always-immediate? */
t3=lf[27];{
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];
f_8073(3,av2);}}

/* k10315 in k10309 in k10306 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10317(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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(58,c,1)))){
C_save_and_reclaim((void *)f_10317,c,av);}
a=C_alloc(58);
if(C_truep(t1)){
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1)));
t4=C_i_set_cdr(((C_word*)t0)[3],lf[230]);
t5=lf[16];
t6=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t7=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t7;
av2[1]=lf[231];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t2=lf[16];
t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[231];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k10329 in k10306 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_10331(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_10331,2,t0,t1);}
a=C_alloc(9);
t2=C_i_car(((C_word*)t0)[2]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10339,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=t4,tmp=(C_word)a,a+=7,tmp));
t6=((C_word*)t4)[1];
f_10339(t6,((C_word*)t0)[5],((C_word*)((C_word*)t0)[4])[1],C_SCHEME_FALSE);}

/* loop in k10329 in k10306 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_10339(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){
C_save_and_reclaim_args((void *)trf_10339,4,t0,t1,t2,t3);}
a=C_alloc(17);
if(C_truep(C_i_nullp(t2))){
if(C_truep(t3)){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t5=((C_word*)((C_word*)t0)[4])[1];
t6=C_a_i_cons(&a,2,t4,((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=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t4=C_i_car(t2);
t5=C_i_caar(t4);
t6=C_eqp(((C_word*)t0)[2],t5);
if(C_truep(t6)){
t7=C_u_i_car(t2);
t8=C_i_cdr(t7);
t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10373,a[2]=t7,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=t1,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
t10=C_a_i_list(&a,3,lf[28],((C_word*)t0)[5],t8);
/* scrutinizer.scm:650: simplify-type */
f_13487(t9,t10);}
else{
/* scrutinizer.scm:655: loop */
t12=t1;
t13=C_u_i_cdr(t2);
t14=t3;
t1=t12;
t2=t13;
t3=t14;
goto loop;}}}

/* k10371 in loop in k10329 in k10306 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_10373(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10373,c,av);}
t2=C_i_set_cdr(((C_word*)t0)[2],t1);
t3=C_u_i_cdr(((C_word*)t0)[3]);
if(C_truep(((C_word*)t0)[4])){
/* scrutinizer.scm:654: loop */
t4=((C_word*)((C_word*)t0)[5])[1];
f_10339(t4,((C_word*)t0)[6],t3,((C_word*)t0)[4]);}
else{
t4=C_i_cdar(((C_word*)t0)[2]);
/* scrutinizer.scm:654: loop */
t5=((C_word*)((C_word*)t0)[5])[1];
f_10339(t5,((C_word*)t0)[6],t3,C_eqp(((C_word*)t0)[7],t4));}}

/* k10420 in k10306 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10422(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10422,c,av);}
t2=C_i_not(t1);
t3=((C_word*)t0)[2];
f_10331(t3,(C_truep(t2)?((C_word*)t0)[3]:lf[53]));}

/* k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_10437(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(8,0,4)))){
C_save_and_reclaim_args((void *)trf_10437,2,t0,t1);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10440,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* scrutinizer.scm:596: chicken.compiler.support#db-get */
t3=*((C_word*)lf[67]+1);{
C_word av2[5];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[249];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_10308(2,av2);}}}

/* k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10440(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10440,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10443,a[2]=((C_word*)t0)[2],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(t1)){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
f_10443(2,av2);}}
else{
/* scrutinizer.scm:597: chicken.compiler.support#db-get */
t3=*((C_word*)lf[67]+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)[3];
av2[4]=lf[248];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10443(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_10443,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10452,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_car(((C_word*)t0)[5]);
t4=C_eqp(t1,t3);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10527,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:599: chicken.compiler.support#variable-visible? */
t6=*((C_word*)lf[247]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t5=t2;
f_10452(t5,C_SCHEME_FALSE);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_10308(2,av2);}}}

/* k10450 in k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_fcall f_10452(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_10452,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10503,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:602: chicken.compiler.support#tree-copy */
t3=*((C_word*)lf[244]+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)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_10308(2,av2);}}}

/* k10456 in k10501 in k10450 in k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_10458(C_word c,C_word *av){
C_word tmp;
C_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_10458,c,av);}
a=C_alloc(10);
t2=C_i_cdar(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10464,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10474,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:605: chicken.base#open-output-string */
t5=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k10462 in k10456 in k10501 in k10450 in k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_10464(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10464,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10467,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);
/* scrutinizer.scm:609: chicken.compiler.support#mark-variable */
t3=*((C_word*)lf[233]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[66];
av2[4]=lf[234];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10465 in k10462 in k10456 in k10501 in k10450 in k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_10467(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10467,c,av);}
/* scrutinizer.scm:610: chicken.compiler.support#mark-variable */
t2=*((C_word*)lf[233]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[65];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k10472 in k10456 in k10501 in k10450 in k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_10474(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_10474,c,av);}
a=C_alloc(6);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10480,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);
/* scrutinizer.scm:605: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[241];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k10478 in k10472 in k10456 in k10501 in k10450 in k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_10480(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10480,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10483,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);
/* scrutinizer.scm:605: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10481 in k10478 in k10472 in k10456 in k10501 in k10450 in k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_10483(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10483,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10486,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);
/* scrutinizer.scm:605: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(32);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k10484 in k10481 in k10478 in k10472 in k10456 in k10501 in k10450 in k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in ... */
static void C_ccall f_10486(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10486,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10489,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:605: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10487 in k10484 in k10481 in k10478 in k10472 in k10456 in k10501 in k10450 in k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in ... */
static void C_ccall f_10489(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10489,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10492,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:605: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(41);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k10490 in k10487 in k10484 in k10481 in k10478 in k10472 in k10456 in k10501 in k10450 in k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in ... */
static void C_ccall f_10492(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10492,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10495,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:605: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k10493 in k10490 in k10487 in k10484 in k10481 in k10478 in k10472 in k10456 in k10501 in k10450 in k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in ... */
static void C_ccall f_10495(C_word c,C_word *av){
C_word tmp;
C_word 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_10495,c,av);}
/* scrutinizer.scm:605: chicken.compiler.support#debugging */
t2=*((C_word*)lf[236]+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[237];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k10501 in k10450 in k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_10503(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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_10503,c,av);}
a=C_alloc(11);
t2=C_a_i_cons(&a,2,C_SCHEME_FALSE,t1);
t3=C_a_i_list1(&a,1,t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10458,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:603: smash-component-types! */
f_11631(t4,t3);}

/* k10521 in k10525 in k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_10523(C_word c,C_word *av){
C_word tmp;
C_word 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_10523,c,av);}
t2=((C_word*)t0)[2];
f_10452(t2,C_i_not(C_eqp(t1,lf[245])));}

/* k10525 in k10441 in k10438 in k10435 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_10527(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_10527,c,av);}
a=C_alloc(3);
t2=C_i_not(t1);
if(C_truep(t2)){
t3=((C_word*)t0)[2];
f_10452(t3,t2);}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10523,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:600: chicken.compiler.support#variable-mark */
t4=*((C_word*)lf[64]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[246];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k10554 in k10303 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10556(C_word c,C_word *av){
C_word tmp;
C_word 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_10556,c,av);}
t2=((C_word*)t0)[2];
f_10437(t2,C_i_not(t1));}

/* k10561 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_10563(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_10563,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10566,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
if(C_truep(((C_word*)t0)[9])){
t3=C_set_block_item(((C_word*)t0)[10],0,C_SCHEME_TRUE);
t4=t2;
f_10566(t4,t3);}
else{
t3=t2;
f_10566(t3,C_SCHEME_UNDEFINED);}}
else{
t2=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_10305(2,av2);}}}

/* k10564 in k10561 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_10566(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,14)))){
C_save_and_reclaim_args((void *)trf_10566,2,t0,t1);}
a=C_alloc(15);
t2=C_i_car(((C_word*)t0)[2]);
t3=C_a_i_list2(&a,2,((C_word*)t0)[3],t2);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22799,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:2972: scheme#string-append */
t5=*((C_word*)lf[76]+1);{
C_word av2[15];
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[254];
av2[3]=lf[255];
av2[4]=lf[256];
av2[5]=lf[257];
av2[6]=lf[258];
av2[7]=lf[259];
av2[8]=lf[260];
av2[9]=lf[261];
av2[10]=lf[262];
av2[11]=lf[263];
av2[12]=lf[264];
av2[13]=lf[265];
av2[14]=lf[266];
((C_proc)(void*)(*((C_word*)t5+1)))(15,av2);}}

/* k10584 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_10586(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
C_save_and_reclaim_args((void *)trf_10586,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10593,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:589: match-types */
t3=*((C_word*)lf[170]+1);{
C_word av2[5];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=((C_word*)t0)[2];
f_10563(t2,C_SCHEME_FALSE);}}

/* k10591 in k10584 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10593(C_word c,C_word *av){
C_word tmp;
C_word 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_10593,c,av);}
t2=((C_word*)t0)[2];
f_10563(t2,C_i_not(t1));}

/* k10613 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10615(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10615,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10619,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:583: type-typeenv */
t3=lf[161];{
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];
f_15894(3,av2);}}

/* k10617 in k10613 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10619(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10619,c,av);}
/* scrutinizer.scm:581: scheme#append */
t2=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k10624 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10626(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10626,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10628,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);
/* scrutinizer.scm:578: single */
f_8625(((C_word*)t0)[7],t1,t2);}

/* a10627 in k10624 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10628(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,6)))){
C_save_and_reclaim((void *)f_10628,c,av);}
t3=lf[267];
/* scrutinizer.scm:579: g1488 */
t4=lf[267];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
av2[5]=C_i_car(((C_word*)t0)[5]);
av2[6]=t2;
f_22343(7,av2);}}

/* k10653 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10655(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(36,c,4)))){
C_save_and_reclaim((void *)f_10655,c,av);}
a=C_alloc(36);
t2=C_i_length(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10662,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp);
t8=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_10691,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[2],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=t2,a[17]=((C_word*)t0)[17],a[18]=t5,a[19]=t7,a[20]=t6,tmp=(C_word)a,a+=21,tmp);
t9=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7931,tmp=(C_word)a,a+=2,tmp);
/* mini-srfi-1.scm:225: list-tabulate */
f_7751(t8,t2,t9);}

/* g1581 in k10653 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_10662(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(12,0,7)))){
C_save_and_reclaim_args((void *)trf_10662,4,t0,t1,t2,t3);}
a=C_alloc(12);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10678,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10682,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=t4,tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:672: walk */
t6=((C_word*)((C_word*)t0)[5])[1];
f_9459(t6,t5,t2,((C_word*)t0)[6],((C_word*)t0)[2],C_SCHEME_FALSE,((C_word*)t0)[7],C_SCHEME_FALSE);}

/* k10676 in g1581 in k10653 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10678(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_10678,c,av);}
a=C_alloc(6);
t2=C_a_i_list1(&a,1,t1);
t3=C_a_i_list1(&a,1,((C_word*)t0)[2]);
/* scrutinizer.scm:668: chicken.compiler.support#make-node */
t4=*((C_word*)lf[269]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[85];
av2[3]=t2;
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k10680 in g1581 in k10653 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10682(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10682,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10684,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);
/* scrutinizer.scm:671: single */
f_8625(((C_word*)t0)[7],t1,t2);}

/* a10683 in k10680 in g1581 in k10653 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10684(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,6)))){
C_save_and_reclaim((void *)f_10684,c,av);}
t3=lf[270];
/* scrutinizer.scm:673: g1602 */
t4=lf[270];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
av2[5]=((C_word*)t0)[5];
av2[6]=t2;
f_21936(7,av2);}}

/* k10689 in k10653 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10691(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,4)))){
C_save_and_reclaim((void *)f_10691,c,av);}
a=C_alloc(26);
t2=C_i_check_list_2(t1,lf[6]);
t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10697,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
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_11184,a[2]=((C_word*)t0)[18],a[3]=t5,a[4]=((C_word*)t0)[19],a[5]=((C_word*)t0)[20],tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_11184(t7,t3,((C_word*)t0)[12],t1);}

/* k10695 in k10689 in k10653 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_10697(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,2)))){
C_save_and_reclaim((void *)f_10697,c,av);}
a=C_alloc(19);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f26447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[26]+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);}}

/* k10701 */
static void C_ccall f_10703(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word 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(36,c,3)))){
C_save_and_reclaim((void *)f_10703,c,av);}
a=C_alloc(36);
t2=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_10706,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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],tmp=(C_word)a,a+=21,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[25];
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11144,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_11146,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_11146(t12,t8,((C_word*)t0)[4]);}

/* k10704 in k10701 */
static void C_ccall f_10706(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_10706,c,av);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_10709,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],tmp=(C_word)a,a+=22,tmp);
if(C_truep(((C_word*)t0)[9])){
/* scrutinizer.scm:682: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+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)[9];
av2[3]=lf[276];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_10709(2,av2);}}}

/* k10707 in k10704 in k10701 */
static void C_ccall f_10709(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
C_save_and_reclaim((void *)f_10709,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_10712,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=t1,a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],tmp=(C_word)a,a+=23,tmp);
if(C_truep(((C_word*)t0)[9])){
/* scrutinizer.scm:683: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+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)[9];
av2[3]=lf[165];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_10712(2,av2);}}}

/* k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10712(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){
C_save_and_reclaim((void *)f_10712,c,av);}
a=C_alloc(28);
t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_10723,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[16],a[15]=t1,a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[4],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],tmp=(C_word)a,a+=22,tmp);
/* scrutinizer.scm:684: ##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)[22];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}

/* a10716 in k10710 in k10707 in k10704 in k10701 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10717,c,av);}
/* scrutinizer.scm:685: call-result */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8691(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}

/* a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10723(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(30,c,7)))){
C_save_and_reclaim((void *)f_10723,c,av);}
a=C_alloc(30);
t4=t2;
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_10726,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(t3)){
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10771,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[6],a[5]=t6,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:695: walk */
t8=((C_word*)((C_word*)t0)[7])[1];
f_9459(t8,t7,((C_word*)t0)[8],((C_word*)t0)[3],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12]);}
else{
t7=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_11127,a[2]=((C_word*)t0)[7],a[3]=t1,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[15],a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[16],a[15]=((C_word*)t0)[17],a[16]=t5,a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=t6,a[21]=((C_word*)t0)[21],tmp=(C_word)a,a+=22,tmp);
/* scrutinizer.scm:702: chicken.compiler.support#node-class */
t8=*((C_word*)lf[88]+1);{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
av2[2]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}

/* smash in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_fcall f_10726(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_10726,2,t0,t1);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10733,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_not(((C_word*)t0)[4]))){
t3=C_i_not(((C_word*)t0)[5]);
if(C_truep(t3)){
t4=t2;
f_10733(t4,t3);}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10765,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:690: chicken.compiler.support#variable-mark */
t5=*((C_word*)lf[64]+1);{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[5];
av2[3]=lf[272];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}
else{
t3=t2;
f_10733(t3,C_SCHEME_FALSE);}}

/* k10731 in smash in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_fcall f_10733(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_10733,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10736,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:692: smash-component-types! */
f_11631(t2,((C_word*)t0)[4]);}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10734 in k10731 in smash in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10736(C_word c,C_word *av){
C_word tmp;
C_word 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_10736,c,av);}
/* scrutinizer.scm:693: smash-component-types! */
f_11631(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);}

/* k10759 in k10763 in smash in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10761(C_word c,C_word *av){
C_word tmp;
C_word 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_10761,c,av);}
t2=((C_word*)t0)[2];
f_10733(t2,C_i_not(t1));}

/* k10763 in smash in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10765(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_10765,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10761,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:691: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+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[271];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=((C_word*)t0)[2];
f_10733(t2,C_SCHEME_FALSE);}}

/* k10769 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10771(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10771,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10774,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);
/* scrutinizer.scm:696: smash */
t3=((C_word*)t0)[5];
f_10726(t3,t2);}

/* k10772 in k10769 in a10722 in k10710 in k10707 in k10704 in k10701 */
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;
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,3)))){
C_save_and_reclaim((void *)f_10774,c,av);}
a=C_alloc(16);
t2=C_eqp(lf[53],((C_word*)((C_word*)t0)[2])[1]);
if(C_truep(t2)){
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10784,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
t8=((C_word*)((C_word*)t0)[2])[1];
t9=C_i_check_list_2(t8,lf[6]);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10796,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_10796(t13,((C_word*)t0)[3],t8);}}

/* g1677 in k10772 in k10769 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_fcall f_10784(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_10784,3,t0,t1,t2);}
t3=lf[118];
/* scrutinizer.scm:701: g1694 */
t4=lf[118];{
C_word av2[4];
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)t0)[2];
f_16269(4,av2);}}

/* map-loop1671 in k10772 in k10769 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_fcall f_10796(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_10796,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_10821,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);
/* scrutinizer.scm:701: g1677 */
t4=((C_word*)t0)[4];
f_10784(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);}}}

/* k10819 in map-loop1671 in k10772 in k10769 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10821(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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_10821,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_10796(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_fcall f_10838(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(19,0,2)))){
C_save_and_reclaim_args((void *)trf_10838,4,t0,t1,t2,t3);}
a=C_alloc(19);
t4=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_11002,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],a[16]=t3,a[17]=((C_word*)t0)[14],a[18]=((C_word*)t0)[15],tmp=(C_word)a,a+=19,tmp);
/* scrutinizer.scm:707: chicken.compiler.support#node-class */
t5=*((C_word*)lf[88]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10851(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_10851,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10854,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
if(C_truep(t1)){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
f_10854(2,av2);}}
else{
/* scrutinizer.scm:709: chicken.base#alist-ref */
t3=*((C_word*)lf[275]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[18];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10854(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_10854,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10857,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp);
/* scrutinizer.scm:710: resolve */
t3=lf[118];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[17];
av2[3]=((C_word*)t0)[9];
f_16269(4,av2);}}

/* k10855 in k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10857(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_10857,c,av);}
a=C_alloc(22);
t2=C_i_car(((C_word*)t0)[2]);
t3=C_eqp(((C_word*)t0)[3],t2);
t4=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10863,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=t1,a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=t3,tmp=(C_word)a,a+=18,tmp);
if(C_truep(((C_word*)t0)[9])){
if(C_truep(((C_word*)t0)[8])){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10987,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:714: chicken.compiler.support#db-get */
t6=*((C_word*)lf[67]+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)[13];
av2[3]=((C_word*)t0)[7];
av2[4]=lf[68];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t5=t4;
f_10863(t5,C_SCHEME_FALSE);}}
else{
t5=t4;
f_10863(t5,C_SCHEME_FALSE);}}

/* k10861 in k10855 in k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_fcall f_10863(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){
C_save_and_reclaim_args((void *)trf_10863,2,t0,t1);}
a=C_alloc(12);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10869,a[2]=((C_word*)t0)[2],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);
/* scrutinizer.scm:719: resolve */
t3=lf[118];{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[8];
f_16269(4,av2);}}
else{
if(C_truep(((C_word*)t0)[2])){
if(C_truep(((C_word*)t0)[9])){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10919,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[10],tmp=(C_word)a,a+=7,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10947,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[11],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:737: chicken.compiler.support#db-get */
t4=*((C_word*)lf[67]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[12];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[68];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
else{
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10953,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[15],a[5]=((C_word*)t0)[16],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)t0)[17])){
/* scrutinizer.scm:747: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=lf[274];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=t2;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_10953(2,av2);}}}}}

/* k10867 in k10861 in k10855 in k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10869(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_10869,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10875,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
t3=C_i_car(((C_word*)t0)[6]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10904,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_not(((C_word*)t0)[2]))){
/* scrutinizer.scm:722: add-to-blist */
t5=((C_word*)((C_word*)t0)[3])[1];
f_9330(t5,t2,((C_word*)t0)[5],t3,t1);}
else{
/* scrutinizer.scm:724: refine-types */
t5=*((C_word*)lf[273]+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)[2];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}

/* k10873 in k10867 in k10861 in k10855 in k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10875(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_10875,c,av);}
a=C_alloc(12);
if(C_truep(((C_word*)t0)[2])){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10881,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);
t3=C_a_i_list(&a,2,lf[69],((C_word*)t0)[7]);
/* scrutinizer.scm:730: refine-types */
t4=*((C_word*)lf[273]+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)[2];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10879 in k10873 in k10867 in k10861 in k10855 in k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10881(C_word c,C_word *av){
C_word tmp;
C_word 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_10881,c,av);}
if(C_truep(t1)){
/* scrutinizer.scm:734: add-to-blist */
t2=((C_word*)((C_word*)t0)[2])[1];
f_9330(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_u_i_cdr(((C_word*)t0)[5]),t1);}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k10902 in k10867 in k10861 in k10855 in k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10904(C_word c,C_word *av){
C_word tmp;
C_word 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_10904,c,av);}
/* scrutinizer.scm:722: add-to-blist */
t2=((C_word*)((C_word*)t0)[2])[1];
f_9330(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}

/* k10917 in k10861 in k10855 in k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10919(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10919,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10925,a[2]=((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);
/* scrutinizer.scm:742: add-to-blist */
t3=((C_word*)((C_word*)t0)[3])[1];
f_9330(t3,t2,((C_word*)t0)[5],C_i_car(((C_word*)t0)[6]),t1);}

/* k10923 in k10917 in k10861 in k10855 in k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10925(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10925,c,av);}
a=C_alloc(7);
if(C_truep(((C_word*)t0)[2])){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10931,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:744: add-to-blist */
t3=((C_word*)((C_word*)t0)[3])[1];
f_9330(t3,t2,((C_word*)t0)[5],C_i_car(((C_word*)t0)[2]),((C_word*)t0)[6]);}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10929 in k10923 in k10917 in k10861 in k10855 in k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10931(C_word c,C_word *av){
C_word tmp;
C_word 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_10931,c,av);}
/* scrutinizer.scm:745: add-to-blist */
t2=((C_word*)((C_word*)t0)[2])[1];
f_9330(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6]);}

/* k10945 in k10861 in k10855 in k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10947(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10947,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[53];
f_10919(2,av2);}}
else{
/* scrutinizer.scm:739: refine-types */
t2=*((C_word*)lf[273]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}

/* k10951 in k10861 in k10855 in k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10953(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10953,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10957,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:716: g1754 */
t3=t2;
f_10957(t3,((C_word*)t0)[6],t1);}
else{
t2=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* g1754 in k10951 in k10861 in k10855 in k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_fcall f_10957(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){
C_save_and_reclaim_args((void *)trf_10957,3,t0,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10965,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:752: srt */
t4=t2;{
C_word av2[6];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
av2[5]=((C_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}

/* k10963 in g1754 in k10951 in k10861 in k10855 in k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10965(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10965,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);}}

/* k10985 in k10855 in k10852 in k10849 in k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10987(C_word c,C_word *av){
C_word tmp;
C_word t0=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_10987,c,av);}
t2=C_i_not(t1);
t3=((C_word*)t0)[2];
f_10863(t3,(C_truep(t2)?C_i_not(((C_word*)t0)[3]):C_SCHEME_FALSE));}

/* k10996 in k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_10998(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,3)))){
C_save_and_reclaim((void *)f_10998,c,av);}
a=C_alloc(19);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_10851,a[2]=((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],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);
/* scrutinizer.scm:709: blist-type */
t4=((C_word*)((C_word*)t0)[18])[1];
f_8445(t4,t3,t2,((C_word*)t0)[10]);}

/* k11000 in g1708 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_11002(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,2)))){
C_save_and_reclaim((void *)f_11002,c,av);}
a=C_alloc(19);
t2=C_eqp(lf[87],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_10998,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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],tmp=(C_word)a,a+=19,tmp);
/* scrutinizer.scm:708: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[26]+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_SCHEME_UNDEFINED;
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k11009 in k11107 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_11011(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11011,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11014,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);
/* scrutinizer.scm:759: smash */
t3=((C_word*)t0)[5];
f_10726(t3,t2);}

/* k11012 in k11009 in k11107 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_11014(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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,3)))){
C_save_and_reclaim((void *)f_11014,c,av);}
a=C_alloc(16);
t2=C_eqp(lf[53],((C_word*)((C_word*)t0)[2])[1]);
if(C_truep(t2)){
t3=((C_word*)((C_word*)t0)[2])[1];
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
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|2,a[1]=(C_word)f_11024,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
t8=((C_word*)((C_word*)t0)[2])[1];
t9=C_i_check_list_2(t8,lf[6]);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11036,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_11036(t13,((C_word*)t0)[3],t8);}}

/* g1778 in k11012 in k11009 in k11107 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_fcall f_11024(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_11024,3,t0,t1,t2);}
t3=lf[118];
/* scrutinizer.scm:762: g1795 */
t4=lf[118];{
C_word av2[4];
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)t0)[2];
f_16269(4,av2);}}

/* map-loop1772 in k11012 in k11009 in k11107 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_fcall f_11036(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_11036,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_11061,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);
/* scrutinizer.scm:762: g1778 */
t4=((C_word*)t0)[4];
f_11024(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);}}}

/* k11059 in map-loop1772 in k11012 in k11009 in k11107 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_11061(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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_11061,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_11036(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* for-each-loop1707 in k11107 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_fcall f_11070(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_11070,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_11080,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:705: g1708 */
t7=((C_word*)t0)[3];
f_10838(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);}}}

/* k11078 in for-each-loop1707 in k11107 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
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,3)))){
C_save_and_reclaim((void *)f_11080,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11070(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11107 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_11109(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word 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_11109,c,av);}
a=C_alloc(15);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_i_check_list_2(((C_word*)t0)[3],lf[212]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11011,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
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_11070,a[2]=t6,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_11070(t8,t4,((C_word*)t0)[3],t2);}

/* a11110 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_11111(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_11111,c,av);}
a=C_alloc(5);
t2=C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],C_fix(1));
/* scrutinizer.scm:758: procedure-argument-types */
f_15320(t1,((C_word*)t0)[3],t2,((C_word*)t0)[4],C_SCHEME_END_OF_LIST);}

/* a11118 in k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_11119(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_11119,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
t2=C_build_rest(&a,c,2,av);
C_word t3;
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_list_ref(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k11125 in a10722 in k10710 in k10707 in k10704 in k10701 */
static void C_ccall f_11127(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,7)))){
C_save_and_reclaim((void *)f_11127,c,av);}
a=C_alloc(32);
t2=C_eqp(lf[123],t1);
if(C_truep(t2)){
/* scrutinizer.scm:703: walk */
t3=((C_word*)((C_word*)t0)[2])[1];
f_9459(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}
else{
t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_10838,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[13],a[7]=((C_word*)t0)[14],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[15],a[10]=((C_word*)t0)[16],a[11]=((C_word*)t0)[4],a[12]=((C_word*)t0)[17],a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[5],a[15]=((C_word*)t0)[18],tmp=(C_word)a,a+=16,tmp);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11109,a[2]=((C_word*)t0)[19],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[16],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[13],a[7]=((C_word*)t0)[20],a[8]=t3,tmp=(C_word)a,a+=9,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11111,a[2]=((C_word*)t0)[21],a[3]=((C_word*)t0)[19],a[4]=((C_word*)t0)[13],tmp=(C_word)a,a+=5,tmp);
t6=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11119,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:756: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t4;
av2[2]=t5;
av2[3]=t6;
C_call_with_values(4,av2);}}}

/* k11142 in k10701 */
static void C_ccall f_11144(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11144,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,lf[28],t1);
/* scrutinizer.scm:679: type-typeenv */
t3=lf[161];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=t2;
f_15894(3,av2);}}

/* map-loop1622 in k10701 */
static void C_fcall f_11146(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11146,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f26440,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);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[26]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+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);}}}

/* map-loop1575 in k10689 in k10653 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_11184(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_11184,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11213,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:667: g1581 */
t7=((C_word*)t0)[4];
f_10662(t7,t6,C_slot(t2,C_fix(0)),C_slot(t3,C_fix(0)));}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k11211 in map-loop1575 in k10689 in k10653 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11213(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_11213,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_11184(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)));}

/* k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11242(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(36,c,10)))){
C_save_and_reclaim((void *)f_11242,c,av);}
a=C_alloc(36);
t2=C_eqp(t1,lf[53]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11248,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t2)){
t4=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t5=lf[16];
t6=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t7=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
if(C_truep(C_i_nullp(t1))){
t4=C_i_car(((C_word*)t0)[4]);
t5=C_a_i_list1(&a,1,t4);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22583,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=t4,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2856: scheme#string-append */
t7=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[279];
av2[3]=lf[280];
av2[4]=lf[281];
av2[5]=lf[282];
av2[6]=lf[283];
av2[7]=lf[284];
av2[8]=lf[285];
((C_proc)(void*)(*((C_word*)t7+1)))(9,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11267,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp);
t5=C_i_length(t1);
if(C_truep(C_fixnum_greaterp(t5,C_fix(1)))){
t6=C_i_car(((C_word*)t0)[4]);
t7=C_a_i_list1(&a,1,t6);
t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22605,a[2]=t1,a[3]=t4,a[4]=t7,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=t6,tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:2873: scheme#string-append */
t9=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 11) {
  av2=av;
} else {
  av2=C_alloc(11);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[302];
av2[3]=lf[303];
av2[4]=lf[304];
av2[5]=lf[305];
av2[6]=lf[306];
av2[7]=lf[307];
av2[8]=lf[308];
av2[9]=lf[309];
av2[10]=lf[310];
((C_proc)(void*)(*((C_word*)t9+1)))(11,av2);}}
else{
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
f_11267(2,av2);}}}}}

/* k11246 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11248(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){
C_save_and_reclaim((void *)f_11248,c,av);}
a=C_alloc(32);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t3=lf[16];
t4=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t5=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k11265 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11267(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_11267,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11273,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
if(C_truep(C_i_cadr(((C_word*)t0)[10]))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11298,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:772: compatible-types? */
f_14694(t3,((C_word*)t0)[6],C_i_car(((C_word*)t0)[3]),C_SCHEME_END_OF_LIST);}
else{
t3=t2;
f_11273(t3,C_SCHEME_FALSE);}}

/* k11271 in k11265 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_11273(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(32,0,2)))){
C_save_and_reclaim_args((void *)trf_11273,2,t0,t1);}
a=C_alloc(32);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11276,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)t0)[7])){
t3=C_set_block_item(((C_word*)t0)[8],0,C_SCHEME_TRUE);
t4=t2;
f_11276(t4,t3);}
else{
t3=t2;
f_11276(t3,C_SCHEME_UNDEFINED);}}
else{
t2=C_a_i_list1(&a,1,((C_word*)t0)[6]);
t3=lf[16];
t4=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t5=((C_word*)t0)[9];{
C_word av2[2];
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k11274 in k11271 in k11265 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_11276(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,14)))){
C_save_and_reclaim_args((void *)trf_11276,2,t0,t1);}
a=C_alloc(11);
t2=C_i_car(((C_word*)t0)[2]);
t3=C_i_car(((C_word*)t0)[3]);
t4=C_a_i_list1(&a,1,t2);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22631,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:2893: scheme#string-append */
t6=*((C_word*)lf[76]+1);{
C_word av2[15];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[287];
av2[3]=lf[288];
av2[4]=lf[289];
av2[5]=lf[290];
av2[6]=lf[291];
av2[7]=lf[292];
av2[8]=lf[293];
av2[9]=lf[294];
av2[10]=lf[295];
av2[11]=lf[296];
av2[12]=lf[297];
av2[13]=lf[298];
av2[14]=lf[299];
((C_proc)(void*)(*((C_word*)t6+1)))(15,av2);}}

/* k11296 in k11265 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11298(C_word c,C_word *av){
C_word tmp;
C_word 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_11298,c,av);}
t2=((C_word*)t0)[2];
f_11273(t2,C_i_not(t1));}

/* k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11330(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_11330,c,av);}
a=C_alloc(14);
t2=lf[24];
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11333,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]=t2,a[13]=((C_word*)t0)[11],tmp=(C_word)a,a+=14,tmp);
/* scrutinizer.scm:779: type-typeenv */
t4=lf[161];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_car(t1);
f_15894(3,av2);}}

/* k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11333(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_11333,c,av);}
a=C_alloc(16);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_i_cdr(((C_word*)t0)[3]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11346,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=t5,a[12]=((C_word*)t0)[12],a[13]=t1,tmp=(C_word)a,a+=14,tmp));
t7=((C_word*)t5)[1];
f_11346(t7,((C_word*)t0)[13],t2,t3);}

/* loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_11346(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(19,0,18)))){
C_save_and_reclaim_args((void *)trf_11346,4,t0,t1,t2,t3);}
a=C_alloc(19);
if(C_truep(C_i_nullp(t2))){
t4=C_i_car(((C_word*)t0)[2]);
t5=C_i_cdr(((C_word*)t0)[3]);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22663,a[2]=t1,a[3]=t5,a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2914: scheme#string-append */
t7=*((C_word*)lf[76]+1);{
C_word av2[19];
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[324];
av2[3]=lf[325];
av2[4]=lf[326];
av2[5]=lf[327];
av2[6]=lf[328];
av2[7]=lf[329];
av2[8]=lf[330];
av2[9]=lf[331];
av2[10]=lf[332];
av2[11]=lf[333];
av2[12]=lf[334];
av2[13]=lf[335];
av2[14]=lf[336];
av2[15]=lf[337];
av2[16]=lf[338];
av2[17]=lf[339];
av2[18]=lf[340];
((C_proc)(void*)(*((C_word*)t7+1)))(19,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_11367,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=t3,a[11]=((C_word*)t0)[11],a[12]=t2,a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[2],tmp=(C_word)a,a+=15,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11405,a[2]=t4,a[3]=((C_word*)t0)[13],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:784: type-typeenv */
t6=lf[161];{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_i_car(t2);
f_15894(3,av2);}}}

/* k11365 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11367(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,5)))){
C_save_and_reclaim((void *)f_11367,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_11373,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=t1,tmp=(C_word)a,a+=15,tmp);
/* scrutinizer.scm:785: match-types */
t3=*((C_word*)lf[170]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_car(((C_word*)t0)[12]);
av2[3]=C_i_car(((C_word*)t0)[14]);
av2[4]=t1;
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k11371 in k11365 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11373(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11373,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11376,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* scrutinizer.scm:787: mutate-node! */
f_17304(t2,((C_word*)t0)[4],C_i_car(((C_word*)t0)[10]));}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11386,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:790: trail-restore */
f_16226(t2,((C_word*)t0)[13],((C_word*)t0)[14]);}}

/* k11374 in k11371 in k11365 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11376(C_word c,C_word *av){
C_word tmp;
C_word 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_11376,c,av);}
/* scrutinizer.scm:788: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_9459(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]);}

/* k11384 in k11371 in k11365 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11386(C_word c,C_word *av){
C_word tmp;
C_word 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_11386,c,av);}
/* scrutinizer.scm:791: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_11346(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_i_cdr(((C_word*)t0)[5]));}

/* k11403 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11405(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11405,c,av);}
/* scrutinizer.scm:784: scheme#append */
t2=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* g1836 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_11430(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,7)))){
C_save_and_reclaim_args((void *)trf_11430,3,t0,t1,t2);}
/* scrutinizer.scm:795: walk */
t3=((C_word*)((C_word*)t0)[2])[1];
f_9459(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],C_SCHEME_FALSE);}

/* k11438 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11440(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_11440,c,av);}
a=C_alloc(29);
t2=lf[16];
t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[53];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* for-each-loop1835 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_11442(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_11442,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_11452,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:795: g1836 */
t4=((C_word*)t0)[3];
f_11430(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);}}}

/* k11450 in for-each-loop1835 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11452,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11442(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k11511 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11513(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_11513,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11516,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(lf[23]))){
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11554,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:803: chicken.compiler.support#with-debugging-output */
t4=*((C_word*)lf[357]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[358];
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_11516(2,av2);}}}

/* k11514 in k11511 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11516(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_11516,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11519,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t3=((C_word*)((C_word*)t0)[7])[1];
if(C_truep(C_i_positivep(t3))){
/* scrutinizer.scm:812: chicken.compiler.support#debugging */
t4=*((C_word*)lf[236]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[350];
av2[3]=lf[351];
av2[4]=((C_word*)((C_word*)t0)[7])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_11519(2,av2);}}}

/* k11517 in k11514 in k11511 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11519(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_11519,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11522,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_word*)((C_word*)t0)[6])[1];
if(C_truep(C_i_positivep(t3))){
/* scrutinizer.scm:814: chicken.compiler.support#debugging */
t4=*((C_word*)lf[236]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[348];
av2[3]=lf[349];
av2[4]=((C_word*)((C_word*)t0)[6])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_11522(2,av2);}}}

/* k11520 in k11517 in k11514 in k11511 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11522(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_11522,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11525,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t3=((C_word*)((C_word*)t0)[5])[1];
if(C_truep(C_i_positivep(t3))){
/* scrutinizer.scm:816: chicken.compiler.support#debugging */
t4=*((C_word*)lf[236]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[346];
av2[3]=lf[347];
av2[4]=((C_word*)((C_word*)t0)[5])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_11525(2,av2);}}}

/* k11523 in k11520 in k11517 in k11514 in k11511 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11525(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_11525,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11531,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)((C_word*)t0)[4])[1])){
/* scrutinizer.scm:819: chicken.compiler.support#quit-compiling */
t3=*((C_word*)lf[312]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[345];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11529 in k11523 in k11520 in k11517 in k11514 in k11511 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11531(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11531,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);}}

/* a11553 in k11511 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11554(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11554,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11558,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:806: chicken.base#print */
t3=*((C_word*)lf[355]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[356];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11556 in a11553 in k11511 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11558(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_11558,c,av);}
a=C_alloc(5);
t2=lf[23];
t3=C_i_check_list_2(lf[23],lf[212]);
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_11592,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_11592(t7,((C_word*)t0)[2],lf[23]);}

/* k11564 in for-each-loop1861 in k11556 in a11553 in k11511 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11566(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_11566,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11569,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);
/* scrutinizer.scm:809: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cdr(((C_word*)t0)[4]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11567 in k11564 in for-each-loop1861 in k11556 in a11553 in k11511 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11569(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_11569,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11572,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);
/* scrutinizer.scm:809: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(32);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11570 in k11567 in k11564 in for-each-loop1861 in k11556 in a11553 in k11511 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11572(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11572,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11575,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:809: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_car(((C_word*)t0)[4]);
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11573 in k11570 in k11567 in k11564 in for-each-loop1861 in k11556 in a11553 in k11511 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11575(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11575,c,av);}
/* scrutinizer.scm:809: ##sys#write-char-0 */
t2=*((C_word*)lf[239]+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_make_character(10);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* for-each-loop1861 in k11556 in a11553 in k11511 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_11592(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_11592,3,t0,t1,t2);}
a=C_alloc(10);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11602,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[352]+1);
t6=*((C_word*)lf[352]+1);
t7=C_i_check_port_2(*((C_word*)lf[352]+1),C_fix(2),C_SCHEME_TRUE,lf[353]);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11566,a[2]=t3,a[3]=t5,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:809: ##sys#print */
t9=*((C_word*)lf[240]+1);{
C_word av2[5];
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[354];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[352]+1);
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k11600 in for-each-loop1861 in k11556 in a11553 in k11511 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11602(C_word c,C_word *av){
C_word tmp;
C_word 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_11602,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11592(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k11627 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11629(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,7)))){
C_save_and_reclaim((void *)f_11629,c,av);}
a=C_alloc(32);
t2=C_i_car(t1);
t3=(
/* scrutinizer.scm:801: tag */
  f_9325(C_a_i(&a,29),((C_word*)((C_word*)t0)[2])[1])
);
t4=C_a_i_list1(&a,1,t3);
/* scrutinizer.scm:801: walk */
t5=((C_word*)((C_word*)t0)[3])[1];
f_9459(t5,((C_word*)t0)[4],t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,t4,C_SCHEME_FALSE);}

/* chicken.compiler.scrutinizer#smash-component-types! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_11631(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_11631,2,t1,t2);}
a=C_alloc(5);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11637,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_11637(t6,t1,t2);}

/* doloop1914 in chicken.compiler.scrutinizer#smash-component-types! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_11637(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,4)))){
C_save_and_reclaim_args((void *)trf_11637,3,t0,t1,t2);}
a=C_alloc(13);
if(C_truep(C_i_nullp(t2))){
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11647,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_i_cdar(t2);
t5=C_u_i_car(t2);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11659,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11667,a[2]=t8,tmp=(C_word)a,a+=3,tmp));
t10=((C_word*)t8)[1];
f_11667(t10,t3,t4,t6);}}

/* k11645 in doloop1914 in chicken.compiler.scrutinizer#smash-component-types! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11647(C_word c,C_word *av){
C_word tmp;
C_word 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_11647,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11637(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* a11657 in doloop1914 in chicken.compiler.scrutinizer#smash-component-types! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11659(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_11659,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_setslot(((C_word*)t0)[2],C_fix(1),t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* loop in doloop1914 in chicken.compiler.scrutinizer#smash-component-types! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_11667(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){
C_save_and_reclaim_args((void *)trf_11667,4,t0,t1,t2,t3);}
a=C_alloc(16);
if(C_truep(C_i_pairp(t2))){
t4=C_u_i_car(t2);
t5=C_eqp(t4,lf[359]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11687,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:837: change! */
t7=t3;{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[50];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t6=C_eqp(t4,lf[50]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11700,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t9=t8;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=((C_word*)t10)[1];
t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11712,a[2]=t2,a[3]=t3,a[4]=t7,a[5]=t10,a[6]=t11,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:842: chicken.base#constantly */
t13=*((C_word*)lf[360]+1);{
C_word av2[3];
av2[0]=t13;
av2[1]=t12;
av2[2]=lf[53];
((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}
else{
t7=C_eqp(t4,lf[361]);
t8=(C_truep(t7)?t7:C_eqp(t4,lf[47]));
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11768,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:846: change! */
t10=t3;{
C_word av2[3];
av2[0]=t10;
av2[1]=t9;
av2[2]=lf[362];
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
else{
t9=C_eqp(t4,lf[48]);
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11781,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:850: change! */
t11=t3;{
C_word av2[3];
av2[0]=t11;
av2[1]=t10;
av2[2]=C_u_i_car(t2);
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t10=C_eqp(t4,lf[29]);
if(C_truep(t10)){
t11=C_i_caddr(t2);
t12=C_i_cddr(t2);
t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11802,a[2]=t12,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:853: loop */
t15=t1;
t16=t11;
t17=t13;
t1=t15;
t2=t16;
t3=t17;
goto loop;}
else{
t11=t1;{
C_word av2[2];
av2[0]=t11;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}}}}
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);}}}

/* k11685 in loop in doloop1914 in chicken.compiler.scrutinizer#smash-component-types! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11687(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11687,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_u_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k11698 in loop in doloop1914 in chicken.compiler.scrutinizer#smash-component-types! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11700(C_word c,C_word *av){
C_word tmp;
C_word 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_11700,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_u_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k11710 in loop in doloop1914 in chicken.compiler.scrutinizer#smash-component-types! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11712(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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,3)))){
C_save_and_reclaim((void *)f_11712,c,av);}
a=C_alloc(12);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_i_check_list_2(t2,lf[6]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11719,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11721,a[2]=((C_word*)t0)[5],a[3]=t6,a[4]=t1,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp));
t8=((C_word*)t6)[1];
f_11721(t8,t4,t2);}

/* k11717 in k11710 in loop in doloop1914 in chicken.compiler.scrutinizer#smash-component-types! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11719(C_word c,C_word *av){
C_word tmp;
C_word t0=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_11719,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,lf[50],t1);
/* scrutinizer.scm:842: change! */
t3=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* map-loop1932 in k11710 in loop in doloop1914 in chicken.compiler.scrutinizer#smash-component-types! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_11721(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_11721,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_11746,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);
/* scrutinizer.scm:842: g1938 */
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);}}}

/* k11744 in map-loop1932 in k11710 in loop in doloop1914 in chicken.compiler.scrutinizer#smash-component-types! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11746(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11746,c,av);}
a=C_alloc(3);
t2=C_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_11721(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11766 in loop in doloop1914 in chicken.compiler.scrutinizer#smash-component-types! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11768(C_word c,C_word *av){
C_word tmp;
C_word 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_11768,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_u_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k11779 in loop in doloop1914 in chicken.compiler.scrutinizer#smash-component-types! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11781(C_word c,C_word *av){
C_word tmp;
C_word 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_11781,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_u_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a11798 in loop in doloop1914 in chicken.compiler.scrutinizer#smash-component-types! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11802(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_11802,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_set_car(((C_word*)t0)[2],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11827(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +15,c,2)))){
C_save_and_reclaim((void*)f_11827,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+15);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11831,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_nullp(t4))){
t6=C_a_i_list(&a,3,lf[28],t2,t3);
/* scrutinizer.scm:871: type-typeenv */
t7=lf[161];{
C_word *av2=av;
av2[0]=t7;
av2[1]=t5;
av2[2]=t6;
f_15894(3,av2);}}
else{
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_i_car(t4);
f_11831(2,av2);}}}

/* k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11831(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(42,c,4)))){
C_save_and_reclaim((void *)f_11831,c,av);}
a=C_alloc(42);
t2=C_i_nullp(((C_word*)t0)[2]);
t3=(C_truep(t2)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2]));
t4=C_i_nullp(t3);
t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3));
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_i_nullp(t3);
t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t3));
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_SCHEME_UNDEFINED;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_SCHEME_UNDEFINED;
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=C_SCHEME_UNDEFINED;
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=C_SCHEME_UNDEFINED;
t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
t22=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11842,a[2]=t13,a[3]=t21,tmp=(C_word)a,a+=4,tmp));
t23=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11973,a[2]=t21,tmp=(C_word)a,a+=3,tmp));
t24=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12036,a[2]=t7,a[3]=t15,a[4]=t21,tmp=(C_word)a,a+=5,tmp));
t25=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12104,a[2]=t7,a[3]=t21,tmp=(C_word)a,a+=4,tmp));
t26=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12126,a[2]=t21,tmp=(C_word)a,a+=3,tmp));
t27=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12162,a[2]=t1,a[3]=t17,a[4]=t21,a[5]=t7,a[6]=t15,a[7]=t11,a[8]=t19,tmp=(C_word)a,a+=9,tmp));
/* scrutinizer.scm:1106: match1 */
t28=((C_word*)t21)[1];
f_12162(t28,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}

/* match-args in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_11842(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,6)))){
C_save_and_reclaim_args((void *)trf_11842,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_11851,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_11851(t7,t1,t2,t3,C_SCHEME_FALSE,C_SCHEME_FALSE);}

/* loop in match-args in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_11851(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 t17;
C_word t18;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){
C_save_and_reclaim_args((void *)trf_11851,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(8);
if(C_truep(C_i_nullp(t2))){
if(C_truep(t5)){
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_i_nullp(t3);
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=(C_truep(t6)?t6:C_u_i_memq(C_i_car(t3),lf[363]));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
else{
if(C_truep(C_i_nullp(t3))){
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=(C_truep(t4)?t4:C_u_i_memq(C_i_car(t2),lf[363]));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_i_car(t2);
t7=C_eqp(lf[364],t6);
if(C_truep(t7)){
/* scrutinizer.scm:884: loop */
t14=t1;
t15=C_u_i_cdr(t2);
t16=t3;
t17=C_SCHEME_TRUE;
t18=t5;
t1=t14;
t2=t15;
t3=t16;
t4=t17;
t5=t18;
goto loop;}
else{
t8=C_i_car(t3);
t9=C_eqp(lf[364],t8);
if(C_truep(t9)){
/* scrutinizer.scm:886: loop */
t14=t1;
t15=t2;
t16=C_u_i_cdr(t3);
t17=t4;
t18=C_SCHEME_TRUE;
t1=t14;
t2=t15;
t3=t16;
t4=t17;
t5=t18;
goto loop;}
else{
t10=C_eqp(lf[365],C_u_i_car(t2));
if(C_truep(t10)){
t11=(
/* scrutinizer.scm:888: rest-type */
  f_15724(C_u_i_cdr(t2))
);
/* scrutinizer.scm:888: match-rest */
t12=((C_word*)((C_word*)t0)[3])[1];
f_11973(t12,t1,t11,t3);}
else{
t11=C_eqp(lf[365],C_u_i_car(t3));
if(C_truep(t11)){
t12=(
/* scrutinizer.scm:890: rest-type */
  f_15724(C_u_i_cdr(t3))
);
/* scrutinizer.scm:890: match-rest */
t13=((C_word*)((C_word*)t0)[3])[1];
f_11973(t13,t1,t12,t2);}
else{
t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11948,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:891: match1 */
t13=((C_word*)((C_word*)t0)[4])[1];
f_12162(t13,t12,C_u_i_car(t2),C_u_i_car(t3));}}}}}}}

/* k11946 in loop in match-args in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11948(C_word c,C_word *av){
C_word tmp;
C_word 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_11948,c,av);}
if(C_truep(t1)){
/* scrutinizer.scm:892: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_11851(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7]);}
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);}}}

/* match-rest in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_11973(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_11973,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11979,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11995,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:896: ##sys#call-with-values */{
C_word av2[4];
av2[0]=0;
av2[1]=t1;
av2[2]=t4;
av2[3]=t5;
C_call_with_values(4,av2);}}

/* a11978 in match-rest in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11979(C_word c,C_word *av){
C_word tmp;
C_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,4)))){
C_save_and_reclaim((void *)f_11979,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_6804,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_6804(t5,t1,((C_word*)t0)[2],C_SCHEME_END_OF_LIST);}

/* a11994 in match-rest in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_11995(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(10,c,3)))){
C_save_and_reclaim((void *)f_11995,c,av);}
a=C_alloc(10);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12002,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12019,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:897: every */
f_7109(t4,t5,t2);}

/* k12000 in a11994 in match-rest in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12002(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_12002,c,av);}
if(C_truep(t1)){
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t2=(
/* scrutinizer.scm:902: rest-type */
  f_15724(C_u_i_cdr(((C_word*)t0)[2]))
);
/* scrutinizer.scm:902: match1 */
t3=((C_word*)((C_word*)t0)[3])[1];
f_12162(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}
else{
/* scrutinizer.scm:902: match1 */
t2=((C_word*)((C_word*)t0)[3])[1];
f_12162(t2,((C_word*)t0)[4],((C_word*)t0)[5],lf[53]);}}
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);}}}

/* a12018 in a11994 in match-rest in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
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=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_12019,c,av);}
t3=C_eqp(lf[364],t2);
if(C_truep(t3)){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* scrutinizer.scm:900: match1 */
t4=((C_word*)((C_word*)t0)[2])[1];
f_12162(t4,t1,((C_word*)t0)[3],t2);}}

/* match-results in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_12036(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_12036,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_eqp(lf[53],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_eqp(lf[53],t3);
if(C_truep(t5)){
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_i_not(((C_word*)((C_word*)t0)[2])[1]);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
if(C_truep(C_i_nullp(t2))){
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_i_nullp(t3);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
if(C_truep(C_i_nullp(t3))){
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_i_car(t2);
t7=(C_truep((C_truep(C_eqp(t6,lf[35]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[70]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))?C_u_i_memq(C_i_car(t3),lf[368]):C_SCHEME_FALSE);
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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12079,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:914: match1 */
t9=((C_word*)((C_word*)t0)[4])[1];
f_12162(t9,t8,C_u_i_car(t2),C_i_car(t3));}}}}}}

/* k12077 in match-results in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12079(C_word c,C_word *av){
C_word tmp;
C_word 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_12079,c,av);}
if(C_truep(t1)){
/* scrutinizer.scm:915: match-results */
t2=((C_word*)((C_word*)t0)[2])[1];
f_12036(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* rawmatch1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_12104(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){
C_save_and_reclaim_args((void *)trf_12104,4,t0,t1,t2,t3);}
a=C_alloc(19);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_FALSE;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12110,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t5,tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12115,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12121,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t7,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:919: ##sys#dynamic-wind */
t11=*((C_word*)lf[224]+1);{
C_word av2[5];
av2[0]=t11;
av2[1]=t1;
av2[2]=t8;
av2[3]=t9;
av2[4]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}

/* a12109 in rawmatch1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12110(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12110,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a12114 in rawmatch1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12115(C_word c,C_word *av){
C_word tmp;
C_word 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_12115,c,av);}
/* scrutinizer.scm:920: match1 */
t2=((C_word*)((C_word*)t0)[2])[1];
f_12162(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* a12120 in rawmatch1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12121(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12121,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* every-match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_12126(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,4)))){
C_save_and_reclaim_args((void *)trf_12126,4,t0,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_12132,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_12132(t7,t1,t2,t3);}

/* loop in every-match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_12132(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_12132,4,t0,t1,t2,t3);}
a=C_alloc(6);
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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12145,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:925: match1 */
t6=((C_word*)((C_word*)t0)[3])[1];
f_12162(t6,t5,C_i_car(t2),C_i_car(t3));}}

/* k12143 in loop in every-match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12145(C_word c,C_word *av){
C_word tmp;
C_word 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_12145,c,av);}
if(C_truep(t1)){
/* scrutinizer.scm:925: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_12132(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_12162(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
C_save_and_reclaim_args((void *)trf_12162,4,t0,t1,t2,t3);}
a=C_alloc(11);
t4=C_eqp(t2,t3);
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_i_symbolp(t2);
t6=(C_truep(t5)?C_i_assq(t2,((C_word*)t0)[2]):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12179,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:931: g2119 */
t8=t7;
f_12179(t8,t1,t6);}
else{
t7=C_i_symbolp(t3);
t8=(C_truep(t7)?C_i_assq(t3,((C_word*)t0)[2]):C_SCHEME_FALSE);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12311,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:931: g2152 */
t10=t9;
f_12311(t10,t1,t8);}
else{
t9=C_eqp(t2,lf[53]);
if(C_truep(t9)){
t10=t1;{
C_word av2[2];
av2[0]=t10;
av2[1]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t10=C_eqp(t3,lf[53]);
if(C_truep(t10)){
t11=t1;{
C_word av2[2];
av2[0]=t11;
av2[1]=C_i_not(((C_word*)((C_word*)t0)[5])[1]);
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t11=C_eqp(t2,lf[35]);
if(C_truep(t11)){
t12=t1;{
C_word av2[2];
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t12=C_eqp(t3,lf[35]);
if(C_truep(t12)){
t13=t1;{
C_word av2[2];
av2[0]=t13;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t13=C_eqp(t2,lf[70]);
if(C_truep(t13)){
t14=t1;{
C_word av2[2];
av2[0]=t14;
av2[1]=t13;
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
else{
t14=C_eqp(t3,lf[70]);
if(C_truep(t14)){
t15=t1;{
C_word av2[2];
av2[0]=t15;
av2[1]=t14;
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
else{
t15=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12424,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_symbolp(t2))){
/* scrutinizer.scm:1272: chicken.base#alist-ref */
t16=*((C_word*)lf[275]+1);{
C_word av2[5];
av2[0]=t16;
av2[1]=t15;
av2[2]=t2;
av2[3]=lf[373];
av2[4]=*((C_word*)lf[374]+1);
((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}}
else{
t16=t15;{
C_word av2[2];
av2[0]=t16;
av2[1]=C_SCHEME_FALSE;
f_12424(2,av2);}}}}}}}}}}}}

/* g2119 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_12179(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_12179,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_cadr(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12192,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:936: match1 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_12162(t4,t3,C_i_cadr(t2),((C_word*)t0)[3]);}
else{
t3=C_i_symbolp(((C_word*)t0)[3]);
t4=(C_truep(t3)?C_i_assq(((C_word*)t0)[3],((C_word*)t0)[5]):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12220,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:935: g2133 */
t6=t5;
f_12220(t6,t1,t4);}
else{
t5=C_i_caddr(t2);
t6=C_i_not(t5);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12270,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
if(C_truep(t6)){
t8=t7;{
C_word av2[2];
av2[0]=t8;
av2[1]=t6;
f_12270(2,av2);}}
else{
/* scrutinizer.scm:950: rawmatch1 */
t8=((C_word*)((C_word*)t0)[2])[1];
f_12104(t8,t7,C_i_caddr(t2),((C_word*)t0)[3]);}}}}

/* k12190 in g2119 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12192(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12192,c,av);}
if(C_truep(t1)){
t2=C_i_caddr(((C_word*)t0)[2]);
t3=C_i_not(t2);
if(C_truep(t3)){
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* scrutinizer.scm:938: rawmatch1 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_12104(t4,((C_word*)t0)[3],C_i_caddr(((C_word*)t0)[2]),((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);}}}

/* g2133 in g2119 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_12220(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_12220,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_i_cadr(t2);
t4=C_i_not(t3);
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12233,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:946: match1 */
t6=((C_word*)((C_word*)t0)[4])[1];
f_12162(t6,t5,((C_word*)t0)[3],C_i_cadr(t2));}}

/* k12231 in g2133 in g2119 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12233(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12233,c,av);}
if(C_truep(t1)){
t2=C_i_caddr(((C_word*)t0)[2]);
t3=C_i_not(t2);
if(C_truep(t3)){
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* scrutinizer.scm:948: rawmatch1 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_12104(t4,((C_word*)t0)[3],((C_word*)t0)[5],C_i_caddr(((C_word*)t0)[2]));}}
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);}}}

/* k12268 in g2119 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12270(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12270,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],lf[24]);
t3=C_mutate(&lf[24] /* (set! chicken.compiler.scrutinizer#trail ...) */,t2);
t4=C_i_cdr(((C_word*)t0)[3]);
t5=C_i_set_car(t4,((C_word*)t0)[4]);
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);}}}

/* g2152 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_12311(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_12311,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_cadr(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12324,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:959: match1 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_12162(t4,t3,((C_word*)t0)[3],C_i_cadr(t2));}
else{
t3=C_i_caddr(t2);
t4=C_i_not(t3);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12354,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
if(C_truep(t4)){
t6=t5;{
C_word av2[2];
av2[0]=t6;
av2[1]=t4;
f_12354(2,av2);}}
else{
/* scrutinizer.scm:963: rawmatch1 */
t6=((C_word*)((C_word*)t0)[2])[1];
f_12104(t6,t5,((C_word*)t0)[3],C_i_caddr(t2));}}}

/* k12322 in g2152 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12324(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12324,c,av);}
if(C_truep(t1)){
t2=C_i_caddr(((C_word*)t0)[2]);
t3=C_i_not(t2);
if(C_truep(t3)){
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* scrutinizer.scm:961: rawmatch1 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_12104(t4,((C_word*)t0)[3],((C_word*)t0)[5],C_i_caddr(((C_word*)t0)[2]));}}
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);}}}

/* k12352 in g2152 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12354(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12354,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],lf[24]);
t3=C_mutate(&lf[24] /* (set! chicken.compiler.scrutinizer#trail ...) */,t2);
t4=C_i_cdr(((C_word*)t0)[3]);
t5=C_i_set_car(t4,((C_word*)t0)[4]);
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);}}}

/* k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12424(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12424,c,av);}
a=C_alloc(11);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12428,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:931: g2180 */
t3=t2;
f_12428(t3,((C_word*)t0)[4],t1);}
else{
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12438,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
/* scrutinizer.scm:1272: chicken.base#alist-ref */
t3=*((C_word*)lf[275]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[373];
av2[4]=*((C_word*)lf[374]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_12438(2,av2);}}}}

/* g2180 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_12428(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_12428,3,t0,t1,t2);}
/* scrutinizer.scm:975: g2188 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_12162(t3,t1,t2,((C_word*)t0)[3]);}

/* k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
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 t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,5)))){
C_save_and_reclaim((void *)f_12438,c,av);}
a=C_alloc(20);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12442,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:931: g2191 */
t3=t2;
f_12442(t3,((C_word*)t0)[4],t1);}
else{
t2=C_i_pairp(((C_word*)t0)[3]);
t3=(C_truep(t2)?C_eqp(lf[69],C_u_i_car(((C_word*)t0)[3])):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=C_i_not(((C_word*)((C_word*)t0)[5])[1]);
t5=t4;
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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12463,a[2]=t8,a[3]=((C_word*)t0)[5],a[4]=t6,tmp=(C_word)a,a+=5,tmp);
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12468,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12484,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=t8,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:978: ##sys#dynamic-wind */
t12=*((C_word*)lf[224]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t12;
av2[1]=((C_word*)t0)[4];
av2[2]=t9;
av2[3]=t10;
av2[4]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}
else{
t4=C_i_pairp(((C_word*)t0)[7]);
t5=(C_truep(t4)?C_eqp(lf[69],C_u_i_car(((C_word*)t0)[7])):C_SCHEME_FALSE);
if(C_truep(t5)){
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[5])[1]))){
t6=C_SCHEME_TRUE;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_FALSE;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12504,a[2]=t9,a[3]=((C_word*)t0)[5],a[4]=t7,tmp=(C_word)a,a+=5,tmp);
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12509,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12525,a[2]=t7,a[3]=((C_word*)t0)[5],a[4]=t9,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:985: ##sys#dynamic-wind */
t13=*((C_word*)lf[224]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t13;
av2[1]=((C_word*)t0)[4];
av2[2]=t10;
av2[3]=t11;
av2[4]=t12;
((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}}
else{
t6=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t6=C_i_pairp(((C_word*)t0)[7]);
t7=(C_truep(t6)?C_eqp(lf[28],C_u_i_car(((C_word*)t0)[7])):C_SCHEME_FALSE);
if(C_truep(t7)){
t8=C_i_cdr(((C_word*)t0)[7]);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12543,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:993: over-all-instantiations */
f_20204(((C_word*)t0)[4],t8,((C_word*)t0)[6],((C_word*)((C_word*)t0)[5])[1],t9);}
else{
t8=C_i_pairp(((C_word*)t0)[3]);
t9=(C_truep(t8)?C_eqp(lf[28],C_u_i_car(((C_word*)t0)[3])):C_SCHEME_FALSE);
if(C_truep(t9)){
t10=C_i_cdr(((C_word*)t0)[3]);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12562,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1000: over-all-instantiations */
f_20204(((C_word*)t0)[4],t10,((C_word*)t0)[6],C_SCHEME_FALSE,t11);}
else{
t10=C_i_pairp(((C_word*)t0)[3]);
t11=(C_truep(t10)?C_eqp(lf[29],C_u_i_car(((C_word*)t0)[3])):C_SCHEME_FALSE);
if(C_truep(t11)){
/* scrutinizer.scm:1006: match1 */
t12=((C_word*)((C_word*)t0)[2])[1];
f_12162(t12,((C_word*)t0)[4],C_i_caddr(((C_word*)t0)[3]),((C_word*)t0)[7]);}
else{
t12=C_i_pairp(((C_word*)t0)[7]);
t13=(C_truep(t12)?C_eqp(lf[29],C_u_i_car(((C_word*)t0)[7])):C_SCHEME_FALSE);
if(C_truep(t13)){
/* scrutinizer.scm:1008: match1 */
t14=((C_word*)((C_word*)t0)[2])[1];
f_12162(t14,((C_word*)t0)[4],((C_word*)t0)[3],C_i_caddr(((C_word*)t0)[7]));}
else{
t14=C_eqp(lf[84],((C_word*)t0)[3]);
if(C_truep(t14)){
t15=C_i_pairp(((C_word*)t0)[7]);
t16=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t16;
av2[1]=(C_truep(t15)?C_eqp(lf[84],C_u_i_car(((C_word*)t0)[7])):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}
else{
t15=C_eqp(lf[84],((C_word*)t0)[7]);
if(C_truep(t15)){
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[5])[1]))){
t16=C_i_pairp(((C_word*)t0)[3]);
t17=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t17;
av2[1]=(C_truep(t16)?C_eqp(lf[84],C_u_i_car(((C_word*)t0)[3])):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}
else{
t16=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t16;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}}
else{
t16=C_eqp(((C_word*)t0)[3],lf[31]);
if(C_truep(t16)){
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[5])[1]))){
t17=C_i_pairp(((C_word*)t0)[7]);
t18=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t18;
av2[1]=(C_truep(t17)?C_eqp(lf[361],C_u_i_car(((C_word*)t0)[7])):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}
else{
t17=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t17;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}}
else{
t17=C_eqp(((C_word*)t0)[7],lf[31]);
if(C_truep(t17)){
t18=C_i_pairp(((C_word*)t0)[3]);
t19=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t19;
av2[1]=(C_truep(t18)?C_eqp(lf[361],C_u_i_car(((C_word*)t0)[3])):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}
else{
t18=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12678,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
t19=C_i_pairp(((C_word*)t0)[7]);
t20=t18;
f_12678(t20,(C_truep(t19)?C_eqp(C_u_i_car(((C_word*)t0)[3]),C_u_i_car(((C_word*)t0)[7])):C_SCHEME_FALSE));}
else{
t19=t18;
f_12678(t19,C_SCHEME_FALSE);}}}}}}}}}}}}}

/* g2191 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_12442(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_12442,3,t0,t1,t2);}
/* scrutinizer.scm:976: g2199 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_12162(t3,t1,((C_word*)t0)[3],t2);}

/* a12462 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12463(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12463,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a12467 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
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 t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_12468,c,av);}
a=C_alloc(5);
t2=lf[24];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12472,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:980: match1 */
t4=((C_word*)((C_word*)t0)[3])[1];
f_12162(t4,t3,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k12470 in a12467 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12472(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12472,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12475,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:981: trail-restore */
f_16226(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k12473 in k12470 in a12467 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12475(C_word c,C_word *av){
C_word tmp;
C_word 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_12475,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_not(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a12483 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12484(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12484,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a12503 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
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 t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12504,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a12508 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12509(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_12509,c,av);}
a=C_alloc(5);
t2=lf[24];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12513,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:987: match1 */
t4=((C_word*)((C_word*)t0)[3])[1];
f_12162(t4,t3,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k12511 in a12508 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12513(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12513,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12516,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:988: trail-restore */
f_16226(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k12514 in k12511 in a12508 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12516(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12516,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_not(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a12524 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12525(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12525,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a12542 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12543(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=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_12543,c,av);}
/* scrutinizer.scm:997: match1 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_12162(t3,t1,((C_word*)t0)[3],t2);}

/* a12561 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12562(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_12562,c,av);}
/* scrutinizer.scm:1004: match1 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_12162(t3,t1,t2,((C_word*)t0)[3]);}

/* k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_12678(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){
C_save_and_reclaim_args((void *)trf_12678,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_eqp(t2,lf[84]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12690,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:1022: procedure-arguments */
f_15206(t4,((C_word*)t0)[2]);}
else{
t4=C_eqp(t2,lf[52]);
if(C_truep(t4)){
t5=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_i_equalp(((C_word*)t0)[2],((C_word*)t0)[6]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(t2,lf[48]);
if(C_truep(t5)){
/* scrutinizer.scm:1029: every-match1 */
t6=((C_word*)((C_word*)t0)[7])[1];
f_12126(t6,((C_word*)t0)[4],C_u_i_cdr(((C_word*)t0)[2]),C_i_cdr(((C_word*)t0)[6]));}
else{
t6=C_eqp(t2,lf[361]);
t7=(C_truep(t6)?t6:C_eqp(t2,lf[359]));
if(C_truep(t7)){
/* scrutinizer.scm:1030: match1 */
t8=((C_word*)((C_word*)t0)[8])[1];
f_12162(t8,((C_word*)t0)[4],C_i_cadr(((C_word*)t0)[2]),C_i_cadr(((C_word*)t0)[6]));}
else{
t8=C_eqp(t2,lf[47]);
t9=(C_truep(t8)?t8:C_eqp(t2,lf[50]));
if(C_truep(t9)){
t10=C_i_length(((C_word*)t0)[2]);
t11=C_i_length(((C_word*)t0)[6]);
t12=C_eqp(t10,t11);
if(C_truep(t12)){
/* scrutinizer.scm:1033: every-match1 */
t13=((C_word*)((C_word*)t0)[7])[1];
f_12126(t13,((C_word*)t0)[4],C_i_cdr(((C_word*)t0)[2]),C_i_cdr(((C_word*)t0)[6]));}
else{
t13=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t13;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}
else{
t10=C_eqp(t2,lf[372]);
if(C_truep(t10)){
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12798,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:1035: match1 */
t12=((C_word*)((C_word*)t0)[8])[1];
f_12162(t12,t11,C_i_caddr(((C_word*)t0)[2]),C_i_caddr(((C_word*)t0)[6]));}
else{
t11=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t11;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}}}}}
else{
t2=C_i_pairp(((C_word*)t0)[2]);
t3=(C_truep(t2)?C_eqp(lf[372],C_u_i_car(((C_word*)t0)[2])):C_SCHEME_FALSE);
if(C_truep(t3)){
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[9])[1]))){
/* scrutinizer.scm:1040: match1 */
t4=((C_word*)((C_word*)t0)[8])[1];
f_12162(t4,((C_word*)t0)[4],C_i_caddr(((C_word*)t0)[2]),((C_word*)t0)[6]);}
else{
t4=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t4=C_i_pairp(((C_word*)t0)[6]);
t5=(C_truep(t4)?C_eqp(lf[372],C_u_i_car(((C_word*)t0)[6])):C_SCHEME_FALSE);
if(C_truep(t5)){
/* scrutinizer.scm:1042: match1 */
t6=((C_word*)((C_word*)t0)[8])[1];
f_12162(t6,((C_word*)t0)[4],((C_word*)t0)[2],C_i_caddr(((C_word*)t0)[6]));}
else{
t6=C_i_pairp(((C_word*)t0)[2]);
t7=(C_truep(t6)?C_eqp(lf[48],C_u_i_car(((C_word*)t0)[2])):C_SCHEME_FALSE);
if(C_truep(t7)){
if(C_truep(C_i_pairp(((C_word*)t0)[6]))){
t8=C_u_i_car(((C_word*)t0)[6]);
t9=C_eqp(t8,lf[361]);
if(C_truep(t9)){
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[9])[1]))){
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12908,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:1048: match1 */
t11=((C_word*)((C_word*)t0)[8])[1];
f_12162(t11,t10,C_i_cadr(((C_word*)t0)[2]),C_i_cadr(((C_word*)t0)[6]));}
else{
t10=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}
else{
t10=C_eqp(t8,lf[47]);
if(C_truep(t10)){
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[6])))){
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12941,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:1052: match1 */
t12=((C_word*)((C_word*)t0)[8])[1];
f_12162(t12,t11,C_i_cadr(((C_word*)t0)[2]),C_i_cadr(((C_word*)t0)[6]));}
else{
t11=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t11;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}
else{
t11=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t11;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}
else{
t8=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
else{
t8=C_i_pairp(((C_word*)t0)[6]);
t9=(C_truep(t8)?C_eqp(lf[48],C_u_i_car(((C_word*)t0)[6])):C_SCHEME_FALSE);
if(C_truep(t9)){
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t10=C_u_i_car(((C_word*)t0)[2]);
t11=C_eqp(t10,lf[361]);
if(C_truep(t11)){
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[9])[1]))){
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13010,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:1063: match1 */
t13=((C_word*)((C_word*)t0)[8])[1];
f_12162(t13,t12,C_i_cadr(((C_word*)t0)[2]),C_i_cadr(((C_word*)t0)[6]));}
else{
t12=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}
else{
t12=C_eqp(t10,lf[47]);
if(C_truep(t12)){
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])))){
t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13043,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:1067: match1 */
t14=((C_word*)((C_word*)t0)[8])[1];
f_12162(t14,t13,C_i_cadr(((C_word*)t0)[2]),C_i_cadr(((C_word*)t0)[6]));}
else{
t13=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t13;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}
else{
t13=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t13;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}}
else{
t10=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}
else{
t10=C_i_pairp(((C_word*)t0)[2]);
t11=(C_truep(t10)?C_eqp(lf[47],C_u_i_car(((C_word*)t0)[2])):C_SCHEME_FALSE);
if(C_truep(t11)){
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[9])[1]))){
if(C_truep(C_i_pairp(((C_word*)t0)[6]))){
t12=C_eqp(lf[361],C_u_i_car(((C_word*)t0)[6]));
if(C_truep(t12)){
t13=C_i_cdr(((C_word*)t0)[2]);
t14=C_i_cadr(((C_word*)t0)[6]);
t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13117,a[2]=((C_word*)t0)[8],a[3]=t14,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1076: over-all-instantiations */
f_20204(((C_word*)t0)[4],t13,((C_word*)t0)[10],C_SCHEME_TRUE,t15);}
else{
t13=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t13;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}
else{
t12=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}
else{
t12=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}
else{
t12=C_i_pairp(((C_word*)t0)[2]);
t13=(C_truep(t12)?C_eqp(lf[361],C_u_i_car(((C_word*)t0)[2])):C_SCHEME_FALSE);
if(C_truep(t13)){
if(C_truep(C_i_pairp(((C_word*)t0)[6]))){
t14=C_eqp(lf[47],C_u_i_car(((C_word*)t0)[6]));
if(C_truep(t14)){
t15=C_u_i_cdr(((C_word*)t0)[6]);
t16=C_i_cadr(((C_word*)t0)[2]);
t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13151,a[2]=((C_word*)t0)[8],a[3]=t16,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1083: over-all-instantiations */
f_20204(((C_word*)t0)[4],t15,((C_word*)t0)[10],C_SCHEME_TRUE,t17);}
else{
t15=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t15;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}}
else{
t14=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t14;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}}
else{
t14=C_i_pairp(((C_word*)t0)[2]);
t15=(C_truep(t14)?C_eqp(lf[50],C_u_i_car(((C_word*)t0)[2])):C_SCHEME_FALSE);
if(C_truep(t15)){
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[9])[1]))){
if(C_truep(C_i_pairp(((C_word*)t0)[6]))){
t16=C_eqp(lf[359],C_u_i_car(((C_word*)t0)[6]));
if(C_truep(t16)){
t17=C_i_cdr(((C_word*)t0)[2]);
t18=C_i_cadr(((C_word*)t0)[6]);
t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13193,a[2]=((C_word*)t0)[8],a[3]=t18,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1091: over-all-instantiations */
f_20204(((C_word*)t0)[4],t17,((C_word*)t0)[10],C_SCHEME_TRUE,t19);}
else{
t17=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t17;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}}
else{
t16=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t16;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}}
else{
t16=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t16;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}}
else{
t16=C_i_pairp(((C_word*)t0)[2]);
t17=(C_truep(t16)?C_eqp(lf[359],C_u_i_car(((C_word*)t0)[2])):C_SCHEME_FALSE);
if(C_truep(t17)){
if(C_truep(C_i_pairp(((C_word*)t0)[6]))){
t18=C_eqp(lf[50],C_u_i_car(((C_word*)t0)[6]));
if(C_truep(t18)){
t19=C_u_i_cdr(((C_word*)t0)[6]);
t20=C_i_cadr(((C_word*)t0)[2]);
t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13227,a[2]=((C_word*)t0)[8],a[3]=t20,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1098: over-all-instantiations */
f_20204(((C_word*)t0)[4],t19,((C_word*)t0)[10],C_SCHEME_TRUE,t21);}
else{
t19=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t19;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}}
else{
t18=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t18;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}}
else{
t18=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t18;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}}}}}}}}}}

/* k12688 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12690(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_12690,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12693,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);
/* scrutinizer.scm:1023: procedure-arguments */
f_15206(t2,((C_word*)t0)[5]);}

/* k12691 in k12688 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12693(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_12693,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12696,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:1024: procedure-results */
f_15263(t2,((C_word*)t0)[7]);}

/* k12694 in k12691 in k12688 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12696(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_12696,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12699,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:1025: procedure-results */
f_15263(t2,((C_word*)t0)[7]);}

/* k12697 in k12694 in k12691 in k12688 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12699(C_word c,C_word *av){
C_word tmp;
C_word t0=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_12699,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12705,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);
/* scrutinizer.scm:1026: match-args */
t3=((C_word*)((C_word*)t0)[5])[1];
f_11842(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k12703 in k12697 in k12694 in k12691 in k12688 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12705(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12705,c,av);}
if(C_truep(t1)){
/* scrutinizer.scm:1027: match-results */
t2=((C_word*)((C_word*)t0)[2])[1];
f_12036(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);}}}

/* k12796 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12798(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12798,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_i_not(((C_word*)((C_word*)t0)[2])[1]);
if(C_truep(t2)){
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_cadr(((C_word*)t0)[4]);
t4=C_i_cadr(((C_word*)t0)[5]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7787,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* mini-srfi-1.scm:193: every */
f_7109(((C_word*)t0)[3],t5,t3);}}
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);}}}

/* k12906 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12908(C_word c,C_word *av){
C_word tmp;
C_word 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_12908,c,av);}
if(C_truep(t1)){
/* scrutinizer.scm:1049: match1 */
t2=((C_word*)((C_word*)t0)[2])[1];
f_12162(t2,((C_word*)t0)[3],C_i_caddr(((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);}}}

/* k12939 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_12941(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_12941,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_i_caddr(((C_word*)t0)[2]);
t3=C_i_cddr(((C_word*)t0)[3]);
if(C_truep(C_i_nullp(t3))){
/* scrutinizer.scm:1053: match1 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_12162(t4,((C_word*)t0)[5],t2,lf[31]);}
else{
t4=C_u_i_cdr(((C_word*)t0)[3]);
t5=C_u_i_cdr(t4);
t6=C_a_i_cons(&a,2,lf[47],t5);
/* scrutinizer.scm:1053: match1 */
t7=((C_word*)((C_word*)t0)[4])[1];
f_12162(t7,((C_word*)t0)[5],t2,t6);}}
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);}}}

/* k13008 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13010(C_word c,C_word *av){
C_word tmp;
C_word 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_13010,c,av);}
if(C_truep(t1)){
/* scrutinizer.scm:1064: match1 */
t2=((C_word*)((C_word*)t0)[2])[1];
f_12162(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_i_caddr(((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);}}}

/* k13041 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13043(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13043,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_i_cddr(((C_word*)t0)[2]);
if(C_truep(C_i_nullp(t2))){
/* scrutinizer.scm:1068: match1 */
t3=((C_word*)((C_word*)t0)[3])[1];
f_12162(t3,((C_word*)t0)[4],lf[31],C_i_caddr(((C_word*)t0)[5]));}
else{
t3=C_u_i_cdr(((C_word*)t0)[2]);
t4=C_u_i_cdr(t3);
t5=C_a_i_cons(&a,2,lf[47],t4);
/* scrutinizer.scm:1068: match1 */
t6=((C_word*)((C_word*)t0)[3])[1];
f_12162(t6,((C_word*)t0)[4],t5,C_i_caddr(((C_word*)t0)[5]));}}
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);}}}

/* a13113 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
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=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_13117,c,av);}
/* scrutinizer.scm:1080: g23062307 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_12162(t3,t1,t2,((C_word*)t0)[3]);}

/* a13147 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13151(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_13151,c,av);}
/* scrutinizer.scm:1087: g23212322 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_12162(t3,t1,((C_word*)t0)[3],t2);}

/* a13189 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13193(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=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_13193,c,av);}
/* scrutinizer.scm:1095: g23372338 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_12162(t3,t1,t2,((C_word*)t0)[3]);}

/* a13223 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13227(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_13227,c,av);}
/* scrutinizer.scm:1102: g23522353 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_12162(t3,t1,((C_word*)t0)[3],t2);}

/* chicken.compiler.scrutinizer#match-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_13415(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(6,0,4)))){
C_save_and_reclaim_args((void *)trf_13415,4,t1,t2,t3,t4);}
a=C_alloc(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_13421,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_13421(t8,t1,t2,t3);}

/* loop in chicken.compiler.scrutinizer#match-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_13421(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){
C_save_and_reclaim_args((void *)trf_13421,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_i_nullp(t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_equalp(lf[375],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);
t6=C_eqp(t5,lf[365]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13454,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1119: every */
f_7109(t1,t7,t3);}
else{
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13468,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:1123: match-types */
t8=*((C_word*)lf[170]+1);{
C_word av2[6];
av2[0]=t8;
av2[1]=t7;
av2[2]=C_u_i_car(t2);
av2[3]=C_i_car(t3);
av2[4]=((C_word*)t0)[2];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}}}}}}

/* a13453 in loop in chicken.compiler.scrutinizer#match-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13454(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_13454,c,av);}
/* scrutinizer.scm:1121: match-types */
t3=*((C_word*)lf[170]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=C_i_cadr(((C_word*)t0)[2]);
av2[3]=t2;
av2[4]=((C_word*)t0)[3];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k13466 in loop in chicken.compiler.scrutinizer#match-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13468(C_word c,C_word *av){
C_word tmp;
C_word 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_13468,c,av);}
if(C_truep(t1)){
/* scrutinizer.scm:1124: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_13421(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_13487(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){
C_save_and_reclaim_args((void *)trf_13487,2,t1,t2);}
a=C_alloc(21);
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_END_OF_LIST;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13490,a[2]=t4,a[3]=t6,a[4]=t10,a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14387,a[2]=t8,a[3]=t1,a[4]=t6,a[5]=t10,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:1254: simplify */
t13=((C_word*)t10)[1];
f_13490(t13,t12,t2);}

/* simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_13490(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,3)))){
C_save_and_reclaim_args((void *)trf_13490,3,t0,t1,t2);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13496,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);
/* scrutinizer.scm:1139: chicken.base#call/cc */
t4=*((C_word*)lf[167]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13496(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(24,c,3)))){
C_save_and_reclaim((void *)f_13496,c,av);}
a=C_alloc(24);
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t3=C_u_i_car(((C_word*)t0)[2]);
t4=C_eqp(t3,lf[29]);
if(C_truep(t4)){
t5=C_i_cadr(((C_word*)t0)[2]);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13517,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)[2],a[7]=t5,tmp=(C_word)a,a+=8,tmp);
t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=((C_word*)t9)[1];
t11=C_i_check_list_2(t5,lf[6]);
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13569,a[2]=t6,a[3]=((C_word*)t0)[3],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|4,a[1]=(C_word)f_13571,a[2]=t9,a[3]=t14,a[4]=t10,tmp=(C_word)a,a+=5,tmp));
t16=((C_word*)t14)[1];
f_13571(t16,t12,t5);}
else{
t5=C_eqp(t3,lf[28]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13612,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=((C_word*)t9)[1];
t11=C_u_i_cdr(((C_word*)t0)[2]);
t12=C_i_check_list_2(t11,lf[6]);
t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13920,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
t14=C_SCHEME_UNDEFINED;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13922,a[2]=t9,a[3]=t15,a[4]=((C_word*)t0)[5],a[5]=t10,tmp=(C_word)a,a+=6,tmp));
t17=((C_word*)t15)[1];
f_13922(t17,t13,t11);}
else{
t6=C_eqp(t3,lf[372]);
if(C_truep(t6)){
t7=C_i_cadr(((C_word*)t0)[2]);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13966,a[2]=t7,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1209: simplify */
t9=((C_word*)((C_word*)t0)[5])[1];
f_13490(t9,t8,C_i_caddr(((C_word*)t0)[2]));}
else{
t7=C_eqp(t3,lf[48]);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14013,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1216: simplify */
t9=((C_word*)((C_word*)t0)[5])[1];
f_13490(t9,t8,C_i_cadr(((C_word*)t0)[2]));}
else{
t8=C_eqp(t3,lf[359]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14052,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1223: simplify */
t10=((C_word*)((C_word*)t0)[5])[1];
f_13490(t10,t9,C_i_cadr(((C_word*)t0)[2]));}
else{
t9=C_eqp(t3,lf[361]);
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14076,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1228: simplify */
t11=((C_word*)((C_word*)t0)[5])[1];
f_13490(t11,t10,C_i_cadr(((C_word*)t0)[2]));}
else{
t10=C_eqp(t3,lf[47]);
if(C_truep(t10)){
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[2])))){
t11=t1;{
C_word *av2=av;
av2[0]=t11;
av2[1]=lf[31];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t11=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t12=t11;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=((C_word*)t13)[1];
t15=C_u_i_cdr(((C_word*)t0)[2]);
t16=C_i_check_list_2(t15,lf[6]);
t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t18=C_SCHEME_UNDEFINED;
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14119,a[2]=t13,a[3]=t19,a[4]=((C_word*)t0)[5],a[5]=t14,tmp=(C_word)a,a+=6,tmp));
t21=((C_word*)t19)[1];
f_14119(t21,t17,t15);}}
else{
t11=C_eqp(t3,lf[50]);
if(C_truep(t11)){
t12=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t13=t12;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=((C_word*)t14)[1];
t16=C_u_i_cdr(((C_word*)t0)[2]);
t17=C_i_check_list_2(t16,lf[6]);
t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14173,a[2]=t1,tmp=(C_word)a,a+=3,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(t20,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14175,a[2]=t14,a[3]=t20,a[4]=((C_word*)t0)[5],a[5]=t15,tmp=(C_word)a,a+=6,tmp));
t22=((C_word*)t20)[1];
f_14175(t22,t18,t16);}
else{
t12=C_eqp(t3,lf[84]);
if(C_truep(t12)){
t13=(
/* scrutinizer.scm:1239: named? */
  f_15671(((C_word*)t0)[2])
);
t14=(C_truep(t13)?C_i_cadr(((C_word*)t0)[2]):C_SCHEME_FALSE);
t15=(C_truep(t14)?C_i_cdddr(((C_word*)t0)[2]):C_i_cddr(((C_word*)t0)[2]));
t16=(C_truep(t14)?C_a_i_list1(&a,1,t14):C_SCHEME_END_OF_LIST);
t17=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t18=t17;
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=((C_word*)t19)[1];
t21=(C_truep(t14)?C_i_caddr(((C_word*)t0)[2]):C_i_cadr(((C_word*)t0)[2]));
t22=C_i_check_list_2(t21,lf[6]);
t23=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14293,a[2]=t1,a[3]=t16,a[4]=t15,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t24=C_SCHEME_UNDEFINED;
t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp);
t26=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14295,a[2]=t19,a[3]=t25,a[4]=((C_word*)t0)[5],a[5]=t20,tmp=(C_word)a,a+=6,tmp));
t27=((C_word*)t25)[1];
f_14295(t27,t23,t21);}
else{
t13=t1;{
C_word *av2=av;
av2[0]=t13;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}}}}}}}}}
else{
t3=C_i_assq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14373,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1141: g2678 */
t5=t4;
f_14373(t5,t1,t3);}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}

/* k13515 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13517(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13517,c,av);}
a=C_alloc(12);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13521,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13532,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13534,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:1152: filter-map */
f_7393(t4,t5,((C_word*)t0)[7]);}

/* k13519 in k13515 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13521(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13521,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
/* scrutinizer.scm:1157: simplify */
t3=((C_word*)((C_word*)t0)[3])[1];
f_13490(t3,((C_word*)t0)[4],C_i_caddr(((C_word*)t0)[5]));}

/* k13530 in k13515 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13532(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13532,c,av);}
/* scrutinizer.scm:1152: scheme#append */
t2=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)((C_word*)t0)[3])[1];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a13533 in k13515 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13534(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_13534,c,av);}
t3=C_i_pairp(t2);
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);}}

/* k13567 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13569(C_word c,C_word *av){
C_word tmp;
C_word 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_13569,c,av);}
/* scrutinizer.scm:1146: scheme#append */
t2=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)((C_word*)t0)[3])[1];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop2411 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_13571(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_13571,3,t0,t1,t2);}
a=C_alloc(7);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_symbolp(t3);
t5=(C_truep(t4)?t3:C_i_car(t3));
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15886,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:1520: chicken.plist#get */
t7=*((C_word*)lf[377]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=t6;
av2[2]=t5;
av2[3]=lf[376];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13612(C_word c,C_word *av){
C_word tmp;
C_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_13612,c,av);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[53];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_i_cdr(t1);
if(C_truep(C_i_nullp(t2))){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_u_i_car(t1);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_length(t1);
if(C_truep(C_fixnum_greaterp(t3,C_fix(20)))){
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[53];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13640,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);
/* scrutinizer.scm:1165: every */
f_7109(t4,lf[121],t1);}}}}

/* k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13640(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_13640,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13646,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13733,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:1166: any */
f_7143(t2,t3,((C_word*)t0)[3]);}
else{
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13743,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)[3],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:1183: lset=/eq? */
f_7793(t2,lf[385],((C_word*)t0)[3]);}}

/* k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13646(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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(5,c,4)))){
C_save_and_reclaim((void *)f_13646,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[84];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_i_car(((C_word*)t0)[3]);
t3=C_u_i_cdr(((C_word*)t0)[3]);
t4=C_i_check_list_2(t3,lf[378]);
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_13658,a[2]=t6,tmp=(C_word)a,a+=3,tmp));
t8=((C_word*)t6)[1];
f_13658(t8,((C_word*)t0)[2],t3,t2);}}

/* foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_13658(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_13658,4,t0,t1,t2,t3);}
a=C_alloc(10);
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13727,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t6=C_slot(t2,C_fix(0));
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13678,a[2]=t5,a[3]=t3,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1170: procedure-name */
f_15155(t7,t6);}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k13676 in foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13678(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13678,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13681,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);
/* scrutinizer.scm:1171: procedure-arguments */
f_15206(t2,((C_word*)t0)[4]);}

/* k13679 in k13676 in foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13681(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13681,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13684,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);
/* scrutinizer.scm:1172: procedure-results */
f_15263(t2,((C_word*)t0)[5]);}

/* k13682 in k13679 in k13676 in foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13684(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13684,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13687,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);
/* scrutinizer.scm:1173: procedure-name */
f_15155(t2,((C_word*)t0)[5]);}

/* k13685 in k13682 in k13679 in k13676 in foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13687(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13687,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13690,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:1174: procedure-arguments */
f_15206(t2,((C_word*)t0)[6]);}

/* k13688 in k13685 in k13682 in k13679 in k13676 in foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13690(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13690,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13693,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);
/* scrutinizer.scm:1175: procedure-results */
f_15263(t2,((C_word*)t0)[7]);}

/* k13691 in k13688 in k13685 in k13682 in k13679 in k13676 in foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_13693(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_13693,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13700,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)t0)[6])){
if(C_truep(((C_word*)t0)[7])){
t3=C_eqp(((C_word*)t0)[6],((C_word*)t0)[7]);
t4=t2;
f_13700(t4,(C_truep(t3)?C_a_i_list1(&a,1,((C_word*)t0)[6]):C_SCHEME_END_OF_LIST));}
else{
t3=t2;
f_13700(t3,C_SCHEME_END_OF_LIST);}}
else{
t3=t2;
f_13700(t3,C_SCHEME_END_OF_LIST);}}

/* k13698 in k13691 in k13688 in k13685 in k13682 in k13679 in k13676 in foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_fcall f_13700(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_13700,2,t0,t1);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13712,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);
/* scrutinizer.scm:1179: merge-argument-types */
f_14456(t2,((C_word*)t0)[5],((C_word*)t0)[6]);}

/* k13706 in k13710 in k13698 in k13691 in k13688 in k13685 in k13682 in k13679 in k13676 in foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_13708(C_word c,C_word *av){
C_word tmp;
C_word 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_13708,c,av);}
/* scrutinizer.scm:1176: scheme#append */
t2=*((C_word*)lf[5]+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[379];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k13710 in k13698 in k13691 in k13688 in k13685 in k13682 in k13679 in k13676 in foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_13712(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_13712,c,av);}
a=C_alloc(12);
t2=C_a_i_list1(&a,1,t1);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13708,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14631,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1303: chicken.base#call/cc */
t5=*((C_word*)lf[167]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k13725 in foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13727(C_word c,C_word *av){
C_word tmp;
C_word 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_13727,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_13658(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* a13732 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13733(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_13733,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_eqp(lf[84],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k13741 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13743(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13743,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[34];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13749,a[2]=((C_word*)t0)[2],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);
/* scrutinizer.scm:1184: lset=/eq? */
f_7793(t2,lf[384],((C_word*)t0)[6]);}}

/* k13747 in k13741 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13749(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13749,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[40];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13755,a[2]=((C_word*)t0)[2],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);
/* scrutinizer.scm:1185: lset=/eq? */
f_7793(t2,lf[383],((C_word*)t0)[6]);}}

/* k13753 in k13747 in k13741 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13755(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_13755,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[381];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13758,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);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13858,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1187: append-map */
f_6939(t2,t3,((C_word*)t0)[6],C_SCHEME_END_OF_LIST);}}

/* k13756 in k13753 in k13747 in k13741 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
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 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_13758,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13761,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_13778,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_13778(t6,t2,t1,C_SCHEME_END_OF_LIST);}

/* k13759 in k13756 in k13753 in k13747 in k13741 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13761(C_word c,C_word *av){
C_word tmp;
C_word t0=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_13761,c,av);}
a=C_alloc(3);
if(C_truep(C_i_equalp(t1,C_u_i_cdr(((C_word*)t0)[2])))){
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);}}
else{
t2=C_a_i_cons(&a,2,lf[28],t1);
/* scrutinizer.scm:1206: simplify */
t3=((C_word*)((C_word*)t0)[4])[1];
f_13490(t3,((C_word*)t0)[3],t2);}}

/* loop in k13756 in k13753 in k13747 in k13741 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_13778(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_13778,4,t0,t1,t2,t3);}
a=C_alloc(9);
if(C_truep(C_i_nullp(t2))){
/* scrutinizer.scm:1197: scheme#reverse */
t4=*((C_word*)lf[367]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t4=C_i_car(t2);
t5=C_eqp(lf[53],t4);
if(C_truep(t5)){
/* scrutinizer.scm:1198: return */
t6=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[53];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13803,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13842,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1199: any */
f_7143(t6,t7,C_u_i_cdr(t2));}}}

/* k13801 in loop in k13756 in k13753 in k13747 in k13741 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13803(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_13803,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
/* scrutinizer.scm:1200: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_13778(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),((C_word*)t0)[5]);}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13814,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13832,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1201: any */
f_7143(t2,t3,((C_word*)t0)[5]);}}

/* k13812 in k13801 in loop in k13756 in k13753 in k13747 in k13741 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13814(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13814,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
/* scrutinizer.scm:1202: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_13778(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),((C_word*)t0)[5]);}
else{
t2=C_u_i_cdr(((C_word*)t0)[4]);
t3=C_u_i_car(((C_word*)t0)[4]);
t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[5]);
/* scrutinizer.scm:1203: loop */
t5=((C_word*)((C_word*)t0)[2])[1];
f_13778(t5,((C_word*)t0)[3],t2,t4);}}

/* a13831 in k13801 in loop in k13756 in k13753 in k13747 in k13741 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13832(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=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_13832,c,av);}
t3=*((C_word*)lf[382]+1);
/* scrutinizer.scm:1201: g2538 */
t4=*((C_word*)lf[382]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=C_i_car(((C_word*)t0)[2]);
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* a13841 in loop in k13756 in k13753 in k13747 in k13741 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13842(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=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_13842,c,av);}
t3=*((C_word*)lf[382]+1);
/* scrutinizer.scm:1199: g2530 */
t4=*((C_word*)lf[382]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=C_i_car(((C_word*)t0)[2]);
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* a13857 in k13753 in k13747 in k13741 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13858(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13858,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13862,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1189: simplify */
t4=((C_word*)((C_word*)t0)[3])[1];
f_13490(t4,t3,t2);}

/* k13860 in a13857 in k13753 in k13747 in k13741 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13862(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_13862,c,av);}
a=C_alloc(3);
t2=C_i_pairp(t1);
t3=(C_truep(t2)?C_eqp(lf[28],C_u_i_car(t1)):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_cdr(t1);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_eqp(t1,lf[35]);
if(C_truep(t4)){
/* scrutinizer.scm:1192: return */
t5=((C_word*)t0)[3];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[35];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t5=C_eqp(t1,lf[70]);
if(C_truep(t5)){
/* scrutinizer.scm:1193: return */
t6=((C_word*)t0)[3];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[53];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t6=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_a_i_list1(&a,1,t1);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}

/* k13918 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13920(C_word c,C_word *av){
C_word tmp;
C_word 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_13920,c,av);}
/* scrutinizer.scm:1159: delete-duplicates */
f_7304(((C_word*)t0)[2],t1,*((C_word*)lf[374]+1));}

/* map-loop2444 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_13922(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_13922,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_13947,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);
/* scrutinizer.scm:1159: g2450 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_13490(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);}}}

/* k13945 in map-loop2444 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13947(C_word c,C_word *av){
C_word tmp;
C_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_13947,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_13922(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k13964 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13966(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_13966,c,av);}
a=C_alloc(12);
if(C_truep(C_i_nullp(((C_word*)t0)[2]))){
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(
/* scrutinizer.scm:1211: refinement-type? */
  f_15847(t1)
);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13985,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t4=C_i_cadr(t1);
t5=C_a_i_list(&a,1,((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_7660,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
t9=((C_word*)t7)[1];
f_7660(t9,t3,t5,t4);}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14000,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1214: delete-duplicates */
f_7304(t3,((C_word*)t0)[2],*((C_word*)lf[374]+1));}}}

/* k13983 in k13964 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_13985(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_13985,c,av);}
a=C_alloc(9);
t2=C_i_caddr(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list3(&a,3,lf[372],t1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k13998 in k13964 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14000(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_14000,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list3(&a,3,lf[372],t1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k14011 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14013(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14013,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14016,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1217: simplify */
t3=((C_word*)((C_word*)t0)[3])[1];
f_13490(t3,t2,C_i_caddr(((C_word*)t0)[4]));}

/* k14014 in k14011 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14016(C_word c,C_word *av){
C_word tmp;
C_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_14016,c,av);}
a=C_alloc(9);
t2=C_eqp(lf[53],((C_word*)t0)[2]);
t3=(C_truep(t2)?C_eqp(lf[53],t1):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[48];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_a_i_list(&a,3,lf[48],((C_word*)t0)[2],t1);
/* scrutinizer.scm:1220: canonicalize-list-type */
f_19317(((C_word*)t0)[3],t4);}}

/* k14050 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14052(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_14052,c,av);}
a=C_alloc(6);
t2=C_eqp(t1,lf[53]);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[50];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_u_i_car(((C_word*)t0)[3]);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,2,t3,t1);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k14074 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14076(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_14076,c,av);}
a=C_alloc(6);
t2=C_eqp(t1,lf[53]);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[47];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_u_i_car(((C_word*)t0)[3]);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,2,t3,t1);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k14115 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14117(C_word c,C_word *av){
C_word tmp;
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_14117,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,lf[47],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop2569 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14119(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_14119,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_14144,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);
/* scrutinizer.scm:1235: g2575 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_13490(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);}}}

/* k14142 in map-loop2569 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14144(C_word c,C_word *av){
C_word tmp;
C_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_14144,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_14119(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k14171 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14173(C_word c,C_word *av){
C_word tmp;
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_14173,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,lf[50],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop2598 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14175(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_14175,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_14200,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);
/* scrutinizer.scm:1237: g2604 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_13490(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);}}}

/* k14198 in map-loop2598 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14200(C_word c,C_word *av){
C_word tmp;
C_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_14200,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_14175(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k14232 in k14291 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14234(C_word c,C_word *av){
C_word tmp;
C_word 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_14234,c,av);}
/* scrutinizer.scm:1241: scheme#append */
t2=*((C_word*)lf[5]+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[389];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* map-loop2653 in k14291 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14248(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_14248,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_14273,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);
/* scrutinizer.scm:1247: g2659 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_13490(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);}}}

/* k14271 in map-loop2653 in k14291 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14273(C_word c,C_word *av){
C_word tmp;
C_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_14273,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_14248(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k14291 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14293(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,5)))){
C_save_and_reclaim((void *)f_14293,c,av);}
a=C_alloc(21);
t2=C_a_i_list1(&a,1,t1);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14234,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_eqp(lf[53],((C_word*)t0)[4]);
if(C_truep(t4)){
/* scrutinizer.scm:1241: scheme#append */
t5=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[389];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
av2[5]=lf[53];
((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}
else{
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=C_i_check_list_2(((C_word*)t0)[4],lf[6]);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14248,a[2]=t7,a[3]=t11,a[4]=((C_word*)t0)[5],a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_14248(t13,t3,((C_word*)t0)[4]);}}

/* map-loop2627 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14295(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_14295,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_14320,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);
/* scrutinizer.scm:1244: g2633 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_13490(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);}}}

/* k14318 in map-loop2627 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14320(C_word c,C_word *av){
C_word tmp;
C_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_14320,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_14295(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* g2678 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14373(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,4)))){
C_save_and_reclaim_args((void *)trf_14373,3,t0,t1,t2);}
a=C_alloc(13);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14378,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=((C_word*)((C_word*)t0)[2])[1];
t5=C_a_i_list(&a,1,((C_word*)t0)[3]);
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_7574,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
t9=((C_word*)t7)[1];
f_7574(t9,t3,t5,t4);}

/* k14376 in g2678 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14378(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14378,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]=C_i_cdr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14385 in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14387(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14387,c,av);}
a=C_alloc(11);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[2])[1]))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14404,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14406,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1257: filter-map */
f_7393(t4,t5,((C_word*)((C_word*)t0)[6])[1]);}
else{
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t3)[1];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k14402 in k14385 in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14404(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_14404,c,av);}
a=C_alloc(9);
t2=C_a_i_list(&a,3,lf[29],t1,((C_word*)((C_word*)t0)[2])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a14405 in k14385 in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14406(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
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(4,c,3)))){
C_save_and_reclaim((void *)f_14406,c,av);}
a=C_alloc(4);
t3=C_i_car(t2);
if(C_truep(C_i_memq(t3,((C_word*)((C_word*)t0)[2])[1]))){
t4=C_u_i_cdr(t2);
t5=C_i_assq(C_u_i_car(t2),((C_word*)((C_word*)t0)[3])[1]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14421,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1261: g2696 */
t7=t6;
f_14421(t7,t1,t5);}
else{
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* g2696 in a14405 in k14385 in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14421(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_14421,3,t0,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14429,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1263: simplify */
t4=((C_word*)((C_word*)t0)[3])[1];
f_13490(t4,t3,C_i_cadr(t2));}

/* k14427 in g2696 in a14405 in k14385 in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14429(C_word c,C_word *av){
C_word tmp;
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_14429,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);}}

/* chicken.compiler.scrutinizer#merge-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14456(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_14456,3,t1,t2,t3);}
a=C_alloc(14);
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=C_i_car(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep((C_truep(C_eqp(t4,lf[365]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[364]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))?t3:lf[390]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=lf[391];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
t5=C_eqp(lf[365],t4);
if(C_truep(t5)){
t6=C_i_pairp(t3);
t7=(C_truep(t6)?C_eqp(lf[365],C_u_i_car(t3)):C_SCHEME_FALSE);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14502,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t9=(
/* scrutinizer.scm:1288: rest-type */
  f_15724(C_u_i_cdr(t2))
);
t10=(
/* scrutinizer.scm:1289: rest-type */
  f_15724(C_i_cdr(t3))
);
t11=C_a_i_list(&a,3,lf[28],t9,t10);
/* scrutinizer.scm:1287: simplify-type */
f_13487(t8,t11);}
else{
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=lf[392];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
else{
t6=C_eqp(lf[364],C_u_i_car(t2));
if(C_truep(t6)){
t7=C_i_pairp(t3);
t8=(C_truep(t7)?C_eqp(lf[364],C_u_i_car(t3)):C_SCHEME_FALSE);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14551,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t10=C_i_cadr(t2);
t11=C_i_cadr(t3);
t12=C_a_i_list(&a,3,lf[28],t10,t11);
/* scrutinizer.scm:1294: simplify-type */
f_13487(t9,t12);}
else{
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=lf[393];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t7=C_i_car(t3);
if(C_truep((C_truep(C_eqp(t7,lf[365]))?C_SCHEME_TRUE:(C_truep(C_eqp(t7,lf[364]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
/* scrutinizer.scm:1298: merge-argument-types */
t14=t1;
t15=t3;
t16=t2;
t1=t14;
t2=t15;
t3=t16;
goto loop;}
else{
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14601,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t9=C_u_i_car(t2);
t10=C_u_i_car(t3);
t11=C_a_i_list(&a,3,lf[28],t9,t10);
/* scrutinizer.scm:1299: simplify-type */
f_13487(t8,t11);}}}}}}

/* k14500 in chicken.compiler.scrutinizer#merge-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14502(C_word c,C_word *av){
C_word tmp;
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_14502,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,2,lf[365],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k14549 in chicken.compiler.scrutinizer#merge-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14551(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14551,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14555,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1295: merge-argument-types */
f_14456(t2,C_i_cddr(((C_word*)t0)[3]),C_i_cddr(((C_word*)t0)[4]));}

/* k14553 in k14549 in chicken.compiler.scrutinizer#merge-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_14555,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[364],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14599 in chicken.compiler.scrutinizer#merge-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14601(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_14601,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14605,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1300: merge-argument-types */
f_14456(t2,C_u_i_cdr(((C_word*)t0)[3]),C_u_i_cdr(((C_word*)t0)[4]));}

/* k14603 in k14599 in chicken.compiler.scrutinizer#merge-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14605(C_word c,C_word *av){
C_word tmp;
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_14605,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);}}

/* a14630 in k13710 in k13698 in k13691 in k13688 in k13685 in k13682 in k13679 in k13676 in foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_14631(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,4)))){
C_save_and_reclaim((void *)f_14631,c,av);}
a=C_alloc(6);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14637,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_14637(t6,t1,((C_word*)t0)[2],((C_word*)t0)[3]);}

/* loop in a14630 in k13710 in k13698 in k13691 in k13688 in k13685 in k13682 in k13679 in k13676 in foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_fcall f_14637(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
C_save_and_reclaim_args((void *)trf_14637,4,t0,t1,t2,t3);}
a=C_alloc(15);
t4=C_i_nullp(t2);
t5=(C_truep(t4)?C_i_nullp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_i_not_pair_p(t2);
t7=(C_truep(t6)?t6:C_i_not_pair_p(t3));
if(C_truep(t7)){
/* scrutinizer.scm:1307: return */
t8=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t8;
av2[1]=t1;
av2[2]=lf[53];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14663,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t9=C_i_car(t2);
t10=C_i_car(t3);
t11=C_a_i_list(&a,3,lf[28],t9,t10);
/* scrutinizer.scm:1308: simplify-type */
f_13487(t8,t11);}}}

/* k14661 in loop in a14630 in k13710 in k13698 in k13691 in k13688 in k13685 in k13682 in k13679 in k13676 in foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_14663(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14663,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14667,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1309: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_14637(t3,t2,C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}

/* k14665 in k14661 in loop in a14630 in k13710 in k13698 in k13691 in k13688 in k13685 in k13682 in k13679 in k13676 in foldl2487 in k13644 in k13638 in k13610 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in ... */
static void C_ccall f_14667(C_word c,C_word *av){
C_word tmp;
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_14667,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.scrutinizer#compatible-types? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14694(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_14694,4,t1,t2,t3,t4);}
a=C_alloc(14);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14698,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_nullp(t4))){
t6=C_a_i_list(&a,3,lf[28],t2,t3);
/* scrutinizer.scm:1312: type-typeenv */
t7=lf[161];{
C_word av2[3];
av2[0]=t7;
av2[1]=t5;
av2[2]=t6;
f_15894(3,av2);}}
else{
t6=t5;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_i_car(t4);
f_14698(2,av2);}}}

/* k14696 in chicken.compiler.scrutinizer#compatible-types? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14698(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14698,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14701,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);
/* scrutinizer.scm:1313: type<=? */
t3=*((C_word*)lf[382]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k14699 in k14696 in chicken.compiler.scrutinizer#compatible-types? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14701(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_14701,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{
/* scrutinizer.scm:1314: type<=? */
t2=*((C_word*)lf[382]+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_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}

/* k14724 in k14911 in k14877 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14726(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14726,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14732,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);
/* scrutinizer.scm:1317: type<=? */
t3=*((C_word*)lf[382]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k14730 in k14724 in k14911 in k14877 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14732(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_14732,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14738,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1318: type<=? */
t3=*((C_word*)lf[382]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k14736 in k14730 in k14724 in k14911 in k14877 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14738(C_word c,C_word *av){
C_word tmp;
C_word 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_14738,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.scrutinizer#type<=? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14753(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(14,c,2)))){
C_save_and_reclaim((void *)f_14753,c,av);}
a=C_alloc(14);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14757,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_rest_nullp(c,4))){
t5=C_a_i_list(&a,3,lf[28],t2,t3);
/* scrutinizer.scm:1321: type-typeenv */
t6=lf[161];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
f_15894(3,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_get_rest_arg(c,4,av,4,t0);
f_14757(2,av2);}}}

/* k14755 in chicken.compiler.scrutinizer#type<=? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14757(C_word c,C_word *av){
C_word tmp;
C_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_14757,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14762,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t3=lf[24];
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16264,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1562: thunk */
t5=t2;
f_14762(t5,t4);}

/* a14761 in k14755 in chicken.compiler.scrutinizer#type<=? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14762(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_14762,2,t0,t1);}
/* scrutinizer.scm:1325: match-types */
t2=*((C_word*)lf[170]+1);{
C_word av2[6];
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14781(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(14,c,2)))){
C_save_and_reclaim((void *)f_14781,c,av);}
a=C_alloc(14);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15082,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t5=C_a_i_list(&a,3,lf[28],t2,t3);
/* scrutinizer.scm:1364: type-typeenv */
t6=lf[161];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
f_15894(3,av2);}}

/* loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14790(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,4)))){
C_save_and_reclaim_args((void *)trf_14790,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14794,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);
if(C_truep(C_i_symbolp(t2))){
/* scrutinizer.scm:1272: chicken.base#alist-ref */
t5=*((C_word*)lf[275]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[373];
av2[4]=*((C_word*)lf[374]+1);
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_14794(2,av2);}}}

/* k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14794(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14794,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14798,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1337: g2831 */
t3=t2;
f_14798(t3,((C_word*)t0)[4],t1);}
else{
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14808,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
/* scrutinizer.scm:1272: chicken.base#alist-ref */
t3=*((C_word*)lf[275]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[373];
av2[4]=*((C_word*)lf[374]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_14808(2,av2);}}}}

/* g2831 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14798(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_14798,3,t0,t1,t2);}
/* scrutinizer.scm:1338: g2839 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_14790(t3,t1,t2,((C_word*)t0)[3]);}

/* k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14808(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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_14808,c,av);}
a=C_alloc(11);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14812,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1337: g2842 */
t3=t2;
f_14812(t3,((C_word*)t0)[4],t1);}
else{
t2=C_i_pairp(((C_word*)t0)[3]);
t3=(C_truep(t2)?C_u_i_memq(C_u_i_car(((C_word*)t0)[3]),lf[394]):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14828,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1341: loop */
t5=((C_word*)((C_word*)t0)[2])[1];
f_14790(t5,t4,C_i_caddr(((C_word*)t0)[3]),((C_word*)t0)[5]);}
else{
t4=C_i_pairp(((C_word*)t0)[5]);
t5=(C_truep(t4)?C_u_i_memq(C_u_i_car(((C_word*)t0)[5]),lf[395]):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14855,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1344: loop */
t7=((C_word*)((C_word*)t0)[2])[1];
f_14790(t7,t6,((C_word*)t0)[3],C_i_caddr(((C_word*)t0)[5]));}
else{
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14879,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
t7=C_eqp(C_u_i_car(((C_word*)t0)[3]),lf[28]);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15052,a[2]=((C_word*)t0)[5],a[3]=t6,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1348: lset=/eq? */
f_7793(t8,lf[397],C_u_i_cdr(((C_word*)t0)[3]));}
else{
t8=t6;
f_14879(t8,C_SCHEME_FALSE);}}
else{
t7=t6;
f_14879(t7,C_SCHEME_FALSE);}}}}}

/* g2842 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14812(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_14812,3,t0,t1,t2);}
/* scrutinizer.scm:1339: g2850 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_14790(t3,t1,((C_word*)t0)[3],t2);}

/* k14826 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14828(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_14828,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_i_cadr(((C_word*)t0)[2]);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list3(&a,3,t2,t3,t1);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k14853 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14855(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_14855,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_i_cadr(((C_word*)t0)[2]);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list3(&a,3,t2,t3,t1);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k14877 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14879(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(7,0,3)))){
C_save_and_reclaim_args((void *)trf_14879,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_i_pairp(((C_word*)t0)[4]);
t3=(C_truep(t2)?C_eqp(C_u_i_car(((C_word*)t0)[4]),lf[28]):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14888,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14899,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1352: filter-map */
f_7393(t4,t5,C_i_cdr(((C_word*)t0)[4]));}
else{
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14913,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[4]))){
t5=C_u_i_car(((C_word*)t0)[4]);
if(C_truep((C_truep(C_eqp(t5,lf[48]))?C_SCHEME_TRUE:(C_truep(C_eqp(t5,lf[47]))?C_SCHEME_TRUE:(C_truep(C_eqp(t5,lf[50]))?C_SCHEME_TRUE:(C_truep(C_eqp(t5,lf[359]))?C_SCHEME_TRUE:(C_truep(C_eqp(t5,lf[361]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))){
if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
t6=C_eqp(C_u_i_car(((C_word*)t0)[4]),C_u_i_car(((C_word*)t0)[3]));
t7=t4;
f_14913(t7,(C_truep(t6)?C_eqp(C_i_length(((C_word*)t0)[4]),C_i_length(((C_word*)t0)[3])):C_SCHEME_FALSE));}
else{
t6=t4;
f_14913(t6,C_SCHEME_FALSE);}}
else{
t6=t4;
f_14913(t6,C_SCHEME_FALSE);}}
else{
t5=t4;
f_14913(t5,C_SCHEME_FALSE);}}}}

/* k14886 in k14877 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14888(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14888,c,av);}
a=C_alloc(3);
t2=C_i_pairp(t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?C_a_i_cons(&a,2,lf[28],t1):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a14898 in k14877 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14899(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_14899,c,av);}
/* scrutinizer.scm:1352: loop */
t3=((C_word*)((C_word*)t0)[2])[1];
f_14790(t3,t1,t2,((C_word*)t0)[3]);}

/* k14911 in k14877 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14913(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){
C_save_and_reclaim_args((void *)trf_14913,2,t0,t1);}
a=C_alloc(17);
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=C_i_cdr(((C_word*)t0)[2]);
t7=C_i_cdr(((C_word*)t0)[3]);
t8=C_i_check_list_2(t6,lf[6]);
t9=C_i_check_list_2(t7,lf[6]);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14931,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14944,a[2]=t4,a[3]=t12,a[4]=((C_word*)t0)[5],a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t14=((C_word*)t12)[1];
f_14944(t14,t10,t6,t7);}
else{
t2=C_a_i_list(&a,1,((C_word*)t0)[6]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14726,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_nullp(t2))){
t4=C_a_i_list(&a,3,lf[28],((C_word*)t0)[2],((C_word*)t0)[3]);
/* scrutinizer.scm:1316: type-typeenv */
t5=lf[161];{
C_word av2[3];
av2[0]=t5;
av2[1]=t3;
av2[2]=t4;
f_15894(3,av2);}}
else{
t4=t3;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_i_car(t2);
f_14726(2,av2);}}}}

/* k14929 in k14911 in k14877 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14931(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14931,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14937,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1360: every */
f_7109(t2,*((C_word*)lf[396]+1),t1);}

/* k14935 in k14929 in k14911 in k14877 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14937(C_word c,C_word *av){
C_word tmp;
C_word t0=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_14937,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_u_i_car(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* map-loop2873 in k14911 in k14877 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_14944(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_14944,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14973,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:1359: g2879 */
t7=((C_word*)((C_word*)t0)[4])[1];
f_14790(t7,t6,C_slot(t2,C_fix(0)),C_slot(t3,C_fix(0)));}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k14971 in map-loop2873 in k14911 in k14877 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_14973(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_14973,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_14944(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)));}

/* k15050 in k14806 in k14792 in loop in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15052(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15052,c,av);}
if(C_truep(t1)){
t2=C_i_pairp(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];
f_14879(t3,(C_truep(t2)?C_eqp(lf[361],C_u_i_car(((C_word*)t0)[2])):C_SCHEME_FALSE));}
else{
t2=((C_word*)t0)[3];
f_14879(t2,C_SCHEME_FALSE);}}

/* k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15082(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15082,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15085,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14790,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_14790(t6,t2,((C_word*)t0)[4],((C_word*)t0)[2]);}

/* k15083 in k15080 in chicken.compiler.scrutinizer#refine-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15085(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,2)))){
C_save_and_reclaim((void *)f_15085,c,av);}
t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(t3)){
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* scrutinizer.scm:1368: simplify-type */
f_13487(((C_word*)t0)[3],t2);}}

/* chicken.compiler.scrutinizer#procedure-type? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15103(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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
av[0]=t0;
av[1]=t1;
av[2]=t2;
C_save_and_reclaim((void *)f_15103,c,av);}
t3=C_eqp(lf[84],t2);
if(C_truep(t3)){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(t2))){
t4=C_u_i_car(t2);
t5=C_eqp(t4,lf[29]);
if(C_truep(t5)){
/* scrutinizer.scm:1376: procedure-type? */
t9=t1;
t10=C_i_caddr(t2);
t1=t9;
t2=t10;
c=3;
goto loop;}
else{
t6=C_eqp(t4,lf[84]);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(t4,lf[28]);
if(C_truep(t7)){
/* scrutinizer.scm:1378: every */
f_7109(t1,lf[121],C_u_i_cdr(t2));}
else{
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}

/* chicken.compiler.scrutinizer#procedure-name in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_15155(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(0,0,2)))){
C_save_and_reclaim_args((void *)trf_15155,2,t1,t2);}
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_car(t2);
t4=C_eqp(t3,lf[29]);
if(C_truep(t4)){
/* scrutinizer.scm:1384: procedure-name */
t9=t1;
t10=C_i_caddr(t2);
t1=t9;
t2=t10;
goto loop;}
else{
t5=C_eqp(t3,lf[84]);
if(C_truep(t5)){
t6=C_i_cadr(t2);
if(C_truep(C_i_stringp(t6))){
/* scrutinizer.scm:1387: scheme#string->symbol */
t7=*((C_word*)lf[252]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t1;
av2[2]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t7=C_i_symbolp(t6);
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=(C_truep(t7)?t6:C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
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{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* chicken.compiler.scrutinizer#procedure-arguments in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_15206(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(0,0,3)))){
C_save_and_reclaim_args((void *)trf_15206,2,t1,t2);}
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_car(t2);
t4=C_eqp(t3,lf[29]);
if(C_truep(t4)){
/* scrutinizer.scm:1395: procedure-arguments */
t10=t1;
t11=C_i_caddr(t2);
t1=t10;
t2=t11;
goto loop;}
else{
t5=C_eqp(t3,lf[84]);
if(C_truep(t5)){
t6=C_i_cadr(t2);
t7=C_i_stringp(t6);
if(C_truep(t7)){
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=(C_truep(t7)?C_i_caddr(t2):C_i_cadr(t2));
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=C_i_symbolp(t6);
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=(C_truep(t8)?C_i_caddr(t2):C_i_cadr(t2));
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
/* scrutinizer.scm:1401: chicken.compiler.support#bomb */
t6=*((C_word*)lf[343]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[398];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* chicken.compiler.scrutinizer#procedure-results in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_15263(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(0,0,3)))){
C_save_and_reclaim_args((void *)trf_15263,2,t1,t2);}
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_car(t2);
t4=C_eqp(t3,lf[29]);
if(C_truep(t4)){
/* scrutinizer.scm:1406: procedure-results */
t10=t1;
t11=C_i_caddr(t2);
t1=t10;
t2=t11;
goto loop;}
else{
t5=C_eqp(t3,lf[84]);
if(C_truep(t5)){
t6=C_i_cadr(t2);
t7=C_i_stringp(t6);
if(C_truep(t7)){
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=(C_truep(t7)?C_i_cdddr(t2):C_i_cddr(t2));
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=C_i_symbolp(t6);
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=(C_truep(t8)?C_i_cdddr(t2):C_i_cddr(t2));
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
/* scrutinizer.scm:1412: chicken.compiler.support#bomb */
t6=*((C_word*)lf[343]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[399];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* chicken.compiler.scrutinizer#procedure-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_15320(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_15320,5,t1,t2,t3,t4,t5);}
a=C_alloc(8);
t6=C_i_nullp(t5);
t7=(C_truep(t6)?C_SCHEME_FALSE:C_i_car(t5));
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15329,a[2]=t7,a[3]=t3,a[4]=t9,a[5]=t4,tmp=(C_word)a,a+=6,tmp));
t11=((C_word*)t9)[1];
f_15329(t11,t1,t2,C_SCHEME_END_OF_LIST);}

/* loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_15329(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){
C_save_and_reclaim_args((void *)trf_15329,4,t0,t1,t2,t3);}
a=C_alloc(20);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_eqp(lf[84],C_u_i_car(t2)):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=C_SCHEME_FALSE;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_TRUE;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_fix(0);
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15339,a[2]=t1,a[3]=t7,a[4]=t9,a[5]=t11,tmp=(C_word)a,a+=6,tmp);
t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15346,a[2]=t9,a[3]=((C_word*)t0)[2],a[4]=t7,a[5]=t11,a[6]=t12,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
t14=C_i_cadr(t2);
t15=C_i_stringp(t14);
if(C_truep(t15)){
t16=t13;
f_15346(t16,(C_truep(t15)?C_i_caddr(t2):C_i_cadr(t2)));}
else{
t16=C_i_cadr(t2);
t17=C_i_symbolp(t16);
t18=t13;
f_15346(t18,(C_truep(t17)?C_i_caddr(t2):C_i_cadr(t2)));}}
else{
t6=C_i_pairp(t2);
t7=(C_truep(t6)?C_eqp(lf[29],C_u_i_car(t2)):C_SCHEME_FALSE);
if(C_truep(t7)){
/* scrutinizer.scm:1447: loop1 */
t19=t1;
t20=C_i_caddr(t2);
t21=t3;
t1=t19;
t2=t20;
t3=t21;
goto loop;}
else{
t8=C_i_assq(t2,((C_word*)t0)[5]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15483,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1416: g3018 */
t10=t9;
f_15483(t10,t1,t8);}
else{
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15516,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1454: make-list */
f_7934(t9,((C_word*)t0)[3],C_a_i_list(&a,1,lf[53]));}}}}

/* k15337 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15339(C_word c,C_word *av){
C_word tmp;
C_word 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_15339,c,av);}
/* scrutinizer.scm:1445: scheme#values */{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)((C_word*)t0)[3])[1];
av2[4]=((C_word*)((C_word*)t0)[4])[1];
av2[5]=((C_word*)((C_word*)t0)[5])[1];
C_values(6,av2);}}

/* k15344 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_15346(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,5)))){
C_save_and_reclaim_args((void *)trf_15346,2,t0,t1);}
a=C_alloc(9);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15348,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp));
t5=((C_word*)t3)[1];
f_15348(t5,((C_word*)t0)[6],t1,((C_word*)t0)[7],C_SCHEME_FALSE);}

/* loop in k15344 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_15348(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(62,0,4)))){
C_save_and_reclaim_args((void *)trf_15348,5,t0,t1,t2,t3,t4);}
a=C_alloc(62);
if(C_truep(C_i_nullp(t2))){
if(C_truep(t4)){
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4);
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=C_i_zerop(t3);
t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
else{
t5=C_i_car(t2);
t6=C_eqp(lf[364],t5);
if(C_truep(t6)){
if(C_truep(((C_word*)t0)[3])){
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
/* scrutinizer.scm:1434: loop */
t17=t1;
t18=C_u_i_cdr(t2);
t19=t3;
t20=C_SCHEME_TRUE;
t1=t17;
t2=t18;
t3=t19;
t4=t20;
goto loop;}}
else{
t7=C_eqp(lf[365],C_u_i_car(t2));
if(C_truep(t7)){
if(C_truep(((C_word*)t0)[3])){
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=C_i_pairp(C_u_i_cdr(t2));
t9=(C_truep(t8)?C_eqp(lf[400],C_i_cadr(t2)):C_SCHEME_FALSE);
t10=C_set_block_item(((C_word*)t0)[5],0,t9);
t11=(
/* scrutinizer.scm:1439: rest-type */
  f_15724(C_u_i_cdr(t2))
);
/* scrutinizer.scm:1439: make-list */
f_7934(t1,t3,C_a_i_list(&a,1,t11));}}
else{
t8=(C_truep(t4)?C_i_less_or_equalp(t3,C_fix(0)):C_SCHEME_FALSE);
if(C_truep(t8)){
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t9=C_set_block_item(((C_word*)t0)[2],0,C_i_positivep(t3));
t10=((C_word*)((C_word*)t0)[6])[1];
t11=C_mutate(((C_word *)((C_word*)t0)[6])+1,C_s_a_i_plus(&a,2,t10,C_fix(1)));
t12=C_u_i_car(t2);
t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15427,a[2]=t1,a[3]=t12,tmp=(C_word)a,a+=4,tmp);
t14=C_u_i_cdr(t2);
t15=C_s_a_i_minus(&a,2,t3,C_fix(1));
/* scrutinizer.scm:1444: loop */
t17=t13;
t18=t14;
t19=t15;
t20=t4;
t1=t17;
t2=t18;
t3=t19;
t4=t20;
goto loop;}}}}}

/* k15425 in loop in k15344 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15427(C_word c,C_word *av){
C_word tmp;
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_15427,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);}}

/* g3018 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_15483(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_15483,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_i_cadr(t2);
t4=(C_truep(t3)?C_i_memq(t3,((C_word*)t0)[2]):C_SCHEME_FALSE);
if(C_truep(t4)){
/* scrutinizer.scm:1452: loop1 */
t5=((C_word*)((C_word*)t0)[3])[1];
f_15329(t5,t1,lf[53],((C_word*)t0)[2]);}
else{
t5=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[2]);
/* scrutinizer.scm:1453: loop1 */
t6=((C_word*)((C_word*)t0)[3])[1];
f_15329(t6,t1,t3,t5);}}

/* k15514 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15516(C_word c,C_word *av){
C_word tmp;
C_word 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_15516,c,av);}
/* scrutinizer.scm:1454: scheme#values */{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
av2[5]=((C_word*)t0)[3];
C_values(6,av2);}}

/* loop1 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_15543(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,3)))){
C_save_and_reclaim_args((void *)trf_15543,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(((C_word*)t0)[2])){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_assq(t2,((C_word*)t0)[4]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15554,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1458: g3037 */
t5=t4;
f_15554(t5,t1,t3);}
else{
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_eqp(lf[84],C_u_i_car(t2)):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15576,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1461: chicken.base#call/cc */
t7=*((C_word*)lf[167]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t1;
av2[2]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t6=C_i_pairp(t2);
t7=(C_truep(t6)?C_eqp(lf[29],C_u_i_car(t2)):C_SCHEME_FALSE);
if(C_truep(t7)){
/* scrutinizer.scm:1470: loop1 */
t9=t1;
t10=C_i_caddr(t2);
t1=t9;
t2=t10;
goto loop;}
else{
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=lf[53];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}}}

/* g3037 in loop1 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_fcall f_15554(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,2)))){
C_save_and_reclaim_args((void *)trf_15554,3,t0,t1,t2);}
/* scrutinizer.scm:1459: loop1 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_15543(t3,t1,C_i_cadr(t2));}

/* a15575 in loop1 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_15576(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_15576,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15584,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=C_i_cadr(((C_word*)t0)[2]);
t5=C_i_stringp(t4);
if(C_truep(t5)){
t6=t3;
f_15584(t6,(C_truep(t5)?C_i_cdddr(((C_word*)t0)[2]):C_i_cddr(((C_word*)t0)[2])));}
else{
t6=C_i_cadr(((C_word*)t0)[2]);
t7=C_i_symbolp(t6);
t8=t3;
f_15584(t8,(C_truep(t7)?C_i_cdddr(((C_word*)t0)[2]):C_i_cddr(((C_word*)t0)[2])));}}

/* k15582 in a15575 in loop1 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_fcall f_15584(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_15584,2,t0,t1);}
a=C_alloc(6);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15586,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t5=((C_word*)t3)[1];
f_15586(t5,((C_word*)t0)[3],t1);}

/* loop in k15582 in a15575 in loop1 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_15586(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_15586,3,t0,t1,t2);}
a=C_alloc(4);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep((C_truep(C_eqp(t2,lf[53]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[70]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
/* scrutinizer.scm:1467: return */
t3=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[53];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t3=C_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15612,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1468: loop */
t6=t4;
t7=C_u_i_cdr(t2);
t1=t6;
t2=t7;
goto loop;}}}

/* k15610 in loop in k15582 in a15575 in loop1 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_15612(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_15612,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.scrutinizer#named? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static C_word C_fcall f_15671(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=C_u_i_car(t1);
t3=C_eqp(t2,lf[84]);
if(C_truep(t3)){
t4=C_i_cadr(t1);
t5=C_i_nullp(t4);
if(C_truep(t5)){
return(C_i_not(t5));}
else{
t6=C_u_i_cdr(t1);
return(C_i_not(C_i_pairp(C_u_i_car(t6))));}}
else{
t4=C_eqp(t2,lf[29]);
if(C_truep(t4)){
t8=C_i_caddr(t1);
t1=t8;
goto loop;}
else{
return(C_SCHEME_FALSE);}}}
else{
return(C_SCHEME_FALSE);}}

/* chicken.compiler.scrutinizer#rest-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static C_word C_fcall f_15724(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;{}
if(C_truep(C_i_nullp(t1))){
return(lf[53]);}
else{
t2=C_i_car(t1);
t3=C_eqp(lf[400],t2);
return((C_truep(t3)?lf[53]:C_u_i_car(t1)));}}

/* chicken.compiler.scrutinizer#noreturn-procedure-type? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static C_word C_fcall f_15744(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=C_u_i_car(t1);
t3=C_eqp(t2,lf[84]);
if(C_truep(t3)){
if(C_truep(C_i_listp(t1))){
t4=C_i_cadr(t1);
t5=C_i_pairp(t4);
t6=(C_truep(t5)?C_i_cddr(t1):C_i_cdddr(t1));
return(C_i_equalp(lf[401],t6));}
else{
return(C_SCHEME_FALSE);}}
else{
t4=C_eqp(t2,lf[29]);
if(C_truep(t4)){
t8=C_i_caddr(t1);
t1=t8;
goto loop;}
else{
return(C_SCHEME_FALSE);}}}
else{
return(C_SCHEME_FALSE);}}

/* chicken.compiler.scrutinizer#noreturn-type? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15803(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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
av[0]=t0;
av[1]=t1;
av[2]=t2;
C_save_and_reclaim((void *)f_15803,c,av);}
t3=C_eqp(lf[70],t2);
if(C_truep(t3)){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(t2))){
t4=C_u_i_car(t2);
t5=C_eqp(t4,lf[28]);
if(C_truep(t5)){
/* scrutinizer.scm:1504: any */
f_7143(t1,lf[402],C_u_i_cdr(t2));}
else{
t6=C_eqp(t4,lf[29]);
if(C_truep(t6)){
/* scrutinizer.scm:1505: noreturn-type? */
t8=t1;
t9=C_i_caddr(t2);
t1=t8;
t2=t9;
c=3;
goto loop;}
else{
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}

/* chicken.compiler.scrutinizer#refinement-type? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static C_word C_fcall f_15847(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=C_i_car(t1);
t3=C_eqp(t2,lf[372]);
if(C_truep(t3)){
return(C_SCHEME_TRUE);}
else{
t4=C_eqp(t2,lf[29]);
if(C_truep(t4)){
t6=C_i_caddr(t1);
t1=t6;
goto loop;}
else{
return(C_SCHEME_FALSE);}}}
else{
return(C_SCHEME_FALSE);}}

/* k15884 in map-loop2411 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15886(C_word c,C_word *av){
C_word tmp;
C_word t0=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_15886,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15889,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);
/* scrutinizer.scm:1522: chicken.base#gensym */
t3=*((C_word*)lf[197]+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);}}

/* k15887 in k15884 in map-loop2411 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15889(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_15889,c,av);}
a=C_alloc(14);
t2=C_a_i_putprop(&a,3,t1,lf[376],((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
t5=C_i_setslot(((C_word*)((C_word*)t0)[4])[1],C_fix(1),t4);
t6=C_mutate(((C_word *)((C_word*)t0)[4])+1,t4);
t7=((C_word*)((C_word*)t0)[5])[1];
f_13571(t7,((C_word*)t0)[6],C_slot(((C_word*)t0)[7],C_fix(1)));}

/* chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15894(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_15894,c,av);}
a=C_alloc(12);
t3=C_SCHEME_END_OF_LIST;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15898,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,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_15900,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_15900(t9,t5,t2);}

/* k15896 in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15898(C_word c,C_word *av){
C_word tmp;
C_word 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_15898,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);}}

/* loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_15900(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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(22,0,3)))){
C_save_and_reclaim_args((void *)trf_15900,3,t0,t1,t2);}
a=C_alloc(22);
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_car(t2);
t4=C_eqp(t3,lf[372]);
if(C_truep(t4)){
/* scrutinizer.scm:1532: loop */
t19=t1;
t20=C_i_caddr(t2);
t1=t19;
t2=t20;
goto loop;}
else{
t5=C_eqp(t3,lf[84]);
if(C_truep(t5)){
t6=C_i_cadr(t2);
t7=C_i_stringp(t6);
t8=(C_truep(t7)?t7:C_i_symbolp(C_i_cadr(t2)));
if(C_truep(t8)){
t9=C_i_caddr(t2);
t10=C_i_check_list_2(t9,lf[212]);
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15945,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15989,a[2]=t13,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
t15=((C_word*)t13)[1];
f_15989(t15,t11,t9);}
else{
t9=C_i_cadr(t2);
t10=C_i_check_list_2(t9,lf[212]);
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16019,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16062,a[2]=t13,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
t15=((C_word*)t13)[1];
f_16062(t15,t11,t9);}}
else{
t6=C_eqp(t3,lf[29]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16104,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t9=t8;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=((C_word*)t10)[1];
t12=C_i_cadr(t2);
t13=C_i_check_list_2(t12,lf[6]);
t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16146,a[2]=t7,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t15=C_SCHEME_UNDEFINED;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16148,a[2]=t10,a[3]=t16,a[4]=t11,tmp=(C_word)a,a+=5,tmp));
t18=((C_word*)t16)[1];
f_16148(t18,t14,t12);}
else{
t7=C_eqp(t3,lf[28]);
if(C_truep(t7)){
t8=C_u_i_cdr(t2);
t9=C_i_check_list_2(t8,lf[212]);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16195,a[2]=t11,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
t13=((C_word*)t11)[1];
f_16195(t13,t1,t8);}
else{
t8=C_SCHEME_UNDEFINED;
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}}}}
else{
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);}}}

/* k15943 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15945(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_15945,c,av);}
a=C_alloc(6);
t2=C_i_cdddr(((C_word*)t0)[2]);
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_cdr(((C_word*)t0)[2]);
t4=C_u_i_cdr(t3);
t5=C_u_i_cdr(t4);
t6=C_i_check_list_2(t5,lf[212]);
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_15962,a[2]=t8,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_15962(t10,((C_word*)t0)[4],t5);}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* for-each-loop3145 in k15943 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_15962(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_15962,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_15972,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1537: g3146 */
t4=((C_word*)((C_word*)t0)[3])[1];
f_15900(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);}}}

/* k15970 in for-each-loop3145 in k15943 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15972(C_word c,C_word *av){
C_word tmp;
C_word 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_15972,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15962(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop3128 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_15989(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_15989,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_15999,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1535: g3129 */
t4=((C_word*)((C_word*)t0)[3])[1];
f_15900(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);}}}

/* k15997 in for-each-loop3128 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_15999(C_word c,C_word *av){
C_word tmp;
C_word 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_15999,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15989(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k16017 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16019(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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,3)))){
C_save_and_reclaim((void *)f_16019,c,av);}
a=C_alloc(6);
t2=C_i_cddr(((C_word*)t0)[2]);
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_cdr(((C_word*)t0)[2]);
t4=C_u_i_cdr(t3);
t5=C_i_check_list_2(t4,lf[212]);
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_16035,a[2]=t7,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_16035(t9,((C_word*)t0)[4],t4);}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* for-each-loop3180 in k16017 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16035(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_16035,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_16045,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1541: g3181 */
t4=((C_word*)((C_word*)t0)[3])[1];
f_15900(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);}}}

/* k16043 in for-each-loop3180 in k16017 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16045(C_word c,C_word *av){
C_word tmp;
C_word 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_16045,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_16035(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop3163 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16062(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_16062,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_16072,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1539: g3164 */
t4=((C_word*)((C_word*)t0)[3])[1];
f_15900(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);}}}

/* k16070 in for-each-loop3163 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16072(C_word c,C_word *av){
C_word tmp;
C_word 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_16072,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_16062(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k16102 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16104(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16104,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
/* scrutinizer.scm:1549: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_15900(t3,((C_word*)t0)[4],C_i_caddr(((C_word*)t0)[5]));}

/* k16144 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16146(C_word c,C_word *av){
C_word tmp;
C_word 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_16146,c,av);}
/* scrutinizer.scm:1543: scheme#append */
t2=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)((C_word*)t0)[3])[1];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop3198 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16148(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(15,0,2)))){
C_save_and_reclaim_args((void *)trf_16148,3,t0,t1,t2);}
a=C_alloc(15);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16173,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=C_slot(t2,C_fix(0));
if(C_truep(C_i_symbolp(t4))){
t5=t3;
f_16173(t5,C_a_i_list3(&a,3,t4,C_SCHEME_FALSE,C_SCHEME_FALSE));}
else{
t5=C_i_car(t4);
t6=C_i_cadr(t4);
t7=t3;
f_16173(t7,C_a_i_list3(&a,3,t5,C_SCHEME_FALSE,t6));}}
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);}}}

/* k16171 in map-loop3198 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16173(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_16173,2,t0,t1);}
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_16148(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* for-each-loop3226 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16195(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_16195,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_16205,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1551: g3227 */
t4=((C_word*)((C_word*)t0)[3])[1];
f_15900(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);}}}

/* k16203 in for-each-loop3226 in loop in chicken.compiler.scrutinizer#type-typeenv in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16205(C_word c,C_word *av){
C_word tmp;
C_word 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_16205,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_16195(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.scrutinizer#trail-restore in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16226(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_16226,3,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16232,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(
  f_16232(t4,lf[24])
);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* doloop3246 in chicken.compiler.scrutinizer#trail-restore in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static C_word C_fcall f_16232(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_stack_overflow_check;
loop:{}
t2=C_eqp(t1,((C_word*)t0)[2]);
if(C_truep(t2)){
t3=C_SCHEME_UNDEFINED;
return(t3);}
else{
t3=C_i_car(t1);
t4=C_i_assq(t3,((C_word*)t0)[3]);
t5=C_i_cdr(t4);
t6=C_i_set_car(t5,C_SCHEME_FALSE);
t8=C_u_i_cdr(t1);
t1=t8;
goto loop;}}

/* k16262 in k14755 in chicken.compiler.scrutinizer#type<=? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16264(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16264,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16267,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1563: trail-restore */
f_16226(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k16265 in k16262 in k14755 in chicken.compiler.scrutinizer#type<=? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16267(C_word c,C_word *av){
C_word tmp;
C_word 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_16267,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16269(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_16269,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16277,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16279,a[2]=t3,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_16279(t8,t4,t2,C_SCHEME_END_OF_LIST);}

/* k16275 in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16277(C_word c,C_word *av){
C_word tmp;
C_word 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_16277,c,av);}
/* scrutinizer.scm:1567: simplify-type */
f_13487(((C_word*)t0)[2],t1);}

/* resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16279(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){
C_save_and_reclaim_args((void *)trf_16279,4,t0,t1,t2,t3);}
a=C_alloc(20);
t4=C_i_assq(t2,((C_word*)t0)[2]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16287,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1569: g3270 */
t6=t5;
f_16287(t6,t1,t4);}
else{
t5=C_i_pairp(t2);
if(C_truep(C_i_not(t5))){
t6=C_i_memq(t2,lf[19]);
if(C_truep(t6)){
if(C_truep(t6)){
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
/* scrutinizer.scm:1581: chicken.compiler.support#bomb */
t7=*((C_word*)lf[343]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=t1;
av2[2]=lf[403];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}
else{
if(C_truep(C_i_memq(t2,lf[21]))){
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
/* scrutinizer.scm:1581: chicken.compiler.support#bomb */
t7=*((C_word*)lf[343]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=t1;
av2[2]=lf[403];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}}
else{
t6=C_i_car(t2);
t7=C_eqp(t6,lf[28]);
if(C_truep(t7)){
t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t9=t8;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=((C_word*)t10)[1];
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16368,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t13=C_u_i_cdr(t2);
t14=C_i_check_list_2(t13,lf[6]);
t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16379,a[2]=t1,tmp=(C_word)a,a+=3,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(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16381,a[2]=t10,a[3]=t17,a[4]=t12,a[5]=t11,tmp=(C_word)a,a+=6,tmp));
t19=((C_word*)t17)[1];
f_16381(t19,t15,t13);}
else{
t8=C_eqp(t6,lf[69]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16426,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1585: resolve */
t20=t9;
t21=C_i_cadr(t2);
t22=t3;
t1=t20;
t2=t21;
t3=t22;
goto loop;}
else{
t9=C_eqp(t6,lf[29]);
t10=(C_truep(t9)?t9:C_eqp(t6,lf[372]));
if(C_truep(t10)){
t11=C_u_i_car(t2);
t12=C_i_cadr(t2);
t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16452,a[2]=t1,a[3]=t11,a[4]=t12,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1587: resolve */
t20=t13;
t21=C_i_caddr(t2);
t22=t3;
t1=t20;
t2=t21;
t3=t22;
goto loop;}
else{
t11=C_eqp(t6,lf[48]);
t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16465,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t1,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
if(C_truep(t11)){
t13=t12;
f_16465(t13,t11);}
else{
t13=C_eqp(t6,lf[47]);
if(C_truep(t13)){
t14=t12;
f_16465(t14,t13);}
else{
t14=C_eqp(t6,lf[50]);
if(C_truep(t14)){
t15=t12;
f_16465(t15,t14);}
else{
t15=C_eqp(t6,lf[359]);
t16=t12;
f_16465(t16,(C_truep(t15)?t15:C_eqp(t6,lf[361])));}}}}}}}}}

/* g3270 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16287(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_16287,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_i_cadr(t2);
t4=C_i_not(t3);
t5=(C_truep(t4)?t4:C_i_memq(t3,((C_word*)t0)[2]));
if(C_truep(t5)){
if(C_truep(C_i_caddr(t2))){
t6=C_i_caddr(t2);
t7=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[2]);
/* scrutinizer.scm:1575: resolve */
t8=((C_word*)((C_word*)t0)[4])[1];
f_16279(t8,t1,t6,t7);}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=lf[53];
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t6=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[2]);
/* scrutinizer.scm:1577: resolve */
t7=((C_word*)((C_word*)t0)[4])[1];
f_16279(t7,t1,t3,t6);}}

/* g3297 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16368(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_16368,3,t0,t1,t2);}
/* scrutinizer.scm:1584: g3314 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_16279(t3,t1,t2,((C_word*)t0)[3]);}

/* k16377 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16379(C_word c,C_word *av){
C_word tmp;
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_16379,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,lf[28],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop3291 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16381(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_16381,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_16406,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);
/* scrutinizer.scm:1584: g3297 */
t4=((C_word*)t0)[4];
f_16368(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);}}}

/* k16404 in map-loop3291 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16406(C_word c,C_word *av){
C_word tmp;
C_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_16406,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_16381(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k16424 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16426(C_word c,C_word *av){
C_word tmp;
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_16426,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,2,lf[69],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k16450 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16452(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_16452,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16465(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){
C_save_and_reclaim_args((void *)trf_16465,2,t0,t1);}
a=C_alloc(21);
if(C_truep(t1)){
t2=C_u_i_car(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16475,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t8=C_u_i_cdr(((C_word*)t0)[2]);
t9=C_i_check_list_2(t8,lf[6]);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16486,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16488,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp));
t14=((C_word*)t12)[1];
f_16488(t14,t10,t8);}
else{
t2=C_eqp(((C_word*)t0)[6],lf[84]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16529,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);
/* scrutinizer.scm:1591: procedure-name */
f_15155(t3,((C_word*)t0)[2]);}
else{
t3=((C_word*)t0)[5];{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}

/* g3349 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16475(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_16475,3,t0,t1,t2);}
/* scrutinizer.scm:1589: g3366 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_16279(t3,t1,t2,((C_word*)t0)[3]);}

/* k16484 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16486(C_word c,C_word *av){
C_word tmp;
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_16486,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);}}

/* map-loop3343 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16488(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_16488,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_16513,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);
/* scrutinizer.scm:1589: g3349 */
t4=((C_word*)t0)[4];
f_16475(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);}}}

/* k16511 in map-loop3343 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16513(C_word c,C_word *av){
C_word tmp;
C_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_16513,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_16488(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k16527 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16529(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16529,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16532,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);
/* scrutinizer.scm:1592: procedure-arguments */
f_15206(t2,((C_word*)t0)[5]);}

/* k16530 in k16527 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16532(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16532,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16535,a[2]=((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);
/* scrutinizer.scm:1593: procedure-results */
f_15263(t2,((C_word*)t0)[6]);}

/* k16533 in k16530 in k16527 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16535(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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,3)))){
C_save_and_reclaim((void *)f_16535,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16542,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(C_truep(((C_word*)t0)[3])?C_a_i_list1(&a,1,((C_word*)t0)[3]):C_SCHEME_END_OF_LIST);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16554,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16611,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_16611(t8,t4,((C_word*)t0)[6]);}

/* k16540 in k16533 in k16530 in k16527 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16542(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_16542,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,lf[84],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k16552 in k16533 in k16530 in k16527 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16554(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(22,c,3)))){
C_save_and_reclaim((void *)f_16554,c,av);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16558,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_eqp(lf[53],((C_word*)t0)[4]);
if(C_truep(t3)){
t4=C_a_i_cons(&a,2,t1,lf[53]);
/* scrutinizer.scm:1594: ##sys#append */
t5=*((C_word*)lf[404]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
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|3,a[1]=(C_word)f_16565,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t9=C_i_check_list_2(((C_word*)t0)[4],lf[6]);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16577,a[2]=t6,a[3]=t11,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_16577(t13,t2,((C_word*)t0)[4]);}}

/* k16556 in k16552 in k16533 in k16530 in k16527 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16558(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16558,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
/* scrutinizer.scm:1594: ##sys#append */
t3=*((C_word*)lf[404]+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);}}

/* g3396 in k16552 in k16533 in k16530 in k16527 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16565(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_16565,3,t0,t1,t2);}
/* scrutinizer.scm:1607: g3413 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_16279(t3,t1,t2,((C_word*)t0)[3]);}

/* map-loop3390 in k16552 in k16533 in k16530 in k16527 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16577(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_16577,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_16602,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);
/* scrutinizer.scm:1607: g3396 */
t4=((C_word*)t0)[4];
f_16565(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);}}}

/* k16600 in map-loop3390 in k16552 in k16533 in k16530 in k16527 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16602(C_word c,C_word *av){
C_word tmp;
C_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_16602,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_16577(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* loop in k16533 in k16530 in k16527 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16611(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(5,0,3)))){
C_save_and_reclaim_args((void *)trf_16611,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_car(t2);
t4=C_eqp(lf[365],t3);
if(C_truep(t4)){
if(C_truep(C_i_equalp(lf[405],C_u_i_cdr(t2)))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_u_i_car(t2);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16639,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1601: loop */
t9=t6;
t10=C_u_i_cdr(t2);
t1=t9;
t2=t10;
goto loop;}}
else{
t5=C_eqp(lf[364],C_u_i_car(t2));
if(C_truep(t5)){
t6=C_u_i_car(t2);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16658,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1603: loop */
t9=t7;
t10=C_u_i_cdr(t2);
t1=t9;
t2=t10;
goto loop;}
else{
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16667,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1604: resolve */
t7=((C_word*)((C_word*)t0)[3])[1];
f_16279(t7,t6,C_u_i_car(t2),((C_word*)t0)[4]);}}}}

/* k16637 in loop in k16533 in k16530 in k16527 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16639(C_word c,C_word *av){
C_word tmp;
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_16639,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);}}

/* k16656 in loop in k16533 in k16530 in k16527 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16658(C_word c,C_word *av){
C_word tmp;
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_16658,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);}}

/* k16665 in loop in k16533 in k16530 in k16527 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16667(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_16667,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16671,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1604: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_16611(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k16669 in k16665 in loop in k16533 in k16530 in k16527 in k16463 in resolve in chicken.compiler.scrutinizer#resolve in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16671(C_word c,C_word *av){
C_word tmp;
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_16671,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.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16734(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(4,c,2)))){
C_save_and_reclaim((void *)f_16734,c,av);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16738,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_rest_nullp(c,4))){
/* scrutinizer.scm:1614: chicken.platform#repository-path */
t5=*((C_word*)lf[431]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_get_rest_arg(c,4,av,4,t0);
f_16738(2,av2);}}}

/* k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16738(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_16738,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16741,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_not(t1))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17119,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1616: ##sys#file-exists? */
t4=*((C_word*)lf[429]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
av2[5]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}
else{
/* scrutinizer.scm:1617: chicken.load#find-file */
t3=*((C_word*)lf[430]+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]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16741(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_16741,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16747,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17092,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1618: chicken.base#open-output-string */
t4=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16747(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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,4)))){
C_save_and_reclaim((void *)f_16747,c,av);}
a=C_alloc(15);
t2=C_SCHEME_FALSE;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16752,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16757,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17085,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1619: ##sys#dynamic-wind */
t9=*((C_word*)lf[224]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=((C_word*)t0)[3];
av2[2]=t6;
av2[3]=t7;
av2[4]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}

/* a16751 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16752(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16752,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[17]);
t3=C_mutate(&lf[17] /* (set! chicken.compiler.scrutinizer#scrutiny-debug ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16757(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16757,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17054,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1680: scheme#call-with-input-file */
t3=*((C_word*)lf[424]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=*((C_word*)lf[425]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16766(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(12,c,3)))){
C_save_and_reclaim((void *)f_16766,c,av);}
a=C_alloc(12);
t2=C_i_cddr(((C_word*)t0)[2]);
t3=C_i_pairp(t2);
t4=(C_truep(t3)?C_u_i_cdr(C_u_i_cdr(((C_word*)t0)[2])):C_SCHEME_FALSE);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16772,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t6=C_u_i_cdr(((C_word*)t0)[2]);
t7=C_u_i_car(t6);
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_16871,a[2]=((C_word*)t0)[3],a[3]=t9,tmp=(C_word)a,a+=4,tmp));
t11=((C_word*)t9)[1];
f_16871(t11,t5,t7);}

/* k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16772(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
C_save_and_reclaim((void *)f_16772,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16777,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16783,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:1659: ##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)[5];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}

/* a16776 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16777(C_word c,C_word *av){
C_word tmp;
C_word 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_16777,c,av);}
/* scrutinizer.scm:1659: validate-type */
t2=*((C_word*)lf[407]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16783(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(13,c,2)))){
C_save_and_reclaim((void *)f_16783,c,av);}
a=C_alloc(13);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16787,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);
if(C_truep(t2)){
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
f_16787(2,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16838,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1662: chicken.base#open-output-string */
t7=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k16785 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16787(C_word c,C_word *av){
C_word tmp;
C_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,4)))){
C_save_and_reclaim((void *)f_16787,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16790,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_16805,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)t0)[6])){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16831,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1665: compatible-types? */
f_14694(t4,((C_word*)t0)[6],((C_word*)t0)[5],C_SCHEME_END_OF_LIST);}
else{
t4=t3;
f_16805(t4,C_SCHEME_FALSE);}}

/* k16788 in k16785 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16790(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16790,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16793,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);
/* scrutinizer.scm:1676: chicken.compiler.support#mark-variable */
t3=*((C_word*)lf[233]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[65];
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k16791 in k16788 in k16785 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_16793(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16793,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16796,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);
/* scrutinizer.scm:1677: chicken.compiler.support#mark-variable */
t3=*((C_word*)lf[233]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[66];
av2[4]=lf[409];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k16794 in k16791 in k16788 in k16785 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_16796(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_16796,c,av);}
if(C_truep(((C_word*)t0)[2])){
/* scrutinizer.scm:1679: install-specializations */
t2=*((C_word*)lf[408]+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_word*)t0)[4];
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k16803 in k16785 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16805(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
C_save_and_reclaim_args((void *)trf_16805,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16812,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16816,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);
/* scrutinizer.scm:1668: scheme#string-append */
t4=*((C_word*)lf[76]+1);{
C_word av2[6];
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[411];
av2[3]=lf[412];
av2[4]=lf[413];
av2[5]=lf[414];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_16790(2,av2);}}}

/* k16810 in k16803 in k16785 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_16812(C_word c,C_word *av){
C_word tmp;
C_word 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_16812,c,av);}
/* scrutinizer.scm:1666: chicken.base#warning */
t2=*((C_word*)lf[90]+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);}}

/* k16814 in k16803 in k16785 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_16816(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16816,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16820,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);
/* scrutinizer.scm:1674: type->pp-string */
f_20620(t2,((C_word*)t0)[5]);}

/* k16818 in k16814 in k16803 in k16785 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_16820(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16820,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16824,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);
/* scrutinizer.scm:1675: type->pp-string */
f_20620(t2,((C_word*)t0)[5]);}

/* k16822 in k16818 in k16814 in k16803 in k16785 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_16824(C_word c,C_word *av){
C_word tmp;
C_word 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_16824,c,av);}
/* scrutinizer.scm:1667: chicken.format#sprintf */
t2=*((C_word*)lf[410]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k16829 in k16785 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16831(C_word c,C_word *av){
C_word tmp;
C_word 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_16831,c,av);}
t2=((C_word*)t0)[2];
f_16805(t2,C_i_not(t1));}

/* k16836 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16838(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_16838,c,av);}
a=C_alloc(6);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16844,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);
/* scrutinizer.scm:1662: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[416];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k16842 in k16836 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16844(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16844,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16847,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);
/* scrutinizer.scm:1662: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k16845 in k16842 in k16836 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_16847(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16847,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16850,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);
/* scrutinizer.scm:1662: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[415];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k16848 in k16845 in k16842 in k16836 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_16850(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_16850,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16853,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);
/* scrutinizer.scm:1662: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k16851 in k16848 in k16845 in k16842 in k16836 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_16853(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16853,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16856,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);
/* scrutinizer.scm:1662: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k16854 in k16851 in k16848 in k16845 in k16842 in k16836 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_16856(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_16856,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16859,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16866,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1664: type->pp-string */
f_20620(t3,((C_word*)t0)[4]);}

/* k16857 in k16854 in k16851 in k16848 in k16845 in k16842 in k16836 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_16859(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16859,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16862,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1662: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k16860 in k16857 in k16854 in k16851 in k16848 in k16845 in k16842 in k16836 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_16862(C_word c,C_word *av){
C_word tmp;
C_word 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_16862,c,av);}
/* scrutinizer.scm:1661: chicken.base#warning */
t2=*((C_word*)lf[90]+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);}}

/* k16864 in k16854 in k16851 in k16848 in k16845 in k16842 in k16836 in a16782 in k16770 in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_16866(C_word c,C_word *av){
C_word tmp;
C_word 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_16866,c,av);}
/* scrutinizer.scm:1662: ##sys#print */
t2=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* adjust in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16871(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_16871,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=C_i_vectorp(C_u_i_car(t2));
t4=(C_truep(t3)?C_eqp(lf[84],C_i_vector_ref(C_u_i_car(t2),C_fix(0))):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16887,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17003,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1630: scheme#vector->list */
t7=*((C_word*)lf[51]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_u_i_car(t2);
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t5=C_eqp(lf[29],C_u_i_car(t2));
if(C_truep(t5)){
t6=C_i_cadr(t2);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17022,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1654: adjust */
t9=t7;
t10=C_i_caddr(t2);
t1=t9;
t2=t10;
goto loop;}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k16885 in adjust in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16887(C_word c,C_word *av){
C_word tmp;
C_word t0=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_16887,c,av);}
a=C_alloc(3);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[84],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* loop in k17001 in adjust in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_16898(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_16898,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_nullp(t2))){
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_i_car(t2);
t4=C_eqp(t3,lf[417]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16917,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1634: chicken.compiler.support#mark-variable */
t6=*((C_word*)lf[233]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[272];
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t5=C_eqp(t3,lf[418]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16931,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1637: chicken.compiler.support#mark-variable */
t7=*((C_word*)lf[233]+1);{
C_word av2[5];
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[271];
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
else{
t6=C_eqp(t3,lf[419]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16945,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1640: chicken.compiler.support#mark-variable */
t8=*((C_word*)lf[233]+1);{
C_word av2[5];
av2[0]=t8;
av2[1]=t7;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[276];
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}
else{
t7=C_eqp(t3,lf[420]);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16959,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1643: chicken.compiler.support#mark-variable */
t9=*((C_word*)lf[233]+1);{
C_word av2[5];
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[421];
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
else{
t8=C_eqp(t3,lf[422]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16973,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1646: chicken.compiler.support#mark-variable */
t10=*((C_word*)lf[233]+1);{
C_word av2[5];
av2[0]=t10;
av2[1]=t9;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[165];
av2[4]=C_i_cadr(t2);
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}
else{
/* scrutinizer.scm:1649: chicken.compiler.support#bomb */
t9=*((C_word*)lf[343]+1);{
C_word av2[5];
av2[0]=t9;
av2[1]=t1;
av2[2]=lf[423];
av2[3]=C_u_i_car(t2);
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}}}}}}}

/* k16915 in loop in k17001 in adjust in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16917(C_word c,C_word *av){
C_word tmp;
C_word 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_16917,c,av);}
/* scrutinizer.scm:1635: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_16898(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* k16929 in loop in k17001 in adjust in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16931(C_word c,C_word *av){
C_word tmp;
C_word 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_16931,c,av);}
/* scrutinizer.scm:1638: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_16898(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* k16943 in loop in k17001 in adjust in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16945(C_word c,C_word *av){
C_word tmp;
C_word 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_16945,c,av);}
/* scrutinizer.scm:1641: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_16898(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* k16957 in loop in k17001 in adjust in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16959(C_word c,C_word *av){
C_word tmp;
C_word 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_16959,c,av);}
/* scrutinizer.scm:1644: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_16898(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* k16971 in loop in k17001 in adjust in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_16973(C_word c,C_word *av){
C_word tmp;
C_word 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_16973,c,av);}
/* scrutinizer.scm:1647: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_16898(t2,((C_word*)t0)[3],C_i_cddr(((C_word*)t0)[4]));}

/* k17001 in adjust in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17003(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_17003,c,av);}
a=C_alloc(7);
t2=C_i_cdr(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|4,a[1]=(C_word)f_16898,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_16898(t6,((C_word*)t0)[4],t2);}

/* k17020 in adjust in k16764 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17022(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_17022,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[29],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17054(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_17054,c,av);}
a=C_alloc(8);
t2=C_i_check_list_2(t1,lf[212]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17060,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17062,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_17062(t7,t3,t1);}

/* k17058 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17060(C_word c,C_word *av){
C_word tmp;
C_word 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_17060,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_17062(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,3)))){
C_save_and_reclaim_args((void *)trf_17062,3,t0,t1,t2);}
a=C_alloc(10);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17072,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_i_car(t4);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16766,a[2]=t4,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1623: chicken.compiler.support#variable-mark */
t7=*((C_word*)lf[64]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=t6;
av2[2]=t5;
av2[3]=lf[65];
((C_proc)(void*)(*((C_word*)t7+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);}}}

/* k17070 in for-each-loop3461 in k17052 in a16756 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17072(C_word c,C_word *av){
C_word tmp;
C_word 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_17072,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_17062(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* a17084 in k16745 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17085(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17085,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[17]);
t3=C_mutate(&lf[17] /* (set! chicken.compiler.scrutinizer#scrutiny-debug ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k17090 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17092(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_17092,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17098,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1618: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[428];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k17096 in k17090 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17098(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17098,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17101,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1618: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k17099 in k17096 in k17090 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17101(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17101,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17104,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1618: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[427];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k17102 in k17099 in k17096 in k17090 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17104(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17104,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17107,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1618: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k17105 in k17102 in k17099 in k17096 in k17090 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17107(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17107,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17110,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1618: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k17108 in k17105 in k17102 in k17099 in k17096 in k17090 in k16739 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17110(C_word c,C_word *av){
C_word tmp;
C_word 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_17110,c,av);}
/* scrutinizer.scm:1618: chicken.compiler.support#debugging */
t2=*((C_word*)lf[236]+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[426];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k17117 in k16736 in chicken.compiler.scrutinizer#load-type-database in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17119(C_word c,C_word *av){
C_word tmp;
C_word 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_17119,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE);
f_16741(2,av2);}}

/* chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17133(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_17133,c,av);}
a=C_alloc(5);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17139,a[2]=t5,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1684: scheme#with-output-to-file */
t7=*((C_word*)lf[446]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t1;
av2[2]=t3;
av2[3]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17139(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_17139,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17143,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17301,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1686: chicken.platform#chicken-version */
t4=*((C_word*)lf[445]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17143(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_17143,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17146,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17151,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1688: chicken.internal#hash-table-for-each */
t4=*((C_word*)lf[441]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=t3;
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k17144 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17146(C_word c,C_word *av){
C_word tmp;
C_word 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_17146,c,av);}
/* scrutinizer.scm:1719: chicken.base#print */
t2=*((C_word*)lf[355]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[433];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17151(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(8,c,3)))){
C_save_and_reclaim((void *)f_17151,c,av);}
a=C_alloc(8);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17158,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17292,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1690: chicken.compiler.support#variable-visible? */
t6=*((C_word*)lf[247]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}

/* k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_17158(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_17158,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17161,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1692: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[162];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17161(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_17161,c,av);}
a=C_alloc(5);
t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17167,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1693: chicken.compiler.support#variable-mark */
t4=*((C_word*)lf[64]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[65];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17167(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17167,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17170,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);
/* scrutinizer.scm:1694: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[165];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17170(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17170,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17173,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:1695: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[272];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17173(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_17173,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17176,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:1696: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[271];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17176(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17176,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17179,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:1697: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[276];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k17177 in k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17179(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17179,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17182,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* scrutinizer.scm:1698: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[421];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k17180 in k17177 in k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17182(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
C_save_and_reclaim((void *)f_17182,c,av);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17185,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17192,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17196,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17198,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]=t1,a[7]=t6,tmp=(C_word)a,a+=8,tmp));
t8=((C_word*)t6)[1];
f_17198(t8,t4,((C_word*)t0)[9]);}

/* k17183 in k17180 in k17177 in k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_17185(C_word c,C_word *av){
C_word tmp;
C_word 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_17185,c,av);}
/* scrutinizer.scm:1717: scheme#newline */
t2=*((C_word*)lf[434]+1);{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k17190 in k17180 in k17177 in k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_17192(C_word c,C_word *av){
C_word tmp;
C_word 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_17192,c,av);}
/* scrutinizer.scm:1699: chicken.pretty-print#pp */
t2=*((C_word*)lf[435]+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);}}

/* k17194 in k17180 in k17177 in k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_17196(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17196,c,av);}
a=C_alloc(11);
t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7179,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_7179(t6,((C_word*)t0)[3],((C_word*)t0)[4],t2);}

/* wrap in k17180 in k17177 in k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_fcall f_17198(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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(25,0,3)))){
C_save_and_reclaim_args((void *)trf_17198,3,t0,t1,t2);}
a=C_alloc(25);
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_car(t2);
t4=C_eqp(t3,lf[84]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17219,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17229,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
t7=(C_truep(((C_word*)t0)[2])?lf[436]:C_SCHEME_END_OF_LIST);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17237,a[2]=t6,a[3]=t7,tmp=(C_word)a,a+=4,tmp);
t9=(C_truep(((C_word*)t0)[3])?C_a_i_list(&a,2,lf[422],((C_word*)t0)[3]):C_SCHEME_END_OF_LIST);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17245,a[2]=t8,a[3]=t9,tmp=(C_word)a,a+=4,tmp);
t11=(C_truep(((C_word*)t0)[4])?lf[437]:C_SCHEME_END_OF_LIST);
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17253,a[2]=t10,a[3]=t11,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[5])){
t13=lf[438];
if(C_truep(((C_word*)t0)[6])){
/* scrutinizer.scm:1705: ##sys#append */
t14=*((C_word*)lf[404]+1);{
C_word av2[4];
av2[0]=t14;
av2[1]=t12;
av2[2]=t13;
av2[3]=lf[439];
((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}
else{
/* scrutinizer.scm:1705: ##sys#append */
t14=*((C_word*)lf[404]+1);{
C_word av2[4];
av2[0]=t14;
av2[1]=t12;
av2[2]=t13;
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}}
else{
t13=C_SCHEME_END_OF_LIST;
if(C_truep(((C_word*)t0)[6])){
/* scrutinizer.scm:1705: ##sys#append */
t14=*((C_word*)lf[404]+1);{
C_word av2[4];
av2[0]=t14;
av2[1]=t12;
av2[2]=t13;
av2[3]=lf[439];
((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}
else{
/* scrutinizer.scm:1705: ##sys#append */
t14=*((C_word*)lf[404]+1);{
C_word av2[4];
av2[0]=t14;
av2[1]=t12;
av2[2]=t13;
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}}}
else{
t5=C_eqp(t3,lf[29]);
if(C_truep(t5)){
t6=C_i_cadr(t2);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17281,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1713: wrap */
t15=t7;
t16=C_i_caddr(t2);
t1=t15;
t2=t16;
goto loop;}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k17217 in wrap in k17180 in k17177 in k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_17219(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17219,c,av);}
a=C_alloc(3);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,t1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k17227 in wrap in k17180 in k17177 in k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_17229(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17229,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,lf[84],t1);
/* scrutinizer.scm:1705: ##sys#list->vector */
t3=*((C_word*)lf[126]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k17235 in wrap in k17180 in k17177 in k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_17237(C_word c,C_word *av){
C_word tmp;
C_word 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_17237,c,av);}
/* scrutinizer.scm:1705: ##sys#append */
t2=*((C_word*)lf[404]+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);}}

/* k17243 in wrap in k17180 in k17177 in k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_17245(C_word c,C_word *av){
C_word tmp;
C_word 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_17245,c,av);}
/* scrutinizer.scm:1705: ##sys#append */
t2=*((C_word*)lf[404]+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);}}

/* k17251 in wrap in k17180 in k17177 in k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_17253(C_word c,C_word *av){
C_word tmp;
C_word 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_17253,c,av);}
/* scrutinizer.scm:1705: ##sys#append */
t2=*((C_word*)lf[404]+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);}}

/* k17279 in wrap in k17180 in k17177 in k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_17281(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_17281,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[29],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k17290 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17292(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17292,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17296,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1691: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+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[66];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=((C_word*)t0)[2];
f_17158(t2,C_SCHEME_FALSE);}}

/* k17294 in k17290 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17296(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17296,c,av);}
t2=((C_word*)t0)[2];
f_17158(t2,C_u_i_memq(t1,lf[440]));}

/* k17299 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17301(C_word c,C_word *av){
C_word tmp;
C_word 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_17301,c,av);}
/* scrutinizer.scm:1686: chicken.base#print */
t2=*((C_word*)lf[355]+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[442];
av2[3]=t1;
av2[4]=lf[443];
av2[5]=((C_word*)t0)[3];
av2[6]=lf[444];
((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}

/* chicken.compiler.scrutinizer#mutate-node! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_17304(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_17304,3,t1,t2,t3);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17309,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17320,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1734: chicken.compiler.support#copy-node */
t6=*((C_word*)lf[450]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k17307 in chicken.compiler.scrutinizer#mutate-node! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17309(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_17309,c,av);}
a=C_alloc(4);
t2=C_mutate(&lf[447] /* (set! chicken.compiler.scrutinizer#node-mutations ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17316,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1735: chicken.compiler.support#build-node-graph */
t4=*((C_word*)lf[449]+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);}}

/* k17314 in k17307 in chicken.compiler.scrutinizer#mutate-node! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17316(C_word c,C_word *av){
C_word tmp;
C_word 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_17316,c,av);}
/* scrutinizer.scm:1735: chicken.compiler.support#copy-node! */
t2=*((C_word*)lf[448]+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);}}

/* k17318 in chicken.compiler.scrutinizer#mutate-node! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17320(C_word c,C_word *av){
C_word tmp;
C_word 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_17320,c,av);}
/* scrutinizer.scm:1734: chicken.base#alist-update! */
t2=*((C_word*)lf[186]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=lf[447];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* chicken.compiler.scrutinizer#source-node in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_17322(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_17322,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_i_nullp(t3);
t5=(C_truep(t4)?*((C_word*)lf[452]+1):C_i_car(t3));
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17329,a[2]=t5,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1738: chicken.base#alist-ref */
t7=*((C_word*)lf[275]+1);{
C_word av2[5];
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
av2[3]=lf[447];
av2[4]=*((C_word*)lf[374]+1);
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}

/* k17327 in chicken.compiler.scrutinizer#source-node in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17329(C_word c,C_word *av){
C_word tmp;
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_17329,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
/* scrutinizer.scm:1739: k */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
else{
/* scrutinizer.scm:1739: source-node */
f_17322(((C_word*)t0)[3],t1,C_a_i_list(&a,1,((C_word*)t0)[2]));}}

/* chicken.compiler.scrutinizer#source-node-tree in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17349(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_17349,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17355,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:1742: source-node */
f_17322(t1,t2,C_a_i_list(&a,1,t3));}

/* a17354 in chicken.compiler.scrutinizer#source-node-tree in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17355(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17355,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17363,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1745: chicken.compiler.support#node-class */
t4=*((C_word*)lf[88]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k17361 in a17354 in chicken.compiler.scrutinizer#source-node-tree in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17363(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17363,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17367,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1746: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[26]+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);}}

/* k17365 in k17361 in a17354 in chicken.compiler.scrutinizer#source-node-tree in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17367(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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_17367,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=lf[453];
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17374,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:1747: chicken.compiler.support#node-subexpressions */
t8=*((C_word*)lf[86]+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)[4];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}

/* k17372 in k17365 in k17361 in a17354 in chicken.compiler.scrutinizer#source-node-tree in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17374(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_17374,c,av);}
a=C_alloc(12);
t2=C_i_check_list_2(t1,lf[6]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17380,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|4,a[1]=(C_word)f_17382,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_17382(t7,t3,t1);}

/* k17378 in k17372 in k17365 in k17361 in a17354 in chicken.compiler.scrutinizer#source-node-tree in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17380(C_word c,C_word *av){
C_word tmp;
C_word 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_17380,c,av);}
/* scrutinizer.scm:1745: chicken.compiler.support#make-node */
t2=*((C_word*)lf[269]+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);}}

/* map-loop3612 in k17372 in k17365 in k17361 in a17354 in chicken.compiler.scrutinizer#source-node-tree in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_17382(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_17382,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_17407,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);
/* scrutinizer.scm:1747: g3618 */
t4=lf[453];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
f_17349(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);}}}

/* k17405 in map-loop3612 in k17372 in k17365 in k17361 in a17354 in chicken.compiler.scrutinizer#source-node-tree in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17407(C_word c,C_word *av){
C_word tmp;
C_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_17407,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_17382(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k17422 in chicken.compiler.scrutinizer#node-source-prefix in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_17424(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17424,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17430,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1753: chicken.compiler.support#node-class */
t3=*((C_word*)lf[88]+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);}}

/* k17428 in k17422 in chicken.compiler.scrutinizer#node-source-prefix in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_17430(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17430,c,av);}
a=C_alloc(3);
t2=C_eqp(t1,lf[120]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17439,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1755: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[26]+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_eqp(t1,lf[311]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17478,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1760: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[26]+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_SCHEME_FALSE;
f_21219(2,av2);}}}}

/* k17437 in k17428 in k17422 in chicken.compiler.scrutinizer#node-source-prefix in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_17439(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17439,c,av);}
t2=C_i_cdr(t1);
if(C_truep(C_i_pairp(t2))){
t3=C_i_cadr(t1);
if(C_truep(C_i_pairp(t3))){
t4=C_u_i_cdr(t1);
/* scrutinizer.scm:1758: chicken.compiler.support#source-info->line */
t5=*((C_word*)lf[510]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[2];
av2[2]=C_u_i_car(t4);
((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_SCHEME_FALSE;
f_21219(2,av2);}}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_21219(2,av2);}}}

/* k17476 in k17428 in k17422 in chicken.compiler.scrutinizer#node-source-prefix in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_17478(C_word c,C_word *av){
C_word tmp;
C_word 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_17478,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_car(t1);
f_21219(2,av2);}}

/* chicken.compiler.scrutinizer#specialize-node! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_17484(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){
C_save_and_reclaim_args((void *)trf_17484,4,t1,t2,t3,t4);}
a=C_alloc(13);
t5=C_SCHEME_END_OF_LIST;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17487,a[2]=t3,a[3]=t6,a[4]=t8,tmp=(C_word)a,a+=5,tmp));
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17635,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1789: subst */
t11=((C_word*)t8)[1];
f_17487(t11,t10,t4);}

/* subst in chicken.compiler.scrutinizer#specialize-node! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_17487(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(58,0,2)))){
C_save_and_reclaim_args((void *)trf_17487,3,t0,t1,t2);}
a=C_alloc(58);
t3=C_i_vectorp(t2);
t4=(C_truep(t3)?C_eqp(C_fix(1),C_block_size(t2)):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=C_i_vector_ref(t2,C_fix(0));
if(C_truep(C_i_integerp(t5))){
if(C_truep(C_i_negativep(t5))){
t6=C_s_a_i_negate(&a,1,t5);
t7=C_s_a_i_minus(&a,2,t6,C_fix(1));
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_i_list_tail(((C_word*)t0)[2],t7);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t6=C_s_a_i_minus(&a,2,t5,C_fix(1));
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=C_i_list_ref(((C_word*)t0)[2],t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
else{
if(C_truep(C_i_symbolp(t5))){
t6=C_i_assq(t5,((C_word*)((C_word*)t0)[3])[1]);
if(C_truep(t6)){
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=C_i_cdr(t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17534,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1778: chicken.base#gensym */
t8=*((C_word*)lf[197]+1);{
C_word av2[3];
av2[0]=t8;
av2[1]=t7;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}
else{
t6=C_SCHEME_UNDEFINED;
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}
else{
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17544,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_vectorp(t2))){
t6=C_block_size(t2);
t7=C_eqp(C_fix(2),t6);
if(C_truep(t7)){
t8=C_i_vector_ref(t2,C_fix(0));
t9=t5;
f_17544(t9,(C_truep(C_i_integerp(t8))?C_eqp(lf[454],C_i_vector_ref(t2,C_fix(1))):C_SCHEME_FALSE));}
else{
t8=t5;
f_17544(t8,C_SCHEME_FALSE);}}
else{
t6=t5;
f_17544(t6,C_SCHEME_FALSE);}}}

/* k17532 in subst in chicken.compiler.scrutinizer#specialize-node! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17534(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17534,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]=t1;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* k17542 in subst in chicken.compiler.scrutinizer#specialize-node! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_17544(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,2)))){
C_save_and_reclaim_args((void *)trf_17544,2,t0,t1);}
a=C_alloc(29);
if(C_truep(t1)){
t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(0));
t3=C_s_a_i_minus(&a,2,t2,C_fix(1));
t4=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_i_list_tail(((C_word*)t0)[4],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t2=C_i_pairp(((C_word*)t0)[2]);
if(C_truep(C_i_not(t2))){
t3=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_car(((C_word*)t0)[2]);
t4=C_eqp(lf[123],t3);
if(C_truep(t4)){
t5=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t5;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17571,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1788: subst */
t6=((C_word*)((C_word*)t0)[5])[1];
f_17487(t6,t5,C_u_i_car(((C_word*)t0)[2]));}}}}

/* k17569 in k17542 in subst in chicken.compiler.scrutinizer#specialize-node! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17571(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17571,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17575,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1788: subst */
t3=((C_word*)((C_word*)t0)[3])[1];
f_17487(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k17573 in k17569 in k17542 in subst in chicken.compiler.scrutinizer#specialize-node! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17575(C_word c,C_word *av){
C_word tmp;
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_17575,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);}}

/* k17633 in chicken.compiler.scrutinizer#specialize-node! in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17635(C_word c,C_word *av){
C_word tmp;
C_word 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_17635,c,av);}
/* scrutinizer.scm:1789: mutate-node! */
f_17304(((C_word*)t0)[2],((C_word*)t0)[3],t1);}

/* chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17637(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(40,c,4)))){
C_save_and_reclaim((void *)f_17637,c,av);}
a=C_alloc(40);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_FALSE;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_END_OF_LIST;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_END_OF_LIST;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_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|1,a[1]=(C_word)f_17668,tmp=(C_word)a,a+=2,tmp));
t19=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17702,a[2]=t15,a[3]=t17,tmp=(C_word)a,a+=4,tmp));
t20=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17832,a[2]=t9,a[3]=t17,a[4]=t11,a[5]=t5,a[6]=t13,a[7]=t7,a[8]=t3,a[9]=t15,tmp=(C_word)a,a+=10,tmp));
t21=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18889,a[2]=t5,a[3]=t7,a[4]=t9,a[5]=t11,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:1967: validate */
t22=((C_word*)t17)[1];
f_17832(t22,t21,t2,C_a_i_list(&a,1,C_SCHEME_FALSE));}

/* loop in k18350 in k18347 in g3875 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_17646(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(4,0,2)))){
C_save_and_reclaim_args((void *)trf_17646,3,t0,t1,t2);}
a=C_alloc(4);
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(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_17664,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1814: loop */
t7=t5;
t8=C_u_i_cdr(t2);
t1=t7;
t2=t8;
goto loop;}}

/* k17662 in loop in k18350 in k18347 in g3875 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17664(C_word c,C_word *av){
C_word tmp;
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_17664,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);}}

/* memq* in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_17668(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_17668,3,t1,t2,t3);}
a=C_alloc(3);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17674,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(
  f_17674(t4,t3)
);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* loop in memq* in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static C_word C_fcall f_17674(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;
loop:{}
t2=C_i_pairp(t1);
if(C_truep(C_i_not(t2))){
return(C_SCHEME_FALSE);}
else{
t3=C_i_car(t1);
t4=C_eqp(t3,((C_word*)t0)[2]);
if(C_truep(t4)){
return(t1);}
else{
t6=C_u_i_cdr(t1);
t1=t6;
goto loop;}}}

/* validate-llist in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_17702(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_17702,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_symbolp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[455];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_pairp(t2);
if(C_truep(C_i_not(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
t5=C_eqp(lf[364],t4);
t6=(C_truep(t5)?t5:C_eqp(lf[456],C_u_i_car(t2)));
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17733,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1826: validate-llist */
t12=t7;
t13=C_u_i_cdr(t2);
t1=t12;
t2=t13;
goto loop;}
else{
t7=C_eqp(lf[365],C_u_i_car(t2));
t8=(C_truep(t7)?t7:C_eqp(lf[457],C_u_i_car(t2)));
if(C_truep(t8)){
if(C_truep(C_i_nullp(C_u_i_cdr(t2)))){
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=lf[458];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t9=C_i_pairp(C_u_i_cdr(t2));
if(C_truep(C_i_not(t9))){
t10=t1;{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17765,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1833: validate */
t11=((C_word*)((C_word*)t0)[3])[1];
f_17832(t11,t10,C_i_cadr(t2),C_SCHEME_END_OF_LIST);}}}
else{
t9=C_eqp(lf[459],C_u_i_car(t2));
if(C_truep(t9)){
t10=t1;{
C_word av2[2];
av2[0]=t10;
av2[1]=lf[460];
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17792,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1837: validate */
t11=((C_word*)((C_word*)t0)[3])[1];
f_17832(t11,t10,C_u_i_car(t2),C_SCHEME_END_OF_LIST);}}}}}}}

/* k17731 in validate-llist in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17733(C_word c,C_word *av){
C_word tmp;
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_17733,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,lf[364],t1):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k17763 in validate-llist in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17765(C_word c,C_word *av){
C_word tmp;
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_17765,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?C_a_i_list(&a,2,lf[365],t1):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k17790 in validate-llist in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17792(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17792,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17795,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1838: validate-llist */
t3=((C_word*)((C_word*)t0)[3])[1];
f_17702(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k17793 in k17790 in validate-llist in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17795(C_word c,C_word *av){
C_word tmp;
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_17795,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(((C_word*)t0)[3])?(C_truep(t1)?C_a_i_cons(&a,2,((C_word*)t0)[3],t1):C_SCHEME_FALSE):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_17832(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;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){
C_save_and_reclaim_args((void *)trf_17832,4,t0,t1,t2,t3);}
a=C_alloc(15);
t4=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t5=C_i_nullp(t3);
t6=(C_truep(t5)?C_SCHEME_TRUE:C_i_car(t3));
if(C_truep(C_i_memq(((C_word*)t4)[1],lf[19]))){
t7=((C_word*)t4)[1];
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
if(C_truep(C_i_memq(((C_word*)t4)[1],lf[21]))){
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=((C_word*)t4)[1];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
if(C_truep(C_i_memq(((C_word*)t4)[1],lf[461]))){
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=C_a_i_list(&a,2,lf[52],((C_word*)t4)[1]);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(((C_word*)t4)[1],lf[462]);
if(C_truep(t7)){
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=lf[463];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=C_eqp(((C_word*)t4)[1],lf[464]);
if(C_truep(t8)){
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=lf[53];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t9=C_eqp(((C_word*)t4)[1],lf[465]);
if(C_truep(t9)){
t10=t1;{
C_word av2[2];
av2[0]=t10;
av2[1]=lf[35];
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t10=C_eqp(((C_word*)t4)[1],lf[466]);
if(C_truep(t10)){
t11=t1;{
C_word av2[2];
av2[0]=t11;
av2[1]=lf[467];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t11=C_eqp(((C_word*)t4)[1],lf[468]);
if(C_truep(t11)){
t12=t1;{
C_word av2[2];
av2[0]=t12;
av2[1]=lf[469];
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t12=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17890,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t6,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],tmp=(C_word)a,a+=13,tmp);
if(C_truep(C_i_symbolp(((C_word*)t4)[1]))){
/* scrutinizer.scm:1849: ##sys#get */
t13=*((C_word*)lf[474]+1);{
C_word av2[4];
av2[0]=t13;
av2[1]=t12;
av2[2]=((C_word*)t4)[1];
av2[3]=lf[475];
((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}}
else{
t13=t12;{
C_word av2[2];
av2[0]=t13;
av2[1]=C_SCHEME_FALSE;
f_17890(2,av2);}}}}}}}}}}}

/* k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17890(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(12,c,3)))){
C_save_and_reclaim((void *)f_17890,c,av);}
a=C_alloc(12);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_i_pairp(((C_word*)((C_word*)t0)[3])[1]);
if(C_truep(C_i_not(t2))){
if(C_truep(C_i_memq(((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]))){
t3=((C_word*)((C_word*)t0)[3])[1];
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
else{
t3=C_i_car(((C_word*)((C_word*)t0)[3])[1]);
t4=C_eqp(lf[69],t3);
if(C_truep(t4)){
t5=C_i_length(((C_word*)((C_word*)t0)[3])[1]);
t6=C_eqp(C_fix(2),t5);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17924,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t8=((C_word*)((C_word*)t0)[3])[1];
/* scrutinizer.scm:1855: validate */
t9=((C_word*)((C_word*)t0)[5])[1];
f_17832(t9,t7,C_i_cadr(t8),C_SCHEME_END_OF_LIST);}
else{
t7=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
else{
t5=C_i_car(((C_word*)((C_word*)t0)[3])[1]);
t6=C_eqp(lf[29],t5);
if(C_truep(t6)){
t7=C_i_length(((C_word*)((C_word*)t0)[3])[1]);
t8=C_eqp(C_fix(3),t7);
if(C_truep(t8)){
t9=((C_word*)((C_word*)t0)[3])[1];
t10=C_i_cadr(t9);
if(C_truep(C_i_listp(t10))){
t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17956,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:1859: chicken.base#call/cc */
t12=*((C_word*)lf[167]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t12;
av2[1]=((C_word*)t0)[2];
av2[2]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}
else{
t11=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t11;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}
else{
t9=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t9;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18106,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[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);
t8=C_i_car(((C_word*)((C_word*)t0)[3])[1]);
t9=C_eqp(lf[123],t8);
if(C_truep(t9)){
t10=C_i_cdr(((C_word*)((C_word*)t0)[3])[1]);
if(C_truep(C_i_pairp(t10))){
t11=((C_word*)((C_word*)t0)[3])[1];
t12=C_i_cadr(t11);
if(C_truep(C_i_symbolp(t12))){
t13=C_i_cddr(((C_word*)((C_word*)t0)[3])[1]);
if(C_truep(C_i_nullp(t13))){
t14=((C_word*)((C_word*)t0)[3])[1];
t15=t7;
f_18106(t15,C_i_cadr(t14));}
else{
t14=t7;
f_18106(t14,C_SCHEME_FALSE);}}
else{
t13=t7;
f_18106(t13,C_SCHEME_FALSE);}}
else{
t11=t7;
f_18106(t11,C_SCHEME_FALSE);}}
else{
t10=t7;
f_18106(t10,C_SCHEME_FALSE);}}}}}}

/* k17922 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17924(C_word c,C_word *av){
C_word tmp;
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_17924,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,2,lf[69],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a17955 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17956(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_17956,c,av);}
a=C_alloc(29);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17961,a[2]=((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]=t2,tmp=(C_word)a,a+=9,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_18013,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t9=((C_word*)((C_word*)t0)[4])[1];
t10=C_i_cadr(t9);
t11=C_i_check_list_2(t10,lf[6]);
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18060,a[2]=t3,a[3]=((C_word*)t0)[2],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_18062,a[2]=t6,a[3]=t14,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp));
t16=((C_word*)t14)[1];
f_18062(t16,t12,t10);}

/* k17959 in a17955 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17961(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_17961,c,av);}
a=C_alloc(15);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17965,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17976,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17978,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t6=((C_word*)((C_word*)t0)[4])[1];
/* scrutinizer.scm:1872: filter-map */
f_7393(t4,t5,C_i_cadr(t6));}

/* k17963 in k17959 in a17955 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17965(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17965,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)((C_word*)t0)[3])[1];
/* scrutinizer.scm:1881: validate */
t4=((C_word*)((C_word*)t0)[4])[1];
f_17832(t4,((C_word*)t0)[5],C_i_caddr(t3),C_a_i_list(&a,1,((C_word*)t0)[6]));}

/* k17974 in k17959 in a17955 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17976(C_word c,C_word *av){
C_word tmp;
C_word 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_17976,c,av);}
/* scrutinizer.scm:1872: scheme#append */
t2=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)((C_word*)t0)[3])[1];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a17977 in k17959 in a17955 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17978(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(5,c,3)))){
C_save_and_reclaim((void *)f_17978,c,av);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17994,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:1876: validate */
t5=((C_word*)((C_word*)t0)[3])[1];
f_17832(t5,t4,C_i_cadr(t2),C_SCHEME_END_OF_LIST);}
else{
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k17992 in a17977 in k17959 in a17955 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17994(C_word c,C_word *av){
C_word tmp;
C_word t0=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_17994,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17997,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(t1)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* scrutinizer.scm:1877: return */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* k17995 in k17992 in a17977 in k17959 in a17955 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_17997(C_word c,C_word *av){
C_word tmp;
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_17997,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],((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* g3780 in a17955 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18013(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(0,0,2)))){
C_save_and_reclaim_args((void *)trf_18013,3,t0,t1,t2);}
if(C_truep(C_i_symbolp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_listp(t2))){
t3=C_eqp(C_fix(2),C_u_i_length(t2));
if(C_truep(t3)){
t4=C_i_car(t2);
if(C_truep(C_i_symbolp(t4))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
/* scrutinizer.scm:1868: return */
t5=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t5;
av2[1]=t1;
av2[2]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}
else{
/* scrutinizer.scm:1868: return */
t4=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t4;
av2[1]=t1;
av2[2]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
else{
/* scrutinizer.scm:1868: return */
t3=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t3;
av2[1]=t1;
av2[2]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}}

/* k18058 in a17955 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18060(C_word c,C_word *av){
C_word tmp;
C_word 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_18060,c,av);}
/* scrutinizer.scm:1862: scheme#append */
t2=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)((C_word*)t0)[3])[1];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop3774 in a17955 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18062(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_18062,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_18087,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);
/* scrutinizer.scm:1862: g3780 */
t4=((C_word*)t0)[4];
f_18013(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);}}}

/* k18085 in map-loop3774 in a17955 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18087(C_word c,C_word *av){
C_word tmp;
C_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_18087,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_18062(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18106(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){
C_save_and_reclaim_args((void *)trf_18106,2,t0,t1);}
a=C_alloc(16);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18110,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1841: g3816 */
t3=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=(
/* scrutinizer.scm:1841: g3816 */
  f_18110(C_a_i(&a,3),t2,t1)
);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=C_i_car(((C_word*)((C_word*)t0)[4])[1]);
t3=C_eqp(lf[28],t2);
if(C_truep(t3)){
if(C_truep(C_i_listp(((C_word*)((C_word*)t0)[4])[1]))){
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_cdr(((C_word*)((C_word*)t0)[4])[1]);
t9=C_i_check_list_2(t8,lf[6]);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18148,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18159,a[2]=t6,a[3]=t12,a[4]=((C_word*)t0)[5],a[5]=t7,tmp=(C_word)a,a+=6,tmp));
t14=((C_word*)t12)[1];
f_18159(t14,t10,t8);}
else{
t4=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t4=C_i_car(((C_word*)((C_word*)t0)[4])[1]);
t5=C_eqp(lf[52],t4);
if(C_truep(t5)){
t6=C_i_length(((C_word*)((C_word*)t0)[4])[1]);
t7=C_eqp(C_fix(2),t6);
if(C_truep(t7)){
t8=((C_word*)((C_word*)t0)[4])[1];
t9=C_i_cadr(t8);
if(C_truep(C_i_symbolp(t9))){
t10=((C_word*)((C_word*)t0)[4])[1];
t11=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t11;
av2[1]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t10=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}
else{
t8=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
else{
t6=C_i_car(((C_word*)((C_word*)t0)[4])[1]);
t7=C_eqp(lf[59],t6);
if(C_truep(t7)){
t8=C_i_length(((C_word*)((C_word*)t0)[4])[1]);
t9=C_eqp(C_fix(2),t8);
if(C_truep(t9)){
t10=((C_word*)((C_word*)t0)[4])[1];
t11=C_i_cadr(t10);
t12=C_i_symbolp(t11);
t13=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t13;
av2[1]=(C_truep(t12)?((C_word*)((C_word*)t0)[4])[1]:C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t10=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}
else{
t8=C_i_car(((C_word*)((C_word*)t0)[4])[1]);
t9=C_eqp(lf[372],t8);
if(C_truep(t9)){
t10=C_i_length(((C_word*)((C_word*)t0)[4])[1]);
t11=C_eqp(C_fix(3),t10);
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18260,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t13=((C_word*)((C_word*)t0)[4])[1];
/* scrutinizer.scm:1902: validate */
t14=((C_word*)((C_word*)t0)[5])[1];
f_17832(t14,t12,C_i_caddr(t13),C_SCHEME_END_OF_LIST);}
else{
t12=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}
else{
t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18329,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],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],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp);
/* scrutinizer.scm:1907: memq* */
f_17668(t10,lf[471],((C_word*)((C_word*)t0)[4])[1]);}}}}}}

/* g3816 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static C_word C_fcall f_18110(C_word *a,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;{}
if(C_truep(C_i_memq(t1,((C_word*)((C_word*)t0)[2])[1]))){
return(t1);}
else{
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);
return(t1);}}

/* k18146 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18148(C_word c,C_word *av){
C_word tmp;
C_word t0=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_18148,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18154,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1894: every */
f_7109(t2,*((C_word*)lf[396]+1),t1);}

/* k18152 in k18146 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18154(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_18154,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,lf[28],((C_word*)t0)[3]):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop3824 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18159(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_18159,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_18184,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);
/* scrutinizer.scm:1893: g3830 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_17832(t4,t3,C_slot(t2,C_fix(0)),C_SCHEME_END_OF_LIST);}
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);}}}

/* k18182 in map-loop3824 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18184(C_word c,C_word *av){
C_word tmp;
C_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_18184,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_18159(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k18258 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18260(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_18260,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18290,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_pairp(t1))){
t3=C_eqp(C_u_i_car(t1),lf[52]);
t4=t2;
f_18290(t4,(C_truep(t3)?t3:C_i_memq(t1,lf[19])));}
else{
t3=t2;
f_18290(t3,C_i_memq(t1,lf[19]));}}

/* k18288 in k18258 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18290(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_18290,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_i_cadr(t2);
if(C_truep(C_i_listp(t3))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18302,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);
t5=((C_word*)((C_word*)t0)[2])[1];
/* scrutinizer.scm:1905: every */
f_7109(t4,*((C_word*)lf[470]+1),C_i_cadr(t5));}
else{
t4=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t2=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k18300 in k18288 in k18258 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18302(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_18302,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_i_cadr(t2);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list3(&a,3,lf[372],t3,((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18329(C_word c,C_word *av){
C_word tmp;
C_word t0=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_18329,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18332,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
if(C_truep(t1)){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
f_18332(2,av2);}}
else{
/* scrutinizer.scm:1907: memq* */
f_17668(t2,lf[473],((C_word*)((C_word*)t0)[4])[1]);}}

/* k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18332(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(16,c,4)))){
C_save_and_reclaim((void *)f_18332,c,av);}
a=C_alloc(16);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18336,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* scrutinizer.scm:1841: g3875 */
t3=t2;
f_18336(t3,((C_word*)t0)[8],t1);}
else{
t2=C_i_car(((C_word*)((C_word*)t0)[4])[1]);
if(C_truep((C_truep(C_eqp(t2,lf[359]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[361]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
if(C_truep(C_i_listp(((C_word*)((C_word*)t0)[4])[1]))){
t3=C_i_length(((C_word*)((C_word*)t0)[4])[1]);
t4=C_eqp(C_fix(2),t3);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18478,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
t6=((C_word*)((C_word*)t0)[4])[1];
/* scrutinizer.scm:1930: validate */
t7=((C_word*)((C_word*)t0)[3])[1];
f_17832(t7,t5,C_i_cadr(t6),C_SCHEME_END_OF_LIST);}
else{
t5=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t3=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
else{
t3=C_i_car(((C_word*)((C_word*)t0)[4])[1]);
if(C_truep((C_truep(C_eqp(t3,lf[50]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[47]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
if(C_truep(C_i_listp(((C_word*)((C_word*)t0)[4])[1]))){
t4=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18520,a[2]=((C_word*)t0)[4],a[3]=t6,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_18520(t8,((C_word*)t0)[8],t4,C_SCHEME_END_OF_LIST);}
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);}}}
else{
t4=C_i_car(((C_word*)((C_word*)t0)[4])[1]);
t5=C_eqp(lf[48],t4);
if(C_truep(t5)){
t6=C_i_length(((C_word*)((C_word*)t0)[4])[1]);
t7=C_eqp(C_fix(3),t6);
if(C_truep(t7)){
t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t9=t8;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=((C_word*)t10)[1];
t12=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]);
t13=C_i_check_list_2(t12,lf[6]);
t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18588,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp);
t15=C_SCHEME_UNDEFINED;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18599,a[2]=t10,a[3]=t16,a[4]=((C_word*)t0)[3],a[5]=t11,tmp=(C_word)a,a+=6,tmp));
t18=((C_word*)t16)[1];
f_18599(t18,t14,t12);}
else{
t8=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
else{
t6=C_i_car(((C_word*)((C_word*)t0)[4])[1]);
t7=C_eqp(lf[84],t6);
if(C_truep(t7)){
t8=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]);
if(C_truep(C_i_pairp(t8))){
t9=C_i_cadr(((C_word*)((C_word*)t0)[4])[1]);
t10=C_i_symbolp(t9);
t11=(C_truep(t10)?C_i_cadr(((C_word*)((C_word*)t0)[4])[1]):((C_word*)t0)[9]);
t12=C_i_cadr(((C_word*)((C_word*)t0)[4])[1]);
t13=C_i_symbolp(t12);
t14=(C_truep(t13)?C_i_cddr(((C_word*)((C_word*)t0)[4])[1]):C_i_cdr(((C_word*)((C_word*)t0)[4])[1]));
if(C_truep(C_i_pairp(t14))){
if(C_truep(C_i_listp(C_u_i_car(t14)))){
t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18669,a[2]=t14,a[3]=((C_word*)t0)[8],a[4]=t11,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:1951: validate-llist */
t16=((C_word*)((C_word*)t0)[10])[1];
f_17702(t16,t15,C_u_i_car(t14));}
else{
t15=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t15;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}}
else{
t15=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t15;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}}
else{
t9=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t9;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t8=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}}}}

/* g3875 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18336(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_18336,3,t0,t1,t2);}
a=C_alloc(10);
t3=C_i_car(t2);
t4=C_eqp(lf[471],t3);
t5=C_i_not(((C_word*)t0)[2]);
t6=(C_truep(t5)?t5:C_i_not(t4));
t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18349,a[2]=t6,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)t0)[2])){
t8=t7;
f_18349(t8,C_SCHEME_UNDEFINED);}
else{
t8=C_set_block_item(((C_word*)t0)[7],0,t4);
t9=t7;
f_18349(t9,t8);}}

/* k18347 in g3875 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18349(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,3)))){
C_save_and_reclaim_args((void *)trf_18349,2,t0,t1);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18352,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* scrutinizer.scm:1912: memq* */
f_17668(t2,lf[472],((C_word*)t0)[3]);}

/* k18350 in k18347 in g3875 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18352(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_18352,c,av);}
a=C_alloc(12);
if(C_truep(C_i_not(t1))){
if(C_truep(((C_word*)t0)[2])){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18376,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);
t3=((C_word*)((C_word*)t0)[7])[1];
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17646,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_17646(t7,t2,t3);}
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);}}}
else{
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18384,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[4],a[7]=t1,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
t3=C_i_length(((C_word*)((C_word*)t0)[7])[1]);
t4=C_eqp(C_fix(5),t3);
if(C_truep(t4)){
t5=C_i_cdr(((C_word*)((C_word*)t0)[7])[1]);
t6=C_eqp(((C_word*)t0)[3],t5);
t7=t2;
f_18384(t7,(C_truep(t6)?C_eqp(t1,C_i_cdddr(((C_word*)((C_word*)t0)[7])[1])):C_SCHEME_FALSE));}
else{
t5=t2;
f_18384(t5,C_SCHEME_FALSE);}}}

/* k18374 in k18350 in k18347 in g3875 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18376(C_word c,C_word *av){
C_word tmp;
C_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_18376,c,av);}
a=C_alloc(9);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,t1,t2);
t4=C_a_i_cons(&a,2,lf[84],t3);
/* scrutinizer.scm:1915: validate */
t5=((C_word*)((C_word*)t0)[3])[1];
f_17832(t5,((C_word*)t0)[4],t4,C_a_i_list(&a,1,((C_word*)t0)[5]));}

/* k18382 in k18350 in k18347 in g3875 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18384(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){
C_save_and_reclaim_args((void *)trf_18384,2,t0,t1);}
a=C_alloc(23);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18388,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
t3=((C_word*)((C_word*)t0)[2])[1];
t4=C_i_car(t3);
t5=C_a_i_list(&a,1,t4);
t6=((C_word*)((C_word*)t0)[2])[1];
t7=C_i_caddr(t6);
t8=C_a_i_list(&a,3,lf[84],t5,t7);
/* scrutinizer.scm:1921: validate */
t9=((C_word*)((C_word*)t0)[6])[1];
f_17832(t9,t2,t8,C_a_i_list(&a,1,((C_word*)t0)[8]));}
else{
t2=((C_word*)t0)[5];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k18386 in k18382 in k18350 in k18347 in g3875 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18388(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_18388,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18399,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);
/* scrutinizer.scm:1924: validate */
t4=((C_word*)((C_word*)t0)[6])[1];
f_17832(t4,t3,C_i_cadr(((C_word*)t0)[7]),C_SCHEME_END_OF_LIST);}

/* k18397 in k18386 in k18382 in k18350 in k18347 in g3875 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18399(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_18399,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t1);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
if(C_truep(((C_word*)t0)[4])){
t4=((C_word*)((C_word*)t0)[2])[1];
t5=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,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);}}}

/* k18476 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18478(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_18478,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,2,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_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* loop in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18520(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_18520,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t2))){
t4=C_i_car(((C_word*)((C_word*)t0)[2])[1]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18538,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1935: scheme#reverse */
t6=*((C_word*)lf[367]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18541,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:1936: validate */
t5=((C_word*)((C_word*)t0)[4])[1];
f_17832(t5,t4,C_i_car(t2),C_SCHEME_END_OF_LIST);}}

/* k18536 in loop in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18538(C_word c,C_word *av){
C_word tmp;
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_18538,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);}}

/* k18539 in loop in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18541(C_word c,C_word *av){
C_word tmp;
C_word t0=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_18541,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18545,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);
/* scrutinizer.scm:1935: g3921 */
t3=t2;
f_18545(t3,((C_word*)t0)[5],t1);}
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);}}}

/* g3921 in k18539 in loop in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18545(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_18545,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_i_cdr(((C_word*)t0)[2]);
t4=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]);
/* scrutinizer.scm:1937: loop */
t5=((C_word*)((C_word*)t0)[4])[1];
f_18520(t5,t1,t3,t4);}

/* k18586 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18588(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_18588,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18594,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1942: every */
f_7109(t2,*((C_word*)lf[396]+1),t1);}

/* k18592 in k18586 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18594(C_word c,C_word *av){
C_word tmp;
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_18594,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,lf[48],((C_word*)t0)[3]):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop3929 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18599(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_18599,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_18624,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);
/* scrutinizer.scm:1941: g3935 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_17832(t4,t3,C_slot(t2,C_fix(0)),C_SCHEME_END_OF_LIST);}
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);}}}

/* k18622 in map-loop3929 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18624(C_word c,C_word *av){
C_word tmp;
C_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_18624,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_18599(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k18667 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18669(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_18669,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18678,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:1953: every */
f_7109(t2,*((C_word*)lf[396]+1),t1);}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k18676 in k18667 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18678(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(22,c,3)))){
C_save_and_reclaim((void *)f_18678,c,av);}
a=C_alloc(22);
if(C_truep(t1)){
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18682,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_eqp(lf[53],t2);
if(C_truep(t4)){
t5=t3;
f_18682(t5,t2);}
else{
if(C_truep(C_i_listp(t2))){
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18724,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18732,a[2]=t7,a[3]=t11,a[4]=((C_word*)t0)[7],a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_18732(t13,t9,t2);}
else{
t5=t3;
f_18682(t5,C_SCHEME_FALSE);}}}
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);}}}

/* k18680 in k18676 in k18667 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18682(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_18682,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18692,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[3])){
t3=C_i_not(((C_word*)t0)[4]);
t4=(C_truep(t3)?C_a_i_list1(&a,1,((C_word*)t0)[3]):C_SCHEME_END_OF_LIST);
t5=C_a_i_cons(&a,2,((C_word*)t0)[5],t1);
/* scrutinizer.scm:1962: ##sys#append */
t6=*((C_word*)lf[404]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t2;
av2[2]=t4;
av2[3]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t3=C_a_i_cons(&a,2,((C_word*)t0)[5],t1);
/* scrutinizer.scm:1962: ##sys#append */
t4=*((C_word*)lf[404]+1);{
C_word av2[4];
av2[0]=t4;
av2[1]=t2;
av2[2]=C_SCHEME_END_OF_LIST;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}
else{
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k18690 in k18680 in k18676 in k18667 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18692(C_word c,C_word *av){
C_word tmp;
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_18692,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,lf[84],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k18722 in k18676 in k18667 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18724(C_word c,C_word *av){
C_word tmp;
C_word t0=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_18724,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18730,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1959: every */
f_7109(t2,*((C_word*)lf[396]+1),t1);}

/* k18728 in k18722 in k18676 in k18667 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18730(C_word c,C_word *av){
C_word tmp;
C_word 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_18730,c,av);}
t2=((C_word*)t0)[2];
f_18682(t2,(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE));}

/* map-loop3971 in k18676 in k18667 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18732(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_18732,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_18757,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);
/* scrutinizer.scm:1958: g3977 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_17832(t4,t3,C_slot(t2,C_fix(0)),C_SCHEME_END_OF_LIST);}
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);}}}

/* k18755 in map-loop3971 in k18676 in k18667 in k18330 in k18327 in k18104 in k17888 in validate in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18757(C_word c,C_word *av){
C_word tmp;
C_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_18757,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_18732(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k18887 in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18889(C_word c,C_word *av){
C_word tmp;
C_word t0=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_18889,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18893,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);
/* scrutinizer.scm:1967: g4002 */
t3=t2;
f_18893(t3,((C_word*)t0)[6],t1);}
else{
/* scrutinizer.scm:1983: scheme#values */{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[6];
av2[2]=C_SCHEME_FALSE;
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_FALSE;
C_values(5,av2);}}}

/* g4002 in k18887 in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18893(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){
C_save_and_reclaim_args((void *)trf_18893,3,t0,t1,t2);}
a=C_alloc(23);
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_18897,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[4])[1]))){
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18932,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp);
t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18956,a[2]=t3,a[3]=t4,a[4]=t7,a[5]=t9,a[6]=t8,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:1976: delete-duplicates */
f_7304(t10,((C_word*)((C_word*)t0)[4])[1],*((C_word*)lf[374]+1));}
else{
t5=t4;
f_18897(t5,C_SCHEME_UNDEFINED);}}

/* k18895 in g4002 in k18887 in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18897(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_18897,2,t0,t1);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18900,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);
/* scrutinizer.scm:1978: simplify-type */
f_13487(t2,((C_word*)((C_word*)t0)[3])[1]);}

/* k18898 in k18895 in g4002 in k18887 in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18900(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_18900,c,av);}
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]);
t3=C_eqp(t2,((C_word*)((C_word*)t0)[3])[1]);
if(C_truep(t3)){
/* scrutinizer.scm:1979: scheme#values */{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[4];
av2[2]=t1;
av2[3]=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]);
av2[4]=((C_word*)((C_word*)t0)[5])[1];
C_values(5,av2);}}
else{
/* scrutinizer.scm:1979: scheme#values */{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[4];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)((C_word*)t0)[5])[1];
C_values(5,av2);}}}
else{
/* scrutinizer.scm:1979: scheme#values */{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[4];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)((C_word*)t0)[5])[1];
C_values(5,av2);}}}

/* g4016 in g4002 in k18887 in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18932(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(12,0,2)))){
C_save_and_reclaim_args((void *)trf_18932,3,t0,t1,t2);}
a=C_alloc(12);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18936,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18949,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18953,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1973: chicken.syntax#strip-syntax */
t6=*((C_word*)lf[478]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k18934 in g4016 in g4002 in k18887 in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18936(C_word c,C_word *av){
C_word tmp;
C_word t0=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_18936,c,av);}
t2=C_i_assq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?t2:((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k18947 in g4016 in g4002 in k18887 in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18949(C_word c,C_word *av){
C_word tmp;
C_word 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_18949,c,av);}
/* scrutinizer.scm:1973: chicken.plist#put! */
t2=*((C_word*)lf[476]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[376];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k18951 in g4016 in g4002 in k18887 in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18953(C_word c,C_word *av){
C_word tmp;
C_word 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_18953,c,av);}
/* scrutinizer.scm:1973: scheme#symbol->string */
t2=*((C_word*)lf[477]+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);}}

/* k18954 in g4002 in k18887 in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18956(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_18956,c,av);}
a=C_alloc(12);
t2=C_i_check_list_2(t1,lf[6]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18962,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18964,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_18964(t7,t3,t1);}

/* k18960 in k18954 in g4002 in k18887 in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18962(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_18962,c,av);}
a=C_alloc(9);
t2=C_a_i_list(&a,3,lf[29],t1,((C_word*)((C_word*)t0)[2])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t4=((C_word*)t0)[3];
f_18897(t4,t3);}

/* map-loop4010 in k18954 in g4002 in k18887 in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_18964(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_18964,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_18989,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);
/* scrutinizer.scm:1972: g4016 */
t4=((C_word*)t0)[4];
f_18932(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);}}}

/* k18987 in map-loop4010 in k18954 in g4002 in k18887 in chicken.compiler.scrutinizer#validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_18989(C_word c,C_word *av){
C_word tmp;
C_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_18989,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_18964(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* chicken.compiler.scrutinizer#check-and-validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19004(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_19004,c,av);}
a=C_alloc(8);
t4=C_rest_nullp(c,4);
t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0));
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19013,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19023,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1986: ##sys#call-with-values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t6;
av2[3]=t7;
C_call_with_values(4,av2);}}

/* a19012 in chicken.compiler.scrutinizer#check-and-validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19013(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_19013,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19021,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:1986: chicken.syntax#strip-syntax */
t3=*((C_word*)lf[478]+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);}}

/* k19019 in a19012 in chicken.compiler.scrutinizer#check-and-validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19021(C_word c,C_word *av){
C_word tmp;
C_word 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_19021,c,av);}
/* scrutinizer.scm:1986: validate-type */
t2=*((C_word*)lf[407]+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);}}

/* a19022 in chicken.compiler.scrutinizer#check-and-validate-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19023(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_19023,c,av);}
if(C_truep(t2)){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
/* scrutinizer.scm:1988: chicken.base#error */
t5=*((C_word*)lf[480]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[481];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}

/* chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19038(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(24,c,3)))){
C_save_and_reclaim((void *)f_19038,c,av);}
a=C_alloc(24);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19041,a[2]=t2,tmp=(C_word)a,a+=3,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|3,a[1]=(C_word)f_19053,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
t10=C_i_check_list_2(t3,lf[6]);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19281,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19283,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t15=((C_word*)t13)[1];
f_19283(t15,t11,t3);}

/* fail in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_19041(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_19041,3,t0,t1,t2);}
/* scrutinizer.scm:1992: chicken.base#error */
t3=*((C_word*)lf[480]+1);{
C_word av2[5];
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[482];
av2[3]=t2;
av2[4]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_19053(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){
C_save_and_reclaim_args((void *)trf_19053,3,t0,t1,t2);}
a=C_alloc(23);
t3=C_i_listp(t2);
t4=(C_truep(t3)?C_i_listp(C_i_car(t2)):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19064,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t10=C_i_car(t2);
t11=C_i_check_list_2(t10,lf[6]);
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19092,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,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_19230,a[2]=t7,a[3]=t14,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t16=((C_word*)t14)[1];
f_19230(t16,t12,t10);}
else{
/* scrutinizer.scm:2032: fail */
t5=((C_word*)t0)[3];
f_19041(t5,t1,t2);}}

/* g4113 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_19064(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,5)))){
C_save_and_reclaim_args((void *)trf_19064,3,t0,t1,t2);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19070,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19076,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2009: ##sys#call-with-values */{
C_word av2[4];
av2[0]=0;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
C_call_with_values(4,av2);}}

/* a19069 in g4113 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19070(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19070,c,av);}
/* scrutinizer.scm:2009: validate-type */
t2=*((C_word*)lf[407]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a19075 in g4113 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19076(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_19076,c,av);}
if(C_truep(t2)){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
/* scrutinizer.scm:2011: chicken.base#error */
t5=*((C_word*)lf[480]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=lf[483];
av2[3]=((C_word*)t0)[2];
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}}

/* k19090 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19092(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_19092,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19095,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19228,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2014: append-map */
f_6939(t3,lf[161],t1,C_SCHEME_END_OF_LIST);}

/* k19093 in k19090 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19095(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
C_save_and_reclaim((void *)f_19095,c,av);}
a=C_alloc(26);
t2=C_i_length(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19105,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
switch(t2){
case C_fix(2):
t4=C_i_cdr(((C_word*)t0)[2]);
t5=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}
case C_fix(3):
t4=C_i_cadr(((C_word*)t0)[2]);
if(C_truep(C_i_listp(t4))){
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19131,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t10=C_i_cadr(((C_word*)t0)[2]);
t11=C_i_check_list_2(t10,lf[6]);
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19159,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);
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_19165,a[2]=t7,a[3]=t14,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t16=((C_word*)t14)[1];
f_19165(t16,t12,t10);}
else{
t5=C_i_cadr(((C_word*)t0)[2]);
t6=C_eqp(lf[53],t5);
if(C_truep(t6)){
t7=C_i_cdr(((C_word*)t0)[2]);
t8=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t7);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
/* scrutinizer.scm:2030: fail */
t7=((C_word*)t0)[6];
f_19041(t7,t3,((C_word*)t0)[2]);}}
default:
/* scrutinizer.scm:2031: fail */
t4=((C_word*)t0)[6];
f_19041(t4,t3,((C_word*)t0)[2]);}}

/* k19103 in k19093 in k19090 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19105(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_19105,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);}}

/* g4166 in k19093 in k19090 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_19131(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,5)))){
C_save_and_reclaim_args((void *)trf_19131,3,t0,t1,t2);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19137,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19143,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2023: ##sys#call-with-values */{
C_word av2[4];
av2[0]=0;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
C_call_with_values(4,av2);}}

/* a19136 in g4166 in k19093 in k19090 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19137(C_word c,C_word *av){
C_word tmp;
C_word 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_19137,c,av);}
/* scrutinizer.scm:2023: validate-type */
t2=*((C_word*)lf[407]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a19142 in g4166 in k19093 in k19090 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19143(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_19143,c,av);}
if(C_truep(t2)){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
/* scrutinizer.scm:2025: chicken.base#error */
t5=*((C_word*)lf[480]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=lf[484];
av2[3]=((C_word*)t0)[2];
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}}

/* k19157 in k19093 in k19090 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19159(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_19159,c,av);}
a=C_alloc(6);
t2=C_i_cddr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,t1,t2);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* map-loop4160 in k19093 in k19090 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_19165(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_19165,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_19190,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);
/* scrutinizer.scm:2022: g4166 */
t4=((C_word*)t0)[4];
f_19131(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);}}}

/* k19188 in map-loop4160 in k19093 in k19090 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19190(C_word c,C_word *av){
C_word tmp;
C_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_19190,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_19165(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k19226 in k19090 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19228(C_word c,C_word *av){
C_word tmp;
C_word 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_19228,c,av);}
/* scrutinizer.scm:2014: unzip1 */
t2=lf[12];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
f_7458(3,av2);}}

/* map-loop4107 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_19230(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_19230,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_19255,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);
/* scrutinizer.scm:2008: g4113 */
t4=((C_word*)t0)[4];
f_19064(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);}}}

/* k19253 in map-loop4107 in g4091 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19255(C_word c,C_word *av){
C_word tmp;
C_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_19255,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_19230(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k19279 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19281(C_word c,C_word *av){
C_word tmp;
C_word 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_19281,c,av);}
/* scrutinizer.scm:1993: chicken.compiler.support#mark-variable */
t2=*((C_word*)lf[233]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[162];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* map-loop4085 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_19283(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_19283,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_19308,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);
/* scrutinizer.scm:2005: g4091 */
t4=((C_word*)t0)[4];
f_19053(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);}}}

/* k19306 in map-loop4085 in chicken.compiler.scrutinizer#install-specializations in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19308(C_word c,C_word *av){
C_word tmp;
C_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_19308,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_19283(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* chicken.compiler.scrutinizer#canonicalize-list-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_19317(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_19317,2,t1,t2);}
a=C_alloc(9);
t3=C_i_pairp(t2);
if(C_truep(C_i_not(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
t5=C_eqp(lf[48],t4);
if(C_truep(t5)){
t6=C_i_cadr(t2);
t7=C_i_caddr(t2);
t8=C_a_i_list1(&a,1,t6);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19345,a[2]=t10,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t12=((C_word*)t10)[1];
f_19345(t12,t1,t7,t8);}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}

/* rec in chicken.compiler.scrutinizer#canonicalize-list-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_19345(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_19345,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=C_eqp(lf[31],t2);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19359,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2048: scheme#reverse */
t6=*((C_word*)lf[367]+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_i_pairp(t2);
t6=(C_truep(t5)?C_eqp(lf[48],C_i_car(t2)):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=C_i_caddr(t2);
t8=C_i_cadr(t2);
t9=C_a_i_cons(&a,2,t8,t3);
/* scrutinizer.scm:2050: rec */
t12=t1;
t13=t7;
t14=t9;
t1=t12;
t2=t13;
t3=t14;
goto loop;}
else{
t7=C_i_pairp(t2);
t8=(C_truep(t7)?C_eqp(lf[47],C_i_car(t2)):C_SCHEME_FALSE);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19393,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19397,a[2]=t9,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2052: scheme#reverse */
t11=*((C_word*)lf[367]+1);{
C_word av2[3];
av2[0]=t11;
av2[1]=t10;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}}}

/* k19357 in rec in chicken.compiler.scrutinizer#canonicalize-list-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19359(C_word c,C_word *av){
C_word tmp;
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_19359,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,lf[47],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k19391 in rec in chicken.compiler.scrutinizer#canonicalize-list-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19393(C_word c,C_word *av){
C_word tmp;
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_19393,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,lf[47],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k19395 in rec in chicken.compiler.scrutinizer#canonicalize-list-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19397(C_word c,C_word *av){
C_word tmp;
C_word 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_19397,c,av);}
/* scrutinizer.scm:2052: ##sys#append */
t2=*((C_word*)lf[404]+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_i_cdr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* chicken.compiler.scrutinizer#strip-namespace in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_19431(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_19431,2,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19435,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2060: scheme#symbol->string */
t4=*((C_word*)lf[477]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k19433 in chicken.compiler.scrutinizer#strip-namespace in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19435(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_19435,c,av);}
a=C_alloc(8);
t2=C_block_size(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|5,a[1]=(C_word)f_19443,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_19443(t6,((C_word*)t0)[3],C_fix(0));}

/* loop in k19433 in chicken.compiler.scrutinizer#strip-namespace in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_19443(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(3,0,4)))){
C_save_and_reclaim_args((void *)trf_19443,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(t3)){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_eqp(C_subchar(((C_word*)t0)[4],t2),C_make_character(35));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19463,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2065: ##sys#substring */
t6=*((C_word*)lf[485]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
av2[3]=C_fixnum_plus(t2,C_fix(1));
av2[4]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
/* scrutinizer.scm:2066: loop */
t7=t1;
t8=C_fixnum_plus(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}}}

/* k19461 in loop in k19433 in chicken.compiler.scrutinizer#strip-namespace in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19463(C_word c,C_word *av){
C_word tmp;
C_word 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_19463,c,av);}
/* scrutinizer.scm:2065: ##sys#intern-symbol */{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
C_string_to_symbol(3,av2);}}

/* k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19479(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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,6)))){
C_save_and_reclaim((void *)f_19479,c,av);}
a=C_alloc(14);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19481,tmp=(C_word)a,a+=2,tmp));
t7=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19580,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19635,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2119: ##sys#put! */
t9=*((C_word*)lf[640]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[655];
av2[3]=lf[274];
av2[4]=((C_word*)t5)[1];
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}

/* known-length-vector-index in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_19481(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(7,0,2)))){
C_save_and_reclaim_args((void *)trf_19481,5,t1,t2,t3,t4,t5);}
a=C_alloc(7);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19485,a[2]=t5,a[3]=t3,a[4]=t1,a[5]=t4,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2093: chicken.compiler.support#node-subexpressions */
t7=*((C_word*)lf[86]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k19483 in known-length-vector-index in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19485(C_word c,C_word *av){
C_word tmp;
C_word t0=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_19485,c,av);}
a=C_alloc(35);
if(C_truep(t1)){
t2=C_i_length(t1);
t3=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
if(C_truep(C_i_nequalp(t2,t3))){
t4=C_i_cadr(((C_word*)t0)[3]);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f26593,a[2]=t1,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);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t6=*((C_word*)lf[26]+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_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,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);}}}

/* k19546 in k19558 in k19562 */
static void C_ccall f_19548(C_word c,C_word *av){
C_word tmp;
C_word 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_19548,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k19558 in k19562 */
static void C_ccall f_19560(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,6)))){
C_save_and_reclaim((void *)f_19560,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
if(C_truep(t2)){
if(C_truep(C_fixnump(t2))){
t3=C_i_length(C_u_i_cdr(((C_word*)t0)[2]));
t4=C_i_greater_or_equalp(t2,C_fix(0));
t5=(C_truep(t4)?C_i_lessp(t2,t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19548,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2106: r-index-out-of-range */
f_22029(t6,((C_word*)t0)[4],((C_word*)t0)[5],t2,t3,lf[487]);}}
else{
t3=((C_word*)t0)[3];{
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)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k19562 */
static void C_ccall f_19564(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_19564,c,av);}
a=C_alloc(6);
t2=C_eqp(lf[123],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19560,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);
/* scrutinizer.scm:2100: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[26]+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)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* vector-ref-result-type in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19580(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_19580,c,av);}
a=C_alloc(6);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19584,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2112: known-length-vector-index */
f_19481(t6,t2,t3,t4,C_fix(2));}

/* k19582 in vector-ref-result-type in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19584(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_19584,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_i_cadr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f26598,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[26]+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)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k19603 in k19626 */
static void C_ccall f_19605(C_word c,C_word *av){
C_word tmp;
C_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,1)))){
C_save_and_reclaim((void *)f_19605,c,av);}
a=C_alloc(3);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_i_list_ref(t2,((C_word*)t0)[3]);
t4=C_a_i_list1(&a,1,t3);
t5=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=(C_truep(t4)?t4:((C_word*)t0)[5]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k19626 */
static void C_ccall f_19628(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
C_save_and_reclaim((void *)f_19628,c,av);}
a=C_alloc(21);
t2=C_i_cadr(t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19605,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_a_i_list(&a,2,lf[123],((C_word*)t0)[3]);
t5=C_a_i_list(&a,3,lf[488],t2,t4);
/* scrutinizer.scm:2115: mutate-node! */
f_17304(t3,((C_word*)t0)[6],t5);}
else{
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19635(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_19635,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19638,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2120: ##sys#put! */
t3=*((C_word*)lf[640]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[654];
av2[3]=lf[274];
av2[4]=((C_word*)((C_word*)t0)[4])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19638(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){
C_save_and_reclaim((void *)f_19638,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19641,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23260,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2122: ##sys#put! */
t4=*((C_word*)lf[640]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[653];
av2[3]=lf[274];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19641(C_word c,C_word *av){
C_word tmp;
C_word t0=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_19641,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19826,tmp=(C_word)a,a+=2,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19921,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23242,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23244,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:2202: list+index-call-result-type-special-case */
f_19826(t4,t5);}

/* a19693 in k19903 in k19907 */
static void C_ccall f_19694(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_19694,c,av);}
a=C_alloc(5);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6906,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_6906(t6,t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST,t2);}

/* a19703 in k19903 in k19907 */
static void C_ccall f_19704(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_19704,c,av);}
a=C_alloc(6);
t4=C_i_nullp(t2);
t5=(C_truep(t4)?lf[31]:C_a_i_cons(&a,2,lf[47],t2));
t6=C_i_nullp(t3);
t7=(C_truep(t6)?lf[31]:C_a_i_cons(&a,2,lf[47],t3));
/* scrutinizer.scm:2158: k */
t8=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t8;
av2[1]=t1;
av2[2]=t5;
av2[3]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}

/* lp in k19903 in k19907 */
static void C_fcall f_19731(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(32,0,4)))){
C_save_and_reclaim_args((void *)trf_19731,5,t0,t1,t2,t3,t4);}
a=C_alloc(32);
t5=C_eqp(t4,C_fix(0));
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19749,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2163: scheme#reverse */
t7=*((C_word*)lf[367]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t6=C_i_pairp(t3);
t7=(C_truep(t6)?C_eqp(C_i_car(t3),lf[48]):C_SCHEME_FALSE);
if(C_truep(t7)){
t8=C_i_cadr(t3);
t9=C_a_i_cons(&a,2,t8,t2);
t10=C_i_caddr(t3);
t11=C_s_a_i_minus(&a,2,t4,C_fix(1));
/* scrutinizer.scm:2166: lp */
t13=t1;
t14=t9;
t15=t10;
t16=t11;
t1=t13;
t2=t14;
t3=t15;
t4=t16;
goto loop;}
else{
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}

/* k19747 in lp in k19903 in k19907 */
static void C_ccall f_19749(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_19749,c,av);}
a=C_alloc(3);
t2=C_i_nullp(t1);
t3=(C_truep(t2)?lf[31]:C_a_i_cons(&a,2,lf[47],t1));
/* scrutinizer.scm:2163: k */
t4=((C_word*)t0)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=t3;
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* list+index-call-result-type-special-case in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_19826(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,6)))){
C_save_and_reclaim_args((void *)trf_19826,2,t1,t2);}
a=C_alloc(3);
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19828,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* f_19828 in list+index-call-result-type-special-case in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19828(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_19828,c,av);}
a=C_alloc(8);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19832,a[2]=t1,a[3]=t5,a[4]=t3,a[5]=t4,a[6]=t2,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:2181: chicken.compiler.support#node-subexpressions */
t7=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k19830 */
static void C_ccall f_19832(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_19832,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19835,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t1)){
t3=C_i_length(t1);
t4=C_eqp(t3,C_fix(3));
if(C_truep(t4)){
t5=C_i_cadr(((C_word*)t0)[4]);
t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f26607,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t7=*((C_word*)lf[26]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k19833 in k19830 */
static void C_ccall f_19835(C_word c,C_word *av){
C_word tmp;
C_word 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_19835,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);}}

/* k19879 in k19903 in k19907 */
static void C_ccall f_19881(C_word c,C_word *av){
C_word tmp;
C_word 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_19881,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);}}

/* k19882 in k19903 in k19907 */
static void C_ccall f_19884(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_19884,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
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);}}
else{
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19890,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)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
t3=C_eqp(((C_word*)t0)[8],lf[31]);
if(C_truep(t3)){
t4=t2;
f_19890(t4,C_fix(0));}
else{
t4=C_i_pairp(((C_word*)t0)[8]);
t5=(C_truep(t4)?C_eqp(C_u_i_car(((C_word*)t0)[8]),lf[47]):C_SCHEME_FALSE);
t6=t2;
f_19890(t6,(C_truep(t5)?C_i_length(C_i_cdr(((C_word*)t0)[8])):C_SCHEME_FALSE));}}}

/* k19888 in k19882 in k19903 in k19907 */
static void C_fcall f_19890(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_19890,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19894,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);
/* scrutinizer.scm:2188: g4437 */
t3=t2;
f_19894(t3,((C_word*)t0)[5],t1);}
else{
t2=((C_word*)t0)[6];{
C_word av2[2];
av2[0]=t2;
av2[1]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* g4437 in k19888 in k19882 in k19903 in k19907 */
static void C_fcall f_19894(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,6)))){
C_save_and_reclaim_args((void *)trf_19894,3,t0,t1,t2);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19898,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2196: r-index-out-of-range */
f_22029(t3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t2,lf[491]);}

/* k19896 in g4437 in k19888 in k19882 in k19903 in k19907 */
static void C_ccall f_19898(C_word c,C_word *av){
C_word tmp;
C_word 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_19898,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k19903 in k19907 */
static void C_ccall f_19905(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(16,c,6)))){
C_save_and_reclaim((void *)f_19905,c,av);}
a=C_alloc(16);
t2=C_i_car(t1);
if(C_truep(t2)){
if(C_truep(C_fixnump(t2))){
if(C_truep(C_i_negativep(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19881,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2189: r-index-out-of-range */
f_22029(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,lf[489],lf[490]);}
else{
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19884,a[2]=((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],tmp=(C_word)a,a+=9,tmp);
t4=C_i_pairp(((C_word*)t0)[7]);
if(C_truep(C_i_not(t4))){
t5=C_eqp(t2,C_fix(0));
if(C_truep(t5)){
t6=C_eqp(((C_word*)t0)[7],lf[31]);
if(C_truep(t6)){
/* scrutinizer.scm:2154: k */
t7=((C_word*)t0)[8];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t3;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
t7=t3;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
f_19884(2,av2);}}}
else{
t6=t3;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_19884(2,av2);}}}
else{
t5=C_i_car(((C_word*)t0)[7]);
t6=C_eqp(t5,lf[47]);
if(C_truep(t6)){
t7=C_i_length(((C_word*)t0)[7]);
if(C_truep(C_fixnum_lessp(t2,t7))){
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19694,a[2]=((C_word*)t0)[7],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19704,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2157: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t3;
av2[2]=t8;
av2[3]=t9;
C_call_with_values(4,av2);}}
else{
t8=t3;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_19884(2,av2);}}}
else{
t7=C_i_car(((C_word*)t0)[7]);
t8=C_eqp(t7,lf[48]);
if(C_truep(t8)){
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19731,a[2]=((C_word*)t0)[8],a[3]=t10,tmp=(C_word)a,a+=4,tmp));
t12=((C_word*)t10)[1];
f_19731(t12,t3,C_SCHEME_END_OF_LIST,((C_word*)t0)[7],t2);}
else{
t9=t3;{
C_word *av2=av;
av2[0]=t9;
av2[1]=C_SCHEME_FALSE;
f_19884(2,av2);}}}}}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
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);}}}

/* k19907 */
static void C_ccall f_19909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_19909,c,av);}
a=C_alloc(9);
t2=C_eqp(lf[123],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19905,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* scrutinizer.scm:2186: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[26]+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)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19921(C_word c,C_word *av){
C_word tmp;
C_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_19921,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19924,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23232,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23234,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:2208: list+index-call-result-type-special-case */
f_19826(t3,t4);}

/* k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19924(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_19924,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19927,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23165,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:2211: ##sys#put! */
t4=*((C_word*)lf[640]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[647];
av2[3]=lf[274];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19927(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_19927,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19930,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23100,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:2217: ##sys#put! */
t4=*((C_word*)lf[640]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[645];
av2[3]=lf[274];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19930(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_19930,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19933,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23043,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:2223: ##sys#put! */
t4=*((C_word*)lf[640]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[643];
av2[3]=lf[274];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19933(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_19933,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19936,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22986,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:2227: ##sys#put! */
t4=*((C_word*)lf[640]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[642];
av2[3]=lf[274];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19936(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_19936,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19939,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22924,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:2231: ##sys#put! */
t4=*((C_word*)lf[640]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[367];
av2[3]=lf[274];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19939(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,6)))){
C_save_and_reclaim((void *)f_19939,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19941,tmp=(C_word)a,a+=2,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20104,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2281: ##sys#put! */
t4=*((C_word*)lf[640]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[5];
av2[3]=lf[274];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* append-special-case in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_19941(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_19941,c,av);}
a=C_alloc(9);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19950,a[2]=t3,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20095,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2278: derive-result-type */
t8=t6;
f_19950(t8,t7);}

/* derive-result-type in append-special-case in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_fcall f_19950(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_19950,2,t0,t1);}
a=C_alloc(7);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19960,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_19960(t6,t1,t2,C_fix(1));}

/* lp in derive-result-type in append-special-case in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_fcall f_19960(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_19960,4,t0,t1,t2,t3);}
a=C_alloc(9);
if(C_truep(C_i_nullp(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=lf[31];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f26614,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=t4,tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t6=*((C_word*)lf[26]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k19980 */
static void C_ccall f_19982(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_19982,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19992,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2259: scheme#reverse */
t3=*((C_word*)lf[367]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cdr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k19990 in k19980 */
static void C_ccall f_19992(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_19992,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19995,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19997,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_19997(t6,t2,t1,((C_word*)t0)[3]);}

/* k19993 in k19990 in k19980 */
static void C_ccall f_19995(C_word c,C_word *av){
C_word tmp;
C_word 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_19995,c,av);}
/* scrutinizer.scm:2257: canonicalize-list-type */
f_19317(((C_word*)t0)[2],t1);}

/* foldl4642 in k19990 in k19980 */
static void C_fcall f_19997(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_19997,4,t0,t1,t2,t3);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(1));
t5=C_slot(t2,C_fix(0));
t6=C_a_i_list(&a,3,lf[48],t5,t3);
t8=t1;
t9=t4;
t10=t6;
t1=t8;
t2=t9;
t3=t10;
goto loop;}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k20039 */
static void C_ccall f_20041(C_word c,C_word *av){
C_word tmp;
C_word t0=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_20041,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=C_a_i_list(&a,3,lf[28],((C_word*)t0)[2],t1);
/* scrutinizer.scm:2264: simplify-type */
f_13487(((C_word*)t0)[3],t2);}
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);}}}

/* k20056 */
static void C_ccall f_20058(C_word c,C_word *av){
C_word tmp;
C_word 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_20058,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k20062 */
static void C_ccall f_20064(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_20064,c,av);}
a=C_alloc(8);
if(C_truep(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{
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20071,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);
/* scrutinizer.scm:2276: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[5];
av2[3]=lf[65];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k20069 in k20062 */
static void C_ccall f_20071(C_word c,C_word *av){
C_word tmp;
C_word 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_20071,c,av);}
/* scrutinizer.scm:2274: r-proc-call-argument-type-mismatch */
f_21890(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[47],((C_word*)t0)[7],t1);}

/* k20093 in append-special-case in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_20095(C_word c,C_word *av){
C_word tmp;
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_20095,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_list1(&a,1,t1):((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_20104(C_word c,C_word *av){
C_word tmp;
C_word t0=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_20104,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20107,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2282: ##sys#put! */
t3=*((C_word*)lf[640]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[404];
av2[3]=lf[274];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_20107(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_20107,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20111,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:2305: ##sys#put! */
t4=*((C_word*)lf[640]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[641];
av2[3]=lf[274];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* f_20111 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_20111(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_20111,c,av);}
a=C_alloc(5);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20115,a[2]=t1,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2292: chicken.compiler.support#node-subexpressions */
t7=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k20113 */
static void C_ccall f_20115(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_20115,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=C_i_length(t1);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20127,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
switch(t2){
case C_fix(2):
t4=t3;
f_20127(t4,lf[53]);
case C_fix(3):
t4=C_i_caddr(((C_word*)t0)[4]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26653,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t6=*((C_word*)lf[26]+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);}
default:
t4=t3;
f_20127(t4,C_SCHEME_FALSE);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k20125 in k20113 */
static void C_fcall f_20127(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,2)))){
C_save_and_reclaim_args((void *)trf_20127,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_i_cadr(((C_word*)t0)[2]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20179,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2298: chicken.compiler.support#node-class */
t4=*((C_word*)lf[88]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
else{
t2=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k20155 in k20173 in k20177 in k20125 in k20113 */
static void C_ccall f_20157(C_word c,C_word *av){
C_word tmp;
C_word t0=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_20157,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20171,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2302: make-list */
f_7934(t2,((C_word*)t0)[4],C_a_i_list(&a,1,((C_word*)t0)[5]));}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k20169 in k20155 in k20173 in k20177 in k20125 in k20113 */
static void C_ccall f_20171(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_20171,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,lf[50],t1);
t3=C_a_i_list(&a,1,t2);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?t3:((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k20173 in k20177 in k20125 in k20113 */
static void C_ccall f_20175(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_20175,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
if(C_truep(t2)){
if(C_truep(C_fixnump(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20157,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);
/* scrutinizer.scm:2301: 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(256);
C_less_or_equal_p(5,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
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);}}}

/* k20177 in k20125 in k20113 */
static void C_ccall f_20179(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_20179,c,av);}
a=C_alloc(5);
t2=C_eqp(lf[123],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20175,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);
/* scrutinizer.scm:2299: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[26]+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)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_20202(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(36,c,9)))){
C_save_and_reclaim((void *)f_20202,c,av);}
a=C_alloc(36);
t2=C_mutate(&lf[369] /* (set! chicken.compiler.scrutinizer#over-all-instantiations ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20204,tmp=(C_word)a,a+=2,tmp));
t3=C_mutate(&lf[315] /* (set! chicken.compiler.scrutinizer#string-add-indent ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20529,tmp=(C_word)a,a+=2,tmp));
t4=C_mutate(&lf[74] /* (set! chicken.compiler.scrutinizer#type->pp-string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20620,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate(&lf[142] /* (set! chicken.compiler.scrutinizer#fragment ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21086,tmp=(C_word)a,a+=2,tmp));
t6=C_mutate(&lf[75] /* (set! chicken.compiler.scrutinizer#pp-fragment ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21191,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate(&lf[323] /* (set! chicken.compiler.scrutinizer#node-source-prefix ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21215,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate(&lf[317] /* (set! chicken.compiler.scrutinizer#location-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21245,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate(&lf[515] /* (set! chicken.compiler.scrutinizer#variable-and-module ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21415,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate(&lf[91] /* (set! chicken.compiler.scrutinizer#variable-from-module ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21466,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate(&lf[102] /* (set! chicken.compiler.scrutinizer#describe-expression ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21526,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate(&lf[71] /* (set! chicken.compiler.scrutinizer#report2 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21656,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate(&lf[169] /* (set! chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21890,tmp=(C_word)a,a+=2,tmp));
t14=C_mutate(&lf[270] /* (set! chicken.compiler.scrutinizer#r-proc-call-argument-value-count ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21936,tmp=(C_word)a,a+=2,tmp));
t15=C_mutate(&lf[486] /* (set! chicken.compiler.scrutinizer#r-index-out-of-range ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22029,tmp=(C_word)a,a+=2,tmp));
t16=C_mutate(&lf[219] /* (set! chicken.compiler.scrutinizer#r-conditional-value-count-invalid ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22161,tmp=(C_word)a,a+=2,tmp));
t17=C_mutate(&lf[220] /* (set! chicken.compiler.scrutinizer#r-let-value-count-invalid ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22223,tmp=(C_word)a,a+=2,tmp));
t18=C_mutate(&lf[267] /* (set! chicken.compiler.scrutinizer#r-assignment-value-count-invalid ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22343,tmp=(C_word)a,a+=2,tmp));
t19=C_mutate(&lf[61] /* (set! chicken.compiler.scrutinizer#r-deprecated-identifier ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22834,tmp=(C_word)a,a+=2,tmp));
t20=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t20;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}}

/* chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_20204(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_20204,5,t1,t2,t3,t4,t5);}
a=C_alloc(24);
t6=C_SCHEME_END_OF_LIST;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=lf[24];
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20207,a[2]=t8,a[3]=t7,a[4]=t3,tmp=(C_word)a,a+=5,tmp));
t14=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20271,a[2]=t4,a[3]=t7,tmp=(C_word)a,a+=4,tmp));
t15=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20403,a[2]=t2,a[3]=t3,a[4]=t12,a[5]=t10,a[6]=t4,a[7]=t5,a[8]=t1,tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:2354: delete-duplicates */
f_7304(t15,t2,*((C_word*)lf[374]+1));}

/* restore in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_fcall f_20207(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(11,0,3)))){
C_save_and_reclaim_args((void *)trf_20207,2,t0,t1);}
a=C_alloc(11);
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_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_20216,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t5,tmp=(C_word)a,a+=7,tmp));
t7=((C_word*)t5)[1];
f_20216(t7,t1,lf[24]);}

/* doloop4722 in restore in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_fcall f_20216(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(8,0,3)))){
C_save_and_reclaim_args((void *)trf_20216,3,t0,t1,t2);}
a=C_alloc(8);
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(t3)){
t4=C_mutate(&lf[24] /* (set! chicken.compiler.scrutinizer#trail ...) */,t2);
if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[3])[1]))){
t5=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]);
t6=C_mutate(((C_word *)((C_word*)t0)[4])+1,t5);
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t5=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]);
t6=C_mutate(((C_word *)((C_word*)t0)[4])+1,t5);
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
else{
t4=C_i_car(t2);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20267,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:2329: resolve */
t6=lf[118];{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_u_i_car(t2);
av2[3]=((C_word*)t0)[5];
f_16269(4,av2);}}}

/* k20265 in doloop4722 in restore in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_20267(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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,2)))){
C_save_and_reclaim((void *)f_20267,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_i_assq(C_u_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);
t7=C_i_cdr(t6);
t8=C_i_set_car(t7,C_SCHEME_FALSE);
t9=((C_word*)((C_word*)t0)[6])[1];
f_20216(t9,((C_word*)t0)[7],C_u_i_cdr(((C_word*)t0)[4]));}

/* collect in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_fcall f_20271(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){
C_save_and_reclaim_args((void *)trf_20271,2,t0,t1);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20275,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20349,a[2]=t2,tmp=(C_word)a,a+=3,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=lf[12];
t9=((C_word*)((C_word*)t0)[3])[1];
t10=C_i_check_list_2(t9,lf[6]);
t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20359,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20361,a[2]=t6,a[3]=t13,a[4]=t7,tmp=(C_word)a,a+=5,tmp));
t15=((C_word*)t13)[1];
f_20361(t15,t11,t9);}

/* k20273 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_20275(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_20275,c,av);}
a=C_alloc(17);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20279,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t7=C_i_check_list_2(t1,lf[6]);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20313,a[2]=t4,a[3]=t9,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t11=((C_word*)t9)[1];
f_20313(t11,((C_word*)t0)[4],t1);}

/* g4770 in k20273 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_fcall f_20279(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,3)))){
C_save_and_reclaim_args((void *)trf_20279,3,t0,t1,t2);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20287,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20289,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2341: filter-map */
f_7393(t3,t4,((C_word*)((C_word*)t0)[3])[1]);}

/* k20285 in g4770 in k20273 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_20287(C_word c,C_word *av){
C_word tmp;
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_20287,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);}}

/* a20288 in g4770 in k20273 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_20289(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_20289,c,av);}
t3=C_i_assq(((C_word*)t0)[2],t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_i_cdr(t3):(C_truep(((C_word*)t0)[3])?lf[53]:C_SCHEME_FALSE));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* map-loop4764 in k20273 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_fcall f_20313(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_20313,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_20338,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);
/* scrutinizer.scm:2338: g4770 */
t4=((C_word*)t0)[4];
f_20279(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);}}}

/* k20336 in map-loop4764 in k20273 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_20338(C_word c,C_word *av){
C_word tmp;
C_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_20338,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_20313(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k20347 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_20349(C_word c,C_word *av){
C_word tmp;
C_word 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_20349,c,av);}
/* scrutinizer.scm:2337: delete-duplicates */
f_7304(((C_word*)t0)[2],t1,*((C_word*)lf[374]+1));}

/* k20357 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_20359(C_word c,C_word *av){
C_word tmp;
C_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_20359,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_7207,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_7207(t5,((C_word*)t0)[2],t1);}

/* map-loop4737 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_fcall f_20361(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_20361,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_20386,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);
/* scrutinizer.scm:2337: g4743 */
t4=lf[12];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
f_7458(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);}}}

/* k20384 in map-loop4737 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_20386(C_word c,C_word *av){
C_word tmp;
C_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_20386,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_20361(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k20401 in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_20403(C_word c,C_word *av){
C_word tmp;
C_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_20403,c,av);}
a=C_alloc(11);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20405,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp));
t5=((C_word*)t3)[1];
f_20405(t5,((C_word*)t0)[8],t1,C_SCHEME_FALSE);}

/* loop in k20401 in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_fcall f_20405(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(8,0,3)))){
C_save_and_reclaim_args((void *)trf_20405,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_nullp(t2))){
t4=(C_truep(t3)?t3:C_i_nullp(((C_word*)t0)[2]));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20419,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20454,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2363: collect */
t7=((C_word*)((C_word*)t0)[4])[1];
f_20271(t7,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);}}}
else{
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20492,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t3,tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:2366: process */
t5=((C_word*)t0)[8];{
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);}}}

/* g4815 in loop in k20401 in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_fcall f_20419(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_20419,3,t0,t1,t2);}
a=C_alloc(10);
t3=C_i_car(t2);
t4=C_a_i_cons(&a,2,t3,lf[24]);
t5=C_mutate(&lf[24] /* (set! chicken.compiler.scrutinizer#trail ...) */,t4);
t6=C_i_assq(C_u_i_car(t2),((C_word*)t0)[2]);
t7=C_i_cdr(t6);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20435,a[2]=t1,a[3]=t7,tmp=(C_word)a,a+=4,tmp);
t9=C_u_i_cdr(t2);
t10=C_a_i_cons(&a,2,lf[28],t9);
/* scrutinizer.scm:2362: simplify-type */
f_13487(t8,t10);}

/* k20433 in g4815 in loop in k20401 in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_20435(C_word c,C_word *av){
C_word tmp;
C_word 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_20435,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_set_car(((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k20452 in loop in k20401 in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_20454(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_20454,c,av);}
a=C_alloc(9);
t2=C_i_check_list_2(t1,lf[212]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20460,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20462,a[2]=t5,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_20462(t7,t3,t1);}

/* k20458 in k20452 in loop in k20401 in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_20460(C_word c,C_word *av){
C_word tmp;
C_word 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_20460,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* for-each-loop4814 in k20452 in loop in k20401 in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_fcall f_20462(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_20462,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_20472,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2358: g4815 */
t4=((C_word*)t0)[3];
f_20419(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);}}}

/* k20470 in for-each-loop4814 in k20452 in loop in k20401 in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_20472(C_word c,C_word *av){
C_word tmp;
C_word 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_20472,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_20462(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k20490 in loop in k20401 in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_20492(C_word c,C_word *av){
C_word tmp;
C_word t0=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_20492,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20495,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);
/* scrutinizer.scm:2367: restore */
t3=((C_word*)((C_word*)t0)[5])[1];
f_20207(t3,t2);}
else{
if(C_truep(((C_word*)t0)[6])){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20506,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2370: restore */
t3=((C_word*)((C_word*)t0)[5])[1];
f_20207(t3,t2);}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20509,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2373: restore */
t3=((C_word*)((C_word*)t0)[5])[1];
f_20207(t3,t2);}}}

/* k20493 in k20490 in loop in k20401 in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_20495(C_word c,C_word *av){
C_word tmp;
C_word 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_20495,c,av);}
/* scrutinizer.scm:2368: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_20405(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_SCHEME_TRUE);}

/* k20504 in k20490 in loop in k20401 in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_20506(C_word c,C_word *av){
C_word tmp;
C_word 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_20506,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k20507 in k20490 in loop in k20401 in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_20509(C_word c,C_word *av){
C_word tmp;
C_word 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_20509,c,av);}
/* scrutinizer.scm:2374: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_20405(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* chicken.compiler.scrutinizer#string-add-indent in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_20529(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_20529,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_i_nullp(t3);
t5=(C_truep(t4)?lf[492]:C_i_car(t3));
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20536,a[2]=t2,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2382: chicken.string#string-split */
t7=*((C_word*)lf[497]+1);{
C_word av2[5];
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
av2[3]=lf[498];
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}

/* k20534 in chicken.compiler.scrutinizer#string-add-indent in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_20536(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(23,c,3)))){
C_save_and_reclaim((void *)f_20536,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20539,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_a_i_cons(&a,2,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|2,a[1]=(C_word)f_20565,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20578,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|5,a[1]=(C_word)f_20580,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_20580(t12,t8,t1);}

/* k20537 in k20534 in chicken.compiler.scrutinizer#string-add-indent in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_20539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_20539,c,av);}
a=C_alloc(5);
t2=C_block_size(((C_word*)t0)[2]);
t3=C_a_i_fixnum_difference(&a,2,t2,C_fix(1));
t4=C_i_string_ref(((C_word*)t0)[2],t3);
t5=C_eqp(C_make_character(10),t4);
if(C_truep(t5)){
/* ##sys#string-append */
t6=*((C_word*)lf[493]+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]=t1;
av2[3]=lf[494];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* g4866 in k20534 in chicken.compiler.scrutinizer#string-add-indent in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_fcall f_20565(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_20565,3,t0,t1,t2);}
if(C_truep(C_i_string_equal_p(lf[495],t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* scrutinizer.scm:2387: scheme#string-append */
t3=*((C_word*)lf[76]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k20576 in k20534 in chicken.compiler.scrutinizer#string-add-indent in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_20578(C_word c,C_word *av){
C_word tmp;
C_word 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_20578,c,av);}
/* scrutinizer.scm:2383: chicken.string#string-intersperse */
t2=*((C_word*)lf[313]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[496];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop4860 in k20534 in chicken.compiler.scrutinizer#string-add-indent in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_fcall f_20580(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_20580,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_20605,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);
/* scrutinizer.scm:2384: g4866 */
t4=((C_word*)t0)[4];
f_20565(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);}}}

/* k20603 in map-loop4860 in k20534 in chicken.compiler.scrutinizer#string-add-indent in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_20605(C_word c,C_word *av){
C_word tmp;
C_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_20605,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_20580(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_20620(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){
C_save_and_reclaim_args((void *)trf_20620,2,t1,t2);}
a=C_alloc(12);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20646,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21063,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21084,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2430: chicken.syntax#strip-syntax */
t8=*((C_word*)lf[478]+1);{
C_word av2[3];
av2[0]=t8;
av2[1]=t7;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}

/* k20625 in map-loop4962 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_20627(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_20627,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20630,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26227,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2398: scheme#string->symbol */
t4=*((C_word*)lf[252]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=C_a_i_list2(&a,2,lf[500],((C_word*)t0)[3]);
/* scrutinizer.scm:2397: ##sys#error */
t4=*((C_word*)lf[501]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k20628 in k20625 in map-loop4962 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_20630(C_word c,C_word *av){
C_word tmp;
C_word t0=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_20630,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20637,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2398: scheme#string->symbol */
t3=*((C_word*)lf[252]+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);}}

/* k20635 in k20628 in k20625 in map-loop4962 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_20637(C_word c,C_word *av){
C_word tmp;
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_20637,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
f_20772(t2,C_a_i_list2(&a,2,lf[123],t1));}

/* conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_fcall f_20646(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;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
C_save_and_reclaim_args((void *)trf_20646,4,t0,t1,t2,t3);}
a=C_alloc(11);
t4=C_i_nullp(t3);
t5=(C_truep(t4)?C_SCHEME_END_OF_LIST:C_i_car(t3));
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20652,a[2]=((C_word*)t0)[2],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t7=C_i_pairp(t2);
if(C_truep(C_i_not(t7))){
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20665,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2403: chicken.base#alist-ref */
t9=*((C_word*)lf[275]+1);{
C_word av2[5];
av2[0]=t9;
av2[1]=t8;
av2[2]=t2;
av2[3]=t5;
av2[4]=*((C_word*)lf[374]+1);
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
else{
t8=(
/* scrutinizer.scm:2404: refinement-type? */
  f_15847(t2)
);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20681,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2406: chicken.base#open-output-string */
t10=*((C_word*)lf[242]+1);{
C_word av2[2];
av2[0]=t10;
av2[1]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t9=C_i_pairp(t2);
t10=(C_truep(t9)?C_u_i_car(t2):C_SCHEME_FALSE);
t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20760,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t10,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
t12=C_eqp(lf[29],t10);
if(C_truep(t12)){
/* scrutinizer.scm:2410: every */
f_7109(t11,*((C_word*)lf[470]+1),C_i_cadr(t2));}
else{
t13=t11;{
C_word av2[2];
av2[0]=t13;
av2[1]=C_SCHEME_FALSE;
f_20760(2,av2);}}}}}

/* R in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_fcall f_20652(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(3,0,3)))){
C_save_and_reclaim_args((void *)trf_20652,3,t0,t1,t2);}
a=C_alloc(3);
/* scrutinizer.scm:2400: conv */
t3=((C_word*)((C_word*)t0)[2])[1];
f_20646(t3,t1,t2,C_a_i_list(&a,1,((C_word*)t0)[3]));}

/* k20663 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_20665(C_word c,C_word *av){
C_word tmp;
C_word 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_20665,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);}}

/* k20679 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_20681(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(25,c,3)))){
C_save_and_reclaim((void *)f_20681,c,av);}
a=C_alloc(25);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20687,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20704,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,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=*((C_word*)lf[320]+1);
t10=C_i_cadr(((C_word*)t0)[3]);
t11=C_i_check_list_2(t10,lf[6]);
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20717,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20719,a[2]=t7,a[3]=t14,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t16=((C_word*)t14)[1];
f_20719(t16,t12,t10);}

/* k20685 in k20679 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_20687(C_word c,C_word *av){
C_word tmp;
C_word t0=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_20687,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20690,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);
/* scrutinizer.scm:2406: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(45);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k20688 in k20685 in k20679 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_20690(C_word c,C_word *av){
C_word tmp;
C_word t0=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_20690,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20693,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2406: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_caddr(((C_word*)t0)[4]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20691 in k20688 in k20685 in k20679 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_20693(C_word c,C_word *av){
C_word tmp;
C_word t0=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_20693,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20696,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2406: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k20694 in k20691 in k20688 in k20685 in k20679 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_20696(C_word c,C_word *av){
C_word tmp;
C_word 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_20696,c,av);}
/* scrutinizer.scm:2405: scheme#string->symbol */
t2=*((C_word*)lf[252]+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);}}

/* k20702 in k20679 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_20704(C_word c,C_word *av){
C_word tmp;
C_word 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_20704,c,av);}
/* scrutinizer.scm:2406: ##sys#print */
t2=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k20715 in k20679 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_20717(C_word c,C_word *av){
C_word tmp;
C_word 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_20717,c,av);}
/* scrutinizer.scm:2406: chicken.string#string-intersperse */
t2=*((C_word*)lf[313]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[499];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop4924 in k20679 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_fcall f_20719(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_20719,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_20744,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);
/* scrutinizer.scm:2406: g4930 */
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);}}}

/* k20742 in map-loop4924 in k20679 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_20744(C_word c,C_word *av){
C_word tmp;
C_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_20744,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_20719(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_20760(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(17,c,3)))){
C_save_and_reclaim((void *)f_20760,c,av);}
a=C_alloc(17);
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=C_i_cadr(((C_word*)t0)[2]);
t7=C_i_check_list_2(t6,lf[6]);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20781,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);
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_20790,a[2]=t4,a[3]=t10,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_20790(t12,t8,t6);}
else{
t2=C_eqp(lf[29],((C_word*)t0)[5]);
if(C_truep(t2)){
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep((C_truep(C_eqp(((C_word*)t0)[5],lf[28]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[69]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[47]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[50]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[48]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[361]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[359]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))))){
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_cdr(((C_word*)t0)[2]);
t8=C_i_check_list_2(t7,lf[6]);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20849,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20851,a[2]=t5,a[3]=t11,a[4]=((C_word*)t0)[6],a[5]=t6,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_20851(t13,t9,t7);}
else{
t3=C_eqp(lf[52],((C_word*)t0)[5]);
if(C_truep(t3)){
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_eqp(lf[84],((C_word*)t0)[5]);
if(C_truep(t4)){
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20901,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=t7,a[6]=t8,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2418: procedure-arguments */
f_15206(t9,((C_word*)t0)[2]);}
else{
/* scrutinizer.scm:2429: chicken.compiler.support#bomb */
t5=*((C_word*)lf[343]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[502];
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}}}}}

/* k20770 in map-loop4962 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_fcall f_20772(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_20772,2,t0,t1);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST);
t4=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t3);
t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
t6=((C_word*)((C_word*)t0)[4])[1];
f_20790(t6,((C_word*)t0)[5],C_slot(((C_word*)t0)[6],C_fix(1)));}

/* k20779 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_20781(C_word c,C_word *av){
C_word tmp;
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_20781,c,av);}
a=C_alloc(3);
/* scrutinizer.scm:2412: conv */
t2=((C_word*)((C_word*)t0)[2])[1];
f_20646(t2,((C_word*)t0)[3],C_i_caddr(((C_word*)t0)[4]),C_a_i_list(&a,1,t1));}

/* map-loop4962 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_fcall f_20790(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,3)))){
C_save_and_reclaim_args((void *)trf_20790,3,t0,t1,t2);}
a=C_alloc(11);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20772,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20627,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2396: chicken.plist#get */
t6=*((C_word*)lf[377]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
av2[3]=lf[376];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k20847 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_20849(C_word c,C_word *av){
C_word tmp;
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_20849,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);}}

/* map-loop4992 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_fcall f_20851(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_20851,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_20876,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);
/* scrutinizer.scm:2415: g4998 */
t4=((C_word*)t0)[4];
f_20652(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);}}}

/* k20874 in map-loop4992 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_20876(C_word c,C_word *av){
C_word tmp;
C_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_20876,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_20851(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k20899 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_20901(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_20901,c,av);}
a=C_alloc(13);
t2=C_i_check_list_2(t1,lf[6]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20907,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|5,a[1]=(C_word)f_21001,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_21001(t7,t3,t1);}

/* k20905 in k20899 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_20907(C_word c,C_word *av){
C_word tmp;
C_word t0=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_20907,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20910,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);
/* scrutinizer.scm:2419: procedure-results */
f_15263(t2,((C_word*)t0)[3]);}

/* k20908 in k20905 in k20899 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_20910(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(18,c,3)))){
C_save_and_reclaim((void *)f_20910,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20913,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t3=C_eqp(lf[53],t1);
if(C_truep(t3)){
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_20913(2,av2);}}
else{
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(t1,lf[6]);
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_20967,a[2]=t6,a[3]=t10,a[4]=((C_word*)t0)[5],a[5]=t7,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_20967(t12,t2,t1);}}

/* k20911 in k20908 in k20905 in k20899 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_20913(C_word c,C_word *av){
C_word tmp;
C_word t0=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_20913,c,av);}
a=C_alloc(6);
if(C_truep(C_i_not(t1))){
t2=(C_truep(t1)?C_a_i_cons(&a,2,((C_word*)t0)[2],t1):C_a_i_cons(&a,2,((C_word*)t0)[2],lf[53]));
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[84],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20944,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2425: procedure-name */
f_15155(t2,((C_word*)t0)[4]);}}

/* k20942 in k20911 in k20908 in k20905 in k20899 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in ... */
static void C_ccall f_20944(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_20944,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20947,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20950,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2426: chicken.compiler.support#variable-mark */
t4=*((C_word*)lf[64]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t1;
av2[3]=lf[272];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t3=t2;
f_20947(t3,C_SCHEME_FALSE);}}

/* k20945 in k20942 in k20911 in k20908 in k20905 in k20899 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in ... */
static void C_fcall f_20947(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_20947,2,t0,t1);}
a=C_alloc(3);
t2=(C_truep(t1)?C_a_i_cons(&a,2,lf[471],((C_word*)t0)[2]):C_a_i_cons(&a,2,lf[473],((C_word*)t0)[2]));
/* scrutinizer.scm:2425: ##sys#append */
t3=*((C_word*)lf[404]+1);{
C_word av2[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);}}

/* k20948 in k20942 in k20911 in k20908 in k20905 in k20899 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in ... */
static void C_ccall f_20950(C_word c,C_word *av){
C_word tmp;
C_word 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_20950,c,av);}
t2=((C_word*)t0)[2];
f_20947(t2,(C_truep(t1)?t1:C_SCHEME_FALSE));}

/* map-loop5047 in k20908 in k20905 in k20899 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_fcall f_20967(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_20967,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_20992,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);
/* scrutinizer.scm:2422: g5053 */
t4=((C_word*)t0)[4];
f_20652(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);}}}

/* k20990 in map-loop5047 in k20908 in k20905 in k20899 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in ... */
static void C_ccall f_20992(C_word c,C_word *av){
C_word tmp;
C_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_20992,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_20967(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* map-loop5020 in k20899 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_fcall f_21001(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_21001,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_21026,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);
/* scrutinizer.scm:2418: g5026 */
t4=((C_word*)t0)[4];
f_20652(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);}}}

/* k21024 in map-loop5020 in k20899 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_21026(C_word c,C_word *av){
C_word tmp;
C_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_21026,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_21001(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k21061 in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21063(C_word c,C_word *av){
C_word tmp;
C_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_21063,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21070,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21074,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21076,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2433: chicken.port#with-output-to-string */
t5=*((C_word*)lf[504]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k21068 in k21061 in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21070(C_word c,C_word *av){
C_word tmp;
C_word 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_21070,c,av);}
/* scrutinizer.scm:2431: string-add-indent */
f_20529(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);}

/* k21072 in k21061 in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21074(C_word c,C_word *av){
C_word tmp;
C_word 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_21074,c,av);}
/* scrutinizer.scm:2432: chicken.string#string-chomp */
t2=*((C_word*)lf[503]+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);}}

/* a21075 in k21061 in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21076(C_word c,C_word *av){
C_word tmp;
C_word 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_21076,c,av);}
/* scrutinizer.scm:2434: chicken.pretty-print#pp */
t2=*((C_word*)lf[435]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k21082 in chicken.compiler.scrutinizer#type->pp-string in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21084(C_word c,C_word *av){
C_word tmp;
C_word 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_21084,c,av);}
/* scrutinizer.scm:2430: conv */
t2=((C_word*)((C_word*)t0)[2])[1];
f_20646(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);}

/* chicken.compiler.scrutinizer#fragment in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_21086(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_21086,2,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21090,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21189,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2437: source-node-tree */
t5=lf[453];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
f_17349(3,av2);}}

/* k21088 in chicken.compiler.scrutinizer#fragment in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21090(C_word c,C_word *av){
C_word tmp;
C_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,4)))){
C_save_and_reclaim((void *)f_21090,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_21095,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_21095(t5,((C_word*)t0)[2],t1,C_fix(0));}

/* walk in k21088 in chicken.compiler.scrutinizer#fragment in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_fcall f_21095(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(8,0,3)))){
C_save_and_reclaim_args((void *)trf_21095,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_not_pair_p(t2))){
/* scrutinizer.scm:2439: chicken.syntax#strip-syntax */
t4=*((C_word*)lf[478]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
if(C_truep(C_i_greater_or_equalp(t3,C_fix(4)))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=lf[454];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
if(C_truep(C_i_listp(t2))){
t4=C_u_i_length(t2);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21121,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_fixnum_lessp(C_fix(6),t4))){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21180,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2444: take */
f_6848(t6,t2,C_fix(6));}
else{
t6=t5;{
C_word av2[2];
av2[0]=t6;
av2[1]=t2;
f_21121(2,av2);}}}
else{
/* scrutinizer.scm:2447: chicken.syntax#strip-syntax */
t4=*((C_word*)lf[478]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}}}

/* k21119 in walk in k21088 in chicken.compiler.scrutinizer#fragment in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21121(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(46,c,3)))){
C_save_and_reclaim((void *)f_21121,c,av);}
a=C_alloc(46);
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_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21126,a[2]=((C_word*)t0)[3],a[3]=t6,tmp=(C_word)a,a+=4,tmp);
t8=C_i_check_list_2(t1,lf[6]);
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_21138,a[2]=t4,a[3]=t10,a[4]=t7,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_21138(t12,((C_word*)t0)[4],t1);}

/* g5108 in k21119 in walk in k21088 in chicken.compiler.scrutinizer#fragment in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_fcall f_21126(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_21126,3,t0,t1,t2);}
/* scrutinizer.scm:2446: g51225123 */
t3=((C_word*)((C_word*)t0)[2])[1];
f_21095(t3,t1,t2,((C_word*)t0)[3]);}

/* map-loop5102 in k21119 in walk in k21088 in chicken.compiler.scrutinizer#fragment in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_fcall f_21138(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_21138,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_21163,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);
/* scrutinizer.scm:2446: g5108 */
t4=((C_word*)t0)[4];
f_21126(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);}}}

/* k21161 in map-loop5102 in k21119 in walk in k21088 in chicken.compiler.scrutinizer#fragment in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_21163(C_word c,C_word *av){
C_word tmp;
C_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_21163,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_21138(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k21178 in walk in k21088 in chicken.compiler.scrutinizer#fragment in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21180(C_word c,C_word *av){
C_word tmp;
C_word 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_21180,c,av);}
/* scrutinizer.scm:2444: scheme#append */
t2=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[505];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k21187 in chicken.compiler.scrutinizer#fragment in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21189(C_word c,C_word *av){
C_word tmp;
C_word 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_21189,c,av);}
/* scrutinizer.scm:2437: chicken.compiler.support#build-expression-tree */
t2=*((C_word*)lf[506]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* chicken.compiler.scrutinizer#pp-fragment in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_21191(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_21191,2,t1,t2);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21199,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21203,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21205,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2452: chicken.port#with-output-to-string */
t6=*((C_word*)lf[504]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k21197 in chicken.compiler.scrutinizer#pp-fragment in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21199(C_word c,C_word *av){
C_word tmp;
C_word 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_21199,c,av);}
/* scrutinizer.scm:2450: string-add-indent */
f_20529(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);}

/* k21201 in chicken.compiler.scrutinizer#pp-fragment in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21203(C_word c,C_word *av){
C_word tmp;
C_word 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_21203,c,av);}
/* scrutinizer.scm:2451: chicken.string#string-chomp */
t2=*((C_word*)lf[503]+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);}}

/* a21204 in chicken.compiler.scrutinizer#pp-fragment in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21205(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21205,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21213,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2454: fragment */
f_21086(t2,((C_word*)t0)[2]);}

/* k21211 in a21204 in chicken.compiler.scrutinizer#pp-fragment in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21213(C_word c,C_word *av){
C_word tmp;
C_word 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_21213,c,av);}
/* scrutinizer.scm:2454: chicken.pretty-print#pp */
t2=*((C_word*)lf[435]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* chicken.compiler.scrutinizer#node-source-prefix in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_21215(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_21215,2,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21219,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17424,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:1750: source-node */
f_17322(t4,t2,C_SCHEME_END_OF_LIST);}

/* k21217 in chicken.compiler.scrutinizer#node-source-prefix in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21219(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21219,c,av);}
a=C_alloc(4);
if(C_truep(C_i_not(t1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[507];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21228,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2458: chicken.base#open-output-string */
t3=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k21226 in k21217 in chicken.compiler.scrutinizer#node-source-prefix in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21228(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21228,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21234,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2458: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[509];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21232 in k21226 in k21217 in chicken.compiler.scrutinizer#node-source-prefix in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21234(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21234,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21237,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2458: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21235 in k21232 in k21226 in k21217 in chicken.compiler.scrutinizer#node-source-prefix in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_21237(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21237,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21240,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2458: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[508];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21238 in k21235 in k21232 in k21226 in k21217 in chicken.compiler.scrutinizer#node-source-prefix in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_21240(C_word c,C_word *av){
C_word tmp;
C_word 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_21240,c,av);}
/* scrutinizer.scm:2458: chicken.base#get-output-string */
t2=*((C_word*)lf[238]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_21245(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(9,0,4)))){
C_save_and_reclaim_args((void *)trf_21245,3,t1,t2,t3);}
a=C_alloc(9);
t4=C_i_nullp(t3);
t5=(C_truep(t4)?lf[511]:C_i_car(t3));
if(C_truep(C_i_nullp(t2))){
/* scrutinizer.scm:2466: chicken.string#conc */
t6=*((C_word*)lf[320]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[512];
av2[3]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t6=C_a_i_list1(&a,1,lf[513]);
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_21295,a[2]=t5,a[3]=t8,tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_21295(t10,t1,t2,t6);}}

/* k21256 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21258(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21258,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21264,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2463: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[523];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21262 in k21256 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21264(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21264,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21267,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21277,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2463: chicken.compiler.support#real-name */
t4=*((C_word*)lf[253]+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);}}

/* k21265 in k21262 in k21256 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_21267(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21267,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21270,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2463: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[522];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21268 in k21265 in k21262 in k21256 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_21270(C_word c,C_word *av){
C_word tmp;
C_word 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_21270,c,av);}
/* scrutinizer.scm:2463: chicken.base#get-output-string */
t2=*((C_word*)lf[238]+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);}}

/* k21275 in k21262 in k21256 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_21277(C_word c,C_word *av){
C_word tmp;
C_word 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_21277,c,av);}
/* scrutinizer.scm:2463: ##sys#print */
t2=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_fcall f_21295(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){
C_save_and_reclaim_args((void *)trf_21295,4,t0,t1,t2,t3);}
a=C_alloc(14);
t4=C_i_cdr(t2);
if(C_truep(C_i_nullp(t4))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21309,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21317,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_u_i_car(t2))){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21323,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21337,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2475: ##sys#call-with-values */{
C_word av2[4];
av2[0]=0;
av2[1]=t6;
av2[2]=t7;
av2[3]=t8;
C_call_with_values(4,av2);}}
else{
t7=t5;
f_21309(t7,C_a_i_cons(&a,2,lf[521],t3));}}
else{
t5=C_u_i_cdr(t2);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21401,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
t7=C_u_i_car(t2);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21258,a[2]=t6,a[3]=t7,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2463: chicken.base#open-output-string */
t9=*((C_word*)lf[242]+1);{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t8=C_a_i_cons(&a,2,lf[524],t3);
/* scrutinizer.scm:2480: rec */
t10=t1;
t11=t5;
t12=t8;
t1=t10;
t2=t11;
t3=t12;
goto loop;}}}

/* k21307 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_fcall f_21309(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_21309,2,t0,t1);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21313,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2479: chicken.string#conc */
t3=*((C_word*)lf[320]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[514];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k21311 in k21307 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21313(C_word c,C_word *av){
C_word tmp;
C_word 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_21313,c,av);}
/* scrutinizer.scm:2470: chicken.string#string-intersperse */
t2=*((C_word*)lf[313]+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);}}

/* k21315 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21317(C_word c,C_word *av){
C_word tmp;
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_21317,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
f_21309(t2,C_a_i_cons(&a,2,t1,((C_word*)t0)[3]));}

/* a21322 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21323(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21323,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21331,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2475: chicken.compiler.support#real-name */
t3=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_car(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k21329 in a21322 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21331(C_word c,C_word *av){
C_word tmp;
C_word 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_21331,c,av);}
/* scrutinizer.scm:2475: variable-and-module */
f_21415(((C_word*)t0)[2],t1);}

/* a21336 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21337(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(9,c,2)))){
C_save_and_reclaim((void *)f_21337,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21345,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(t3)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21367,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2476: chicken.base#open-output-string */
t6=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=lf[520];
f_21345(2,av2);}}}

/* k21343 in a21336 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21345(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_21345,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21349,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2477: chicken.base#open-output-string */
t3=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k21347 in k21343 in a21336 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_21349(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21349,c,av);}
a=C_alloc(6);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21355,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2477: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[517];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21353 in k21347 in k21343 in a21336 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_21355(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21355,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21358,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);
/* scrutinizer.scm:2477: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21356 in k21353 in k21347 in k21343 in a21336 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_21358(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21358,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21361,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);
/* scrutinizer.scm:2477: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[516];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21359 in k21356 in k21353 in k21347 in k21343 in a21336 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in ... */
static void C_ccall f_21361(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21361,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21364,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2477: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k21362 in k21359 in k21356 in k21353 in k21347 in k21343 in a21336 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in ... */
static void C_ccall f_21364(C_word c,C_word *av){
C_word tmp;
C_word 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_21364,c,av);}
/* scrutinizer.scm:2476: chicken.string#conc */
t2=*((C_word*)lf[320]+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);}}

/* k21365 in a21336 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21367(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21367,c,av);}
a=C_alloc(6);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21373,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);
/* scrutinizer.scm:2476: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[519];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21371 in k21365 in a21336 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_21373(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21373,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21376,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);
/* scrutinizer.scm:2476: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21374 in k21371 in k21365 in a21336 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_21376(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_21376,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21379,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);
/* scrutinizer.scm:2476: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[518];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21377 in k21374 in k21371 in k21365 in a21336 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_21379(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21379,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21382,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);
/* scrutinizer.scm:2476: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k21380 in k21377 in k21374 in k21371 in k21365 in a21336 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in ... */
static void C_ccall f_21382(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21382,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21385,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2476: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21383 in k21380 in k21377 in k21374 in k21371 in k21365 in a21336 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in ... */
static void C_ccall f_21385(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21385,c,av);}
/* scrutinizer.scm:2476: chicken.base#get-output-string */
t2=*((C_word*)lf[238]+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);}}

/* k21399 in rec in chicken.compiler.scrutinizer#location-name in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21401(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21401,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
/* scrutinizer.scm:2480: rec */
t3=((C_word*)((C_word*)t0)[3])[1];
f_21295(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* chicken.compiler.scrutinizer#variable-and-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_21415(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_21415,2,t1,t2);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21419,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_symbolp(t2))){
/* scrutinizer.scm:2484: scheme#symbol->string */
t4=*((C_word*)lf[477]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t4=t3;{
C_word av2[2];
av2[0]=t4;
av2[1]=t2;
f_21419(2,av2);}}}

/* k21417 in chicken.compiler.scrutinizer#variable-and-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21419(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21419,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21422,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2485: chicken.string#string-split */
t3=*((C_word*)lf[497]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
av2[3]=lf[525];
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21420 in k21417 in chicken.compiler.scrutinizer#variable-and-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21422(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21422,c,av);}
a=C_alloc(4);
t2=C_i_cdr(t1);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21435,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2487: scheme#string->symbol */
t4=*((C_word*)lf[252]+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(t1);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21454,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2488: scheme#string->symbol */
t4=*((C_word*)lf[252]+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);}}}

/* k21433 in k21420 in k21417 in chicken.compiler.scrutinizer#variable-and-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21435(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21435,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21439,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2487: scheme#string->symbol */
t3=*((C_word*)lf[252]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k21437 in k21433 in k21420 in k21417 in chicken.compiler.scrutinizer#variable-and-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_21439(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_21439,c,av);}
/* scrutinizer.scm:2487: 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);}}

/* k21452 in k21420 in k21417 in chicken.compiler.scrutinizer#variable-and-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21454(C_word c,C_word *av){
C_word tmp;
C_word 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_21454,c,av);}
/* scrutinizer.scm:2488: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
C_values(4,av2);}}

/* chicken.compiler.scrutinizer#variable-from-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_21466(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_21466,2,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21472,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21478,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:2491: ##sys#call-with-values */{
C_word av2[4];
av2[0]=0;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
C_call_with_values(4,av2);}}

/* a21471 in chicken.compiler.scrutinizer#variable-from-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21472(C_word c,C_word *av){
C_word tmp;
C_word 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_21472,c,av);}
/* scrutinizer.scm:2491: variable-and-module */
f_21415(t1,((C_word*)t0)[2]);}

/* a21477 in chicken.compiler.scrutinizer#variable-from-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21478(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_21478,c,av);}
a=C_alloc(5);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21485,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2493: chicken.base#open-output-string */
t5=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21509,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2494: chicken.base#open-output-string */
t5=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k21483 in a21477 in chicken.compiler.scrutinizer#variable-from-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21485(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21485,c,av);}
a=C_alloc(6);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21491,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);
/* scrutinizer.scm:2493: ##sys#write-char-0 */
t4=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(96);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k21489 in k21483 in a21477 in chicken.compiler.scrutinizer#variable-from-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21491(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21491,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21494,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);
/* scrutinizer.scm:2493: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21492 in k21489 in k21483 in a21477 in chicken.compiler.scrutinizer#variable-from-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_21494(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21494,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21497,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);
/* scrutinizer.scm:2493: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[526];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21495 in k21492 in k21489 in k21483 in a21477 in chicken.compiler.scrutinizer#variable-from-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_21497(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21497,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21500,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2493: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21498 in k21495 in k21492 in k21489 in k21483 in a21477 in chicken.compiler.scrutinizer#variable-from-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_21500(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21500,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21503,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2493: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(39);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k21501 in k21498 in k21495 in k21492 in k21489 in k21483 in a21477 in chicken.compiler.scrutinizer#variable-from-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in ... */
static void C_ccall f_21503(C_word c,C_word *av){
C_word tmp;
C_word 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_21503,c,av);}
/* scrutinizer.scm:2493: chicken.base#get-output-string */
t2=*((C_word*)lf[238]+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);}}

/* k21507 in a21477 in chicken.compiler.scrutinizer#variable-from-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21509(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21509,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21515,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2494: ##sys#write-char-0 */
t4=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(96);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k21513 in k21507 in a21477 in chicken.compiler.scrutinizer#variable-from-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21515(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21515,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21518,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2494: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21516 in k21513 in k21507 in a21477 in chicken.compiler.scrutinizer#variable-from-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_21518(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21518,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21521,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2494: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(39);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k21519 in k21516 in k21513 in k21507 in a21477 in chicken.compiler.scrutinizer#variable-from-module in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_21521(C_word c,C_word *av){
C_word tmp;
C_word 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_21521,c,av);}
/* scrutinizer.scm:2494: chicken.base#get-output-string */
t2=*((C_word*)lf[238]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_21526(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_21526,2,t1,t2);}
a=C_alloc(14);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21529,tmp=(C_word)a,a+=2,tmp));
t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21543,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21640,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2518: source-node-tree */
t10=lf[453];{
C_word av2[3];
av2[0]=t10;
av2[1]=t9;
av2[2]=t2;
f_17349(3,av2);}}

/* p-expr in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_fcall f_21529(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){
C_save_and_reclaim_args((void *)trf_21529,2,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21537,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2498: scheme#string-append */
t4=*((C_word*)lf[76]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[527];
av2[3]=lf[528];
av2[4]=lf[529];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21535 in p-expr in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21537(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21537,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21541,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2499: pp-fragment */
f_21191(t2,((C_word*)t0)[3]);}

/* k21539 in k21535 in p-expr in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21541(C_word c,C_word *av){
C_word tmp;
C_word 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_21541,c,av);}
/* scrutinizer.scm:2498: chicken.format#sprintf */
t2=*((C_word*)lf[410]+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);}}

/* p-node in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_fcall f_21543(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_21543,3,t0,t1,t2);}
a=C_alloc(11);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21547,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);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21633,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2501: chicken.compiler.support#node-class */
t5=*((C_word*)lf[88]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k21545 in p-node in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21547(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21547,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21574,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);
/* scrutinizer.scm:2515: chicken.compiler.support#node-class */
t3=*((C_word*)lf[88]+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);}}}

/* k21565 in k21572 in k21545 in p-node in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_21567(C_word c,C_word *av){
C_word tmp;
C_word 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_21567,c,av);}
/* scrutinizer.scm:2516: p-node */
t2=((C_word*)((C_word*)t0)[2])[1];
f_21543(t2,((C_word*)t0)[3],C_i_car(t1));}

/* k21572 in k21545 in p-node in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21574(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21574,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[85],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21567,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2516: chicken.compiler.support#node-subexpressions */
t4=*((C_word*)lf[86]+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{
/* scrutinizer.scm:2517: p-expr */
f_21529(((C_word*)t0)[3],((C_word*)t0)[4]);}}

/* k21593 in k21619 in k21623 in k21627 in k21631 in p-node in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_21595(C_word c,C_word *av){
C_word tmp;
C_word t0=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,6)))){
C_save_and_reclaim((void *)f_21595,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21605,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2506: scheme#string-append */
t3=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[530];
av2[3]=lf[531];
av2[4]=lf[532];
av2[5]=lf[533];
av2[6]=lf[534];
((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_21547(2,av2);}}}

/* k21603 in k21593 in k21619 in k21623 in k21627 in k21631 in p-node in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in ... */
static void C_ccall f_21605(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21605,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21609,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);
/* scrutinizer.scm:2512: variable-from-module */
f_21466(t2,((C_word*)t0)[6]);}

/* k21607 in k21603 in k21593 in k21619 in k21623 in k21627 in k21631 in p-node in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in ... */
static void C_ccall f_21609(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21609,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21613,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2513: type->pp-string */
f_20620(t2,((C_word*)t0)[6]);}

/* k21611 in k21607 in k21603 in k21593 in k21619 in k21623 in k21627 in k21631 in p-node in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in ... */
static void C_ccall f_21613(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21613,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21617,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);
/* scrutinizer.scm:2514: p-expr */
f_21529(t2,((C_word*)t0)[6]);}

/* k21615 in k21611 in k21607 in k21603 in k21593 in k21619 in k21623 in k21627 in k21631 in p-node in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in ... */
static void C_ccall f_21617(C_word c,C_word *av){
C_word tmp;
C_word 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_21617,c,av);}
/* scrutinizer.scm:2506: chicken.format#sprintf */
t2=*((C_word*)lf[410]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k21619 in k21623 in k21627 in k21631 in p-node in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_21621(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21621,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21595,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2505: chicken.compiler.support#variable-mark */
t4=*((C_word*)lf[64]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
av2[3]=lf[65];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_21547(2,av2);}}}

/* k21623 in k21627 in k21631 in p-node in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_21625(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21625,c,av);}
a=C_alloc(5);
t2=C_eqp(lf[87],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21621,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);
/* scrutinizer.scm:2504: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[26]+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)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_21547(2,av2);}}}

/* k21627 in k21631 in p-node in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21629(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21629,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21625,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2503: chicken.compiler.support#node-class */
t4=*((C_word*)lf[88]+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);}}

/* k21631 in p-node in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21633(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21633,c,av);}
a=C_alloc(5);
t2=C_eqp(lf[120],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21629,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);
/* scrutinizer.scm:2502: chicken.compiler.support#node-subexpressions */
t4=*((C_word*)lf[86]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_21547(2,av2);}}}

/* k21638 in chicken.compiler.scrutinizer#describe-expression in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21640(C_word c,C_word *av){
C_word tmp;
C_word 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_21640,c,av);}
/* scrutinizer.scm:2518: p-node */
t2=((C_word*)((C_word*)t0)[2])[1];
f_21543(t2,((C_word*)t0)[3],t1);}

/* chicken.compiler.scrutinizer#report2 in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_21656(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-7)*C_SIZEOF_PAIR +23,c,2)))){
C_save_and_reclaim((void*)f_21656,c,av);}
a=C_alloc((c-7)*C_SIZEOF_PAIR+23);
t7=C_build_rest(&a,c,7,av);
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21659,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
if(C_truep(lf[18])){
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21687,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21694,a[2]=t3,a[3]=t9,tmp=(C_word)a,a+=4,tmp);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21698,a[2]=t10,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21702,a[2]=t11,tmp=(C_word)a,a+=3,tmp);
t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21706,a[2]=t12,a[3]=t6,a[4]=t7,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2533: file-location */
t14=t8;
f_21659(t14,t13);}
else{
t9=C_SCHEME_UNDEFINED;
t10=t1;{
C_word *av2=av;
av2[0]=t10;
av2[1]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}

/* file-location in chicken.compiler.scrutinizer#report2 in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_fcall f_21659(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(2,0,3)))){
C_save_and_reclaim_args((void *)trf_21659,2,t0,t1);}
a=C_alloc(2);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21665,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:2525: any */
f_7143(t1,t2,((C_word*)t0)[2]);}

/* a21664 in file-location in chicken.compiler.scrutinizer#report2 in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21665(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_21665,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21681,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2525: node-source-prefix */
f_21215(t3,t2);}

/* k21679 in a21664 in file-location in chicken.compiler.scrutinizer#report2 in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21681(C_word c,C_word *av){
C_word tmp;
C_word 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_21681,c,av);}
if(C_truep(C_i_not(C_u_i_string_equal_p(lf[535],t1)))){
/* scrutinizer.scm:2526: node-source-prefix */
f_21215(((C_word*)t0)[2],((C_word*)t0)[3]);}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k21685 in chicken.compiler.scrutinizer#report2 in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21687(C_word c,C_word *av){
C_word tmp;
C_word 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_21687,c,av);}
/* scrutinizer.scm:2537: chicken.base#flush-output */
t2=*((C_word*)lf[536]+1);{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k21692 in chicken.compiler.scrutinizer#report2 in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21694(C_word c,C_word *av){
C_word tmp;
C_word 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_21694,c,av);}
/* scrutinizer.scm:2529: report-f */
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);}}

/* k21696 in chicken.compiler.scrutinizer#report2 in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21698(C_word c,C_word *av){
C_word tmp;
C_word 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_21698,c,av);}
/* scrutinizer.scm:2530: chicken.string#conc */
t2=*((C_word*)lf[320]+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);}}

/* k21700 in chicken.compiler.scrutinizer#report2 in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21702(C_word c,C_word *av){
C_word tmp;
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_21702,c,av);}
a=C_alloc(3);
/* scrutinizer.scm:2532: string-add-indent */
f_20529(((C_word*)t0)[2],t1,C_a_i_list(&a,1,lf[537]));}

/* k21704 in chicken.compiler.scrutinizer#report2 in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21706(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21706,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21709,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(t1)){
/* scrutinizer.scm:2533: chicken.string#conc */
t3=*((C_word*)lf[320]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[541];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[542];
f_21709(2,av2);}}}

/* k21707 in k21704 in chicken.compiler.scrutinizer#report2 in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21709(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_21709,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21713,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2534: location-name */
f_21245(t2,((C_word*)t0)[5],C_a_i_list(&a,1,lf[540]));}

/* k21711 in k21707 in k21704 in chicken.compiler.scrutinizer#report2 in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21713(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_21713,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21717,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2535: chicken.base#open-output-string */
t3=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k21715 in k21711 in k21707 in k21704 in chicken.compiler.scrutinizer#report2 in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_21717(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_21717,c,av);}
a=C_alloc(6);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21723,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=0;
av2[1]=t3;
av2[2]=*((C_word*)lf[539]+1);
av2[3]=t1;
av2[4]=((C_word*)t0)[5];
av2[5]=((C_word*)t0)[6];
C_apply(6,av2);}}

/* k21721 in k21715 in k21711 in k21707 in k21704 in chicken.compiler.scrutinizer#report2 in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_21723(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21723,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21726,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);
/* scrutinizer.scm:2535: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k21724 in k21721 in k21715 in k21711 in k21707 in k21704 in chicken.compiler.scrutinizer#report2 in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_21726(C_word c,C_word *av){
C_word tmp;
C_word 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_21726,c,av);}
/* scrutinizer.scm:2533: chicken.string#conc */
t2=*((C_word*)lf[320]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[538];
av2[4]=((C_word*)t0)[4];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* variable-node-name in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_21740(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_21740,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21779,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2546: chicken.compiler.support#node-class */
t4=*((C_word*)lf[88]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k21756 in k21777 in variable-node-name in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_21758(C_word c,C_word *av){
C_word tmp;
C_word 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_21758,c,av);}
/* scrutinizer.scm:2547: variable-node-name */
t2=((C_word*)((C_word*)t0)[2])[1];
f_21740(t2,((C_word*)t0)[3],C_i_car(t1));}

/* k21769 in k21773 in k21777 in variable-node-name in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_21771(C_word c,C_word *av){
C_word tmp;
C_word 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_21771,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_car(t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k21773 in k21777 in variable-node-name in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_21775(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21775,c,av);}
a=C_alloc(3);
t2=C_eqp(lf[87],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21771,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2548: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[26]+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;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k21777 in variable-node-name in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_21779(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21779,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[85],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21758,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2547: chicken.compiler.support#node-subexpressions */
t4=*((C_word*)lf[86]+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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21775,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2548: chicken.compiler.support#node-class */
t4=*((C_word*)lf[88]+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);}}}

/* k21783 in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_21785(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,16)))){
C_save_and_reclaim((void *)f_21785,c,av);}
a=C_alloc(15);
if(C_truep(t1)){
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21796,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:2556: scheme#string-append */
t4=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 11) {
  av2=av;
} else {
  av2=C_alloc(11);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[92];
av2[3]=lf[93];
av2[4]=lf[94];
av2[5]=lf[95];
av2[6]=lf[96];
av2[7]=lf[97];
av2[8]=lf[98];
av2[9]=lf[99];
av2[10]=lf[100];
((C_proc)(void*)(*((C_word*)t4+1)))(11,av2);}}
else{
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21823,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:2574: scheme#string-append */
t4=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 17) {
  av2=av;
} else {
  av2=C_alloc(17);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[103];
av2[3]=lf[104];
av2[4]=lf[105];
av2[5]=lf[106];
av2[6]=lf[107];
av2[7]=lf[108];
av2[8]=lf[109];
av2[9]=lf[110];
av2[10]=lf[111];
av2[11]=lf[112];
av2[12]=lf[113];
av2[13]=lf[114];
av2[14]=lf[115];
av2[15]=lf[116];
av2[16]=lf[117];
((C_proc)(void*)(*((C_word*)t4+1)))(17,av2);}}}

/* k21794 in k21783 in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_21796(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21796,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21800,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);
/* scrutinizer.scm:2566: pp-fragment */
f_21191(t2,((C_word*)t0)[8]);}

/* k21798 in k21794 in k21783 in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_21800(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21800,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21804,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21812,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2567: variable-node-name */
t4=((C_word*)((C_word*)t0)[7])[1];
f_21740(t4,t3,((C_word*)t0)[8]);}

/* k21802 in k21798 in k21794 in k21783 in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_21804(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21804,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21808,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:2568: type->pp-string */
f_20620(t2,((C_word*)t0)[7]);}

/* k21806 in k21802 in k21798 in k21794 in k21783 in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_21808(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_21808,c,av);}
/* scrutinizer.scm:2551: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[89];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
av2[6]=((C_word*)t0)[5];
av2[7]=((C_word*)t0)[6];
av2[8]=((C_word*)t0)[7];
av2[9]=t1;
f_21656(10,av2);}}

/* k21810 in k21798 in k21794 in k21783 in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_21812(C_word c,C_word *av){
C_word tmp;
C_word 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_21812,c,av);}
/* scrutinizer.scm:2567: variable-from-module */
f_21466(((C_word*)t0)[2],t1);}

/* k21821 in k21783 in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_21823(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21823,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21827,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);
/* scrutinizer.scm:2590: pp-fragment */
f_21191(t2,((C_word*)t0)[8]);}

/* k21825 in k21821 in k21783 in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_21827(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21827,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21831,a[2]=((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);
/* scrutinizer.scm:2591: describe-expression */
f_21526(t2,((C_word*)t0)[8]);}

/* k21829 in k21825 in k21821 in k21783 in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_21831(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21831,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21835,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:2592: type->pp-string */
f_20620(t2,((C_word*)t0)[8]);}

/* k21833 in k21829 in k21825 in k21821 in k21783 in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_21835(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21835,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21839,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* scrutinizer.scm:2593: type->pp-string */
f_20620(t2,((C_word*)t0)[8]);}

/* k21837 in k21833 in k21829 in k21825 in k21821 in k21783 in k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_21839(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){
C_save_and_reclaim((void *)f_21839,c,av);}
/* scrutinizer.scm:2569: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 11) {
  av2=av;
} else {
  av2=C_alloc(11);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[101];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
av2[6]=((C_word*)t0)[5];
av2[7]=((C_word*)t0)[6];
av2[8]=((C_word*)t0)[7];
av2[9]=((C_word*)t0)[8];
av2[10]=t1;
f_21656(11,av2);}}

/* k21844 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_21846(C_word c,C_word *av){
C_word tmp;
C_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,10)))){
C_save_and_reclaim((void *)f_21846,c,av);}
a=C_alloc(13);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=C_a_i_list1(&a,1,((C_word*)t0)[3]);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21857,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t3,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp);
/* scrutinizer.scm:2602: scheme#string-append */
t5=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 11) {
  av2=av;
} else {
  av2=C_alloc(11);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[177];
av2[3]=lf[178];
av2[4]=lf[179];
av2[5]=lf[180];
av2[6]=lf[181];
av2[7]=lf[182];
av2[8]=lf[183];
av2[9]=lf[184];
av2[10]=lf[185];
((C_proc)(void*)(*((C_word*)t5+1)))(11,av2);}}

/* k21855 in k21844 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_21857(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21857,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21861,a[2]=((C_word*)t0)[2],a[3]=((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);
/* scrutinizer.scm:2612: pp-fragment */
f_21191(t2,((C_word*)t0)[9]);}

/* k21859 in k21855 in k21844 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_21861(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21861,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21865,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* scrutinizer.scm:2613: strip-namespace */
f_19431(t2,((C_word*)((C_word*)t0)[9])[1]);}

/* k21863 in k21859 in k21855 in k21844 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_21865(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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,2)))){
C_save_and_reclaim((void *)f_21865,c,av);}
a=C_alloc(14);
t2=C_i_nequalp(((C_word*)t0)[2],C_fix(1));
t3=(C_truep(t2)?lf[171]:lf[172]);
t4=C_i_nequalp(((C_word*)t0)[3],C_fix(1));
t5=(C_truep(t4)?lf[171]:lf[172]);
t6=C_i_nequalp(((C_word*)t0)[3],C_fix(1));
t7=(C_truep(t6)?lf[173]:lf[174]);
t8=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21881,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]=t1,a[8]=((C_word*)t0)[2],a[9]=t3,a[10]=((C_word*)t0)[3],a[11]=t5,a[12]=t7,a[13]=((C_word*)t0)[9],tmp=(C_word)a,a+=14,tmp);
/* scrutinizer.scm:2617: variable-from-module */
f_21466(t8,((C_word*)((C_word*)t0)[10])[1]);}

/* k21879 in k21863 in k21859 in k21855 in k21844 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_21881(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21881,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21885,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t1,tmp=(C_word)a,a+=14,tmp);
/* scrutinizer.scm:2618: type->pp-string */
f_20620(t2,((C_word*)t0)[13]);}

/* k21883 in k21879 in k21863 in k21859 in k21855 in k21844 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_21885(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,15)))){
C_save_and_reclaim((void *)f_21885,c,av);}
/* scrutinizer.scm:2597: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 16) {
  av2=av;
} else {
  av2=C_alloc(16);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[175];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
av2[6]=((C_word*)t0)[5];
av2[7]=((C_word*)t0)[6];
av2[8]=((C_word*)t0)[7];
av2[9]=((C_word*)t0)[8];
av2[10]=((C_word*)t0)[9];
av2[11]=((C_word*)t0)[10];
av2[12]=((C_word*)t0)[11];
av2[13]=((C_word*)t0)[12];
av2[14]=((C_word*)t0)[13];
av2[15]=t1;
f_21656(16,av2);}}

/* chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_21890(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 t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){
C_save_and_reclaim_args((void *)trf_21890,8,t1,t2,t3,t4,t5,t6,t7,t8);}
a=C_alloc(16);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21895,a[2]=t10,a[3]=t3,a[4]=t1,a[5]=t2,a[6]=t4,a[7]=t8,a[8]=t5,a[9]=t6,a[10]=t7,tmp=(C_word)a,a+=11,tmp);
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f28220,a[2]=t11,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2521: chicken.compiler.support#node-subexpressions */
t13=*((C_word*)lf[86]+1);{
C_word av2[3];
av2[0]=t13;
av2[1]=t12;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}

/* k21893 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21895(C_word c,C_word *av){
C_word tmp;
C_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,18)))){
C_save_and_reclaim((void *)f_21895,c,av);}
a=C_alloc(15);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=C_a_i_list1(&a,1,((C_word*)t0)[3]);
t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21906,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[3],tmp=(C_word)a,a+=12,tmp);
/* scrutinizer.scm:2627: scheme#string-append */
t5=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 19) {
  av2=av;
} else {
  av2=C_alloc(19);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[544];
av2[3]=lf[545];
av2[4]=lf[546];
av2[5]=lf[547];
av2[6]=lf[548];
av2[7]=lf[549];
av2[8]=lf[550];
av2[9]=lf[551];
av2[10]=lf[552];
av2[11]=lf[553];
av2[12]=lf[554];
av2[13]=lf[555];
av2[14]=lf[556];
av2[15]=lf[557];
av2[16]=lf[558];
av2[17]=lf[559];
av2[18]=lf[560];
((C_proc)(void*)(*((C_word*)t5+1)))(19,av2);}}

/* k21904 in k21893 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21906(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_21906,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21910,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],tmp=(C_word)a,a+=12,tmp);
/* scrutinizer.scm:2645: pp-fragment */
f_21191(t2,((C_word*)t0)[11]);}

/* k21908 in k21904 in k21893 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_21910(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21910,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21914,a[2]=((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],tmp=(C_word)a,a+=13,tmp);
/* scrutinizer.scm:2647: strip-namespace */
f_19431(t2,((C_word*)((C_word*)t0)[8])[1]);}

/* k21912 in k21908 in k21904 in k21893 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_21914(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21914,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21918,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* scrutinizer.scm:2648: type->pp-string */
f_20620(t2,((C_word*)t0)[12]);}

/* k21916 in k21912 in k21908 in k21904 in k21893 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_21918(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21918,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21922,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* scrutinizer.scm:2649: type->pp-string */
f_20620(t2,((C_word*)t0)[12]);}

/* k21920 in k21916 in k21912 in k21908 in k21904 in k21893 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_21922(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21922,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21926,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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],tmp=(C_word)a,a+=13,tmp);
/* scrutinizer.scm:2650: describe-expression */
f_21526(t2,((C_word*)t0)[12]);}

/* k21924 in k21920 in k21916 in k21912 in k21908 in k21904 in k21893 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in ... */
static void C_ccall f_21926(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21926,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21930,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* scrutinizer.scm:2651: variable-from-module */
f_21466(t2,((C_word*)((C_word*)t0)[12])[1]);}

/* k21928 in k21924 in k21920 in k21916 in k21912 in k21908 in k21904 in k21893 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in ... */
static void C_ccall f_21930(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21930,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21934,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,tmp=(C_word)a,a+=13,tmp);
/* scrutinizer.scm:2652: type->pp-string */
f_20620(t2,((C_word*)t0)[12]);}

/* k21932 in k21928 in k21924 in k21920 in k21916 in k21912 in k21908 in k21904 in k21893 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in ... */
static void C_ccall f_21934(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,14)))){
C_save_and_reclaim((void *)f_21934,c,av);}
/* scrutinizer.scm:2622: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 15) {
  av2=av;
} else {
  av2=C_alloc(15);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[543];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
av2[6]=((C_word*)t0)[5];
av2[7]=((C_word*)t0)[6];
av2[8]=((C_word*)t0)[7];
av2[9]=((C_word*)t0)[8];
av2[10]=((C_word*)t0)[9];
av2[11]=((C_word*)t0)[10];
av2[12]=((C_word*)t0)[11];
av2[13]=((C_word*)t0)[12];
av2[14]=t1;
f_21656(15,av2);}}

/* chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_21936(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_21936,c,av);}
a=C_alloc(17);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21941,a[2]=t8,a[3]=t10,a[4]=t5,a[5]=t3,a[6]=t2,a[7]=t4,a[8]=t6,a[9]=t1,tmp=(C_word)a,a+=10,tmp);
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f28225,a[2]=t11,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2521: chicken.compiler.support#node-subexpressions */
t13=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t13;
av2[1]=t12;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}

/* k21939 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_21941(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_21941,c,av);}
a=C_alloc(12);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21943,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)[2],tmp=(C_word)a,a+=7,tmp));
t4=C_i_length(((C_word*)t0)[8]);
t5=C_eqp(t4,C_fix(0));
if(C_truep(t5)){
/* scrutinizer.scm:2676: p */
t6=((C_word*)((C_word*)t0)[3])[1];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=((C_word*)t0)[9];
av2[2]=lf[570];
av2[3]=lf[571];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22006,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2679: chicken.base#open-output-string */
t7=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* f_21943 in k21939 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_21943(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(17,c,8)))){
C_save_and_reclaim((void *)f_21943,c,av);}
a=C_alloc(17);
t4=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21955,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t3,a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[3],tmp=(C_word)a,a+=11,tmp);
/* scrutinizer.scm:2662: scheme#string-append */
t6=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[563];
av2[3]=lf[564];
av2[4]=lf[565];
av2[5]=lf[566];
av2[6]=lf[567];
av2[7]=lf[568];
av2[8]=lf[569];
((C_proc)(void*)(*((C_word*)t6+1)))(9,av2);}}

/* k21953 */
static void C_ccall f_21955(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21955,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21959,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* scrutinizer.scm:2670: pp-fragment */
f_21191(t2,((C_word*)t0)[10]);}

/* k21957 in k21953 */
static void C_ccall f_21959(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21959,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21963,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_zerop(((C_word*)t0)[7]))){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[561];
f_21963(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21971,a[2]=t2,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2672: chicken.base#open-output-string */
t4=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k21961 in k21957 in k21953 */
static void C_ccall f_21963(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_21963,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21967,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* scrutinizer.scm:2674: describe-expression */
f_21526(t2,((C_word*)t0)[10]);}

/* k21965 in k21961 in k21957 in k21953 */
static void C_ccall f_21967(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,11)))){
C_save_and_reclaim((void *)f_21967,c,av);}
/* scrutinizer.scm:2657: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 12) {
  av2=av;
} else {
  av2=C_alloc(12);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[4];
av2[5]=((C_word*)t0)[5];
av2[6]=((C_word*)t0)[6];
av2[7]=((C_word*)t0)[7];
av2[8]=((C_word*)t0)[8];
av2[9]=((C_word*)t0)[9];
av2[10]=((C_word*)t0)[10];
av2[11]=t1;
f_21656(12,av2);}}

/* k21969 in k21957 in k21953 */
static void C_ccall f_21971(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21971,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21977,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2672: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[562];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21975 in k21969 in k21957 in k21953 */
static void C_ccall f_21977(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_21977,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21980,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21990,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2672: strip-namespace */
f_19431(t3,((C_word*)((C_word*)t0)[4])[1]);}

/* k21978 in k21975 in k21969 in k21957 in k21953 */
static void C_ccall f_21980(C_word c,C_word *av){
C_word tmp;
C_word t0=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_21980,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21983,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2672: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(39);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k21981 in k21978 in k21975 in k21969 in k21957 in k21953 */
static void C_ccall f_21983(C_word c,C_word *av){
C_word tmp;
C_word 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_21983,c,av);}
/* scrutinizer.scm:2672: chicken.base#get-output-string */
t2=*((C_word*)lf[238]+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);}}

/* k21988 in k21975 in k21969 in k21957 in k21953 */
static void C_ccall f_21990(C_word c,C_word *av){
C_word tmp;
C_word 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_21990,c,av);}
/* scrutinizer.scm:2672: ##sys#print */
t2=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k22004 in k21939 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_22006(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22006,c,av);}
a=C_alloc(6);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22012,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2679: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[574];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22010 in k22004 in k21939 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22012(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22012,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22015,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);
/* scrutinizer.scm:2679: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_length(((C_word*)t0)[5]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22013 in k22010 in k22004 in k21939 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22015(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22015,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22018,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);
/* scrutinizer.scm:2679: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[573];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22016 in k22013 in k22010 in k22004 in k21939 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_22018(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22018,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2679: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k22019 in k22016 in k22013 in k22010 in k22004 in k21939 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_22021(C_word c,C_word *av){
C_word tmp;
C_word 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_22021,c,av);}
/* scrutinizer.scm:2678: p */
t2=((C_word*)((C_word*)t0)[2])[1];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[572];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_22029(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){
C_save_and_reclaim_args((void *)trf_22029,6,t1,t2,t3,t4,t5,t6);}
a=C_alloc(14);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22034,a[2]=t8,a[3]=t3,a[4]=t1,a[5]=t2,a[6]=t4,a[7]=t5,a[8]=t6,tmp=(C_word)a,a+=9,tmp);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f28230,a[2]=t9,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2521: chicken.compiler.support#node-subexpressions */
t11=*((C_word*)lf[86]+1);{
C_word av2[3];
av2[0]=t11;
av2[1]=t10;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}

/* k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_22034(C_word c,C_word *av){
C_word tmp;
C_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_22034,c,av);}
a=C_alloc(13);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22041,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)[2],tmp=(C_word)a,a+=9,tmp);
if(C_truep(C_i_negativep(((C_word*)t0)[6]))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22114,a[2]=t3,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2686: chicken.base#open-output-string */
t5=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22132,a[2]=t3,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2687: chicken.base#open-output-string */
t5=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_22041(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,6)))){
C_save_and_reclaim((void *)f_22041,c,av);}
a=C_alloc(14);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22049,a[2]=((C_word*)t0)[3],a[3]=t1,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)[2],tmp=(C_word)a,a+=11,tmp);
/* scrutinizer.scm:2693: scheme#string-append */
t4=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[580];
av2[3]=lf[581];
av2[4]=lf[582];
av2[5]=lf[583];
av2[6]=lf[584];
((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}}

/* k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22049(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22049,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22053,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* scrutinizer.scm:2699: pp-fragment */
f_21191(t2,((C_word*)t0)[10]);}

/* k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22053(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22053,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22057,a[2]=((C_word*)t0)[2],a[3]=((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);
/* scrutinizer.scm:2700: variable-from-module */
f_21466(t2,((C_word*)((C_word*)t0)[10])[1]);}

/* k22055 in k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_22057(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22057,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22061,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
if(C_truep(C_i_negativep(((C_word*)t0)[8]))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22065,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2702: chicken.base#open-output-string */
t4=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22083,a[2]=t2,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2703: chicken.base#open-output-string */
t4=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k22059 in k22055 in k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_22061(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_22061,c,av);}
/* scrutinizer.scm:2684: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[4];
av2[5]=((C_word*)t0)[5];
av2[6]=((C_word*)t0)[6];
av2[7]=((C_word*)t0)[7];
av2[8]=((C_word*)t0)[8];
av2[9]=t1;
f_21656(10,av2);}}

/* k22063 in k22055 in k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_22065(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22065,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22071,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2702: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[575];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22069 in k22063 in k22055 in k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in ... */
static void C_ccall f_22071(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22071,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22074,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2702: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22072 in k22069 in k22063 in k22055 in k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in ... */
static void C_ccall f_22074(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22074,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22077,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2702: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(46);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k22075 in k22072 in k22069 in k22063 in k22055 in k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in ... */
static void C_ccall f_22077(C_word c,C_word *av){
C_word tmp;
C_word 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_22077,c,av);}
/* scrutinizer.scm:2702: chicken.base#get-output-string */
t2=*((C_word*)lf[238]+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);}}

/* k22081 in k22055 in k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_22083(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22083,c,av);}
a=C_alloc(7);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22089,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);
/* scrutinizer.scm:2703: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[579];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22087 in k22081 in k22055 in k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in ... */
static void C_ccall f_22089(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22089,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22092,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);
/* scrutinizer.scm:2703: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22090 in k22087 in k22081 in k22055 in k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in ... */
static void C_ccall f_22092(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22092,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22095,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);
/* scrutinizer.scm:2703: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[578];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22093 in k22090 in k22087 in k22081 in k22055 in k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in ... */
static void C_ccall f_22095(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22095,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22098,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);
/* scrutinizer.scm:2703: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22096 in k22093 in k22090 in k22087 in k22081 in k22055 in k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in ... */
static void C_ccall f_22098(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22098,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22101,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);
/* scrutinizer.scm:2703: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[577];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22099 in k22096 in k22093 in k22090 in k22087 in k22081 in k22055 in k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in ... */
static void C_ccall f_22101(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22101,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22104,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2703: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22102 in k22099 in k22096 in k22093 in k22090 in k22087 in k22081 in k22055 in k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in ... */
static void C_ccall f_22104(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22104,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22107,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2703: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[576];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22105 in k22102 in k22099 in k22096 in k22093 in k22090 in k22087 in k22081 in k22055 in k22051 in k22047 in k22039 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in ... */
static void C_ccall f_22107(C_word c,C_word *av){
C_word tmp;
C_word 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_22107,c,av);}
/* scrutinizer.scm:2703: chicken.base#get-output-string */
t2=*((C_word*)lf[238]+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);}}

/* k22112 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_22114(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22114,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22120,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2686: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[586];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22118 in k22112 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22120(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22120,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22123,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2686: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22121 in k22118 in k22112 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22123(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22123,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22126,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2686: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[585];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22124 in k22121 in k22118 in k22112 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_22126(C_word c,C_word *av){
C_word tmp;
C_word 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_22126,c,av);}
/* scrutinizer.scm:2686: chicken.base#get-output-string */
t2=*((C_word*)lf[238]+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);}}

/* k22130 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_22132(C_word c,C_word *av){
C_word tmp;
C_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,4)))){
C_save_and_reclaim((void *)f_22132,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22138,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t4=C_i_string_ref(((C_word*)t0)[3],C_fix(0));
/* scrutinizer.scm:2687: ##sys#print */
t5=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=C_u_i_char_upcase(t4);
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k22136 in k22130 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22138(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_22138,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22141,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22151,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2689: scheme#substring */
t4=*((C_word*)lf[588]+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)[4];
av2[3]=C_fix(1);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k22139 in k22136 in k22130 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22141(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22141,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22144,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2687: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[587];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22142 in k22139 in k22136 in k22130 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_22144(C_word c,C_word *av){
C_word tmp;
C_word 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_22144,c,av);}
/* scrutinizer.scm:2687: chicken.base#get-output-string */
t2=*((C_word*)lf[238]+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);}}

/* k22149 in k22136 in k22130 in k22032 in chicken.compiler.scrutinizer#r-index-out-of-range in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22151(C_word c,C_word *av){
C_word tmp;
C_word 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_22151,c,av);}
/* scrutinizer.scm:2687: ##sys#print */
t2=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_22161(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(10,c,4)))){
C_save_and_reclaim((void *)f_22161,c,av);}
a=C_alloc(10);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22164,a[2]=t4,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t7=C_i_length(t5);
t8=C_eqp(t7,C_fix(0));
if(C_truep(t8)){
/* scrutinizer.scm:2721: p */
t9=t6;
f_22164(t9,t1,lf[596],lf[597]);}
else{
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22200,a[2]=t6,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2724: chicken.base#open-output-string */
t10=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t10;
av2[1]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}

/* p in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_fcall f_22164(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(15,0,8)))){
C_save_and_reclaim_args((void *)trf_22164,4,t0,t1,t2,t3);}
a=C_alloc(15);
t4=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22176,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:2709: scheme#string-append */
t6=*((C_word*)lf[76]+1);{
C_word av2[9];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[589];
av2[3]=lf[590];
av2[4]=lf[591];
av2[5]=lf[592];
av2[6]=lf[593];
av2[7]=lf[594];
av2[8]=lf[595];
((C_proc)(void*)(*((C_word*)t6+1)))(9,av2);}}

/* k22174 in p in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_22176(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22176,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22180,a[2]=((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);
/* scrutinizer.scm:2717: pp-fragment */
f_21191(t2,((C_word*)t0)[8]);}

/* k22178 in k22174 in p in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22180(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22180,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22184,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:2719: describe-expression */
f_21526(t2,((C_word*)t0)[8]);}

/* k22182 in k22178 in k22174 in p in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22184(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_22184,c,av);}
/* scrutinizer.scm:2707: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[4];
av2[5]=((C_word*)t0)[5];
av2[6]=((C_word*)t0)[6];
av2[7]=((C_word*)t0)[7];
av2[8]=((C_word*)t0)[8];
av2[9]=t1;
f_21656(10,av2);}}

/* k22198 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_22200(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22200,c,av);}
a=C_alloc(6);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22206,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2724: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[600];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22204 in k22198 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_22206(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_22206,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22209,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);
/* scrutinizer.scm:2724: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_length(((C_word*)t0)[5]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22207 in k22204 in k22198 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22209(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22209,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22212,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);
/* scrutinizer.scm:2724: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[599];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22210 in k22207 in k22204 in k22198 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22212(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22212,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22215,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2724: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k22213 in k22210 in k22207 in k22204 in k22198 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_22215(C_word c,C_word *av){
C_word tmp;
C_word 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_22215,c,av);}
/* scrutinizer.scm:2723: p */
t2=((C_word*)t0)[2];
f_22164(t2,((C_word*)t0)[3],lf[598],t1);}

/* chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_22223(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_22223,c,av);}
a=C_alloc(12);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22226,a[2]=t5,a[3]=t4,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t8=C_i_length(t6);
t9=C_eqp(t8,C_fix(0));
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22263,a[2]=t7,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2743: chicken.base#open-output-string */
t11=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t11;
av2[1]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22289,a[2]=t7,a[3]=t1,a[4]=t6,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2745: chicken.base#open-output-string */
t11=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t11;
av2[1]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}

/* p in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_fcall f_22226(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(16,0,8)))){
C_save_and_reclaim_args((void *)trf_22226,4,t0,t1,t2,t3);}
a=C_alloc(16);
t4=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22238,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp);
/* scrutinizer.scm:2730: scheme#string-append */
t6=*((C_word*)lf[76]+1);{
C_word av2[9];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[601];
av2[3]=lf[602];
av2[4]=lf[603];
av2[5]=lf[604];
av2[6]=lf[605];
av2[7]=lf[606];
av2[8]=lf[607];
((C_proc)(void*)(*((C_word*)t6+1)))(9,av2);}}

/* k22236 in p in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_22238(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22238,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22242,a[2]=((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);
/* scrutinizer.scm:2738: pp-fragment */
f_21191(t2,((C_word*)t0)[9]);}

/* k22240 in k22236 in p in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22242(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22242,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22246,a[2]=((C_word*)t0)[2],a[3]=((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);
/* scrutinizer.scm:2739: chicken.compiler.support#real-name */
t3=*((C_word*)lf[253]+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);}}

/* k22244 in k22240 in k22236 in p in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22246(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22246,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22250,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* scrutinizer.scm:2741: describe-expression */
f_21526(t2,((C_word*)t0)[9]);}

/* k22248 in k22244 in k22240 in k22236 in p in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_22250(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){
C_save_and_reclaim((void *)f_22250,c,av);}
/* scrutinizer.scm:2728: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 11) {
  av2=av;
} else {
  av2=C_alloc(11);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[4];
av2[5]=((C_word*)t0)[5];
av2[6]=((C_word*)t0)[6];
av2[7]=((C_word*)t0)[7];
av2[8]=((C_word*)t0)[8];
av2[9]=((C_word*)t0)[9];
av2[10]=t1;
f_21656(11,av2);}}

/* k22261 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_22263(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22263,c,av);}
a=C_alloc(6);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22269,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2743: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[610];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22267 in k22261 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_22269(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22269,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22272,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_22282,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2743: chicken.compiler.support#real-name */
t4=*((C_word*)lf[253]+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);}}

/* k22270 in k22267 in k22261 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22272(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22272,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22275,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);
/* scrutinizer.scm:2743: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[609];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22273 in k22270 in k22267 in k22261 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22275(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22275,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22278,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2743: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k22276 in k22273 in k22270 in k22267 in k22261 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_22278(C_word c,C_word *av){
C_word tmp;
C_word 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_22278,c,av);}
/* scrutinizer.scm:2743: p */
t2=((C_word*)t0)[2];
f_22226(t2,((C_word*)t0)[3],t1,lf[608]);}

/* k22280 in k22267 in k22261 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22282(C_word c,C_word *av){
C_word tmp;
C_word 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_22282,c,av);}
/* scrutinizer.scm:2743: ##sys#print */
t2=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k22287 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_22289(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22289,c,av);}
a=C_alloc(7);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22295,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2745: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[615];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22293 in k22287 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_22295(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22295,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22298,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_22337,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2745: chicken.compiler.support#real-name */
t4=*((C_word*)lf[253]+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);}}

/* k22296 in k22293 in k22287 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22298(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22298,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22301,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);
/* scrutinizer.scm:2745: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[614];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22299 in k22296 in k22293 in k22287 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22301(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22301,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22304,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);
/* scrutinizer.scm:2745: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_length(((C_word*)t0)[4]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22302 in k22299 in k22296 in k22293 in k22287 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_22304(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22304,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22307,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);
/* scrutinizer.scm:2745: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[613];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22305 in k22302 in k22299 in k22296 in k22293 in k22287 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_22307(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22307,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22310,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);
/* scrutinizer.scm:2745: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k22308 in k22305 in k22302 in k22299 in k22296 in k22293 in k22287 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in ... */
static void C_ccall f_22310(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22310,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22314,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2746: chicken.base#open-output-string */
t3=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k22312 in k22308 in k22305 in k22302 in k22299 in k22296 in k22293 in k22287 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in ... */
static void C_ccall f_22314(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22314,c,av);}
a=C_alloc(7);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22320,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2746: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[612];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22318 in k22312 in k22308 in k22305 in k22302 in k22299 in k22296 in k22293 in k22287 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in ... */
static void C_ccall f_22320(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22320,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22323,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);
/* scrutinizer.scm:2746: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_length(((C_word*)t0)[6]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22321 in k22318 in k22312 in k22308 in k22305 in k22302 in k22299 in k22296 in k22293 in k22287 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in ... */
static void C_ccall f_22323(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22323,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22326,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);
/* scrutinizer.scm:2746: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[611];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22324 in k22321 in k22318 in k22312 in k22308 in k22305 in k22302 in k22299 in k22296 in k22293 in k22287 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in ... */
static void C_ccall f_22326(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22326,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22329,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);
/* scrutinizer.scm:2746: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k22327 in k22324 in k22321 in k22318 in k22312 in k22308 in k22305 in k22302 in k22299 in k22296 in k22293 in k22287 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in ... */
static void C_ccall f_22329(C_word c,C_word *av){
C_word tmp;
C_word 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_22329,c,av);}
/* scrutinizer.scm:2745: p */
t2=((C_word*)t0)[2];
f_22226(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k22335 in k22293 in k22287 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22337(C_word c,C_word *av){
C_word tmp;
C_word 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_22337,c,av);}
/* scrutinizer.scm:2745: ##sys#print */
t2=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_22343(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_22343,c,av);}
a=C_alloc(12);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22346,a[2]=t5,a[3]=t4,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t8=C_i_length(t6);
t9=C_eqp(t8,C_fix(0));
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22383,a[2]=t7,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2765: chicken.base#open-output-string */
t11=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t11;
av2[1]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22409,a[2]=t7,a[3]=t1,a[4]=t6,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2767: chicken.base#open-output-string */
t11=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t11;
av2[1]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}

/* p in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_fcall f_22346(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(16,0,8)))){
C_save_and_reclaim_args((void *)trf_22346,4,t0,t1,t2,t3);}
a=C_alloc(16);
t4=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22358,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp);
/* scrutinizer.scm:2752: scheme#string-append */
t6=*((C_word*)lf[76]+1);{
C_word av2[9];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[616];
av2[3]=lf[617];
av2[4]=lf[618];
av2[5]=lf[619];
av2[6]=lf[620];
av2[7]=lf[621];
av2[8]=lf[622];
((C_proc)(void*)(*((C_word*)t6+1)))(9,av2);}}

/* k22356 in p in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_22358(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22358,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22362,a[2]=((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);
/* scrutinizer.scm:2760: pp-fragment */
f_21191(t2,((C_word*)t0)[9]);}

/* k22360 in k22356 in p in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22362(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22362,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22366,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* scrutinizer.scm:2761: strip-namespace */
f_19431(t2,((C_word*)t0)[9]);}

/* k22364 in k22360 in k22356 in p in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22366(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_22366,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22370,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* scrutinizer.scm:2763: describe-expression */
f_21526(t2,((C_word*)t0)[9]);}

/* k22368 in k22364 in k22360 in k22356 in p in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_22370(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){
C_save_and_reclaim((void *)f_22370,c,av);}
/* scrutinizer.scm:2750: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 11) {
  av2=av;
} else {
  av2=C_alloc(11);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[4];
av2[5]=((C_word*)t0)[5];
av2[6]=((C_word*)t0)[6];
av2[7]=((C_word*)t0)[7];
av2[8]=((C_word*)t0)[8];
av2[9]=((C_word*)t0)[9];
av2[10]=t1;
f_21656(11,av2);}}

/* k22381 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_22383(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22383,c,av);}
a=C_alloc(6);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22389,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2765: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[625];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22387 in k22381 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_22389(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22389,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22392,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_22402,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2765: strip-namespace */
f_19431(t3,((C_word*)t0)[5]);}

/* k22390 in k22387 in k22381 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22392(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22392,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22395,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);
/* scrutinizer.scm:2765: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[624];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22393 in k22390 in k22387 in k22381 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22395(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22395,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22398,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2765: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k22396 in k22393 in k22390 in k22387 in k22381 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_22398(C_word c,C_word *av){
C_word tmp;
C_word 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_22398,c,av);}
/* scrutinizer.scm:2765: p */
t2=((C_word*)t0)[2];
f_22346(t2,((C_word*)t0)[3],t1,lf[623]);}

/* k22400 in k22387 in k22381 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22402(C_word c,C_word *av){
C_word tmp;
C_word 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_22402,c,av);}
/* scrutinizer.scm:2765: ##sys#print */
t2=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k22407 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_22409(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22409,c,av);}
a=C_alloc(7);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22415,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2767: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[630];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22413 in k22407 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_22415(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22415,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22418,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_22457,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2767: strip-namespace */
f_19431(t3,((C_word*)t0)[6]);}

/* k22416 in k22413 in k22407 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22418(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22418,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22421,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);
/* scrutinizer.scm:2767: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[629];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22419 in k22416 in k22413 in k22407 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22421(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22421,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22424,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);
/* scrutinizer.scm:2767: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_length(((C_word*)t0)[4]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22422 in k22419 in k22416 in k22413 in k22407 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_22424(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22424,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22427,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);
/* scrutinizer.scm:2767: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[628];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22425 in k22422 in k22419 in k22416 in k22413 in k22407 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_22427(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22427,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22430,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);
/* scrutinizer.scm:2767: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k22428 in k22425 in k22422 in k22419 in k22416 in k22413 in k22407 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in ... */
static void C_ccall f_22430(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22430,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22434,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2768: chicken.base#open-output-string */
t3=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k22432 in k22428 in k22425 in k22422 in k22419 in k22416 in k22413 in k22407 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in ... */
static void C_ccall f_22434(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22434,c,av);}
a=C_alloc(7);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22440,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2768: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[627];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22438 in k22432 in k22428 in k22425 in k22422 in k22419 in k22416 in k22413 in k22407 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in ... */
static void C_ccall f_22440(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22440,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22443,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);
/* scrutinizer.scm:2768: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_length(((C_word*)t0)[6]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22441 in k22438 in k22432 in k22428 in k22425 in k22422 in k22419 in k22416 in k22413 in k22407 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in ... */
static void C_ccall f_22443(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22443,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22446,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);
/* scrutinizer.scm:2768: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[626];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22444 in k22441 in k22438 in k22432 in k22428 in k22425 in k22422 in k22419 in k22416 in k22413 in k22407 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in ... */
static void C_ccall f_22446(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22446,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22449,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);
/* scrutinizer.scm:2768: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k22447 in k22444 in k22441 in k22438 in k22432 in k22428 in k22425 in k22422 in k22419 in k22416 in k22413 in k22407 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in ... */
static void C_ccall f_22449(C_word c,C_word *av){
C_word tmp;
C_word 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_22449,c,av);}
/* scrutinizer.scm:2767: p */
t2=((C_word*)t0)[2];
f_22346(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k22455 in k22413 in k22407 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22457(C_word c,C_word *av){
C_word tmp;
C_word 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_22457,c,av);}
/* scrutinizer.scm:2767: ##sys#print */
t2=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k22466 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_22468(C_word c,C_word *av){
C_word tmp;
C_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,14)))){
C_save_and_reclaim((void *)f_22468,c,av);}
a=C_alloc(12);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=C_a_i_list1(&a,1,((C_word*)t0)[3]);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22479,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:2776: scheme#string-append */
t5=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 15) {
  av2=av;
} else {
  av2=C_alloc(15);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[129];
av2[3]=lf[130];
av2[4]=lf[131];
av2[5]=lf[132];
av2[6]=lf[133];
av2[7]=lf[134];
av2[8]=lf[135];
av2[9]=lf[136];
av2[10]=lf[137];
av2[11]=lf[138];
av2[12]=lf[139];
av2[13]=lf[140];
av2[14]=lf[141];
((C_proc)(void*)(*((C_word*)t5+1)))(15,av2);}}

/* k22477 in k22466 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22479(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22479,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22483,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);
/* scrutinizer.scm:2790: pp-fragment */
f_21191(t2,((C_word*)t0)[8]);}

/* k22481 in k22477 in k22466 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22483(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22483,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22487,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);
/* scrutinizer.scm:2791: variable-from-module */
f_21466(t2,((C_word*)((C_word*)t0)[8])[1]);}

/* k22485 in k22481 in k22477 in k22466 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in ... */
static void C_ccall f_22487(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22487,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22491,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:2792: type->pp-string */
f_20620(t2,((C_word*)t0)[8]);}

/* k22489 in k22485 in k22481 in k22477 in k22466 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in ... */
static void C_ccall f_22491(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22491,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22495,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);
/* scrutinizer.scm:2793: type->pp-string */
f_20620(t2,((C_word*)t0)[8]);}

/* k22493 in k22489 in k22485 in k22481 in k22477 in k22466 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in ... */
static void C_ccall f_22495(C_word c,C_word *av){
C_word tmp;
C_word t0=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,8)))){
C_save_and_reclaim((void *)f_22495,c,av);}
a=C_alloc(12);
t2=C_a_i_list(&a,4,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=0;
av2[1]=((C_word*)t0)[5];
av2[2]=lf[71];
av2[3]=lf[128];
av2[4]=*((C_word*)lf[73]+1);
av2[5]=((C_word*)t0)[6];
av2[6]=((C_word*)t0)[7];
av2[7]=((C_word*)t0)[8];
av2[8]=t2;
C_apply(9,av2);}}

/* k22500 in k8974 in k8971 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22502(C_word c,C_word *av){
C_word tmp;
C_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,14)))){
C_save_and_reclaim((void *)f_22502,c,av);}
a=C_alloc(12);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=C_a_i_list1(&a,1,((C_word*)t0)[3]);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22513,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:2801: scheme#string-append */
t5=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 15) {
  av2=av;
} else {
  av2=C_alloc(15);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[145];
av2[3]=lf[146];
av2[4]=lf[147];
av2[5]=lf[148];
av2[6]=lf[149];
av2[7]=lf[150];
av2[8]=lf[151];
av2[9]=lf[152];
av2[10]=lf[153];
av2[11]=lf[154];
av2[12]=lf[155];
av2[13]=lf[156];
av2[14]=lf[157];
((C_proc)(void*)(*((C_word*)t5+1)))(15,av2);}}

/* k22511 in k22500 in k8974 in k8971 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in ... */
static void C_ccall f_22513(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22513,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22517,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);
/* scrutinizer.scm:2815: pp-fragment */
f_21191(t2,((C_word*)t0)[8]);}

/* k22515 in k22511 in k22500 in k8974 in k8971 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in ... */
static void C_ccall f_22517(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22517,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22521,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);
/* scrutinizer.scm:2816: variable-from-module */
f_21466(t2,((C_word*)((C_word*)t0)[8])[1]);}

/* k22519 in k22515 in k22511 in k22500 in k8974 in k8971 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in ... */
static void C_ccall f_22521(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22521,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22525,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:2817: type->pp-string */
f_20620(t2,((C_word*)t0)[8]);}

/* k22523 in k22519 in k22515 in k22511 in k22500 in k8974 in k8971 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in ... */
static void C_ccall f_22525(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22525,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22529,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);
/* scrutinizer.scm:2818: type->pp-string */
f_20620(t2,((C_word*)t0)[8]);}

/* k22527 in k22523 in k22519 in k22515 in k22511 in k22500 in k8974 in k8971 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in ... */
static void C_ccall f_22529(C_word c,C_word *av){
C_word tmp;
C_word t0=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,8)))){
C_save_and_reclaim((void *)f_22529,c,av);}
a=C_alloc(12);
t2=C_a_i_list(&a,4,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=0;
av2[1]=((C_word*)t0)[5];
av2[2]=lf[71];
av2[3]=lf[144];
av2[4]=*((C_word*)lf[73]+1);
av2[5]=((C_word*)t0)[6];
av2[6]=((C_word*)t0)[7];
av2[7]=((C_word*)t0)[8];
av2[8]=t2;
C_apply(9,av2);}}

/* k22541 in k8603 in always-true in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22543(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22543,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22547,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2833: pp-fragment */
f_21191(t2,((C_word*)t0)[6]);}

/* k22545 in k22541 in k8603 in always-true in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22547(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22547,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22551,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);
/* scrutinizer.scm:2834: type->pp-string */
f_20620(t2,((C_word*)t0)[6]);}

/* k22549 in k22545 in k22541 in k8603 in always-true in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22551(C_word c,C_word *av){
C_word tmp;
C_word t0=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,8)))){
C_save_and_reclaim((void *)f_22551,c,av);}
a=C_alloc(6);
t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[71];
av2[3]=lf[72];
av2[4]=*((C_word*)lf[73]+1);
av2[5]=((C_word*)t0)[4];
av2[6]=((C_word*)t0)[5];
av2[7]=((C_word*)t0)[6];
av2[8]=t2;
C_apply(9,av2);}}

/* k22563 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22565(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22565,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22569,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);
/* scrutinizer.scm:2847: pp-fragment */
f_21191(t2,((C_word*)t0)[5]);}

/* k22567 in k22563 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22569(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){
C_save_and_reclaim((void *)f_22569,c,av);}
a=C_alloc(3);
t2=C_a_i_list(&a,1,t1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[71];
av2[3]=lf[213];
av2[4]=*((C_word*)lf[73]+1);
av2[5]=((C_word*)t0)[3];
av2[6]=((C_word*)t0)[4];
av2[7]=((C_word*)t0)[5];
av2[8]=t2;
C_apply(9,av2);}}

/* k22581 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22583(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_22583,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22587,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2864: pp-fragment */
f_21191(t2,((C_word*)t0)[6]);}

/* k22585 in k22581 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22587(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22587,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22591,a[2]=((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);
/* scrutinizer.scm:2865: type->pp-string */
f_20620(t2,((C_word*)t0)[6]);}

/* k22589 in k22585 in k22581 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22591(C_word c,C_word *av){
C_word tmp;
C_word 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_22591,c,av);}
/* scrutinizer.scm:2851: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[278];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
av2[6]=((C_word*)t0)[5];
av2[7]=((C_word*)t0)[6];
av2[8]=t1;
f_21656(9,av2);}}

/* k22603 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22605(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22605,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22609,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:2883: pp-fragment */
f_21191(t2,((C_word*)t0)[7]);}

/* k22607 in k22603 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22609(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22609,c,av);}
a=C_alloc(8);
t2=C_i_length(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22617,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t1,a[7]=t2,tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:2885: type->pp-string */
f_20620(t3,((C_word*)t0)[7]);}

/* k22615 in k22607 in k22603 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22617(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_22617,c,av);}
/* scrutinizer.scm:2868: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[301];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
av2[6]=((C_word*)t0)[5];
av2[7]=((C_word*)t0)[6];
av2[8]=((C_word*)t0)[7];
av2[9]=t1;
f_21656(10,av2);}}

/* k22629 in k11274 in k11271 in k11265 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22631(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22631,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22635,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);
/* scrutinizer.scm:2907: pp-fragment */
f_21191(t2,((C_word*)t0)[7]);}

/* k22633 in k22629 in k11274 in k11271 in k11265 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22635(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22635,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22639,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:2908: type->pp-string */
f_20620(t2,((C_word*)t0)[7]);}

/* k22637 in k22633 in k22629 in k11274 in k11271 in k11265 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22639(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22639,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22643,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:2909: type->pp-string */
f_20620(t2,((C_word*)t0)[7]);}

/* k22641 in k22637 in k22633 in k22629 in k11274 in k11271 in k11265 in k11240 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_22643(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_22643,c,av);}
/* scrutinizer.scm:2888: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[286];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
av2[6]=((C_word*)t0)[5];
av2[7]=((C_word*)t0)[6];
av2[8]=((C_word*)t0)[7];
av2[9]=t1;
f_21656(10,av2);}}

/* k22661 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22663(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22663,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22667,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22732,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2932: node-source-prefix */
f_21215(t3,((C_word*)t0)[5]);}

/* k22665 in k22661 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22667(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_22667,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22671,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:2935: location-name */
f_21245(t2,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);}

/* k22669 in k22665 in k22661 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22671(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22671,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22675,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);
/* scrutinizer.scm:2936: pp-fragment */
f_21191(t2,((C_word*)t0)[7]);}

/* k22673 in k22669 in k22665 in k22661 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22675(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22675,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22679,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f25985,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2912: type->pp-string */
f_20620(t3,((C_word*)t0)[7]);}

/* k22677 in k22673 in k22669 in k22665 in k22661 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_22679(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(23,c,3)))){
C_save_and_reclaim((void *)f_22679,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
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)[7],lf[6]);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22693,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_22695,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_22695(t12,t8,((C_word*)t0)[7]);}

/* k22681 in k22677 in k22673 in k22669 in k22665 in k22661 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_22683(C_word c,C_word *av){
C_word tmp;
C_word 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_22683,c,av);}
/* scrutinizer.scm:2913: chicken.compiler.support#quit-compiling */
t2=*((C_word*)lf[312]+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_word*)t0)[5];
av2[5]=((C_word*)t0)[6];
av2[6]=((C_word*)t0)[7];
av2[7]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}}

/* k22691 in k22677 in k22673 in k22669 in k22665 in k22661 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_22693(C_word c,C_word *av){
C_word tmp;
C_word 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_22693,c,av);}
/* scrutinizer.scm:2938: chicken.string#string-intersperse */
t2=*((C_word*)lf[313]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[314];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop5601 in k22677 in k22673 in k22669 in k22665 in k22661 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_fcall f_22695(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_22695,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22720,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f25978,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2912: type->pp-string */
f_20620(t5,t4);}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k22718 in map-loop5601 in k22677 in k22673 in k22669 in k22665 in k22661 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_22720(C_word c,C_word *av){
C_word tmp;
C_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_22720,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_22695(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k22730 in k22661 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22732(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22732,c,av);}
a=C_alloc(3);
if(C_truep(C_u_i_string_equal_p(lf[318],t1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[319];
f_22667(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22739,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2934: node-source-prefix */
f_21215(t2,((C_word*)t0)[3]);}}

/* k22737 in k22730 in k22661 in loop in k11331 in k11328 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22739(C_word c,C_word *av){
C_word tmp;
C_word 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_22739,c,av);}
/* scrutinizer.scm:2934: chicken.string#conc */
t2=*((C_word*)lf[320]+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[321];
av2[3]=t1;
av2[4]=lf[322];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k22751 in k9674 in k9662 in k9655 in k9651 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_22753(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22753,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22757,a[2]=((C_word*)t0)[2],a[3]=((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);
/* scrutinizer.scm:2960: pp-fragment */
f_21191(t2,((C_word*)t0)[9]);}

/* k22755 in k22751 in k9674 in k9662 in k9655 in k9651 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_22757(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,2)))){
C_save_and_reclaim((void *)f_22757,c,av);}
a=C_alloc(11);
t2=C_i_length(((C_word*)t0)[2]);
t3=C_u_i_length(((C_word*)t0)[2]);
t4=C_i_nequalp(t3,C_fix(1));
t5=(C_truep(t4)?lf[171]:lf[172]);
t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22769,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t1,a[8]=t2,a[9]=t5,a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp);
/* scrutinizer.scm:2962: pp-fragment */
f_21191(t6,((C_word*)t0)[9]);}

/* k22767 in k22755 in k22751 in k9674 in k9662 in k9655 in k9651 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_22769(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_22769,c,av);}
a=C_alloc(12);
t2=C_i_length(((C_word*)t0)[2]);
t3=C_u_i_length(((C_word*)t0)[2]);
t4=C_i_nequalp(t3,C_fix(1));
t5=(C_truep(t4)?lf[171]:lf[172]);
t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_22781,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=t1,a[10]=t2,a[11]=t5,tmp=(C_word)a,a+=12,tmp);
/* scrutinizer.scm:2964: pp-fragment */
f_21191(t6,((C_word*)t0)[10]);}

/* k22779 in k22767 in k22755 in k22751 in k9674 in k9662 in k9655 in k9651 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_22781(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,13)))){
C_save_and_reclaim((void *)f_22781,c,av);}
/* scrutinizer.scm:2941: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 14) {
  av2=av;
} else {
  av2=C_alloc(14);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[198];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
av2[6]=((C_word*)t0)[5];
av2[7]=((C_word*)t0)[6];
av2[8]=((C_word*)t0)[7];
av2[9]=((C_word*)t0)[8];
av2[10]=((C_word*)t0)[9];
av2[11]=((C_word*)t0)[10];
av2[12]=((C_word*)t0)[11];
av2[13]=t1;
f_21656(14,av2);}}

/* k22797 in k10564 in k10561 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22799(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22799,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22803,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);
/* scrutinizer.scm:2986: pp-fragment */
f_21191(t2,((C_word*)t0)[8]);}

/* k22801 in k22797 in k10564 in k10561 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22803(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22803,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22807,a[2]=((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);
/* scrutinizer.scm:2987: strip-namespace */
f_19431(t2,((C_word*)t0)[7]);}

/* k22805 in k22801 in k22797 in k10564 in k10561 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_22807(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22807,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22811,a[2]=((C_word*)t0)[2],a[3]=((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);
/* scrutinizer.scm:2988: type->pp-string */
f_20620(t2,((C_word*)t0)[9]);}

/* k22809 in k22805 in k22801 in k22797 in k10564 in k10561 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_22811(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_22811,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22815,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22823,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2990: chicken.compiler.support#real-name */
t4=*((C_word*)lf[253]+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);}}

/* k22813 in k22809 in k22805 in k22801 in k22797 in k10564 in k10561 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_22815(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22815,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22819,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,tmp=(C_word)a,a+=10,tmp);
/* scrutinizer.scm:2992: type->pp-string */
f_20620(t2,((C_word*)t0)[9]);}

/* k22817 in k22813 in k22809 in k22805 in k22801 in k22797 in k10564 in k10561 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_22819(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,11)))){
C_save_and_reclaim((void *)f_22819,c,av);}
/* scrutinizer.scm:2967: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 12) {
  av2=av;
} else {
  av2=C_alloc(12);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[251];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
av2[6]=((C_word*)t0)[5];
av2[7]=((C_word*)t0)[6];
av2[8]=((C_word*)t0)[7];
av2[9]=((C_word*)t0)[8];
av2[10]=((C_word*)t0)[9];
av2[11]=t1;
f_21656(12,av2);}}

/* k22821 in k22809 in k22805 in k22801 in k22797 in k10564 in k10561 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_22823(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22823,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22826,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_symbolp(t1))){
/* scrutinizer.scm:2989: variable-from-module */
f_21466(((C_word*)t0)[2],t1);}
else{
/* scrutinizer.scm:2991: scheme#string->symbol */
t3=*((C_word*)lf[252]+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);}}}

/* k22824 in k22821 in k22809 in k22805 in k22801 in k22797 in k10564 in k10561 in k10297 in k10294 in k10291 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_22826(C_word c,C_word *av){
C_word tmp;
C_word 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_22826,c,av);}
/* scrutinizer.scm:2989: variable-from-module */
f_21466(((C_word*)t0)[2],t1);}

/* chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_22834(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_22834,5,t1,t2,t3,t4,t5);}
a=C_alloc(7);
t6=C_i_nullp(t5);
t7=(C_truep(t6)?C_SCHEME_FALSE:C_i_car(t5));
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22845,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t7,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2996: chicken.base#open-output-string */
t9=*((C_word*)lf[242]+1);{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}

/* k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_22845(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22845,c,av);}
a=C_alloc(8);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22851,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:2996: ##sys#print */
t4=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[639];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_22851(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22851,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22854,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_22912,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2996: strip-namespace */
f_19431(t3,((C_word*)t0)[6]);}

/* k22852 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22854(C_word c,C_word *av){
C_word tmp;
C_word t0=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,3)))){
C_save_and_reclaim((void *)f_22854,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22857,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* scrutinizer.scm:2996: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(39);
av2[3]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k22855 in k22852 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_22857(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22857,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22860,a[2]=((C_word*)t0)[2],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);
/* scrutinizer.scm:2996: chicken.base#get-output-string */
t3=*((C_word*)lf[238]+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);}}

/* k22858 in k22855 in k22852 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in ... */
static void C_ccall f_22860(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,7)))){
C_save_and_reclaim((void *)f_22860,c,av);}
a=C_alloc(12);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22868,a[2]=((C_word*)t0)[3],a[3]=t1,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)[2],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:3000: scheme#string-append */
t4=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[633];
av2[3]=lf[634];
av2[4]=lf[635];
av2[5]=lf[636];
av2[6]=lf[637];
av2[7]=lf[638];
((C_proc)(void*)(*((C_word*)t4+1)))(8,av2);}}

/* k22866 in k22858 in k22855 in k22852 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in ... */
static void C_ccall f_22868(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22868,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22872,a[2]=((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);
/* scrutinizer.scm:3007: pp-fragment */
f_21191(t2,((C_word*)t0)[8]);}

/* k22870 in k22866 in k22858 in k22855 in k22852 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in ... */
static void C_ccall f_22872(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22872,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22876,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:3008: variable-from-module */
f_21466(t2,((C_word*)t0)[8]);}

/* k22874 in k22870 in k22866 in k22858 in k22855 in k22852 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in ... */
static void C_ccall f_22876(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_22876,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22880,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
if(C_truep(((C_word*)t0)[8])){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22883,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:3010: chicken.base#open-output-string */
t4=*((C_word*)lf[242]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[632];
f_22880(2,av2);}}}

/* k22878 in k22874 in k22870 in k22866 in k22858 in k22855 in k22852 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in ... */
static void C_ccall f_22880(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_22880,c,av);}
/* scrutinizer.scm:2995: report2 */
t2=lf[71];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=*((C_word*)lf[90]+1);
av2[4]=((C_word*)t0)[4];
av2[5]=((C_word*)t0)[5];
av2[6]=((C_word*)t0)[6];
av2[7]=((C_word*)t0)[7];
av2[8]=((C_word*)t0)[8];
av2[9]=t1;
f_21656(10,av2);}}

/* k22881 in k22874 in k22870 in k22866 in k22858 in k22855 in k22852 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in ... */
static void C_ccall f_22883(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_22883,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[235]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22889,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:3010: ##sys#write-char-0 */
t4=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(10);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k22887 in k22881 in k22874 in k22870 in k22866 in k22858 in k22855 in k22852 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in ... */
static void C_ccall f_22889(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22889,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22892,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);
/* scrutinizer.scm:3010: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k22890 in k22887 in k22881 in k22874 in k22870 in k22866 in k22858 in k22855 in k22852 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in ... */
static void C_ccall f_22892(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22892,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22895,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);
/* scrutinizer.scm:3010: ##sys#print */
t3=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[631];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22893 in k22890 in k22887 in k22881 in k22874 in k22870 in k22866 in k22858 in k22855 in k22852 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in ... */
static void C_ccall f_22895(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22895,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22898,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22908,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:3011: variable-from-module */
f_21466(t3,((C_word*)t0)[4]);}

/* k22896 in k22893 in k22890 in k22887 in k22881 in k22874 in k22870 in k22866 in k22858 in k22855 in k22852 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in ... */
static void C_ccall f_22898(C_word c,C_word *av){
C_word tmp;
C_word t0=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_22898,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22901,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:3010: ##sys#write-char-0 */
t3=*((C_word*)lf[239]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(46);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k22899 in k22896 in k22893 in k22890 in k22887 in k22881 in k22874 in k22870 in k22866 in k22858 in k22855 in k22852 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in ... */
static void C_ccall f_22901(C_word c,C_word *av){
C_word tmp;
C_word 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_22901,c,av);}
/* scrutinizer.scm:3010: chicken.base#get-output-string */
t2=*((C_word*)lf[238]+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);}}

/* k22906 in k22893 in k22890 in k22887 in k22881 in k22874 in k22870 in k22866 in k22858 in k22855 in k22852 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in ... */
static void C_ccall f_22908(C_word c,C_word *av){
C_word tmp;
C_word 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_22908,c,av);}
/* scrutinizer.scm:3010: ##sys#print */
t2=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k22910 in k22849 in k22843 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_22912(C_word c,C_word *av){
C_word tmp;
C_word 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_22912,c,av);}
/* scrutinizer.scm:2996: ##sys#print */
t2=*((C_word*)lf[240]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* a22923 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22924(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_22924,c,av);}
a=C_alloc(5);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22928,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2233: chicken.compiler.support#node-subexpressions */
t7=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k22926 in a22923 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22928(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_22928,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=C_i_length(t1);
t3=C_eqp(t2,C_fix(2));
if(C_truep(t3)){
t4=C_i_cadr(((C_word*)t0)[2]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f26658,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t6=*((C_word*)lf[26]+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_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k22967 */
static void C_ccall f_22969(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_22969,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,lf[47],t1);
t3=C_a_i_list(&a,1,t2);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?t3:((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a22985 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_22986(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_22986,c,av);}
a=C_alloc(15);
t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t7=t6;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=((C_word*)t8)[1];
t10=lf[25];
t11=C_i_cdr(t3);
t12=C_i_check_list_2(t11,lf[6]);
t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23007,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t14=C_SCHEME_UNDEFINED;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23009,a[2]=t8,a[3]=t15,a[4]=t9,tmp=(C_word)a,a+=5,tmp));
t17=((C_word*)t15)[1];
f_23009(t17,t13,t11);}

/* k23005 in a22985 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23007(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_23007,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,lf[50],t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* map-loop4564 in a22985 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_23009(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_23009,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f26663,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);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[26]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+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);}}}

/* a23042 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23043(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_23043,c,av);}
a=C_alloc(15);
t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t7=t6;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=((C_word*)t8)[1];
t10=lf[25];
t11=C_i_cdr(t3);
t12=C_i_check_list_2(t11,lf[6]);
t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23064,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t14=C_SCHEME_UNDEFINED;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23066,a[2]=t8,a[3]=t15,a[4]=t9,tmp=(C_word)a,a+=5,tmp));
t17=((C_word*)t15)[1];
f_23066(t17,t13,t11);}

/* k23062 in a23042 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23064(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_23064,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,lf[50],t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* map-loop4530 in a23042 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_23066(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_23066,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f26670,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);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[26]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+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);}}}

/* a23099 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23100(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_23100,c,av);}
a=C_alloc(15);
t6=C_i_cdr(t3);
if(C_truep(C_i_nullp(t6))){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=lf[644];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=((C_word*)t9)[1];
t11=lf[25];
t12=C_u_i_cdr(t3);
t13=C_i_check_list_2(t12,lf[6]);
t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23125,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t15=C_SCHEME_UNDEFINED;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23127,a[2]=t9,a[3]=t16,a[4]=t10,tmp=(C_word)a,a+=5,tmp));
t18=((C_word*)t16)[1];
f_23127(t18,t14,t12);}}

/* k23123 in a23099 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23125(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_23125,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,lf[47],t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* map-loop4496 in a23099 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_23127(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_23127,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f26677,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);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[26]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+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);}}}

/* a23164 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23165(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_23165,c,av);}
a=C_alloc(15);
t6=C_i_cdr(t3);
if(C_truep(C_i_nullp(t6))){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=lf[646];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=((C_word*)t9)[1];
t11=lf[25];
t12=C_u_i_cdr(t3);
t13=C_i_check_list_2(t12,lf[6]);
t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23190,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t15=C_SCHEME_UNDEFINED;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23192,a[2]=t9,a[3]=t16,a[4]=t10,tmp=(C_word)a,a+=5,tmp));
t18=((C_word*)t16)[1];
f_23192(t18,t14,t12);}}

/* k23188 in a23164 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23190(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_23190,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,lf[47],t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* map-loop4462 in a23164 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_23192(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_23192,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f26684,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);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[26]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+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);}}}

/* k23230 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23232(C_word c,C_word *av){
C_word tmp;
C_word 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_23232,c,av);}
/* scrutinizer.scm:2207: ##sys#put! */
t2=*((C_word*)lf[640]+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[648];
av2[3]=lf[274];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* a23233 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23234(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(3,c,1)))){
C_save_and_reclaim((void *)f_23234,c,av);}
a=C_alloc(3);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list1(&a,1,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k23240 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23242(C_word c,C_word *av){
C_word tmp;
C_word 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_23242,c,av);}
/* scrutinizer.scm:2201: ##sys#put! */
t2=*((C_word*)lf[640]+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[649];
av2[3]=lf[274];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* a23243 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23244(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(3,c,1)))){
C_save_and_reclaim((void *)f_23244,c,av);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t3))){
t4=C_i_cadr(t3);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_a_i_list1(&a,1,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* a23259 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23260(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_23260,c,av);}
a=C_alloc(6);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23264,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2124: known-length-vector-index */
f_19481(t6,t2,t3,t4,C_fix(3));}

/* k23262 in a23259 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23264(C_word c,C_word *av){
C_word tmp;
C_word t0=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_23264,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23273,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2125: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[86]+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);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k23271 in k23262 in a23259 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23273(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_23273,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=C_i_cadr(t1);
if(C_truep(t2)){
t3=C_i_cadddr(t1);
if(C_truep(t3)){
t4=C_i_cadddr(((C_word*)t0)[2]);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f26691,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t6=*((C_word*)lf[26]+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_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
((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)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k23298 in k23309 */
static void C_ccall f_23300(C_word c,C_word *av){
C_word tmp;
C_word t0=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_23300,c,av);}
t2=lf[652];
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?t2:((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k23309 */
static void C_ccall f_23311(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_23311,c,av);}
a=C_alloc(22);
t2=(C_truep(t1)?lf[650]:lf[651]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23300,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t4=C_a_i_list(&a,2,lf[123],((C_word*)t0)[4]);
t5=C_a_i_list(&a,4,t2,((C_word*)t0)[5],t4,((C_word*)t0)[6]);
/* scrutinizer.scm:2132: mutate-node! */
f_17304(t3,((C_word*)t0)[7],t5);}

/* a23316 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23317(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_23317,c,av);}
a=C_alloc(4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23321,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2078: chicken.compiler.support#node-subexpressions */
t7=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k23319 in a23316 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23321(C_word c,C_word *av){
C_word tmp;
C_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,2)))){
C_save_and_reclaim((void *)f_23321,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=C_i_length(t1);
if(C_truep(C_fixnum_greater_or_equal_p(t2,C_fix(2)))){
t3=C_i_cadr(t1);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23382,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:2081: chicken.compiler.support#node-class */
t5=*((C_word*)lf[88]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((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);}}}
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);}}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k23372 in k23376 in k23380 in k23319 in a23316 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23374(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_23374,c,av);}
a=C_alloc(9);
t2=C_a_i_list(&a,2,lf[52],t1);
t3=C_a_i_list(&a,1,t2);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?t3:((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k23376 in k23380 in k23319 in a23316 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23378(C_word c,C_word *av){
C_word tmp;
C_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_23378,c,av);}
a=C_alloc(4);
t2=C_i_car(t1);
if(C_truep(t2)){
if(C_truep(C_i_symbolp(t2))){
t3=C_eqp(lf[656],t2);
if(C_truep(t3)){
t4=lf[657];
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=(C_truep(t4)?t4:((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23374,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2088: strip-namespace */
f_19431(t4,t2);}}
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);}}}
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);}}}

/* k23380 in k23319 in a23316 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_23382(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_23382,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[123],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23378,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:2082: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[26]+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_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k6712 */
static void C_ccall f_6714(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6714,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6717,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);}}

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

/* k6718 in k6715 in k6712 */
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(3,c,2)))){
C_save_and_reclaim((void *)f_6720,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6723,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_data_2dstructures_toplevel(2,av2);}}

/* k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_6723(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6723,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6726,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_extras_toplevel(2,av2);}}

/* k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_6726(C_word c,C_word *av){
C_word tmp;
C_word t0=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_6726,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6729,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_pathname_toplevel(2,av2);}}

/* k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_6729(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6729,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6732,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_port_toplevel(2,av2);}}

/* k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_6732(C_word c,C_word *av){
C_word tmp;
C_word t0=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_6732,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6735,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);}}

/* k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_6735(C_word c,C_word *av){
C_word tmp;
C_word t0=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_6735,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6738,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);}}

/* k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
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 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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(111,c,8)))){
C_save_and_reclaim((void *)f_6738,c,av);}
a=C_alloc(111);
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.scrutinizer#take ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6848,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate(&lf[3] /* (set! chicken.compiler.scrutinizer#append-map ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6939,tmp=(C_word)a,a+=2,tmp));
t6=C_mutate(&lf[9] /* (set! chicken.compiler.scrutinizer#every ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7109,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate(&lf[7] /* (set! chicken.compiler.scrutinizer#any ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7143,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate(&lf[10] /* (set! chicken.compiler.scrutinizer#delete-duplicates ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7304,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate(&lf[11] /* (set! chicken.compiler.scrutinizer#filter-map ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7393,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate(&lf[12] /* (set! chicken.compiler.scrutinizer#unzip1 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7458,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate(&lf[13] /* (set! chicken.compiler.scrutinizer#list-tabulate ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7751,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate(&lf[14] /* (set! chicken.compiler.scrutinizer#lset=/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7793,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate(&lf[15] /* (set! chicken.compiler.scrutinizer#make-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7934,tmp=(C_word)a,a+=2,tmp));
t14=lf[16] /* chicken.compiler.scrutinizer#d-depth */ =C_fix(0);;
t15=lf[17] /* chicken.compiler.scrutinizer#scrutiny-debug */ =C_SCHEME_TRUE;;
t16=lf[18] /* chicken.compiler.scrutinizer#*complain?* */ =C_SCHEME_FALSE;;
t17=C_mutate(&lf[19] /* (set! chicken.compiler.scrutinizer#constant709 ...) */,lf[20]);
t18=C_mutate(&lf[21] /* (set! chicken.compiler.scrutinizer#constant716 ...) */,lf[22]);
t19=lf[23] /* chicken.compiler.scrutinizer#specialization-statistics */ =C_SCHEME_END_OF_LIST;;
t20=lf[24] /* chicken.compiler.scrutinizer#trail */ =C_SCHEME_END_OF_LIST;;
t21=C_mutate(&lf[25] /* (set! chicken.compiler.scrutinizer#walked-result ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8063,tmp=(C_word)a,a+=2,tmp));
t22=C_mutate(&lf[27] /* (set! chicken.compiler.scrutinizer#type-always-immediate? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8073,tmp=(C_word)a,a+=2,tmp));
t23=C_mutate((C_word*)lf[36]+1 /* (set! chicken.compiler.scrutinizer#scrutinize ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8116,tmp=(C_word)a,a+=2,tmp));
t24=C_mutate(&lf[243] /* (set! chicken.compiler.scrutinizer#smash-component-types! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11631,tmp=(C_word)a,a+=2,tmp));
t25=C_mutate((C_word*)lf[170]+1 /* (set! chicken.compiler.scrutinizer#match-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11827,tmp=(C_word)a,a+=2,tmp));
t26=C_mutate(&lf[159] /* (set! chicken.compiler.scrutinizer#match-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13415,tmp=(C_word)a,a+=2,tmp));
t27=C_mutate(&lf[49] /* (set! chicken.compiler.scrutinizer#simplify-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13487,tmp=(C_word)a,a+=2,tmp));
t28=C_mutate(&lf[380] /* (set! chicken.compiler.scrutinizer#merge-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14456,tmp=(C_word)a,a+=2,tmp));
t29=C_mutate(&lf[300] /* (set! chicken.compiler.scrutinizer#compatible-types? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14694,tmp=(C_word)a,a+=2,tmp));
t30=C_mutate((C_word*)lf[382]+1 /* (set! chicken.compiler.scrutinizer#type<=? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14753,tmp=(C_word)a,a+=2,tmp));
t31=C_mutate((C_word*)lf[273]+1 /* (set! chicken.compiler.scrutinizer#refine-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14781,tmp=(C_word)a,a+=2,tmp));
t32=C_mutate(&lf[121] /* (set! chicken.compiler.scrutinizer#procedure-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15103,tmp=(C_word)a,a+=2,tmp));
t33=C_mutate(&lf[166] /* (set! chicken.compiler.scrutinizer#procedure-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15155,tmp=(C_word)a,a+=2,tmp));
t34=C_mutate(&lf[371] /* (set! chicken.compiler.scrutinizer#procedure-arguments ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15206,tmp=(C_word)a,a+=2,tmp));
t35=C_mutate(&lf[370] /* (set! chicken.compiler.scrutinizer#procedure-results ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15263,tmp=(C_word)a,a+=2,tmp));
t36=C_mutate(&lf[119] /* (set! chicken.compiler.scrutinizer#procedure-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15320,tmp=(C_word)a,a+=2,tmp));
t37=C_mutate(&lf[388] /* (set! chicken.compiler.scrutinizer#named? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15671,tmp=(C_word)a,a+=2,tmp));
t38=C_mutate(&lf[366] /* (set! chicken.compiler.scrutinizer#rest-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15724,tmp=(C_word)a,a+=2,tmp));
t39=C_mutate(&lf[168] /* (set! chicken.compiler.scrutinizer#noreturn-procedure-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15744,tmp=(C_word)a,a+=2,tmp));
t40=C_mutate(&lf[402] /* (set! chicken.compiler.scrutinizer#noreturn-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15803,tmp=(C_word)a,a+=2,tmp));
t41=C_mutate(&lf[386] /* (set! chicken.compiler.scrutinizer#refinement-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15847,tmp=(C_word)a,a+=2,tmp));
t42=C_mutate(&lf[161] /* (set! chicken.compiler.scrutinizer#type-typeenv ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15894,tmp=(C_word)a,a+=2,tmp));
t43=C_mutate(&lf[158] /* (set! chicken.compiler.scrutinizer#trail-restore ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16226,tmp=(C_word)a,a+=2,tmp));
t44=C_mutate(&lf[118] /* (set! chicken.compiler.scrutinizer#resolve ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16269,tmp=(C_word)a,a+=2,tmp));
t45=C_mutate((C_word*)lf[406]+1 /* (set! chicken.compiler.scrutinizer#load-type-database ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16734,tmp=(C_word)a,a+=2,tmp));
t46=C_mutate((C_word*)lf[432]+1 /* (set! chicken.compiler.scrutinizer#emit-types-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17133,tmp=(C_word)a,a+=2,tmp));
t47=lf[447] /* chicken.compiler.scrutinizer#node-mutations */ =C_SCHEME_END_OF_LIST;;
t48=C_mutate(&lf[160] /* (set! chicken.compiler.scrutinizer#mutate-node! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17304,tmp=(C_word)a,a+=2,tmp));
t49=C_mutate(&lf[451] /* (set! chicken.compiler.scrutinizer#source-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17322,tmp=(C_word)a,a+=2,tmp));
t50=C_mutate(&lf[453] /* (set! chicken.compiler.scrutinizer#source-node-tree ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17349,tmp=(C_word)a,a+=2,tmp));
t51=C_mutate(&lf[125] /* (set! chicken.compiler.scrutinizer#specialize-node! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17484,tmp=(C_word)a,a+=2,tmp));
t52=C_mutate((C_word*)lf[407]+1 /* (set! chicken.compiler.scrutinizer#validate-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17637,tmp=(C_word)a,a+=2,tmp));
t53=C_mutate((C_word*)lf[479]+1 /* (set! chicken.compiler.scrutinizer#check-and-validate-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19004,tmp=(C_word)a,a+=2,tmp));
t54=C_mutate((C_word*)lf[408]+1 /* (set! chicken.compiler.scrutinizer#install-specializations ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19038,tmp=(C_word)a,a+=2,tmp));
t55=C_mutate(&lf[387] /* (set! chicken.compiler.scrutinizer#canonicalize-list-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19317,tmp=(C_word)a,a+=2,tmp));
t56=C_mutate(&lf[176] /* (set! chicken.compiler.scrutinizer#strip-namespace ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19431,tmp=(C_word)a,a+=2,tmp));
t57=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19479,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t58=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23317,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:2076: ##sys#put! */
t59=*((C_word*)lf[640]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t59;
av2[1]=t57;
av2[2]=lf[658];
av2[3]=lf[274];
av2[4]=t58;
((C_proc)(void*)(*((C_word*)t59+1)))(5,av2);}}

/* loop in a11978 in match-rest in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_6804(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_6804,4,t0,t1,t2,t3);}
a=C_alloc(4);
if(C_truep(C_i_nullp(t2))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6818,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:49: scheme#reverse */
t5=*((C_word*)lf[367]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=C_i_car(t2);
t5=C_eqp(lf[365],t4);
if(C_truep(C_i_not(t5))){
t6=C_u_i_cdr(t2);
t7=C_u_i_car(t2);
t8=C_a_i_cons(&a,2,t7,t3);
/* mini-srfi-1.scm:50: loop */
t10=t1;
t11=t6;
t12=t8;
t1=t10;
t2=t11;
t3=t12;
goto loop;}
else{
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6842,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:51: scheme#reverse */
t7=*((C_word*)lf[367]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}

/* k6816 in loop in a11978 in match-rest in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_6818(C_word c,C_word *av){
C_word tmp;
C_word 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_6818,c,av);}
/* mini-srfi-1.scm:49: 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);}}

/* k6840 in loop in a11978 in match-rest in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_6842(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6842,c,av);}
/* mini-srfi-1.scm:51: 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.scrutinizer#take in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_6848(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_6848,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_6866,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;}}

/* k6864 in chicken.compiler.scrutinizer#take in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_6866(C_word c,C_word *av){
C_word tmp;
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_6866,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* loop in a19693 in k19903 in k19907 */
static void C_fcall f_6906(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_6906,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_6920,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:67: scheme#reverse */
t6=*((C_word*)lf[367]+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;}}

/* k6918 in loop in a19693 in k19903 in k19907 */
static void C_ccall f_6920(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6920,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.scrutinizer#append-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_6939(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_6939,4,t1,t2,t3,t4);}
a=C_alloc(9);
if(C_truep(C_i_nullp(t4))){
t5=C_i_check_list_2(t3,lf[4]);
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_6954,a[2]=t2,a[3]=t7,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_6954(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_6994,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_6994(t9,t1,t5);}}

/* foldr170 in chicken.compiler.scrutinizer#append-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_6954(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_6954,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_6962,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_6981,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);}}}

/* g175 in foldr170 in chicken.compiler.scrutinizer#append-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_6962(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_6962,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6970,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);}}

/* k6968 in g175 in foldr170 in chicken.compiler.scrutinizer#append-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_6970(C_word c,C_word *av){
C_word tmp;
C_word 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_6970,c,av);}
/* mini-srfi-1.scm:72: scheme#append */
t2=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k6979 in foldr170 in chicken.compiler.scrutinizer#append-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_6981(C_word c,C_word *av){
C_word tmp;
C_word 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_6981,c,av);}
/* mini-srfi-1.scm:72: g175 */
t2=((C_word*)t0)[2];
f_6962(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* loop in chicken.compiler.scrutinizer#append-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_6994(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_6994,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7001,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_7143(t3,*((C_word*)lf[8]+1),t2);}

/* k6999 in loop in chicken.compiler.scrutinizer#append-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7001(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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_7001,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_7008,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[6]);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7073,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_7075,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_7075(t12,t8,((C_word*)t0)[4]);}}

/* k7006 in k6999 in loop in chicken.compiler.scrutinizer#append-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7008(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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_7008,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7012,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_7024,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_7026,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_7026(t11,t7,((C_word*)t0)[4]);}

/* k7010 in k7006 in k6999 in loop in chicken.compiler.scrutinizer#append-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7012(C_word c,C_word *av){
C_word tmp;
C_word 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_7012,c,av);}
/* mini-srfi-1.scm:76: scheme#append */
t2=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k7022 in k7006 in k6999 in loop in chicken.compiler.scrutinizer#append-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7024(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7024,c,av);}
/* mini-srfi-1.scm:77: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_6994(t2,((C_word*)t0)[3],t1);}

/* map-loop212 in k7006 in k6999 in loop in chicken.compiler.scrutinizer#append-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7026(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_7026,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);}}}

/* k7071 in k6999 in loop in chicken.compiler.scrutinizer#append-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7073(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7073,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-loop185 in k6999 in loop in chicken.compiler.scrutinizer#append-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7075(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_7075,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.scrutinizer#every in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7109(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_7109,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_7115,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_7115(t7,t1,t3);}

/* loop in chicken.compiler.scrutinizer#every in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7115(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_7115,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_7137,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);}}}

/* k7135 in loop in chicken.compiler.scrutinizer#every in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7137(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7137,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_7115(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}

/* chicken.compiler.scrutinizer#any in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7143(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_7143,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_7149,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_7149(t7,t1,t3);}

/* loop in chicken.compiler.scrutinizer#any in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7149(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_7149,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_7159,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);}}}

/* k7157 in loop in chicken.compiler.scrutinizer#any in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7159(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7159,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_7149(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}

/* loop in k17194 in k17180 in k17177 in k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_fcall f_7179(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_7179,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_7193,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;}}

/* k7191 in loop in k17194 in k17180 in k17177 in k17174 in k17171 in k17168 in k17165 in k17159 in k17156 in a17150 in k17141 in a17138 in chicken.compiler.scrutinizer#emit-types-file in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_7193(C_word c,C_word *av){
C_word tmp;
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_7193,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* loop in k20357 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in k6727 in ... */
static void C_fcall f_7207(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_7207,3,t0,t1,t2);}
a=C_alloc(4);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7225,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:101: loop */
t6=t4;
t7=C_u_i_cdr(t2);
t1=t6;
t2=t7;
goto loop;}}

/* k7223 in loop in k20357 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20200 in k20105 in k20102 in k19937 in k19934 in k19931 in k19928 in k19925 in k19922 in k19919 in k19639 in k19636 in k19633 in k19477 in k6736 in k6733 in k6730 in ... */
static void C_ccall f_7225(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7225,c,av);}
/* mini-srfi-1.scm:101: scheme#append */
t2=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* loop in loop in chicken.compiler.scrutinizer#delete-duplicates in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7235(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_7235,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_7248,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);}}}

/* k7246 in loop in loop in chicken.compiler.scrutinizer#delete-duplicates in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7248(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7248,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_7235(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_7262,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_7235(t4,t3,C_u_i_cdr(((C_word*)t0)[4]));}}

/* k7260 in k7246 in loop in loop in chicken.compiler.scrutinizer#delete-duplicates in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7262(C_word c,C_word *av){
C_word tmp;
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_7262,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.scrutinizer#delete-duplicates in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7304(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_7304,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_7310,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_7310(t7,t1,t2);}

/* loop in chicken.compiler.scrutinizer#delete-duplicates in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7310(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){
C_save_and_reclaim_args((void *)trf_7310,3,t0,t1,t2);}
a=C_alloc(17);
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_7324,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_7337,a[2]=((C_word*)t0)[2],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7235,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp));
t10=((C_word*)t8)[1];
f_7235(t10,t6,t4);}}

/* k7322 in loop in chicken.compiler.scrutinizer#delete-duplicates in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7324(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7324,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);}}

/* k7335 in loop in chicken.compiler.scrutinizer#delete-duplicates in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7337(C_word c,C_word *av){
C_word tmp;
C_word 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_7337,c,av);}
/* mini-srfi-1.scm:123: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_7310(t2,((C_word*)t0)[3],t1);}

/* chicken.compiler.scrutinizer#filter-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7393(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_7393,3,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_check_list_2(t3,lf[4]);
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_7402,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_7402(t8,t1,t3);}

/* foldr335 in chicken.compiler.scrutinizer#filter-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7402(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_7402,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_7410,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_7436,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);}}}

/* g340 in foldr335 in chicken.compiler.scrutinizer#filter-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7410(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_7410,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7414,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:135: 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);}}

/* k7412 in g340 in foldr335 in chicken.compiler.scrutinizer#filter-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7414(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7414,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7418,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* mini-srfi-1.scm:135: g350 */
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
/* mini-srfi-1.scm:135: g350 */
  f_7418(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);}}}

/* g350 in k7412 in g340 in foldr335 in chicken.compiler.scrutinizer#filter-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static C_word C_fcall f_7418(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]));}

/* k7434 in foldr335 in chicken.compiler.scrutinizer#filter-map in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7436(C_word c,C_word *av){
C_word tmp;
C_word 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_7436,c,av);}
/* mini-srfi-1.scm:134: g340 */
t2=((C_word*)t0)[2];
f_7410(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* chicken.compiler.scrutinizer#unzip1 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7458(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_7458,c,av);}
a=C_alloc(12);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_i_check_list_2(t2,lf[6]);
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_7475,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_7475(t11,t1,t2);}

/* map-loop363 in chicken.compiler.scrutinizer#unzip1 in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7475(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_7475,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 g2678 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7574(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_7574,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;}}}

/* foldl445 in k13964 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7660(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_7660,4,t0,t1,t2,t3);}
a=C_alloc(10);
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7727,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t6=C_slot(t2,C_fix(0));
t7=C_i_check_list_2(t6,lf[378]);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7685,a[2]=t9,tmp=(C_word)a,a+=3,tmp));
t11=((C_word*)t9)[1];
f_7685(t11,t5,t6,t3);}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* foldl461 in foldl445 in k13964 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7685(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_7685,4,t0,t1,t2,t3);}
a=C_alloc(10);
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(1));
t5=C_slot(t2,C_fix(0));
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7708,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7713,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
/* mini-srfi-1.scm:175: any */
f_7143(t6,t7,t3);}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k7706 in foldl461 in foldl445 in k13964 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7708(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7708,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)((C_word*)t0)[2])[1];
f_7685(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}
else{
t2=C_a_i_cons(&a,2,((C_word*)t0)[6],((C_word*)t0)[5]);
t3=((C_word*)((C_word*)t0)[2])[1];
f_7685(t3,((C_word*)t0)[3],((C_word*)t0)[4],t2);}}

/* a7712 in foldl461 in foldl445 in k13964 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7713(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_7713,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_eqp(t2,((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k7725 in foldl445 in k13964 in a13495 in simplify in chicken.compiler.scrutinizer#simplify-type in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7727(C_word c,C_word *av){
C_word tmp;
C_word 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_7727,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7660(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* chicken.compiler.scrutinizer#list-tabulate in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7751(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_7751,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_7757,a[2]=t2,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_7757(t7,t1,C_fix(0));}

/* loop in chicken.compiler.scrutinizer#list-tabulate in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7757(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_7757,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_7771,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);}}}

/* k7769 in loop in chicken.compiler.scrutinizer#list-tabulate in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7771(C_word c,C_word *av){
C_word tmp;
C_word t0=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_7771,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7775,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_7757(t3,t2,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* k7773 in k7769 in loop in chicken.compiler.scrutinizer#list-tabulate in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7775(C_word c,C_word *av){
C_word tmp;
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_7775,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);}}

/* a7786 in k12796 in k12676 in k12436 in k12422 in match1 in k11829 in chicken.compiler.scrutinizer#match-types in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7787(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_7787,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);}}

/* chicken.compiler.scrutinizer#lset=/eq? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7793(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(3,0,3)))){
C_save_and_reclaim_args((void *)trf_7793,3,t1,t2,t3);}
a=C_alloc(3);
t4=C_i_length(t2);
t5=C_i_length(t3);
t6=C_eqp(t4,t5);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7805,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* mini-srfi-1.scm:197: every */
f_7109(t1,t7,t2);}
else{
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* a7804 in chicken.compiler.scrutinizer#lset=/eq? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7805(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_7805,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);}}

/* loop in blist-type in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static C_word C_fcall f_7870(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t1))){
return(C_SCHEME_FALSE);}
else{
t2=(
/* mini-srfi-1.scm:216: pred */
  f_8457(((C_word*)t0)[2],C_i_car(t1))
);
if(C_truep(t2)){
return(C_u_i_car(t1));}
else{
t4=C_u_i_cdr(t1);
t1=t4;
goto loop;}}}

/* a7930 in k10653 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7931(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_7931,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.scrutinizer#make-list in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_7934(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(3,0,3)))){
C_save_and_reclaim_args((void *)trf_7934,3,t1,t2,t3);}
a=C_alloc(3);
if(C_truep(C_i_nullp(t3))){
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f25856,tmp=(C_word)a,a+=2,tmp);
/* mini-srfi-1.scm:228: list-tabulate */
f_7751(t1,t2,t4);}
else{
t4=C_i_car(t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7943,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* mini-srfi-1.scm:228: list-tabulate */
f_7751(t1,t2,t5);}}

/* a7942 in chicken.compiler.scrutinizer#make-list in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_7943(C_word c,C_word *av){
C_word tmp;
C_word 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_7943,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.scrutinizer#walked-result in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8063(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8063,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8071,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[26]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k8069 in chicken.compiler.scrutinizer#walked-result in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8071(C_word c,C_word *av){
C_word tmp;
C_word 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_8071,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_car(t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.scrutinizer#type-always-immediate? in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8073(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
av[0]=t0;
av[1]=t1;
av[2]=t2;
C_save_and_reclaim((void *)f_8073,c,av);}
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_car(t2);
t4=C_eqp(t3,lf[28]);
if(C_truep(t4)){
/* scrutinizer.scm:171: every */
f_7109(t1,lf[27],C_u_i_cdr(t2));}
else{
t5=C_eqp(t3,lf[29]);
if(C_truep(t5)){
/* scrutinizer.scm:172: type-always-immediate? */
t7=t1;
t8=C_i_caddr(t2);
t1=t7;
t2=t8;
c=3;
goto loop;}
else{
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}
else{
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep((C_truep(C_eqp(t2,lf[30]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[31]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[32]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[33]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[34]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[35]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))?C_SCHEME_TRUE:C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8116(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 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(106,c,8)))){
C_save_and_reclaim((void *)f_8116,c,av);}
a=C_alloc(106);
t8=C_mutate(&lf[18] /* (set! chicken.compiler.scrutinizer#*complain?* ...) */,t4);
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_END_OF_LIST;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_SCHEME_FALSE;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_fix(0);
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_fix(0);
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_fix(0);
t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp);
t23=C_SCHEME_UNDEFINED;
t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp);
t25=C_SCHEME_UNDEFINED;
t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp);
t27=C_SCHEME_UNDEFINED;
t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp);
t29=C_SCHEME_UNDEFINED;
t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp);
t31=C_SCHEME_UNDEFINED;
t32=(*a=C_VECTOR_TYPE|1,a[1]=t31,tmp=(C_word)a,a+=2,tmp);
t33=C_SCHEME_UNDEFINED;
t34=(*a=C_VECTOR_TYPE|1,a[1]=t33,tmp=(C_word)a,a+=2,tmp);
t35=C_SCHEME_UNDEFINED;
t36=(*a=C_VECTOR_TYPE|1,a[1]=t35,tmp=(C_word)a,a+=2,tmp);
t37=C_SCHEME_UNDEFINED;
t38=(*a=C_VECTOR_TYPE|1,a[1]=t37,tmp=(C_word)a,a+=2,tmp);
t39=C_SCHEME_UNDEFINED;
t40=(*a=C_VECTOR_TYPE|1,a[1]=t39,tmp=(C_word)a,a+=2,tmp);
t41=C_SCHEME_UNDEFINED;
t42=(*a=C_VECTOR_TYPE|1,a[1]=t41,tmp=(C_word)a,a+=2,tmp);
t43=C_SCHEME_UNDEFINED;
t44=(*a=C_VECTOR_TYPE|1,a[1]=t43,tmp=(C_word)a,a+=2,tmp);
t45=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8153,a[2]=t24,tmp=(C_word)a,a+=3,tmp));
t46=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8445,a[2]=t10,tmp=(C_word)a,a+=3,tmp));
t47=C_set_block_item(t28,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8476,a[2]=t6,a[3]=t3,a[4]=t26,tmp=(C_word)a,a+=5,tmp));
t48=C_set_block_item(t30,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8539,a[2]=t30,tmp=(C_word)a,a+=3,tmp));
t49=C_set_block_item(t32,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8601,a[2]=t30,tmp=(C_word)a,a+=3,tmp));
t50=C_set_block_item(t34,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8625,tmp=(C_word)a,a+=2,tmp));
t51=C_set_block_item(t36,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8691,a[2]=t22,a[3]=t5,a[4]=t14,tmp=(C_word)a,a+=5,tmp));
t52=C_fix(0);
t53=(*a=C_VECTOR_TYPE|1,a[1]=t52,tmp=(C_word)a,a+=2,tmp);
t54=C_set_block_item(t38,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9325,a[2]=t53,tmp=(C_word)a,a+=3,tmp));
t55=C_set_block_item(t40,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9330,a[2]=t10,a[3]=t12,tmp=(C_word)a,a+=4,tmp));
t56=C_set_block_item(t42,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9363,a[2]=t6,tmp=(C_word)a,a+=3,tmp));
t57=C_set_block_item(t44,0,(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_9459,a[2]=t24,a[3]=t28,a[4]=t38,a[5]=t14,a[6]=t5,a[7]=t16,a[8]=t44,a[9]=t40,a[10]=t10,a[11]=t32,a[12]=t34,a[13]=t12,a[14]=t3,a[15]=t42,a[16]=t18,a[17]=t6,a[18]=t7,a[19]=t20,a[20]=t36,a[21]=t26,tmp=(C_word)a,a+=22,tmp));
t58=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11513,a[2]=t1,a[3]=t20,a[4]=t18,a[5]=t16,a[6]=t22,tmp=(C_word)a,a+=7,tmp);
t59=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11629,a[2]=t38,a[3]=t44,a[4]=t58,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:801: chicken.compiler.support#node-subexpressions */
t60=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t60;
av2[1]=t59;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t60+1)))(3,av2);}}

/* constant-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_8153(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_8153,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_stringp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[37];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8166,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:197: chicken.keyword#keyword? */
t4=*((C_word*)lf[56]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k8164 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8166(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8166,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[38];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[39];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8178,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);
/* scrutinizer.scm:200: chicken.compiler.support#big-fixnum? */
t3=*((C_word*)lf[55]+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);}}}}

/* k8176 in k8164 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8178(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8178,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8181,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;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
f_8181(2,av2);}}
else{
/* scrutinizer.scm:200: chicken.compiler.support#small-bignum? */
t3=*((C_word*)lf[54]+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);}}}

/* k8179 in k8176 in k8164 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8181(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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,3)))){
C_save_and_reclaim((void *)f_8181,c,av);}
a=C_alloc(16);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[40];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_fixnump(((C_word*)t0)[3]))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[32];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_bignump(((C_word*)t0)[3]))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[41];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_flonump(((C_word*)t0)[3]))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[42];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_ratnump(((C_word*)t0)[3]))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[43];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_cplxnump(((C_word*)t0)[3]))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[44];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_booleanp(((C_word*)t0)[3]))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(((C_word*)t0)[3])?lf[45]:lf[46]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_nullp(((C_word*)t0)[3]))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[31];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_listp(((C_word*)t0)[3]))){
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|2,a[1]=(C_word)f_8242,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8244,a[2]=t4,a[3]=t8,a[4]=((C_word*)t0)[4],a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t10=((C_word*)t8)[1];
f_8244(t10,t6,((C_word*)t0)[3]);}
else{
if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8293,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:213: constant-result */
t3=((C_word*)((C_word*)t0)[4])[1];
f_8153(t3,t2,C_u_i_car(((C_word*)t0)[3]));}
else{
if(C_truep(C_eofp(((C_word*)t0)[3]))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[30];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_vectorp(((C_word*)t0)[3]))){
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_8327,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=t5,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:217: scheme#vector->list */
t7=*((C_word*)lf[51]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t2=C_immp(((C_word*)t0)[3]);
t3=C_i_not(t2);
t4=(C_truep(t3)?C_structurep(((C_word*)t0)[3]):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=C_slot(((C_word*)t0)[3],C_fix(0));
t6=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_a_i_list(&a,2,lf[52],t5);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=C_charp(((C_word*)t0)[3]);
t6=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t6;
av2[1]=(C_truep(t5)?lf[33]:lf[53]);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}}}}}}}}}}}

/* k8240 in k8179 in k8176 in k8164 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8242(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_8242,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,lf[47],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop808 in k8179 in k8176 in k8164 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_8244(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_8244,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_8269,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);
/* scrutinizer.scm:210: g814 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_8153(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);}}}

/* k8267 in map-loop808 in k8179 in k8176 in k8164 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8269(C_word c,C_word *av){
C_word tmp;
C_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_8269,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_8244(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k8291 in k8179 in k8176 in k8164 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8293(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_8293,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8297,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:213: constant-result */
t3=((C_word*)((C_word*)t0)[3])[1];
f_8153(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k8295 in k8291 in k8179 in k8176 in k8164 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8297(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8297,c,av);}
a=C_alloc(9);
t2=C_a_i_list(&a,3,lf[48],((C_word*)t0)[2],t1);
/* scrutinizer.scm:212: simplify-type */
f_13487(((C_word*)t0)[3],t2);}

/* k8325 in k8179 in k8176 in k8164 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8327(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word 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_8327,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8330,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|5,a[1]=(C_word)f_8332,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_8332(t6,t2,t1);}

/* k8328 in k8325 in k8179 in k8176 in k8164 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8330(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8330,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,lf[50],t1);
/* scrutinizer.scm:216: simplify-type */
f_13487(((C_word*)t0)[2],t2);}

/* map-loop840 in k8325 in k8179 in k8176 in k8164 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_8332(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_8332,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_8357,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);
/* scrutinizer.scm:217: g846 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_8153(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);}}}

/* k8355 in map-loop840 in k8325 in k8179 in k8176 in k8164 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8357(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8357,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_8332(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k8400 in k8490 in k8478 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8402(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_8402,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8406,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);
/* scrutinizer.scm:224: g877 */
t3=t2;
f_8406(t3,((C_word*)t0)[5],t1);}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[63];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* g877 in k8400 in k8490 in k8478 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_8406(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){
C_save_and_reclaim_args((void *)trf_8406,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_eqp(t2,lf[59]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8416,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:228: r-deprecated-identifier */
f_22834(t4,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_END_OF_LIST);}
else{
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_eqp(C_u_i_car(t2),lf[59]):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8425,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t7=C_i_cadr(t2);
/* scrutinizer.scm:231: r-deprecated-identifier */
f_22834(t6,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_a_i_list(&a,1,t7));}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_a_i_list1(&a,1,t2);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}

/* k8414 in g877 in k8400 in k8490 in k8478 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8416(C_word c,C_word *av){
C_word tmp;
C_word 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_8416,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[60];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8423 in g877 in k8400 in k8490 in k8478 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8425(C_word c,C_word *av){
C_word tmp;
C_word 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_8425,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[62];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* blist-type in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_8445(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_8445,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8457,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=((C_word*)((C_word*)t0)[2])[1];
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7870,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t7=(
  f_7870(t6,t5)
);
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=(C_truep(t7)?C_i_cdr(t7):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}

/* a8456 in blist-type in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static C_word C_fcall f_8457(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;{}
t2=C_i_caar(t1);
t3=C_eqp(((C_word*)t0)[2],t2);
if(C_truep(t3)){
t4=C_u_i_car(t1);
return(C_i_memq(C_u_i_cdr(t4),((C_word*)t0)[3]));}
else{
return(C_SCHEME_FALSE);}}

/* variable-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_8476(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_8476,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(9);
t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8480,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:245: blist-type */
t8=((C_word*)((C_word*)t0)[4])[1];
f_8445(t8,t7,t2,t6);}

/* k8478 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8480(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_8480,c,av);}
a=C_alloc(11);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list1(&a,1,t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8492,a[2]=((C_word*)t0)[2],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_not(((C_word*)t0)[7]))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8530,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:247: chicken.compiler.support#db-get */
t4=*((C_word*)lf[67]+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)[3];
av2[4]=lf[68];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t3=t2;
f_8492(t3,C_SCHEME_FALSE);}}}

/* k8490 in k8478 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_8492(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_8492,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=lf[57];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_i_assq(((C_word*)t0)[3],((C_word*)t0)[4]);
if(C_truep(t2)){
t3=C_i_cdr(t2);
t4=C_eqp(lf[35],t3);
if(C_truep(t4)){
t5=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[58];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_u_i_cdr(t2);
t6=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t6;
av2[1]=C_a_i_list1(&a,1,t5);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8402,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:224: chicken.compiler.support#variable-mark */
t4=*((C_word*)lf[64]+1);{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[65];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}}

/* k8528 in k8478 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8530(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8530,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8537,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:248: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+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[66];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=((C_word*)t0)[2];
f_8492(t2,C_SCHEME_FALSE);}}

/* k8535 in k8528 in k8478 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8537(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8537,c,av);}
t2=((C_word*)t0)[2];
f_8492(t2,C_i_not(t1));}

/* always-true1 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
av[0]=t0;
av[1]=t1;
av[2]=t2;
C_save_and_reclaim((void *)f_8539,c,av);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_car(t2);
t4=C_eqp(t3,lf[28]);
if(C_truep(t4)){
/* scrutinizer.scm:264: every */
f_7109(t1,((C_word*)((C_word*)t0)[2])[1],C_u_i_cdr(t2));}
else{
t5=C_eqp(t3,lf[69]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8571,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:265: always-true1 */
t8=t6;
t9=C_i_cadr(t2);
t1=t8;
t2=t9;
c=3;
goto loop;}
else{
t6=C_eqp(t3,lf[29]);
if(C_truep(t6)){
/* scrutinizer.scm:266: always-true1 */
t8=t1;
t9=C_i_caddr(t2);
t1=t8;
t2=t9;
c=3;
goto loop;}
else{
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}}
else{
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep((C_truep(C_eqp(t2,lf[53]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[34]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[46]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[35]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[70]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))?C_SCHEME_FALSE:C_SCHEME_TRUE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k8569 in always-true1 in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8571(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8571,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);}}

/* always-true in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_8601(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(7,0,2)))){
C_save_and_reclaim_args((void *)trf_8601,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(7);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8605,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t5,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:272: always-true1 */
t7=((C_word*)((C_word*)t0)[2])[1];{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t4;
f_8539(3,av2);}}

/* k8603 in always-true in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8605(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,8)))){
C_save_and_reclaim((void *)f_8605,c,av);}
a=C_alloc(16);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8611,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_a_i_list2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22543,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:2825: scheme#string-append */
t5=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[77];
av2[3]=lf[78];
av2[4]=lf[79];
av2[5]=lf[80];
av2[6]=lf[81];
av2[7]=lf[82];
av2[8]=lf[83];
((C_proc)(void*)(*((C_word*)t5+1)))(9,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k8609 in k8603 in always-true in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8611(C_word c,C_word *av){
C_word tmp;
C_word 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_8611,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8621 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8623(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8623,c,av);}
t2=((C_word*)t0)[2];
f_9626(t2,((C_word*)t0)[3]);}

/* single in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_8625(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_8625,3,t1,t2,t3);}
a=C_alloc(4);
t4=C_eqp(lf[53],t2);
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[53];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_i_length(t2);
t6=C_eqp(C_fix(1),t5);
if(C_truep(t6)){
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(t5,C_fix(0));
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8653,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:287: r-value-count-mismatch */
t9=t3;{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8656,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:290: r-value-count-mismatch */
t9=t3;{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}}

/* k8651 in single in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8653(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8653,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[35];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8654 in single in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8656(C_word c,C_word *av){
C_word tmp;
C_word 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_8656,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8667 in k9059 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_8669(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8669,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8672,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:297: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+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[162];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k8670 in k8667 in k9059 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_8672(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_8672,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8675,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(C_truep(((C_word*)t0)[3])?((C_word*)t0)[3]:C_SCHEME_END_OF_LIST);
if(C_truep(t1)){
/* scrutinizer.scm:298: scheme#append */
t4=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=t3;
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
/* scrutinizer.scm:298: scheme#append */
t4=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=t3;
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k8673 in k8670 in k8667 in k9059 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_8675(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8675,c,av);}
t2=C_i_pairp(t1);
t3=((C_word*)t0)[2];
f_9084(t3,(C_truep(t2)?t1:C_SCHEME_FALSE));}

/* call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_8691(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){
C_save_and_reclaim_args((void *)trf_8691,5,t0,t1,t2,t3,t4);}
a=C_alloc(21);
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=lf[25];
t10=C_i_check_list_2(t3,lf[6]);
t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8701,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9291,a[2]=t7,a[3]=t13,a[4]=t8,tmp=(C_word)a,a+=5,tmp));
t15=((C_word*)t13)[1];
f_9291(t15,t11,t3);}

/* k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8701(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_8701,c,av);}
a=C_alloc(11);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8707,a[2]=((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]=t1,a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp);
/* scrutinizer.scm:304: procedure-type? */
t4=lf[121];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
f_15103(3,av2);}}

/* k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8707(C_word c,C_word *av){
C_word tmp;
C_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_8707,c,av);}
a=C_alloc(16);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_u_i_length(t2);
t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9289,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t3,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]=t1,tmp=(C_word)a,a+=13,tmp);
/* scrutinizer.scm:306: make-list */
f_7934(t4,t3,C_a_i_list(&a,1,lf[53]));}

/* k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8717(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_8717,c,av);}
a=C_alloc(22);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8726,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t3,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=t5,a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],tmp=(C_word)a,a+=15,tmp);
if(C_truep(C_i_not(((C_word*)t0)[13]))){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9285,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:310: match-types */
t8=*((C_word*)lf[170]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[6];
av2[4]=((C_word*)t3)[1];
((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}
else{
t7=t6;
f_8726(t7,C_SCHEME_FALSE);}}

/* k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_8726(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,6)))){
C_save_and_reclaim_args((void *)trf_8726,2,t0,t1);}
a=C_alloc(18);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8729,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8736,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:312: resolve */
t4=lf[118];{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
av2[3]=((C_word*)((C_word*)t0)[7])[1];
f_16269(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8747,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8753,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[14],tmp=(C_word)a,a+=13,tmp);
/* scrutinizer.scm:315: ##sys#call-with-values */{
C_word av2[4];
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}}

/* k8727 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8729(C_word c,C_word *av){
C_word tmp;
C_word 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_8729,c,av);}
/* scrutinizer.scm:313: 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]=lf[53];
av2[3]=C_SCHEME_FALSE;
C_values(4,av2);}}

/* k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8736(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_8736,c,av);}
a=C_alloc(7);
t2=C_u_i_car(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8742,a[2]=t2,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);
/* scrutinizer.scm:312: resolve */
t4=lf[118];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)((C_word*)t0)[7])[1];
f_16269(4,av2);}}

/* k8740 in k8734 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8742(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_8742,c,av);}
a=C_alloc(14);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21740,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21785,a[2]=((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]=t3,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:2550: variable-node-name */
t6=((C_word*)t3)[1];
f_21740(t6,t5,((C_word*)t0)[2]);}

/* a8746 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8747(C_word c,C_word *av){
C_word tmp;
C_word 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_8747,c,av);}
/* scrutinizer.scm:316: procedure-argument-types */
f_15320(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1],C_SCHEME_END_OF_LIST);}

/* a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8753(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(30,c,2)))){
C_save_and_reclaim((void *)f_8753,c,av);}
a=C_alloc(30);
t6=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_8757,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]=t3,a[14]=((C_word*)t0)[12],a[15]=t2,tmp=(C_word)a,a+=16,tmp);
if(C_truep(t4)){
t7=t6;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_UNDEFINED;
f_8757(2,av2);}}
else{
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21846,a[2]=t8,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[11],a[5]=t5,a[6]=t6,a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f27992,a[2]=t9,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2521: chicken.compiler.support#node-subexpressions */
t11=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t11;
av2[1]=t10;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}}

/* k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8757(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,6)))){
C_save_and_reclaim((void *)f_8757,c,av);}
a=C_alloc(24);
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8760,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp);
t3=C_i_cdr(((C_word*)t0)[10]);
t4=C_i_cdr(((C_word*)t0)[9]);
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_9213,a[2]=t6,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp));
t8=((C_word*)t6)[1];
f_9213(t8,t2,t3,t4,((C_word*)t0)[15],C_fix(1));}

/* k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8760(C_word c,C_word *av){
C_word tmp;
C_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_8760,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8763,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp);
t3=(
/* scrutinizer.scm:334: noreturn-procedure-type? */
  f_15744(((C_word*)t0)[8])
);
if(C_truep(t3)){
t4=C_set_block_item(((C_word*)t0)[14],0,C_SCHEME_TRUE);
t5=t2;
f_8763(t5,t4);}
else{
t4=t2;
f_8763(t4,C_SCHEME_UNDEFINED);}}

/* k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_8763(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(21,0,3)))){
C_save_and_reclaim_args((void *)trf_8763,2,t0,t1);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8766,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
t3=C_u_i_cdr(((C_word*)t0)[10]);
t4=((C_word*)((C_word*)t0)[4])[1];
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15543,a[2]=((C_word*)t0)[13],a[3]=t3,a[4]=t4,a[5]=t6,tmp=(C_word)a,a+=6,tmp));
/* scrutinizer.scm:1472: loop1 */
t8=((C_word*)t6)[1];
f_15543(t8,t2,((C_word*)t0)[8]);}

/* k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_8766(C_word c,C_word *av){
C_word tmp;
C_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_8766,c,av);}
a=C_alloc(16);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8769,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
/* scrutinizer.scm:337: procedure-name */
f_15155(t4,((C_word*)t0)[8]);}

/* k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_8769(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
C_save_and_reclaim((void *)f_8769,c,av);}
a=C_alloc(23);
t2=lf[24];
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8772,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
if(C_truep(t1)){
t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8869,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=t2,a[12]=((C_word*)t0)[5],tmp=(C_word)a,a+=13,tmp);
t5=C_eqp(C_fix(1),((C_word*)t0)[13]);
if(C_truep(t5)){
/* scrutinizer.scm:341: chicken.compiler.support#variable-mark */
t6=*((C_word*)lf[64]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t4;
av2[2]=t1;
av2[3]=lf[165];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_8869(2,av2);}}}
else{
t4=t3;
f_8772(t4,C_SCHEME_UNDEFINED);}}

/* k8770 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_fcall f_8772(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,2)))){
C_save_and_reclaim_args((void *)trf_8772,2,t0,t1);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8775,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|4,a[1]=(C_word)f_8838,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t0)[8])){
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[3])[1]))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8859,a[2]=t3,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:401: procedure-type? */
t5=lf[121];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[9];
f_15103(3,av2);}}
else{
t4=t3;
f_8838(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_8838(t4,C_SCHEME_FALSE);}}

/* k8773 in k8770 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_8775(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){
C_save_and_reclaim_args((void *)trf_8775,2,t0,t1);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8778,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_eqp(lf[53],((C_word*)((C_word*)t0)[4])[1]);
if(C_truep(t3)){
t4=((C_word*)((C_word*)t0)[4])[1];
/* scrutinizer.scm:407: scheme#values */{
C_word av2[4];
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=t4;
av2[3]=((C_word*)((C_word*)t0)[3])[1];
C_values(4,av2);}}
else{
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_8791,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp);
t9=((C_word*)((C_word*)t0)[4])[1];
t10=C_i_check_list_2(t9,lf[6]);
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_8803,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_8803(t14,t2,t9);}}

/* k8776 in k8773 in k8770 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_8778(C_word c,C_word *av){
C_word tmp;
C_word 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_8778,c,av);}
/* scrutinizer.scm:407: 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*)((C_word*)t0)[3])[1];
C_values(4,av2);}}

/* g1131 in k8773 in k8770 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_fcall f_8791(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_8791,3,t0,t1,t2);}
t3=lf[118];
/* scrutinizer.scm:405: g1148 */
t4=lf[118];{
C_word av2[4];
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)((C_word*)t0)[2])[1];
f_16269(4,av2);}}

/* map-loop1125 in k8773 in k8770 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_fcall f_8803(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_8803,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_8828,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);
/* scrutinizer.scm:405: g1131 */
t4=((C_word*)t0)[4];
f_8791(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);}}}

/* k8826 in map-loop1125 in k8773 in k8770 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_8828(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8828,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_8803(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k8836 in k8770 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_8838(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_8838,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8847,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:403: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[26]+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)[3];
f_8775(t2,C_SCHEME_UNDEFINED);}}

/* k8845 in k8836 in k8770 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_8847(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_8847,c,av);}
a=C_alloc(29);
t2=C_i_set_car(t1,C_SCHEME_TRUE);
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=((C_word*)t0)[3];
f_8775(t5,t4);}

/* k8857 in k8770 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_8859(C_word c,C_word *av){
C_word tmp;
C_word t0=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_8859,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8866,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:402: chicken.compiler.support#node-class */
t3=*((C_word*)lf[88]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[2];
f_8838(t2,C_SCHEME_FALSE);}}

/* k8864 in k8857 in k8770 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_8866(C_word c,C_word *av){
C_word tmp;
C_word 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_8866,c,av);}
t2=((C_word*)t0)[2];
f_8838(t2,C_eqp(lf[120],t1));}

/* k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_8869(C_word c,C_word *av){
C_word tmp;
C_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(20,c,3)))){
C_save_and_reclaim((void *)f_8869,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8872,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|11,a[1]=(C_word)f_8906,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],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);
/* scrutinizer.scm:340: g1047 */
t4=t3;
f_8906(t4,t2,t1);}
else{
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9061,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[8],a[4]=t2,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[4],tmp=(C_word)a,a+=12,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9182,a[2]=t3,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:364: chicken.compiler.support#node-subexpressions */
t5=*((C_word*)lf[86]+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);}}}

/* k8870 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_8872(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_8872,c,av);}
a=C_alloc(29);
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t2=C_i_assoc(((C_word*)((C_word*)t0)[2])[1],lf[23]);
if(C_truep(t2)){
t3=C_i_cdr(t2);
t4=C_s_a_i_plus(&a,2,t3,C_fix(1));
t5=((C_word*)t0)[3];
f_8772(t5,C_i_set_cdr(t2,t4));}
else{
t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1));
t4=C_a_i_cons(&a,2,t3,lf[23]);
t5=C_mutate(&lf[23] /* (set! chicken.compiler.scrutinizer#specialization-statistics ...) */,t4);
t6=((C_word*)t0)[3];
f_8772(t6,t5);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];
f_8772(t3,t2);}}

/* g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_fcall f_8906(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(17,0,4)))){
C_save_and_reclaim_args((void *)trf_8906,3,t0,t1,t2);}
a=C_alloc(17);
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8913,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=t1,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],tmp=(C_word)a,a+=14,tmp);
t4=C_a_i_list1(&a,1,t2);
/* scrutinizer.scm:343: match-argument-types */
f_13415(t3,t4,C_i_cdr(((C_word*)t0)[8]),((C_word*)((C_word*)t0)[11])[1]);}

/* k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_8913(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
C_save_and_reclaim((void *)f_8913,c,av);}
a=C_alloc(23);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8916,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_cadr(((C_word*)t0)[10]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22468,a[2]=t5,a[3]=((C_word*)t0)[9],a[4]=t2,a[5]=((C_word*)t0)[11],a[6]=t3,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f27968,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2521: chicken.compiler.support#node-subexpressions */
t8=*((C_word*)lf[86]+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)[9];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8973,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[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);
/* scrutinizer.scm:353: trail-restore */
f_16226(t2,((C_word*)t0)[12],((C_word*)((C_word*)t0)[13])[1]);}}

/* k8914 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_8916(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_8916,c,av);}
a=C_alloc(15);
if(C_truep(((C_word*)t0)[2])){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8922,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
t3=C_i_cdr(((C_word*)t0)[8]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8951,a[2]=t2,a[3]=((C_word*)t0)[9],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_a_i_list(&a,1,lf[127]);
/* scrutinizer.scm:349: ##sys#list->vector */
t6=*((C_word*)lf[126]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t2=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k8920 in k8914 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_8922(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_8922,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[122]);
t3=C_a_i_list2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
t4=C_mutate(((C_word *)((C_word*)t0)[5])+1,t3);
t5=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k8949 in k8914 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_8951(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_8951,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8955,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t3=C_a_i_list(&a,1,C_fix(1));
/* scrutinizer.scm:349: ##sys#list->vector */
t4=*((C_word*)lf[126]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k8953 in k8949 in k8914 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in ... */
static void C_ccall f_8955(C_word c,C_word *av){
C_word tmp;
C_word t0=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(24,c,4)))){
C_save_and_reclaim((void *)f_8955,c,av);}
a=C_alloc(24);
t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_list(&a,1,t2);
t4=C_a_i_list(&a,2,lf[123],C_SCHEME_TRUE);
t5=C_a_i_list(&a,3,lf[124],t3,t4);
/* scrutinizer.scm:347: specialize-node! */
f_17484(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t5);}

/* k8971 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_ccall f_8973(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_8973,c,av);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8976,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
t3=C_a_i_list(&a,2,lf[69],((C_word*)t0)[4]);
t4=C_a_i_list1(&a,1,t3);
/* scrutinizer.scm:354: match-argument-types */
f_13415(t2,t4,C_u_i_cdr(((C_word*)t0)[9]),((C_word*)((C_word*)t0)[12])[1]);}

/* k8974 in k8971 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in ... */
static void C_ccall f_8976(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(22,c,3)))){
C_save_and_reclaim((void *)f_8976,c,av);}
a=C_alloc(22);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8979,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_i_cadr(((C_word*)t0)[9]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22502,a[2]=t5,a[3]=((C_word*)t0)[8],a[4]=t2,a[5]=((C_word*)t0)[10],a[6]=t3,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f27973,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:2521: chicken.compiler.support#node-subexpressions */
t8=*((C_word*)lf[86]+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{
/* scrutinizer.scm:363: trail-restore */
f_16226(((C_word*)t0)[6],((C_word*)t0)[11],((C_word*)((C_word*)t0)[12])[1]);}}

/* k8977 in k8974 in k8971 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in ... */
static void C_ccall f_8979(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_8979,c,av);}
a=C_alloc(14);
if(C_truep(((C_word*)t0)[2])){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8985,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);
t3=C_i_cdr(((C_word*)t0)[7]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9018,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_a_i_list(&a,1,lf[127]);
/* scrutinizer.scm:360: ##sys#list->vector */
t6=*((C_word*)lf[126]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k8983 in k8977 in k8974 in k8971 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in ... */
static void C_ccall f_8985(C_word c,C_word *av){
C_word tmp;
C_word t0=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,1)))){
C_save_and_reclaim((void *)f_8985,c,av);}
a=C_alloc(12);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[143]);
t3=C_a_i_list(&a,2,lf[69],((C_word*)t0)[3]);
t4=C_a_i_list2(&a,2,((C_word*)t0)[3],t3);
t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,t4);
t6=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* k9016 in k8977 in k8974 in k8971 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in ... */
static void C_ccall f_9018(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_9018,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9022,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t3=C_a_i_list(&a,1,C_fix(1));
/* scrutinizer.scm:360: ##sys#list->vector */
t4=*((C_word*)lf[126]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k9020 in k9016 in k8977 in k8974 in k8971 in k8911 in g1047 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in ... */
static void C_ccall f_9022(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){
C_save_and_reclaim((void *)f_9022,c,av);}
a=C_alloc(24);
t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_list(&a,1,t2);
t4=C_a_i_list(&a,2,lf[123],C_SCHEME_FALSE);
t5=C_a_i_list(&a,3,lf[124],t3,t4);
/* scrutinizer.scm:358: specialize-node! */
f_17484(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t5);}

/* k9059 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_9061(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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,3)))){
C_save_and_reclaim((void *)f_9061,c,av);}
a=C_alloc(15);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9065,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:340: g1078 */
t3=t2;
f_9065(t3,((C_word*)t0)[4],t1);}
else{
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9084,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[4],tmp=(C_word)a,a+=11,tmp);
if(C_truep(((C_word*)t0)[11])){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8669,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:296: chicken.compiler.support#variable-mark */
t4=*((C_word*)lf[64]+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]=lf[163];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t3=t2;
f_9084(t3,C_SCHEME_FALSE);}}}

/* g1078 in k9059 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_fcall f_9065(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_9065,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[53]);
t4=C_i_car(t2);
t5=C_a_i_list2(&a,2,lf[123],t4);
/* scrutinizer.scm:370: mutate-node! */
f_17304(t1,((C_word*)t0)[3],t5);}

/* k9082 in k9059 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_fcall f_9084(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_9084,2,t0,t1);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9088,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* scrutinizer.scm:340: g1084 */
t3=t2;
f_9088(t3,((C_word*)t0)[10],t1);}
else{
t2=((C_word*)t0)[10];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_8872(2,av2);}}}

/* g1084 in k9082 in k9059 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in ... */
static void C_fcall f_9088(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(13,0,3)))){
C_save_and_reclaim_args((void *)trf_9088,3,t0,t1,t2);}
a=C_alloc(13);
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|10,a[1]=(C_word)f_9094,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp));
t6=((C_word*)t4)[1];
f_9094(t6,t1,t2);}

/* loop in g1084 in k9082 in k9059 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in ... */
static void C_fcall f_9094(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(19,0,4)))){
C_save_and_reclaim_args((void *)trf_9094,3,t0,t1,t2);}
a=C_alloc(19);
if(C_truep(C_i_pairp(t2))){
t3=C_u_i_car(t2);
t4=C_i_car(t3);
t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_9108,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]=t1,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=t2,a[12]=((C_word*)t0)[9],a[13]=t4,a[14]=((C_word*)t0)[10],tmp=(C_word)a,a+=15,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9172,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:378: append-map */
f_6939(t6,lf[161],t4,C_SCHEME_END_OF_LIST);}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9106 in loop in g1084 in k9082 in k9059 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in ... */
static void C_ccall f_9108(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_9108,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9114,a[2]=((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);
/* scrutinizer.scm:380: match-argument-types */
f_13415(t2,((C_word*)t0)[13],C_i_cdr(((C_word*)t0)[14]),t1);}

/* k9112 in k9106 in loop in g1084 in k9082 in k9059 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in ... */
static void C_ccall f_9114(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_9114,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,t3);
t5=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)t0)[6]);
t6=C_i_cddr(((C_word*)t0)[2]);
t7=C_i_pairp(t6);
t8=(C_truep(t7)?C_i_cadr(((C_word*)t0)[2]):C_SCHEME_FALSE);
t9=(C_truep(t8)?C_i_caddr(((C_word*)t0)[2]):C_i_cadr(((C_word*)t0)[2]));
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9128,a[2]=t8,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:388: specialize-node! */
f_17484(t10,((C_word*)t0)[9],C_i_cdr(((C_word*)t0)[10]),t9);}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9159,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[12],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:391: trail-restore */
f_16226(t2,((C_word*)t0)[13],((C_word*)t0)[6]);}}

/* k9126 in k9112 in k9106 in loop in g1084 in k9082 in k9059 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in ... */
static void C_ccall f_9128(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9128,c,av);}
if(C_truep(((C_word*)t0)[2])){
t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)t0)[2]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9157 in k9112 in k9106 in loop in g1084 in k9082 in k9059 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in ... */
static void C_ccall f_9159(C_word c,C_word *av){
C_word tmp;
C_word 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_9159,c,av);}
/* scrutinizer.scm:392: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_9094(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* k9170 in loop in g1084 in k9082 in k9059 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in ... */
static void C_ccall f_9172(C_word c,C_word *av){
C_word tmp;
C_word 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_9172,c,av);}
/* scrutinizer.scm:377: scheme#append */
t2=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)((C_word*)t0)[3])[1];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k9180 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in ... */
static void C_ccall f_9182(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){
C_save_and_reclaim((void *)f_9182,c,av);}
a=C_alloc(2);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9184,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:364: chicken.compiler.support#maybe-constant-fold-call */
t3=*((C_word*)lf[164]+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]=t1;
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* a9183 in k9180 in k8867 in k8767 in k8764 in k8761 in k8758 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in ... */
static void C_ccall f_9184(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_9184,c,av);}
a=C_alloc(3);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=(C_truep(t2)?C_a_i_cons(&a,2,t3,t2):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* doloop1026 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9213(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){
C_save_and_reclaim_args((void *)trf_9213,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(19);
t6=C_i_nullp(t2);
t7=(C_truep(t6)?t6:C_i_nullp(t4));
if(C_truep(t7)){
t8=C_SCHEME_UNDEFINED;
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9226,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t5,a[6]=((C_word*)t0)[2],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9242,a[2]=t8,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t5,a[7]=((C_word*)t0)[5],a[8]=t2,a[9]=((C_word*)t0)[6],a[10]=t4,tmp=(C_word)a,a+=11,tmp);
/* scrutinizer.scm:324: match-types */
t10=*((C_word*)lf[170]+1);{
C_word av2[5];
av2[0]=t10;
av2[1]=t9;
av2[2]=C_i_car(t4);
av2[3]=C_i_car(t2);
av2[4]=((C_word*)((C_word*)t0)[6])[1];
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}

/* k9224 in doloop1026 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9226(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,5)))){
C_save_and_reclaim((void *)f_9226,c,av);}
a=C_alloc(29);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_i_cdr(((C_word*)t0)[3]);
t4=C_u_i_cdr(((C_word*)t0)[4]);
t5=C_s_a_i_plus(&a,2,((C_word*)t0)[5],C_fix(1));
t6=((C_word*)((C_word*)t0)[6])[1];
f_9213(t6,((C_word*)t0)[7],t2,t3,t4,t5);}

/* k9240 in doloop1026 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9242(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_9242,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_9226(2,av2);}}
else{
t2=C_i_car(((C_word*)t0)[3]);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9253,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]=t2,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);
/* scrutinizer.scm:331: resolve */
t4=lf[118];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_car(((C_word*)t0)[10]);
av2[3]=((C_word*)((C_word*)t0)[9])[1];
f_16269(4,av2);}}}

/* k9251 in k9240 in doloop1026 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_9253,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9257,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:332: resolve */
t3=lf[118];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_car(((C_word*)t0)[8]);
av2[3]=((C_word*)((C_word*)t0)[9])[1];
f_16269(4,av2);}}

/* k9255 in k9251 in k9240 in doloop1026 in k8755 in a8752 in k8724 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_9257(C_word c,C_word *av){
C_word tmp;
C_word 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_9257,c,av);}
/* scrutinizer.scm:328: r-proc-call-argument-type-mismatch */
f_21890(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1,((C_word*)t0)[8]);}

/* k9283 in k8715 in k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9285(C_word c,C_word *av){
C_word tmp;
C_word 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_9285,c,av);}
t2=((C_word*)t0)[2];
f_8726(t2,C_i_not(t1));}

/* k9287 in k8705 in k8699 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9289(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){
C_save_and_reclaim((void *)f_9289,c,av);}
a=C_alloc(23);
t2=C_a_i_list(&a,3,lf[84],t1,lf[53]);
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8717,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],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);
/* scrutinizer.scm:307: append-map */
f_6939(t3,lf[161],((C_word*)t0)[10],C_SCHEME_END_OF_LIST);}

/* map-loop970 in call-result in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9291(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9291,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f26375,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);
/* scrutinizer.scm:166: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[26]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+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);}}}

/* tag in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static C_word C_fcall f_9325(C_word *a,C_word t0){
C_word tmp;
C_word t1;
C_word t2;
C_word t3;
C_stack_overflow_check;{}
t1=((C_word*)((C_word*)t0)[2])[1];
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t1,C_fix(1)));
return(((C_word*)((C_word*)t0)[2])[1]);}

/* add-to-blist in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9330(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_9330,5,t0,t1,t2,t3,t4);}
a=C_alloc(9);
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_9336,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t6,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp));
t8=((C_word*)t6)[1];
f_9336(t8,t1,t2);}

/* loop in add-to-blist in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9336(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,5)))){
C_save_and_reclaim_args((void *)trf_9336,3,t0,t1,t2);}
a=C_alloc(10);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9341,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
t4=C_a_i_cons(&a,2,t2,((C_word*)t0)[5]);
/* scrutinizer.scm:417: chicken.base#alist-update! */
t5=*((C_word*)lf[186]+1);{
C_word av2[6];
av2[0]=t5;
av2[1]=t3;
av2[2]=t4;
av2[3]=((C_word*)t0)[6];
av2[4]=((C_word*)((C_word*)t0)[2])[1];
av2[5]=*((C_word*)lf[187]+1);
((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}

/* k9339 in loop in add-to-blist in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9341(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9341,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=C_i_assq(((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);
if(C_truep(t3)){
/* scrutinizer.scm:421: loop */
t4=((C_word*)((C_word*)t0)[5])[1];
f_9336(t4,((C_word*)t0)[6],C_i_cdr(t3));}
else{
t4=C_SCHEME_UNDEFINED;
t5=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9363(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_9363,4,t0,t1,t2,t3);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9370,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(t2)){
if(C_truep(((C_word*)t0)[2])){
/* scrutinizer.scm:425: chicken.compiler.support#variable-mark */
t5=*((C_word*)lf[64]+1);{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[66];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_9370(2,av2);}}}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_9370(2,av2);}}}

/* k9368 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9370(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9370,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9373,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* scrutinizer.scm:426: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[64]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[65];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
/* scrutinizer.scm:432: make-list */
f_7934(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,1,lf[53]));}}

/* k9371 in k9368 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9373(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9373,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9376,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:427: type-typeenv */
t3=lf[161];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
f_15894(3,av2);}}

/* k9374 in k9371 in k9368 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9376(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_9376,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9382,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);
/* scrutinizer.scm:428: procedure-type? */
t3=lf[121];{
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];
f_15103(3,av2);}}

/* k9380 in k9374 in k9371 in k9368 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9382(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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,3)))){
C_save_and_reclaim((void *)f_9382,c,av);}
a=C_alloc(20);
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|2,a[1]=(C_word)f_9386,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9393,a[2]=t4,a[3]=t6,a[4]=t5,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9435,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t9=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9441,tmp=(C_word)a,a+=2,tmp);
/* scrutinizer.scm:430: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t7;
av2[2]=t8;
av2[3]=t9;
C_call_with_values(4,av2);}}
else{
/* scrutinizer.scm:431: make-list */
f_7934(((C_word*)t0)[3],((C_word*)t0)[5],C_a_i_list(&a,1,lf[53]));}}

/* g1191 in k9380 in k9374 in k9371 in k9368 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9386(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_9386,3,t0,t1,t2);}
t3=lf[118];
/* scrutinizer.scm:429: g1208 */
t4=lf[118];{
C_word av2[4];
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)t0)[2];
f_16269(4,av2);}}

/* k9391 in k9380 in k9374 in k9371 in k9368 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_9393,c,av);}
a=C_alloc(8);
t2=C_i_check_list_2(t1,lf[6]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9401,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_9401(t6,((C_word*)t0)[5],t1);}

/* map-loop1185 in k9391 in k9380 in k9374 in k9371 in k9368 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9401(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_9401,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_9426,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);
/* scrutinizer.scm:429: g1191 */
t4=((C_word*)t0)[4];
f_9386(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);}}}

/* k9424 in map-loop1185 in k9391 in k9380 in k9374 in k9371 in k9368 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
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 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_9426,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_9401(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* a9434 in k9380 in k9374 in k9371 in k9368 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9435(C_word c,C_word *av){
C_word tmp;
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,5)))){
C_save_and_reclaim((void *)f_9435,c,av);}
a=C_alloc(3);
/* scrutinizer.scm:430: procedure-argument-types */
f_15320(t1,((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,C_a_i_list(&a,1,C_SCHEME_TRUE));}

/* a9440 in k9380 in k9374 in k9371 in k9368 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9441(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_9441,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
t2=C_build_rest(&a,c,2,av);
C_word t3;
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_list_ref(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9459(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,2)))){
C_save_and_reclaim_args((void *)trf_9459,8,t0,t1,t2,t3,t4,t5,t6,t7);}
a=C_alloc(29);
t8=(*a=C_CLOSURE_TYPE|28,a[1]=(C_word)f_9463,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t4,a[7]=t2,a[8]=t6,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[8],a[14]=t5,a[15]=t7,a[16]=((C_word*)t0)[9],a[17]=((C_word*)t0)[10],a[18]=((C_word*)t0)[11],a[19]=((C_word*)t0)[12],a[20]=((C_word*)t0)[13],a[21]=((C_word*)t0)[14],a[22]=((C_word*)t0)[15],a[23]=((C_word*)t0)[16],a[24]=((C_word*)t0)[17],a[25]=((C_word*)t0)[18],a[26]=((C_word*)t0)[19],a[27]=((C_word*)t0)[20],a[28]=((C_word*)t0)[21],tmp=(C_word)a,a+=29,tmp);
/* scrutinizer.scm:435: chicken.compiler.support#node-subexpressions */
t9=*((C_word*)lf[86]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}

/* k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(30,c,2)))){
C_save_and_reclaim((void *)f_9463,c,av);}
a=C_alloc(30);
t2=(*a=C_CLOSURE_TYPE|29,a[1]=(C_word)f_9466,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],a[26]=((C_word*)t0)[25],a[27]=((C_word*)t0)[26],a[28]=((C_word*)t0)[27],a[29]=((C_word*)t0)[28],tmp=(C_word)a,a+=30,tmp);
/* scrutinizer.scm:436: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[26]+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);}}

/* k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9466(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(31,c,2)))){
C_save_and_reclaim((void *)f_9466,c,av);}
a=C_alloc(31);
t2=(*a=C_CLOSURE_TYPE|30,a[1]=(C_word)f_9469,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],a[26]=((C_word*)t0)[25],a[27]=((C_word*)t0)[26],a[28]=((C_word*)t0)[27],a[29]=((C_word*)t0)[28],a[30]=((C_word*)t0)[29],tmp=(C_word)a,a+=31,tmp);
/* scrutinizer.scm:437: chicken.compiler.support#node-class */
t3=*((C_word*)lf[88]+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);}}

/* k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9469(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(121,c,7)))){
C_save_and_reclaim((void *)f_9469,c,av);}
a=C_alloc(121);
t2=lf[16];
t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_plus(&a,2,lf[16],C_fix(1)));
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9477,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t5=C_eqp(t1,lf[85]);
if(C_truep(t5)){
t6=C_i_car(((C_word*)t0)[3]);
t7=C_a_i_list1(&a,1,t6);
t8=lf[16];
t9=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t10=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t10;
av2[1]=t7;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t6=C_eqp(t1,lf[123]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9505,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:446: constant-result */
t8=((C_word*)((C_word*)t0)[4])[1];
f_8153(t8,t7,C_i_car(((C_word*)t0)[3]));}
else{
t7=C_eqp(t1,lf[188]);
if(C_truep(t7)){
t8=lf[16];
t9=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t10=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t10;
av2[1]=lf[189];
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t8=C_eqp(t1,lf[190]);
if(C_truep(t8)){
t9=lf[16];
t10=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t11=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t11;
av2[1]=lf[191];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t9=C_eqp(t1,lf[87]);
if(C_truep(t9)){
/* scrutinizer.scm:449: variable-result */
t10=((C_word*)((C_word*)t0)[5])[1];
f_8476(t10,t4,C_i_car(((C_word*)t0)[3]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}
else{
t10=C_eqp(t1,lf[192]);
if(C_truep(t10)){
t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9547,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:451: chicken.compiler.support#foreign-type->scrutiny-type */
t12=*((C_word*)lf[193]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t12;
av2[1]=t11;
av2[2]=C_i_cadr(((C_word*)t0)[3]);
av2[3]=lf[194];
((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}}
else{
t11=C_eqp(t1,lf[195]);
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9564,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* scrutinizer.scm:453: chicken.compiler.support#foreign-type->scrutiny-type */
t13=*((C_word*)lf[193]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t13;
av2[1]=t12;
av2[2]=C_i_car(((C_word*)t0)[3]);
av2[3]=lf[194];
((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}}
else{
t12=C_eqp(t1,lf[196]);
if(C_truep(t12)){
t13=(
/* scrutinizer.scm:455: tag */
  f_9325(C_a_i(&a,29),((C_word*)((C_word*)t0)[10])[1])
);
t14=(
/* scrutinizer.scm:455: tag */
  f_9325(C_a_i(&a,29),((C_word*)((C_word*)t0)[10])[1])
);
t15=C_a_i_cons(&a,2,t13,t14);
t16=C_i_car(((C_word*)t0)[11]);
t17=((C_word*)((C_word*)t0)[12])[1];
t18=C_set_block_item(((C_word*)t0)[12],0,C_SCHEME_FALSE);
t19=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_9584,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[14],a[6]=((C_word*)t0)[15],a[7]=t4,a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[16],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[17],a[14]=t16,a[15]=t17,a[16]=((C_word*)t0)[2],a[17]=t15,a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],tmp=(C_word)a,a+=21,tmp);
t20=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9899,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t16,a[5]=((C_word*)t0)[21],a[6]=t19,tmp=(C_word)a,a+=7,tmp);
/* scrutinizer.scm:459: walk */
t21=((C_word*)((C_word*)t0)[15])[1];
f_9459(t21,t20,t16,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[9],t15);}
else{
t13=C_eqp(t1,lf[124]);
if(C_truep(t13)){
t14=C_SCHEME_UNDEFINED;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9924,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[16],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[17],a[7]=((C_word*)t0)[6],a[8]=t15,a[9]=((C_word*)t0)[22],a[10]=((C_word*)t0)[23],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[21],tmp=(C_word)a,a+=13,tmp));
t17=((C_word*)t15)[1];
f_9924(t17,t4,((C_word*)t0)[3],((C_word*)t0)[11],C_SCHEME_END_OF_LIST);}
else{
t14=C_eqp(t1,lf[221]);
t15=(C_truep(t14)?t14:C_eqp(t1,lf[222]));
if(C_truep(t15)){
t16=C_i_car(((C_word*)t0)[3]);
t17=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10029,a[2]=((C_word*)t0)[16],a[3]=((C_word*)t0)[19],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[22],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[23],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[15],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[24],tmp=(C_word)a,a+=13,tmp);
/* scrutinizer.scm:522: ##sys#decompose-lambda-list */
t18=*((C_word*)lf[227]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t18;
av2[1]=t4;
av2[2]=t16;
av2[3]=t17;
((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}}
else{
t16=C_eqp(t1,lf[228]);
t17=(C_truep(t16)?t16:C_eqp(t1,lf[229]));
if(C_truep(t17)){
t18=C_i_car(((C_word*)t0)[3]);
t19=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10293,a[2]=t18,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[25],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[19],a[9]=((C_word*)t0)[26],a[10]=((C_word*)t0)[23],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[27],a[13]=((C_word*)t0)[8],a[14]=((C_word*)t0)[7],a[15]=((C_word*)t0)[28],a[16]=((C_word*)t0)[21],a[17]=((C_word*)t0)[15],tmp=(C_word)a,a+=18,tmp);
/* scrutinizer.scm:577: chicken.compiler.support#variable-mark */
t20=*((C_word*)lf[64]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t20;
av2[1]=t19;
av2[2]=t18;
av2[3]=lf[65];
((C_proc)(void*)(*((C_word*)t20+1)))(4,av2);}}
else{
t18=C_eqp(t1,lf[268]);
if(C_truep(t18)){
t19=lf[16];
t20=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t21=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t21;
av2[1]=lf[53];
((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}
else{
t19=C_eqp(t1,lf[120]);
if(C_truep(t19)){
t20=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10655,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[21],a[6]=((C_word*)t0)[15],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[29],a[10]=((C_word*)t0)[19],a[11]=((C_word*)t0)[26],a[12]=((C_word*)t0)[16],a[13]=((C_word*)t0)[17],a[14]=((C_word*)t0)[18],a[15]=((C_word*)t0)[23],a[16]=((C_word*)t0)[30],a[17]=t4,tmp=(C_word)a,a+=18,tmp);
/* scrutinizer.scm:665: fragment */
f_21086(t20,((C_word*)t0)[8]);}
else{
t20=C_eqp(t1,lf[277]);
if(C_truep(t20)){
t21=C_i_car(((C_word*)t0)[3]);
t22=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11242,a[2]=t21,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[26],a[7]=((C_word*)t0)[28],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
/* scrutinizer.scm:765: walk */
t23=((C_word*)((C_word*)t0)[15])[1];
f_9459(t23,t22,C_i_car(((C_word*)t0)[11]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[16],((C_word*)t0)[9],((C_word*)t0)[17]);}
else{
t21=C_eqp(t1,lf[311]);
if(C_truep(t21)){
t22=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11330,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[15],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[16],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[17],a[11]=t4,tmp=(C_word)a,a+=12,tmp);
/* scrutinizer.scm:777: walk */
t23=((C_word*)((C_word*)t0)[15])[1];
f_9459(t23,t22,C_i_car(((C_word*)t0)[11]),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[9],((C_word*)t0)[17]);}
else{
t22=C_eqp(t1,lf[341]);
t23=(C_truep(t22)?t22:C_eqp(t1,lf[342]));
if(C_truep(t23)){
/* scrutinizer.scm:793: chicken.compiler.support#bomb */
t24=*((C_word*)lf[343]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t24;
av2[1]=t4;
av2[2]=lf[344];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t24+1)))(4,av2);}}
else{
t24=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11430,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp);
t25=C_i_check_list_2(((C_word*)t0)[11],lf[212]);
t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11440,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t27=C_SCHEME_UNDEFINED;
t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp);
t29=C_set_block_item(t28,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11442,a[2]=t28,a[3]=t24,tmp=(C_word)a,a+=4,tmp));
t30=((C_word*)t28)[1];
f_11442(t30,t26,((C_word*)t0)[11]);}}}}}}}}}}}}}}}}}

/* k9475 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9477(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_9477,c,av);}
a=C_alloc(29);
t2=lf[16];
t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k9503 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9505(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){
C_save_and_reclaim((void *)f_9505,c,av);}
a=C_alloc(32);
t2=C_a_i_list1(&a,1,t1);
t3=lf[16];
t4=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k9545 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9547(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){
C_save_and_reclaim((void *)f_9547,c,av);}
a=C_alloc(32);
t2=C_a_i_list1(&a,1,t1);
t3=lf[16];
t4=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k9562 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9564(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){
C_save_and_reclaim((void *)f_9564,c,av);}
a=C_alloc(32);
t2=C_a_i_list1(&a,1,t1);
t3=lf[16];
t4=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9584(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,5)))){
C_save_and_reclaim((void *)f_9584,c,av);}
a=C_alloc(23);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_i_caddr(((C_word*)t0)[2]);
t4=((C_word*)((C_word*)t0)[3])[1];
t5=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_9895,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=t2,a[14]=t3,a[15]=((C_word*)t0)[3],a[16]=((C_word*)t0)[15],a[17]=t4,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]=t1,tmp=(C_word)a,a+=23,tmp);
/* scrutinizer.scm:465: always-true */
t6=((C_word*)((C_word*)t0)[20])[1];
f_8601(t6,t5,((C_word*)t0)[8],((C_word*)t0)[14],t1,((C_word*)t0)[10]);}

/* k9599 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9601(C_word c,C_word *av){
C_word tmp;
C_word 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_9601,c,av);}
/* scrutinizer.scm:468: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_9459(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]);}

/* k9618 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9620(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_9620,c,av);}
a=C_alloc(18);
t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_list(&a,1,t2);
t4=C_a_i_list(&a,3,lf[124],t3,((C_word*)t0)[3]);
/* scrutinizer.scm:467: mutate-node! */
f_17304(((C_word*)t0)[4],((C_word*)t0)[5],t4);}

/* k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9626(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(45,0,7)))){
C_save_and_reclaim_args((void *)trf_9626,2,t0,t1);}
a=C_alloc(45);
if(C_truep(t1)){
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1)));
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9631,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9650,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=t4,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:471: chicken.base#gensym */
t6=*((C_word*)lf[197]+1);{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_9653,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[15],a[5]=((C_word*)t0)[16],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[17],a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[18],a[12]=((C_word*)t0)[19],a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[20],a[15]=((C_word*)t0)[3],a[16]=((C_word*)t0)[6],a[17]=((C_word*)t0)[8],tmp=(C_word)a,a+=18,tmp);
t3=C_u_i_car(((C_word*)t0)[18]);
t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[9]);
/* scrutinizer.scm:474: walk */
t5=((C_word*)((C_word*)t0)[3])[1];
f_9459(t5,t2,((C_word*)t0)[17],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],t4,C_SCHEME_FALSE);}}

/* k9629 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9631(C_word c,C_word *av){
C_word tmp;
C_word 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_9631,c,av);}
/* scrutinizer.scm:472: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_9459(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]);}

/* k9648 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_9650,c,av);}
a=C_alloc(18);
t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_list(&a,1,t2);
t4=C_a_i_list(&a,3,lf[124],t3,((C_word*)t0)[3]);
/* scrutinizer.scm:471: mutate-node! */
f_17304(((C_word*)t0)[4],((C_word*)t0)[5],t4);}

/* k9651 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9653(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,7)))){
C_save_and_reclaim((void *)f_9653,c,av);}
a=C_alloc(20);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t4=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_9657,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t1,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],a[16]=((C_word*)t0)[14],tmp=(C_word)a,a+=17,tmp);
t5=C_u_i_cdr(((C_word*)t0)[11]);
t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[13]);
/* scrutinizer.scm:477: walk */
t7=((C_word*)((C_word*)t0)[15])[1];
f_9459(t7,t4,((C_word*)t0)[6],((C_word*)t0)[16],((C_word*)t0)[8],((C_word*)t0)[17],t6,C_SCHEME_FALSE);}

/* k9655 in k9651 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9657(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(23,c,3)))){
C_save_and_reclaim((void *)f_9657,c,av);}
a=C_alloc(23);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=(C_truep(((C_word*)t0)[3])?((C_word*)t0)[3]:(C_truep(((C_word*)t0)[4])?((C_word*)t0)[4]:(C_truep(((C_word*)t0)[5])?t2:C_SCHEME_FALSE)));
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9664,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)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[5],a[10]=t2,a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp);
t6=(C_truep(((C_word*)t0)[5])?C_i_not(t2):C_SCHEME_FALSE);
t7=(C_truep(t6)?t6:(C_truep(t2)?C_i_not(((C_word*)t0)[5]):C_SCHEME_FALSE));
if(C_truep(t7)){
t8=(C_truep(((C_word*)t0)[5])?C_u_i_cdr(((C_word*)t0)[13]):C_u_i_car(((C_word*)t0)[13]));
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9805,a[2]=t8,a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[15],tmp=(C_word)a,a+=5,tmp);
t10=((C_word*)((C_word*)t0)[16])[1];
t11=C_i_check_list_2(t10,lf[212]);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9839,a[2]=t13,a[3]=t9,tmp=(C_word)a,a+=4,tmp));
t15=((C_word*)t13)[1];
f_9839(t15,t5,t10);}
else{
t8=t5;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
f_9664(2,av2);}}}

/* k9662 in k9655 in k9651 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9664(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(29,c,2)))){
C_save_and_reclaim((void *)f_9664,c,av);}
a=C_alloc(29);
t2=C_eqp(lf[53],((C_word*)t0)[2]);
t3=C_i_not(t2);
t4=(C_truep(t3)?C_i_not(C_eqp(lf[53],((C_word*)t0)[3])):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9676,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
if(C_truep(C_i_not(((C_word*)t0)[9]))){
if(C_truep(C_i_not(((C_word*)t0)[10]))){
t6=C_i_length(((C_word*)t0)[2]);
t7=C_i_length(((C_word*)t0)[3]);
t8=t5;
f_9676(t8,C_i_not(C_eqp(t6,t7)));}
else{
t6=t5;
f_9676(t6,C_SCHEME_FALSE);}}
else{
t6=t5;
f_9676(t6,C_SCHEME_FALSE);}}
else{
t5=lf[16];
t6=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t7=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t7;
av2[1]=lf[53];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k9674 in k9662 in k9655 in k9651 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9676(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,14)))){
C_save_and_reclaim_args((void *)trf_9676,2,t0,t1);}
a=C_alloc(29);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9679,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_a_i_list2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22753,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[4],tmp=(C_word)a,a+=10,tmp);
/* scrutinizer.scm:2946: scheme#string-append */
t5=*((C_word*)lf[76]+1);{
C_word av2[15];
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[199];
av2[3]=lf[200];
av2[4]=lf[201];
av2[5]=lf[202];
av2[6]=lf[203];
av2[7]=lf[204];
av2[8]=lf[205];
av2[9]=lf[206];
av2[10]=lf[207];
av2[11]=lf[208];
av2[12]=lf[209];
av2[13]=lf[210];
av2[14]=lf[211];
((C_proc)(void*)(*((C_word*)t5+1)))(15,av2);}}
else{
if(C_truep(((C_word*)t0)[9])){
t2=lf[16];
t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t4=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t4;
av2[1]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
if(C_truep(((C_word*)t0)[10])){
t2=lf[16];
t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t4=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t4;
av2[1]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=C_i_check_list_2(((C_word*)t0)[5],lf[6]);
t7=C_i_check_list_2(((C_word*)t0)[6],lf[6]);
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_9711,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_9711(t11,((C_word*)t0)[11],((C_word*)t0)[5],((C_word*)t0)[6]);}}}}

/* k9677 in k9674 in k9662 in k9655 in k9651 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_ccall f_9679(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_9679,c,av);}
a=C_alloc(29);
t2=lf[16];
t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[53];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* map-loop1320 in k9674 in k9662 in k9655 in k9651 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 in ... */
static void C_fcall f_9711(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(16,0,2)))){
C_save_and_reclaim_args((void *)trf_9711,4,t0,t1,t2,t3);}
a=C_alloc(16);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9740,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
t7=C_slot(t2,C_fix(0));
t8=C_slot(t3,C_fix(0));
t9=C_a_i_list(&a,3,lf[28],t7,t8);
/* scrutinizer.scm:503: simplify-type */
f_13487(t6,t9);}
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);}}}

/* k9738 in map-loop1320 in k9674 in k9662 in k9655 in k9651 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in ... */
static void C_ccall f_9740(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_9740,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_9711(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)));}

/* g1292 in k9655 in k9651 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9805(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(0,0,4)))){
C_save_and_reclaim_args((void *)trf_9805,3,t0,t1,t2);}
t3=C_i_cdar(t2);
t4=C_eqp(t3,((C_word*)t0)[2]);
if(C_truep(t4)){
t5=C_u_i_car(t2);
/* scrutinizer.scm:490: add-to-blist */
t6=((C_word*)((C_word*)t0)[3])[1];
f_9330(t6,t1,C_u_i_car(t5),C_i_car(((C_word*)t0)[4]),C_u_i_cdr(t2));}
else{
t5=C_SCHEME_UNDEFINED;
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* for-each-loop1291 in k9655 in k9651 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9839(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_9839,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_9849,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:485: g1292 */
t4=((C_word*)t0)[3];
f_9805(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);}}}

/* k9847 in for-each-loop1291 in k9655 in k9651 in k9624 in k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9849(C_word c,C_word *av){
C_word tmp;
C_word 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_9849,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9839(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k9893 in k9582 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9895(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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(45,c,6)))){
C_save_and_reclaim((void *)f_9895,c,av);}
a=C_alloc(45);
t2=(C_truep(t1)?((C_word*)t0)[2]:C_SCHEME_FALSE);
if(C_truep(t2)){
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)));
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9601,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9620,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[13],a[4]=t5,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:467: chicken.base#gensym */
t7=*((C_word*)lf[197]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_9626,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)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[16],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[18],a[17]=((C_word*)t0)[13],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],tmp=(C_word)a,a+=21,tmp);
t4=C_eqp(((C_word*)t0)[22],lf[46]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8623,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t6=C_a_i_list2(&a,2,((C_word*)t0)[12],((C_word*)t0)[6]);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22565,a[2]=t5,a[3]=t6,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:2841: scheme#string-append */
t8=*((C_word*)lf[76]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=lf[214];
av2[3]=lf[215];
av2[4]=lf[216];
av2[5]=lf[217];
av2[6]=lf[218];
((C_proc)(void*)(*((C_word*)t8+1)))(7,av2);}}
else{
t5=t3;
f_9626(t5,C_SCHEME_FALSE);}}}

/* k9897 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9899(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9899,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9901,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);
/* scrutinizer.scm:459: single */
f_8625(((C_word*)t0)[6],t1,t2);}

/* a9900 in k9897 in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9901(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,5)))){
C_save_and_reclaim((void *)f_9901,c,av);}
t3=lf[219];
/* scrutinizer.scm:460: g1247 */
t4=lf[219];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
av2[5]=t2;
f_22161(6,av2);}}

/* loop in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9924(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(19,0,7)))){
C_save_and_reclaim_args((void *)trf_9924,5,t0,t1,t2,t3,t4);}
a=C_alloc(19);
if(C_truep(C_i_nullp(t2))){
t5=C_i_car(t3);
t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9942,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,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);
/* scrutinizer.scm:510: scheme#append */
t7=*((C_word*)lf[5]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=t6;
av2[2]=t4;
av2[3]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
t5=C_i_car(t2);
t6=C_i_car(t3);
t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9951,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[8],a[6]=t1,a[7]=((C_word*)t0)[9],a[8]=t5,a[9]=((C_word*)t0)[10],a[10]=t6,tmp=(C_word)a,a+=11,tmp);
t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10005,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[11],a[5]=t6,a[6]=((C_word*)t0)[12],a[7]=t7,tmp=(C_word)a,a+=8,tmp);
/* scrutinizer.scm:513: walk */
t9=((C_word*)((C_word*)t0)[2])[1];
f_9459(t9,t8,t6,((C_word*)t0)[7],((C_word*)t0)[3],t5,((C_word*)t0)[5],C_SCHEME_FALSE);}}

/* k9940 in loop in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9942(C_word c,C_word *av){
C_word tmp;
C_word 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_9942,c,av);}
/* scrutinizer.scm:510: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_9459(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k9949 in loop in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9951(C_word c,C_word *av){
C_word tmp;
C_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(20,c,2)))){
C_save_and_reclaim((void *)f_9951,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9954,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9970,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],tmp=(C_word)a,a+=7,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10001,a[2]=t3,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
/* scrutinizer.scm:515: chicken.compiler.support#node-class */
t5=*((C_word*)lf[88]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[10];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k9952 in k9949 in loop in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9954(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(6,0,4)))){
C_save_and_reclaim_args((void *)trf_9954,2,t0,t1);}
a=C_alloc(6);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_u_i_cdr(((C_word*)t0)[3]);
t4=C_u_i_car(((C_word*)t0)[2]);
t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]);
t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[5]);
/* scrutinizer.scm:520: loop */
t7=((C_word*)((C_word*)t0)[6])[1];
f_9924(t7,((C_word*)t0)[7],t2,t3,t6);}

/* k9968 in k9949 in loop in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_fcall f_9970(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9970,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9987,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);
/* scrutinizer.scm:517: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[26]+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_word*)t0)[2];
f_9954(t2,C_SCHEME_UNDEFINED);}}

/* k9977 in k9985 in k9968 in k9949 in loop in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9979(C_word c,C_word *av){
C_word tmp;
C_word t0=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_9979,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];
f_9954(t3,t2);}
else{
t2=((C_word*)((C_word*)t0)[3])[1];
t3=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]);
t4=C_a_i_cons(&a,2,t3,t2);
t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4);
t6=((C_word*)t0)[2];
f_9954(t6,t5);}}

/* k9985 in k9968 in k9949 in loop in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9987(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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_9987,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9979,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* scrutinizer.scm:518: chicken.compiler.support#db-get */
t4=*((C_word*)lf[67]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
av2[3]=t2;
av2[4]=lf[68];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k9995 in k9999 in k9949 in loop in k9467 in k9464 in k9461 in walk in chicken.compiler.scrutinizer#scrutinize in k6736 in k6733 in k6730 in k6727 in k6724 in k6721 in k6718 in k6715 in k6712 */
static void C_ccall f_9997(C_word c,C_word *av){
C_word tmp;
C_word 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_9997,c,av);}
t2=((C_word*)t0)[2];
f_9970(t2,C_i_not(t1));}

/* toplevel */
static C_TLS int toplevel_initialized=0;

void C_ccall C_scrutinizer_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("scrutinizer"));
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_scrutinizer_toplevel,c,av);}
toplevel_initialized=1;
if(C_unlikely(!C_demand_2(3107))){
C_save(t1);
C_rereclaim2(3107*sizeof(C_word),1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,659);
lf[0]=C_h_intern(&lf[0],11, C_text("scrutinizer"));
lf[1]=C_h_intern(&lf[1],29, C_text("chicken.compiler.scrutinizer#"));
lf[4]=C_h_intern(&lf[4],5, C_text("foldr"));
lf[5]=C_h_intern(&lf[5],13, C_text("scheme#append"));
lf[6]=C_h_intern(&lf[6],3, C_text("map"));
lf[8]=C_h_intern(&lf[8],12, C_text("scheme#null\077"));
lf[20]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001string\376\003\000\000\002\376\001\000\000\006\001symbol\376\003\000\000\002\376\001\000\000\007\001keyword\376\003\000\000\002\376\001\000\000\004\001char\376\003\000\000\002\376\001\000\000\004\001nu"
"ll\376\003\000\000\002\376\001\000\000\007\001boolean\376\003\000\000\002\376\001\000\000\004\001true\376\003\000\000\002\376\001\000\000\005\001false\376\003\000\000\002\376\001\000\000\004\001blob\376\003\000\000\002\376\001\000\000\003\001eof"
"\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\005\001float\376\003\000\000\002\376\001\000\000\006\001number\376\003\000\000\002\376\001\000\000\007\001integer\376\003\000\000\002\376\001\000\000\006\001b"
"ignum\376\003\000\000\002\376\001\000\000\006\001ratnum\376\003\000\000\002\376\001\000\000\007\001cplxnum\376\003\000\000\002\376\001\000\000\016\001pointer-vector\376\003\000\000\002\376\001\000\000\004\001port"
"\376\003\000\000\002\376\001\000\000\007\001pointer\376\003\000\000\002\376\001\000\000\010\001locative\376\377\016"));
lf[22]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\004\001list\376\003\000\000\002\376\001\000\000\004\001pair\376\003\000\000\002\376\001\000\000\011\001procedure\376\003\000\000\002\376\001\000\000\006\001vector\376"
"\003\000\000\002\376\001\000\000\011\001undefined\376\003\000\000\002\376\001\000\000\012\001deprecated\376\003\000\000\002\376\001\000\000\010\001noreturn\376\003\000\000\002\376\001\000\000\006\001values\376\377\016"));
lf[26]=C_h_intern(&lf[26],40, C_text("chicken.compiler.support#node-parameters"));
lf[28]=C_h_intern(&lf[28],2, C_text("or"));
lf[29]=C_h_intern(&lf[29],6, C_text("forall"));
lf[30]=C_h_intern(&lf[30],3, C_text("eof"));
lf[31]=C_h_intern(&lf[31],4, C_text("null"));
lf[32]=C_h_intern(&lf[32],6, C_text("fixnum"));
lf[33]=C_h_intern(&lf[33],4, C_text("char"));
lf[34]=C_h_intern(&lf[34],7, C_text("boolean"));
lf[35]=C_h_intern(&lf[35],9, C_text("undefined"));
lf[36]=C_h_intern(&lf[36],39, C_text("chicken.compiler.scrutinizer#scrutinize"));
lf[37]=C_h_intern(&lf[37],6, C_text("string"));
lf[38]=C_h_intern(&lf[38],7, C_text("keyword"));
lf[39]=C_h_intern(&lf[39],6, C_text("symbol"));
lf[40]=C_h_intern(&lf[40],7, C_text("integer"));
lf[41]=C_h_intern(&lf[41],6, C_text("bignum"));
lf[42]=C_h_intern(&lf[42],5, C_text("float"));
lf[43]=C_h_intern(&lf[43],6, C_text("ratnum"));
lf[44]=C_h_intern(&lf[44],7, C_text("cplxnum"));
lf[45]=C_h_intern(&lf[45],4, C_text("true"));
lf[46]=C_h_intern(&lf[46],5, C_text("false"));
lf[47]=C_h_intern(&lf[47],4, C_text("list"));
lf[48]=C_h_intern(&lf[48],4, C_text("pair"));
lf[50]=C_h_intern(&lf[50],6, C_text("vector"));
lf[51]=C_h_intern(&lf[51],19, C_text("scheme#vector->list"));
lf[52]=C_h_intern(&lf[52],6, C_text("struct"));
lf[53]=C_h_intern(&lf[53],1, C_text("\052"));
lf[54]=C_h_intern(&lf[54],38, C_text("chicken.compiler.support#small-bignum\077"));
lf[55]=C_h_intern(&lf[55],36, C_text("chicken.compiler.support#big-fixnum\077"));
lf[56]=C_h_intern(&lf[56],24, C_text("chicken.keyword#keyword\077"));
lf[57]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[58]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[59]=C_h_intern(&lf[59],10, C_text("deprecated"));
lf[60]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[62]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[63]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[64]=C_h_intern(&lf[64],38, C_text("chicken.compiler.support#variable-mark"));
lf[65]=C_h_intern(&lf[65],15, C_text("##compiler#type"));
lf[66]=C_h_intern(&lf[66],22, C_text("##compiler#type-source"));
lf[67]=C_h_intern(&lf[67],31, C_text("chicken.compiler.support#db-get"));
lf[68]=C_h_intern(&lf[68],8, C_text("assigned"));
lf[69]=C_h_intern(&lf[69],3, C_text("not"));
lf[70]=C_h_intern(&lf[70],8, C_text("noreturn"));
lf[72]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023Test is always true"));
lf[73]=C_h_intern(&lf[73],12, C_text("##sys#notice"));
lf[76]=C_h_intern(&lf[76],20, C_text("scheme#string-append"));
lf[77]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032In conditional expression:"));
lf[78]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[79]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[80]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[81]=C_decode_literal(C_heaptop,C_text("\376B\000\000-Test condition has always true value of type:"));
lf[82]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[83]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[84]=C_h_intern(&lf[84],9, C_text("procedure"));
lf[85]=C_h_intern(&lf[85],17, C_text("##core#the/result"));
lf[86]=C_h_intern(&lf[86],44, C_text("chicken.compiler.support#node-subexpressions"));
lf[87]=C_h_intern(&lf[87],15, C_text("##core#variable"));
lf[88]=C_h_intern(&lf[88],35, C_text("chicken.compiler.support#node-class"));
lf[89]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021Invalid procedure"));
lf[90]=C_h_intern(&lf[90],20, C_text("chicken.base#warning"));
lf[92]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:"));
lf[93]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[94]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[95]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[96]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037Variable ~a is not a procedure."));
lf[97]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[98]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021It has this type:"));
lf[99]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[100]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[101]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021Invalid procedure"));
lf[103]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:"));
lf[104]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[105]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[106]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[107]=C_decode_literal(C_heaptop,C_text("\376B\000\000:The procedure expression does not appear to be a callable."));
lf[108]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[109]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[110]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[111]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025The expected type is:"));
lf[112]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[113]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[114]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[115]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023The actual type is:"));
lf[116]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[117]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[120]=C_h_intern(&lf[120],11, C_text("##core#call"));
lf[122]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001true\376\377\016"));
lf[123]=C_h_intern(&lf[123],5, C_text("quote"));
lf[124]=C_h_intern(&lf[124],3, C_text("let"));
lf[126]=C_h_intern(&lf[126],18, C_text("##sys#list->vector"));
lf[127]=C_h_intern(&lf[127],3, C_text("tmp"));
lf[128]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030Predicate is always true"));
lf[129]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:"));
lf[130]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[131]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[132]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[133]=C_decode_literal(C_heaptop,C_text("\376B\000\000&The predicate will always return true."));
lf[134]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[135]=C_decode_literal(C_heaptop,C_text("\376B\000\000 Procedure ~a is a predicate for:"));
lf[136]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[137]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[138]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[139]=C_decode_literal(C_heaptop,C_text("\376B\000\000!The given argument has this type:"));
lf[140]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[141]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[143]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001false\376\377\016"));
lf[144]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031Predicate is always false"));
lf[145]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:"));
lf[146]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[147]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[148]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[149]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047The predicate will always return false."));
lf[150]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[151]=C_decode_literal(C_heaptop,C_text("\376B\000\000 Procedure ~a is a predicate for:"));
lf[152]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[153]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[154]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000!The given argument has this type:"));
lf[156]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[157]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[162]=C_h_intern(&lf[162],26, C_text("##compiler#specializations"));
lf[163]=C_h_intern(&lf[163],32, C_text("##compiler#local-specializations"));
lf[164]=C_h_intern(&lf[164],49, C_text("chicken.compiler.support#maybe-constant-fold-call"));
lf[165]=C_h_intern(&lf[165],20, C_text("##compiler#predicate"));
lf[167]=C_h_intern(&lf[167],20, C_text("chicken.base#call/cc"));
lf[170]=C_h_intern(&lf[170],40, C_text("chicken.compiler.scrutinizer#match-types"));
lf[171]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[172]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001s"));
lf[173]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002is"));
lf[174]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003are"));
lf[175]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031Wrong number of arguments"));
lf[177]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:"));
lf[178]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[179]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[180]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[181]=C_decode_literal(C_heaptop,C_text("\376B\000\000JProcedure `~a\047 is called with ~a argument~a but ~a argument~a ~a expected."));
lf[182]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[183]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033Procedure ~a has this type:"));
lf[184]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[185]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[186]=C_h_intern(&lf[186],26, C_text("chicken.base#alist-update!"));
lf[187]=C_h_intern(&lf[187],13, C_text("scheme#equal\077"));
lf[188]=C_h_intern(&lf[188],16, C_text("##core#undefined"));
lf[189]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[190]=C_h_intern(&lf[190],11, C_text("##core#proc"));
lf[191]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001procedure\376\377\016"));
lf[192]=C_h_intern(&lf[192],17, C_text("##core#inline_ref"));
lf[193]=C_h_intern(&lf[193],52, C_text("chicken.compiler.support#foreign-type->scrutiny-type"));
lf[194]=C_h_intern(&lf[194],6, C_text("result"));
lf[195]=C_h_intern(&lf[195],21, C_text("##core#inline_loc_ref"));
lf[196]=C_h_intern(&lf[196],2, C_text("if"));
lf[197]=C_h_intern(&lf[197],19, C_text("chicken.base#gensym"));
lf[198]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026Branch values mismatch"));
lf[199]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032In conditional expression:"));
lf[200]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[201]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[202]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[203]=C_decode_literal(C_heaptop,C_text("\376B\000\000.The branches have different numbers of values."));
lf[204]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[205]=C_decode_literal(C_heaptop,C_text("\376B\000\000#The true branch returns ~a value~a:"));
lf[206]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[207]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[208]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[209]=C_decode_literal(C_heaptop,C_text("\376B\000\000$The false branch returns ~a value~a:"));
lf[210]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[211]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[212]=C_h_intern(&lf[212],8, C_text("for-each"));
lf[213]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024Test is always false"));
lf[214]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032In conditional expression:"));
lf[215]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[216]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[217]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[218]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037Test condition is always false."));
lf[221]=C_h_intern(&lf[221],13, C_text("##core#lambda"));
lf[222]=C_h_intern(&lf[222],6, C_text("lambda"));
lf[223]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001procedure\376\377\016"));
lf[224]=C_h_intern(&lf[224],18, C_text("##sys#dynamic-wind"));
lf[225]=C_h_intern(&lf[225],20, C_text("chicken.base#butlast"));
lf[226]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\377\016"));
lf[227]=C_h_intern(&lf[227],27, C_text("##sys#decompose-lambda-list"));
lf[228]=C_h_intern(&lf[228],4, C_text("set!"));
lf[229]=C_h_intern(&lf[229],11, C_text("##core#set!"));
lf[230]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\006\001\376\377\016"));
lf[231]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001undefined\376\377\016"));
lf[232]=C_h_intern(&lf[232],8, C_text("captured"));
lf[233]=C_h_intern(&lf[233],38, C_text("chicken.compiler.support#mark-variable"));
lf[234]=C_h_intern(&lf[234],9, C_text("inference"));
lf[235]=C_h_intern(&lf[235],6, C_text("format"));
lf[236]=C_h_intern(&lf[236],34, C_text("chicken.compiler.support#debugging"));
lf[237]=C_h_intern(&lf[237],1, C_text("I"));
lf[238]=C_h_intern(&lf[238],30, C_text("chicken.base#get-output-string"));
lf[239]=C_h_intern(&lf[239],18, C_text("##sys#write-char-0"));
lf[240]=C_h_intern(&lf[240],11, C_text("##sys#print"));
lf[241]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003(: "));
lf[242]=C_h_intern(&lf[242],31, C_text("chicken.base#open-output-string"));
lf[244]=C_h_intern(&lf[244],34, C_text("chicken.compiler.support#tree-copy"));
lf[245]=C_h_intern(&lf[245],2, C_text("no"));
lf[246]=C_h_intern(&lf[246],17, C_text("##compiler#inline"));
lf[247]=C_h_intern(&lf[247],42, C_text("chicken.compiler.support#variable-visible\077"));
lf[248]=C_h_intern(&lf[248],11, C_text("local-value"));
lf[249]=C_h_intern(&lf[249],5, C_text("value"));
lf[250]=C_h_intern(&lf[250],7, C_text("unknown"));
lf[251]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022Invalid assignment"));
lf[252]=C_h_intern(&lf[252],21, C_text("scheme#string->symbol"));
lf[253]=C_h_intern(&lf[253],34, C_text("chicken.compiler.support#real-name"));
lf[254]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In assignment:"));
lf[255]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[256]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[257]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[258]=C_decode_literal(C_heaptop,C_text("\376B\000\000(Variable `~a\047 is assigned invalid value."));
lf[259]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[260]=C_decode_literal(C_heaptop,C_text("\376B\000\000!The assigned value has this type:"));
lf[261]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[262]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[263]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[264]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033The declared type of ~a is:"));
lf[265]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[266]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[268]=C_h_intern(&lf[268],16, C_text("##core#primitive"));
lf[269]=C_h_intern(&lf[269],34, C_text("chicken.compiler.support#make-node"));
lf[271]=C_h_intern(&lf[271],16, C_text("##compiler#clean"));
lf[272]=C_h_intern(&lf[272],15, C_text("##compiler#pure"));
lf[273]=C_h_intern(&lf[273],41, C_text("chicken.compiler.scrutinizer#refine-types"));
lf[274]=C_h_intern(&lf[274],30, C_text("##compiler#special-result-type"));
lf[275]=C_h_intern(&lf[275],22, C_text("chicken.base#alist-ref"));
lf[276]=C_h_intern(&lf[276],18, C_text("##compiler#enforce"));
lf[277]=C_h_intern(&lf[277],10, C_text("##core#the"));
lf[278]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021Not enough values"));
lf[279]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In expression:"));
lf[280]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[281]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[282]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[283]=C_decode_literal(C_heaptop,C_text("\376B\000\0006Expression returns 0 values but is declared to return:"));
lf[284]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[285]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[286]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015Type mismatch"));
lf[287]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In expression:"));
lf[288]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[289]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[290]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[291]=C_decode_literal(C_heaptop,C_text("\376B\000\0004Expression\047s declared and actual types do not match."));
lf[292]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[293]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025The declared type is:"));
lf[294]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[295]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[296]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[297]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023The actual type is:"));
lf[298]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[299]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[301]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017Too many values"));
lf[302]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In expression:"));
lf[303]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[304]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[305]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[306]=C_decode_literal(C_heaptop,C_text("\376B\000\000#Expression returns too many values."));
lf[307]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[308]=C_decode_literal(C_heaptop,C_text("\376B\000\000;The expression returns ~a values but is declared to return:"));
lf[309]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[310]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[311]=C_h_intern(&lf[311],15, C_text("##core#typecase"));
lf[312]=C_h_intern(&lf[312],39, C_text("chicken.compiler.support#quit-compiling"));
lf[313]=C_h_intern(&lf[313],33, C_text("chicken.string#string-intersperse"));
lf[314]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\012\012"));
lf[316]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002  "));
lf[318]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[319]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012"));
lf[320]=C_h_intern(&lf[320],19, C_text("chicken.string#conc"));
lf[321]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002  "));
lf[322]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\012  "));
lf[324]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021No typecase match"));
lf[325]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~%"));
lf[326]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[327]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[328]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042In `compiler-typecase\047 expression:"));
lf[329]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[330]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004  ~a"));
lf[331]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[332]=C_decode_literal(C_heaptop,C_text("\376B\000\000,  Tested expression does not match any case."));
lf[333]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[334]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037  The expression has this type:"));
lf[335]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[336]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[337]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[338]=C_decode_literal(C_heaptop,C_text("\376B\000\000%  The specified type cases are these:"));
lf[339]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[340]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[341]=C_h_intern(&lf[341],13, C_text("##core#switch"));
lf[342]=C_h_intern(&lf[342],11, C_text("##core#cond"));
lf[343]=C_h_intern(&lf[343],29, C_text("chicken.compiler.support#bomb"));
lf[344]=C_decode_literal(C_heaptop,C_text("\376B\000\000!scrutinize: unexpected node class"));
lf[345]=C_decode_literal(C_heaptop,C_text("\376B\000\000-some variable types do not satisfy strictness"));
lf[346]=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\001e\376\377\016"));
lf[347]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037assignments to immediate values"));
lf[348]=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\001e\376\377\016"));
lf[349]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020dropped branches"));
lf[350]=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\001e\376\377\016"));
lf[351]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012safe calls"));
lf[352]=C_h_intern(&lf[352],21, C_text("##sys#standard-output"));
lf[353]=C_h_intern(&lf[353],6, C_text("printf"));
lf[354]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002  "));
lf[355]=C_h_intern(&lf[355],18, C_text("chicken.base#print"));
lf[356]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020specializations:"));
lf[357]=C_h_intern(&lf[357],46, C_text("chicken.compiler.support#with-debugging-output"));
lf[358]=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\001e\376\377\016"));
lf[359]=C_h_intern(&lf[359],9, C_text("vector-of"));
lf[360]=C_h_intern(&lf[360],23, C_text("chicken.base#constantly"));
lf[361]=C_h_intern(&lf[361],7, C_text("list-of"));
lf[362]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\004\001pair\376\003\000\000\002\376\001\000\000\004\001null\376\377\016"));
lf[363]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\003\000\000\002\376\001\000\000\012\001#!optional\376\377\016"));
lf[364]=C_h_intern(&lf[364],10, C_text("#!optional"));
lf[365]=C_h_intern(&lf[365],6, C_text("#!rest"));
lf[367]=C_h_intern(&lf[367],14, C_text("scheme#reverse"));
lf[368]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001undefined\376\003\000\000\002\376\001\000\000\010\001noreturn\376\377\016"));
lf[372]=C_h_intern(&lf[372],6, C_text("refine"));
lf[373]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001pair\376\003\000\000\002\376\001\000\000\004\001pair\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001li"
"st\376\003\000\000\002\376\001\000\000\007\001list-of\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001vector\376\003\000\000\002\376\001\000\000\011\001vector-of\376\003\000"
"\000\002\376\001\000\000\001\001\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001boolean\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\004\001true\376\003\000\000\002\376\001\000\000\005\001false\376"
"\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001integer\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\006\001bignum\376\377\016\376\003\000\000\002"
"\376\003\000\000\002\376\001\000\000\006\001number\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\005\001float\376\003\000\000\002\376\001\000\000\006\001bignum"
"\376\003\000\000\002\376\001\000\000\006\001ratnum\376\003\000\000\002\376\001\000\000\007\001cplxnum\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001procedure\376\003\000\000\002\376\001\000\000\011\001proced"
"ure\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001#!rest\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016\376\001\000\000\001\001\052\376\377\016"));
lf[374]=C_h_intern(&lf[374],10, C_text("scheme#eq\077"));
lf[375]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\377\016"));
lf[376]=C_h_intern(&lf[376],14, C_text("##core#tv-root"));
lf[377]=C_h_intern(&lf[377],17, C_text("chicken.plist#get"));
lf[378]=C_h_intern(&lf[378],5, C_text("foldl"));
lf[379]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001procedure\376\377\016"));
lf[381]=C_h_intern(&lf[381],6, C_text("number"));
lf[382]=C_h_intern(&lf[382],36, C_text("chicken.compiler.scrutinizer#type<=\077"));
lf[383]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\005\001float\376\003\000\000\002\376\001\000\000\006\001bignum\376\003\000\000\002\376\001\000\000\006\001ratnum\376\003\000\000\002\376\001\000\000\007\001cp"
"lxnum\376\377\016"));
lf[384]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\006\001bignum\376\377\016"));
lf[385]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001true\376\003\000\000\002\376\001\000\000\005\001false\376\377\016"));
lf[389]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001procedure\376\377\016"));
lf[390]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\377\016"));
lf[391]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\377\016"));
lf[392]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\377\016"));
lf[393]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\377\016"));
lf[394]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001forall\376\003\000\000\002\376\001\000\000\006\001refine\376\377\016"));
lf[395]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001forall\376\003\000\000\002\376\001\000\000\006\001refine\376\377\016"));
lf[396]=C_h_intern(&lf[396],21, C_text("chicken.base#identity"));
lf[397]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001null\376\003\000\000\002\376\001\000\000\004\001pair\376\377\016"));
lf[398]=C_decode_literal(C_heaptop,C_text("\376B\000\000)procedure-arguments: not a procedure type"));
lf[399]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047procedure-results: not a procedure type"));
lf[400]=C_h_intern(&lf[400],6, C_text("values"));
lf[401]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001noreturn\376\377\016"));
lf[403]=C_decode_literal(C_heaptop,C_text("\376B\000\000,resolve: can\047t resolve unknown type-variable"));
lf[404]=C_h_intern(&lf[404],12, C_text("##sys#append"));
lf[405]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001values\376\377\016"));
lf[406]=C_h_intern(&lf[406],47, C_text("chicken.compiler.scrutinizer#load-type-database"));
lf[407]=C_h_intern(&lf[407],42, C_text("chicken.compiler.scrutinizer#validate-type"));
lf[408]=C_h_intern(&lf[408],52, C_text("chicken.compiler.scrutinizer#install-specializations"));
lf[409]=C_h_intern(&lf[409],2, C_text("db"));
lf[410]=C_h_intern(&lf[410],22, C_text("chicken.format#sprintf"));
lf[411]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047Declared type for toplevel binding `~a\047"));
lf[412]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012~%~%~a~%~%"));
lf[413]=C_decode_literal(C_heaptop,C_text("\376B\000\000(  conflicts with previously loaded type:"));
lf[414]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006~%~%~a"));
lf[415]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\047:"));
lf[416]=C_decode_literal(C_heaptop,C_text("\376B\000\000 Invalid type specification for `"));
lf[417]=C_h_intern_kw(&lf[417],4, C_text("pure"));
lf[418]=C_h_intern_kw(&lf[418],5, C_text("clean"));
lf[419]=C_h_intern_kw(&lf[419],7, C_text("enforce"));
lf[420]=C_h_intern_kw(&lf[420],8, C_text("foldable"));
lf[421]=C_h_intern(&lf[421],19, C_text("##compiler#foldable"));
lf[422]=C_h_intern_kw(&lf[422],9, C_text("predicate"));
lf[423]=C_decode_literal(C_heaptop,C_text("\376B\000\0003load-type-database: invalid procedure-type property"));
lf[424]=C_h_intern(&lf[424],27, C_text("scheme#call-with-input-file"));
lf[425]=C_h_intern(&lf[425],41, C_text("chicken.compiler.support#read-expressions"));
lf[426]=C_h_intern(&lf[426],1, C_text("p"));
lf[427]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005\047 ..."));
lf[428]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027loading type database `"));
lf[429]=C_h_intern(&lf[429],18, C_text("##sys#file-exists\077"));
lf[430]=C_h_intern(&lf[430],22, C_text("chicken.load#find-file"));
lf[431]=C_h_intern(&lf[431],32, C_text("chicken.platform#repository-path"));
lf[432]=C_h_intern(&lf[432],44, C_text("chicken.compiler.scrutinizer#emit-types-file"));
lf[433]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015; END OF FILE"));
lf[434]=C_h_intern(&lf[434],14, C_text("scheme#newline"));
lf[435]=C_h_intern(&lf[435],23, C_text("chicken.pretty-print#pp"));
lf[436]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\002enforce\376\377\016"));
lf[437]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\002pure\376\377\016"));
lf[438]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\002clean\376\377\016"));
lf[439]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\002foldable\376\377\016"));
lf[440]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001local\376\003\000\000\002\376\001\000\000\011\001inference\376\377\016"));
lf[441]=C_h_intern(&lf[441],36, C_text("chicken.internal#hash-table-for-each"));
lf[442]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027; GENERATED BY CHICKEN "));
lf[443]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 FROM "));
lf[444]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012"));
lf[445]=C_h_intern(&lf[445],32, C_text("chicken.platform#chicken-version"));
lf[446]=C_h_intern(&lf[446],26, C_text("scheme#with-output-to-file"));
lf[448]=C_h_intern(&lf[448],35, C_text("chicken.compiler.support#copy-node!"));
lf[449]=C_h_intern(&lf[449],41, C_text("chicken.compiler.support#build-node-graph"));
lf[450]=C_h_intern(&lf[450],34, C_text("chicken.compiler.support#copy-node"));
lf[452]=C_h_intern(&lf[452],13, C_text("scheme#values"));
lf[454]=C_h_intern(&lf[454],3, C_text("..."));
lf[455]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[456]=C_h_intern(&lf[456],9, C_text("&optional"));
lf[457]=C_h_intern(&lf[457],5, C_text("&rest"));
lf[458]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[459]=C_h_intern(&lf[459],5, C_text("#!key"));
lf[460]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[461]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001u8vector\376\003\000\000\002\376\001\000\000\010\001s8vector\376\003\000\000\002\376\001\000\000\011\001u16vector\376\003\000\000\002\376\001\000\000\011\001s16vector\376\003"
"\000\000\002\376\001\000\000\011\001u32vector\376\003\000\000\002\376\001\000\000\011\001s32vector\376\003\000\000\002\376\001\000\000\011\001u64vector\376\003\000\000\002\376\001\000\000\011\001s64vector\376\003"
"\000\000\002\376\001\000\000\011\001f32vector\376\003\000\000\002\376\001\000\000\011\001f64vector\376\003\000\000\002\376\001\000\000\006\001thread\376\003\000\000\002\376\001\000\000\005\001queue\376\003\000\000\002\376\001\000\000"
"\013\001environment\376\003\000\000\002\376\001\000\000\004\001time\376\003\000\000\002\376\001\000\000\014\001continuation\376\003\000\000\002\376\001\000\000\004\001lock\376\003\000\000\002\376\001\000\000\004\001mma"
"p\376\003\000\000\002\376\001\000\000\011\001condition\376\003\000\000\002\376\001\000\000\012\001hash-table\376\003\000\000\002\376\001\000\000\014\001tcp-listener\376\377\016"));
lf[462]=C_h_intern(&lf[462],9, C_text("immediate"));
lf[463]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\003\001eof\376\003\000\000\002\376\001\000\000\004\001null\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\004\001char\376\003\000\000\002\376"
"\001\000\000\007\001boolean\376\377\016"));
lf[464]=C_h_intern(&lf[464],3, C_text("any"));
lf[465]=C_h_intern(&lf[465],4, C_text("void"));
lf[466]=C_h_intern(&lf[466],10, C_text("input-port"));
lf[467]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001refine\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001input\376\377\016\376\003\000\000\002\376\001\000\000\004\001port\376\377\016"));
lf[468]=C_h_intern(&lf[468],11, C_text("output-port"));
lf[469]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001refine\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001output\376\377\016\376\003\000\000\002\376\001\000\000\004\001port\376\377\016"));
lf[470]=C_h_intern(&lf[470],14, C_text("scheme#symbol\077"));
lf[471]=C_h_intern(&lf[471],3, C_text("-->"));
lf[472]=C_h_intern(&lf[472],1, C_text(":"));
lf[473]=C_h_intern(&lf[473],2, C_text("->"));
lf[474]=C_h_intern(&lf[474],9, C_text("##sys#get"));
lf[475]=C_h_intern(&lf[475],28, C_text("##compiler#type-abbreviation"));
lf[476]=C_h_intern(&lf[476],18, C_text("chicken.plist#put!"));
lf[477]=C_h_intern(&lf[477],21, C_text("scheme#symbol->string"));
lf[478]=C_h_intern(&lf[478],27, C_text("chicken.syntax#strip-syntax"));
lf[479]=C_h_intern(&lf[479],52, C_text("chicken.compiler.scrutinizer#check-and-validate-type"));
lf[480]=C_h_intern(&lf[480],18, C_text("chicken.base#error"));
lf[481]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026invalid type specifier"));
lf[482]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035invalid specialization format"));
lf[483]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047invalid argument type in specialization"));
lf[484]=C_decode_literal(C_heaptop,C_text("\376B\000\000%invalid result type in specialization"));
lf[485]=C_h_intern(&lf[485],15, C_text("##sys#substring"));
lf[487]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006vector"));
lf[488]=C_h_intern(&lf[488],10, C_text("##sys#slot"));
lf[489]=C_h_intern(&lf[489],8, C_text("not-used"));
lf[490]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004list"));
lf[491]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004list"));
lf[492]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002  "));
lf[493]=C_h_intern(&lf[493],19, C_text("##sys#string-append"));
lf[494]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012"));
lf[495]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[496]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012"));
lf[497]=C_h_intern(&lf[497],27, C_text("chicken.string#string-split"));
lf[498]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012"));
lf[499]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/"));
lf[500]=C_h_intern_kw(&lf[500],2, C_text("tv"));
lf[501]=C_h_intern(&lf[501],11, C_text("##sys#error"));
lf[502]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037type->pp-string: unhandled type"));
lf[503]=C_h_intern(&lf[503],27, C_text("chicken.string#string-chomp"));
lf[504]=C_h_intern(&lf[504],34, C_text("chicken.port#with-output-to-string"));
lf[505]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001...\376\377\016"));
lf[506]=C_h_intern(&lf[506],46, C_text("chicken.compiler.support#build-expression-tree"));
lf[507]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[508]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\047,"));
lf[509]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011In file `"));
lf[510]=C_h_intern(&lf[510],42, C_text("chicken.compiler.support#source-info->line"));
lf[511]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002  "));
lf[512]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021At the toplevel,\012"));
lf[513]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[514]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012"));
lf[516]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\047,"));
lf[517]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In procedure `"));
lf[518]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\047,"));
lf[519]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013In module `"));
lf[520]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[521]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030In a toplevel procedure,"));
lf[522]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\047,"));
lf[523]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In procedure `"));
lf[524]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025In a local procedure,"));
lf[525]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001#"));
lf[526]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017\047 from module `"));
lf[527]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027This is the expression:"));
lf[528]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[529]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[530]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047It is a call to ~a which has this type:"));
lf[531]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[532]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[533]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[534]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[535]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[536]=C_h_intern(&lf[536],25, C_text("chicken.base#flush-output"));
lf[537]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002  "));
lf[538]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012"));
lf[539]=C_h_intern(&lf[539],22, C_text("chicken.format#fprintf"));
lf[540]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[541]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012"));
lf[542]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[543]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020Invalid argument"));
lf[544]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:"));
lf[545]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[546]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[547]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[548]=C_decode_literal(C_heaptop,C_text("\376B\000\0003Argument #~a to procedure `~a\047 has an invalid type:"));
lf[549]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[550]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[551]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[552]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025The expected type is:"));
lf[553]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[554]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[555]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[556]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[557]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[558]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033Procedure ~a has this type:"));
lf[559]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[560]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[561]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[562]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 `"));
lf[563]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:"));
lf[564]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[565]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[566]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[567]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036Argument #~a to procedure~a ~a"));
lf[568]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[569]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[570]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032Not enough argument values"));
lf[571]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033does not return any values."));
lf[572]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030Too many argument values"));
lf[573]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032 values but 1 is expected."));
lf[574]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010returns "));
lf[575]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021a negative index "));
lf[576]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\047."));
lf[577]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014 of length `"));
lf[578]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010\047 for a "));
lf[579]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007index `"));
lf[580]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:"));
lf[581]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[582]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[583]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[584]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036Procedure ~a is called with ~a"));
lf[585]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 index"));
lf[586]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011Negative "));
lf[587]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023 index out of range"));
lf[588]=C_h_intern(&lf[588],16, C_text("scheme#substring"));
lf[589]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017In conditional:"));
lf[590]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[591]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[592]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[593]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026The test expression ~a"));
lf[594]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[595]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[596]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033Zero values for conditional"));
lf[597]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021returns 0 values."));
lf[598]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037Too many values for conditional"));
lf[599]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 values."));
lf[600]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010returns "));
lf[601]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In let expression:"));
lf[602]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[603]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[604]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[605]=C_decode_literal(C_heaptop,C_text("\376B\000\000/Variable `~a\047 is bound to an expression that ~a"));
lf[606]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[607]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[608]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021returns 0 values."));
lf[609]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021\047 has zero values"));
lf[610]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020Let binding to `"));
lf[611]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 values."));
lf[612]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010returns "));
lf[613]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007 values"));
lf[614]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006\047 has "));
lf[615]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020Let binding to `"));
lf[616]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In assignment:"));
lf[617]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[618]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[619]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[620]=C_decode_literal(C_heaptop,C_text("\376B\000\0001Variable `~a\047 is assigned from expression that ~a"));
lf[621]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[622]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[623]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021returns 0 values."));
lf[624]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021\047 has zero values"));
lf[625]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017Assignment to `"));
lf[626]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 values."));
lf[627]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010returns "));
lf[628]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007 values"));
lf[629]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006\047 has "));
lf[630]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017Assignment to `"));
lf[631]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035The suggested alternative is "));
lf[632]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[633]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In expression:"));
lf[634]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[635]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[636]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%"));
lf[637]=C_decode_literal(C_heaptop,C_text("\376B\000\000 Use of deprecated identifier ~a."));
lf[638]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a"));
lf[639]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027Deprecated identifier `"));
lf[640]=C_h_intern(&lf[640],10, C_text("##sys#put!"));
lf[641]=C_h_intern(&lf[641],18, C_text("scheme#make-vector"));
lf[642]=C_h_intern(&lf[642],12, C_text("##sys#vector"));
lf[643]=C_h_intern(&lf[643],13, C_text("scheme#vector"));
lf[644]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001null\376\377\016"));
lf[645]=C_h_intern(&lf[645],10, C_text("##sys#list"));
lf[646]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001null\376\377\016"));
lf[647]=C_h_intern(&lf[647],11, C_text("scheme#list"));
lf[648]=C_h_intern(&lf[648],16, C_text("scheme#list-tail"));
lf[649]=C_h_intern(&lf[649],15, C_text("scheme#list-ref"));
lf[650]=C_h_intern(&lf[650],14, C_text("##sys#setislot"));
lf[651]=C_h_intern(&lf[651],13, C_text("##sys#setslot"));
lf[652]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001undefined\376\377\016"));
lf[653]=C_h_intern(&lf[653],18, C_text("scheme#vector-set!"));
lf[654]=C_h_intern(&lf[654],16, C_text("##sys#vector-ref"));
lf[655]=C_h_intern(&lf[655],17, C_text("scheme#vector-ref"));
lf[656]=C_h_intern(&lf[656],14, C_text("pointer-vector"));
lf[657]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001pointer-vector\376\377\016"));
lf[658]=C_h_intern(&lf[658],20, C_text("##sys#make-structure"));
C_register_lf2(lf,659,create_ptable());{}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6714,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[1322] = {
{C_text("f25856:scrutinizer_2escm"),(void*)f25856},
{C_text("f25963:scrutinizer_2escm"),(void*)f25963},
{C_text("f25978:scrutinizer_2escm"),(void*)f25978},
{C_text("f25985:scrutinizer_2escm"),(void*)f25985},
{C_text("f26227:scrutinizer_2escm"),(void*)f26227},
{C_text("f26375:scrutinizer_2escm"),(void*)f26375},
{C_text("f26440:scrutinizer_2escm"),(void*)f26440},
{C_text("f26447:scrutinizer_2escm"),(void*)f26447},
{C_text("f26593:scrutinizer_2escm"),(void*)f26593},
{C_text("f26598:scrutinizer_2escm"),(void*)f26598},
{C_text("f26607:scrutinizer_2escm"),(void*)f26607},
{C_text("f26614:scrutinizer_2escm"),(void*)f26614},
{C_text("f26653:scrutinizer_2escm"),(void*)f26653},
{C_text("f26658:scrutinizer_2escm"),(void*)f26658},
{C_text("f26663:scrutinizer_2escm"),(void*)f26663},
{C_text("f26670:scrutinizer_2escm"),(void*)f26670},
{C_text("f26677:scrutinizer_2escm"),(void*)f26677},
{C_text("f26684:scrutinizer_2escm"),(void*)f26684},
{C_text("f26691:scrutinizer_2escm"),(void*)f26691},
{C_text("f27968:scrutinizer_2escm"),(void*)f27968},
{C_text("f27973:scrutinizer_2escm"),(void*)f27973},
{C_text("f27992:scrutinizer_2escm"),(void*)f27992},
{C_text("f28220:scrutinizer_2escm"),(void*)f28220},
{C_text("f28225:scrutinizer_2escm"),(void*)f28225},
{C_text("f28230:scrutinizer_2escm"),(void*)f28230},
{C_text("f_10001:scrutinizer_2escm"),(void*)f_10001},
{C_text("f_10005:scrutinizer_2escm"),(void*)f_10005},
{C_text("f_10007:scrutinizer_2escm"),(void*)f_10007},
{C_text("f_10029:scrutinizer_2escm"),(void*)f_10029},
{C_text("f_10036:scrutinizer_2escm"),(void*)f_10036},
{C_text("f_10039:scrutinizer_2escm"),(void*)f_10039},
{C_text("f_10042:scrutinizer_2escm"),(void*)f_10042},
{C_text("f_10050:scrutinizer_2escm"),(void*)f_10050},
{C_text("f_10059:scrutinizer_2escm"),(void*)f_10059},
{C_text("f_10066:scrutinizer_2escm"),(void*)f_10066},
{C_text("f_10073:scrutinizer_2escm"),(void*)f_10073},
{C_text("f_10081:scrutinizer_2escm"),(void*)f_10081},
{C_text("f_10083:scrutinizer_2escm"),(void*)f_10083},
{C_text("f_10091:scrutinizer_2escm"),(void*)f_10091},
{C_text("f_10095:scrutinizer_2escm"),(void*)f_10095},
{C_text("f_10107:scrutinizer_2escm"),(void*)f_10107},
{C_text("f_10142:scrutinizer_2escm"),(void*)f_10142},
{C_text("f_10164:scrutinizer_2escm"),(void*)f_10164},
{C_text("f_10176:scrutinizer_2escm"),(void*)f_10176},
{C_text("f_10189:scrutinizer_2escm"),(void*)f_10189},
{C_text("f_10211:scrutinizer_2escm"),(void*)f_10211},
{C_text("f_10220:scrutinizer_2escm"),(void*)f_10220},
{C_text("f_10222:scrutinizer_2escm"),(void*)f_10222},
{C_text("f_10293:scrutinizer_2escm"),(void*)f_10293},
{C_text("f_10296:scrutinizer_2escm"),(void*)f_10296},
{C_text("f_10299:scrutinizer_2escm"),(void*)f_10299},
{C_text("f_10305:scrutinizer_2escm"),(void*)f_10305},
{C_text("f_10308:scrutinizer_2escm"),(void*)f_10308},
{C_text("f_10311:scrutinizer_2escm"),(void*)f_10311},
{C_text("f_10317:scrutinizer_2escm"),(void*)f_10317},
{C_text("f_10331:scrutinizer_2escm"),(void*)f_10331},
{C_text("f_10339:scrutinizer_2escm"),(void*)f_10339},
{C_text("f_10373:scrutinizer_2escm"),(void*)f_10373},
{C_text("f_10422:scrutinizer_2escm"),(void*)f_10422},
{C_text("f_10437:scrutinizer_2escm"),(void*)f_10437},
{C_text("f_10440:scrutinizer_2escm"),(void*)f_10440},
{C_text("f_10443:scrutinizer_2escm"),(void*)f_10443},
{C_text("f_10452:scrutinizer_2escm"),(void*)f_10452},
{C_text("f_10458:scrutinizer_2escm"),(void*)f_10458},
{C_text("f_10464:scrutinizer_2escm"),(void*)f_10464},
{C_text("f_10467:scrutinizer_2escm"),(void*)f_10467},
{C_text("f_10474:scrutinizer_2escm"),(void*)f_10474},
{C_text("f_10480:scrutinizer_2escm"),(void*)f_10480},
{C_text("f_10483:scrutinizer_2escm"),(void*)f_10483},
{C_text("f_10486:scrutinizer_2escm"),(void*)f_10486},
{C_text("f_10489:scrutinizer_2escm"),(void*)f_10489},
{C_text("f_10492:scrutinizer_2escm"),(void*)f_10492},
{C_text("f_10495:scrutinizer_2escm"),(void*)f_10495},
{C_text("f_10503:scrutinizer_2escm"),(void*)f_10503},
{C_text("f_10523:scrutinizer_2escm"),(void*)f_10523},
{C_text("f_10527:scrutinizer_2escm"),(void*)f_10527},
{C_text("f_10556:scrutinizer_2escm"),(void*)f_10556},
{C_text("f_10563:scrutinizer_2escm"),(void*)f_10563},
{C_text("f_10566:scrutinizer_2escm"),(void*)f_10566},
{C_text("f_10586:scrutinizer_2escm"),(void*)f_10586},
{C_text("f_10593:scrutinizer_2escm"),(void*)f_10593},
{C_text("f_10615:scrutinizer_2escm"),(void*)f_10615},
{C_text("f_10619:scrutinizer_2escm"),(void*)f_10619},
{C_text("f_10626:scrutinizer_2escm"),(void*)f_10626},
{C_text("f_10628:scrutinizer_2escm"),(void*)f_10628},
{C_text("f_10655:scrutinizer_2escm"),(void*)f_10655},
{C_text("f_10662:scrutinizer_2escm"),(void*)f_10662},
{C_text("f_10678:scrutinizer_2escm"),(void*)f_10678},
{C_text("f_10682:scrutinizer_2escm"),(void*)f_10682},
{C_text("f_10684:scrutinizer_2escm"),(void*)f_10684},
{C_text("f_10691:scrutinizer_2escm"),(void*)f_10691},
{C_text("f_10697:scrutinizer_2escm"),(void*)f_10697},
{C_text("f_10703:scrutinizer_2escm"),(void*)f_10703},
{C_text("f_10706:scrutinizer_2escm"),(void*)f_10706},
{C_text("f_10709:scrutinizer_2escm"),(void*)f_10709},
{C_text("f_10712:scrutinizer_2escm"),(void*)f_10712},
{C_text("f_10717:scrutinizer_2escm"),(void*)f_10717},
{C_text("f_10723:scrutinizer_2escm"),(void*)f_10723},
{C_text("f_10726:scrutinizer_2escm"),(void*)f_10726},
{C_text("f_10733:scrutinizer_2escm"),(void*)f_10733},
{C_text("f_10736:scrutinizer_2escm"),(void*)f_10736},
{C_text("f_10761:scrutinizer_2escm"),(void*)f_10761},
{C_text("f_10765:scrutinizer_2escm"),(void*)f_10765},
{C_text("f_10771:scrutinizer_2escm"),(void*)f_10771},
{C_text("f_10774:scrutinizer_2escm"),(void*)f_10774},
{C_text("f_10784:scrutinizer_2escm"),(void*)f_10784},
{C_text("f_10796:scrutinizer_2escm"),(void*)f_10796},
{C_text("f_10821:scrutinizer_2escm"),(void*)f_10821},
{C_text("f_10838:scrutinizer_2escm"),(void*)f_10838},
{C_text("f_10851:scrutinizer_2escm"),(void*)f_10851},
{C_text("f_10854:scrutinizer_2escm"),(void*)f_10854},
{C_text("f_10857:scrutinizer_2escm"),(void*)f_10857},
{C_text("f_10863:scrutinizer_2escm"),(void*)f_10863},
{C_text("f_10869:scrutinizer_2escm"),(void*)f_10869},
{C_text("f_10875:scrutinizer_2escm"),(void*)f_10875},
{C_text("f_10881:scrutinizer_2escm"),(void*)f_10881},
{C_text("f_10904:scrutinizer_2escm"),(void*)f_10904},
{C_text("f_10919:scrutinizer_2escm"),(void*)f_10919},
{C_text("f_10925:scrutinizer_2escm"),(void*)f_10925},
{C_text("f_10931:scrutinizer_2escm"),(void*)f_10931},
{C_text("f_10947:scrutinizer_2escm"),(void*)f_10947},
{C_text("f_10953:scrutinizer_2escm"),(void*)f_10953},
{C_text("f_10957:scrutinizer_2escm"),(void*)f_10957},
{C_text("f_10965:scrutinizer_2escm"),(void*)f_10965},
{C_text("f_10987:scrutinizer_2escm"),(void*)f_10987},
{C_text("f_10998:scrutinizer_2escm"),(void*)f_10998},
{C_text("f_11002:scrutinizer_2escm"),(void*)f_11002},
{C_text("f_11011:scrutinizer_2escm"),(void*)f_11011},
{C_text("f_11014:scrutinizer_2escm"),(void*)f_11014},
{C_text("f_11024:scrutinizer_2escm"),(void*)f_11024},
{C_text("f_11036:scrutinizer_2escm"),(void*)f_11036},
{C_text("f_11061:scrutinizer_2escm"),(void*)f_11061},
{C_text("f_11070:scrutinizer_2escm"),(void*)f_11070},
{C_text("f_11080:scrutinizer_2escm"),(void*)f_11080},
{C_text("f_11109:scrutinizer_2escm"),(void*)f_11109},
{C_text("f_11111:scrutinizer_2escm"),(void*)f_11111},
{C_text("f_11119:scrutinizer_2escm"),(void*)f_11119},
{C_text("f_11127:scrutinizer_2escm"),(void*)f_11127},
{C_text("f_11144:scrutinizer_2escm"),(void*)f_11144},
{C_text("f_11146:scrutinizer_2escm"),(void*)f_11146},
{C_text("f_11184:scrutinizer_2escm"),(void*)f_11184},
{C_text("f_11213:scrutinizer_2escm"),(void*)f_11213},
{C_text("f_11242:scrutinizer_2escm"),(void*)f_11242},
{C_text("f_11248:scrutinizer_2escm"),(void*)f_11248},
{C_text("f_11267:scrutinizer_2escm"),(void*)f_11267},
{C_text("f_11273:scrutinizer_2escm"),(void*)f_11273},
{C_text("f_11276:scrutinizer_2escm"),(void*)f_11276},
{C_text("f_11298:scrutinizer_2escm"),(void*)f_11298},
{C_text("f_11330:scrutinizer_2escm"),(void*)f_11330},
{C_text("f_11333:scrutinizer_2escm"),(void*)f_11333},
{C_text("f_11346:scrutinizer_2escm"),(void*)f_11346},
{C_text("f_11367:scrutinizer_2escm"),(void*)f_11367},
{C_text("f_11373:scrutinizer_2escm"),(void*)f_11373},
{C_text("f_11376:scrutinizer_2escm"),(void*)f_11376},
{C_text("f_11386:scrutinizer_2escm"),(void*)f_11386},
{C_text("f_11405:scrutinizer_2escm"),(void*)f_11405},
{C_text("f_11430:scrutinizer_2escm"),(void*)f_11430},
{C_text("f_11440:scrutinizer_2escm"),(void*)f_11440},
{C_text("f_11442:scrutinizer_2escm"),(void*)f_11442},
{C_text("f_11452:scrutinizer_2escm"),(void*)f_11452},
{C_text("f_11513:scrutinizer_2escm"),(void*)f_11513},
{C_text("f_11516:scrutinizer_2escm"),(void*)f_11516},
{C_text("f_11519:scrutinizer_2escm"),(void*)f_11519},
{C_text("f_11522:scrutinizer_2escm"),(void*)f_11522},
{C_text("f_11525:scrutinizer_2escm"),(void*)f_11525},
{C_text("f_11531:scrutinizer_2escm"),(void*)f_11531},
{C_text("f_11554:scrutinizer_2escm"),(void*)f_11554},
{C_text("f_11558:scrutinizer_2escm"),(void*)f_11558},
{C_text("f_11566:scrutinizer_2escm"),(void*)f_11566},
{C_text("f_11569:scrutinizer_2escm"),(void*)f_11569},
{C_text("f_11572:scrutinizer_2escm"),(void*)f_11572},
{C_text("f_11575:scrutinizer_2escm"),(void*)f_11575},
{C_text("f_11592:scrutinizer_2escm"),(void*)f_11592},
{C_text("f_11602:scrutinizer_2escm"),(void*)f_11602},
{C_text("f_11629:scrutinizer_2escm"),(void*)f_11629},
{C_text("f_11631:scrutinizer_2escm"),(void*)f_11631},
{C_text("f_11637:scrutinizer_2escm"),(void*)f_11637},
{C_text("f_11647:scrutinizer_2escm"),(void*)f_11647},
{C_text("f_11659:scrutinizer_2escm"),(void*)f_11659},
{C_text("f_11667:scrutinizer_2escm"),(void*)f_11667},
{C_text("f_11687:scrutinizer_2escm"),(void*)f_11687},
{C_text("f_11700:scrutinizer_2escm"),(void*)f_11700},
{C_text("f_11712:scrutinizer_2escm"),(void*)f_11712},
{C_text("f_11719:scrutinizer_2escm"),(void*)f_11719},
{C_text("f_11721:scrutinizer_2escm"),(void*)f_11721},
{C_text("f_11746:scrutinizer_2escm"),(void*)f_11746},
{C_text("f_11768:scrutinizer_2escm"),(void*)f_11768},
{C_text("f_11781:scrutinizer_2escm"),(void*)f_11781},
{C_text("f_11802:scrutinizer_2escm"),(void*)f_11802},
{C_text("f_11827:scrutinizer_2escm"),(void*)f_11827},
{C_text("f_11831:scrutinizer_2escm"),(void*)f_11831},
{C_text("f_11842:scrutinizer_2escm"),(void*)f_11842},
{C_text("f_11851:scrutinizer_2escm"),(void*)f_11851},
{C_text("f_11948:scrutinizer_2escm"),(void*)f_11948},
{C_text("f_11973:scrutinizer_2escm"),(void*)f_11973},
{C_text("f_11979:scrutinizer_2escm"),(void*)f_11979},
{C_text("f_11995:scrutinizer_2escm"),(void*)f_11995},
{C_text("f_12002:scrutinizer_2escm"),(void*)f_12002},
{C_text("f_12019:scrutinizer_2escm"),(void*)f_12019},
{C_text("f_12036:scrutinizer_2escm"),(void*)f_12036},
{C_text("f_12079:scrutinizer_2escm"),(void*)f_12079},
{C_text("f_12104:scrutinizer_2escm"),(void*)f_12104},
{C_text("f_12110:scrutinizer_2escm"),(void*)f_12110},
{C_text("f_12115:scrutinizer_2escm"),(void*)f_12115},
{C_text("f_12121:scrutinizer_2escm"),(void*)f_12121},
{C_text("f_12126:scrutinizer_2escm"),(void*)f_12126},
{C_text("f_12132:scrutinizer_2escm"),(void*)f_12132},
{C_text("f_12145:scrutinizer_2escm"),(void*)f_12145},
{C_text("f_12162:scrutinizer_2escm"),(void*)f_12162},
{C_text("f_12179:scrutinizer_2escm"),(void*)f_12179},
{C_text("f_12192:scrutinizer_2escm"),(void*)f_12192},
{C_text("f_12220:scrutinizer_2escm"),(void*)f_12220},
{C_text("f_12233:scrutinizer_2escm"),(void*)f_12233},
{C_text("f_12270:scrutinizer_2escm"),(void*)f_12270},
{C_text("f_12311:scrutinizer_2escm"),(void*)f_12311},
{C_text("f_12324:scrutinizer_2escm"),(void*)f_12324},
{C_text("f_12354:scrutinizer_2escm"),(void*)f_12354},
{C_text("f_12424:scrutinizer_2escm"),(void*)f_12424},
{C_text("f_12428:scrutinizer_2escm"),(void*)f_12428},
{C_text("f_12438:scrutinizer_2escm"),(void*)f_12438},
{C_text("f_12442:scrutinizer_2escm"),(void*)f_12442},
{C_text("f_12463:scrutinizer_2escm"),(void*)f_12463},
{C_text("f_12468:scrutinizer_2escm"),(void*)f_12468},
{C_text("f_12472:scrutinizer_2escm"),(void*)f_12472},
{C_text("f_12475:scrutinizer_2escm"),(void*)f_12475},
{C_text("f_12484:scrutinizer_2escm"),(void*)f_12484},
{C_text("f_12504:scrutinizer_2escm"),(void*)f_12504},
{C_text("f_12509:scrutinizer_2escm"),(void*)f_12509},
{C_text("f_12513:scrutinizer_2escm"),(void*)f_12513},
{C_text("f_12516:scrutinizer_2escm"),(void*)f_12516},
{C_text("f_12525:scrutinizer_2escm"),(void*)f_12525},
{C_text("f_12543:scrutinizer_2escm"),(void*)f_12543},
{C_text("f_12562:scrutinizer_2escm"),(void*)f_12562},
{C_text("f_12678:scrutinizer_2escm"),(void*)f_12678},
{C_text("f_12690:scrutinizer_2escm"),(void*)f_12690},
{C_text("f_12693:scrutinizer_2escm"),(void*)f_12693},
{C_text("f_12696:scrutinizer_2escm"),(void*)f_12696},
{C_text("f_12699:scrutinizer_2escm"),(void*)f_12699},
{C_text("f_12705:scrutinizer_2escm"),(void*)f_12705},
{C_text("f_12798:scrutinizer_2escm"),(void*)f_12798},
{C_text("f_12908:scrutinizer_2escm"),(void*)f_12908},
{C_text("f_12941:scrutinizer_2escm"),(void*)f_12941},
{C_text("f_13010:scrutinizer_2escm"),(void*)f_13010},
{C_text("f_13043:scrutinizer_2escm"),(void*)f_13043},
{C_text("f_13117:scrutinizer_2escm"),(void*)f_13117},
{C_text("f_13151:scrutinizer_2escm"),(void*)f_13151},
{C_text("f_13193:scrutinizer_2escm"),(void*)f_13193},
{C_text("f_13227:scrutinizer_2escm"),(void*)f_13227},
{C_text("f_13415:scrutinizer_2escm"),(void*)f_13415},
{C_text("f_13421:scrutinizer_2escm"),(void*)f_13421},
{C_text("f_13454:scrutinizer_2escm"),(void*)f_13454},
{C_text("f_13468:scrutinizer_2escm"),(void*)f_13468},
{C_text("f_13487:scrutinizer_2escm"),(void*)f_13487},
{C_text("f_13490:scrutinizer_2escm"),(void*)f_13490},
{C_text("f_13496:scrutinizer_2escm"),(void*)f_13496},
{C_text("f_13517:scrutinizer_2escm"),(void*)f_13517},
{C_text("f_13521:scrutinizer_2escm"),(void*)f_13521},
{C_text("f_13532:scrutinizer_2escm"),(void*)f_13532},
{C_text("f_13534:scrutinizer_2escm"),(void*)f_13534},
{C_text("f_13569:scrutinizer_2escm"),(void*)f_13569},
{C_text("f_13571:scrutinizer_2escm"),(void*)f_13571},
{C_text("f_13612:scrutinizer_2escm"),(void*)f_13612},
{C_text("f_13640:scrutinizer_2escm"),(void*)f_13640},
{C_text("f_13646:scrutinizer_2escm"),(void*)f_13646},
{C_text("f_13658:scrutinizer_2escm"),(void*)f_13658},
{C_text("f_13678:scrutinizer_2escm"),(void*)f_13678},
{C_text("f_13681:scrutinizer_2escm"),(void*)f_13681},
{C_text("f_13684:scrutinizer_2escm"),(void*)f_13684},
{C_text("f_13687:scrutinizer_2escm"),(void*)f_13687},
{C_text("f_13690:scrutinizer_2escm"),(void*)f_13690},
{C_text("f_13693:scrutinizer_2escm"),(void*)f_13693},
{C_text("f_13700:scrutinizer_2escm"),(void*)f_13700},
{C_text("f_13708:scrutinizer_2escm"),(void*)f_13708},
{C_text("f_13712:scrutinizer_2escm"),(void*)f_13712},
{C_text("f_13727:scrutinizer_2escm"),(void*)f_13727},
{C_text("f_13733:scrutinizer_2escm"),(void*)f_13733},
{C_text("f_13743:scrutinizer_2escm"),(void*)f_13743},
{C_text("f_13749:scrutinizer_2escm"),(void*)f_13749},
{C_text("f_13755:scrutinizer_2escm"),(void*)f_13755},
{C_text("f_13758:scrutinizer_2escm"),(void*)f_13758},
{C_text("f_13761:scrutinizer_2escm"),(void*)f_13761},
{C_text("f_13778:scrutinizer_2escm"),(void*)f_13778},
{C_text("f_13803:scrutinizer_2escm"),(void*)f_13803},
{C_text("f_13814:scrutinizer_2escm"),(void*)f_13814},
{C_text("f_13832:scrutinizer_2escm"),(void*)f_13832},
{C_text("f_13842:scrutinizer_2escm"),(void*)f_13842},
{C_text("f_13858:scrutinizer_2escm"),(void*)f_13858},
{C_text("f_13862:scrutinizer_2escm"),(void*)f_13862},
{C_text("f_13920:scrutinizer_2escm"),(void*)f_13920},
{C_text("f_13922:scrutinizer_2escm"),(void*)f_13922},
{C_text("f_13947:scrutinizer_2escm"),(void*)f_13947},
{C_text("f_13966:scrutinizer_2escm"),(void*)f_13966},
{C_text("f_13985:scrutinizer_2escm"),(void*)f_13985},
{C_text("f_14000:scrutinizer_2escm"),(void*)f_14000},
{C_text("f_14013:scrutinizer_2escm"),(void*)f_14013},
{C_text("f_14016:scrutinizer_2escm"),(void*)f_14016},
{C_text("f_14052:scrutinizer_2escm"),(void*)f_14052},
{C_text("f_14076:scrutinizer_2escm"),(void*)f_14076},
{C_text("f_14117:scrutinizer_2escm"),(void*)f_14117},
{C_text("f_14119:scrutinizer_2escm"),(void*)f_14119},
{C_text("f_14144:scrutinizer_2escm"),(void*)f_14144},
{C_text("f_14173:scrutinizer_2escm"),(void*)f_14173},
{C_text("f_14175:scrutinizer_2escm"),(void*)f_14175},
{C_text("f_14200:scrutinizer_2escm"),(void*)f_14200},
{C_text("f_14234:scrutinizer_2escm"),(void*)f_14234},
{C_text("f_14248:scrutinizer_2escm"),(void*)f_14248},
{C_text("f_14273:scrutinizer_2escm"),(void*)f_14273},
{C_text("f_14293:scrutinizer_2escm"),(void*)f_14293},
{C_text("f_14295:scrutinizer_2escm"),(void*)f_14295},
{C_text("f_14320:scrutinizer_2escm"),(void*)f_14320},
{C_text("f_14373:scrutinizer_2escm"),(void*)f_14373},
{C_text("f_14378:scrutinizer_2escm"),(void*)f_14378},
{C_text("f_14387:scrutinizer_2escm"),(void*)f_14387},
{C_text("f_14404:scrutinizer_2escm"),(void*)f_14404},
{C_text("f_14406:scrutinizer_2escm"),(void*)f_14406},
{C_text("f_14421:scrutinizer_2escm"),(void*)f_14421},
{C_text("f_14429:scrutinizer_2escm"),(void*)f_14429},
{C_text("f_14456:scrutinizer_2escm"),(void*)f_14456},
{C_text("f_14502:scrutinizer_2escm"),(void*)f_14502},
{C_text("f_14551:scrutinizer_2escm"),(void*)f_14551},
{C_text("f_14555:scrutinizer_2escm"),(void*)f_14555},
{C_text("f_14601:scrutinizer_2escm"),(void*)f_14601},
{C_text("f_14605:scrutinizer_2escm"),(void*)f_14605},
{C_text("f_14631:scrutinizer_2escm"),(void*)f_14631},
{C_text("f_14637:scrutinizer_2escm"),(void*)f_14637},
{C_text("f_14663:scrutinizer_2escm"),(void*)f_14663},
{C_text("f_14667:scrutinizer_2escm"),(void*)f_14667},
{C_text("f_14694:scrutinizer_2escm"),(void*)f_14694},
{C_text("f_14698:scrutinizer_2escm"),(void*)f_14698},
{C_text("f_14701:scrutinizer_2escm"),(void*)f_14701},
{C_text("f_14726:scrutinizer_2escm"),(void*)f_14726},
{C_text("f_14732:scrutinizer_2escm"),(void*)f_14732},
{C_text("f_14738:scrutinizer_2escm"),(void*)f_14738},
{C_text("f_14753:scrutinizer_2escm"),(void*)f_14753},
{C_text("f_14757:scrutinizer_2escm"),(void*)f_14757},
{C_text("f_14762:scrutinizer_2escm"),(void*)f_14762},
{C_text("f_14781:scrutinizer_2escm"),(void*)f_14781},
{C_text("f_14790:scrutinizer_2escm"),(void*)f_14790},
{C_text("f_14794:scrutinizer_2escm"),(void*)f_14794},
{C_text("f_14798:scrutinizer_2escm"),(void*)f_14798},
{C_text("f_14808:scrutinizer_2escm"),(void*)f_14808},
{C_text("f_14812:scrutinizer_2escm"),(void*)f_14812},
{C_text("f_14828:scrutinizer_2escm"),(void*)f_14828},
{C_text("f_14855:scrutinizer_2escm"),(void*)f_14855},
{C_text("f_14879:scrutinizer_2escm"),(void*)f_14879},
{C_text("f_14888:scrutinizer_2escm"),(void*)f_14888},
{C_text("f_14899:scrutinizer_2escm"),(void*)f_14899},
{C_text("f_14913:scrutinizer_2escm"),(void*)f_14913},
{C_text("f_14931:scrutinizer_2escm"),(void*)f_14931},
{C_text("f_14937:scrutinizer_2escm"),(void*)f_14937},
{C_text("f_14944:scrutinizer_2escm"),(void*)f_14944},
{C_text("f_14973:scrutinizer_2escm"),(void*)f_14973},
{C_text("f_15052:scrutinizer_2escm"),(void*)f_15052},
{C_text("f_15082:scrutinizer_2escm"),(void*)f_15082},
{C_text("f_15085:scrutinizer_2escm"),(void*)f_15085},
{C_text("f_15103:scrutinizer_2escm"),(void*)f_15103},
{C_text("f_15155:scrutinizer_2escm"),(void*)f_15155},
{C_text("f_15206:scrutinizer_2escm"),(void*)f_15206},
{C_text("f_15263:scrutinizer_2escm"),(void*)f_15263},
{C_text("f_15320:scrutinizer_2escm"),(void*)f_15320},
{C_text("f_15329:scrutinizer_2escm"),(void*)f_15329},
{C_text("f_15339:scrutinizer_2escm"),(void*)f_15339},
{C_text("f_15346:scrutinizer_2escm"),(void*)f_15346},
{C_text("f_15348:scrutinizer_2escm"),(void*)f_15348},
{C_text("f_15427:scrutinizer_2escm"),(void*)f_15427},
{C_text("f_15483:scrutinizer_2escm"),(void*)f_15483},
{C_text("f_15516:scrutinizer_2escm"),(void*)f_15516},
{C_text("f_15543:scrutinizer_2escm"),(void*)f_15543},
{C_text("f_15554:scrutinizer_2escm"),(void*)f_15554},
{C_text("f_15576:scrutinizer_2escm"),(void*)f_15576},
{C_text("f_15584:scrutinizer_2escm"),(void*)f_15584},
{C_text("f_15586:scrutinizer_2escm"),(void*)f_15586},
{C_text("f_15612:scrutinizer_2escm"),(void*)f_15612},
{C_text("f_15671:scrutinizer_2escm"),(void*)f_15671},
{C_text("f_15724:scrutinizer_2escm"),(void*)f_15724},
{C_text("f_15744:scrutinizer_2escm"),(void*)f_15744},
{C_text("f_15803:scrutinizer_2escm"),(void*)f_15803},
{C_text("f_15847:scrutinizer_2escm"),(void*)f_15847},
{C_text("f_15886:scrutinizer_2escm"),(void*)f_15886},
{C_text("f_15889:scrutinizer_2escm"),(void*)f_15889},
{C_text("f_15894:scrutinizer_2escm"),(void*)f_15894},
{C_text("f_15898:scrutinizer_2escm"),(void*)f_15898},
{C_text("f_15900:scrutinizer_2escm"),(void*)f_15900},
{C_text("f_15945:scrutinizer_2escm"),(void*)f_15945},
{C_text("f_15962:scrutinizer_2escm"),(void*)f_15962},
{C_text("f_15972:scrutinizer_2escm"),(void*)f_15972},
{C_text("f_15989:scrutinizer_2escm"),(void*)f_15989},
{C_text("f_15999:scrutinizer_2escm"),(void*)f_15999},
{C_text("f_16019:scrutinizer_2escm"),(void*)f_16019},
{C_text("f_16035:scrutinizer_2escm"),(void*)f_16035},
{C_text("f_16045:scrutinizer_2escm"),(void*)f_16045},
{C_text("f_16062:scrutinizer_2escm"),(void*)f_16062},
{C_text("f_16072:scrutinizer_2escm"),(void*)f_16072},
{C_text("f_16104:scrutinizer_2escm"),(void*)f_16104},
{C_text("f_16146:scrutinizer_2escm"),(void*)f_16146},
{C_text("f_16148:scrutinizer_2escm"),(void*)f_16148},
{C_text("f_16173:scrutinizer_2escm"),(void*)f_16173},
{C_text("f_16195:scrutinizer_2escm"),(void*)f_16195},
{C_text("f_16205:scrutinizer_2escm"),(void*)f_16205},
{C_text("f_16226:scrutinizer_2escm"),(void*)f_16226},
{C_text("f_16232:scrutinizer_2escm"),(void*)f_16232},
{C_text("f_16264:scrutinizer_2escm"),(void*)f_16264},
{C_text("f_16267:scrutinizer_2escm"),(void*)f_16267},
{C_text("f_16269:scrutinizer_2escm"),(void*)f_16269},
{C_text("f_16277:scrutinizer_2escm"),(void*)f_16277},
{C_text("f_16279:scrutinizer_2escm"),(void*)f_16279},
{C_text("f_16287:scrutinizer_2escm"),(void*)f_16287},
{C_text("f_16368:scrutinizer_2escm"),(void*)f_16368},
{C_text("f_16379:scrutinizer_2escm"),(void*)f_16379},
{C_text("f_16381:scrutinizer_2escm"),(void*)f_16381},
{C_text("f_16406:scrutinizer_2escm"),(void*)f_16406},
{C_text("f_16426:scrutinizer_2escm"),(void*)f_16426},
{C_text("f_16452:scrutinizer_2escm"),(void*)f_16452},
{C_text("f_16465:scrutinizer_2escm"),(void*)f_16465},
{C_text("f_16475:scrutinizer_2escm"),(void*)f_16475},
{C_text("f_16486:scrutinizer_2escm"),(void*)f_16486},
{C_text("f_16488:scrutinizer_2escm"),(void*)f_16488},
{C_text("f_16513:scrutinizer_2escm"),(void*)f_16513},
{C_text("f_16529:scrutinizer_2escm"),(void*)f_16529},
{C_text("f_16532:scrutinizer_2escm"),(void*)f_16532},
{C_text("f_16535:scrutinizer_2escm"),(void*)f_16535},
{C_text("f_16542:scrutinizer_2escm"),(void*)f_16542},
{C_text("f_16554:scrutinizer_2escm"),(void*)f_16554},
{C_text("f_16558:scrutinizer_2escm"),(void*)f_16558},
{C_text("f_16565:scrutinizer_2escm"),(void*)f_16565},
{C_text("f_16577:scrutinizer_2escm"),(void*)f_16577},
{C_text("f_16602:scrutinizer_2escm"),(void*)f_16602},
{C_text("f_16611:scrutinizer_2escm"),(void*)f_16611},
{C_text("f_16639:scrutinizer_2escm"),(void*)f_16639},
{C_text("f_16658:scrutinizer_2escm"),(void*)f_16658},
{C_text("f_16667:scrutinizer_2escm"),(void*)f_16667},
{C_text("f_16671:scrutinizer_2escm"),(void*)f_16671},
{C_text("f_16734:scrutinizer_2escm"),(void*)f_16734},
{C_text("f_16738:scrutinizer_2escm"),(void*)f_16738},
{C_text("f_16741:scrutinizer_2escm"),(void*)f_16741},
{C_text("f_16747:scrutinizer_2escm"),(void*)f_16747},
{C_text("f_16752:scrutinizer_2escm"),(void*)f_16752},
{C_text("f_16757:scrutinizer_2escm"),(void*)f_16757},
{C_text("f_16766:scrutinizer_2escm"),(void*)f_16766},
{C_text("f_16772:scrutinizer_2escm"),(void*)f_16772},
{C_text("f_16777:scrutinizer_2escm"),(void*)f_16777},
{C_text("f_16783:scrutinizer_2escm"),(void*)f_16783},
{C_text("f_16787:scrutinizer_2escm"),(void*)f_16787},
{C_text("f_16790:scrutinizer_2escm"),(void*)f_16790},
{C_text("f_16793:scrutinizer_2escm"),(void*)f_16793},
{C_text("f_16796:scrutinizer_2escm"),(void*)f_16796},
{C_text("f_16805:scrutinizer_2escm"),(void*)f_16805},
{C_text("f_16812:scrutinizer_2escm"),(void*)f_16812},
{C_text("f_16816:scrutinizer_2escm"),(void*)f_16816},
{C_text("f_16820:scrutinizer_2escm"),(void*)f_16820},
{C_text("f_16824:scrutinizer_2escm"),(void*)f_16824},
{C_text("f_16831:scrutinizer_2escm"),(void*)f_16831},
{C_text("f_16838:scrutinizer_2escm"),(void*)f_16838},
{C_text("f_16844:scrutinizer_2escm"),(void*)f_16844},
{C_text("f_16847:scrutinizer_2escm"),(void*)f_16847},
{C_text("f_16850:scrutinizer_2escm"),(void*)f_16850},
{C_text("f_16853:scrutinizer_2escm"),(void*)f_16853},
{C_text("f_16856:scrutinizer_2escm"),(void*)f_16856},
{C_text("f_16859:scrutinizer_2escm"),(void*)f_16859},
{C_text("f_16862:scrutinizer_2escm"),(void*)f_16862},
{C_text("f_16866:scrutinizer_2escm"),(void*)f_16866},
{C_text("f_16871:scrutinizer_2escm"),(void*)f_16871},
{C_text("f_16887:scrutinizer_2escm"),(void*)f_16887},
{C_text("f_16898:scrutinizer_2escm"),(void*)f_16898},
{C_text("f_16917:scrutinizer_2escm"),(void*)f_16917},
{C_text("f_16931:scrutinizer_2escm"),(void*)f_16931},
{C_text("f_16945:scrutinizer_2escm"),(void*)f_16945},
{C_text("f_16959:scrutinizer_2escm"),(void*)f_16959},
{C_text("f_16973:scrutinizer_2escm"),(void*)f_16973},
{C_text("f_17003:scrutinizer_2escm"),(void*)f_17003},
{C_text("f_17022:scrutinizer_2escm"),(void*)f_17022},
{C_text("f_17054:scrutinizer_2escm"),(void*)f_17054},
{C_text("f_17060:scrutinizer_2escm"),(void*)f_17060},
{C_text("f_17062:scrutinizer_2escm"),(void*)f_17062},
{C_text("f_17072:scrutinizer_2escm"),(void*)f_17072},
{C_text("f_17085:scrutinizer_2escm"),(void*)f_17085},
{C_text("f_17092:scrutinizer_2escm"),(void*)f_17092},
{C_text("f_17098:scrutinizer_2escm"),(void*)f_17098},
{C_text("f_17101:scrutinizer_2escm"),(void*)f_17101},
{C_text("f_17104:scrutinizer_2escm"),(void*)f_17104},
{C_text("f_17107:scrutinizer_2escm"),(void*)f_17107},
{C_text("f_17110:scrutinizer_2escm"),(void*)f_17110},
{C_text("f_17119:scrutinizer_2escm"),(void*)f_17119},
{C_text("f_17133:scrutinizer_2escm"),(void*)f_17133},
{C_text("f_17139:scrutinizer_2escm"),(void*)f_17139},
{C_text("f_17143:scrutinizer_2escm"),(void*)f_17143},
{C_text("f_17146:scrutinizer_2escm"),(void*)f_17146},
{C_text("f_17151:scrutinizer_2escm"),(void*)f_17151},
{C_text("f_17158:scrutinizer_2escm"),(void*)f_17158},
{C_text("f_17161:scrutinizer_2escm"),(void*)f_17161},
{C_text("f_17167:scrutinizer_2escm"),(void*)f_17167},
{C_text("f_17170:scrutinizer_2escm"),(void*)f_17170},
{C_text("f_17173:scrutinizer_2escm"),(void*)f_17173},
{C_text("f_17176:scrutinizer_2escm"),(void*)f_17176},
{C_text("f_17179:scrutinizer_2escm"),(void*)f_17179},
{C_text("f_17182:scrutinizer_2escm"),(void*)f_17182},
{C_text("f_17185:scrutinizer_2escm"),(void*)f_17185},
{C_text("f_17192:scrutinizer_2escm"),(void*)f_17192},
{C_text("f_17196:scrutinizer_2escm"),(void*)f_17196},
{C_text("f_17198:scrutinizer_2escm"),(void*)f_17198},
{C_text("f_17219:scrutinizer_2escm"),(void*)f_17219},
{C_text("f_17229:scrutinizer_2escm"),(void*)f_17229},
{C_text("f_17237:scrutinizer_2escm"),(void*)f_17237},
{C_text("f_17245:scrutinizer_2escm"),(void*)f_17245},
{C_text("f_17253:scrutinizer_2escm"),(void*)f_17253},
{C_text("f_17281:scrutinizer_2escm"),(void*)f_17281},
{C_text("f_17292:scrutinizer_2escm"),(void*)f_17292},
{C_text("f_17296:scrutinizer_2escm"),(void*)f_17296},
{C_text("f_17301:scrutinizer_2escm"),(void*)f_17301},
{C_text("f_17304:scrutinizer_2escm"),(void*)f_17304},
{C_text("f_17309:scrutinizer_2escm"),(void*)f_17309},
{C_text("f_17316:scrutinizer_2escm"),(void*)f_17316},
{C_text("f_17320:scrutinizer_2escm"),(void*)f_17320},
{C_text("f_17322:scrutinizer_2escm"),(void*)f_17322},
{C_text("f_17329:scrutinizer_2escm"),(void*)f_17329},
{C_text("f_17349:scrutinizer_2escm"),(void*)f_17349},
{C_text("f_17355:scrutinizer_2escm"),(void*)f_17355},
{C_text("f_17363:scrutinizer_2escm"),(void*)f_17363},
{C_text("f_17367:scrutinizer_2escm"),(void*)f_17367},
{C_text("f_17374:scrutinizer_2escm"),(void*)f_17374},
{C_text("f_17380:scrutinizer_2escm"),(void*)f_17380},
{C_text("f_17382:scrutinizer_2escm"),(void*)f_17382},
{C_text("f_17407:scrutinizer_2escm"),(void*)f_17407},
{C_text("f_17424:scrutinizer_2escm"),(void*)f_17424},
{C_text("f_17430:scrutinizer_2escm"),(void*)f_17430},
{C_text("f_17439:scrutinizer_2escm"),(void*)f_17439},
{C_text("f_17478:scrutinizer_2escm"),(void*)f_17478},
{C_text("f_17484:scrutinizer_2escm"),(void*)f_17484},
{C_text("f_17487:scrutinizer_2escm"),(void*)f_17487},
{C_text("f_17534:scrutinizer_2escm"),(void*)f_17534},
{C_text("f_17544:scrutinizer_2escm"),(void*)f_17544},
{C_text("f_17571:scrutinizer_2escm"),(void*)f_17571},
{C_text("f_17575:scrutinizer_2escm"),(void*)f_17575},
{C_text("f_17635:scrutinizer_2escm"),(void*)f_17635},
{C_text("f_17637:scrutinizer_2escm"),(void*)f_17637},
{C_text("f_17646:scrutinizer_2escm"),(void*)f_17646},
{C_text("f_17664:scrutinizer_2escm"),(void*)f_17664},
{C_text("f_17668:scrutinizer_2escm"),(void*)f_17668},
{C_text("f_17674:scrutinizer_2escm"),(void*)f_17674},
{C_text("f_17702:scrutinizer_2escm"),(void*)f_17702},
{C_text("f_17733:scrutinizer_2escm"),(void*)f_17733},
{C_text("f_17765:scrutinizer_2escm"),(void*)f_17765},
{C_text("f_17792:scrutinizer_2escm"),(void*)f_17792},
{C_text("f_17795:scrutinizer_2escm"),(void*)f_17795},
{C_text("f_17832:scrutinizer_2escm"),(void*)f_17832},
{C_text("f_17890:scrutinizer_2escm"),(void*)f_17890},
{C_text("f_17924:scrutinizer_2escm"),(void*)f_17924},
{C_text("f_17956:scrutinizer_2escm"),(void*)f_17956},
{C_text("f_17961:scrutinizer_2escm"),(void*)f_17961},
{C_text("f_17965:scrutinizer_2escm"),(void*)f_17965},
{C_text("f_17976:scrutinizer_2escm"),(void*)f_17976},
{C_text("f_17978:scrutinizer_2escm"),(void*)f_17978},
{C_text("f_17994:scrutinizer_2escm"),(void*)f_17994},
{C_text("f_17997:scrutinizer_2escm"),(void*)f_17997},
{C_text("f_18013:scrutinizer_2escm"),(void*)f_18013},
{C_text("f_18060:scrutinizer_2escm"),(void*)f_18060},
{C_text("f_18062:scrutinizer_2escm"),(void*)f_18062},
{C_text("f_18087:scrutinizer_2escm"),(void*)f_18087},
{C_text("f_18106:scrutinizer_2escm"),(void*)f_18106},
{C_text("f_18110:scrutinizer_2escm"),(void*)f_18110},
{C_text("f_18148:scrutinizer_2escm"),(void*)f_18148},
{C_text("f_18154:scrutinizer_2escm"),(void*)f_18154},
{C_text("f_18159:scrutinizer_2escm"),(void*)f_18159},
{C_text("f_18184:scrutinizer_2escm"),(void*)f_18184},
{C_text("f_18260:scrutinizer_2escm"),(void*)f_18260},
{C_text("f_18290:scrutinizer_2escm"),(void*)f_18290},
{C_text("f_18302:scrutinizer_2escm"),(void*)f_18302},
{C_text("f_18329:scrutinizer_2escm"),(void*)f_18329},
{C_text("f_18332:scrutinizer_2escm"),(void*)f_18332},
{C_text("f_18336:scrutinizer_2escm"),(void*)f_18336},
{C_text("f_18349:scrutinizer_2escm"),(void*)f_18349},
{C_text("f_18352:scrutinizer_2escm"),(void*)f_18352},
{C_text("f_18376:scrutinizer_2escm"),(void*)f_18376},
{C_text("f_18384:scrutinizer_2escm"),(void*)f_18384},
{C_text("f_18388:scrutinizer_2escm"),(void*)f_18388},
{C_text("f_18399:scrutinizer_2escm"),(void*)f_18399},
{C_text("f_18478:scrutinizer_2escm"),(void*)f_18478},
{C_text("f_18520:scrutinizer_2escm"),(void*)f_18520},
{C_text("f_18538:scrutinizer_2escm"),(void*)f_18538},
{C_text("f_18541:scrutinizer_2escm"),(void*)f_18541},
{C_text("f_18545:scrutinizer_2escm"),(void*)f_18545},
{C_text("f_18588:scrutinizer_2escm"),(void*)f_18588},
{C_text("f_18594:scrutinizer_2escm"),(void*)f_18594},
{C_text("f_18599:scrutinizer_2escm"),(void*)f_18599},
{C_text("f_18624:scrutinizer_2escm"),(void*)f_18624},
{C_text("f_18669:scrutinizer_2escm"),(void*)f_18669},
{C_text("f_18678:scrutinizer_2escm"),(void*)f_18678},
{C_text("f_18682:scrutinizer_2escm"),(void*)f_18682},
{C_text("f_18692:scrutinizer_2escm"),(void*)f_18692},
{C_text("f_18724:scrutinizer_2escm"),(void*)f_18724},
{C_text("f_18730:scrutinizer_2escm"),(void*)f_18730},
{C_text("f_18732:scrutinizer_2escm"),(void*)f_18732},
{C_text("f_18757:scrutinizer_2escm"),(void*)f_18757},
{C_text("f_18889:scrutinizer_2escm"),(void*)f_18889},
{C_text("f_18893:scrutinizer_2escm"),(void*)f_18893},
{C_text("f_18897:scrutinizer_2escm"),(void*)f_18897},
{C_text("f_18900:scrutinizer_2escm"),(void*)f_18900},
{C_text("f_18932:scrutinizer_2escm"),(void*)f_18932},
{C_text("f_18936:scrutinizer_2escm"),(void*)f_18936},
{C_text("f_18949:scrutinizer_2escm"),(void*)f_18949},
{C_text("f_18953:scrutinizer_2escm"),(void*)f_18953},
{C_text("f_18956:scrutinizer_2escm"),(void*)f_18956},
{C_text("f_18962:scrutinizer_2escm"),(void*)f_18962},
{C_text("f_18964:scrutinizer_2escm"),(void*)f_18964},
{C_text("f_18989:scrutinizer_2escm"),(void*)f_18989},
{C_text("f_19004:scrutinizer_2escm"),(void*)f_19004},
{C_text("f_19013:scrutinizer_2escm"),(void*)f_19013},
{C_text("f_19021:scrutinizer_2escm"),(void*)f_19021},
{C_text("f_19023:scrutinizer_2escm"),(void*)f_19023},
{C_text("f_19038:scrutinizer_2escm"),(void*)f_19038},
{C_text("f_19041:scrutinizer_2escm"),(void*)f_19041},
{C_text("f_19053:scrutinizer_2escm"),(void*)f_19053},
{C_text("f_19064:scrutinizer_2escm"),(void*)f_19064},
{C_text("f_19070:scrutinizer_2escm"),(void*)f_19070},
{C_text("f_19076:scrutinizer_2escm"),(void*)f_19076},
{C_text("f_19092:scrutinizer_2escm"),(void*)f_19092},
{C_text("f_19095:scrutinizer_2escm"),(void*)f_19095},
{C_text("f_19105:scrutinizer_2escm"),(void*)f_19105},
{C_text("f_19131:scrutinizer_2escm"),(void*)f_19131},
{C_text("f_19137:scrutinizer_2escm"),(void*)f_19137},
{C_text("f_19143:scrutinizer_2escm"),(void*)f_19143},
{C_text("f_19159:scrutinizer_2escm"),(void*)f_19159},
{C_text("f_19165:scrutinizer_2escm"),(void*)f_19165},
{C_text("f_19190:scrutinizer_2escm"),(void*)f_19190},
{C_text("f_19228:scrutinizer_2escm"),(void*)f_19228},
{C_text("f_19230:scrutinizer_2escm"),(void*)f_19230},
{C_text("f_19255:scrutinizer_2escm"),(void*)f_19255},
{C_text("f_19281:scrutinizer_2escm"),(void*)f_19281},
{C_text("f_19283:scrutinizer_2escm"),(void*)f_19283},
{C_text("f_19308:scrutinizer_2escm"),(void*)f_19308},
{C_text("f_19317:scrutinizer_2escm"),(void*)f_19317},
{C_text("f_19345:scrutinizer_2escm"),(void*)f_19345},
{C_text("f_19359:scrutinizer_2escm"),(void*)f_19359},
{C_text("f_19393:scrutinizer_2escm"),(void*)f_19393},
{C_text("f_19397:scrutinizer_2escm"),(void*)f_19397},
{C_text("f_19431:scrutinizer_2escm"),(void*)f_19431},
{C_text("f_19435:scrutinizer_2escm"),(void*)f_19435},
{C_text("f_19443:scrutinizer_2escm"),(void*)f_19443},
{C_text("f_19463:scrutinizer_2escm"),(void*)f_19463},
{C_text("f_19479:scrutinizer_2escm"),(void*)f_19479},
{C_text("f_19481:scrutinizer_2escm"),(void*)f_19481},
{C_text("f_19485:scrutinizer_2escm"),(void*)f_19485},
{C_text("f_19548:scrutinizer_2escm"),(void*)f_19548},
{C_text("f_19560:scrutinizer_2escm"),(void*)f_19560},
{C_text("f_19564:scrutinizer_2escm"),(void*)f_19564},
{C_text("f_19580:scrutinizer_2escm"),(void*)f_19580},
{C_text("f_19584:scrutinizer_2escm"),(void*)f_19584},
{C_text("f_19605:scrutinizer_2escm"),(void*)f_19605},
{C_text("f_19628:scrutinizer_2escm"),(void*)f_19628},
{C_text("f_19635:scrutinizer_2escm"),(void*)f_19635},
{C_text("f_19638:scrutinizer_2escm"),(void*)f_19638},
{C_text("f_19641:scrutinizer_2escm"),(void*)f_19641},
{C_text("f_19694:scrutinizer_2escm"),(void*)f_19694},
{C_text("f_19704:scrutinizer_2escm"),(void*)f_19704},
{C_text("f_19731:scrutinizer_2escm"),(void*)f_19731},
{C_text("f_19749:scrutinizer_2escm"),(void*)f_19749},
{C_text("f_19826:scrutinizer_2escm"),(void*)f_19826},
{C_text("f_19828:scrutinizer_2escm"),(void*)f_19828},
{C_text("f_19832:scrutinizer_2escm"),(void*)f_19832},
{C_text("f_19835:scrutinizer_2escm"),(void*)f_19835},
{C_text("f_19881:scrutinizer_2escm"),(void*)f_19881},
{C_text("f_19884:scrutinizer_2escm"),(void*)f_19884},
{C_text("f_19890:scrutinizer_2escm"),(void*)f_19890},
{C_text("f_19894:scrutinizer_2escm"),(void*)f_19894},
{C_text("f_19898:scrutinizer_2escm"),(void*)f_19898},
{C_text("f_19905:scrutinizer_2escm"),(void*)f_19905},
{C_text("f_19909:scrutinizer_2escm"),(void*)f_19909},
{C_text("f_19921:scrutinizer_2escm"),(void*)f_19921},
{C_text("f_19924:scrutinizer_2escm"),(void*)f_19924},
{C_text("f_19927:scrutinizer_2escm"),(void*)f_19927},
{C_text("f_19930:scrutinizer_2escm"),(void*)f_19930},
{C_text("f_19933:scrutinizer_2escm"),(void*)f_19933},
{C_text("f_19936:scrutinizer_2escm"),(void*)f_19936},
{C_text("f_19939:scrutinizer_2escm"),(void*)f_19939},
{C_text("f_19941:scrutinizer_2escm"),(void*)f_19941},
{C_text("f_19950:scrutinizer_2escm"),(void*)f_19950},
{C_text("f_19960:scrutinizer_2escm"),(void*)f_19960},
{C_text("f_19982:scrutinizer_2escm"),(void*)f_19982},
{C_text("f_19992:scrutinizer_2escm"),(void*)f_19992},
{C_text("f_19995:scrutinizer_2escm"),(void*)f_19995},
{C_text("f_19997:scrutinizer_2escm"),(void*)f_19997},
{C_text("f_20041:scrutinizer_2escm"),(void*)f_20041},
{C_text("f_20058:scrutinizer_2escm"),(void*)f_20058},
{C_text("f_20064:scrutinizer_2escm"),(void*)f_20064},
{C_text("f_20071:scrutinizer_2escm"),(void*)f_20071},
{C_text("f_20095:scrutinizer_2escm"),(void*)f_20095},
{C_text("f_20104:scrutinizer_2escm"),(void*)f_20104},
{C_text("f_20107:scrutinizer_2escm"),(void*)f_20107},
{C_text("f_20111:scrutinizer_2escm"),(void*)f_20111},
{C_text("f_20115:scrutinizer_2escm"),(void*)f_20115},
{C_text("f_20127:scrutinizer_2escm"),(void*)f_20127},
{C_text("f_20157:scrutinizer_2escm"),(void*)f_20157},
{C_text("f_20171:scrutinizer_2escm"),(void*)f_20171},
{C_text("f_20175:scrutinizer_2escm"),(void*)f_20175},
{C_text("f_20179:scrutinizer_2escm"),(void*)f_20179},
{C_text("f_20202:scrutinizer_2escm"),(void*)f_20202},
{C_text("f_20204:scrutinizer_2escm"),(void*)f_20204},
{C_text("f_20207:scrutinizer_2escm"),(void*)f_20207},
{C_text("f_20216:scrutinizer_2escm"),(void*)f_20216},
{C_text("f_20267:scrutinizer_2escm"),(void*)f_20267},
{C_text("f_20271:scrutinizer_2escm"),(void*)f_20271},
{C_text("f_20275:scrutinizer_2escm"),(void*)f_20275},
{C_text("f_20279:scrutinizer_2escm"),(void*)f_20279},
{C_text("f_20287:scrutinizer_2escm"),(void*)f_20287},
{C_text("f_20289:scrutinizer_2escm"),(void*)f_20289},
{C_text("f_20313:scrutinizer_2escm"),(void*)f_20313},
{C_text("f_20338:scrutinizer_2escm"),(void*)f_20338},
{C_text("f_20349:scrutinizer_2escm"),(void*)f_20349},
{C_text("f_20359:scrutinizer_2escm"),(void*)f_20359},
{C_text("f_20361:scrutinizer_2escm"),(void*)f_20361},
{C_text("f_20386:scrutinizer_2escm"),(void*)f_20386},
{C_text("f_20403:scrutinizer_2escm"),(void*)f_20403},
{C_text("f_20405:scrutinizer_2escm"),(void*)f_20405},
{C_text("f_20419:scrutinizer_2escm"),(void*)f_20419},
{C_text("f_20435:scrutinizer_2escm"),(void*)f_20435},
{C_text("f_20454:scrutinizer_2escm"),(void*)f_20454},
{C_text("f_20460:scrutinizer_2escm"),(void*)f_20460},
{C_text("f_20462:scrutinizer_2escm"),(void*)f_20462},
{C_text("f_20472:scrutinizer_2escm"),(void*)f_20472},
{C_text("f_20492:scrutinizer_2escm"),(void*)f_20492},
{C_text("f_20495:scrutinizer_2escm"),(void*)f_20495},
{C_text("f_20506:scrutinizer_2escm"),(void*)f_20506},
{C_text("f_20509:scrutinizer_2escm"),(void*)f_20509},
{C_text("f_20529:scrutinizer_2escm"),(void*)f_20529},
{C_text("f_20536:scrutinizer_2escm"),(void*)f_20536},
{C_text("f_20539:scrutinizer_2escm"),(void*)f_20539},
{C_text("f_20565:scrutinizer_2escm"),(void*)f_20565},
{C_text("f_20578:scrutinizer_2escm"),(void*)f_20578},
{C_text("f_20580:scrutinizer_2escm"),(void*)f_20580},
{C_text("f_20605:scrutinizer_2escm"),(void*)f_20605},
{C_text("f_20620:scrutinizer_2escm"),(void*)f_20620},
{C_text("f_20627:scrutinizer_2escm"),(void*)f_20627},
{C_text("f_20630:scrutinizer_2escm"),(void*)f_20630},
{C_text("f_20637:scrutinizer_2escm"),(void*)f_20637},
{C_text("f_20646:scrutinizer_2escm"),(void*)f_20646},
{C_text("f_20652:scrutinizer_2escm"),(void*)f_20652},
{C_text("f_20665:scrutinizer_2escm"),(void*)f_20665},
{C_text("f_20681:scrutinizer_2escm"),(void*)f_20681},
{C_text("f_20687:scrutinizer_2escm"),(void*)f_20687},
{C_text("f_20690:scrutinizer_2escm"),(void*)f_20690},
{C_text("f_20693:scrutinizer_2escm"),(void*)f_20693},
{C_text("f_20696:scrutinizer_2escm"),(void*)f_20696},
{C_text("f_20704:scrutinizer_2escm"),(void*)f_20704},
{C_text("f_20717:scrutinizer_2escm"),(void*)f_20717},
{C_text("f_20719:scrutinizer_2escm"),(void*)f_20719},
{C_text("f_20744:scrutinizer_2escm"),(void*)f_20744},
{C_text("f_20760:scrutinizer_2escm"),(void*)f_20760},
{C_text("f_20772:scrutinizer_2escm"),(void*)f_20772},
{C_text("f_20781:scrutinizer_2escm"),(void*)f_20781},
{C_text("f_20790:scrutinizer_2escm"),(void*)f_20790},
{C_text("f_20849:scrutinizer_2escm"),(void*)f_20849},
{C_text("f_20851:scrutinizer_2escm"),(void*)f_20851},
{C_text("f_20876:scrutinizer_2escm"),(void*)f_20876},
{C_text("f_20901:scrutinizer_2escm"),(void*)f_20901},
{C_text("f_20907:scrutinizer_2escm"),(void*)f_20907},
{C_text("f_20910:scrutinizer_2escm"),(void*)f_20910},
{C_text("f_20913:scrutinizer_2escm"),(void*)f_20913},
{C_text("f_20944:scrutinizer_2escm"),(void*)f_20944},
{C_text("f_20947:scrutinizer_2escm"),(void*)f_20947},
{C_text("f_20950:scrutinizer_2escm"),(void*)f_20950},
{C_text("f_20967:scrutinizer_2escm"),(void*)f_20967},
{C_text("f_20992:scrutinizer_2escm"),(void*)f_20992},
{C_text("f_21001:scrutinizer_2escm"),(void*)f_21001},
{C_text("f_21026:scrutinizer_2escm"),(void*)f_21026},
{C_text("f_21063:scrutinizer_2escm"),(void*)f_21063},
{C_text("f_21070:scrutinizer_2escm"),(void*)f_21070},
{C_text("f_21074:scrutinizer_2escm"),(void*)f_21074},
{C_text("f_21076:scrutinizer_2escm"),(void*)f_21076},
{C_text("f_21084:scrutinizer_2escm"),(void*)f_21084},
{C_text("f_21086:scrutinizer_2escm"),(void*)f_21086},
{C_text("f_21090:scrutinizer_2escm"),(void*)f_21090},
{C_text("f_21095:scrutinizer_2escm"),(void*)f_21095},
{C_text("f_21121:scrutinizer_2escm"),(void*)f_21121},
{C_text("f_21126:scrutinizer_2escm"),(void*)f_21126},
{C_text("f_21138:scrutinizer_2escm"),(void*)f_21138},
{C_text("f_21163:scrutinizer_2escm"),(void*)f_21163},
{C_text("f_21180:scrutinizer_2escm"),(void*)f_21180},
{C_text("f_21189:scrutinizer_2escm"),(void*)f_21189},
{C_text("f_21191:scrutinizer_2escm"),(void*)f_21191},
{C_text("f_21199:scrutinizer_2escm"),(void*)f_21199},
{C_text("f_21203:scrutinizer_2escm"),(void*)f_21203},
{C_text("f_21205:scrutinizer_2escm"),(void*)f_21205},
{C_text("f_21213:scrutinizer_2escm"),(void*)f_21213},
{C_text("f_21215:scrutinizer_2escm"),(void*)f_21215},
{C_text("f_21219:scrutinizer_2escm"),(void*)f_21219},
{C_text("f_21228:scrutinizer_2escm"),(void*)f_21228},
{C_text("f_21234:scrutinizer_2escm"),(void*)f_21234},
{C_text("f_21237:scrutinizer_2escm"),(void*)f_21237},
{C_text("f_21240:scrutinizer_2escm"),(void*)f_21240},
{C_text("f_21245:scrutinizer_2escm"),(void*)f_21245},
{C_text("f_21258:scrutinizer_2escm"),(void*)f_21258},
{C_text("f_21264:scrutinizer_2escm"),(void*)f_21264},
{C_text("f_21267:scrutinizer_2escm"),(void*)f_21267},
{C_text("f_21270:scrutinizer_2escm"),(void*)f_21270},
{C_text("f_21277:scrutinizer_2escm"),(void*)f_21277},
{C_text("f_21295:scrutinizer_2escm"),(void*)f_21295},
{C_text("f_21309:scrutinizer_2escm"),(void*)f_21309},
{C_text("f_21313:scrutinizer_2escm"),(void*)f_21313},
{C_text("f_21317:scrutinizer_2escm"),(void*)f_21317},
{C_text("f_21323:scrutinizer_2escm"),(void*)f_21323},
{C_text("f_21331:scrutinizer_2escm"),(void*)f_21331},
{C_text("f_21337:scrutinizer_2escm"),(void*)f_21337},
{C_text("f_21345:scrutinizer_2escm"),(void*)f_21345},
{C_text("f_21349:scrutinizer_2escm"),(void*)f_21349},
{C_text("f_21355:scrutinizer_2escm"),(void*)f_21355},
{C_text("f_21358:scrutinizer_2escm"),(void*)f_21358},
{C_text("f_21361:scrutinizer_2escm"),(void*)f_21361},
{C_text("f_21364:scrutinizer_2escm"),(void*)f_21364},
{C_text("f_21367:scrutinizer_2escm"),(void*)f_21367},
{C_text("f_21373:scrutinizer_2escm"),(void*)f_21373},
{C_text("f_21376:scrutinizer_2escm"),(void*)f_21376},
{C_text("f_21379:scrutinizer_2escm"),(void*)f_21379},
{C_text("f_21382:scrutinizer_2escm"),(void*)f_21382},
{C_text("f_21385:scrutinizer_2escm"),(void*)f_21385},
{C_text("f_21401:scrutinizer_2escm"),(void*)f_21401},
{C_text("f_21415:scrutinizer_2escm"),(void*)f_21415},
{C_text("f_21419:scrutinizer_2escm"),(void*)f_21419},
{C_text("f_21422:scrutinizer_2escm"),(void*)f_21422},
{C_text("f_21435:scrutinizer_2escm"),(void*)f_21435},
{C_text("f_21439:scrutinizer_2escm"),(void*)f_21439},
{C_text("f_21454:scrutinizer_2escm"),(void*)f_21454},
{C_text("f_21466:scrutinizer_2escm"),(void*)f_21466},
{C_text("f_21472:scrutinizer_2escm"),(void*)f_21472},
{C_text("f_21478:scrutinizer_2escm"),(void*)f_21478},
{C_text("f_21485:scrutinizer_2escm"),(void*)f_21485},
{C_text("f_21491:scrutinizer_2escm"),(void*)f_21491},
{C_text("f_21494:scrutinizer_2escm"),(void*)f_21494},
{C_text("f_21497:scrutinizer_2escm"),(void*)f_21497},
{C_text("f_21500:scrutinizer_2escm"),(void*)f_21500},
{C_text("f_21503:scrutinizer_2escm"),(void*)f_21503},
{C_text("f_21509:scrutinizer_2escm"),(void*)f_21509},
{C_text("f_21515:scrutinizer_2escm"),(void*)f_21515},
{C_text("f_21518:scrutinizer_2escm"),(void*)f_21518},
{C_text("f_21521:scrutinizer_2escm"),(void*)f_21521},
{C_text("f_21526:scrutinizer_2escm"),(void*)f_21526},
{C_text("f_21529:scrutinizer_2escm"),(void*)f_21529},
{C_text("f_21537:scrutinizer_2escm"),(void*)f_21537},
{C_text("f_21541:scrutinizer_2escm"),(void*)f_21541},
{C_text("f_21543:scrutinizer_2escm"),(void*)f_21543},
{C_text("f_21547:scrutinizer_2escm"),(void*)f_21547},
{C_text("f_21567:scrutinizer_2escm"),(void*)f_21567},
{C_text("f_21574:scrutinizer_2escm"),(void*)f_21574},
{C_text("f_21595:scrutinizer_2escm"),(void*)f_21595},
{C_text("f_21605:scrutinizer_2escm"),(void*)f_21605},
{C_text("f_21609:scrutinizer_2escm"),(void*)f_21609},
{C_text("f_21613:scrutinizer_2escm"),(void*)f_21613},
{C_text("f_21617:scrutinizer_2escm"),(void*)f_21617},
{C_text("f_21621:scrutinizer_2escm"),(void*)f_21621},
{C_text("f_21625:scrutinizer_2escm"),(void*)f_21625},
{C_text("f_21629:scrutinizer_2escm"),(void*)f_21629},
{C_text("f_21633:scrutinizer_2escm"),(void*)f_21633},
{C_text("f_21640:scrutinizer_2escm"),(void*)f_21640},
{C_text("f_21656:scrutinizer_2escm"),(void*)f_21656},
{C_text("f_21659:scrutinizer_2escm"),(void*)f_21659},
{C_text("f_21665:scrutinizer_2escm"),(void*)f_21665},
{C_text("f_21681:scrutinizer_2escm"),(void*)f_21681},
{C_text("f_21687:scrutinizer_2escm"),(void*)f_21687},
{C_text("f_21694:scrutinizer_2escm"),(void*)f_21694},
{C_text("f_21698:scrutinizer_2escm"),(void*)f_21698},
{C_text("f_21702:scrutinizer_2escm"),(void*)f_21702},
{C_text("f_21706:scrutinizer_2escm"),(void*)f_21706},
{C_text("f_21709:scrutinizer_2escm"),(void*)f_21709},
{C_text("f_21713:scrutinizer_2escm"),(void*)f_21713},
{C_text("f_21717:scrutinizer_2escm"),(void*)f_21717},
{C_text("f_21723:scrutinizer_2escm"),(void*)f_21723},
{C_text("f_21726:scrutinizer_2escm"),(void*)f_21726},
{C_text("f_21740:scrutinizer_2escm"),(void*)f_21740},
{C_text("f_21758:scrutinizer_2escm"),(void*)f_21758},
{C_text("f_21771:scrutinizer_2escm"),(void*)f_21771},
{C_text("f_21775:scrutinizer_2escm"),(void*)f_21775},
{C_text("f_21779:scrutinizer_2escm"),(void*)f_21779},
{C_text("f_21785:scrutinizer_2escm"),(void*)f_21785},
{C_text("f_21796:scrutinizer_2escm"),(void*)f_21796},
{C_text("f_21800:scrutinizer_2escm"),(void*)f_21800},
{C_text("f_21804:scrutinizer_2escm"),(void*)f_21804},
{C_text("f_21808:scrutinizer_2escm"),(void*)f_21808},
{C_text("f_21812:scrutinizer_2escm"),(void*)f_21812},
{C_text("f_21823:scrutinizer_2escm"),(void*)f_21823},
{C_text("f_21827:scrutinizer_2escm"),(void*)f_21827},
{C_text("f_21831:scrutinizer_2escm"),(void*)f_21831},
{C_text("f_21835:scrutinizer_2escm"),(void*)f_21835},
{C_text("f_21839:scrutinizer_2escm"),(void*)f_21839},
{C_text("f_21846:scrutinizer_2escm"),(void*)f_21846},
{C_text("f_21857:scrutinizer_2escm"),(void*)f_21857},
{C_text("f_21861:scrutinizer_2escm"),(void*)f_21861},
{C_text("f_21865:scrutinizer_2escm"),(void*)f_21865},
{C_text("f_21881:scrutinizer_2escm"),(void*)f_21881},
{C_text("f_21885:scrutinizer_2escm"),(void*)f_21885},
{C_text("f_21890:scrutinizer_2escm"),(void*)f_21890},
{C_text("f_21895:scrutinizer_2escm"),(void*)f_21895},
{C_text("f_21906:scrutinizer_2escm"),(void*)f_21906},
{C_text("f_21910:scrutinizer_2escm"),(void*)f_21910},
{C_text("f_21914:scrutinizer_2escm"),(void*)f_21914},
{C_text("f_21918:scrutinizer_2escm"),(void*)f_21918},
{C_text("f_21922:scrutinizer_2escm"),(void*)f_21922},
{C_text("f_21926:scrutinizer_2escm"),(void*)f_21926},
{C_text("f_21930:scrutinizer_2escm"),(void*)f_21930},
{C_text("f_21934:scrutinizer_2escm"),(void*)f_21934},
{C_text("f_21936:scrutinizer_2escm"),(void*)f_21936},
{C_text("f_21941:scrutinizer_2escm"),(void*)f_21941},
{C_text("f_21943:scrutinizer_2escm"),(void*)f_21943},
{C_text("f_21955:scrutinizer_2escm"),(void*)f_21955},
{C_text("f_21959:scrutinizer_2escm"),(void*)f_21959},
{C_text("f_21963:scrutinizer_2escm"),(void*)f_21963},
{C_text("f_21967:scrutinizer_2escm"),(void*)f_21967},
{C_text("f_21971:scrutinizer_2escm"),(void*)f_21971},
{C_text("f_21977:scrutinizer_2escm"),(void*)f_21977},
{C_text("f_21980:scrutinizer_2escm"),(void*)f_21980},
{C_text("f_21983:scrutinizer_2escm"),(void*)f_21983},
{C_text("f_21990:scrutinizer_2escm"),(void*)f_21990},
{C_text("f_22006:scrutinizer_2escm"),(void*)f_22006},
{C_text("f_22012:scrutinizer_2escm"),(void*)f_22012},
{C_text("f_22015:scrutinizer_2escm"),(void*)f_22015},
{C_text("f_22018:scrutinizer_2escm"),(void*)f_22018},
{C_text("f_22021:scrutinizer_2escm"),(void*)f_22021},
{C_text("f_22029:scrutinizer_2escm"),(void*)f_22029},
{C_text("f_22034:scrutinizer_2escm"),(void*)f_22034},
{C_text("f_22041:scrutinizer_2escm"),(void*)f_22041},
{C_text("f_22049:scrutinizer_2escm"),(void*)f_22049},
{C_text("f_22053:scrutinizer_2escm"),(void*)f_22053},
{C_text("f_22057:scrutinizer_2escm"),(void*)f_22057},
{C_text("f_22061:scrutinizer_2escm"),(void*)f_22061},
{C_text("f_22065:scrutinizer_2escm"),(void*)f_22065},
{C_text("f_22071:scrutinizer_2escm"),(void*)f_22071},
{C_text("f_22074:scrutinizer_2escm"),(void*)f_22074},
{C_text("f_22077:scrutinizer_2escm"),(void*)f_22077},
{C_text("f_22083:scrutinizer_2escm"),(void*)f_22083},
{C_text("f_22089:scrutinizer_2escm"),(void*)f_22089},
{C_text("f_22092:scrutinizer_2escm"),(void*)f_22092},
{C_text("f_22095:scrutinizer_2escm"),(void*)f_22095},
{C_text("f_22098:scrutinizer_2escm"),(void*)f_22098},
{C_text("f_22101:scrutinizer_2escm"),(void*)f_22101},
{C_text("f_22104:scrutinizer_2escm"),(void*)f_22104},
{C_text("f_22107:scrutinizer_2escm"),(void*)f_22107},
{C_text("f_22114:scrutinizer_2escm"),(void*)f_22114},
{C_text("f_22120:scrutinizer_2escm"),(void*)f_22120},
{C_text("f_22123:scrutinizer_2escm"),(void*)f_22123},
{C_text("f_22126:scrutinizer_2escm"),(void*)f_22126},
{C_text("f_22132:scrutinizer_2escm"),(void*)f_22132},
{C_text("f_22138:scrutinizer_2escm"),(void*)f_22138},
{C_text("f_22141:scrutinizer_2escm"),(void*)f_22141},
{C_text("f_22144:scrutinizer_2escm"),(void*)f_22144},
{C_text("f_22151:scrutinizer_2escm"),(void*)f_22151},
{C_text("f_22161:scrutinizer_2escm"),(void*)f_22161},
{C_text("f_22164:scrutinizer_2escm"),(void*)f_22164},
{C_text("f_22176:scrutinizer_2escm"),(void*)f_22176},
{C_text("f_22180:scrutinizer_2escm"),(void*)f_22180},
{C_text("f_22184:scrutinizer_2escm"),(void*)f_22184},
{C_text("f_22200:scrutinizer_2escm"),(void*)f_22200},
{C_text("f_22206:scrutinizer_2escm"),(void*)f_22206},
{C_text("f_22209:scrutinizer_2escm"),(void*)f_22209},
{C_text("f_22212:scrutinizer_2escm"),(void*)f_22212},
{C_text("f_22215:scrutinizer_2escm"),(void*)f_22215},
{C_text("f_22223:scrutinizer_2escm"),(void*)f_22223},
{C_text("f_22226:scrutinizer_2escm"),(void*)f_22226},
{C_text("f_22238:scrutinizer_2escm"),(void*)f_22238},
{C_text("f_22242:scrutinizer_2escm"),(void*)f_22242},
{C_text("f_22246:scrutinizer_2escm"),(void*)f_22246},
{C_text("f_22250:scrutinizer_2escm"),(void*)f_22250},
{C_text("f_22263:scrutinizer_2escm"),(void*)f_22263},
{C_text("f_22269:scrutinizer_2escm"),(void*)f_22269},
{C_text("f_22272:scrutinizer_2escm"),(void*)f_22272},
{C_text("f_22275:scrutinizer_2escm"),(void*)f_22275},
{C_text("f_22278:scrutinizer_2escm"),(void*)f_22278},
{C_text("f_22282:scrutinizer_2escm"),(void*)f_22282},
{C_text("f_22289:scrutinizer_2escm"),(void*)f_22289},
{C_text("f_22295:scrutinizer_2escm"),(void*)f_22295},
{C_text("f_22298:scrutinizer_2escm"),(void*)f_22298},
{C_text("f_22301:scrutinizer_2escm"),(void*)f_22301},
{C_text("f_22304:scrutinizer_2escm"),(void*)f_22304},
{C_text("f_22307:scrutinizer_2escm"),(void*)f_22307},
{C_text("f_22310:scrutinizer_2escm"),(void*)f_22310},
{C_text("f_22314:scrutinizer_2escm"),(void*)f_22314},
{C_text("f_22320:scrutinizer_2escm"),(void*)f_22320},
{C_text("f_22323:scrutinizer_2escm"),(void*)f_22323},
{C_text("f_22326:scrutinizer_2escm"),(void*)f_22326},
{C_text("f_22329:scrutinizer_2escm"),(void*)f_22329},
{C_text("f_22337:scrutinizer_2escm"),(void*)f_22337},
{C_text("f_22343:scrutinizer_2escm"),(void*)f_22343},
{C_text("f_22346:scrutinizer_2escm"),(void*)f_22346},
{C_text("f_22358:scrutinizer_2escm"),(void*)f_22358},
{C_text("f_22362:scrutinizer_2escm"),(void*)f_22362},
{C_text("f_22366:scrutinizer_2escm"),(void*)f_22366},
{C_text("f_22370:scrutinizer_2escm"),(void*)f_22370},
{C_text("f_22383:scrutinizer_2escm"),(void*)f_22383},
{C_text("f_22389:scrutinizer_2escm"),(void*)f_22389},
{C_text("f_22392:scrutinizer_2escm"),(void*)f_22392},
{C_text("f_22395:scrutinizer_2escm"),(void*)f_22395},
{C_text("f_22398:scrutinizer_2escm"),(void*)f_22398},
{C_text("f_22402:scrutinizer_2escm"),(void*)f_22402},
{C_text("f_22409:scrutinizer_2escm"),(void*)f_22409},
{C_text("f_22415:scrutinizer_2escm"),(void*)f_22415},
{C_text("f_22418:scrutinizer_2escm"),(void*)f_22418},
{C_text("f_22421:scrutinizer_2escm"),(void*)f_22421},
{C_text("f_22424:scrutinizer_2escm"),(void*)f_22424},
{C_text("f_22427:scrutinizer_2escm"),(void*)f_22427},
{C_text("f_22430:scrutinizer_2escm"),(void*)f_22430},
{C_text("f_22434:scrutinizer_2escm"),(void*)f_22434},
{C_text("f_22440:scrutinizer_2escm"),(void*)f_22440},
{C_text("f_22443:scrutinizer_2escm"),(void*)f_22443},
{C_text("f_22446:scrutinizer_2escm"),(void*)f_22446},
{C_text("f_22449:scrutinizer_2escm"),(void*)f_22449},
{C_text("f_22457:scrutinizer_2escm"),(void*)f_22457},
{C_text("f_22468:scrutinizer_2escm"),(void*)f_22468},
{C_text("f_22479:scrutinizer_2escm"),(void*)f_22479},
{C_text("f_22483:scrutinizer_2escm"),(void*)f_22483},
{C_text("f_22487:scrutinizer_2escm"),(void*)f_22487},
{C_text("f_22491:scrutinizer_2escm"),(void*)f_22491},
{C_text("f_22495:scrutinizer_2escm"),(void*)f_22495},
{C_text("f_22502:scrutinizer_2escm"),(void*)f_22502},
{C_text("f_22513:scrutinizer_2escm"),(void*)f_22513},
{C_text("f_22517:scrutinizer_2escm"),(void*)f_22517},
{C_text("f_22521:scrutinizer_2escm"),(void*)f_22521},
{C_text("f_22525:scrutinizer_2escm"),(void*)f_22525},
{C_text("f_22529:scrutinizer_2escm"),(void*)f_22529},
{C_text("f_22543:scrutinizer_2escm"),(void*)f_22543},
{C_text("f_22547:scrutinizer_2escm"),(void*)f_22547},
{C_text("f_22551:scrutinizer_2escm"),(void*)f_22551},
{C_text("f_22565:scrutinizer_2escm"),(void*)f_22565},
{C_text("f_22569:scrutinizer_2escm"),(void*)f_22569},
{C_text("f_22583:scrutinizer_2escm"),(void*)f_22583},
{C_text("f_22587:scrutinizer_2escm"),(void*)f_22587},
{C_text("f_22591:scrutinizer_2escm"),(void*)f_22591},
{C_text("f_22605:scrutinizer_2escm"),(void*)f_22605},
{C_text("f_22609:scrutinizer_2escm"),(void*)f_22609},
{C_text("f_22617:scrutinizer_2escm"),(void*)f_22617},
{C_text("f_22631:scrutinizer_2escm"),(void*)f_22631},
{C_text("f_22635:scrutinizer_2escm"),(void*)f_22635},
{C_text("f_22639:scrutinizer_2escm"),(void*)f_22639},
{C_text("f_22643:scrutinizer_2escm"),(void*)f_22643},
{C_text("f_22663:scrutinizer_2escm"),(void*)f_22663},
{C_text("f_22667:scrutinizer_2escm"),(void*)f_22667},
{C_text("f_22671:scrutinizer_2escm"),(void*)f_22671},
{C_text("f_22675:scrutinizer_2escm"),(void*)f_22675},
{C_text("f_22679:scrutinizer_2escm"),(void*)f_22679},
{C_text("f_22683:scrutinizer_2escm"),(void*)f_22683},
{C_text("f_22693:scrutinizer_2escm"),(void*)f_22693},
{C_text("f_22695:scrutinizer_2escm"),(void*)f_22695},
{C_text("f_22720:scrutinizer_2escm"),(void*)f_22720},
{C_text("f_22732:scrutinizer_2escm"),(void*)f_22732},
{C_text("f_22739:scrutinizer_2escm"),(void*)f_22739},
{C_text("f_22753:scrutinizer_2escm"),(void*)f_22753},
{C_text("f_22757:scrutinizer_2escm"),(void*)f_22757},
{C_text("f_22769:scrutinizer_2escm"),(void*)f_22769},
{C_text("f_22781:scrutinizer_2escm"),(void*)f_22781},
{C_text("f_22799:scrutinizer_2escm"),(void*)f_22799},
{C_text("f_22803:scrutinizer_2escm"),(void*)f_22803},
{C_text("f_22807:scrutinizer_2escm"),(void*)f_22807},
{C_text("f_22811:scrutinizer_2escm"),(void*)f_22811},
{C_text("f_22815:scrutinizer_2escm"),(void*)f_22815},
{C_text("f_22819:scrutinizer_2escm"),(void*)f_22819},
{C_text("f_22823:scrutinizer_2escm"),(void*)f_22823},
{C_text("f_22826:scrutinizer_2escm"),(void*)f_22826},
{C_text("f_22834:scrutinizer_2escm"),(void*)f_22834},
{C_text("f_22845:scrutinizer_2escm"),(void*)f_22845},
{C_text("f_22851:scrutinizer_2escm"),(void*)f_22851},
{C_text("f_22854:scrutinizer_2escm"),(void*)f_22854},
{C_text("f_22857:scrutinizer_2escm"),(void*)f_22857},
{C_text("f_22860:scrutinizer_2escm"),(void*)f_22860},
{C_text("f_22868:scrutinizer_2escm"),(void*)f_22868},
{C_text("f_22872:scrutinizer_2escm"),(void*)f_22872},
{C_text("f_22876:scrutinizer_2escm"),(void*)f_22876},
{C_text("f_22880:scrutinizer_2escm"),(void*)f_22880},
{C_text("f_22883:scrutinizer_2escm"),(void*)f_22883},
{C_text("f_22889:scrutinizer_2escm"),(void*)f_22889},
{C_text("f_22892:scrutinizer_2escm"),(void*)f_22892},
{C_text("f_22895:scrutinizer_2escm"),(void*)f_22895},
{C_text("f_22898:scrutinizer_2escm"),(void*)f_22898},
{C_text("f_22901:scrutinizer_2escm"),(void*)f_22901},
{C_text("f_22908:scrutinizer_2escm"),(void*)f_22908},
{C_text("f_22912:scrutinizer_2escm"),(void*)f_22912},
{C_text("f_22924:scrutinizer_2escm"),(void*)f_22924},
{C_text("f_22928:scrutinizer_2escm"),(void*)f_22928},
{C_text("f_22969:scrutinizer_2escm"),(void*)f_22969},
{C_text("f_22986:scrutinizer_2escm"),(void*)f_22986},
{C_text("f_23007:scrutinizer_2escm"),(void*)f_23007},
{C_text("f_23009:scrutinizer_2escm"),(void*)f_23009},
{C_text("f_23043:scrutinizer_2escm"),(void*)f_23043},
{C_text("f_23064:scrutinizer_2escm"),(void*)f_23064},
{C_text("f_23066:scrutinizer_2escm"),(void*)f_23066},
{C_text("f_23100:scrutinizer_2escm"),(void*)f_23100},
{C_text("f_23125:scrutinizer_2escm"),(void*)f_23125},
{C_text("f_23127:scrutinizer_2escm"),(void*)f_23127},
{C_text("f_23165:scrutinizer_2escm"),(void*)f_23165},
{C_text("f_23190:scrutinizer_2escm"),(void*)f_23190},
{C_text("f_23192:scrutinizer_2escm"),(void*)f_23192},
{C_text("f_23232:scrutinizer_2escm"),(void*)f_23232},
{C_text("f_23234:scrutinizer_2escm"),(void*)f_23234},
{C_text("f_23242:scrutinizer_2escm"),(void*)f_23242},
{C_text("f_23244:scrutinizer_2escm"),(void*)f_23244},
{C_text("f_23260:scrutinizer_2escm"),(void*)f_23260},
{C_text("f_23264:scrutinizer_2escm"),(void*)f_23264},
{C_text("f_23273:scrutinizer_2escm"),(void*)f_23273},
{C_text("f_23300:scrutinizer_2escm"),(void*)f_23300},
{C_text("f_23311:scrutinizer_2escm"),(void*)f_23311},
{C_text("f_23317:scrutinizer_2escm"),(void*)f_23317},
{C_text("f_23321:scrutinizer_2escm"),(void*)f_23321},
{C_text("f_23374:scrutinizer_2escm"),(void*)f_23374},
{C_text("f_23378:scrutinizer_2escm"),(void*)f_23378},
{C_text("f_23382:scrutinizer_2escm"),(void*)f_23382},
{C_text("f_6714:scrutinizer_2escm"),(void*)f_6714},
{C_text("f_6717:scrutinizer_2escm"),(void*)f_6717},
{C_text("f_6720:scrutinizer_2escm"),(void*)f_6720},
{C_text("f_6723:scrutinizer_2escm"),(void*)f_6723},
{C_text("f_6726:scrutinizer_2escm"),(void*)f_6726},
{C_text("f_6729:scrutinizer_2escm"),(void*)f_6729},
{C_text("f_6732:scrutinizer_2escm"),(void*)f_6732},
{C_text("f_6735:scrutinizer_2escm"),(void*)f_6735},
{C_text("f_6738:scrutinizer_2escm"),(void*)f_6738},
{C_text("f_6804:scrutinizer_2escm"),(void*)f_6804},
{C_text("f_6818:scrutinizer_2escm"),(void*)f_6818},
{C_text("f_6842:scrutinizer_2escm"),(void*)f_6842},
{C_text("f_6848:scrutinizer_2escm"),(void*)f_6848},
{C_text("f_6866:scrutinizer_2escm"),(void*)f_6866},
{C_text("f_6906:scrutinizer_2escm"),(void*)f_6906},
{C_text("f_6920:scrutinizer_2escm"),(void*)f_6920},
{C_text("f_6939:scrutinizer_2escm"),(void*)f_6939},
{C_text("f_6954:scrutinizer_2escm"),(void*)f_6954},
{C_text("f_6962:scrutinizer_2escm"),(void*)f_6962},
{C_text("f_6970:scrutinizer_2escm"),(void*)f_6970},
{C_text("f_6981:scrutinizer_2escm"),(void*)f_6981},
{C_text("f_6994:scrutinizer_2escm"),(void*)f_6994},
{C_text("f_7001:scrutinizer_2escm"),(void*)f_7001},
{C_text("f_7008:scrutinizer_2escm"),(void*)f_7008},
{C_text("f_7012:scrutinizer_2escm"),(void*)f_7012},
{C_text("f_7024:scrutinizer_2escm"),(void*)f_7024},
{C_text("f_7026:scrutinizer_2escm"),(void*)f_7026},
{C_text("f_7073:scrutinizer_2escm"),(void*)f_7073},
{C_text("f_7075:scrutinizer_2escm"),(void*)f_7075},
{C_text("f_7109:scrutinizer_2escm"),(void*)f_7109},
{C_text("f_7115:scrutinizer_2escm"),(void*)f_7115},
{C_text("f_7137:scrutinizer_2escm"),(void*)f_7137},
{C_text("f_7143:scrutinizer_2escm"),(void*)f_7143},
{C_text("f_7149:scrutinizer_2escm"),(void*)f_7149},
{C_text("f_7159:scrutinizer_2escm"),(void*)f_7159},
{C_text("f_7179:scrutinizer_2escm"),(void*)f_7179},
{C_text("f_7193:scrutinizer_2escm"),(void*)f_7193},
{C_text("f_7207:scrutinizer_2escm"),(void*)f_7207},
{C_text("f_7225:scrutinizer_2escm"),(void*)f_7225},
{C_text("f_7235:scrutinizer_2escm"),(void*)f_7235},
{C_text("f_7248:scrutinizer_2escm"),(void*)f_7248},
{C_text("f_7262:scrutinizer_2escm"),(void*)f_7262},
{C_text("f_7304:scrutinizer_2escm"),(void*)f_7304},
{C_text("f_7310:scrutinizer_2escm"),(void*)f_7310},
{C_text("f_7324:scrutinizer_2escm"),(void*)f_7324},
{C_text("f_7337:scrutinizer_2escm"),(void*)f_7337},
{C_text("f_7393:scrutinizer_2escm"),(void*)f_7393},
{C_text("f_7402:scrutinizer_2escm"),(void*)f_7402},
{C_text("f_7410:scrutinizer_2escm"),(void*)f_7410},
{C_text("f_7414:scrutinizer_2escm"),(void*)f_7414},
{C_text("f_7418:scrutinizer_2escm"),(void*)f_7418},
{C_text("f_7436:scrutinizer_2escm"),(void*)f_7436},
{C_text("f_7458:scrutinizer_2escm"),(void*)f_7458},
{C_text("f_7475:scrutinizer_2escm"),(void*)f_7475},
{C_text("f_7574:scrutinizer_2escm"),(void*)f_7574},
{C_text("f_7660:scrutinizer_2escm"),(void*)f_7660},
{C_text("f_7685:scrutinizer_2escm"),(void*)f_7685},
{C_text("f_7708:scrutinizer_2escm"),(void*)f_7708},
{C_text("f_7713:scrutinizer_2escm"),(void*)f_7713},
{C_text("f_7727:scrutinizer_2escm"),(void*)f_7727},
{C_text("f_7751:scrutinizer_2escm"),(void*)f_7751},
{C_text("f_7757:scrutinizer_2escm"),(void*)f_7757},
{C_text("f_7771:scrutinizer_2escm"),(void*)f_7771},
{C_text("f_7775:scrutinizer_2escm"),(void*)f_7775},
{C_text("f_7787:scrutinizer_2escm"),(void*)f_7787},
{C_text("f_7793:scrutinizer_2escm"),(void*)f_7793},
{C_text("f_7805:scrutinizer_2escm"),(void*)f_7805},
{C_text("f_7870:scrutinizer_2escm"),(void*)f_7870},
{C_text("f_7931:scrutinizer_2escm"),(void*)f_7931},
{C_text("f_7934:scrutinizer_2escm"),(void*)f_7934},
{C_text("f_7943:scrutinizer_2escm"),(void*)f_7943},
{C_text("f_8063:scrutinizer_2escm"),(void*)f_8063},
{C_text("f_8071:scrutinizer_2escm"),(void*)f_8071},
{C_text("f_8073:scrutinizer_2escm"),(void*)f_8073},
{C_text("f_8116:scrutinizer_2escm"),(void*)f_8116},
{C_text("f_8153:scrutinizer_2escm"),(void*)f_8153},
{C_text("f_8166:scrutinizer_2escm"),(void*)f_8166},
{C_text("f_8178:scrutinizer_2escm"),(void*)f_8178},
{C_text("f_8181:scrutinizer_2escm"),(void*)f_8181},
{C_text("f_8242:scrutinizer_2escm"),(void*)f_8242},
{C_text("f_8244:scrutinizer_2escm"),(void*)f_8244},
{C_text("f_8269:scrutinizer_2escm"),(void*)f_8269},
{C_text("f_8293:scrutinizer_2escm"),(void*)f_8293},
{C_text("f_8297:scrutinizer_2escm"),(void*)f_8297},
{C_text("f_8327:scrutinizer_2escm"),(void*)f_8327},
{C_text("f_8330:scrutinizer_2escm"),(void*)f_8330},
{C_text("f_8332:scrutinizer_2escm"),(void*)f_8332},
{C_text("f_8357:scrutinizer_2escm"),(void*)f_8357},
{C_text("f_8402:scrutinizer_2escm"),(void*)f_8402},
{C_text("f_8406:scrutinizer_2escm"),(void*)f_8406},
{C_text("f_8416:scrutinizer_2escm"),(void*)f_8416},
{C_text("f_8425:scrutinizer_2escm"),(void*)f_8425},
{C_text("f_8445:scrutinizer_2escm"),(void*)f_8445},
{C_text("f_8457:scrutinizer_2escm"),(void*)f_8457},
{C_text("f_8476:scrutinizer_2escm"),(void*)f_8476},
{C_text("f_8480:scrutinizer_2escm"),(void*)f_8480},
{C_text("f_8492:scrutinizer_2escm"),(void*)f_8492},
{C_text("f_8530:scrutinizer_2escm"),(void*)f_8530},
{C_text("f_8537:scrutinizer_2escm"),(void*)f_8537},
{C_text("f_8539:scrutinizer_2escm"),(void*)f_8539},
{C_text("f_8571:scrutinizer_2escm"),(void*)f_8571},
{C_text("f_8601:scrutinizer_2escm"),(void*)f_8601},
{C_text("f_8605:scrutinizer_2escm"),(void*)f_8605},
{C_text("f_8611:scrutinizer_2escm"),(void*)f_8611},
{C_text("f_8623:scrutinizer_2escm"),(void*)f_8623},
{C_text("f_8625:scrutinizer_2escm"),(void*)f_8625},
{C_text("f_8653:scrutinizer_2escm"),(void*)f_8653},
{C_text("f_8656:scrutinizer_2escm"),(void*)f_8656},
{C_text("f_8669:scrutinizer_2escm"),(void*)f_8669},
{C_text("f_8672:scrutinizer_2escm"),(void*)f_8672},
{C_text("f_8675:scrutinizer_2escm"),(void*)f_8675},
{C_text("f_8691:scrutinizer_2escm"),(void*)f_8691},
{C_text("f_8701:scrutinizer_2escm"),(void*)f_8701},
{C_text("f_8707:scrutinizer_2escm"),(void*)f_8707},
{C_text("f_8717:scrutinizer_2escm"),(void*)f_8717},
{C_text("f_8726:scrutinizer_2escm"),(void*)f_8726},
{C_text("f_8729:scrutinizer_2escm"),(void*)f_8729},
{C_text("f_8736:scrutinizer_2escm"),(void*)f_8736},
{C_text("f_8742:scrutinizer_2escm"),(void*)f_8742},
{C_text("f_8747:scrutinizer_2escm"),(void*)f_8747},
{C_text("f_8753:scrutinizer_2escm"),(void*)f_8753},
{C_text("f_8757:scrutinizer_2escm"),(void*)f_8757},
{C_text("f_8760:scrutinizer_2escm"),(void*)f_8760},
{C_text("f_8763:scrutinizer_2escm"),(void*)f_8763},
{C_text("f_8766:scrutinizer_2escm"),(void*)f_8766},
{C_text("f_8769:scrutinizer_2escm"),(void*)f_8769},
{C_text("f_8772:scrutinizer_2escm"),(void*)f_8772},
{C_text("f_8775:scrutinizer_2escm"),(void*)f_8775},
{C_text("f_8778:scrutinizer_2escm"),(void*)f_8778},
{C_text("f_8791:scrutinizer_2escm"),(void*)f_8791},
{C_text("f_8803:scrutinizer_2escm"),(void*)f_8803},
{C_text("f_8828:scrutinizer_2escm"),(void*)f_8828},
{C_text("f_8838:scrutinizer_2escm"),(void*)f_8838},
{C_text("f_8847:scrutinizer_2escm"),(void*)f_8847},
{C_text("f_8859:scrutinizer_2escm"),(void*)f_8859},
{C_text("f_8866:scrutinizer_2escm"),(void*)f_8866},
{C_text("f_8869:scrutinizer_2escm"),(void*)f_8869},
{C_text("f_8872:scrutinizer_2escm"),(void*)f_8872},
{C_text("f_8906:scrutinizer_2escm"),(void*)f_8906},
{C_text("f_8913:scrutinizer_2escm"),(void*)f_8913},
{C_text("f_8916:scrutinizer_2escm"),(void*)f_8916},
{C_text("f_8922:scrutinizer_2escm"),(void*)f_8922},
{C_text("f_8951:scrutinizer_2escm"),(void*)f_8951},
{C_text("f_8955:scrutinizer_2escm"),(void*)f_8955},
{C_text("f_8973:scrutinizer_2escm"),(void*)f_8973},
{C_text("f_8976:scrutinizer_2escm"),(void*)f_8976},
{C_text("f_8979:scrutinizer_2escm"),(void*)f_8979},
{C_text("f_8985:scrutinizer_2escm"),(void*)f_8985},
{C_text("f_9018:scrutinizer_2escm"),(void*)f_9018},
{C_text("f_9022:scrutinizer_2escm"),(void*)f_9022},
{C_text("f_9061:scrutinizer_2escm"),(void*)f_9061},
{C_text("f_9065:scrutinizer_2escm"),(void*)f_9065},
{C_text("f_9084:scrutinizer_2escm"),(void*)f_9084},
{C_text("f_9088:scrutinizer_2escm"),(void*)f_9088},
{C_text("f_9094:scrutinizer_2escm"),(void*)f_9094},
{C_text("f_9108:scrutinizer_2escm"),(void*)f_9108},
{C_text("f_9114:scrutinizer_2escm"),(void*)f_9114},
{C_text("f_9128:scrutinizer_2escm"),(void*)f_9128},
{C_text("f_9159:scrutinizer_2escm"),(void*)f_9159},
{C_text("f_9172:scrutinizer_2escm"),(void*)f_9172},
{C_text("f_9182:scrutinizer_2escm"),(void*)f_9182},
{C_text("f_9184:scrutinizer_2escm"),(void*)f_9184},
{C_text("f_9213:scrutinizer_2escm"),(void*)f_9213},
{C_text("f_9226:scrutinizer_2escm"),(void*)f_9226},
{C_text("f_9242:scrutinizer_2escm"),(void*)f_9242},
{C_text("f_9253:scrutinizer_2escm"),(void*)f_9253},
{C_text("f_9257:scrutinizer_2escm"),(void*)f_9257},
{C_text("f_9285:scrutinizer_2escm"),(void*)f_9285},
{C_text("f_9289:scrutinizer_2escm"),(void*)f_9289},
{C_text("f_9291:scrutinizer_2escm"),(void*)f_9291},
{C_text("f_9325:scrutinizer_2escm"),(void*)f_9325},
{C_text("f_9330:scrutinizer_2escm"),(void*)f_9330},
{C_text("f_9336:scrutinizer_2escm"),(void*)f_9336},
{C_text("f_9341:scrutinizer_2escm"),(void*)f_9341},
{C_text("f_9363:scrutinizer_2escm"),(void*)f_9363},
{C_text("f_9370:scrutinizer_2escm"),(void*)f_9370},
{C_text("f_9373:scrutinizer_2escm"),(void*)f_9373},
{C_text("f_9376:scrutinizer_2escm"),(void*)f_9376},
{C_text("f_9382:scrutinizer_2escm"),(void*)f_9382},
{C_text("f_9386:scrutinizer_2escm"),(void*)f_9386},
{C_text("f_9393:scrutinizer_2escm"),(void*)f_9393},
{C_text("f_9401:scrutinizer_2escm"),(void*)f_9401},
{C_text("f_9426:scrutinizer_2escm"),(void*)f_9426},
{C_text("f_9435:scrutinizer_2escm"),(void*)f_9435},
{C_text("f_9441:scrutinizer_2escm"),(void*)f_9441},
{C_text("f_9459:scrutinizer_2escm"),(void*)f_9459},
{C_text("f_9463:scrutinizer_2escm"),(void*)f_9463},
{C_text("f_9466:scrutinizer_2escm"),(void*)f_9466},
{C_text("f_9469:scrutinizer_2escm"),(void*)f_9469},
{C_text("f_9477:scrutinizer_2escm"),(void*)f_9477},
{C_text("f_9505:scrutinizer_2escm"),(void*)f_9505},
{C_text("f_9547:scrutinizer_2escm"),(void*)f_9547},
{C_text("f_9564:scrutinizer_2escm"),(void*)f_9564},
{C_text("f_9584:scrutinizer_2escm"),(void*)f_9584},
{C_text("f_9601:scrutinizer_2escm"),(void*)f_9601},
{C_text("f_9620:scrutinizer_2escm"),(void*)f_9620},
{C_text("f_9626:scrutinizer_2escm"),(void*)f_9626},
{C_text("f_9631:scrutinizer_2escm"),(void*)f_9631},
{C_text("f_9650:scrutinizer_2escm"),(void*)f_9650},
{C_text("f_9653:scrutinizer_2escm"),(void*)f_9653},
{C_text("f_9657:scrutinizer_2escm"),(void*)f_9657},
{C_text("f_9664:scrutinizer_2escm"),(void*)f_9664},
{C_text("f_9676:scrutinizer_2escm"),(void*)f_9676},
{C_text("f_9679:scrutinizer_2escm"),(void*)f_9679},
{C_text("f_9711:scrutinizer_2escm"),(void*)f_9711},
{C_text("f_9740:scrutinizer_2escm"),(void*)f_9740},
{C_text("f_9805:scrutinizer_2escm"),(void*)f_9805},
{C_text("f_9839:scrutinizer_2escm"),(void*)f_9839},
{C_text("f_9849:scrutinizer_2escm"),(void*)f_9849},
{C_text("f_9895:scrutinizer_2escm"),(void*)f_9895},
{C_text("f_9899:scrutinizer_2escm"),(void*)f_9899},
{C_text("f_9901:scrutinizer_2escm"),(void*)f_9901},
{C_text("f_9924:scrutinizer_2escm"),(void*)f_9924},
{C_text("f_9942:scrutinizer_2escm"),(void*)f_9942},
{C_text("f_9951:scrutinizer_2escm"),(void*)f_9951},
{C_text("f_9954:scrutinizer_2escm"),(void*)f_9954},
{C_text("f_9970:scrutinizer_2escm"),(void*)f_9970},
{C_text("f_9979:scrutinizer_2escm"),(void*)f_9979},
{C_text("f_9987:scrutinizer_2escm"),(void*)f_9987},
{C_text("f_9997:scrutinizer_2escm"),(void*)f_9997},
{C_text("toplevel:scrutinizer_2escm"),(void*)C_scrutinizer_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.scrutinizer#partition 
o|hiding unexported module binding: chicken.compiler.scrutinizer#span 
o|hiding unexported module binding: chicken.compiler.scrutinizer#take 
o|hiding unexported module binding: chicken.compiler.scrutinizer#drop 
o|hiding unexported module binding: chicken.compiler.scrutinizer#split-at 
o|hiding unexported module binding: chicken.compiler.scrutinizer#append-map 
o|hiding unexported module binding: chicken.compiler.scrutinizer#every 
o|hiding unexported module binding: chicken.compiler.scrutinizer#any 
o|hiding unexported module binding: chicken.compiler.scrutinizer#cons* 
o|hiding unexported module binding: chicken.compiler.scrutinizer#concatenate 
o|hiding unexported module binding: chicken.compiler.scrutinizer#delete 
o|hiding unexported module binding: chicken.compiler.scrutinizer#first 
o|hiding unexported module binding: chicken.compiler.scrutinizer#second 
o|hiding unexported module binding: chicken.compiler.scrutinizer#third 
o|hiding unexported module binding: chicken.compiler.scrutinizer#fourth 
o|hiding unexported module binding: chicken.compiler.scrutinizer#fifth 
o|hiding unexported module binding: chicken.compiler.scrutinizer#delete-duplicates 
o|hiding unexported module binding: chicken.compiler.scrutinizer#alist-cons 
o|hiding unexported module binding: chicken.compiler.scrutinizer#filter 
o|hiding unexported module binding: chicken.compiler.scrutinizer#filter-map 
o|hiding unexported module binding: chicken.compiler.scrutinizer#remove 
o|hiding unexported module binding: chicken.compiler.scrutinizer#unzip1 
o|hiding unexported module binding: chicken.compiler.scrutinizer#last 
o|hiding unexported module binding: chicken.compiler.scrutinizer#list-index 
o|hiding unexported module binding: chicken.compiler.scrutinizer#lset-adjoin/eq? 
o|hiding unexported module binding: chicken.compiler.scrutinizer#lset-difference/eq? 
o|hiding unexported module binding: chicken.compiler.scrutinizer#lset-union/eq? 
o|hiding unexported module binding: chicken.compiler.scrutinizer#lset-intersection/eq? 
o|hiding unexported module binding: chicken.compiler.scrutinizer#list-tabulate 
o|hiding unexported module binding: chicken.compiler.scrutinizer#lset<=/eq? 
o|hiding unexported module binding: chicken.compiler.scrutinizer#lset=/eq? 
o|hiding unexported module binding: chicken.compiler.scrutinizer#length+ 
o|hiding unexported module binding: chicken.compiler.scrutinizer#find 
o|hiding unexported module binding: chicken.compiler.scrutinizer#find-tail 
o|hiding unexported module binding: chicken.compiler.scrutinizer#iota 
o|hiding unexported module binding: chicken.compiler.scrutinizer#make-list 
o|hiding unexported module binding: chicken.compiler.scrutinizer#posq 
o|hiding unexported module binding: chicken.compiler.scrutinizer#posv 
o|hiding unexported module binding: chicken.compiler.scrutinizer#d-depth 
o|hiding unexported module binding: chicken.compiler.scrutinizer#scrutiny-debug 
o|hiding unexported module binding: chicken.compiler.scrutinizer#*complain?* 
o|hiding unexported module binding: chicken.compiler.scrutinizer#d 
o|hiding unexported module binding: chicken.compiler.scrutinizer#dd 
o|hiding unexported module binding: chicken.compiler.scrutinizer#ddd 
o|hiding unexported module binding: chicken.compiler.scrutinizer#d 
o|hiding unexported module binding: chicken.compiler.scrutinizer#dd 
o|hiding unexported module binding: chicken.compiler.scrutinizer#ddd 
o|hiding unexported module binding: chicken.compiler.scrutinizer#constant709 
o|hiding unexported module binding: chicken.compiler.scrutinizer#constant716 
o|hiding unexported module binding: chicken.compiler.scrutinizer#constant724 
o|hiding unexported module binding: chicken.compiler.scrutinizer#constant733 
o|hiding unexported module binding: chicken.compiler.scrutinizer#specialization-statistics 
o|hiding unexported module binding: chicken.compiler.scrutinizer#trail 
o|hiding unexported module binding: chicken.compiler.scrutinizer#walked-result 
o|hiding unexported module binding: chicken.compiler.scrutinizer#type-always-immediate? 
o|hiding unexported module binding: chicken.compiler.scrutinizer#smash-component-types! 
o|hiding unexported module binding: chicken.compiler.scrutinizer#ble-id 
o|hiding unexported module binding: chicken.compiler.scrutinizer#ble-tag 
o|hiding unexported module binding: chicken.compiler.scrutinizer#ble-type 
o|hiding unexported module binding: chicken.compiler.scrutinizer#ble-type-set! 
o|hiding unexported module binding: chicken.compiler.scrutinizer#match-argument-types 
o|hiding unexported module binding: chicken.compiler.scrutinizer#simplify-type 
o|hiding unexported module binding: chicken.compiler.scrutinizer#maybe-expand-type 
o|hiding unexported module binding: chicken.compiler.scrutinizer#merge-argument-types 
o|hiding unexported module binding: chicken.compiler.scrutinizer#merge-result-types 
o|hiding unexported module binding: chicken.compiler.scrutinizer#compatible-types? 
o|hiding unexported module binding: chicken.compiler.scrutinizer#type-min 
o|hiding unexported module binding: chicken.compiler.scrutinizer#procedure-type? 
o|hiding unexported module binding: chicken.compiler.scrutinizer#procedure-name 
o|hiding unexported module binding: chicken.compiler.scrutinizer#procedure-arguments 
o|hiding unexported module binding: chicken.compiler.scrutinizer#procedure-results 
o|hiding unexported module binding: chicken.compiler.scrutinizer#procedure-argument-types 
o|hiding unexported module binding: chicken.compiler.scrutinizer#procedure-result-types 
o|hiding unexported module binding: chicken.compiler.scrutinizer#named? 
o|hiding unexported module binding: chicken.compiler.scrutinizer#rest-type 
o|hiding unexported module binding: chicken.compiler.scrutinizer#noreturn-procedure-type? 
o|hiding unexported module binding: chicken.compiler.scrutinizer#noreturn-type? 
o|hiding unexported module binding: chicken.compiler.scrutinizer#refinement-type? 
o|hiding unexported module binding: chicken.compiler.scrutinizer#make-tv 
o|hiding unexported module binding: chicken.compiler.scrutinizer#type-typeenv 
o|hiding unexported module binding: chicken.compiler.scrutinizer#trail-restore 
o|hiding unexported module binding: chicken.compiler.scrutinizer#with-trail-restore 
o|hiding unexported module binding: chicken.compiler.scrutinizer#resolve 
o|hiding unexported module binding: chicken.compiler.scrutinizer#node-mutations 
o|hiding unexported module binding: chicken.compiler.scrutinizer#mutate-node! 
o|hiding unexported module binding: chicken.compiler.scrutinizer#source-node 
o|hiding unexported module binding: chicken.compiler.scrutinizer#source-node-tree 
o|hiding unexported module binding: chicken.compiler.scrutinizer#node-line-number 
o|hiding unexported module binding: chicken.compiler.scrutinizer#node-debug-info 
o|hiding unexported module binding: chicken.compiler.scrutinizer#specialize-node! 
o|hiding unexported module binding: chicken.compiler.scrutinizer#canonicalize-list-type 
o|hiding unexported module binding: chicken.compiler.scrutinizer#strip-namespace 
o|hiding unexported module binding: chicken.compiler.scrutinizer#define-special-case 
o|hiding unexported module binding: chicken.compiler.scrutinizer#over-all-instantiations 
o|hiding unexported module binding: chicken.compiler.scrutinizer#multiples 
o|hiding unexported module binding: chicken.compiler.scrutinizer#string-add-indent 
o|hiding unexported module binding: chicken.compiler.scrutinizer#type->pp-string 
o|hiding unexported module binding: chicken.compiler.scrutinizer#fragment 
o|hiding unexported module binding: chicken.compiler.scrutinizer#pp-fragment 
o|hiding unexported module binding: chicken.compiler.scrutinizer#node-source-prefix 
o|hiding unexported module binding: chicken.compiler.scrutinizer#location-name 
o|hiding unexported module binding: chicken.compiler.scrutinizer#variable-and-module 
o|hiding unexported module binding: chicken.compiler.scrutinizer#variable-from-module 
o|hiding unexported module binding: chicken.compiler.scrutinizer#describe-expression 
o|hiding unexported module binding: chicken.compiler.scrutinizer#call-node-procedure-name 
o|hiding unexported module binding: chicken.compiler.scrutinizer#report2 
o|hiding unexported module binding: chicken.compiler.scrutinizer#report-notice 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-invalid-called-procedure-type 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-proc-call-argument-count-mismatch 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-proc-call-argument-value-count 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-index-out-of-range 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-conditional-value-count-invalid 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-let-value-count-invalid 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-assignment-value-count-invalid 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-pred-call-always-true 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-pred-call-always-false 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-cond-test-always-true 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-cond-test-always-false 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-zero-values-for-the 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-too-many-values-for-the 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-type-mismatch-in-the 
o|hiding unexported module binding: chicken.compiler.scrutinizer#fail-compiler-typecase 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-cond-branch-value-count-mismatch 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-toplevel-var-assignment-type-mismatch 
o|hiding unexported module binding: chicken.compiler.scrutinizer#r-deprecated-identifier 
S|applied compiler syntax:
S|  scheme#for-each		11
S|  chicken.format#sprintf		27
S|  chicken.format#printf		2
S|  chicken.base#foldl		5
S|  scheme#map		49
S|  chicken.base#foldr		3
o|eliminated procedure checks: 463 
o|eliminated procedure checks: 1 
o|eliminated procedure checks: 1 
o|specializations:
o|  2 (scheme#string=? string string)
o|  1 (scheme#< fixnum fixnum)
o|  1 (scheme#string-append string string)
o|  1 (scheme#>= fixnum fixnum)
o|  2 (scheme#string-length string)
o|  4 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *)
o|  1 (scheme#- *)
o|  4 (scheme#negative? *)
o|  2 (scheme#integer? *)
o|  2 (scheme#vector-length vector)
o|  1 (scheme#cdddr (pair * (pair * pair)))
o|  1 (chicken.plist#put! symbol symbol *)
o|  3 (scheme#cadr (pair * pair))
o|  4 (scheme#cddr (pair * pair))
o|  4 (scheme#positive? *)
o|  2 (scheme#> fixnum fixnum)
o|  2 (chicken.base#sub1 fixnum)
o|  2 (scheme#set-cdr! pair *)
o|  8 (chicken.base#sub1 *)
o|  3 (scheme#zero? *)
o|  1 (scheme#caar (pair pair *))
o|  13 (chicken.base#add1 *)
o|  11 (scheme#length list)
o|  5 (scheme#zero? integer)
o|  16 (scheme#= fixnum fixnum)
o|  1 (scheme#cdar (pair pair *))
o|  15 (scheme#memq * list)
o|  91 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword))
o|  29 (##sys#check-output-port * * *)
o|  1 (##sys#debug-mode?)
o|  1 (scheme#eqv? * *)
o|  11 (##sys#check-list (or pair list) *)
o|  123 (scheme#cdr pair)
o|  129 (scheme#car pair)
(o e)|safe calls: 2507 
(o e)|dropped branches: 2 
(o e)|assignments to immediate values: 7 
o|safe globals: (chicken.compiler.scrutinizer#strip-namespace chicken.compiler.scrutinizer#canonicalize-list-type chicken.compiler.scrutinizer#install-specializations chicken.compiler.scrutinizer#check-and-validate-type chicken.compiler.scrutinizer#validate-type chicken.compiler.scrutinizer#specialize-node! chicken.compiler.scrutinizer#node-debug-info chicken.compiler.scrutinizer#node-line-number chicken.compiler.scrutinizer#source-node-tree chicken.compiler.scrutinizer#source-node chicken.compiler.scrutinizer#mutate-node! chicken.compiler.scrutinizer#node-mutations chicken.compiler.scrutinizer#emit-types-file chicken.compiler.scrutinizer#load-type-database chicken.compiler.scrutinizer#resolve chicken.compiler.scrutinizer#with-trail-restore chicken.compiler.scrutinizer#trail-restore chicken.compiler.scrutinizer#type-typeenv chicken.compiler.scrutinizer#make-tv chicken.compiler.scrutinizer#refinement-type? chicken.compiler.scrutinizer#noreturn-type? chicken.compiler.scrutinizer#noreturn-procedure-type? chicken.compiler.scrutinizer#rest-type chicken.compiler.scrutinizer#named? chicken.compiler.scrutinizer#procedure-result-types chicken.compiler.scrutinizer#procedure-argument-types chicken.compiler.scrutinizer#procedure-results chicken.compiler.scrutinizer#procedure-arguments chicken.compiler.scrutinizer#procedure-name chicken.compiler.scrutinizer#procedure-type? chicken.compiler.scrutinizer#refine-types chicken.compiler.scrutinizer#type<=? chicken.compiler.scrutinizer#type-min chicken.compiler.scrutinizer#compatible-types? chicken.compiler.scrutinizer#merge-result-types chicken.compiler.scrutinizer#merge-argument-types chicken.compiler.scrutinizer#maybe-expand-type chicken.compiler.scrutinizer#simplify-type chicken.compiler.scrutinizer#match-argument-types chicken.compiler.scrutinizer#match-types chicken.compiler.scrutinizer#ble-type-set! chicken.compiler.scrutinizer#ble-type chicken.compiler.scrutinizer#ble-tag chicken.compiler.scrutinizer#ble-id chicken.compiler.scrutinizer#smash-component-types! chicken.compiler.scrutinizer#scrutinize chicken.compiler.scrutinizer#type-always-immediate? chicken.compiler.scrutinizer#walked-result chicken.compiler.scrutinizer#trail chicken.compiler.scrutinizer#specialization-statistics chicken.compiler.scrutinizer#constant733 chicken.compiler.scrutinizer#constant724 chicken.compiler.scrutinizer#constant716 chicken.compiler.scrutinizer#constant709 chicken.compiler.scrutinizer#ddd chicken.compiler.scrutinizer#dd chicken.compiler.scrutinizer#d chicken.compiler.scrutinizer#*complain?* chicken.compiler.scrutinizer#scrutiny-debug chicken.compiler.scrutinizer#d-depth chicken.compiler.scrutinizer#posv chicken.compiler.scrutinizer#posq chicken.compiler.scrutinizer#make-list chicken.compiler.scrutinizer#iota chicken.compiler.scrutinizer#find-tail chicken.compiler.scrutinizer#find chicken.compiler.scrutinizer#length+ chicken.compiler.scrutinizer#lset=/eq? chicken.compiler.scrutinizer#lset<=/eq? chicken.compiler.scrutinizer#list-tabulate chicken.compiler.scrutinizer#lset-intersection/eq? chicken.compiler.scrutinizer#lset-union/eq? chicken.compiler.scrutinizer#lset-difference/eq? chicken.compiler.scrutinizer#lset-adjoin/eq? chicken.compiler.scrutinizer#list-index chicken.compiler.scrutinizer#last chicken.compiler.scrutinizer#unzip1 chicken.compiler.scrutinizer#remove chicken.compiler.scrutinizer#filter-map chicken.compiler.scrutinizer#filter chicken.compiler.scrutinizer#alist-cons chicken.compiler.scrutinizer#delete-duplicates chicken.compiler.scrutinizer#fifth chicken.compiler.scrutinizer#fourth chicken.compiler.scrutinizer#third chicken.compiler.scrutinizer#second chicken.compiler.scrutinizer#first chicken.compiler.scrutinizer#delete chicken.compiler.scrutinizer#concatenate chicken.compiler.scrutinizer#cons* chicken.compiler.scrutinizer#any chicken.compiler.scrutinizer#every chicken.compiler.scrutinizer#append-map chicken.compiler.scrutinizer#split-at chicken.compiler.scrutinizer#drop chicken.compiler.scrutinizer#take chicken.compiler.scrutinizer#span chicken.compiler.scrutinizer#partition) 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#partition 
o|inlining procedure: k6850 
o|inlining procedure: k6850 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#drop 
o|merged explicitly consed rest parameter: lsts165 
o|inlining procedure: k6941 
o|inlining procedure: k6956 
o|inlining procedure: k6956 
o|inlining procedure: k6941 
o|inlining procedure: k6996 
o|inlining procedure: k6996 
o|inlining procedure: k7028 
o|contracted procedure: "(mini-srfi-1.scm:77) g218227" 
o|inlining procedure: k7028 
o|inlining procedure: k7077 
o|contracted procedure: "(mini-srfi-1.scm:76) g191200" 
o|inlining procedure: k7077 
o|inlining procedure: k7120 
o|inlining procedure: k7120 
o|inlining procedure: k7151 
o|inlining procedure: k7151 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#fifth 
o|inlining procedure: k7312 
o|inlining procedure: k7312 
o|contracted procedure: "(mini-srfi-1.scm:123) chicken.compiler.scrutinizer#delete" 
o|inlining procedure: k7237 
o|inlining procedure: k7237 
o|inlining procedure: k7368 
o|inlining procedure: k7368 
o|inlining procedure: k7360 
o|inlining procedure: k7360 
o|inlining procedure: k7415 
o|inlining procedure: k7415 
o|inlining procedure: k7404 
o|inlining procedure: k7404 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#remove 
o|inlining procedure: k7477 
o|contracted procedure: "(mini-srfi-1.scm:143) g369378" 
o|inlining procedure: k7477 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#last 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#list-index 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#lset-difference/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#lset-intersection/eq? 
o|inlining procedure: k7759 
o|inlining procedure: k7759 
o|inlining procedure: k7795 
o|inlining procedure: k7795 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#length+ 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#find-tail 
o|merged explicitly consed rest parameter: rest537539 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#posq 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#posv 
o|propagated global variable: out612615 ##sys#standard-output 
o|substituted constant variable: a8030 
o|substituted constant variable: a8031 
o|inlining procedure: k8023 
o|propagated global variable: out612615 ##sys#standard-output 
o|inlining procedure: k8023 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#dd 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#ddd 
o|inlining procedure: "(scrutinizer.scm:166) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k8075 
o|inlining procedure: k8093 
o|inlining procedure: "(scrutinizer.scm:172) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k8093 
o|substituted constant variable: a8107 
o|substituted constant variable: a8109 
o|inlining procedure: k8075 
o|substituted constant variable: a8114 
o|removed side-effect free assignment to unused variable: report759 
o|inlining procedure: k8155 
o|inlining procedure: k8155 
o|inlining procedure: k8167 
o|inlining procedure: k8167 
o|inlining procedure: k8182 
o|inlining procedure: k8182 
o|inlining procedure: k8194 
o|inlining procedure: k8194 
o|inlining procedure: k8206 
o|inlining procedure: k8206 
o|inlining procedure: k8218 
o|inlining procedure: k8218 
o|inlining procedure: k8221 
o|inlining procedure: k8221 
o|inlining procedure: k8246 
o|inlining procedure: k8246 
o|inlining procedure: k8277 
o|inlining procedure: k8277 
o|inlining procedure: k8308 
o|inlining procedure: k8334 
o|inlining procedure: k8334 
o|inlining procedure: k8308 
o|inlining procedure: k8378 
o|inlining procedure: k8378 
o|inlining procedure: k8450 
o|inlining procedure: k8450 
o|inlining procedure: k8459 
o|inlining procedure: k8459 
o|contracted procedure: "(scrutinizer.scm:237) chicken.compiler.scrutinizer#find" 
o|inlining procedure: k7872 
o|inlining procedure: k7872 
o|inlining procedure: k8481 
o|inlining procedure: k8481 
o|inlining procedure: k8496 
o|contracted procedure: "(scrutinizer.scm:245) g911912" 
o|inlining procedure: k8501 
o|inlining procedure: k8501 
o|inlining procedure: k8496 
o|contracted procedure: "(scrutinizer.scm:259) global-result781" 
o|inlining procedure: k8408 
o|consed rest parameter at call site: "(scrutinizer.scm:228) chicken.compiler.scrutinizer#r-deprecated-identifier" 4 
o|inlining procedure: k8408 
o|consed rest parameter at call site: "(scrutinizer.scm:231) chicken.compiler.scrutinizer#r-deprecated-identifier" 4 
o|inlining procedure: k8403 
o|inlining procedure: k8403 
o|inlining procedure: k8525 
o|inlining procedure: k8525 
o|inlining procedure: k8541 
o|inlining procedure: k8559 
o|inlining procedure: "(scrutinizer.scm:265) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k8559 
o|inlining procedure: "(scrutinizer.scm:266) chicken.compiler.scrutinizer#third" 
o|substituted constant variable: a8590 
o|substituted constant variable: a8592 
o|substituted constant variable: a8594 
o|inlining procedure: k8541 
o|substituted constant variable: a8599 
o|inlining procedure: k8606 
o|contracted procedure: "(scrutinizer.scm:273) chicken.compiler.scrutinizer#r-cond-test-always-true" 
o|consed rest parameter at call site: "(scrutinizer.scm:2821) chicken.compiler.scrutinizer#report-notice" 5 
o|inlining procedure: k8606 
o|inlining procedure: k8627 
o|inlining procedure: k8627 
o|inlining procedure: k8645 
o|inlining procedure: k8645 
o|inlining procedure: "(scrutinizer.scm:291) chicken.compiler.scrutinizer#first" 
o|substituted constant variable: a8661 
o|removed unused formal parameters: (typeenv966) 
o|inlining procedure: k8721 
o|contracted procedure: "(scrutinizer.scm:311) chicken.compiler.scrutinizer#r-invalid-called-procedure-type" 
o|inlining procedure: k21742 
o|inlining procedure: "(scrutinizer.scm:2547) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k21742 
o|inlining procedure: k21780 
o|inlining procedure: k21780 
o|inlining procedure: k8721 
o|consed rest parameter at call site: "(scrutinizer.scm:316) chicken.compiler.scrutinizer#procedure-argument-types" 4 
o|inlining procedure: k8805 
o|inlining procedure: k8805 
o|inlining procedure: k8848 
o|inlining procedure: k8848 
o|inlining procedure: k8873 
o|contracted procedure: "(scrutinizer.scm:395) g11121113" 
o|inlining procedure: k8873 
o|inlining procedure: k8908 
o|contracted procedure: "(scrutinizer.scm:344) chicken.compiler.scrutinizer#r-pred-call-always-true" 
o|consed rest parameter at call site: "(scrutinizer.scm:2772) chicken.compiler.scrutinizer#report-notice" 5 
o|inlining procedure: k8908 
o|inlining procedure: k8980 
o|inlining procedure: k8980 
o|contracted procedure: "(scrutinizer.scm:355) chicken.compiler.scrutinizer#r-pred-call-always-false" 
o|consed rest parameter at call site: "(scrutinizer.scm:2797) chicken.compiler.scrutinizer#report-notice" 5 
o|inlining procedure: k9062 
o|inlining procedure: k9062 
o|inlining procedure: k9096 
o|inlining procedure: k9129 
o|inlining procedure: k9129 
o|inlining procedure: "(scrutinizer.scm:386) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:387) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:384) chicken.compiler.scrutinizer#second" 
o|consed rest parameter at call site: "(scrutinizer.scm:378) chicken.compiler.scrutinizer#append-map" 3 
o|inlining procedure: "(scrutinizer.scm:376) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k9096 
o|contracted procedure: "(scrutinizer.scm:371) get-specializations789" 
o|inlining procedure: k8676 
o|inlining procedure: k8676 
o|inlining procedure: k8687 
o|inlining procedure: k8687 
o|inlining procedure: k9186 
o|inlining procedure: k9186 
o|contracted procedure: "(scrutinizer.scm:336) chicken.compiler.scrutinizer#procedure-result-types" 
o|inlining procedure: k15545 
o|inlining procedure: k15545 
o|inlining procedure: "(scrutinizer.scm:1459) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15566 
o|inlining procedure: k15588 
o|inlining procedure: k15588 
o|substituted constant variable: a15598 
o|inlining procedure: "(scrutinizer.scm:1463) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1463) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15566 
o|inlining procedure: "(scrutinizer.scm:1470) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k9215 
o|inlining procedure: k9215 
o|contracted procedure: "(scrutinizer.scm:318) chicken.compiler.scrutinizer#r-proc-call-argument-count-mismatch" 
o|consed rest parameter at call site: "(scrutinizer.scm:307) chicken.compiler.scrutinizer#append-map" 3 
o|consed rest parameter at call site: "(scrutinizer.scm:306) chicken.compiler.scrutinizer#make-list" 2 
o|inlining procedure: k9293 
o|inlining procedure: k9293 
o|inlining procedure: k9345 
o|inlining procedure: k9345 
o|removed unused formal parameters: (vars1177) 
o|inlining procedure: k9365 
o|inlining procedure: k9403 
o|inlining procedure: k9403 
o|consed rest parameter at call site: "(scrutinizer.scm:430) chicken.compiler.scrutinizer#procedure-argument-types" 4 
o|consed rest parameter at call site: "(scrutinizer.scm:431) chicken.compiler.scrutinizer#make-list" 2 
o|inlining procedure: k9365 
o|consed rest parameter at call site: "(scrutinizer.scm:432) chicken.compiler.scrutinizer#make-list" 2 
o|inlining procedure: k9452 
o|inlining procedure: k9452 
o|propagated global variable: a9474 chicken.compiler.scrutinizer#d-depth 
o|propagated global variable: a9479 chicken.compiler.scrutinizer#d-depth 
o|inlining procedure: "(scrutinizer.scm:445) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k9493 
o|inlining procedure: "(scrutinizer.scm:446) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k9493 
o|inlining procedure: k9516 
o|inlining procedure: k9516 
o|inlining procedure: "(scrutinizer.scm:449) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k9535 
o|inlining procedure: "(scrutinizer.scm:451) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k9535 
o|inlining procedure: "(scrutinizer.scm:453) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k9569 
o|inlining procedure: k9621 
o|inlining procedure: k9621 
o|inlining procedure: k9671 
o|contracted procedure: "(scrutinizer.scm:496) chicken.compiler.scrutinizer#r-cond-branch-value-count-mismatch" 
o|inlining procedure: k9671 
o|inlining procedure: k9683 
o|inlining procedure: k9683 
o|inlining procedure: k9713 
o|contracted procedure: "(scrutinizer.scm:502) g13261336" 
o|inlining procedure: k9713 
o|inlining procedure: k9761 
o|inlining procedure: k9761 
o|inlining procedure: k9807 
o|inlining procedure: k9807 
o|inlining procedure: k9841 
o|inlining procedure: k9841 
o|inlining procedure: k9863 
o|inlining procedure: k9863 
o|inlining procedure: k9872 
o|inlining procedure: k9872 
o|contracted procedure: "(scrutinizer.scm:469) always-false786" 
o|inlining procedure: k8618 
o|contracted procedure: "(scrutinizer.scm:278) chicken.compiler.scrutinizer#r-cond-test-always-false" 
o|consed rest parameter at call site: "(scrutinizer.scm:2837) chicken.compiler.scrutinizer#report-notice" 5 
o|inlining procedure: k8618 
o|inlining procedure: "(scrutinizer.scm:462) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:461) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:456) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k9569 
o|inlining procedure: k9926 
o|inlining procedure: k9926 
o|inlining procedure: k9974 
o|inlining procedure: k9974 
o|inlining procedure: "(scrutinizer.scm:517) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k10012 
o|inlining procedure: k10085 
o|inlining procedure: k10085 
o|inlining procedure: "(scrutinizer.scm:538) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k10224 
o|contracted procedure: "(scrutinizer.scm:528) g13961406" 
o|inlining procedure: k10224 
o|inlining procedure: k10273 
o|inlining procedure: k10273 
o|removed unused parameter to known procedure: vars1177 "(scrutinizer.scm:526) initial-argument-types793" 
o|inlining procedure: "(scrutinizer.scm:523) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k10012 
o|inlining procedure: k10312 
o|inlining procedure: k10312 
o|inlining procedure: k10341 
o|inlining procedure: k10341 
o|inlining procedure: k10386 
o|inlining procedure: k10386 
o|inlining procedure: k10413 
o|inlining procedure: k10413 
o|inlining procedure: k10444 
o|substituted constant variable: a10476 
o|substituted constant variable: a10477 
o|removed unused parameter to known procedure: where1913 "(scrutinizer.scm:603) chicken.compiler.scrutinizer#smash-component-types!" 
o|inlining procedure: k10510 
o|inlining procedure: k10510 
o|inlining procedure: "(scrutinizer.scm:598) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k10444 
o|inlining procedure: k10538 
o|inlining procedure: k10538 
o|contracted procedure: "(scrutinizer.scm:591) chicken.compiler.scrutinizer#r-toplevel-var-assignment-type-mismatch" 
o|inlining procedure: k22824 
o|inlining procedure: k22824 
o|inlining procedure: "(scrutinizer.scm:591) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k10575 
o|inlining procedure: k10598 
o|inlining procedure: k10598 
o|inlining procedure: k10575 
o|inlining procedure: "(scrutinizer.scm:580) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:578) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:576) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k10641 
o|inlining procedure: k10641 
o|removed unused parameter to known procedure: typeenv966 "(scrutinizer.scm:685) call-result790" 
o|inlining procedure: k10728 
o|removed unused parameter to known procedure: where1913 "(scrutinizer.scm:693) chicken.compiler.scrutinizer#smash-component-types!" 
o|removed unused parameter to known procedure: where1913 "(scrutinizer.scm:692) chicken.compiler.scrutinizer#smash-component-types!" 
o|inlining procedure: k10728 
o|inlining procedure: k10746 
o|inlining procedure: k10746 
o|inlining procedure: k10766 
o|inlining procedure: k10798 
o|inlining procedure: k10798 
o|inlining procedure: k10766 
o|inlining procedure: k10840 
o|inlining procedure: k10876 
o|inlining procedure: k10876 
o|inlining procedure: k10902 
o|inlining procedure: k10902 
o|inlining procedure: k10911 
o|inlining procedure: k10926 
o|inlining procedure: k10926 
o|inlining procedure: k10911 
o|inlining procedure: k10972 
o|inlining procedure: k10972 
o|inlining procedure: "(scrutinizer.scm:711) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:708) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k10840 
o|inlining procedure: k11015 
o|inlining procedure: k11015 
o|inlining procedure: k11038 
o|inlining procedure: k11038 
o|inlining procedure: k11072 
o|inlining procedure: k11072 
o|consed rest parameter at call site: "(scrutinizer.scm:758) chicken.compiler.scrutinizer#procedure-argument-types" 4 
o|inlining procedure: k11148 
o|inlining procedure: k11148 
o|inlining procedure: k11186 
o|inlining procedure: k11186 
o|contracted procedure: "(scrutinizer.scm:676) chicken.compiler.scrutinizer#iota" 
o|inlining procedure: k11231 
o|inlining procedure: k11252 
o|contracted procedure: "(scrutinizer.scm:767) chicken.compiler.scrutinizer#r-zero-values-for-the" 
o|inlining procedure: "(scrutinizer.scm:767) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k11252 
o|contracted procedure: "(scrutinizer.scm:774) chicken.compiler.scrutinizer#r-type-mismatch-in-the" 
o|inlining procedure: "(scrutinizer.scm:774) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:774) chicken.compiler.scrutinizer#first" 
o|consed rest parameter at call site: "(scrutinizer.scm:772) chicken.compiler.scrutinizer#compatible-types?" 3 
o|inlining procedure: "(scrutinizer.scm:772) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:771) chicken.compiler.scrutinizer#second" 
o|contracted procedure: "(scrutinizer.scm:770) chicken.compiler.scrutinizer#r-too-many-values-for-the" 
o|inlining procedure: "(scrutinizer.scm:770) chicken.compiler.scrutinizer#first" 
o|substituted constant variable: a11317 
o|inlining procedure: "(scrutinizer.scm:765) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:764) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k11231 
o|inlining procedure: k11348 
o|contracted procedure: "(scrutinizer.scm:783) chicken.compiler.scrutinizer#fail-compiler-typecase" 
o|consed rest parameter at call site: "(scrutinizer.scm:2912) chicken.compiler.scrutinizer#string-add-indent" 2 
o|inlining procedure: k22697 
o|inlining procedure: k22697 
o|consed rest parameter at call site: "(scrutinizer.scm:2935) chicken.compiler.scrutinizer#location-name" 2 
o|substituted constant variable: a22728 
o|inlining procedure: k11348 
o|inlining procedure: "(scrutinizer.scm:777) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k11418 
o|inlining procedure: k11418 
o|inlining procedure: k11444 
o|inlining procedure: k11444 
o|substituted constant variable: a11468 
o|substituted constant variable: a11470 
o|substituted constant variable: a11472 
o|substituted constant variable: a11474 
o|substituted constant variable: a11476 
o|substituted constant variable: a11478 
o|substituted constant variable: a11483 
o|substituted constant variable: a11485 
o|substituted constant variable: a11490 
o|substituted constant variable: a11492 
o|substituted constant variable: a11494 
o|substituted constant variable: a11496 
o|substituted constant variable: a11498 
o|substituted constant variable: a11500 
o|substituted constant variable: a11502 
o|substituted constant variable: a11504 
o|substituted constant variable: a11506 
o|substituted constant variable: a11508 
o|substituted constant variable: a11510 
o|inlining procedure: k11529 
o|inlining procedure: k11529 
o|inlining procedure: k11594 
o|contracted procedure: "(scrutinizer.scm:807) g18621869" 
o|propagated global variable: out18721875 ##sys#standard-output 
o|substituted constant variable: a11562 
o|substituted constant variable: a11563 
o|propagated global variable: out18721875 ##sys#standard-output 
o|inlining procedure: k11594 
o|propagated global variable: g18681870 chicken.compiler.scrutinizer#specialization-statistics 
o|inlining procedure: "(scrutinizer.scm:801) chicken.compiler.scrutinizer#first" 
o|removed unused formal parameters: (where1913) 
o|inlining procedure: k11639 
o|inlining procedure: k11639 
o|inlining procedure: k11669 
o|inlining procedure: k11689 
o|inlining procedure: k11723 
o|inlining procedure: k11723 
o|inlining procedure: k11689 
o|inlining procedure: k11770 
o|inlining procedure: k11770 
o|inlining procedure: "(scrutinizer.scm:853) chicken.compiler.scrutinizer#third" 
o|substituted constant variable: a11808 
o|substituted constant variable: a11810 
o|substituted constant variable: a11815 
o|substituted constant variable: a11817 
o|substituted constant variable: a11819 
o|substituted constant variable: a11821 
o|inlining procedure: k11669 
o|inlining procedure: k11853 
o|inlining procedure: k11865 
o|inlining procedure: k11865 
o|inlining procedure: "(scrutinizer.scm:879) optargs?2022" 
o|inlining procedure: k11853 
o|inlining procedure: k11881 
o|inlining procedure: k11881 
o|inlining procedure: "(scrutinizer.scm:882) optargs?2022" 
o|inlining procedure: k11891 
o|inlining procedure: k11891 
o|inlining procedure: k11913 
o|removed unused parameter to known procedure: opt2052 "(scrutinizer.scm:888) match-rest2021" 
o|inlining procedure: k11913 
o|removed unused parameter to known procedure: opt2052 "(scrutinizer.scm:890) match-rest2021" 
o|inlining procedure: k11943 
o|inlining procedure: k11943 
o|removed unused formal parameters: (opt2052) 
o|contracted procedure: "(scrutinizer.scm:896) chicken.compiler.scrutinizer#span" 
o|inlining procedure: k6806 
o|inlining procedure: k6806 
o|inlining procedure: k11997 
o|inlining procedure: k12007 
o|inlining procedure: k12007 
o|inlining procedure: k11997 
o|inlining procedure: k12024 
o|inlining procedure: k12024 
o|substituted constant variable: a12034 
o|inlining procedure: k12041 
o|inlining procedure: k12041 
o|inlining procedure: k12053 
o|inlining procedure: k12053 
o|inlining procedure: k12071 
o|inlining procedure: k12071 
o|substituted constant variable: a12097 
o|substituted constant variable: a12102 
o|inlining procedure: k12137 
o|inlining procedure: k12137 
o|inlining procedure: k12170 
o|inlining procedure: k12170 
o|inlining procedure: k12181 
o|inlining procedure: k12196 
o|inlining procedure: k12196 
o|inlining procedure: "(scrutinizer.scm:938) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:937) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:936) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12181 
o|inlining procedure: k12225 
o|inlining procedure: k12225 
o|inlining procedure: k12237 
o|inlining procedure: k12237 
o|inlining procedure: "(scrutinizer.scm:948) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:947) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:946) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:945) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12262 
o|inlining procedure: k12262 
o|inlining procedure: "(scrutinizer.scm:950) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:949) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:935) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12313 
o|inlining procedure: k12328 
o|inlining procedure: k12328 
o|inlining procedure: "(scrutinizer.scm:961) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:960) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:959) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12313 
o|inlining procedure: "(scrutinizer.scm:963) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:962) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:958) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12308 
o|inlining procedure: k12308 
o|inlining procedure: k12389 
o|inlining procedure: k12389 
o|inlining procedure: k12404 
o|inlining procedure: k12404 
o|inlining procedure: k12419 
o|inlining procedure: k12419 
o|inlining procedure: k12439 
o|inlining procedure: k12439 
o|inlining procedure: k12488 
o|inlining procedure: k12488 
o|inlining procedure: k12548 
o|inlining procedure: k12548 
o|inlining procedure: "(scrutinizer.scm:1006) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k12580 
o|inlining procedure: "(scrutinizer.scm:1008) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k12580 
o|inlining procedure: k12599 
o|inlining procedure: k12599 
o|inlining procedure: k12610 
o|inlining procedure: k12622 
o|inlining procedure: k12622 
o|inlining procedure: k12610 
o|inlining procedure: k12639 
o|inlining procedure: k12639 
o|inlining procedure: k12656 
o|inlining procedure: k12656 
o|inlining procedure: k12682 
o|inlining procedure: k12682 
o|inlining procedure: k12718 
o|inlining procedure: k12718 
o|inlining procedure: "(scrutinizer.scm:1030) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1030) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12753 
o|inlining procedure: k12753 
o|inlining procedure: k12793 
o|contracted procedure: "(scrutinizer.scm:1037) chicken.compiler.scrutinizer#lset<=/eq?" 
o|inlining procedure: "(scrutinizer.scm:1037) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1037) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12793 
o|inlining procedure: "(scrutinizer.scm:1035) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1035) chicken.compiler.scrutinizer#third" 
o|substituted constant variable: a12825 
o|substituted constant variable: a12830 
o|substituted constant variable: a12832 
o|substituted constant variable: a12837 
o|substituted constant variable: a12839 
o|substituted constant variable: a12841 
o|substituted constant variable: a12843 
o|substituted constant variable: a12845 
o|inlining procedure: k12846 
o|inlining procedure: "(scrutinizer.scm:1040) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k12846 
o|inlining procedure: "(scrutinizer.scm:1042) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k12878 
o|inlining procedure: k12891 
o|inlining procedure: k12903 
o|inlining procedure: "(scrutinizer.scm:1049) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k12903 
o|inlining procedure: "(scrutinizer.scm:1048) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1048) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12891 
o|inlining procedure: k12930 
o|inlining procedure: k12950 
o|inlining procedure: k12950 
o|inlining procedure: "(scrutinizer.scm:1053) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1052) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1052) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12930 
o|substituted constant variable: a12977 
o|substituted constant variable: a12979 
o|inlining procedure: k12878 
o|inlining procedure: k12986 
o|inlining procedure: k12999 
o|inlining procedure: "(scrutinizer.scm:1064) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1063) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1063) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12999 
o|inlining procedure: k13026 
o|inlining procedure: k13038 
o|inlining procedure: "(scrutinizer.scm:1071) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k13038 
o|inlining procedure: "(scrutinizer.scm:1067) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1067) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k13026 
o|substituted constant variable: a13079 
o|substituted constant variable: a13081 
o|inlining procedure: k12986 
o|inlining procedure: k13082 
o|inlining procedure: k13094 
o|inlining procedure: "(scrutinizer.scm:1080) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k13094 
o|inlining procedure: k13082 
o|inlining procedure: k13130 
o|inlining procedure: "(scrutinizer.scm:1087) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k13130 
o|inlining procedure: k13158 
o|inlining procedure: k13170 
o|inlining procedure: "(scrutinizer.scm:1095) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k13170 
o|inlining procedure: k13158 
o|inlining procedure: k13206 
o|inlining procedure: "(scrutinizer.scm:1102) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k13206 
o|inlining procedure: k13301 
o|inlining procedure: k13301 
o|inlining procedure: k13423 
o|inlining procedure: k13423 
o|inlining procedure: k13441 
o|inlining procedure: k13441 
o|inlining procedure: k13463 
o|inlining procedure: k13463 
o|inlining procedure: k13498 
o|inlining procedure: "(scrutinizer.scm:1157) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k13536 
o|inlining procedure: k13536 
o|inlining procedure: k13573 
o|contracted procedure: "(scrutinizer.scm:1146) g24172426" 
o|contracted procedure: "(scrutinizer.scm:1148) chicken.compiler.scrutinizer#make-tv" 
o|substituted constant variable: a15891 
o|inlining procedure: "(scrutinizer.scm:1147) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k13573 
o|inlining procedure: "(scrutinizer.scm:1144) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k13604 
o|inlining procedure: k13619 
o|inlining procedure: k13619 
o|inlining procedure: k13635 
o|inlining procedure: k13660 
o|contracted procedure: "(scrutinizer.scm:1168) g24942495" 
o|contracted procedure: "(scrutinizer.scm:1180) chicken.compiler.scrutinizer#merge-result-types" 
o|inlining procedure: k14639 
o|inlining procedure: k14639 
o|inlining procedure: k13719 
o|inlining procedure: k13719 
o|inlining procedure: k13660 
o|inlining procedure: k13635 
o|inlining procedure: k13744 
o|inlining procedure: k13744 
o|inlining procedure: k13762 
o|inlining procedure: k13762 
o|inlining procedure: k13780 
o|inlining procedure: k13780 
o|inlining procedure: k13798 
o|inlining procedure: k13798 
o|inlining procedure: k13863 
o|inlining procedure: k13863 
o|inlining procedure: k13881 
o|inlining procedure: k13881 
o|consed rest parameter at call site: "(scrutinizer.scm:1187) chicken.compiler.scrutinizer#append-map" 3 
o|substituted constant variable: a13905 
o|inlining procedure: k13924 
o|inlining procedure: k13924 
o|inlining procedure: k13604 
o|inlining procedure: k13967 
o|inlining procedure: k13967 
o|inlining procedure: "(scrutinizer.scm:1212) chicken.compiler.scrutinizer#third" 
o|contracted procedure: "(scrutinizer.scm:1212) chicken.compiler.scrutinizer#lset-union/eq?" 
o|inlining procedure: k7662 
o|contracted procedure: "(mini-srfi-1.scm:171) g452453" 
o|inlining procedure: k7687 
o|contracted procedure: "(mini-srfi-1.scm:173) g468469" 
o|inlining procedure: k7703 
o|inlining procedure: k7703 
o|inlining procedure: k7687 
o|inlining procedure: k7662 
o|inlining procedure: "(scrutinizer.scm:1212) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1209) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1208) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k14005 
o|inlining procedure: "(scrutinizer.scm:1217) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1216) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k14005 
o|inlining procedure: k14053 
o|inlining procedure: k14053 
o|inlining procedure: "(scrutinizer.scm:1223) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k14068 
o|inlining procedure: "(scrutinizer.scm:1228) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k14068 
o|inlining procedure: k14098 
o|inlining procedure: k14098 
o|inlining procedure: k14121 
o|inlining procedure: k14121 
o|inlining procedure: k14154 
o|inlining procedure: k14177 
o|inlining procedure: k14177 
o|inlining procedure: k14154 
o|inlining procedure: k14232 
o|inlining procedure: k14232 
o|inlining procedure: k14250 
o|inlining procedure: k14250 
o|inlining procedure: k14297 
o|inlining procedure: k14297 
o|inlining procedure: "(scrutinizer.scm:1244) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1244) chicken.compiler.scrutinizer#second" 
o|substituted constant variable: a14350 
o|substituted constant variable: a14352 
o|substituted constant variable: a14354 
o|substituted constant variable: a14356 
o|substituted constant variable: a14358 
o|substituted constant variable: a14360 
o|substituted constant variable: a14362 
o|substituted constant variable: a14364 
o|substituted constant variable: a14366 
o|inlining procedure: k13498 
o|contracted procedure: "(scrutinizer.scm:1251) chicken.compiler.scrutinizer#lset-adjoin/eq?" 
o|inlining procedure: k7576 
o|inlining procedure: k7576 
o|inlining procedure: k14388 
o|inlining procedure: k14408 
o|inlining procedure: k14408 
o|inlining procedure: k14388 
o|inlining procedure: k14446 
o|substituted constant variable: chicken.compiler.scrutinizer#constant733 
o|inlining procedure: k14446 
o|inlining procedure: k14458 
o|substituted constant variable: a14477 
o|inlining procedure: k14470 
o|inlining procedure: k14470 
o|inlining procedure: k14458 
o|inlining procedure: k14484 
o|inlining procedure: k14484 
o|inlining procedure: k14535 
o|inlining procedure: k14535 
o|substituted constant variable: a14591 
o|inlining procedure: k14584 
o|inlining procedure: k14584 
o|merged explicitly consed rest parameter: rest27642767 
o|inlining procedure: k14702 
o|inlining procedure: k14702 
o|contracted procedure: "(scrutinizer.scm:1322) chicken.compiler.scrutinizer#with-trail-restore" 
o|inlining procedure: k15089 
o|inlining procedure: k15089 
o|contracted procedure: "(scrutinizer.scm:1365) refine2818" 
o|inlining procedure: k14795 
o|inlining procedure: k14795 
o|inlining procedure: k14820 
o|inlining procedure: "(scrutinizer.scm:1342) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1341) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k14820 
o|inlining procedure: k14856 
o|inlining procedure: "(scrutinizer.scm:1345) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k14856 
o|inlining procedure: "(scrutinizer.scm:1344) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k14874 
o|inlining procedure: k14874 
o|inlining procedure: k14889 
o|inlining procedure: k14889 
o|inlining procedure: k14908 
o|inlining procedure: k14946 
o|inlining procedure: k14946 
o|inlining procedure: k14908 
o|contracted procedure: "(scrutinizer.scm:1362) chicken.compiler.scrutinizer#type-min" 
o|inlining procedure: k14727 
o|inlining procedure: k14727 
o|substituted constant variable: a15002 
o|inlining procedure: k14997 
o|inlining procedure: k15009 
o|inlining procedure: k15009 
o|inlining procedure: k14997 
o|inlining procedure: k15041 
o|inlining procedure: k15053 
o|inlining procedure: k15053 
o|inlining procedure: k15041 
o|substituted constant variable: a15073 
o|substituted constant variable: a15079 
o|inlining procedure: k15108 
o|inlining procedure: k15108 
o|inlining procedure: k15118 
o|inlining procedure: "(scrutinizer.scm:1376) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15118 
o|inlining procedure: k15137 
o|inlining procedure: k15137 
o|substituted constant variable: a15149 
o|substituted constant variable: a15151 
o|substituted constant variable: a15153 
o|inlining procedure: k15157 
o|inlining procedure: "(scrutinizer.scm:1384) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15177 
o|inlining procedure: k15195 
o|inlining procedure: k15195 
o|inlining procedure: k15177 
o|substituted constant variable: a15202 
o|substituted constant variable: a15204 
o|inlining procedure: k15157 
o|inlining procedure: k15208 
o|inlining procedure: "(scrutinizer.scm:1395) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15228 
o|inlining procedure: "(scrutinizer.scm:1399) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1400) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1397) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15228 
o|substituted constant variable: a15259 
o|substituted constant variable: a15261 
o|inlining procedure: k15208 
o|inlining procedure: k15265 
o|inlining procedure: "(scrutinizer.scm:1406) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15285 
o|inlining procedure: "(scrutinizer.scm:1408) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15285 
o|substituted constant variable: a15316 
o|substituted constant variable: a15318 
o|inlining procedure: k15265 
o|merged explicitly consed rest parameter: rest29692973 
o|inlining procedure: k15331 
o|inlining procedure: k15350 
o|inlining procedure: k15350 
o|inlining procedure: k15367 
o|inlining procedure: k15367 
o|inlining procedure: k15375 
o|consed rest parameter at call site: "(scrutinizer.scm:1439) chicken.compiler.scrutinizer#make-list" 2 
o|inlining procedure: k15375 
o|inlining procedure: "(scrutinizer.scm:1424) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1425) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1423) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1423) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15331 
o|inlining procedure: "(scrutinizer.scm:1447) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15488 
o|inlining procedure: k15488 
o|inlining procedure: "(scrutinizer.scm:1450) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15480 
o|inlining procedure: k15480 
o|consed rest parameter at call site: "(scrutinizer.scm:1454) chicken.compiler.scrutinizer#make-list" 2 
o|inlining procedure: k15673 
o|inlining procedure: k15693 
o|inlining procedure: k15693 
o|inlining procedure: k15706 
o|inlining procedure: "(scrutinizer.scm:1479) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15706 
o|substituted constant variable: a15720 
o|substituted constant variable: a15722 
o|inlining procedure: k15673 
o|inlining procedure: k15726 
o|inlining procedure: k15726 
o|inlining procedure: k15746 
o|inlining procedure: k15759 
o|inlining procedure: k15769 
o|inlining procedure: k15769 
o|inlining procedure: "(scrutinizer.scm:1493) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15759 
o|inlining procedure: k15785 
o|inlining procedure: "(scrutinizer.scm:1497) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15785 
o|substituted constant variable: a15799 
o|substituted constant variable: a15801 
o|inlining procedure: k15746 
o|inlining procedure: k15808 
o|inlining procedure: k15808 
o|inlining procedure: k15818 
o|inlining procedure: k15818 
o|inlining procedure: "(scrutinizer.scm:1505) chicken.compiler.scrutinizer#third" 
o|substituted constant variable: a15843 
o|substituted constant variable: a15845 
o|inlining procedure: k15849 
o|inlining procedure: k15864 
o|inlining procedure: "(scrutinizer.scm:1514) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15864 
o|substituted constant variable: a15878 
o|substituted constant variable: a15880 
o|inlining procedure: "(scrutinizer.scm:1512) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k15849 
o|inlining procedure: k15902 
o|inlining procedure: "(scrutinizer.scm:1532) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15922 
o|inlining procedure: k15946 
o|inlining procedure: k15964 
o|inlining procedure: k15964 
o|inlining procedure: k15946 
o|inlining procedure: k15991 
o|inlining procedure: k15991 
o|inlining procedure: "(scrutinizer.scm:1535) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k16020 
o|inlining procedure: k16037 
o|inlining procedure: k16037 
o|inlining procedure: k16020 
o|inlining procedure: k16064 
o|inlining procedure: k16064 
o|inlining procedure: "(scrutinizer.scm:1539) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1534) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1534) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15922 
o|inlining procedure: "(scrutinizer.scm:1549) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k16150 
o|contracted procedure: "(scrutinizer.scm:1543) g32043213" 
o|inlining procedure: k16118 
o|inlining procedure: k16118 
o|inlining procedure: "(scrutinizer.scm:1546) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1546) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k16150 
o|inlining procedure: "(scrutinizer.scm:1547) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k16181 
o|inlining procedure: k16197 
o|inlining procedure: k16197 
o|inlining procedure: k16181 
o|substituted constant variable: a16218 
o|substituted constant variable: a16220 
o|substituted constant variable: a16222 
o|substituted constant variable: a16224 
o|inlining procedure: k15902 
o|inlining procedure: k16234 
o|inlining procedure: k16234 
o|inlining procedure: k16292 
o|inlining procedure: "(scrutinizer.scm:1575) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1574) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k16292 
o|inlining procedure: "(scrutinizer.scm:1571) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k16284 
o|inlining procedure: k16284 
o|inlining procedure: k16337 
o|inlining procedure: k16337 
o|inlining procedure: k16355 
o|inlining procedure: k16383 
o|inlining procedure: k16383 
o|inlining procedure: k16355 
o|inlining procedure: "(scrutinizer.scm:1585) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k16431 
o|inlining procedure: "(scrutinizer.scm:1587) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1587) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k16431 
o|inlining procedure: k16490 
o|inlining procedure: k16490 
o|inlining procedure: k16521 
o|inlining procedure: k16556 
o|inlining procedure: k16556 
o|inlining procedure: k16579 
o|inlining procedure: k16579 
o|inlining procedure: k16613 
o|inlining procedure: k16613 
o|inlining procedure: k16625 
o|inlining procedure: k16625 
o|inlining procedure: k16644 
o|inlining procedure: k16644 
o|inlining procedure: k16521 
o|substituted constant variable: a16686 
o|inlining procedure: k16690 
o|inlining procedure: k16690 
o|inlining procedure: k16702 
o|inlining procedure: k16702 
o|substituted constant variable: a16709 
o|substituted constant variable: a16711 
o|substituted constant variable: a16713 
o|substituted constant variable: a16715 
o|substituted constant variable: a16717 
o|substituted constant variable: a16722 
o|substituted constant variable: a16724 
o|substituted constant variable: a16726 
o|substituted constant variable: a16728 
o|inlining procedure: k16742 
o|inlining procedure: k17064 
o|contracted procedure: "(scrutinizer.scm:1620) g34623469" 
o|inlining procedure: k16797 
o|inlining procedure: k16797 
o|consed rest parameter at call site: "(scrutinizer.scm:1665) chicken.compiler.scrutinizer#compatible-types?" 3 
o|substituted constant variable: a16840 
o|substituted constant variable: a16841 
o|inlining procedure: k16873 
o|inlining procedure: k16900 
o|inlining procedure: k16900 
o|inlining procedure: k16923 
o|inlining procedure: k16923 
o|inlining procedure: k16951 
o|inlining procedure: k16951 
o|substituted constant variable: a16991 
o|substituted constant variable: a16993 
o|substituted constant variable: a16995 
o|substituted constant variable: a16997 
o|substituted constant variable: a16999 
o|inlining procedure: k17006 
o|inlining procedure: "(scrutinizer.scm:1654) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1654) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k17006 
o|inlining procedure: k16873 
o|inlining procedure: k17064 
o|substituted constant variable: a17094 
o|substituted constant variable: a17095 
o|inlining procedure: k16742 
o|inlining procedure: k17114 
o|inlining procedure: k17114 
o|inlining procedure: k17153 
o|contracted procedure: "(scrutinizer.scm:1699) chicken.compiler.scrutinizer#cons*" 
o|inlining procedure: k7181 
o|inlining procedure: k7181 
o|inlining procedure: k17200 
o|inlining procedure: k17259 
o|inlining procedure: k17259 
o|inlining procedure: k17265 
o|inlining procedure: "(scrutinizer.scm:1713) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1713) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k17265 
o|substituted constant variable: a17287 
o|substituted constant variable: a17289 
o|inlining procedure: k17200 
o|inlining procedure: k17153 
o|substituted constant variable: a17297 
o|merged explicitly consed rest parameter: rest35983600 
o|inlining procedure: k17330 
o|inlining procedure: k17330 
o|consed rest parameter at call site: "(scrutinizer.scm:1739) chicken.compiler.scrutinizer#source-node" 2 
o|inlining procedure: k17384 
o|inlining procedure: k17384 
o|consed rest parameter at call site: "(scrutinizer.scm:1742) chicken.compiler.scrutinizer#source-node" 2 
o|inlining procedure: k17489 
o|inlining procedure: k17502 
o|inlining procedure: k17502 
o|inlining procedure: k17517 
o|inlining procedure: k17517 
o|inlining procedure: k17489 
o|inlining procedure: k17553 
o|inlining procedure: k17553 
o|inlining procedure: k17591 
o|inlining procedure: k17591 
o|substituted constant variable: a17611 
o|substituted constant variable: a17623 
o|inlining procedure: k17676 
o|inlining procedure: k17676 
o|inlining procedure: k17704 
o|inlining procedure: k17704 
o|inlining procedure: k17716 
o|inlining procedure: k17716 
o|inlining procedure: k17734 
o|inlining procedure: k17734 
o|inlining procedure: k17742 
o|inlining procedure: k17757 
o|inlining procedure: k17757 
o|inlining procedure: k17742 
o|inlining procedure: k17796 
o|inlining procedure: k17796 
o|inlining procedure: k17837 
o|inlining procedure: k17837 
o|inlining procedure: k17849 
o|inlining procedure: k17849 
o|inlining procedure: k17864 
o|inlining procedure: k17864 
o|inlining procedure: k17876 
o|inlining procedure: k17876 
o|inlining procedure: k17891 
o|inlining procedure: k17891 
o|inlining procedure: k17900 
o|inlining procedure: k17900 
o|inlining procedure: k17906 
o|inlining procedure: "(scrutinizer.scm:1855) chicken.compiler.scrutinizer#second" 
o|substituted constant variable: a17929 
o|inlining procedure: k17906 
o|inlining procedure: k17940 
o|inlining procedure: "(scrutinizer.scm:1881) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k17980 
o|inlining procedure: k17995 
o|inlining procedure: k17995 
o|inlining procedure: k17980 
o|inlining procedure: "(scrutinizer.scm:1879) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k18015 
o|inlining procedure: k18015 
o|inlining procedure: k18036 
o|inlining procedure: k18036 
o|substituted constant variable: a18049 
o|inlining procedure: k18064 
o|inlining procedure: k18064 
o|inlining procedure: "(scrutinizer.scm:1869) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1858) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k17940 
o|substituted constant variable: a18099 
o|inlining procedure: k18112 
o|inlining procedure: k18112 
o|inlining procedure: k18107 
o|inlining procedure: k18107 
o|inlining procedure: k18131 
o|inlining procedure: k18161 
o|inlining procedure: k18161 
o|inlining procedure: k18131 
o|inlining procedure: k18192 
o|inlining procedure: k18204 
o|inlining procedure: k18204 
o|inlining procedure: "(scrutinizer.scm:1897) chicken.compiler.scrutinizer#second" 
o|substituted constant variable: a18214 
o|inlining procedure: k18192 
o|inlining procedure: k18225 
o|inlining procedure: "(scrutinizer.scm:1899) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k18225 
o|substituted constant variable: a18241 
o|inlining procedure: k18246 
o|inlining procedure: k18261 
o|inlining procedure: k18297 
o|inlining procedure: "(scrutinizer.scm:1906) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k18297 
o|inlining procedure: "(scrutinizer.scm:1905) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1904) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k18261 
o|contracted procedure: "(scrutinizer.scm:1903) g38593860" 
o|inlining procedure: k18282 
o|inlining procedure: k18282 
o|contracted procedure: "(scrutinizer.scm:160) g38653866" 
o|inlining procedure: k18268 
o|inlining procedure: k18268 
o|inlining procedure: "(scrutinizer.scm:1902) chicken.compiler.scrutinizer#third" 
o|substituted constant variable: a18322 
o|inlining procedure: k18246 
o|inlining procedure: k18353 
o|contracted procedure: "(scrutinizer.scm:1916) upto3690" 
o|inlining procedure: k17648 
o|inlining procedure: k17648 
o|inlining procedure: k18353 
o|inlining procedure: k18393 
o|inlining procedure: k18393 
o|inlining procedure: "(scrutinizer.scm:1921) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1921) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k18423 
o|inlining procedure: k18423 
o|substituted constant variable: a18440 
o|substituted constant variable: a18463 
o|inlining procedure: k18456 
o|inlining procedure: k18470 
o|inlining procedure: "(scrutinizer.scm:1930) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k18470 
o|substituted constant variable: a18493 
o|inlining procedure: k18456 
o|substituted constant variable: a18505 
o|inlining procedure: k18506 
o|inlining procedure: k18522 
o|inlining procedure: k18522 
o|inlining procedure: k18506 
o|inlining procedure: k18565 
o|inlining procedure: k18589 
o|inlining procedure: k18589 
o|inlining procedure: k18601 
o|inlining procedure: k18601 
o|substituted constant variable: a18632 
o|inlining procedure: k18565 
o|inlining procedure: k18643 
o|inlining procedure: k18661 
o|inlining procedure: k18673 
o|inlining procedure: k18713 
o|inlining procedure: k18734 
o|inlining procedure: k18734 
o|inlining procedure: k18713 
o|inlining procedure: k18673 
o|inlining procedure: k18661 
o|inlining procedure: k18643 
o|inlining procedure: k18826 
o|inlining procedure: k18838 
o|inlining procedure: "(scrutinizer.scm:1886) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k18838 
o|inlining procedure: "(scrutinizer.scm:1884) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k18826 
o|substituted constant variable: chicken.compiler.scrutinizer#constant724 
o|inlining procedure: k18905 
o|inlining procedure: k18905 
o|inlining procedure: k18940 
o|inlining procedure: k18940 
o|inlining procedure: k18966 
o|inlining procedure: k18966 
o|inlining procedure: k18890 
o|inlining procedure: k18890 
o|inlining procedure: k19025 
o|inlining procedure: k19025 
o|inlining procedure: k19078 
o|inlining procedure: k19078 
o|inlining procedure: k19055 
o|inlining procedure: k19103 
o|inlining procedure: k19103 
o|inlining procedure: k19118 
o|inlining procedure: k19145 
o|inlining procedure: k19145 
o|inlining procedure: k19167 
o|inlining procedure: k19167 
o|inlining procedure: "(scrutinizer.scm:2027) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k19118 
o|inlining procedure: "(scrutinizer.scm:2029) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:2020) chicken.compiler.scrutinizer#second" 
o|substituted constant variable: a19222 
o|substituted constant variable: a19224 
o|consed rest parameter at call site: "(scrutinizer.scm:2014) chicken.compiler.scrutinizer#append-map" 3 
o|inlining procedure: k19232 
o|inlining procedure: k19232 
o|inlining procedure: "(scrutinizer.scm:2013) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k19055 
o|inlining procedure: "(scrutinizer.scm:2006) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k19285 
o|inlining procedure: k19285 
o|inlining procedure: k19319 
o|inlining procedure: k19319 
o|inlining procedure: k19347 
o|inlining procedure: k19347 
o|inlining procedure: "(scrutinizer.scm:2050) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:2050) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k19381 
o|inlining procedure: k19381 
o|inlining procedure: "(scrutinizer.scm:2051) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:2049) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:2045) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:2044) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k19445 
o|inlining procedure: k19445 
o|inlining procedure: k19486 
o|inlining procedure: k19498 
o|inlining procedure: k19510 
o|inlining procedure: k19522 
o|inlining procedure: k19534 
o|inlining procedure: k19534 
o|inlining procedure: "(scrutinizer.scm:2100) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k19522 
o|inlining procedure: "(scrutinizer.scm:2098) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k19510 
o|inlining procedure: k19498 
o|inlining procedure: "(scrutinizer.scm:2095) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k19486 
o|inlining procedure: k19588 
o|inlining procedure: k19588 
o|inlining procedure: k19594 
o|inlining procedure: "(scrutinizer.scm:2114) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k19594 
o|inlining procedure: "(scrutinizer.scm:2113) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k19645 
o|inlining procedure: k19645 
o|inlining procedure: k19657 
o|inlining procedure: k19669 
o|inlining procedure: k19669 
o|inlining procedure: k19657 
o|inlining procedure: k19684 
o|contracted procedure: "(scrutinizer.scm:2157) chicken.compiler.scrutinizer#split-at" 
o|inlining procedure: k6908 
o|inlining procedure: k6908 
o|inlining procedure: k19684 
o|inlining procedure: k19721 
o|inlining procedure: k19733 
o|inlining procedure: k19733 
o|inlining procedure: "(scrutinizer.scm:2167) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:2166) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:2165) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k19721 
o|inlining procedure: "(scrutinizer.scm:2160) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:2155) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k19836 
o|inlining procedure: k19836 
o|inlining procedure: k19842 
o|inlining procedure: k19854 
o|inlining procedure: k19866 
o|inlining procedure: k19875 
o|inlining procedure: k19875 
o|inlining procedure: k19891 
o|inlining procedure: k19891 
o|contracted procedure: "(scrutinizer.scm:2194) proper-list-type-length4371" 
o|inlining procedure: k19798 
o|inlining procedure: k19798 
o|inlining procedure: k19866 
o|inlining procedure: "(scrutinizer.scm:2186) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k19854 
o|inlining procedure: "(scrutinizer.scm:2184) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:2183) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k19842 
o|substituted constant variable: a19918 
o|inlining procedure: k19962 
o|inlining procedure: k19962 
o|inlining procedure: k19983 
o|inlining procedure: k19999 
o|contracted procedure: "(scrutinizer.scm:2258) g46494650" 
o|inlining procedure: k19999 
o|inlining procedure: k19983 
o|inlining procedure: k20033 
o|inlining procedure: k20033 
o|contracted procedure: "(scrutinizer.scm:2273) potentially-proper-list?4623" 
o|inlining procedure: k20096 
o|inlining procedure: k20096 
o|inlining procedure: k20218 
o|removed side-effect free assignment to unused variable: anyinst4715 
o|inlining procedure: k20218 
o|inlining procedure: k20294 
o|inlining procedure: k20294 
o|inlining procedure: k20315 
o|inlining procedure: k20315 
o|contracted procedure: "(scrutinizer.scm:2337) chicken.compiler.scrutinizer#concatenate" 
o|inlining procedure: k7209 
o|inlining procedure: k7209 
o|inlining procedure: k20363 
o|inlining procedure: k20363 
o|inlining procedure: k20407 
o|inlining procedure: k20464 
o|inlining procedure: k20464 
o|inlining procedure: k20407 
o|inlining procedure: k20501 
o|inlining procedure: k20501 
o|inlining procedure: k20522 
o|inlining procedure: k20522 
o|merged explicitly consed rest parameter: rest48484850 
o|inlining procedure: k20540 
o|substituted constant variable: a20550 
o|inlining procedure: k20540 
o|inlining procedure: k20567 
o|inlining procedure: k20567 
o|inlining procedure: k20582 
o|inlining procedure: k20582 
o|merged explicitly consed rest parameter: rest48974899 
o|consed rest parameter at call site: "(scrutinizer.scm:2400) conv4888" 2 
o|inlining procedure: k20657 
o|inlining procedure: k20657 
o|substituted constant variable: a20683 
o|substituted constant variable: a20684 
o|inlining procedure: "(scrutinizer.scm:2406) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k20721 
o|inlining procedure: k20721 
o|inlining procedure: "(scrutinizer.scm:2406) chicken.compiler.scrutinizer#second" 
o|contracted procedure: "(scrutinizer.scm:2411) pp-tv4887" 
o|inlining procedure: k20755 
o|consed rest parameter at call site: "(scrutinizer.scm:2412) conv4888" 2 
o|inlining procedure: "(scrutinizer.scm:2412) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k20792 
o|inlining procedure: k20792 
o|inlining procedure: "(scrutinizer.scm:2411) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k20755 
o|substituted constant variable: a20833 
o|inlining procedure: k20829 
o|inlining procedure: k20853 
o|inlining procedure: k20853 
o|inlining procedure: k20829 
o|inlining procedure: k20890 
o|inlining procedure: k20928 
o|inlining procedure: k20928 
o|inlining procedure: k20939 
o|inlining procedure: k20939 
o|inlining procedure: k20951 
o|inlining procedure: k20951 
o|inlining procedure: k20969 
o|inlining procedure: k20969 
o|inlining procedure: k21003 
o|inlining procedure: k21003 
o|inlining procedure: k20890 
o|inlining procedure: "(scrutinizer.scm:2410) chicken.compiler.scrutinizer#second" 
o|consed rest parameter at call site: "(scrutinizer.scm:2431) chicken.compiler.scrutinizer#string-add-indent" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:2430) conv4888" 2 
o|inlining procedure: k21097 
o|inlining procedure: k21097 
o|inlining procedure: k21112 
o|inlining procedure: k21140 
o|inlining procedure: k21140 
o|substituted constant variable: a21181 
o|inlining procedure: k21112 
o|consed rest parameter at call site: "(scrutinizer.scm:2450) chicken.compiler.scrutinizer#string-add-indent" 2 
o|inlining procedure: k21220 
o|substituted constant variable: a21230 
o|substituted constant variable: a21231 
o|inlining procedure: k21220 
o|contracted procedure: "(scrutinizer.scm:2457) chicken.compiler.scrutinizer#node-line-number" 
o|contracted procedure: "(scrutinizer.scm:1750) chicken.compiler.scrutinizer#node-debug-info" 
o|inlining procedure: k17431 
o|inlining procedure: k17446 
o|inlining procedure: k17446 
o|inlining procedure: k17431 
o|substituted constant variable: a17480 
o|substituted constant variable: a17482 
o|consed rest parameter at call site: "(scrutinizer.scm:1750) chicken.compiler.scrutinizer#source-node" 2 
o|merged explicitly consed rest parameter: rest51605162 
o|inlining procedure: k21278 
o|inlining procedure: k21278 
o|inlining procedure: k21297 
o|inlining procedure: k21315 
o|substituted constant variable: a21351 
o|substituted constant variable: a21352 
o|substituted constant variable: a21369 
o|substituted constant variable: a21370 
o|inlining procedure: k21315 
o|inlining procedure: k21297 
o|contracted procedure: "(scrutinizer.scm:2481) lname5168" 
o|substituted constant variable: a21260 
o|substituted constant variable: a21261 
o|inlining procedure: k21253 
o|inlining procedure: k21253 
o|inlining procedure: k21423 
o|inlining procedure: "(scrutinizer.scm:2487) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:2487) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k21423 
o|substituted constant variable: a21487 
o|substituted constant variable: a21488 
o|inlining procedure: k21480 
o|substituted constant variable: a21511 
o|substituted constant variable: a21512 
o|inlining procedure: k21480 
o|inlining procedure: k21548 
o|inlining procedure: k21548 
o|inlining procedure: "(scrutinizer.scm:2516) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k21584 
o|inlining procedure: k21596 
o|inlining procedure: k21596 
o|inlining procedure: k21584 
o|inlining procedure: "(scrutinizer.scm:2502) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:2521) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k21667 
o|inlining procedure: k21667 
o|substituted constant variable: a21677 
o|inlining procedure: k21682 
o|consed rest parameter at call site: "(scrutinizer.scm:2532) chicken.compiler.scrutinizer#string-add-indent" 2 
o|substituted constant variable: a21719 
o|substituted constant variable: a21720 
o|consed rest parameter at call site: "(scrutinizer.scm:2534) chicken.compiler.scrutinizer#location-name" 2 
o|inlining procedure: k21682 
o|merged explicitly consed rest parameter: args5310 
o|substituted constant variable: a21973 
o|substituted constant variable: a21974 
o|inlining procedure: k21991 
o|inlining procedure: k21991 
o|substituted constant variable: a22008 
o|substituted constant variable: a22009 
o|substituted constant variable: a22067 
o|substituted constant variable: a22068 
o|substituted constant variable: a22085 
o|substituted constant variable: a22086 
o|substituted constant variable: a22116 
o|substituted constant variable: a22117 
o|substituted constant variable: a22134 
o|substituted constant variable: a22135 
o|inlining procedure: k22185 
o|inlining procedure: k22185 
o|substituted constant variable: a22202 
o|substituted constant variable: a22203 
o|inlining procedure: k22251 
o|substituted constant variable: a22265 
o|substituted constant variable: a22266 
o|inlining procedure: k22251 
o|substituted constant variable: a22291 
o|substituted constant variable: a22292 
o|substituted constant variable: a22316 
o|substituted constant variable: a22317 
o|inlining procedure: k22371 
o|substituted constant variable: a22385 
o|substituted constant variable: a22386 
o|inlining procedure: k22371 
o|substituted constant variable: a22411 
o|substituted constant variable: a22412 
o|substituted constant variable: a22436 
o|substituted constant variable: a22437 
o|merged explicitly consed rest parameter: rest56455649 
o|substituted constant variable: a22847 
o|substituted constant variable: a22848 
o|substituted constant variable: a22885 
o|substituted constant variable: a22886 
o|contracted procedure: "(scrutinizer.scm:2306) complex-object-constructor-result-type-special-case4676" 
o|inlining procedure: k20119 
o|inlining procedure: k20119 
o|inlining procedure: k20128 
o|inlining procedure: k20140 
o|inlining procedure: k20152 
o|consed rest parameter at call site: "(scrutinizer.scm:2302) chicken.compiler.scrutinizer#make-list" 2 
o|inlining procedure: k20152 
o|inlining procedure: "(scrutinizer.scm:2299) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k20140 
o|inlining procedure: "(scrutinizer.scm:2297) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k20128 
o|inlining procedure: k20183 
o|inlining procedure: "(scrutinizer.scm:2295) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k20183 
o|substituted constant variable: a20197 
o|substituted constant variable: a20199 
o|inlining procedure: k22932 
o|inlining procedure: k22932 
o|inlining procedure: k22938 
o|inlining procedure: k22950 
o|inlining procedure: k22950 
o|inlining procedure: "(scrutinizer.scm:2235) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k22938 
o|substituted constant variable: a22984 
o|inlining procedure: k23011 
o|inlining procedure: k23011 
o|inlining procedure: k23068 
o|inlining procedure: k23068 
o|inlining procedure: k23102 
o|inlining procedure: k23102 
o|inlining procedure: k23129 
o|inlining procedure: k23129 
o|inlining procedure: k23167 
o|inlining procedure: k23167 
o|inlining procedure: k23194 
o|inlining procedure: k23194 
o|inlining procedure: k23246 
o|inlining procedure: k23246 
o|inlining procedure: k23268 
o|inlining procedure: k23268 
o|inlining procedure: k23274 
o|inlining procedure: k23286 
o|inlining procedure: "(scrutinizer.scm:2128) chicken.compiler.scrutinizer#fourth" 
o|inlining procedure: k23286 
o|inlining procedure: "(scrutinizer.scm:2127) chicken.compiler.scrutinizer#fourth" 
o|inlining procedure: "(scrutinizer.scm:2126) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k23274 
o|inlining procedure: k23325 
o|inlining procedure: k23325 
o|inlining procedure: k23331 
o|inlining procedure: k23343 
o|inlining procedure: k23355 
o|inlining procedure: k23355 
o|inlining procedure: "(scrutinizer.scm:2082) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k23343 
o|inlining procedure: "(scrutinizer.scm:2080) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k23331 
o|substituted constant variable: a23387 
o|simplifications: ((if . 10)) 
o|replaced variables: 4767 
o|removed binding forms: 888 
o|substituted constant variable: r685123388 
o|substituted constant variable: r695723392 
o|substituted constant variable: r699723394 
o|substituted constant variable: r715223402 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#first 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#second 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#third 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#fourth 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#filter 
o|substituted constant variable: r740523415 
o|substituted constant variable: r776023418 
o|substituted constant variable: r779623421 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#d 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#constant724 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#constant733 
o|substituted constant variable: r809423436 
o|substituted constant variable: r815623439 
o|substituted constant variable: r816823441 
o|substituted constant variable: r818323443 
o|substituted constant variable: r819523445 
o|substituted constant variable: r820723447 
o|substituted constant variable: r821923449 
o|substituted constant variable: r821923450 
o|substituted constant variable: r822223451 
o|substituted constant variable: r837923461 
o|substituted constant variable: r837923462 
o|substituted constant variable: r845123464 
o|substituted constant variable: r846023466 
o|substituted constant variable: r787323467 
o|substituted constant variable: r850223472 
o|substituted constant variable: r840923475 
o|substituted constant variable: r840423478 
o|substituted constant variable: r852623480 
o|substituted constant variable: r860723496 
o|substituted constant variable: r860723497 
o|substituted constant variable: r862823498 
o|substituted constant variable: r864623500 
o|removed side-effect free assignment to unused variable: add-loc788 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:406) chicken.base#void" 
o|substituted constant variable: r884923521 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:394) chicken.base#void" 
o|substituted constant variable: r909723553 
o|substituted constant variable: r867723555 
o|substituted constant variable: r868823558 
o|substituted constant variable: r868823558 
o|substituted constant variable: r918723561 
o|substituted constant variable: r1558923570 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:309) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:420) chicken.base#void" 
o|substituted constant variable: r945323600 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:798) chicken.base#void" 
o|substituted constant variable: r951723613 
o|substituted constant variable: r967223635 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:501) chicken.base#void" 
o|substituted constant variable: r976223642 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:488) chicken.base#void" 
o|substituted constant variable: r986423648 
o|substituted constant variable: r861923651 
o|substituted constant variable: r861923652 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:566) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:533) chicken.base#void" 
o|substituted constant variable: r1027423688 
o|substituted constant variable: r1027423688 
o|substituted constant variable: r1027423690 
o|substituted constant variable: r1027423690 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:658) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:645) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:651) chicken.base#void" 
o|substituted constant variable: r1044523718 
o|substituted constant variable: r1053923720 
o|inlining procedure: k10598 
o|substituted constant variable: r1057623735 
o|substituted constant variable: r1064223751 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:732) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:720) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:740) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:751) chicken.base#void" 
o|substituted constant variable: r1097323773 
o|converted assignments to bindings: (smash1662) 
o|inlining procedure: k11246 
o|inlining procedure: k11246 
o|converted assignments to bindings: (pp-type5597) 
o|substituted constant variable: r1141923849 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:438) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:817) chicken.base#void" 
o|propagated global variable: out18721875 ##sys#standard-output 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:178) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:836) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:840) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:845) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:849) chicken.base#void" 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#ble-id 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#ble-tag 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#ble-type 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#ble-type-set! 
o|substituted constant variable: a1203423884 
o|substituted constant variable: a1203423891 
o|substituted constant variable: r1194423897 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:874) chicken.base#void" 
o|substituted constant variable: r1200823903 
o|substituted constant variable: r1200823903 
o|substituted constant variable: r1199823905 
o|removed side-effect free assignment to unused variable: optargs?2022 
o|substituted constant variable: r1226323962 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:951) chicken.base#void" 
o|substituted constant variable: r1226323963 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:964) chicken.base#void" 
o|substituted constant variable: r1240524017 
o|substituted constant variable: r1260024040 
o|substituted constant variable: r1262324043 
o|substituted constant variable: r1264024046 
o|substituted constant variable: r1279424076 
o|substituted constant variable: r1290424107 
o|substituted constant variable: r1295124120 
o|substituted constant variable: r1295124120 
o|substituted constant variable: r1293124139 
o|substituted constant variable: r1300024158 
o|substituted constant variable: r1303924166 
o|substituted constant variable: r1302724177 
o|substituted constant variable: r1298724178 
o|substituted constant variable: r1309524186 
o|substituted constant variable: r1313124194 
o|substituted constant variable: r1317124202 
o|substituted constant variable: r1320724210 
o|substituted constant variable: r1330224212 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:930) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:1107) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:1105) chicken.base#void" 
o|substituted constant variable: r1346424218 
o|substituted constant variable: r1353724226 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:1163) chicken.base#void" 
o|substituted constant variable: r1464024244 
o|substituted constant variable: r1372024247 
o|substituted constant variable: r1374524250 
o|substituted constant variable: r1405424306 
o|substituted constant variable: r1409924320 
o|substituted constant variable: r1423324328 
o|substituted constant variable: r1423324328 
o|substituted constant variable: r1440924357 
o|substituted constant variable: r1444724365 
o|substituted constant variable: r1447124368 
o|substituted constant variable: r1453624374 
o|substituted constant variable: r1485724402 
o|substituted constant variable: r1489024411 
o|substituted constant variable: r1501024421 
o|substituted constant variable: r1499824422 
o|substituted constant variable: r1505424426 
o|substituted constant variable: r1504224427 
o|substituted constant variable: r1513824438 
o|substituted constant variable: r1519624447 
o|substituted constant variable: r1517824448 
o|substituted constant variable: r1515824449 
o|substituted constant variable: r1520924473 
o|substituted constant variable: r1526624487 
o|substituted constant variable: r1535124489 
o|inlining procedure: k15357 
o|inlining procedure: k15357 
o|substituted constant variable: r1536824491 
o|substituted constant variable: r1570724541 
o|substituted constant variable: r1567424542 
o|substituted constant variable: r1572724543 
o|substituted constant variable: r1576024556 
o|substituted constant variable: r1578624563 
o|substituted constant variable: r1574724564 
o|substituted constant variable: r1586524581 
o|substituted constant variable: r1585024587 
o|substituted constant variable: r1655724704 
o|substituted constant variable: r1655724704 
o|substituted constant variable: r1661424710 
o|substituted constant variable: r1674324746 
o|substituted constant variable: r1711524748 
o|substituted constant variable: r1726024755 
o|substituted constant variable: r1726024755 
o|substituted constant variable: r1726024757 
o|substituted constant variable: r1726024757 
o|substituted constant variable: r1759224786 
o|substituted constant variable: r1767724787 
o|substituted constant variable: r1770524789 
o|substituted constant variable: r1771724791 
o|substituted constant variable: r1773524794 
o|substituted constant variable: r1775824796 
o|substituted constant variable: r1779724800 
o|substituted constant variable: r1786524805 
o|substituted constant variable: r1787724807 
o|substituted constant variable: r1790124812 
o|substituted constant variable: r1798124833 
o|substituted constant variable: r1803724842 
o|substituted constant variable: r1794124855 
o|substituted constant variable: r1813224865 
o|substituted constant variable: r1820524868 
o|substituted constant variable: r1822624881 
o|substituted constant variable: r1829824890 
o|substituted constant variable: r1826224901 
o|substituted constant variable: r1826924905 
o|substituted constant variable: r1764924913 
o|substituted constant variable: r1839424917 
o|substituted constant variable: r1842424929 
o|substituted constant variable: r1847124937 
o|substituted constant variable: r1850724942 
o|substituted constant variable: r1859024945 
o|substituted constant variable: r1871424955 
o|substituted constant variable: r1867424956 
o|substituted constant variable: r1866224957 
o|substituted constant variable: r1864424958 
o|substituted constant variable: r1883924968 
o|substituted constant variable: r1882724974 
o|inlining procedure: k18905 
o|substituted constant variable: r1890624977 
o|substituted constant variable: r1890624977 
o|converted assignments to bindings: (fail4081) 
o|substituted constant variable: r1953525073 
o|substituted constant variable: r1952325079 
o|substituted constant variable: r1951125085 
o|substituted constant variable: r1949925086 
o|substituted constant variable: r1948725092 
o|substituted constant variable: r1959525101 
o|substituted constant variable: r1964625107 
o|substituted constant variable: r1967025111 
o|substituted constant variable: r1968525116 
o|substituted constant variable: r1972225135 
o|substituted constant variable: r1987625151 
o|substituted constant variable: r1989225154 
o|substituted constant variable: r1979925155 
o|substituted constant variable: r1986725157 
o|substituted constant variable: r1985525163 
o|substituted constant variable: r1984325174 
o|substituted constant variable: r1996325175 
o|substituted constant variable: r1998425180 
o|substituted constant variable: r2003425182 
o|inlining procedure: k20056 
o|converted assignments to bindings: (derive-result-type4624) 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:2331) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:2320) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:2349) chicken.base#void" 
o|substituted constant variable: r721025191 
o|substituted constant variable: r2050225199 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:2352) chicken.base#void" 
o|substituted constant variable: r2052325201 
o|substituted constant variable: r2052325202 
o|contracted procedure: "(scrutinizer.scm:2411) g49684977" 
o|substituted constant variable: r2092925244 
o|substituted constant variable: r2092925244 
o|substituted constant variable: r2094025246 
o|substituted constant variable: r2094025246 
o|substituted constant variable: r2094025248 
o|substituted constant variable: r2094025248 
o|substituted constant variable: r2095225251 
o|converted assignments to bindings: (R4909) 
o|substituted constant variable: r2122125269 
o|substituted constant variable: r1744725273 
o|substituted constant variable: r2131625280 
o|substituted constant variable: r2131625280 
o|substituted constant variable: r2125425284 
o|substituted constant variable: r2159725308 
o|substituted constant variable: r2158525309 
o|substituted constant variable: r2166825321 
o|converted assignments to bindings: (file-location5289) 
o|converted assignments to bindings: (p5443) 
o|converted assignments to bindings: (p5465) 
o|converted assignments to bindings: (p5513) 
o|substituted constant variable: type4677 
o|substituted constant variable: r2015325337 
o|substituted constant variable: r2014125343 
o|substituted constant variable: r2012925349 
o|substituted constant variable: r2018425356 
o|converted assignments to bindings: (append-special-case4612) 
o|substituted constant variable: r2295125361 
o|substituted constant variable: r2293925367 
o|substituted constant variable: r2310325372 
o|substituted constant variable: r2316825376 
o|substituted constant variable: r2324725381 
o|substituted constant variable: r2328725391 
o|substituted constant variable: r2327525402 
o|substituted constant variable: r2335625408 
o|substituted constant variable: r2334425414 
o|substituted constant variable: r2333225420 
o|simplifications: ((let . 10)) 
o|replaced variables: 987 
o|removed binding forms: 3936 
o|inlining procedure: k7936 
o|contracted procedure: k8118 
o|inlining procedure: "(scrutinizer.scm:2821) chicken.compiler.scrutinizer#report-notice" 
o|contracted procedure: k8718 
o|contracted procedure: k8779 
o|contracted procedure: k8876 
o|inlining procedure: "(scrutinizer.scm:2772) chicken.compiler.scrutinizer#report-notice" 
o|inlining procedure: "(scrutinizer.scm:2797) chicken.compiler.scrutinizer#report-notice" 
o|inlining procedure: k15618 
o|contracted procedure: k9348 
o|contracted procedure: k9470 
o|contracted procedure: k9480 
o|contracted procedure: k9686 
o|contracted procedure: k9813 
o|inlining procedure: k9890 
o|inlining procedure: "(scrutinizer.scm:2837) chicken.compiler.scrutinizer#report-notice" 
o|inlining procedure: k9890 
o|inlining procedure: "(scrutinizer.scm:520) chicken.compiler.scrutinizer#alist-cons" 
o|inlining procedure: "(scrutinizer.scm:519) chicken.compiler.scrutinizer#alist-cons" 
o|contracted procedure: k10121 
o|inlining procedure: "(scrutinizer.scm:539) chicken.compiler.scrutinizer#alist-cons" 
o|contracted procedure: k10318 
o|contracted procedure: k10350 
o|inlining procedure: "(scrutinizer.scm:646) chicken.compiler.scrutinizer#alist-cons" 
o|contracted procedure: k10374 
o|substituted constant variable: r1059925521 
o|folded constant expression: (scheme#not (quote #f)) 
o|inlining procedure: k10613 
o|contracted procedure: k10870 
o|contracted procedure: k10885 
o|contracted procedure: k10920 
o|contracted procedure: k10959 
o|inlining procedure: "(scrutinizer.scm:2938) pp-type5597" 
o|inlining procedure: "(scrutinizer.scm:2937) pp-type5597" 
o|contracted procedure: k11526 
o|contracted procedure: k11682 
o|contracted procedure: k11695 
o|contracted procedure: k11763 
o|contracted procedure: k11776 
o|contracted procedure: k11844 
o|inlining procedure: "(mini-srfi-1.scm:50) a11984" 
o|contracted procedure: k12164 
o|contracted procedure: k12271 
o|contracted procedure: k12355 
o|contracted procedure: k13374 
o|contracted procedure: k13380 
o|inlining procedure: k13555 
o|contracted procedure: k13632 
o|inlining procedure: k13713 
o|inlining procedure: k13713 
o|inlining procedure: k7718 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:1267) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:1267) chicken.base#void" 
o|inlining procedure: k15300 
o|substituted constant variable: r153512448925635 
o|substituted constant variable: r153512448925638 
o|inlining procedure: "(scrutinizer.scm:1779) chicken.compiler.scrutinizer#alist-cons" 
o|consed rest parameter at call site: "(scrutinizer.scm:1833) validate3693" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1837) validate3693" 2 
o|merged explicitly consed rest parameter: rest37413743 
o|consed rest parameter at call site: "(scrutinizer.scm:1855) validate3693" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1881) validate3693" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1876) validate3693" 2 
o|inlining procedure: k18024 
o|inlining procedure: k18024 
o|consed rest parameter at call site: "(scrutinizer.scm:1893) validate3693" 2 
o|inlining procedure: k18279 
o|consed rest parameter at call site: "(scrutinizer.scm:1902) validate3693" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1915) validate3693" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1924) validate3693" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1921) validate3693" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1930) validate3693" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1936) validate3693" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1941) validate3693" 2 
o|inlining procedure: k18701 
o|consed rest parameter at call site: "(scrutinizer.scm:1958) validate3693" 2 
o|substituted constant variable: r1890625723 
o|consed rest parameter at call site: "(scrutinizer.scm:1967) validate3693" 2 
o|inlining procedure: k19585 
o|inlining procedure: k19585 
o|inlining procedure: k19585 
o|inlining procedure: k19833 
o|inlining procedure: k19833 
o|inlining procedure: k19833 
o|inlining procedure: k19833 
o|inlining procedure: k19833 
o|inlining procedure: k19833 
o|inlining procedure: k19833 
o|inlining procedure: k19833 
o|inlining procedure: k19833 
o|inlining procedure: k19833 
o|substituted constant variable: r200342518225755 
o|contracted procedure: k20209 
o|contracted procedure: k20240 
o|inlining procedure: "(scrutinizer.scm:2327) chicken.compiler.scrutinizer#alist-cons" 
o|contracted procedure: k20309 
o|contracted procedure: k20394 
o|inlining procedure: k20628 
o|inlining procedure: k21399 
o|inlining procedure: k22920 
o|inlining procedure: k20116 
o|inlining procedure: k20116 
o|inlining procedure: k20116 
o|inlining procedure: k20116 
o|inlining procedure: k20116 
o|inlining procedure: k20116 
o|inlining procedure: k20116 
o|inlining procedure: k22929 
o|inlining procedure: k22929 
o|inlining procedure: k22929 
o|inlining procedure: k22929 
o|inlining procedure: k22929 
o|inlining procedure: k23265 
o|inlining procedure: k23265 
o|inlining procedure: k23265 
o|inlining procedure: k23265 
o|inlining procedure: k23265 
o|inlining procedure: k23265 
o|inlining procedure: k23322 
o|inlining procedure: k23322 
o|inlining procedure: k23322 
o|inlining procedure: k23322 
o|inlining procedure: k23322 
o|inlining procedure: k23322 
o|inlining procedure: k23322 
o|replaced variables: 5 
o|removed binding forms: 1145 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#alist-cons 
o|substituted constant variable: r793725853 
o|substituted constant variable: reason530625865 
o|inlining procedure: k8776 
o|substituted constant variable: reason530625887 
o|substituted constant variable: reason530625893 
o|inlining procedure: "(scrutinizer.scm:302) chicken.compiler.scrutinizer#walked-result" 
o|inlining procedure: k9475 
o|inlining procedure: k9475 
o|inlining procedure: k9475 
o|inlining procedure: k9475 
o|inlining procedure: k9475 
o|inlining procedure: k9475 
o|substituted constant variable: r989125917 
o|substituted constant variable: reason530625919 
o|substituted constant variable: r989125924 
o|substituted constant variable: y30825945 
o|inlining procedure: k9475 
o|inlining procedure: k9475 
o|substituted constant variable: r1061425961 
o|inlining procedure: k9475 
o|inlining procedure: "(scrutinizer.scm:680) chicken.compiler.scrutinizer#walked-result" 
o|inlining procedure: "(scrutinizer.scm:677) chicken.compiler.scrutinizer#walked-result" 
o|inlining procedure: k9475 
o|inlining procedure: k13048 
o|substituted constant variable: r1371426023 
o|substituted constant variable: r1371426024 
o|contracted procedure: k1439124355 
o|contracted procedure: k1439124363 
o|inlining procedure: k15243 
o|inlining procedure: k15444 
o|inlining procedure: k16343 
o|inlining procedure: k17255 
o|inlining procedure: k17255 
o|substituted constant variable: r1802526114 
o|substituted constant variable: r1802526115 
o|substituted constant variable: r1828026120 
o|substituted constant variable: r1828026120 
o|substituted constant variable: r1870226130 
o|inlining procedure: "(scrutinizer.scm:2095) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r1958626145 
o|substituted constant variable: r1958626145 
o|substituted constant variable: r1958626148 
o|substituted constant variable: r1958626148 
o|inlining procedure: "(scrutinizer.scm:2113) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r1958626151 
o|substituted constant variable: r1958626151 
o|substituted constant variable: r1983426164 
o|substituted constant variable: r1983426164 
o|substituted constant variable: r1983426170 
o|substituted constant variable: r1983426170 
o|substituted constant variable: r1983426173 
o|substituted constant variable: r1983426173 
o|substituted constant variable: r1983426176 
o|substituted constant variable: r1983426176 
o|substituted constant variable: r1983426179 
o|substituted constant variable: r1983426179 
o|substituted constant variable: r1983426182 
o|substituted constant variable: r1983426182 
o|substituted constant variable: r1983426185 
o|substituted constant variable: r1983426185 
o|inlining procedure: "(scrutinizer.scm:2183) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r1983426188 
o|substituted constant variable: r1983426188 
o|substituted constant variable: r1983426191 
o|substituted constant variable: r1983426191 
o|inlining procedure: "(scrutinizer.scm:2251) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r2140026243 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#report-notice 
o|substituted constant variable: r2011726247 
o|substituted constant variable: r2011726247 
o|substituted constant variable: r2011726250 
o|substituted constant variable: r2011726250 
o|substituted constant variable: r2011726253 
o|substituted constant variable: r2011726253 
o|substituted constant variable: r2011726256 
o|substituted constant variable: r2011726256 
o|substituted constant variable: r2011726259 
o|substituted constant variable: r2011726259 
o|substituted constant variable: r2011726262 
o|substituted constant variable: r2011726262 
o|inlining procedure: "(scrutinizer.scm:2295) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r2011726265 
o|substituted constant variable: r2011726265 
o|substituted constant variable: r2293026268 
o|substituted constant variable: r2293026268 
o|substituted constant variable: r2293026271 
o|substituted constant variable: r2293026271 
o|substituted constant variable: r2293026274 
o|substituted constant variable: r2293026274 
o|inlining procedure: "(scrutinizer.scm:2235) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r2293026277 
o|substituted constant variable: r2293026277 
o|substituted constant variable: r2293026280 
o|substituted constant variable: r2293026280 
o|inlining procedure: "(scrutinizer.scm:2229) chicken.compiler.scrutinizer#walked-result" 
o|inlining procedure: "(scrutinizer.scm:2225) chicken.compiler.scrutinizer#walked-result" 
o|inlining procedure: "(scrutinizer.scm:2221) chicken.compiler.scrutinizer#walked-result" 
o|inlining procedure: "(scrutinizer.scm:2215) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r2326626294 
o|substituted constant variable: r2326626294 
o|inlining procedure: "(scrutinizer.scm:2128) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r2326626297 
o|substituted constant variable: r2326626297 
o|substituted constant variable: r2326626300 
o|substituted constant variable: r2326626300 
o|substituted constant variable: r2326626303 
o|substituted constant variable: r2326626303 
o|substituted constant variable: r2326626306 
o|substituted constant variable: r2326626306 
o|substituted constant variable: r2332326312 
o|substituted constant variable: r2332326312 
o|substituted constant variable: r2332326315 
o|substituted constant variable: r2332326315 
o|substituted constant variable: r2332326318 
o|substituted constant variable: r2332326318 
o|substituted constant variable: r2332326321 
o|substituted constant variable: r2332326321 
o|substituted constant variable: r2332326324 
o|substituted constant variable: r2332326324 
o|substituted constant variable: r2332326327 
o|substituted constant variable: r2332326327 
o|replaced variables: 47 
o|removed binding forms: 127 
o|removed conditional forms: 43 
o|substituted constant variable: r947626383 
o|substituted constant variable: r947626387 
o|substituted constant variable: r947626391 
o|substituted constant variable: r947626405 
o|substituted constant variable: r947626417 
o|substituted constant variable: r947626421 
o|substituted constant variable: r947626427 
o|substituted constant variable: r947626455 
o|substituted constant variable: r1304926479 
o|replaced variables: 35 
o|removed binding forms: 113 
o|removed binding forms: 44 
o|simplifications: ((if . 162) (let . 167) (##core#call . 1963)) 
o|  call simplifications:
o|    scheme#cadddr	2
o|    scheme#char-upcase
o|    ##sys#apply
o|    scheme#string=?
o|    scheme#string-ref	2
o|    chicken.fixnum#fx<	2
o|    scheme#>=	2
o|    scheme#<
o|    ##sys#intern-symbol
o|    chicken.base#identity
o|    ##sys#size	4
o|    scheme#list-tail	2
o|    scheme#vector-ref	5
o|    scheme#<=	2
o|    chicken.base#atom?	3
o|    chicken.fixnum#fx>	2
o|    scheme#cdar	4
o|    scheme#list-ref	4
o|    ##sys#call-with-values	12
o|    scheme#=	3
o|    scheme#cdddr	8
o|    chicken.fixnum#fx=	3
o|    scheme#cddr	18
o|    scheme#assoc	2
o|    scheme#set-cdr!	3
o|    scheme#set-car!	7
o|    scheme#values	14
o|    scheme#assq	17
o|    scheme#cadr	112
o|    scheme#list	69
o|    scheme#caar	2
o|    scheme#string?	7
o|    scheme#symbol?	26
o|    chicken.base#fixnum?	4
o|    chicken.base#bignum?
o|    chicken.base#flonum?
o|    chicken.base#ratnum?
o|    chicken.base#cplxnum?
o|    scheme#boolean?
o|    scheme#list?	14
o|    scheme#eof-object?
o|    scheme#vector?	4
o|    ##sys#immediate?
o|    ##sys#generic-structure?
o|    scheme#char?
o|    ##sys#list	65
o|    ##sys#cons	40
o|    scheme#caddr	66
o|    scheme#length	36
o|    scheme#eq?	288
o|    scheme#memq	16
o|    chicken.fixnum#fx>=	2
o|    chicken.fixnum#fx+	3
o|    scheme#equal?	6
o|    scheme#not	79
o|    scheme#null?	76
o|    scheme#apply	5
o|    scheme#cdr	73
o|    ##sys#setslot	51
o|    ##sys#check-list	61
o|    scheme#pair?	174
o|    ##sys#slot	192
o|    chicken.fixnum#fx<=	2
o|    scheme#car	178
o|    chicken.fixnum#fx-	2
o|    scheme#cons	174
o|contracted procedure: k6853 
o|contracted procedure: k6860 
o|contracted procedure: k6870 
o|contracted procedure: k6944 
o|contracted procedure: k6947 
o|contracted procedure: k6959 
o|contracted procedure: k6975 
o|contracted procedure: k6983 
o|contracted procedure: k6990 
o|contracted procedure: k7014 
o|contracted procedure: k7031 
o|contracted procedure: k7053 
o|contracted procedure: k7049 
o|contracted procedure: k7034 
o|contracted procedure: k7037 
o|contracted procedure: k7045 
o|contracted procedure: k7060 
o|contracted procedure: k7068 
o|contracted procedure: k7080 
o|contracted procedure: k7102 
o|contracted procedure: k7098 
o|contracted procedure: k7083 
o|contracted procedure: k7086 
o|contracted procedure: k7094 
o|contracted procedure: k7117 
o|contracted procedure: k7126 
o|contracted procedure: k7139 
o|contracted procedure: k7154 
o|contracted procedure: k7169 
o|contracted procedure: k7315 
o|contracted procedure: k7318 
o|contracted procedure: k7328 
o|contracted procedure: k7240 
o|contracted procedure: k7266 
o|contracted procedure: k7395 
o|contracted procedure: k7407 
o|contracted procedure: k7430 
o|contracted procedure: k7438 
o|contracted procedure: k7460 
o|contracted procedure: k7468 
o|contracted procedure: k7480 
o|contracted procedure: k7502 
o|contracted procedure: k7498 
o|contracted procedure: k7483 
o|contracted procedure: k7486 
o|contracted procedure: k7494 
o|contracted procedure: k7762 
o|contracted procedure: k7777 
o|contracted procedure: k7811 
o|contracted procedure: k7815 
o|contracted procedure: k7798 
o|contracted procedure: k7945 
o|contracted procedure: k7936 
o|contracted procedure: k8078 
o|contracted procedure: k8085 
o|contracted procedure: k8096 
o|contracted procedure: k8103 
o|contracted procedure: k8158 
o|contracted procedure: k8170 
o|contracted procedure: k8185 
o|contracted procedure: k8191 
o|contracted procedure: k8197 
o|contracted procedure: k8203 
o|contracted procedure: k8209 
o|contracted procedure: k8215 
o|contracted procedure: k8224 
o|contracted procedure: k8230 
o|contracted procedure: k8237 
o|contracted procedure: k8249 
o|contracted procedure: k8252 
o|contracted procedure: k8255 
o|contracted procedure: k8263 
o|contracted procedure: k8271 
o|contracted procedure: k8280 
o|contracted procedure: k8287 
o|contracted procedure: k8305 
o|contracted procedure: k8311 
o|contracted procedure: k8322 
o|contracted procedure: k8318 
o|contracted procedure: k8337 
o|contracted procedure: k8340 
o|contracted procedure: k8343 
o|contracted procedure: k8351 
o|contracted procedure: k8359 
o|contracted procedure: k8391 
o|contracted procedure: k8384 
o|contracted procedure: k8368 
o|contracted procedure: k8375 
o|contracted procedure: k8381 
o|contracted procedure: k8472 
o|contracted procedure: k8462 
o|contracted procedure: k7875 
o|contracted procedure: k7891 
o|contracted procedure: k8493 
o|contracted procedure: k8513 
o|contracted procedure: k8504 
o|contracted procedure: k8411 
o|contracted procedure: k8433 
o|contracted procedure: k8420 
o|contracted procedure: k8427 
o|contracted procedure: k8522 
o|contracted procedure: k8544 
o|contracted procedure: k8551 
o|contracted procedure: k8562 
o|contracted procedure: k8573 
o|contracted procedure: k8579 
o|contracted procedure: k8586 
o|contracted procedure: k22537 
o|contracted procedure: k8630 
o|contracted procedure: k8633 
o|contracted procedure: k8639 
o|contracted procedure: k8648 
o|contracted procedure: k8693 
o|contracted procedure: k8696 
o|contracted procedure: k8702 
o|contracted procedure: k8709 
o|contracted procedure: k8712 
o|contracted procedure: k21745 
o|contracted procedure: k21752 
o|contracted procedure: k21762 
o|contracted procedure: k21790 
o|contracted procedure: k21817 
o|contracted procedure: k8785 
o|contracted procedure: k8788 
o|contracted procedure: k8796 
o|contracted procedure: k8808 
o|contracted procedure: k8811 
o|contracted procedure: k8814 
o|contracted procedure: k8822 
o|contracted procedure: k8830 
o|contracted procedure: k8839 
o|contracted procedure: k8851 
o|contracted procedure: k8879 
o|contracted procedure: k8892 
o|contracted procedure: k8903 
o|contracted procedure: k8899 
o|contracted procedure: k8925 
o|contracted procedure: k8929 
o|contracted procedure: k8945 
o|contracted procedure: k8937 
o|contracted procedure: k8941 
o|contracted procedure: k8933 
o|contracted procedure: k8957 
o|contracted procedure: k8961 
o|contracted procedure: k8965 
o|contracted procedure: k22473 
o|contracted procedure: k8992 
o|contracted procedure: k8988 
o|contracted procedure: k8996 
o|contracted procedure: k9012 
o|contracted procedure: k9004 
o|contracted procedure: k9008 
o|contracted procedure: k9000 
o|contracted procedure: k9024 
o|contracted procedure: k9028 
o|contracted procedure: k9032 
o|contracted procedure: k22507 
o|contracted procedure: k9045 
o|contracted procedure: k9039 
o|contracted procedure: k9049 
o|contracted procedure: k9053 
o|contracted procedure: k9076 
o|contracted procedure: k9072 
o|contracted procedure: k9099 
o|contracted procedure: k9103 
o|contracted procedure: k9154 
o|contracted procedure: k9116 
o|contracted procedure: k9150 
o|contracted procedure: k9143 
o|contracted procedure: k9120 
o|contracted procedure: k9123 
o|contracted procedure: k9134 
o|contracted procedure: k9166 
o|contracted procedure: k8679 
o|contracted procedure: k8683 
o|contracted procedure: k9192 
o|contracted procedure: k15548 
o|contracted procedure: k15560 
o|contracted procedure: k15659 
o|contracted procedure: k15569 
o|contracted procedure: k15591 
o|contracted procedure: k15606 
o|contracted procedure: k15635 
o|contracted procedure: k15615 
o|contracted procedure: k15631 
o|contracted procedure: k15618 
o|contracted procedure: k15651 
o|contracted procedure: k15641 
o|contracted procedure: k15648 
o|contracted procedure: k9205 
o|contracted procedure: k9209 
o|contracted procedure: k9218 
o|contracted procedure: k9221 
o|contracted procedure: k9233 
o|contracted procedure: k9247 
o|contracted procedure: k9263 
o|contracted procedure: k9267 
o|contracted procedure: k21851 
o|contracted procedure: k21886 
o|contracted procedure: k21875 
o|inlining procedure: "(scrutinizer.scm:2615) chicken.compiler.scrutinizer#multiples" 
o|inlining procedure: "(scrutinizer.scm:2614) chicken.compiler.scrutinizer#multiples" 
o|contracted procedure: k9276 
o|contracted procedure: k9296 
o|contracted procedure: k9318 
o|contracted procedure: k9314 
o|contracted procedure: k9299 
o|contracted procedure: k9302 
o|contracted procedure: k9310 
o|contracted procedure: k9342 
o|contracted procedure: k9355 
o|contracted procedure: k9359 
o|contracted procedure: k9383 
o|contracted procedure: k9394 
o|contracted procedure: k9406 
o|contracted procedure: k9409 
o|contracted procedure: k9412 
o|contracted procedure: k9420 
o|contracted procedure: k9428 
o|contracted procedure: k9483 
o|contracted procedure: k9490 
o|inlining procedure: k9475 
o|contracted procedure: k9496 
o|inlining procedure: k9475 
o|contracted procedure: k9507 
o|contracted procedure: k9513 
o|contracted procedure: k9519 
o|contracted procedure: k9525 
o|contracted procedure: k9532 
o|contracted procedure: k9538 
o|inlining procedure: k9475 
o|contracted procedure: k9549 
o|contracted procedure: k9555 
o|inlining procedure: k9475 
o|contracted procedure: k9566 
o|contracted procedure: k9572 
o|contracted procedure: k9575 
o|contracted procedure: k9578 
o|contracted procedure: k9585 
o|contracted procedure: k9588 
o|contracted procedure: k9594 
o|contracted procedure: k9614 
o|contracted procedure: k9610 
o|contracted procedure: k9606 
o|contracted procedure: k9644 
o|contracted procedure: k9640 
o|contracted procedure: k9636 
o|contracted procedure: k9659 
o|contracted procedure: k22747 
o|contracted procedure: k22759 
o|contracted procedure: k22771 
o|inlining procedure: "(scrutinizer.scm:2963) chicken.compiler.scrutinizer#multiples" 
o|inlining procedure: "(scrutinizer.scm:2961) chicken.compiler.scrutinizer#multiples" 
o|contracted procedure: k9689 
o|contracted procedure: k9701 
o|contracted procedure: k9704 
o|contracted procedure: k9752 
o|contracted procedure: k9716 
o|contracted procedure: k9719 
o|contracted procedure: k9722 
o|contracted procedure: k9730 
o|contracted procedure: k9734 
o|contracted procedure: k9742 
o|contracted procedure: k9746 
o|contracted procedure: k9698 
o|contracted procedure: k9758 
o|contracted procedure: k9764 
o|contracted procedure: k9775 
o|contracted procedure: k9779 
o|contracted procedure: k9771 
o|contracted procedure: k9793 
o|contracted procedure: k9782 
o|contracted procedure: k9789 
o|contracted procedure: k9796 
o|contracted procedure: k9799 
o|contracted procedure: k9802 
o|contracted procedure: k9829 
o|contracted procedure: k9810 
o|contracted procedure: k9823 
o|contracted procedure: k9832 
o|contracted procedure: k9844 
o|contracted procedure: k9854 
o|contracted procedure: k9858 
o|contracted procedure: k9879 
o|contracted procedure: k9885 
o|contracted procedure: k8615 
o|contracted procedure: k22559 
o|contracted procedure: k9917 
o|contracted procedure: k9929 
o|contracted procedure: k9936 
o|contracted procedure: k9943 
o|contracted procedure: k9946 
o|contracted procedure: k734525931 
o|contracted procedure: k9963 
o|contracted procedure: k9971 
o|contracted procedure: k734525938 
o|contracted procedure: k9981 
o|contracted procedure: k9988 
o|contracted procedure: k10015 
o|contracted procedure: k10018 
o|contracted procedure: k10025 
o|contracted procedure: k10031 
o|contracted procedure: k10043 
o|contracted procedure: k10075 
o|contracted procedure: k10126 
o|contracted procedure: k10118 
o|contracted procedure: k10101 
o|contracted procedure: k10111 
o|contracted procedure: k10115 
o|contracted procedure: k10136 
o|contracted procedure: k10149 
o|contracted procedure: k10156 
o|contracted procedure: k10166 
o|contracted procedure: k10170 
o|contracted procedure: k10178 
o|contracted procedure: k10182 
o|contracted procedure: k734525949 
o|contracted procedure: k10201 
o|contracted procedure: k10212 
o|contracted procedure: k10215 
o|contracted procedure: k10263 
o|contracted procedure: k10227 
o|contracted procedure: k10253 
o|contracted procedure: k10257 
o|contracted procedure: k10249 
o|contracted procedure: k10230 
o|contracted procedure: k10233 
o|contracted procedure: k10241 
o|contracted procedure: k10245 
o|contracted procedure: k10282 
o|contracted procedure: k10285 
o|contracted procedure: k10288 
o|contracted procedure: k10300 
o|contracted procedure: k10312 
o|contracted procedure: k10432 
o|contracted procedure: k10423 
o|contracted procedure: k10326 
o|contracted procedure: k10332 
o|contracted procedure: k10344 
o|contracted procedure: k10358 
o|contracted procedure: k734525958 
o|contracted procedure: k10354 
o|contracted procedure: k10410 
o|contracted procedure: k10406 
o|contracted procedure: k10364 
o|contracted procedure: k10368 
o|contracted procedure: k10377 
o|contracted procedure: k10393 
o|contracted procedure: k10386 
o|contracted procedure: k10397 
o|contracted procedure: k10413 
o|contracted procedure: k10497 
o|contracted procedure: k10453 
o|contracted procedure: k10459 
o|contracted procedure: k10529 
o|contracted procedure: k10504 
o|contracted procedure: k10507 
o|contracted procedure: k10517 
o|contracted procedure: k10535 
o|contracted procedure: k10541 
o|contracted procedure: k10558 
o|contracted procedure: k10547 
o|contracted procedure: k10571 
o|contracted procedure: k22793 
o|contracted procedure: k22827 
o|contracted procedure: k10578 
o|contracted procedure: k10595 
o|contracted procedure: k10604 
o|contracted procedure: k10598 
o|contracted procedure: k10634 
o|contracted procedure: k10638 
o|contracted procedure: k10644 
o|contracted procedure: k10650 
o|contracted procedure: k10656 
o|contracted procedure: k10659 
o|contracted procedure: k10668 
o|contracted procedure: k10672 
o|contracted procedure: k10692 
o|contracted procedure: k11180 
o|contracted procedure: k10698 
o|contracted procedure: k10740 
o|contracted procedure: k10743 
o|contracted procedure: k10752 
o|contracted procedure: k10778 
o|contracted procedure: k10781 
o|contracted procedure: k10789 
o|contracted procedure: k10801 
o|contracted procedure: k10804 
o|contracted procedure: k10807 
o|contracted procedure: k10815 
o|contracted procedure: k10823 
o|contracted procedure: k10832 
o|contracted procedure: k10843 
o|contracted procedure: k10846 
o|contracted procedure: k10989 
o|contracted procedure: k10858 
o|contracted procedure: k10894 
o|contracted procedure: k10898 
o|contracted procedure: k10905 
o|contracted procedure: k10938 
o|contracted procedure: k10942 
o|contracted procedure: k10978 
o|contracted procedure: k11003 
o|contracted procedure: k11006 
o|contracted procedure: k11018 
o|contracted procedure: k11021 
o|contracted procedure: k11029 
o|contracted procedure: k11041 
o|contracted procedure: k11044 
o|contracted procedure: k11047 
o|contracted procedure: k11055 
o|contracted procedure: k11063 
o|contracted procedure: k11100 
o|contracted procedure: k11075 
o|contracted procedure: k11085 
o|contracted procedure: k11089 
o|contracted procedure: k11093 
o|contracted procedure: k11097 
o|contracted procedure: k11139 
o|contracted procedure: k11135 
o|contracted procedure: k11151 
o|contracted procedure: k11173 
o|contracted procedure: k11169 
o|contracted procedure: k11154 
o|contracted procedure: k11157 
o|contracted procedure: k11165 
o|contracted procedure: k11225 
o|contracted procedure: k11189 
o|contracted procedure: k11192 
o|contracted procedure: k11195 
o|contracted procedure: k11203 
o|contracted procedure: k11207 
o|contracted procedure: k11215 
o|contracted procedure: k11219 
o|contracted procedure: k11234 
o|contracted procedure: k11237 
o|contracted procedure: k11243 
o|inlining procedure: k9475 
o|inlining procedure: k9475 
o|contracted procedure: k11255 
o|contracted procedure: k11262 
o|contracted procedure: k22577 
o|contracted procedure: k11281 
o|contracted procedure: k11285 
o|contracted procedure: k22625 
o|inlining procedure: k9475 
o|contracted procedure: k11289 
o|contracted procedure: k11300 
o|contracted procedure: k11314 
o|contracted procedure: k11303 
o|contracted procedure: k11310 
o|contracted procedure: k22599 
o|contracted procedure: k22611 
o|contracted procedure: k11319 
o|contracted procedure: k11325 
o|contracted procedure: k11338 
o|contracted procedure: k11342 
o|contracted procedure: k11351 
o|contracted procedure: k11358 
o|contracted procedure: k11362 
o|contracted procedure: k22685 
o|contracted procedure: k22688 
o|contracted procedure: k22700 
o|contracted procedure: k22703 
o|contracted procedure: k22706 
o|contracted procedure: k22714 
o|contracted procedure: k22722 
o|contracted procedure: k11381 
o|contracted procedure: k11393 
o|contracted procedure: k11399 
o|contracted procedure: k11407 
o|contracted procedure: k11411 
o|contracted procedure: k11415 
o|contracted procedure: k11421 
o|contracted procedure: k11424 
o|contracted procedure: k11435 
o|contracted procedure: k11447 
o|contracted procedure: k11457 
o|contracted procedure: k11461 
o|contracted procedure: k11547 
o|contracted procedure: k11585 
o|contracted procedure: k11597 
o|contracted procedure: k11607 
o|contracted procedure: k11611 
o|contracted procedure: k11582 
o|propagated global variable: g18681870 chicken.compiler.scrutinizer#specialization-statistics 
o|contracted procedure: k11615 
o|contracted procedure: k11619 
o|contracted procedure: k11642 
o|contracted procedure: k11654 
o|contracted procedure: k11672 
o|contracted procedure: k11679 
o|contracted procedure: k11692 
o|contracted procedure: k11707 
o|contracted procedure: k11714 
o|contracted procedure: k11703 
o|contracted procedure: k11726 
o|contracted procedure: k11729 
o|contracted procedure: k11732 
o|contracted procedure: k11740 
o|contracted procedure: k11748 
o|contracted procedure: k11757 
o|contracted procedure: k11760 
o|contracted procedure: k11773 
o|contracted procedure: k11788 
o|contracted procedure: k11795 
o|contracted procedure: k11799 
o|contracted procedure: k13395 
o|contracted procedure: k11832 
o|contracted procedure: k13389 
o|contracted procedure: k11835 
o|contracted procedure: k13383 
o|contracted procedure: k11838 
o|contracted procedure: k11856 
o|contracted procedure: k11862 
o|contracted procedure: k11872 
o|contracted procedure: k11878 
o|contracted procedure: k11888 
o|contracted procedure: k11969 
o|contracted procedure: k11894 
o|contracted procedure: k11965 
o|contracted procedure: k11905 
o|contracted procedure: k11916 
o|contracted procedure: k11931 
o|contracted procedure: k6809 
o|contracted procedure: k6844 
o|contracted procedure: k1199126005 
o|contracted procedure: k6822 
o|contracted procedure: k6831 
o|contracted procedure: k12010 
o|contracted procedure: k12021 
o|contracted procedure: k12038 
o|contracted procedure: k12047 
o|contracted procedure: k12056 
o|contracted procedure: k12065 
o|contracted procedure: k12090 
o|contracted procedure: k12094 
o|contracted procedure: k12099 
o|contracted procedure: k12134 
o|contracted procedure: k12154 
o|contracted procedure: k12158 
o|contracted procedure: k12167 
o|contracted procedure: k13368 
o|contracted procedure: k12173 
o|contracted procedure: k12184 
o|contracted procedure: k12207 
o|contracted procedure: k12193 
o|contracted procedure: k12203 
o|contracted procedure: k12211 
o|contracted procedure: k12296 
o|contracted procedure: k12214 
o|contracted procedure: k12256 
o|contracted procedure: k12222 
o|contracted procedure: k12248 
o|contracted procedure: k12234 
o|contracted procedure: k12244 
o|contracted procedure: k12252 
o|contracted procedure: k12293 
o|contracted procedure: k12265 
o|contracted procedure: k12275 
o|contracted procedure: k12282 
o|contracted procedure: k12278 
o|contracted procedure: k12289 
o|contracted procedure: k13362 
o|contracted procedure: k12305 
o|contracted procedure: k12316 
o|contracted procedure: k12339 
o|contracted procedure: k12325 
o|contracted procedure: k12335 
o|contracted procedure: k12343 
o|contracted procedure: k12377 
o|contracted procedure: k12349 
o|contracted procedure: k12359 
o|contracted procedure: k12366 
o|contracted procedure: k12362 
o|contracted procedure: k12373 
o|contracted procedure: k12383 
o|contracted procedure: k12392 
o|contracted procedure: k12401 
o|contracted procedure: k12407 
o|contracted procedure: k12410 
o|contracted procedure: k12416 
o|contracted procedure: k13354 
o|contracted procedure: k12453 
o|contracted procedure: k12456 
o|contracted procedure: k12480 
o|contracted procedure: k13346 
o|contracted procedure: k12491 
o|contracted procedure: k12497 
o|contracted procedure: k12521 
o|contracted procedure: k13338 
o|contracted procedure: k12532 
o|contracted procedure: k12539 
o|contracted procedure: k13330 
o|contracted procedure: k12551 
o|contracted procedure: k12558 
o|contracted procedure: k13322 
o|contracted procedure: k12570 
o|contracted procedure: k12577 
o|contracted procedure: k13314 
o|contracted procedure: k12583 
o|contracted procedure: k12590 
o|contracted procedure: k12596 
o|contracted procedure: k12602 
o|contracted procedure: k12613 
o|contracted procedure: k12619 
o|contracted procedure: k12625 
o|contracted procedure: k12636 
o|contracted procedure: k12642 
o|contracted procedure: k12648 
o|contracted procedure: k12659 
o|contracted procedure: k12665 
o|contracted procedure: k12679 
o|contracted procedure: k12685 
o|contracted procedure: k12712 
o|contracted procedure: k12721 
o|contracted procedure: k12730 
o|contracted procedure: k12736 
o|contracted procedure: k12739 
o|contracted procedure: k12746 
o|contracted procedure: k12750 
o|contracted procedure: k12756 
o|contracted procedure: k12759 
o|contracted procedure: k12780 
o|contracted procedure: k12784 
o|contracted procedure: k12765 
o|contracted procedure: k12772 
o|contracted procedure: k12776 
o|contracted procedure: k12790 
o|contracted procedure: k12799 
o|contracted procedure: k12809 
o|contracted procedure: k12813 
o|contracted procedure: k12817 
o|contracted procedure: k12821 
o|contracted procedure: k13290 
o|contracted procedure: k12849 
o|contracted procedure: k12855 
o|contracted procedure: k12862 
o|contracted procedure: k13282 
o|contracted procedure: k12868 
o|contracted procedure: k12875 
o|contracted procedure: k13274 
o|contracted procedure: k12881 
o|contracted procedure: k12887 
o|contracted procedure: k12894 
o|contracted procedure: k12900 
o|contracted procedure: k12913 
o|contracted procedure: k12917 
o|contracted procedure: k12921 
o|contracted procedure: k12927 
o|contracted procedure: k12933 
o|contracted procedure: k12946 
o|contracted procedure: k12963 
o|contracted procedure: k12953 
o|contracted procedure: k12950 
o|contracted procedure: k12967 
o|contracted procedure: k12971 
o|contracted procedure: k13266 
o|contracted procedure: k12983 
o|contracted procedure: k12989 
o|contracted procedure: k12996 
o|contracted procedure: k13002 
o|contracted procedure: k13015 
o|contracted procedure: k13019 
o|contracted procedure: k13023 
o|contracted procedure: k13029 
o|contracted procedure: k13035 
o|contracted procedure: k13065 
o|contracted procedure: k13055 
o|contracted procedure: k1305226482 
o|contracted procedure: k13048 
o|contracted procedure: k13052 
o|contracted procedure: k13069 
o|contracted procedure: k13073 
o|contracted procedure: k13258 
o|contracted procedure: k13085 
o|contracted procedure: k13091 
o|contracted procedure: k13097 
o|contracted procedure: k13103 
o|contracted procedure: k13110 
o|contracted procedure: k13114 
o|contracted procedure: k13250 
o|contracted procedure: k13127 
o|contracted procedure: k13133 
o|contracted procedure: k13139 
o|contracted procedure: k13148 
o|contracted procedure: k13242 
o|contracted procedure: k13161 
o|contracted procedure: k13167 
o|contracted procedure: k13173 
o|contracted procedure: k13179 
o|contracted procedure: k13186 
o|contracted procedure: k13190 
o|contracted procedure: k13234 
o|contracted procedure: k13203 
o|contracted procedure: k13209 
o|contracted procedure: k13215 
o|contracted procedure: k13224 
o|contracted procedure: k13298 
o|contracted procedure: k13304 
o|contracted procedure: k13401 
o|contracted procedure: k13408 
o|contracted procedure: k13426 
o|contracted procedure: k13435 
o|contracted procedure: k13438 
o|contracted procedure: k13483 
o|contracted procedure: k13447 
o|contracted procedure: k13460 
o|contracted procedure: k13479 
o|contracted procedure: k13501 
o|contracted procedure: k13508 
o|contracted procedure: k13511 
o|contracted procedure: k13526 
o|contracted procedure: k13539 
o|contracted procedure: k13543 
o|contracted procedure: k13564 
o|contracted procedure: k13576 
o|contracted procedure: k13598 
o|contracted procedure: k13558 
o|contracted procedure: k13548 
o|contracted procedure: k13594 
o|contracted procedure: k13579 
o|contracted procedure: k13582 
o|contracted procedure: k13590 
o|contracted procedure: k13607 
o|contracted procedure: k13616 
o|contracted procedure: k13907 
o|contracted procedure: k13622 
o|contracted procedure: k13902 
o|contracted procedure: k13629 
o|contracted procedure: k13647 
o|contracted procedure: k13651 
o|contracted procedure: k13663 
o|contracted procedure: k13670 
o|contracted procedure: k13729 
o|contracted procedure: k13702 
o|contracted procedure: k14687 
o|contracted procedure: k14642 
o|contracted procedure: k14648 
o|contracted procedure: k14651 
o|contracted procedure: k14677 
o|contracted procedure: k14681 
o|contracted procedure: k14673 
o|contracted procedure: k13713 
o|contracted procedure: k13765 
o|contracted procedure: k13772 
o|contracted procedure: k13783 
o|contracted procedure: k13854 
o|contracted procedure: k13792 
o|contracted procedure: k13826 
o|contracted procedure: k13838 
o|propagated global variable: g25382539 chicken.compiler.scrutinizer#type<=? 
o|contracted procedure: k13848 
o|propagated global variable: g25302531 chicken.compiler.scrutinizer#type<=? 
o|contracted procedure: k13893 
o|contracted procedure: k13866 
o|contracted procedure: k13875 
o|contracted procedure: k13884 
o|contracted procedure: k13911 
o|contracted procedure: k13915 
o|contracted procedure: k13927 
o|contracted procedure: k13930 
o|contracted procedure: k13933 
o|contracted procedure: k13941 
o|contracted procedure: k13949 
o|contracted procedure: k13958 
o|contracted procedure: k13961 
o|contracted procedure: k13970 
o|contracted procedure: k13987 
o|contracted procedure: k13991 
o|contracted procedure: k7665 
o|contracted procedure: k7672 
o|contracted procedure: k7729 
o|contracted procedure: k7678 
o|contracted procedure: k7690 
o|contracted procedure: k7697 
o|contracted procedure: k7722 
o|contracted procedure: k7718 
o|contracted procedure: k14002 
o|contracted procedure: k14008 
o|contracted procedure: k14030 
o|contracted procedure: k14020 
o|contracted procedure: k14027 
o|contracted procedure: k14037 
o|contracted procedure: k14041 
o|contracted procedure: k14047 
o|contracted procedure: k14056 
o|contracted procedure: k14065 
o|contracted procedure: k14071 
o|contracted procedure: k14080 
o|contracted procedure: k14089 
o|contracted procedure: k14095 
o|contracted procedure: k14101 
o|contracted procedure: k14108 
o|contracted procedure: k14112 
o|contracted procedure: k14124 
o|contracted procedure: k14127 
o|contracted procedure: k14130 
o|contracted procedure: k14138 
o|contracted procedure: k14146 
o|contracted procedure: k14157 
o|contracted procedure: k14164 
o|contracted procedure: k14168 
o|contracted procedure: k14180 
o|contracted procedure: k14183 
o|contracted procedure: k14186 
o|contracted procedure: k14194 
o|contracted procedure: k14202 
o|contracted procedure: k14211 
o|contracted procedure: k14214 
o|contracted procedure: k14217 
o|contracted procedure: k14224 
o|contracted procedure: k14282 
o|contracted procedure: k14285 
o|contracted procedure: k14288 
o|contracted procedure: k14228 
o|contracted procedure: k14235 
o|contracted procedure: k14238 
o|contracted procedure: k14241 
o|contracted procedure: k14253 
o|contracted procedure: k14256 
o|contracted procedure: k14259 
o|contracted procedure: k14267 
o|contracted procedure: k14275 
o|contracted procedure: k14300 
o|contracted procedure: k14303 
o|contracted procedure: k14306 
o|contracted procedure: k14314 
o|contracted procedure: k14322 
o|contracted procedure: k14367 
o|contracted procedure: k7579 
o|contracted procedure: k7605 
o|contracted procedure: k7585 
o|contracted procedure: k7599 
o|contracted procedure: k14394 
o|contracted procedure: k14398 
o|contracted procedure: k14440 
o|contracted procedure: k14411 
o|contracted procedure: k14415 
o|contracted procedure: k14431 
o|contracted procedure: k14449 
o|contracted procedure: k14461 
o|contracted procedure: k14467 
o|contracted procedure: k14474 
o|contracted procedure: k14481 
o|contracted procedure: k14621 
o|contracted procedure: k14487 
o|contracted procedure: k14521 
o|contracted procedure: k14493 
o|contracted procedure: k14504 
o|contracted procedure: k14516 
o|contracted procedure: k14532 
o|contracted procedure: k14576 
o|contracted procedure: k14538 
o|contracted procedure: k14545 
o|contracted procedure: k14557 
o|contracted procedure: k14561 
o|contracted procedure: k14569 
o|contracted procedure: k14573 
o|contracted procedure: k14565 
o|contracted procedure: k14588 
o|contracted procedure: k14611 
o|contracted procedure: k14708 
o|contracted procedure: k14715 
o|contracted procedure: k14767 
o|contracted procedure: k14774 
o|contracted procedure: k15086 
o|contracted procedure: k15092 
o|contracted procedure: k15074 
o|contracted procedure: k14823 
o|contracted procedure: k14836 
o|contracted procedure: k14840 
o|contracted procedure: k14844 
o|contracted procedure: k15068 
o|contracted procedure: k14850 
o|contracted procedure: k14863 
o|contracted procedure: k14867 
o|contracted procedure: k14871 
o|contracted procedure: k15030 
o|contracted procedure: k14883 
o|contracted procedure: k14892 
o|contracted procedure: k14905 
o|contracted procedure: k14914 
o|contracted procedure: k14917 
o|contracted procedure: k14920 
o|contracted procedure: k14923 
o|contracted procedure: k14926 
o|contracted procedure: k14985 
o|contracted procedure: k14949 
o|contracted procedure: k14952 
o|contracted procedure: k14955 
o|contracted procedure: k14963 
o|contracted procedure: k14967 
o|contracted procedure: k14975 
o|contracted procedure: k14979 
o|contracted procedure: k14739 
o|contracted procedure: k14746 
o|contracted procedure: k14994 
o|contracted procedure: k15006 
o|contracted procedure: k15012 
o|contracted procedure: k15019 
o|contracted procedure: k15023 
o|contracted procedure: k15038 
o|contracted procedure: k15044 
o|contracted procedure: k15056 
o|contracted procedure: k15099 
o|contracted procedure: k15105 
o|contracted procedure: k15114 
o|contracted procedure: k15121 
o|contracted procedure: k15128 
o|contracted procedure: k15134 
o|contracted procedure: k15140 
o|contracted procedure: k15160 
o|contracted procedure: k15167 
o|contracted procedure: k15174 
o|contracted procedure: k15180 
o|contracted procedure: k15183 
o|contracted procedure: k15189 
o|contracted procedure: k15198 
o|contracted procedure: k15211 
o|contracted procedure: k15218 
o|contracted procedure: k15225 
o|contracted procedure: k15231 
o|contracted procedure: k15234 
o|contracted procedure: k15240 
o|contracted procedure: k15243 
o|contracted procedure: k15268 
o|contracted procedure: k15275 
o|contracted procedure: k15282 
o|contracted procedure: k15288 
o|contracted procedure: k15291 
o|contracted procedure: k15297 
o|contracted procedure: k15300 
o|contracted procedure: k15533 
o|contracted procedure: k15322 
o|contracted procedure: k15525 
o|contracted procedure: k15334 
o|contracted procedure: k15353 
o|contracted procedure: k15438 
o|contracted procedure: k15364 
o|contracted procedure: k15378 
o|contracted procedure: k15397 
o|contracted procedure: k15404 
o|contracted procedure: k15412 
o|contracted procedure: k15461 
o|contracted procedure: k15441 
o|contracted procedure: k15457 
o|contracted procedure: k15444 
o|contracted procedure: k15517 
o|contracted procedure: k15467 
o|contracted procedure: k15474 
o|contracted procedure: k15477 
o|contracted procedure: k15485 
o|contracted procedure: k15491 
o|contracted procedure: k15501 
o|contracted procedure: k15676 
o|contracted procedure: k15683 
o|contracted procedure: k15703 
o|contracted procedure: k15690 
o|contracted procedure: k15693 
o|contracted procedure: k15709 
o|contracted procedure: k15716 
o|contracted procedure: k15729 
o|contracted procedure: k15740 
o|contracted procedure: k15735 
o|contracted procedure: k15749 
o|contracted procedure: k15756 
o|contracted procedure: k15762 
o|contracted procedure: k15782 
o|contracted procedure: k15772 
o|contracted procedure: k15769 
o|contracted procedure: k15788 
o|contracted procedure: k15795 
o|contracted procedure: k15805 
o|contracted procedure: k15814 
o|contracted procedure: k15821 
o|contracted procedure: k15832 
o|contracted procedure: k15839 
o|contracted procedure: k15852 
o|contracted procedure: k15855 
o|contracted procedure: k15861 
o|contracted procedure: k15867 
o|contracted procedure: k15874 
o|contracted procedure: k15905 
o|contracted procedure: k15912 
o|contracted procedure: k15919 
o|contracted procedure: k15925 
o|contracted procedure: k16092 
o|contracted procedure: k15931 
o|contracted procedure: k15937 
o|contracted procedure: k15940 
o|contracted procedure: k15985 
o|contracted procedure: k15949 
o|contracted procedure: k15955 
o|contracted procedure: k15967 
o|contracted procedure: k15977 
o|contracted procedure: k15981 
o|contracted procedure: k15994 
o|contracted procedure: k16004 
o|contracted procedure: k16008 
o|contracted procedure: k16011 
o|contracted procedure: k16014 
o|contracted procedure: k16058 
o|contracted procedure: k16023 
o|contracted procedure: k16028 
o|contracted procedure: k16040 
o|contracted procedure: k16050 
o|contracted procedure: k16054 
o|contracted procedure: k16067 
o|contracted procedure: k16077 
o|contracted procedure: k16081 
o|contracted procedure: k16088 
o|contracted procedure: k16098 
o|contracted procedure: k16109 
o|contracted procedure: k16113 
o|contracted procedure: k16138 
o|contracted procedure: k16141 
o|contracted procedure: k16153 
o|contracted procedure: k16156 
o|contracted procedure: k16159 
o|contracted procedure: k16167 
o|contracted procedure: k16175 
o|contracted procedure: k16121 
o|contracted procedure: k16131 
o|contracted procedure: k16135 
o|contracted procedure: k16184 
o|contracted procedure: k16188 
o|contracted procedure: k16200 
o|contracted procedure: k16210 
o|contracted procedure: k16214 
o|contracted procedure: k16237 
o|contracted procedure: k16256 
o|contracted procedure: k16240 
o|contracted procedure: k16252 
o|contracted procedure: k16243 
o|contracted procedure: k16281 
o|contracted procedure: k16289 
o|contracted procedure: k16295 
o|contracted procedure: k16298 
o|contracted procedure: k16304 
o|contracted procedure: k16311 
o|contracted procedure: k16315 
o|contracted procedure: k16322 
o|contracted procedure: k16730 
o|contracted procedure: k16334 
o|contracted procedure: k16340 
o|contracted procedure: k16343 
o|contracted procedure: k16352 
o|contracted procedure: k16358 
o|contracted procedure: k16365 
o|contracted procedure: k16374 
o|contracted procedure: k16386 
o|contracted procedure: k16389 
o|contracted procedure: k16392 
o|contracted procedure: k16400 
o|contracted procedure: k16408 
o|contracted procedure: k16417 
o|contracted procedure: k16428 
o|contracted procedure: k16434 
o|contracted procedure: k16437 
o|contracted procedure: k16446 
o|contracted procedure: k16454 
o|contracted procedure: k16460 
o|contracted procedure: k16472 
o|contracted procedure: k16481 
o|contracted procedure: k16493 
o|contracted procedure: k16496 
o|contracted procedure: k16499 
o|contracted procedure: k16507 
o|contracted procedure: k16515 
o|contracted procedure: k16524 
o|contracted procedure: k16544 
o|inlining procedure: k16548 
o|contracted procedure: k16559 
o|inlining procedure: k16548 
o|contracted procedure: k16562 
o|contracted procedure: k16570 
o|contracted procedure: k16582 
o|contracted procedure: k16585 
o|contracted procedure: k16588 
o|contracted procedure: k16596 
o|contracted procedure: k16604 
o|contracted procedure: k16616 
o|contracted procedure: k16679 
o|contracted procedure: k16622 
o|contracted procedure: k16628 
o|contracted procedure: k16647 
o|contracted procedure: k16687 
o|contracted procedure: k16693 
o|contracted procedure: k16699 
o|contracted procedure: k17055 
o|contracted procedure: k17067 
o|contracted procedure: k17077 
o|contracted procedure: k17081 
o|contracted procedure: k16761 
o|contracted procedure: k17049 
o|contracted procedure: k17043 
o|contracted procedure: k16767 
o|contracted procedure: k16876 
o|contracted procedure: k16894 
o|contracted procedure: k16903 
o|contracted procedure: k16906 
o|contracted procedure: k16912 
o|contracted procedure: k16926 
o|contracted procedure: k16940 
o|contracted procedure: k16954 
o|contracted procedure: k16968 
o|contracted procedure: k16978 
o|contracted procedure: k16982 
o|contracted procedure: k17009 
o|contracted procedure: k17016 
o|contracted procedure: k17024 
o|contracted procedure: k17029 
o|contracted procedure: k17036 
o|contracted procedure: k17111 
o|contracted procedure: k17123 
o|contracted procedure: k17162 
o|contracted procedure: k7184 
o|contracted procedure: k7195 
o|contracted procedure: k17203 
o|contracted procedure: k17210 
o|contracted procedure: k17223 
o|contracted procedure: k17231 
o|contracted procedure: k17239 
o|contracted procedure: k17247 
o|contracted procedure: k17268 
o|contracted procedure: k17275 
o|contracted procedure: k17283 
o|contracted procedure: k17342 
o|contracted procedure: k17324 
o|contracted procedure: k17333 
o|contracted procedure: k17369 
o|contracted procedure: k17375 
o|contracted procedure: k17387 
o|contracted procedure: k17390 
o|contracted procedure: k17393 
o|contracted procedure: k17401 
o|contracted procedure: k17409 
o|contracted procedure: k17495 
o|contracted procedure: k17520 
o|contracted procedure: k17523 
o|contracted procedure: k734526109 
o|contracted procedure: k17536 
o|contracted procedure: k17550 
o|contracted procedure: k17585 
o|contracted procedure: k17556 
o|contracted procedure: k17581 
o|contracted procedure: k17562 
o|contracted procedure: k17588 
o|contracted procedure: k17613 
o|contracted procedure: k17594 
o|contracted procedure: k17601 
o|contracted procedure: k17608 
o|contracted procedure: k17617 
o|contracted procedure: k17625 
o|contracted procedure: k17698 
o|contracted procedure: k17679 
o|contracted procedure: k17694 
o|contracted procedure: k17685 
o|contracted procedure: k17707 
o|contracted procedure: k17713 
o|contracted procedure: k17828 
o|contracted procedure: k17719 
o|contracted procedure: k17824 
o|contracted procedure: k17725 
o|contracted procedure: k17728 
o|contracted procedure: k17745 
o|contracted procedure: k17748 
o|contracted procedure: k17754 
o|contracted procedure: k17777 
o|contracted procedure: k17760 
o|contracted procedure: k17773 
o|contracted procedure: k17787 
o|contracted procedure: k18881 
o|contracted procedure: k17834 
o|contracted procedure: k17840 
o|contracted procedure: k17846 
o|contracted procedure: k17852 
o|contracted procedure: k17861 
o|contracted procedure: k17867 
o|contracted procedure: k17873 
o|contracted procedure: k17879 
o|contracted procedure: k17885 
o|contracted procedure: k18872 
o|contracted procedure: k17897 
o|contracted procedure: k17903 
o|contracted procedure: k18868 
o|contracted procedure: k17909 
o|contracted procedure: k17931 
o|contracted procedure: k17915 
o|contracted procedure: k17926 
o|contracted procedure: k18864 
o|contracted procedure: k17937 
o|contracted procedure: k18101 
o|contracted procedure: k17943 
o|contracted procedure: k18096 
o|contracted procedure: k17949 
o|contracted procedure: k17970 
o|contracted procedure: k17983 
o|contracted procedure: k18002 
o|contracted procedure: k18006 
o|contracted procedure: k18010 
o|contracted procedure: k18018 
o|contracted procedure: k18033 
o|contracted procedure: k18039 
o|contracted procedure: k18046 
o|contracted procedure: k18024 
o|contracted procedure: k18052 
o|contracted procedure: k18055 
o|contracted procedure: k18067 
o|contracted procedure: k18070 
o|contracted procedure: k18073 
o|contracted procedure: k18081 
o|contracted procedure: k18089 
o|contracted procedure: k18115 
o|contracted procedure: k18119 
o|contracted procedure: k18820 
o|contracted procedure: k18128 
o|contracted procedure: k18134 
o|contracted procedure: k18137 
o|contracted procedure: k18140 
o|contracted procedure: k18143 
o|contracted procedure: k18164 
o|contracted procedure: k18167 
o|contracted procedure: k18170 
o|contracted procedure: k18178 
o|contracted procedure: k18186 
o|contracted procedure: k18816 
o|contracted procedure: k18195 
o|contracted procedure: k18216 
o|contracted procedure: k18201 
o|contracted procedure: k18211 
o|contracted procedure: k18207 
o|contracted procedure: k18812 
o|contracted procedure: k18222 
o|contracted procedure: k18243 
o|contracted procedure: k18228 
o|contracted procedure: k18238 
o|contracted procedure: k18234 
o|contracted procedure: k18808 
o|contracted procedure: k18249 
o|contracted procedure: k18324 
o|contracted procedure: k18255 
o|contracted procedure: k18315 
o|contracted procedure: k18294 
o|contracted procedure: k18307 
o|contracted procedure: k18311 
o|contracted procedure: k18271 
o|contracted procedure: k18279 
o|contracted procedure: k18319 
o|contracted procedure: k18450 
o|contracted procedure: k18338 
o|contracted procedure: k18341 
o|contracted procedure: k18344 
o|contracted procedure: k18356 
o|contracted procedure: k18370 
o|contracted procedure: k18366 
o|contracted procedure: k17651 
o|contracted procedure: k17658 
o|contracted procedure: k18390 
o|contracted procedure: k18401 
o|contracted procedure: k18417 
o|contracted procedure: k18409 
o|contracted procedure: k18413 
o|contracted procedure: k18405 
o|contracted procedure: k18442 
o|contracted procedure: k18420 
o|contracted procedure: k18437 
o|contracted procedure: k18426 
o|contracted procedure: k18433 
o|contracted procedure: k18460 
o|contracted procedure: k18467 
o|contracted procedure: k18495 
o|contracted procedure: k18473 
o|contracted procedure: k18486 
o|contracted procedure: k18490 
o|contracted procedure: k18502 
o|contracted procedure: k18509 
o|contracted procedure: k18516 
o|contracted procedure: k18525 
o|contracted procedure: k18532 
o|contracted procedure: k18551 
o|contracted procedure: k18555 
o|contracted procedure: k18562 
o|contracted procedure: k18801 
o|contracted procedure: k18568 
o|contracted procedure: k18634 
o|contracted procedure: k18574 
o|contracted procedure: k18577 
o|contracted procedure: k18580 
o|contracted procedure: k18583 
o|contracted procedure: k18604 
o|contracted procedure: k18607 
o|contracted procedure: k18610 
o|contracted procedure: k18618 
o|contracted procedure: k18626 
o|contracted procedure: k18797 
o|contracted procedure: k18640 
o|contracted procedure: k18793 
o|contracted procedure: k18646 
o|contracted procedure: k18789 
o|contracted procedure: k18782 
o|contracted procedure: k18649 
o|contracted procedure: k18779 
o|contracted procedure: k18769 
o|contracted procedure: k18652 
o|contracted procedure: k18658 
o|contracted procedure: k18664 
o|contracted procedure: k18698 
o|contracted procedure: k18701 
o|contracted procedure: k18710 
o|contracted procedure: k18716 
o|contracted procedure: k18719 
o|contracted procedure: k18737 
o|contracted procedure: k18740 
o|contracted procedure: k18743 
o|contracted procedure: k18751 
o|contracted procedure: k18759 
o|contracted procedure: k18860 
o|contracted procedure: k18823 
o|contracted procedure: k18856 
o|contracted procedure: k18829 
o|contracted procedure: k18852 
o|contracted procedure: k18835 
o|contracted procedure: k18848 
o|contracted procedure: k18841 
o|contracted procedure: k18875 
o|contracted procedure: k18918 
o|contracted procedure: k18911 
o|contracted procedure: k18905 
o|contracted procedure: k18921 
o|contracted procedure: k18929 
o|contracted procedure: k18937 
o|contracted procedure: k18957 
o|contracted procedure: k18925 
o|contracted procedure: k18969 
o|contracted procedure: k18972 
o|contracted procedure: k18975 
o|contracted procedure: k18983 
o|contracted procedure: k18991 
o|contracted procedure: k19031 
o|contracted procedure: k19006 
o|contracted procedure: k19050 
o|contracted procedure: k19061 
o|contracted procedure: k19084 
o|contracted procedure: k19087 
o|contracted procedure: k19100 
o|contracted procedure: k19106 
o|inlining procedure: k19103 
o|contracted procedure: k19115 
o|contracted procedure: k19215 
o|contracted procedure: k19121 
o|contracted procedure: k19128 
o|contracted procedure: k19151 
o|contracted procedure: k19154 
o|contracted procedure: k19161 
o|inlining procedure: k19103 
o|contracted procedure: k19170 
o|contracted procedure: k19173 
o|contracted procedure: k19176 
o|contracted procedure: k19184 
o|contracted procedure: k19192 
o|contracted procedure: k19211 
o|contracted procedure: k19201 
o|inlining procedure: k19103 
o|contracted procedure: k19235 
o|contracted procedure: k19238 
o|contracted procedure: k19241 
o|contracted procedure: k19249 
o|contracted procedure: k19257 
o|contracted procedure: k19266 
o|contracted procedure: k19273 
o|contracted procedure: k19276 
o|contracted procedure: k19288 
o|contracted procedure: k19291 
o|contracted procedure: k19294 
o|contracted procedure: k19302 
o|contracted procedure: k19310 
o|contracted procedure: k19427 
o|contracted procedure: k19322 
o|contracted procedure: k19423 
o|contracted procedure: k19328 
o|contracted procedure: k19331 
o|contracted procedure: k19334 
o|contracted procedure: k19341 
o|contracted procedure: k19350 
o|contracted procedure: k19370 
o|contracted procedure: k19378 
o|contracted procedure: k19374 
o|contracted procedure: k19399 
o|contracted procedure: k19402 
o|contracted procedure: k19409 
o|contracted procedure: k19412 
o|contracted procedure: k19419 
o|contracted procedure: k19436 
o|contracted procedure: k19448 
o|contracted procedure: k19454 
o|contracted procedure: k19465 
o|contracted procedure: k19472 
o|contracted procedure: k19574 
o|contracted procedure: k19489 
o|contracted procedure: k19570 
o|contracted procedure: k19495 
o|contracted procedure: k19501 
o|contracted procedure: k19566 
o|contracted procedure: k19507 
o|contracted procedure: k19513 
o|contracted procedure: k19519 
o|contracted procedure: k19525 
o|contracted procedure: k19531 
o|contracted procedure: k19537 
o|contracted procedure: k19549 
o|contracted procedure: k19543 
o|contracted procedure: k19630 
o|contracted procedure: k19591 
o|contracted procedure: k19597 
o|contracted procedure: k19614 
o|contracted procedure: k19610 
o|contracted procedure: k19585 
o|contracted procedure: k19622 
o|contracted procedure: k19618 
o|contracted procedure: k19648 
o|contracted procedure: k19792 
o|contracted procedure: k19660 
o|contracted procedure: k19666 
o|contracted procedure: k19672 
o|contracted procedure: k19788 
o|contracted procedure: k19681 
o|contracted procedure: k19718 
o|contracted procedure: k19687 
o|contracted procedure: k19700 
o|contracted procedure: k6911 
o|contracted procedure: k6925 
o|contracted procedure: k6935 
o|contracted procedure: k6929 
o|contracted procedure: k19784 
o|contracted procedure: k19724 
o|contracted procedure: k19736 
o|contracted procedure: k19770 
o|contracted procedure: k19760 
o|contracted procedure: k19764 
o|contracted procedure: k19773 
o|contracted procedure: k19780 
o|contracted procedure: k19915 
o|contracted procedure: k19839 
o|contracted procedure: k19911 
o|contracted procedure: k19845 
o|contracted procedure: k19851 
o|contracted procedure: k19857 
o|contracted procedure: k19863 
o|contracted procedure: k19869 
o|contracted procedure: k19801 
o|contracted procedure: k19817 
o|contracted procedure: k19807 
o|contracted procedure: k19814 
o|contracted procedure: k19956 
o|contracted procedure: k19965 
o|contracted procedure: k19968 
o|contracted procedure: k19971 
o|contracted procedure: k20085 
o|contracted procedure: k19977 
o|contracted procedure: k20002 
o|contracted procedure: k20009 
o|contracted procedure: k20022 
o|contracted procedure: k20018 
o|contracted procedure: k20026 
o|contracted procedure: k20077 
o|contracted procedure: k20036 
o|contracted procedure: k20049 
o|contracted procedure: k20059 
o|contracted procedure: k20221 
o|contracted procedure: k20229 
o|contracted procedure: k20232 
o|contracted procedure: k20261 
o|contracted procedure: k734526204 
o|contracted procedure: k20237 
o|contracted procedure: k20243 
o|contracted procedure: k20255 
o|contracted procedure: k20246 
o|contracted procedure: k20276 
o|contracted procedure: k20291 
o|contracted procedure: k20303 
o|contracted procedure: k20318 
o|contracted procedure: k20321 
o|contracted procedure: k20324 
o|contracted procedure: k20332 
o|contracted procedure: k20340 
o|contracted procedure: k20351 
o|contracted procedure: k20354 
o|contracted procedure: k7212 
o|contracted procedure: k7219 
o|contracted procedure: k20366 
o|contracted procedure: k20369 
o|contracted procedure: k20372 
o|contracted procedure: k20380 
o|contracted procedure: k20388 
o|contracted procedure: k20410 
o|contracted procedure: k20416 
o|contracted procedure: k20449 
o|contracted procedure: k20422 
o|contracted procedure: k20443 
o|contracted procedure: k20429 
o|contracted procedure: k20437 
o|contracted procedure: k20455 
o|contracted procedure: k20467 
o|contracted procedure: k20477 
o|contracted procedure: k20481 
o|contracted procedure: k20516 
o|contracted procedure: k20525 
o|contracted procedure: k20613 
o|contracted procedure: k20531 
o|contracted procedure: k20557 
o|contracted procedure: k20552 
o|contracted procedure: k20543 
o|contracted procedure: k20562 
o|contracted procedure: k20570 
o|contracted procedure: k20585 
o|contracted procedure: k20588 
o|contracted procedure: k20591 
o|contracted procedure: k20599 
o|contracted procedure: k20607 
o|contracted procedure: k21055 
o|contracted procedure: k20648 
o|contracted procedure: k21052 
o|contracted procedure: k20660 
o|contracted procedure: k20698 
o|contracted procedure: k20706 
o|contracted procedure: k20709 
o|contracted procedure: k20712 
o|contracted procedure: k20724 
o|contracted procedure: k20727 
o|contracted procedure: k20730 
o|contracted procedure: k20738 
o|contracted procedure: k20746 
o|contracted procedure: k21047 
o|contracted procedure: k20752 
o|contracted procedure: k20761 
o|contracted procedure: k20773 
o|contracted procedure: k20776 
o|contracted procedure: k20786 
o|contracted procedure: k20795 
o|contracted procedure: k20817 
o|contracted procedure: k20813 
o|contracted procedure: k20798 
o|contracted procedure: k20801 
o|contracted procedure: k20809 
o|contracted procedure: k20642 
o|contracted procedure: k20826 
o|contracted procedure: k20838 
o|contracted procedure: k20841 
o|contracted procedure: k20844 
o|contracted procedure: k20856 
o|contracted procedure: k20859 
o|contracted procedure: k20862 
o|contracted procedure: k20870 
o|contracted procedure: k20878 
o|contracted procedure: k20887 
o|contracted procedure: k20893 
o|contracted procedure: k20896 
o|contracted procedure: k20902 
o|contracted procedure: k20917 
o|contracted procedure: k20924 
o|contracted procedure: k20935 
o|contracted procedure: k20954 
o|contracted procedure: k20957 
o|contracted procedure: k20960 
o|contracted procedure: k20972 
o|contracted procedure: k20975 
o|contracted procedure: k20978 
o|contracted procedure: k20986 
o|contracted procedure: k20994 
o|contracted procedure: k21006 
o|contracted procedure: k21009 
o|contracted procedure: k21012 
o|contracted procedure: k21020 
o|contracted procedure: k21028 
o|contracted procedure: k21037 
o|contracted procedure: k21044 
o|contracted procedure: k21100 
o|contracted procedure: k21109 
o|contracted procedure: k21115 
o|contracted procedure: k21122 
o|contracted procedure: k21131 
o|contracted procedure: k21143 
o|contracted procedure: k21146 
o|contracted procedure: k21149 
o|contracted procedure: k21157 
o|contracted procedure: k21165 
o|contracted procedure: k21171 
o|contracted procedure: k21223 
o|contracted procedure: k17434 
o|contracted procedure: k17463 
o|contracted procedure: k17443 
o|contracted procedure: k17459 
o|contracted procedure: k17449 
o|contracted procedure: k17469 
o|contracted procedure: k21408 
o|contracted procedure: k21247 
o|contracted procedure: k21281 
o|contracted procedure: k21291 
o|contracted procedure: k21405 
o|contracted procedure: k21300 
o|contracted procedure: k21333 
o|inlining procedure: k21395 
o|inlining procedure: k21395 
o|contracted procedure: k21456 
o|contracted procedure: k21426 
o|contracted procedure: k21441 
o|contracted procedure: k21445 
o|contracted procedure: k21459 
o|contracted procedure: k21554 
o|contracted procedure: k21561 
o|contracted procedure: k21575 
o|contracted procedure: k21578 
o|contracted procedure: k21581 
o|contracted procedure: k21587 
o|contracted procedure: k21648 
o|contracted procedure: k21670 
o|contracted procedure: k21900 
o|contracted procedure: k21949 
o|contracted procedure: k22025 
o|contracted procedure: k21994 
o|contracted procedure: k22043 
o|contracted procedure: k22157 
o|contracted procedure: k22153 
o|contracted procedure: k22170 
o|contracted procedure: k22219 
o|contracted procedure: k22188 
o|contracted procedure: k22232 
o|contracted procedure: k22339 
o|contracted procedure: k22254 
o|contracted procedure: k22352 
o|contracted procedure: k22459 
o|contracted procedure: k22374 
o|contracted procedure: k22913 
o|contracted procedure: k22836 
o|contracted procedure: k22862 
o|contracted procedure: k20122 
o|contracted procedure: k20131 
o|contracted procedure: k20137 
o|contracted procedure: k20143 
o|contracted procedure: k20149 
o|contracted procedure: k20165 
o|contracted procedure: k20116 
o|contracted procedure: k20180 
o|contracted procedure: k20186 
o|contracted procedure: k20193 
o|contracted procedure: k22981 
o|contracted procedure: k22935 
o|contracted procedure: k22977 
o|contracted procedure: k22941 
o|contracted procedure: k22947 
o|contracted procedure: k22973 
o|contracted procedure: k22953 
o|contracted procedure: k22963 
o|contracted procedure: k22929 
o|contracted procedure: k22996 
o|contracted procedure: k22999 
o|contracted procedure: k23002 
o|contracted procedure: k22992 
o|contracted procedure: k23014 
o|contracted procedure: k23036 
o|contracted procedure: k23032 
o|contracted procedure: k23017 
o|contracted procedure: k23020 
o|contracted procedure: k23028 
o|contracted procedure: k23053 
o|contracted procedure: k23056 
o|contracted procedure: k23059 
o|contracted procedure: k23049 
o|contracted procedure: k23071 
o|contracted procedure: k23093 
o|contracted procedure: k23089 
o|contracted procedure: k23074 
o|contracted procedure: k23077 
o|contracted procedure: k23085 
o|contracted procedure: k23161 
o|contracted procedure: k23105 
o|contracted procedure: k23116 
o|contracted procedure: k23120 
o|contracted procedure: k23112 
o|contracted procedure: k23132 
o|contracted procedure: k23154 
o|contracted procedure: k23150 
o|contracted procedure: k23135 
o|contracted procedure: k23138 
o|contracted procedure: k23146 
o|contracted procedure: k23226 
o|contracted procedure: k23170 
o|contracted procedure: k23181 
o|contracted procedure: k23185 
o|contracted procedure: k23177 
o|contracted procedure: k23197 
o|contracted procedure: k23219 
o|contracted procedure: k23215 
o|contracted procedure: k23200 
o|contracted procedure: k23203 
o|contracted procedure: k23211 
o|contracted procedure: k23249 
o|contracted procedure: k23256 
o|contracted procedure: k23277 
o|contracted procedure: k23283 
o|contracted procedure: k23313 
o|contracted procedure: k23289 
o|contracted procedure: k23295 
o|contracted procedure: k23306 
o|contracted procedure: k23302 
o|contracted procedure: k23384 
o|contracted procedure: k23328 
o|contracted procedure: k23334 
o|contracted procedure: k23340 
o|contracted procedure: k23346 
o|contracted procedure: k23352 
o|contracted procedure: k23361 
o|contracted procedure: k23368 
o|contracted procedure: k23322 
o|simplifications: ((if . 17) (let . 542)) 
o|removed binding forms: 1695 
o|inlining procedure: "(scrutinizer.scm:2771) chicken.compiler.scrutinizer#call-node-procedure-name" 
o|inlining procedure: "(scrutinizer.scm:2796) chicken.compiler.scrutinizer#call-node-procedure-name" 
o|inlining procedure: "(scrutinizer.scm:2615) chicken.compiler.scrutinizer#multiples" 
o|inlining procedure: "(scrutinizer.scm:2614) chicken.compiler.scrutinizer#multiples" 
o|inlining procedure: "(scrutinizer.scm:2596) chicken.compiler.scrutinizer#call-node-procedure-name" 
o|contracted procedure: k9668 
o|inlining procedure: "(scrutinizer.scm:2963) chicken.compiler.scrutinizer#multiples" 
o|inlining procedure: "(scrutinizer.scm:2961) chicken.compiler.scrutinizer#multiples" 
o|contracted procedure: k12068 
o|inlining procedure: "(scrutinizer.scm:976) chicken.compiler.scrutinizer#maybe-expand-type" 
o|inlining procedure: "(scrutinizer.scm:975) chicken.compiler.scrutinizer#maybe-expand-type" 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest28032806 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest28032806 0 
o|inlining procedure: "(scrutinizer.scm:1339) chicken.compiler.scrutinizer#maybe-expand-type" 
o|inlining procedure: "(scrutinizer.scm:1338) chicken.compiler.scrutinizer#maybe-expand-type" 
o|contracted procedure: k15385 
o|contracted procedure: k15934 
o|contracted procedure: k16882 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest34273430 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest34273430 0 
o|contracted procedure: k17492 
o|inlining procedure: k18694 
o|inlining procedure: k18694 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest40544057 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest40544057 0 
o|contracted procedure: k19058 
o|contracted procedure: k19363 
o|contracted procedure: k19384 
o|inlining procedure: "(scrutinizer.scm:2159) list-or-null4369" 
o|inlining procedure: "(scrutinizer.scm:2158) list-or-null4369" 
o|inlining procedure: "(scrutinizer.scm:2163) list-or-null4369" 
o|contracted procedure: k19753 
o|inlining procedure: k20225 
o|inlining procedure: k20225 
o|inlining procedure: "(scrutinizer.scm:2621) chicken.compiler.scrutinizer#call-node-procedure-name" 
o|inlining procedure: "(scrutinizer.scm:2655) chicken.compiler.scrutinizer#call-node-procedure-name" 
o|inlining procedure: "(scrutinizer.scm:2683) chicken.compiler.scrutinizer#call-node-procedure-name" 
o|removed binding forms: 12 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#maybe-expand-type 
o|substituted constant variable: r1869528146 
o|removed side-effect free assignment to unused variable: list-or-null4369 
o|contracted procedure: "(scrutinizer.scm:2191) split-list-type4370" 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#multiples 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#call-node-procedure-name 
o|replaced variables: 43 
o|removed binding forms: 5 
o|inlining procedure: k19714 
o|inlining procedure: k19743 
o|converted assignments to bindings: (list+index-call-result-type-special-case4372) 
o|simplifications: ((let . 1)) 
o|replaced variables: 25 
o|removed binding forms: 40 
o|contracted procedure: k21867 
o|contracted procedure: k21871 
o|contracted procedure: k22763 
o|contracted procedure: k22775 
o|contracted procedure: k19710 
o|removed binding forms: 11 
o|direct leaf routine/allocation: g350351 3 
o|direct leaf routine/allocation: a8456 0 
o|direct leaf routine/allocation: tag791 29 
o|direct leaf routine/allocation: chicken.compiler.scrutinizer#named? 0 
o|direct leaf routine/allocation: chicken.compiler.scrutinizer#rest-type 0 
o|direct leaf routine/allocation: chicken.compiler.scrutinizer#noreturn-procedure-type? 0 
o|direct leaf routine/allocation: chicken.compiler.scrutinizer#refinement-type? 0 
o|direct leaf routine/allocation: doloop32463247 0 
o|direct leaf routine/allocation: loop3705 0 
o|direct leaf routine/allocation: g38163817 3 
o|contracted procedure: "(mini-srfi-1.scm:216) k7881" 
o|contracted procedure: "(scrutinizer.scm:334) k9200" 
o|contracted procedure: "(scrutinizer.scm:455) k9907" 
o|contracted procedure: "(scrutinizer.scm:455) k9911" 
o|contracted procedure: "(scrutinizer.scm:537) k10061" 
o|contracted procedure: "(scrutinizer.scm:801) k11623" 
o|contracted procedure: "(scrutinizer.scm:888) k11923" 
o|contracted procedure: "(scrutinizer.scm:890) k11938" 
o|contracted procedure: "(scrutinizer.scm:902) k12007" 
o|contracted procedure: "(scrutinizer.scm:1211) k13976" 
o|contracted procedure: "(scrutinizer.scm:1239) k14343" 
o|contracted procedure: "(scrutinizer.scm:1288) k14508" 
o|contracted procedure: "(scrutinizer.scm:1289) k14512" 
o|contracted procedure: "(scrutinizer.scm:1439) k15392" 
o|converted assignments to bindings: (doloop32463247) 
o|converted assignments to bindings: (loop3705) 
o|contracted procedure: "(scrutinizer.scm:2404) k20672" 
o|simplifications: ((let . 2)) 
o|removed binding forms: 15 
o|direct leaf routine/allocation: loop513 0 
o|contracted procedure: k8447 
o|converted assignments to bindings: (loop513) 
o|simplifications: ((let . 1)) 
o|removed binding forms: 1 
o|customizable procedures: (list+index-call-result-type-special-case4372 map-loop44624479 map-loop44964513 map-loop45304547 map-loop45644581 k20125 p5513 p5465 p5443 file-location5289 p-expr5251 p-node5252 rec5182 chicken.compiler.scrutinizer#variable-and-module k21307 g51085117 map-loop51025131 walk5091 map-loop50205037 map-loop50475064 k20945 R4909 map-loop49925009 k20770 map-loop49624980 map-loop49244941 conv4888 g48664875 map-loop48604878 restore4718 loop4798 collect4719 g48154822 for-each-loop48144829 map-loop47374754 loop273 g47704779 map-loop47644789 doloop47224723 derive-result-type4624 lp4626 foldl46424646 lp4390 loop157 k19888 g44374438 known-length-vector-index4300 chicken.compiler.scrutinizer#r-index-out-of-range loop4236 rec4216 g40914100 map-loop40854200 g41134122 map-loop41074140 fail4081 g41664175 map-loop41604193 g40024003 g40164025 map-loop40104035 k18895 k18104 map-loop39713988 k18680 map-loop39293946 g39213922 loop3909 g38753876 k18347 memq*3691 k18382 loop3696 k18288 map-loop38243841 g37803789 map-loop37743798 validate3693 validate-llist3692 k17542 subst3654 map-loop36123629 chicken.compiler.scrutinizer#source-node k17156 wrap3568 loop267 adjust3477 loop3484 k16803 for-each-loop34613540 k16463 loop3381 g33963405 map-loop33903415 g33493358 map-loop33433368 g32973306 map-loop32913316 g32703271 resolve3261 for-each-loop32263236 k16171 map-loop31983216 for-each-loop31633173 for-each-loop31803190 for-each-loop31283138 for-each-loop31453155 loop3111 g30183019 loop12979 k15344 loop2992 k14877 k14911 map-loop28732892 g28422843 g28312832 loop2822 a14761 g26962697 g26782679 loop407 map-loop26272644 map-loop26532670 map-loop25982615 map-loop25692586 chicken.compiler.scrutinizer#canonicalize-list-type foldl461465 foldl445449 map-loop24442461 chicken.compiler.scrutinizer#delete-duplicates chicken.compiler.scrutinizer#lset=/eq? loop2517 k13698 chicken.compiler.scrutinizer#merge-argument-types loop2745 foldl24872491 map-loop24112430 chicken.compiler.scrutinizer#filter-map simplify2394 loop2377 k12676 every-match12025 chicken.compiler.scrutinizer#procedure-arguments chicken.compiler.scrutinizer#procedure-results match-args2020 chicken.compiler.scrutinizer#over-all-instantiations g21912192 g21802181 g21522153 g21192120 g21332134 rawmatch12024 loop2095 match-results2023 loop136 match12026 match-rest2021 loop2030 loop1917 map-loop19321949 doloop19141915 for-each-loop18611881 g18361843 for-each-loop18351846 loop1823 chicken.compiler.scrutinizer#node-source-prefix chicken.compiler.scrutinizer#location-name chicken.compiler.scrutinizer#string-add-indent map-loop56015618 chicken.compiler.scrutinizer#compatible-types? k11271 k11274 g15811591 map-loop15751604 map-loop16221639 g17081716 for-each-loop17071762 g17781787 map-loop17721797 k10861 g17541755 smash1662 g16771686 map-loop16711696 k10731 call-result790 k10584 k10561 k10564 k10435 k10450 chicken.compiler.scrutinizer#smash-component-types! k10329 loop1540 initial-argument-types793 map-loop13901411 k10174 k10089 g14591460 loop1448 k9968 k9952 loop1359 single787 always-true785 k9624 g12921299 for-each-loop12911304 add-to-blist792 k9674 map-loop13201344 walk794 variable-result783 g11911200 map-loop11851213 loop1169 map-loop970987 chicken.compiler.scrutinizer#make-list k8724 chicken.compiler.scrutinizer#strip-namespace chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch doloop10261027 k8761 k15582 loop3042 g30373038 loop13029 chicken.compiler.scrutinizer#procedure-name k9082 g10841085 chicken.compiler.scrutinizer#append-map loop1087 g10781079 chicken.compiler.scrutinizer#mutate-node! g10471048 chicken.compiler.scrutinizer#match-argument-types chicken.compiler.scrutinizer#trail-restore chicken.compiler.scrutinizer#fragment chicken.compiler.scrutinizer#specialize-node! k8770 k8836 k8773 g11311140 map-loop11251150 chicken.compiler.scrutinizer#procedure-argument-types chicken.compiler.scrutinizer#describe-expression chicken.compiler.scrutinizer#variable-from-module variable-node-name5317 chicken.compiler.scrutinizer#pp-fragment chicken.compiler.scrutinizer#type->pp-string blist-type782 k8490 g877878 chicken.compiler.scrutinizer#r-deprecated-identifier map-loop840857 chicken.compiler.scrutinizer#simplify-type constant-result780 map-loop808825 chicken.compiler.scrutinizer#list-tabulate chicken.compiler.scrutinizer#every loop485 map-loop363381 foldr335338 g340341 loop280 loop300 loop254 loop241 chicken.compiler.scrutinizer#any map-loop185203 map-loop212230 loop181 foldr170173 g175176 chicken.compiler.scrutinizer#take) 
o|calls to known targets: 939 
o|identified direct recursive calls: f_6848 1 
o|identified direct recursive calls: f_6954 1 
o|identified direct recursive calls: f_7026 1 
o|identified direct recursive calls: f_7075 1 
o|identified direct recursive calls: f_7402 1 
o|identified direct recursive calls: f_7475 1 
o|unused rest argument: _54525855 f25856 
o|unused rest argument: _545 f_7943 
o|identified direct recursive calls: f_8073 1 
o|identified direct recursive calls: f_7870 1 
o|identified direct recursive calls: f_8539 2 
o|identified direct recursive calls: f_15586 1 
o|identified direct recursive calls: f_15543 1 
o|identified direct recursive calls: f_10222 1 
o|identified direct recursive calls: f_10339 1 
o|identified direct recursive calls: f_11667 1 
o|identified direct recursive calls: f_11851 2 
o|identified direct recursive calls: f_6804 1 
o|identified direct recursive calls: f_7574 2 
o|identified direct recursive calls: f_14456 1 
o|unused rest argument: rest28032806 f_14753 
o|identified direct recursive calls: f_15103 1 
o|identified direct recursive calls: f_15155 1 
o|identified direct recursive calls: f_15206 1 
o|identified direct recursive calls: f_15263 1 
o|identified direct recursive calls: f_15348 2 
o|identified direct recursive calls: f_15329 1 
o|identified direct recursive calls: f_15671 1 
o|identified direct recursive calls: f_15744 1 
o|identified direct recursive calls: f_15803 1 
o|identified direct recursive calls: f_15847 1 
o|identified direct recursive calls: f_15900 1 
o|identified direct recursive calls: f_16232 1 
o|identified direct recursive calls: f_16611 2 
o|identified direct recursive calls: f_16279 2 
o|identified direct recursive calls: f_16871 1 
o|unused rest argument: rest34273430 f_16734 
o|identified direct recursive calls: f_7179 1 
o|identified direct recursive calls: f_17198 1 
o|identified direct recursive calls: f_17674 1 
o|identified direct recursive calls: f_17702 1 
o|identified direct recursive calls: f_17646 1 
o|unused rest argument: rest40544057 f_19004 
o|identified direct recursive calls: f_19345 1 
o|identified direct recursive calls: f_19443 1 
o|identified direct recursive calls: f_6906 1 
o|identified direct recursive calls: f_19731 1 
o|identified direct recursive calls: f_19997 1 
o|identified direct recursive calls: f_7207 1 
o|identified direct recursive calls: f_21295 1 
o|fast box initializations: 142 
o|fast global references: 387 
o|fast global assignments: 90 
o|dropping unused closure argument: f_11631 
o|dropping unused closure argument: f_13415 
o|dropping unused closure argument: f_13487 
o|dropping unused closure argument: f_14456 
o|dropping unused closure argument: f_14694 
o|dropping unused closure argument: f_15155 
o|dropping unused closure argument: f_15206 
o|dropping unused closure argument: f_15263 
o|dropping unused closure argument: f_15320 
o|dropping unused closure argument: f_15671 
o|dropping unused closure argument: f_15724 
o|dropping unused closure argument: f_15744 
o|dropping unused closure argument: f_15847 
o|dropping unused closure argument: f_16226 
o|dropping unused closure argument: f_17304 
o|dropping unused closure argument: f_17322 
o|dropping unused closure argument: f_17484 
o|dropping unused closure argument: f_17668 
o|dropping unused closure argument: f_19317 
o|dropping unused closure argument: f_19431 
o|dropping unused closure argument: f_19481 
o|dropping unused closure argument: f_19826 
o|dropping unused closure argument: f_20204 
o|dropping unused closure argument: f_20529 
o|dropping unused closure argument: f_20620 
o|dropping unused closure argument: f_21086 
o|dropping unused closure argument: f_21191 
o|dropping unused closure argument: f_21215 
o|dropping unused closure argument: f_21245 
o|dropping unused closure argument: f_21415 
o|dropping unused closure argument: f_21466 
o|dropping unused closure argument: f_21526 
o|dropping unused closure argument: f_21529 
o|dropping unused closure argument: f_21890 
o|dropping unused closure argument: f_22029 
o|dropping unused closure argument: f_22834 
o|dropping unused closure argument: f_6848 
o|dropping unused closure argument: f_6939 
o|dropping unused closure argument: f_7109 
o|dropping unused closure argument: f_7143 
o|dropping unused closure argument: f_7304 
o|dropping unused closure argument: f_7393 
o|dropping unused closure argument: f_7751 
o|dropping unused closure argument: f_7793 
o|dropping unused closure argument: f_7934 
o|dropping unused closure argument: f_8625 
*/
/* end of file */
