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

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

static C_word lf[664];
static double C_possibly_force_alignment;


C_noret_decl(f26120)
static void C_ccall f26120(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(f26242)
static void C_ccall f26242(C_word c,C_word *av) C_noret;
C_noret_decl(f26249)
static void C_ccall f26249(C_word c,C_word *av) C_noret;
C_noret_decl(f26497)
static void C_ccall f26497(C_word c,C_word *av) C_noret;
C_noret_decl(f26645)
static void C_ccall f26645(C_word c,C_word *av) C_noret;
C_noret_decl(f26710)
static void C_ccall f26710(C_word c,C_word *av) C_noret;
C_noret_decl(f26717)
static void C_ccall f26717(C_word c,C_word *av) C_noret;
C_noret_decl(f26869)
static void C_ccall f26869(C_word c,C_word *av) C_noret;
C_noret_decl(f26874)
static void C_ccall f26874(C_word c,C_word *av) C_noret;
C_noret_decl(f26883)
static void C_ccall f26883(C_word c,C_word *av) C_noret;
C_noret_decl(f26890)
static void C_ccall f26890(C_word c,C_word *av) C_noret;
C_noret_decl(f26929)
static void C_ccall f26929(C_word c,C_word *av) C_noret;
C_noret_decl(f26934)
static void C_ccall f26934(C_word c,C_word *av) C_noret;
C_noret_decl(f26939)
static void C_ccall f26939(C_word c,C_word *av) C_noret;
C_noret_decl(f26946)
static void C_ccall f26946(C_word c,C_word *av) C_noret;
C_noret_decl(f26953)
static void C_ccall f26953(C_word c,C_word *av) C_noret;
C_noret_decl(f26960)
static void C_ccall f26960(C_word c,C_word *av) C_noret;
C_noret_decl(f26967)
static void C_ccall f26967(C_word c,C_word *av) C_noret;
C_noret_decl(f28274)
static void C_ccall f28274(C_word c,C_word *av) C_noret;
C_noret_decl(f28279)
static void C_ccall f28279(C_word c,C_word *av) C_noret;
C_noret_decl(f28298)
static void C_ccall f28298(C_word c,C_word *av) C_noret;
C_noret_decl(f28532)
static void C_ccall f28532(C_word c,C_word *av) C_noret;
C_noret_decl(f28537)
static void C_ccall f28537(C_word c,C_word *av) C_noret;
C_noret_decl(f28542)
static void C_ccall f28542(C_word c,C_word *av) C_noret;
C_noret_decl(f_10021)
static void f_10021(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_10048)
static void C_ccall f_10048(C_word c,C_word *av) C_noret;
C_noret_decl(f_10051)
static void f_10051(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10067)
static void f_10067(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10076)
static void C_ccall f_10076(C_word c,C_word *av) C_noret;
C_noret_decl(f_10084)
static void C_ccall f_10084(C_word c,C_word *av) C_noret;
C_noret_decl(f_10094)
static void C_ccall f_10094(C_word c,C_word *av) C_noret;
C_noret_decl(f_10098)
static void C_ccall f_10098(C_word c,C_word *av) C_noret;
C_noret_decl(f_10102)
static void C_ccall f_10102(C_word c,C_word *av) C_noret;
C_noret_decl(f_10104)
static void C_ccall f_10104(C_word c,C_word *av) C_noret;
C_noret_decl(f_10126)
static void C_ccall f_10126(C_word c,C_word *av) C_noret;
C_noret_decl(f_10133)
static void C_ccall f_10133(C_word c,C_word *av) C_noret;
C_noret_decl(f_10136)
static void C_ccall f_10136(C_word c,C_word *av) C_noret;
C_noret_decl(f_10139)
static void C_ccall f_10139(C_word c,C_word *av) C_noret;
C_noret_decl(f_10147)
static void C_ccall f_10147(C_word c,C_word *av) C_noret;
C_noret_decl(f_10156)
static void C_ccall f_10156(C_word c,C_word *av) C_noret;
C_noret_decl(f_10163)
static void C_ccall f_10163(C_word c,C_word *av) C_noret;
C_noret_decl(f_10170)
static void C_ccall f_10170(C_word c,C_word *av) C_noret;
C_noret_decl(f_10178)
static void C_ccall f_10178(C_word c,C_word *av) C_noret;
C_noret_decl(f_10180)
static void f_10180(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_10188)
static void f_10188(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10192)
static void f_10192(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10204)
static void C_ccall f_10204(C_word c,C_word *av) C_noret;
C_noret_decl(f_10239)
static void C_ccall f_10239(C_word c,C_word *av) C_noret;
C_noret_decl(f_10261)
static void C_ccall f_10261(C_word c,C_word *av) C_noret;
C_noret_decl(f_10273)
static void f_10273(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10286)
static void C_ccall f_10286(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_10317)
static void C_ccall f_10317(C_word c,C_word *av) C_noret;
C_noret_decl(f_10319)
static void f_10319(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10390)
static void C_ccall f_10390(C_word c,C_word *av) C_noret;
C_noret_decl(f_10393)
static void C_ccall f_10393(C_word c,C_word *av) C_noret;
C_noret_decl(f_10396)
static void C_ccall f_10396(C_word c,C_word *av) C_noret;
C_noret_decl(f_10402)
static void C_ccall f_10402(C_word c,C_word *av) C_noret;
C_noret_decl(f_10405)
static void C_ccall f_10405(C_word c,C_word *av) C_noret;
C_noret_decl(f_10408)
static void C_ccall f_10408(C_word c,C_word *av) C_noret;
C_noret_decl(f_10414)
static void C_ccall f_10414(C_word c,C_word *av) C_noret;
C_noret_decl(f_10428)
static void f_10428(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10436)
static void f_10436(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10470)
static void C_ccall f_10470(C_word c,C_word *av) C_noret;
C_noret_decl(f_10519)
static void C_ccall f_10519(C_word c,C_word *av) C_noret;
C_noret_decl(f_10534)
static void f_10534(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10537)
static void C_ccall f_10537(C_word c,C_word *av) C_noret;
C_noret_decl(f_10540)
static void C_ccall f_10540(C_word c,C_word *av) C_noret;
C_noret_decl(f_10549)
static void f_10549(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10555)
static void C_ccall f_10555(C_word c,C_word *av) C_noret;
C_noret_decl(f_10561)
static void C_ccall f_10561(C_word c,C_word *av) C_noret;
C_noret_decl(f_10564)
static void C_ccall f_10564(C_word c,C_word *av) C_noret;
C_noret_decl(f_10571)
static void C_ccall f_10571(C_word c,C_word *av) C_noret;
C_noret_decl(f_10577)
static void C_ccall f_10577(C_word c,C_word *av) C_noret;
C_noret_decl(f_10580)
static void C_ccall f_10580(C_word c,C_word *av) C_noret;
C_noret_decl(f_10583)
static void C_ccall f_10583(C_word c,C_word *av) C_noret;
C_noret_decl(f_10586)
static void C_ccall f_10586(C_word c,C_word *av) C_noret;
C_noret_decl(f_10589)
static void C_ccall f_10589(C_word c,C_word *av) C_noret;
C_noret_decl(f_10592)
static void C_ccall f_10592(C_word c,C_word *av) C_noret;
C_noret_decl(f_10600)
static void C_ccall f_10600(C_word c,C_word *av) C_noret;
C_noret_decl(f_10620)
static void C_ccall f_10620(C_word c,C_word *av) C_noret;
C_noret_decl(f_10624)
static void C_ccall f_10624(C_word c,C_word *av) C_noret;
C_noret_decl(f_10653)
static void C_ccall f_10653(C_word c,C_word *av) C_noret;
C_noret_decl(f_10660)
static void f_10660(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10663)
static void f_10663(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10683)
static void f_10683(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10690)
static void C_ccall f_10690(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_10716)
static void C_ccall f_10716(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_10725)
static void C_ccall f_10725(C_word c,C_word *av) C_noret;
C_noret_decl(f_10752)
static void C_ccall f_10752(C_word c,C_word *av) C_noret;
C_noret_decl(f_10759)
static void f_10759(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10775)
static void C_ccall f_10775(C_word c,C_word *av) C_noret;
C_noret_decl(f_10779)
static void C_ccall f_10779(C_word c,C_word *av) C_noret;
C_noret_decl(f_10781)
static void C_ccall f_10781(C_word c,C_word *av) C_noret;
C_noret_decl(f_10788)
static void C_ccall f_10788(C_word c,C_word *av) C_noret;
C_noret_decl(f_10794)
static void C_ccall f_10794(C_word c,C_word *av) C_noret;
C_noret_decl(f_10800)
static void C_ccall f_10800(C_word c,C_word *av) C_noret;
C_noret_decl(f_10803)
static void C_ccall f_10803(C_word c,C_word *av) C_noret;
C_noret_decl(f_10806)
static void C_ccall f_10806(C_word c,C_word *av) C_noret;
C_noret_decl(f_10809)
static void C_ccall f_10809(C_word c,C_word *av) C_noret;
C_noret_decl(f_10814)
static void C_ccall f_10814(C_word c,C_word *av) C_noret;
C_noret_decl(f_10820)
static void C_ccall f_10820(C_word c,C_word *av) C_noret;
C_noret_decl(f_10823)
static void f_10823(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10830)
static void f_10830(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10833)
static void C_ccall f_10833(C_word c,C_word *av) C_noret;
C_noret_decl(f_10858)
static void C_ccall f_10858(C_word c,C_word *av) C_noret;
C_noret_decl(f_10862)
static void C_ccall f_10862(C_word c,C_word *av) C_noret;
C_noret_decl(f_10868)
static void C_ccall f_10868(C_word c,C_word *av) C_noret;
C_noret_decl(f_10871)
static void C_ccall f_10871(C_word c,C_word *av) C_noret;
C_noret_decl(f_10881)
static void f_10881(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10893)
static void f_10893(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10918)
static void C_ccall f_10918(C_word c,C_word *av) C_noret;
C_noret_decl(f_10935)
static void f_10935(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10948)
static void C_ccall f_10948(C_word c,C_word *av) C_noret;
C_noret_decl(f_10951)
static void C_ccall f_10951(C_word c,C_word *av) C_noret;
C_noret_decl(f_10954)
static void C_ccall f_10954(C_word c,C_word *av) C_noret;
C_noret_decl(f_10960)
static void f_10960(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10966)
static void C_ccall f_10966(C_word c,C_word *av) C_noret;
C_noret_decl(f_10972)
static void C_ccall f_10972(C_word c,C_word *av) C_noret;
C_noret_decl(f_10978)
static void C_ccall f_10978(C_word c,C_word *av) C_noret;
C_noret_decl(f_11001)
static void C_ccall f_11001(C_word c,C_word *av) C_noret;
C_noret_decl(f_11016)
static void C_ccall f_11016(C_word c,C_word *av) C_noret;
C_noret_decl(f_11022)
static void C_ccall f_11022(C_word c,C_word *av) C_noret;
C_noret_decl(f_11028)
static void C_ccall f_11028(C_word c,C_word *av) C_noret;
C_noret_decl(f_11044)
static void C_ccall f_11044(C_word c,C_word *av) C_noret;
C_noret_decl(f_11050)
static void C_ccall f_11050(C_word c,C_word *av) C_noret;
C_noret_decl(f_11054)
static void f_11054(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11062)
static void C_ccall f_11062(C_word c,C_word *av) C_noret;
C_noret_decl(f_11084)
static void C_ccall f_11084(C_word c,C_word *av) C_noret;
C_noret_decl(f_11095)
static void C_ccall f_11095(C_word c,C_word *av) C_noret;
C_noret_decl(f_11099)
static void C_ccall f_11099(C_word c,C_word *av) C_noret;
C_noret_decl(f_11108)
static void C_ccall f_11108(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_11121)
static void f_11121(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11133)
static void f_11133(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11158)
static void C_ccall f_11158(C_word c,C_word *av) C_noret;
C_noret_decl(f_11167)
static void f_11167(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11177)
static void C_ccall f_11177(C_word c,C_word *av) C_noret;
C_noret_decl(f_11206)
static void C_ccall f_11206(C_word c,C_word *av) C_noret;
C_noret_decl(f_11208)
static void C_ccall f_11208(C_word c,C_word *av) C_noret;
C_noret_decl(f_11216)
static void C_ccall f_11216(C_word c,C_word *av) C_noret;
C_noret_decl(f_11224)
static void C_ccall f_11224(C_word c,C_word *av) C_noret;
C_noret_decl(f_11241)
static void C_ccall f_11241(C_word c,C_word *av) C_noret;
C_noret_decl(f_11243)
static void f_11243(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11281)
static void f_11281(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11310)
static void C_ccall f_11310(C_word c,C_word *av) C_noret;
C_noret_decl(f_11339)
static void C_ccall f_11339(C_word c,C_word *av) C_noret;
C_noret_decl(f_11345)
static void C_ccall f_11345(C_word c,C_word *av) C_noret;
C_noret_decl(f_11364)
static void C_ccall f_11364(C_word c,C_word *av) C_noret;
C_noret_decl(f_11370)
static void f_11370(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11373)
static void f_11373(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11395)
static void C_ccall f_11395(C_word c,C_word *av) C_noret;
C_noret_decl(f_11427)
static void C_ccall f_11427(C_word c,C_word *av) C_noret;
C_noret_decl(f_11430)
static void C_ccall f_11430(C_word c,C_word *av) C_noret;
C_noret_decl(f_11443)
static void f_11443(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11464)
static void C_ccall f_11464(C_word c,C_word *av) C_noret;
C_noret_decl(f_11470)
static void C_ccall f_11470(C_word c,C_word *av) C_noret;
C_noret_decl(f_11473)
static void C_ccall f_11473(C_word c,C_word *av) C_noret;
C_noret_decl(f_11483)
static void C_ccall f_11483(C_word c,C_word *av) C_noret;
C_noret_decl(f_11502)
static void C_ccall f_11502(C_word c,C_word *av) C_noret;
C_noret_decl(f_11527)
static void f_11527(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11537)
static void C_ccall f_11537(C_word c,C_word *av) C_noret;
C_noret_decl(f_11539)
static void f_11539(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11549)
static void C_ccall f_11549(C_word c,C_word *av) C_noret;
C_noret_decl(f_11610)
static void C_ccall f_11610(C_word c,C_word *av) C_noret;
C_noret_decl(f_11613)
static void C_ccall f_11613(C_word c,C_word *av) C_noret;
C_noret_decl(f_11616)
static void C_ccall f_11616(C_word c,C_word *av) C_noret;
C_noret_decl(f_11619)
static void C_ccall f_11619(C_word c,C_word *av) C_noret;
C_noret_decl(f_11622)
static void C_ccall f_11622(C_word c,C_word *av) C_noret;
C_noret_decl(f_11628)
static void C_ccall f_11628(C_word c,C_word *av) C_noret;
C_noret_decl(f_11651)
static void C_ccall f_11651(C_word c,C_word *av) C_noret;
C_noret_decl(f_11655)
static void C_ccall f_11655(C_word c,C_word *av) C_noret;
C_noret_decl(f_11663)
static void C_ccall f_11663(C_word c,C_word *av) C_noret;
C_noret_decl(f_11666)
static void C_ccall f_11666(C_word c,C_word *av) C_noret;
C_noret_decl(f_11669)
static void C_ccall f_11669(C_word c,C_word *av) C_noret;
C_noret_decl(f_11672)
static void C_ccall f_11672(C_word c,C_word *av) C_noret;
C_noret_decl(f_11689)
static void f_11689(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11699)
static void C_ccall f_11699(C_word c,C_word *av) C_noret;
C_noret_decl(f_11726)
static void C_ccall f_11726(C_word c,C_word *av) C_noret;
C_noret_decl(f_11728)
static void f_11728(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11734)
static void f_11734(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11744)
static void C_ccall f_11744(C_word c,C_word *av) C_noret;
C_noret_decl(f_11756)
static void C_ccall f_11756(C_word c,C_word *av) C_noret;
C_noret_decl(f_11764)
static void f_11764(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11784)
static void C_ccall f_11784(C_word c,C_word *av) C_noret;
C_noret_decl(f_11797)
static void C_ccall f_11797(C_word c,C_word *av) C_noret;
C_noret_decl(f_11809)
static void C_ccall f_11809(C_word c,C_word *av) C_noret;
C_noret_decl(f_11816)
static void C_ccall f_11816(C_word c,C_word *av) C_noret;
C_noret_decl(f_11818)
static void f_11818(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11843)
static void C_ccall f_11843(C_word c,C_word *av) C_noret;
C_noret_decl(f_11865)
static void C_ccall f_11865(C_word c,C_word *av) C_noret;
C_noret_decl(f_11878)
static void C_ccall f_11878(C_word c,C_word *av) C_noret;
C_noret_decl(f_11899)
static void C_ccall f_11899(C_word c,C_word *av) C_noret;
C_noret_decl(f_11924)
static void C_ccall f_11924(C_word c,C_word *av) C_noret;
C_noret_decl(f_11928)
static void C_ccall f_11928(C_word c,C_word *av) C_noret;
C_noret_decl(f_11939)
static void f_11939(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11948)
static void f_11948(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_12045)
static void C_ccall f_12045(C_word c,C_word *av) C_noret;
C_noret_decl(f_12070)
static void f_12070(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12076)
static void C_ccall f_12076(C_word c,C_word *av) C_noret;
C_noret_decl(f_12092)
static void C_ccall f_12092(C_word c,C_word *av) C_noret;
C_noret_decl(f_12099)
static void C_ccall f_12099(C_word c,C_word *av) C_noret;
C_noret_decl(f_12116)
static void C_ccall f_12116(C_word c,C_word *av) C_noret;
C_noret_decl(f_12133)
static void f_12133(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12176)
static void C_ccall f_12176(C_word c,C_word *av) C_noret;
C_noret_decl(f_12201)
static void f_12201(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12207)
static void C_ccall f_12207(C_word c,C_word *av) C_noret;
C_noret_decl(f_12212)
static void C_ccall f_12212(C_word c,C_word *av) C_noret;
C_noret_decl(f_12218)
static void C_ccall f_12218(C_word c,C_word *av) C_noret;
C_noret_decl(f_12223)
static void f_12223(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12229)
static void f_12229(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12242)
static void C_ccall f_12242(C_word c,C_word *av) C_noret;
C_noret_decl(f_12259)
static void f_12259(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12276)
static void f_12276(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12289)
static void C_ccall f_12289(C_word c,C_word *av) C_noret;
C_noret_decl(f_12317)
static void f_12317(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12330)
static void C_ccall f_12330(C_word c,C_word *av) C_noret;
C_noret_decl(f_12367)
static void C_ccall f_12367(C_word c,C_word *av) C_noret;
C_noret_decl(f_12408)
static void f_12408(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12421)
static void C_ccall f_12421(C_word c,C_word *av) C_noret;
C_noret_decl(f_12451)
static void C_ccall f_12451(C_word c,C_word *av) C_noret;
C_noret_decl(f_12521)
static void C_ccall f_12521(C_word c,C_word *av) C_noret;
C_noret_decl(f_12525)
static void f_12525(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12535)
static void C_ccall f_12535(C_word c,C_word *av) C_noret;
C_noret_decl(f_12539)
static void f_12539(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12560)
static void C_ccall f_12560(C_word c,C_word *av) C_noret;
C_noret_decl(f_12565)
static void C_ccall f_12565(C_word c,C_word *av) C_noret;
C_noret_decl(f_12569)
static void C_ccall f_12569(C_word c,C_word *av) C_noret;
C_noret_decl(f_12572)
static void C_ccall f_12572(C_word c,C_word *av) C_noret;
C_noret_decl(f_12581)
static void C_ccall f_12581(C_word c,C_word *av) C_noret;
C_noret_decl(f_12601)
static void C_ccall f_12601(C_word c,C_word *av) C_noret;
C_noret_decl(f_12606)
static void C_ccall f_12606(C_word c,C_word *av) C_noret;
C_noret_decl(f_12610)
static void C_ccall f_12610(C_word c,C_word *av) C_noret;
C_noret_decl(f_12613)
static void C_ccall f_12613(C_word c,C_word *av) C_noret;
C_noret_decl(f_12622)
static void C_ccall f_12622(C_word c,C_word *av) C_noret;
C_noret_decl(f_12640)
static void C_ccall f_12640(C_word c,C_word *av) C_noret;
C_noret_decl(f_12659)
static void C_ccall f_12659(C_word c,C_word *av) C_noret;
C_noret_decl(f_12775)
static void f_12775(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12787)
static void C_ccall f_12787(C_word c,C_word *av) C_noret;
C_noret_decl(f_12790)
static void C_ccall f_12790(C_word c,C_word *av) C_noret;
C_noret_decl(f_12793)
static void C_ccall f_12793(C_word c,C_word *av) C_noret;
C_noret_decl(f_12796)
static void C_ccall f_12796(C_word c,C_word *av) C_noret;
C_noret_decl(f_12802)
static void C_ccall f_12802(C_word c,C_word *av) C_noret;
C_noret_decl(f_12895)
static void C_ccall f_12895(C_word c,C_word *av) C_noret;
C_noret_decl(f_13005)
static void C_ccall f_13005(C_word c,C_word *av) C_noret;
C_noret_decl(f_13038)
static void C_ccall f_13038(C_word c,C_word *av) C_noret;
C_noret_decl(f_13107)
static void C_ccall f_13107(C_word c,C_word *av) C_noret;
C_noret_decl(f_13140)
static void C_ccall f_13140(C_word c,C_word *av) C_noret;
C_noret_decl(f_13214)
static void C_ccall f_13214(C_word c,C_word *av) C_noret;
C_noret_decl(f_13248)
static void C_ccall f_13248(C_word c,C_word *av) C_noret;
C_noret_decl(f_13290)
static void C_ccall f_13290(C_word c,C_word *av) C_noret;
C_noret_decl(f_13324)
static void C_ccall f_13324(C_word c,C_word *av) C_noret;
C_noret_decl(f_13512)
static void f_13512(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13518)
static void f_13518(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13551)
static void C_ccall f_13551(C_word c,C_word *av) C_noret;
C_noret_decl(f_13565)
static void C_ccall f_13565(C_word c,C_word *av) C_noret;
C_noret_decl(f_13584)
static void f_13584(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13587)
static void f_13587(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13593)
static void C_ccall f_13593(C_word c,C_word *av) C_noret;
C_noret_decl(f_13614)
static void C_ccall f_13614(C_word c,C_word *av) C_noret;
C_noret_decl(f_13618)
static void C_ccall f_13618(C_word c,C_word *av) C_noret;
C_noret_decl(f_13629)
static void C_ccall f_13629(C_word c,C_word *av) C_noret;
C_noret_decl(f_13631)
static void C_ccall f_13631(C_word c,C_word *av) C_noret;
C_noret_decl(f_13666)
static void C_ccall f_13666(C_word c,C_word *av) C_noret;
C_noret_decl(f_13668)
static void f_13668(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13709)
static void C_ccall f_13709(C_word c,C_word *av) C_noret;
C_noret_decl(f_13737)
static void C_ccall f_13737(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_13751)
static void C_ccall f_13751(C_word c,C_word *av) C_noret;
C_noret_decl(f_13754)
static void C_ccall f_13754(C_word c,C_word *av) C_noret;
C_noret_decl(f_13757)
static void C_ccall f_13757(C_word c,C_word *av) C_noret;
C_noret_decl(f_13760)
static void C_ccall f_13760(C_word c,C_word *av) C_noret;
C_noret_decl(f_13763)
static void C_ccall f_13763(C_word c,C_word *av) C_noret;
C_noret_decl(f_13766)
static void C_ccall f_13766(C_word c,C_word *av) C_noret;
C_noret_decl(f_13773)
static void f_13773(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13781)
static void C_ccall f_13781(C_word c,C_word *av) C_noret;
C_noret_decl(f_13785)
static void C_ccall f_13785(C_word c,C_word *av) C_noret;
C_noret_decl(f_13806)
static void f_13806(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13824)
static void C_ccall f_13824(C_word c,C_word *av) C_noret;
C_noret_decl(f_13830)
static void C_ccall f_13830(C_word c,C_word *av) C_noret;
C_noret_decl(f_13840)
static void C_ccall f_13840(C_word c,C_word *av) C_noret;
C_noret_decl(f_13846)
static void C_ccall f_13846(C_word c,C_word *av) C_noret;
C_noret_decl(f_13852)
static void C_ccall f_13852(C_word c,C_word *av) C_noret;
C_noret_decl(f_13855)
static void C_ccall f_13855(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_13875)
static void f_13875(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13900)
static void C_ccall f_13900(C_word c,C_word *av) C_noret;
C_noret_decl(f_13911)
static void C_ccall f_13911(C_word c,C_word *av) C_noret;
C_noret_decl(f_13929)
static void C_ccall f_13929(C_word c,C_word *av) C_noret;
C_noret_decl(f_13939)
static void C_ccall f_13939(C_word c,C_word *av) C_noret;
C_noret_decl(f_13955)
static void C_ccall f_13955(C_word c,C_word *av) C_noret;
C_noret_decl(f_13959)
static void C_ccall f_13959(C_word c,C_word *av) C_noret;
C_noret_decl(f_14017)
static void C_ccall f_14017(C_word c,C_word *av) C_noret;
C_noret_decl(f_14019)
static void f_14019(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14044)
static void C_ccall f_14044(C_word c,C_word *av) C_noret;
C_noret_decl(f_14063)
static void C_ccall f_14063(C_word c,C_word *av) C_noret;
C_noret_decl(f_14082)
static void C_ccall f_14082(C_word c,C_word *av) C_noret;
C_noret_decl(f_14097)
static void C_ccall f_14097(C_word c,C_word *av) C_noret;
C_noret_decl(f_14110)
static void C_ccall f_14110(C_word c,C_word *av) C_noret;
C_noret_decl(f_14113)
static void C_ccall f_14113(C_word c,C_word *av) C_noret;
C_noret_decl(f_14149)
static void C_ccall f_14149(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_14214)
static void C_ccall f_14214(C_word c,C_word *av) C_noret;
C_noret_decl(f_14216)
static void f_14216(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14241)
static void C_ccall f_14241(C_word c,C_word *av) C_noret;
C_noret_decl(f_14270)
static void C_ccall f_14270(C_word c,C_word *av) C_noret;
C_noret_decl(f_14272)
static void f_14272(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14297)
static void C_ccall f_14297(C_word c,C_word *av) C_noret;
C_noret_decl(f_14331)
static void C_ccall f_14331(C_word c,C_word *av) C_noret;
C_noret_decl(f_14345)
static void f_14345(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14370)
static void C_ccall f_14370(C_word c,C_word *av) C_noret;
C_noret_decl(f_14390)
static void C_ccall f_14390(C_word c,C_word *av) C_noret;
C_noret_decl(f_14392)
static void f_14392(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14417)
static void C_ccall f_14417(C_word c,C_word *av) C_noret;
C_noret_decl(f_14470)
static void f_14470(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14475)
static void C_ccall f_14475(C_word c,C_word *av) C_noret;
C_noret_decl(f_14484)
static void C_ccall f_14484(C_word c,C_word *av) C_noret;
C_noret_decl(f_14501)
static void C_ccall f_14501(C_word c,C_word *av) C_noret;
C_noret_decl(f_14503)
static void C_ccall f_14503(C_word c,C_word *av) C_noret;
C_noret_decl(f_14518)
static void f_14518(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14526)
static void C_ccall f_14526(C_word c,C_word *av) C_noret;
C_noret_decl(f_14553)
static void f_14553(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14599)
static void C_ccall f_14599(C_word c,C_word *av) C_noret;
C_noret_decl(f_14648)
static void C_ccall f_14648(C_word c,C_word *av) C_noret;
C_noret_decl(f_14652)
static void C_ccall f_14652(C_word c,C_word *av) 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_14702)
static void C_ccall f_14702(C_word c,C_word *av) C_noret;
C_noret_decl(f_14728)
static void C_ccall f_14728(C_word c,C_word *av) C_noret;
C_noret_decl(f_14734)
static void f_14734(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_14760)
static void C_ccall f_14760(C_word c,C_word *av) C_noret;
C_noret_decl(f_14764)
static void C_ccall f_14764(C_word c,C_word *av) C_noret;
C_noret_decl(f_14791)
static void f_14791(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_14795)
static void C_ccall f_14795(C_word c,C_word *av) C_noret;
C_noret_decl(f_14798)
static void C_ccall f_14798(C_word c,C_word *av) C_noret;
C_noret_decl(f_14823)
static void C_ccall f_14823(C_word c,C_word *av) C_noret;
C_noret_decl(f_14829)
static void C_ccall f_14829(C_word c,C_word *av) C_noret;
C_noret_decl(f_14835)
static void C_ccall f_14835(C_word c,C_word *av) C_noret;
C_noret_decl(f_14850)
static void C_ccall f_14850(C_word c,C_word *av) C_noret;
C_noret_decl(f_14854)
static void C_ccall f_14854(C_word c,C_word *av) C_noret;
C_noret_decl(f_14859)
static void f_14859(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14878)
static void C_ccall f_14878(C_word c,C_word *av) C_noret;
C_noret_decl(f_14887)
static void f_14887(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_14891)
static void C_ccall f_14891(C_word c,C_word *av) C_noret;
C_noret_decl(f_14895)
static void f_14895(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14905)
static void C_ccall f_14905(C_word c,C_word *av) C_noret;
C_noret_decl(f_14909)
static void f_14909(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14925)
static void C_ccall f_14925(C_word c,C_word *av) C_noret;
C_noret_decl(f_14952)
static void C_ccall f_14952(C_word c,C_word *av) C_noret;
C_noret_decl(f_14976)
static void f_14976(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14985)
static void C_ccall f_14985(C_word c,C_word *av) C_noret;
C_noret_decl(f_14996)
static void C_ccall f_14996(C_word c,C_word *av) C_noret;
C_noret_decl(f_15010)
static void f_15010(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15028)
static void C_ccall f_15028(C_word c,C_word *av) C_noret;
C_noret_decl(f_15034)
static void C_ccall f_15034(C_word c,C_word *av) C_noret;
C_noret_decl(f_15041)
static void f_15041(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_15070)
static void C_ccall f_15070(C_word c,C_word *av) C_noret;
C_noret_decl(f_15149)
static void C_ccall f_15149(C_word c,C_word *av) C_noret;
C_noret_decl(f_15179)
static void C_ccall f_15179(C_word c,C_word *av) C_noret;
C_noret_decl(f_15182)
static void C_ccall f_15182(C_word c,C_word *av) C_noret;
C_noret_decl(f_15200)
static void C_ccall f_15200(C_word c,C_word *av) C_noret;
C_noret_decl(f_15252)
static void f_15252(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15303)
static void f_15303(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15360)
static void f_15360(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15417)
static void f_15417(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_15426)
static void f_15426(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_15436)
static void C_ccall f_15436(C_word c,C_word *av) C_noret;
C_noret_decl(f_15443)
static void f_15443(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15445)
static void f_15445(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_15524)
static void C_ccall f_15524(C_word c,C_word *av) C_noret;
C_noret_decl(f_15580)
static void f_15580(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15613)
static void C_ccall f_15613(C_word c,C_word *av) C_noret;
C_noret_decl(f_15640)
static void f_15640(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15651)
static void f_15651(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15673)
static void C_ccall f_15673(C_word c,C_word *av) C_noret;
C_noret_decl(f_15681)
static void f_15681(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15683)
static void f_15683(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15709)
static void C_ccall f_15709(C_word c,C_word *av) C_noret;
C_noret_decl(f_15768)
static C_word f_15768(C_word t0);
C_noret_decl(f_15821)
static C_word f_15821(C_word t0);
C_noret_decl(f_15841)
static C_word f_15841(C_word t0);
C_noret_decl(f_15900)
static void C_ccall f_15900(C_word c,C_word *av) C_noret;
C_noret_decl(f_15944)
static C_word f_15944(C_word t0);
C_noret_decl(f_15983)
static void C_ccall f_15983(C_word c,C_word *av) C_noret;
C_noret_decl(f_15986)
static void C_ccall f_15986(C_word c,C_word *av) C_noret;
C_noret_decl(f_15991)
static void C_ccall f_15991(C_word c,C_word *av) C_noret;
C_noret_decl(f_15995)
static void C_ccall f_15995(C_word c,C_word *av) C_noret;
C_noret_decl(f_15997)
static void f_15997(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16042)
static void C_ccall f_16042(C_word c,C_word *av) C_noret;
C_noret_decl(f_16059)
static void f_16059(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16069)
static void C_ccall f_16069(C_word c,C_word *av) C_noret;
C_noret_decl(f_16086)
static void f_16086(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16096)
static void C_ccall f_16096(C_word c,C_word *av) C_noret;
C_noret_decl(f_16116)
static void C_ccall f_16116(C_word c,C_word *av) C_noret;
C_noret_decl(f_16132)
static void f_16132(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16142)
static void C_ccall f_16142(C_word c,C_word *av) C_noret;
C_noret_decl(f_16159)
static void f_16159(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16169)
static void C_ccall f_16169(C_word c,C_word *av) C_noret;
C_noret_decl(f_16201)
static void C_ccall f_16201(C_word c,C_word *av) C_noret;
C_noret_decl(f_16243)
static void C_ccall f_16243(C_word c,C_word *av) C_noret;
C_noret_decl(f_16245)
static void f_16245(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16270)
static void f_16270(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16292)
static void f_16292(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16302)
static void C_ccall f_16302(C_word c,C_word *av) C_noret;
C_noret_decl(f_16323)
static void f_16323(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16329)
static C_word f_16329(C_word t0,C_word t1);
C_noret_decl(f_16361)
static void C_ccall f_16361(C_word c,C_word *av) C_noret;
C_noret_decl(f_16364)
static void C_ccall f_16364(C_word c,C_word *av) C_noret;
C_noret_decl(f_16366)
static void C_ccall f_16366(C_word c,C_word *av) C_noret;
C_noret_decl(f_16374)
static void C_ccall f_16374(C_word c,C_word *av) C_noret;
C_noret_decl(f_16376)
static void f_16376(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_16384)
static void f_16384(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16397)
static void f_16397(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16471)
static void f_16471(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16482)
static void C_ccall f_16482(C_word c,C_word *av) C_noret;
C_noret_decl(f_16484)
static void f_16484(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16509)
static void C_ccall f_16509(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_16555)
static void C_ccall f_16555(C_word c,C_word *av) C_noret;
C_noret_decl(f_16568)
static void f_16568(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16578)
static void f_16578(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16589)
static void C_ccall f_16589(C_word c,C_word *av) C_noret;
C_noret_decl(f_16591)
static void f_16591(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16616)
static void C_ccall f_16616(C_word c,C_word *av) C_noret;
C_noret_decl(f_16632)
static void C_ccall f_16632(C_word c,C_word *av) C_noret;
C_noret_decl(f_16635)
static void C_ccall f_16635(C_word c,C_word *av) C_noret;
C_noret_decl(f_16638)
static void C_ccall f_16638(C_word c,C_word *av) C_noret;
C_noret_decl(f_16645)
static void C_ccall f_16645(C_word c,C_word *av) C_noret;
C_noret_decl(f_16657)
static void C_ccall f_16657(C_word c,C_word *av) C_noret;
C_noret_decl(f_16661)
static void C_ccall f_16661(C_word c,C_word *av) C_noret;
C_noret_decl(f_16668)
static void f_16668(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16680)
static void f_16680(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16705)
static void C_ccall f_16705(C_word c,C_word *av) C_noret;
C_noret_decl(f_16714)
static void f_16714(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16742)
static void C_ccall f_16742(C_word c,C_word *av) C_noret;
C_noret_decl(f_16761)
static void C_ccall f_16761(C_word c,C_word *av) C_noret;
C_noret_decl(f_16770)
static void C_ccall f_16770(C_word c,C_word *av) C_noret;
C_noret_decl(f_16774)
static void C_ccall f_16774(C_word c,C_word *av) C_noret;
C_noret_decl(f_16837)
static void C_ccall f_16837(C_word c,C_word *av) C_noret;
C_noret_decl(f_16841)
static void C_ccall f_16841(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_16850)
static void C_ccall f_16850(C_word c,C_word *av) C_noret;
C_noret_decl(f_16855)
static void C_ccall f_16855(C_word c,C_word *av) C_noret;
C_noret_decl(f_16860)
static void C_ccall f_16860(C_word c,C_word *av) C_noret;
C_noret_decl(f_16869)
static void C_ccall f_16869(C_word c,C_word *av) C_noret;
C_noret_decl(f_16875)
static void C_ccall f_16875(C_word c,C_word *av) C_noret;
C_noret_decl(f_16880)
static void C_ccall f_16880(C_word c,C_word *av) C_noret;
C_noret_decl(f_16886)
static void C_ccall f_16886(C_word c,C_word *av) C_noret;
C_noret_decl(f_16890)
static void C_ccall f_16890(C_word c,C_word *av) C_noret;
C_noret_decl(f_16893)
static void C_ccall f_16893(C_word c,C_word *av) C_noret;
C_noret_decl(f_16896)
static void C_ccall f_16896(C_word c,C_word *av) C_noret;
C_noret_decl(f_16899)
static void C_ccall f_16899(C_word c,C_word *av) C_noret;
C_noret_decl(f_16908)
static void f_16908(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16915)
static void C_ccall f_16915(C_word c,C_word *av) C_noret;
C_noret_decl(f_16919)
static void C_ccall f_16919(C_word c,C_word *av) C_noret;
C_noret_decl(f_16923)
static void C_ccall f_16923(C_word c,C_word *av) C_noret;
C_noret_decl(f_16927)
static void C_ccall f_16927(C_word c,C_word *av) C_noret;
C_noret_decl(f_16934)
static void C_ccall f_16934(C_word c,C_word *av) C_noret;
C_noret_decl(f_16941)
static void C_ccall f_16941(C_word c,C_word *av) C_noret;
C_noret_decl(f_16947)
static void C_ccall f_16947(C_word c,C_word *av) C_noret;
C_noret_decl(f_16950)
static void C_ccall f_16950(C_word c,C_word *av) C_noret;
C_noret_decl(f_16953)
static void C_ccall f_16953(C_word c,C_word *av) C_noret;
C_noret_decl(f_16956)
static void C_ccall f_16956(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_16962)
static void C_ccall f_16962(C_word c,C_word *av) C_noret;
C_noret_decl(f_16965)
static void C_ccall f_16965(C_word c,C_word *av) C_noret;
C_noret_decl(f_16969)
static void C_ccall f_16969(C_word c,C_word *av) C_noret;
C_noret_decl(f_16974)
static void f_16974(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16990)
static void C_ccall f_16990(C_word c,C_word *av) C_noret;
C_noret_decl(f_17001)
static void f_17001(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17020)
static void C_ccall f_17020(C_word c,C_word *av) C_noret;
C_noret_decl(f_17034)
static void C_ccall f_17034(C_word c,C_word *av) C_noret;
C_noret_decl(f_17048)
static void C_ccall f_17048(C_word c,C_word *av) C_noret;
C_noret_decl(f_17062)
static void C_ccall f_17062(C_word c,C_word *av) C_noret;
C_noret_decl(f_17076)
static void C_ccall f_17076(C_word c,C_word *av) C_noret;
C_noret_decl(f_17106)
static void C_ccall f_17106(C_word c,C_word *av) C_noret;
C_noret_decl(f_17125)
static void C_ccall f_17125(C_word c,C_word *av) C_noret;
C_noret_decl(f_17157)
static void C_ccall f_17157(C_word c,C_word *av) C_noret;
C_noret_decl(f_17163)
static void C_ccall f_17163(C_word c,C_word *av) C_noret;
C_noret_decl(f_17165)
static void f_17165(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17175)
static void C_ccall f_17175(C_word c,C_word *av) C_noret;
C_noret_decl(f_17188)
static void C_ccall f_17188(C_word c,C_word *av) C_noret;
C_noret_decl(f_17195)
static void C_ccall f_17195(C_word c,C_word *av) C_noret;
C_noret_decl(f_17201)
static void C_ccall f_17201(C_word c,C_word *av) C_noret;
C_noret_decl(f_17204)
static void C_ccall f_17204(C_word c,C_word *av) C_noret;
C_noret_decl(f_17207)
static void C_ccall f_17207(C_word c,C_word *av) C_noret;
C_noret_decl(f_17210)
static void C_ccall f_17210(C_word c,C_word *av) C_noret;
C_noret_decl(f_17213)
static void C_ccall f_17213(C_word c,C_word *av) C_noret;
C_noret_decl(f_17222)
static void C_ccall f_17222(C_word c,C_word *av) C_noret;
C_noret_decl(f_17245)
static void f_17245(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17261)
static void f_17261(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17305)
static void C_ccall f_17305(C_word c,C_word *av) 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_17311)
static void C_ccall f_17311(C_word c,C_word *av) C_noret;
C_noret_decl(f_17317)
static void C_ccall f_17317(C_word c,C_word *av) C_noret;
C_noret_decl(f_17321)
static void C_ccall f_17321(C_word c,C_word *av) C_noret;
C_noret_decl(f_17322)
static void f_17322(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17333)
static void f_17333(C_word t0,C_word t1) C_noret;
C_noret_decl(f_17336)
static void C_ccall f_17336(C_word c,C_word *av) C_noret;
C_noret_decl(f_17342)
static void C_ccall f_17342(C_word c,C_word *av) C_noret;
C_noret_decl(f_17345)
static void C_ccall f_17345(C_word c,C_word *av) C_noret;
C_noret_decl(f_17348)
static void C_ccall f_17348(C_word c,C_word *av) C_noret;
C_noret_decl(f_17351)
static void C_ccall f_17351(C_word c,C_word *av) C_noret;
C_noret_decl(f_17354)
static void C_ccall f_17354(C_word c,C_word *av) C_noret;
C_noret_decl(f_17357)
static void C_ccall f_17357(C_word c,C_word *av) C_noret;
C_noret_decl(f_17360)
static void C_ccall f_17360(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_17371)
static void C_ccall f_17371(C_word c,C_word *av) C_noret;
C_noret_decl(f_17373)
static void f_17373(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17394)
static void C_ccall f_17394(C_word c,C_word *av) C_noret;
C_noret_decl(f_17404)
static void C_ccall f_17404(C_word c,C_word *av) C_noret;
C_noret_decl(f_17412)
static void C_ccall f_17412(C_word c,C_word *av) C_noret;
C_noret_decl(f_17420)
static void C_ccall f_17420(C_word c,C_word *av) C_noret;
C_noret_decl(f_17428)
static void C_ccall f_17428(C_word c,C_word *av) C_noret;
C_noret_decl(f_17456)
static void C_ccall f_17456(C_word c,C_word *av) C_noret;
C_noret_decl(f_17467)
static void C_ccall f_17467(C_word c,C_word *av) C_noret;
C_noret_decl(f_17471)
static void C_ccall f_17471(C_word c,C_word *av) C_noret;
C_noret_decl(f_17475)
static void C_ccall f_17475(C_word c,C_word *av) C_noret;
C_noret_decl(f_17481)
static void C_ccall f_17481(C_word c,C_word *av) C_noret;
C_noret_decl(f_17486)
static void f_17486(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17496)
static void C_ccall f_17496(C_word c,C_word *av) C_noret;
C_noret_decl(f_17511)
static void C_ccall f_17511(C_word c,C_word *av) C_noret;
C_noret_decl(f_17513)
static void C_ccall f_17513(C_word c,C_word *av) C_noret;
C_noret_decl(f_17529)
static void C_ccall f_17529(C_word c,C_word *av) C_noret;
C_noret_decl(f_17532)
static void f_17532(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17537)
static void C_ccall f_17537(C_word c,C_word *av) C_noret;
C_noret_decl(f_17544)
static void C_ccall f_17544(C_word c,C_word *av) C_noret;
C_noret_decl(f_17548)
static void C_ccall f_17548(C_word c,C_word *av) C_noret;
C_noret_decl(f_17550)
static void f_17550(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17557)
static void C_ccall f_17557(C_word c,C_word *av) C_noret;
C_noret_decl(f_17577)
static void C_ccall f_17577(C_word c,C_word *av) C_noret;
C_noret_decl(f_17583)
static void C_ccall f_17583(C_word c,C_word *av) C_noret;
C_noret_decl(f_17591)
static void C_ccall f_17591(C_word c,C_word *av) C_noret;
C_noret_decl(f_17595)
static void C_ccall f_17595(C_word c,C_word *av) C_noret;
C_noret_decl(f_17602)
static void C_ccall f_17602(C_word c,C_word *av) C_noret;
C_noret_decl(f_17608)
static void C_ccall f_17608(C_word c,C_word *av) C_noret;
C_noret_decl(f_17610)
static void f_17610(C_word t0,C_word t1,C_word t2) 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_17652)
static void C_ccall f_17652(C_word c,C_word *av) C_noret;
C_noret_decl(f_17658)
static void C_ccall f_17658(C_word c,C_word *av) C_noret;
C_noret_decl(f_17667)
static void C_ccall f_17667(C_word c,C_word *av) C_noret;
C_noret_decl(f_17706)
static void C_ccall f_17706(C_word c,C_word *av) C_noret;
C_noret_decl(f_17712)
static void f_17712(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17715)
static void f_17715(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17762)
static void C_ccall f_17762(C_word c,C_word *av) C_noret;
C_noret_decl(f_17772)
static void f_17772(C_word t0,C_word t1) C_noret;
C_noret_decl(f_17799)
static void C_ccall f_17799(C_word c,C_word *av) C_noret;
C_noret_decl(f_17803)
static void C_ccall f_17803(C_word c,C_word *av) C_noret;
C_noret_decl(f_17863)
static void C_ccall f_17863(C_word c,C_word *av) C_noret;
C_noret_decl(f_17865)
static void C_ccall f_17865(C_word c,C_word *av) C_noret;
C_noret_decl(f_17874)
static void f_17874(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17892)
static void C_ccall f_17892(C_word c,C_word *av) C_noret;
C_noret_decl(f_17896)
static void f_17896(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17902)
static C_word f_17902(C_word t0,C_word t1);
C_noret_decl(f_17930)
static void f_17930(C_word t0,C_word t1,C_word t2) 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_17993)
static void C_ccall f_17993(C_word c,C_word *av) C_noret;
C_noret_decl(f_18020)
static void C_ccall f_18020(C_word c,C_word *av) C_noret;
C_noret_decl(f_18023)
static void C_ccall f_18023(C_word c,C_word *av) C_noret;
C_noret_decl(f_18060)
static void f_18060(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_18124)
static void C_ccall f_18124(C_word c,C_word *av) C_noret;
C_noret_decl(f_18158)
static void C_ccall f_18158(C_word c,C_word *av) C_noret;
C_noret_decl(f_18190)
static void C_ccall f_18190(C_word c,C_word *av) C_noret;
C_noret_decl(f_18195)
static void C_ccall f_18195(C_word c,C_word *av) C_noret;
C_noret_decl(f_18199)
static void C_ccall f_18199(C_word c,C_word *av) C_noret;
C_noret_decl(f_18210)
static void C_ccall f_18210(C_word c,C_word *av) C_noret;
C_noret_decl(f_18212)
static void C_ccall f_18212(C_word c,C_word *av) C_noret;
C_noret_decl(f_18228)
static void C_ccall f_18228(C_word c,C_word *av) C_noret;
C_noret_decl(f_18231)
static void C_ccall f_18231(C_word c,C_word *av) C_noret;
C_noret_decl(f_18247)
static void f_18247(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18294)
static void C_ccall f_18294(C_word c,C_word *av) C_noret;
C_noret_decl(f_18296)
static void f_18296(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18321)
static void C_ccall f_18321(C_word c,C_word *av) C_noret;
C_noret_decl(f_18340)
static void f_18340(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18344)
static C_word f_18344(C_word *a,C_word t0,C_word t1);
C_noret_decl(f_18388)
static void C_ccall f_18388(C_word c,C_word *av) C_noret;
C_noret_decl(f_18394)
static void C_ccall f_18394(C_word c,C_word *av) C_noret;
C_noret_decl(f_18399)
static void f_18399(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18424)
static void C_ccall f_18424(C_word c,C_word *av) C_noret;
C_noret_decl(f_18508)
static void C_ccall f_18508(C_word c,C_word *av) C_noret;
C_noret_decl(f_18538)
static void f_18538(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18550)
static void C_ccall f_18550(C_word c,C_word *av) C_noret;
C_noret_decl(f_18577)
static void C_ccall f_18577(C_word c,C_word *av) C_noret;
C_noret_decl(f_18580)
static void C_ccall f_18580(C_word c,C_word *av) C_noret;
C_noret_decl(f_18584)
static void f_18584(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18597)
static void f_18597(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18600)
static void C_ccall f_18600(C_word c,C_word *av) 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_18632)
static void f_18632(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18636)
static void C_ccall f_18636(C_word c,C_word *av) C_noret;
C_noret_decl(f_18647)
static void C_ccall f_18647(C_word c,C_word *av) C_noret;
C_noret_decl(f_18726)
static void C_ccall f_18726(C_word c,C_word *av) C_noret;
C_noret_decl(f_18768)
static void f_18768(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_18786)
static void C_ccall f_18786(C_word c,C_word *av) C_noret;
C_noret_decl(f_18789)
static void C_ccall f_18789(C_word c,C_word *av) C_noret;
C_noret_decl(f_18793)
static void f_18793(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18836)
static void C_ccall f_18836(C_word c,C_word *av) C_noret;
C_noret_decl(f_18842)
static void C_ccall f_18842(C_word c,C_word *av) C_noret;
C_noret_decl(f_18847)
static void f_18847(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18872)
static void C_ccall f_18872(C_word c,C_word *av) C_noret;
C_noret_decl(f_18917)
static void C_ccall f_18917(C_word c,C_word *av) C_noret;
C_noret_decl(f_18926)
static void C_ccall f_18926(C_word c,C_word *av) C_noret;
C_noret_decl(f_18930)
static void f_18930(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18940)
static void C_ccall f_18940(C_word c,C_word *av) C_noret;
C_noret_decl(f_18972)
static void C_ccall f_18972(C_word c,C_word *av) C_noret;
C_noret_decl(f_18978)
static void C_ccall f_18978(C_word c,C_word *av) C_noret;
C_noret_decl(f_18980)
static void f_18980(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19005)
static void C_ccall f_19005(C_word c,C_word *av) 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_19141)
static void f_19141(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19145)
static void f_19145(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19148)
static void C_ccall f_19148(C_word c,C_word *av) C_noret;
C_noret_decl(f_19180)
static void f_19180(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19184)
static void C_ccall f_19184(C_word c,C_word *av) C_noret;
C_noret_decl(f_19197)
static void C_ccall f_19197(C_word c,C_word *av) C_noret;
C_noret_decl(f_19201)
static void C_ccall f_19201(C_word c,C_word *av) C_noret;
C_noret_decl(f_19204)
static void C_ccall f_19204(C_word c,C_word *av) C_noret;
C_noret_decl(f_19210)
static void C_ccall f_19210(C_word c,C_word *av) C_noret;
C_noret_decl(f_19212)
static void f_19212(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19237)
static void C_ccall f_19237(C_word c,C_word *av) C_noret;
C_noret_decl(f_19252)
static void C_ccall f_19252(C_word c,C_word *av) C_noret;
C_noret_decl(f_19261)
static void C_ccall f_19261(C_word c,C_word *av) C_noret;
C_noret_decl(f_19269)
static void C_ccall f_19269(C_word c,C_word *av) C_noret;
C_noret_decl(f_19271)
static void C_ccall f_19271(C_word c,C_word *av) C_noret;
C_noret_decl(f_19286)
static void C_ccall f_19286(C_word c,C_word *av) C_noret;
C_noret_decl(f_19289)
static void f_19289(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19301)
static void f_19301(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19312)
static void f_19312(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19318)
static void C_ccall f_19318(C_word c,C_word *av) C_noret;
C_noret_decl(f_19324)
static void C_ccall f_19324(C_word c,C_word *av) C_noret;
C_noret_decl(f_19340)
static void C_ccall f_19340(C_word c,C_word *av) C_noret;
C_noret_decl(f_19343)
static void C_ccall f_19343(C_word c,C_word *av) C_noret;
C_noret_decl(f_19353)
static void C_ccall f_19353(C_word c,C_word *av) C_noret;
C_noret_decl(f_19379)
static void f_19379(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19385)
static void C_ccall f_19385(C_word c,C_word *av) C_noret;
C_noret_decl(f_19391)
static void C_ccall f_19391(C_word c,C_word *av) C_noret;
C_noret_decl(f_19407)
static void C_ccall f_19407(C_word c,C_word *av) C_noret;
C_noret_decl(f_19413)
static void f_19413(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19438)
static void C_ccall f_19438(C_word c,C_word *av) C_noret;
C_noret_decl(f_19476)
static void C_ccall f_19476(C_word c,C_word *av) C_noret;
C_noret_decl(f_19478)
static void f_19478(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19503)
static void C_ccall f_19503(C_word c,C_word *av) C_noret;
C_noret_decl(f_19529)
static void C_ccall f_19529(C_word c,C_word *av) C_noret;
C_noret_decl(f_19531)
static void f_19531(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19556)
static void C_ccall f_19556(C_word c,C_word *av) C_noret;
C_noret_decl(f_19565)
static void f_19565(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19593)
static void f_19593(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_19607)
static void C_ccall f_19607(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_19645)
static void C_ccall f_19645(C_word c,C_word *av) C_noret;
C_noret_decl(f_19679)
static void f_19679(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19683)
static void C_ccall f_19683(C_word c,C_word *av) C_noret;
C_noret_decl(f_19689)
static void f_19689(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19709)
static void C_ccall f_19709(C_word c,C_word *av) C_noret;
C_noret_decl(f_19727)
static void C_ccall f_19727(C_word c,C_word *av) C_noret;
C_noret_decl(f_19729)
static void f_19729(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_19733)
static void C_ccall f_19733(C_word c,C_word *av) C_noret;
C_noret_decl(f_19796)
static void C_ccall f_19796(C_word c,C_word *av) C_noret;
C_noret_decl(f_19808)
static void C_ccall f_19808(C_word c,C_word *av) C_noret;
C_noret_decl(f_19812)
static void C_ccall f_19812(C_word c,C_word *av) C_noret;
C_noret_decl(f_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_19853)
static void C_ccall f_19853(C_word c,C_word *av) C_noret;
C_noret_decl(f_19876)
static void C_ccall f_19876(C_word c,C_word *av) C_noret;
C_noret_decl(f_19883)
static void C_ccall f_19883(C_word c,C_word *av) C_noret;
C_noret_decl(f_19886)
static void C_ccall f_19886(C_word c,C_word *av) C_noret;
C_noret_decl(f_19889)
static void C_ccall f_19889(C_word c,C_word *av) C_noret;
C_noret_decl(f_19942)
static void C_ccall f_19942(C_word c,C_word *av) C_noret;
C_noret_decl(f_19952)
static void C_ccall f_19952(C_word c,C_word *av) C_noret;
C_noret_decl(f_19979)
static void f_19979(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_19997)
static void C_ccall f_19997(C_word c,C_word *av) C_noret;
C_noret_decl(f_20074)
static void f_20074(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20076)
static void C_ccall f_20076(C_word c,C_word *av) C_noret;
C_noret_decl(f_20080)
static void C_ccall f_20080(C_word c,C_word *av) C_noret;
C_noret_decl(f_20083)
static void C_ccall f_20083(C_word c,C_word *av) C_noret;
C_noret_decl(f_20129)
static void C_ccall f_20129(C_word c,C_word *av) C_noret;
C_noret_decl(f_20132)
static void C_ccall f_20132(C_word c,C_word *av) C_noret;
C_noret_decl(f_20138)
static void f_20138(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20142)
static void f_20142(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20146)
static void C_ccall f_20146(C_word c,C_word *av) C_noret;
C_noret_decl(f_20153)
static void C_ccall f_20153(C_word c,C_word *av) 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_20169)
static void C_ccall f_20169(C_word c,C_word *av) C_noret;
C_noret_decl(f_20172)
static void C_ccall f_20172(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_20178)
static void C_ccall f_20178(C_word c,C_word *av) C_noret;
C_noret_decl(f_20181)
static void C_ccall f_20181(C_word c,C_word *av) C_noret;
C_noret_decl(f_20184)
static void C_ccall f_20184(C_word c,C_word *av) C_noret;
C_noret_decl(f_20187)
static void C_ccall f_20187(C_word c,C_word *av) C_noret;
C_noret_decl(f_20189)
static void C_ccall f_20189(C_word c,C_word *av) C_noret;
C_noret_decl(f_20198)
static void f_20198(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20208)
static void f_20208(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20230)
static void C_ccall f_20230(C_word c,C_word *av) C_noret;
C_noret_decl(f_20245)
static void C_ccall f_20245(C_word c,C_word *av) C_noret;
C_noret_decl(f_20248)
static void C_ccall f_20248(C_word c,C_word *av) C_noret;
C_noret_decl(f_20250)
static void f_20250(C_word t0,C_word t1,C_word t2,C_word t3) 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_20306)
static void C_ccall f_20306(C_word c,C_word *av) C_noret;
C_noret_decl(f_20312)
static void C_ccall f_20312(C_word c,C_word *av) C_noret;
C_noret_decl(f_20319)
static void C_ccall f_20319(C_word c,C_word *av) C_noret;
C_noret_decl(f_20343)
static void C_ccall f_20343(C_word c,C_word *av) C_noret;
C_noret_decl(f_20352)
static void C_ccall f_20352(C_word c,C_word *av) C_noret;
C_noret_decl(f_20355)
static void C_ccall f_20355(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_20363)
static void C_ccall f_20363(C_word c,C_word *av) C_noret;
C_noret_decl(f_20375)
static void f_20375(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20405)
static void C_ccall f_20405(C_word c,C_word *av) C_noret;
C_noret_decl(f_20419)
static void C_ccall f_20419(C_word c,C_word *av) C_noret;
C_noret_decl(f_20423)
static void C_ccall f_20423(C_word c,C_word *av) C_noret;
C_noret_decl(f_20427)
static void C_ccall f_20427(C_word c,C_word *av) C_noret;
C_noret_decl(f_20450)
static void C_ccall f_20450(C_word c,C_word *av) C_noret;
C_noret_decl(f_20452)
static void f_20452(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_20455)
static void f_20455(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20464)
static void f_20464(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20515)
static void C_ccall f_20515(C_word c,C_word *av) C_noret;
C_noret_decl(f_20519)
static void f_20519(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20523)
static void C_ccall f_20523(C_word c,C_word *av) C_noret;
C_noret_decl(f_20527)
static void f_20527(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20535)
static void C_ccall f_20535(C_word c,C_word *av) C_noret;
C_noret_decl(f_20537)
static void C_ccall f_20537(C_word c,C_word *av) C_noret;
C_noret_decl(f_20561)
static void f_20561(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20586)
static void C_ccall f_20586(C_word c,C_word *av) C_noret;
C_noret_decl(f_20597)
static void C_ccall f_20597(C_word c,C_word *av) C_noret;
C_noret_decl(f_20607)
static void C_ccall f_20607(C_word c,C_word *av) C_noret;
C_noret_decl(f_20609)
static void f_20609(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20634)
static void C_ccall f_20634(C_word c,C_word *av) C_noret;
C_noret_decl(f_20651)
static void C_ccall f_20651(C_word c,C_word *av) C_noret;
C_noret_decl(f_20653)
static void f_20653(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20667)
static void f_20667(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20683)
static void C_ccall f_20683(C_word c,C_word *av) C_noret;
C_noret_decl(f_20702)
static void C_ccall f_20702(C_word c,C_word *av) C_noret;
C_noret_decl(f_20708)
static void C_ccall f_20708(C_word c,C_word *av) C_noret;
C_noret_decl(f_20710)
static void f_20710(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20720)
static void C_ccall f_20720(C_word c,C_word *av) C_noret;
C_noret_decl(f_20740)
static void C_ccall f_20740(C_word c,C_word *av) C_noret;
C_noret_decl(f_20743)
static void C_ccall f_20743(C_word c,C_word *av) C_noret;
C_noret_decl(f_20754)
static void C_ccall f_20754(C_word c,C_word *av) C_noret;
C_noret_decl(f_20757)
static void C_ccall f_20757(C_word c,C_word *av) C_noret;
C_noret_decl(f_20777)
static void f_20777(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20784)
static void C_ccall f_20784(C_word c,C_word *av) C_noret;
C_noret_decl(f_20787)
static void C_ccall f_20787(C_word c,C_word *av) C_noret;
C_noret_decl(f_20810)
static void f_20810(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20822)
static void C_ccall f_20822(C_word c,C_word *av) C_noret;
C_noret_decl(f_20824)
static void f_20824(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_20864)
static void f_20864(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20871)
static void C_ccall f_20871(C_word c,C_word *av) C_noret;
C_noret_decl(f_20874)
static void C_ccall f_20874(C_word c,C_word *av) C_noret;
C_noret_decl(f_20881)
static void C_ccall f_20881(C_word c,C_word *av) C_noret;
C_noret_decl(f_20890)
static void f_20890(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20896)
static void f_20896(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20909)
static void C_ccall f_20909(C_word c,C_word *av) C_noret;
C_noret_decl(f_20925)
static void C_ccall f_20925(C_word c,C_word *av) C_noret;
C_noret_decl(f_20931)
static void C_ccall f_20931(C_word c,C_word *av) C_noret;
C_noret_decl(f_20934)
static void C_ccall f_20934(C_word c,C_word *av) C_noret;
C_noret_decl(f_20937)
static void C_ccall f_20937(C_word c,C_word *av) C_noret;
C_noret_decl(f_20940)
static void C_ccall f_20940(C_word c,C_word *av) C_noret;
C_noret_decl(f_20948)
static void C_ccall f_20948(C_word c,C_word *av) C_noret;
C_noret_decl(f_20961)
static void C_ccall f_20961(C_word c,C_word *av) C_noret;
C_noret_decl(f_20963)
static void f_20963(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20988)
static void C_ccall f_20988(C_word c,C_word *av) C_noret;
C_noret_decl(f_21004)
static void C_ccall f_21004(C_word c,C_word *av) C_noret;
C_noret_decl(f_21016)
static void f_21016(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21025)
static void C_ccall f_21025(C_word c,C_word *av) C_noret;
C_noret_decl(f_21034)
static void f_21034(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21093)
static void C_ccall f_21093(C_word c,C_word *av) C_noret;
C_noret_decl(f_21095)
static void f_21095(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21120)
static void C_ccall f_21120(C_word c,C_word *av) C_noret;
C_noret_decl(f_21145)
static void C_ccall f_21145(C_word c,C_word *av) C_noret;
C_noret_decl(f_21151)
static void C_ccall f_21151(C_word c,C_word *av) C_noret;
C_noret_decl(f_21154)
static void C_ccall f_21154(C_word c,C_word *av) C_noret;
C_noret_decl(f_21157)
static void C_ccall f_21157(C_word c,C_word *av) C_noret;
C_noret_decl(f_21188)
static void C_ccall f_21188(C_word c,C_word *av) C_noret;
C_noret_decl(f_21191)
static void f_21191(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21194)
static void C_ccall f_21194(C_word c,C_word *av) C_noret;
C_noret_decl(f_21211)
static void f_21211(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21236)
static void C_ccall f_21236(C_word c,C_word *av) C_noret;
C_noret_decl(f_21245)
static void f_21245(C_word t0,C_word t1,C_word t2) 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_21307)
static void C_ccall f_21307(C_word c,C_word *av) C_noret;
C_noret_decl(f_21314)
static void C_ccall f_21314(C_word c,C_word *av) C_noret;
C_noret_decl(f_21318)
static void C_ccall f_21318(C_word c,C_word *av) C_noret;
C_noret_decl(f_21320)
static void C_ccall f_21320(C_word c,C_word *av) C_noret;
C_noret_decl(f_21328)
static void C_ccall f_21328(C_word c,C_word *av) C_noret;
C_noret_decl(f_21330)
static void f_21330(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21334)
static void C_ccall f_21334(C_word c,C_word *av) C_noret;
C_noret_decl(f_21339)
static void f_21339(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_21365)
static void C_ccall f_21365(C_word c,C_word *av) C_noret;
C_noret_decl(f_21370)
static void f_21370(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21382)
static void f_21382(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21407)
static void C_ccall f_21407(C_word c,C_word *av) C_noret;
C_noret_decl(f_21424)
static void C_ccall f_21424(C_word c,C_word *av) C_noret;
C_noret_decl(f_21433)
static void C_ccall f_21433(C_word c,C_word *av) C_noret;
C_noret_decl(f_21435)
static void f_21435(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21443)
static void C_ccall f_21443(C_word c,C_word *av) C_noret;
C_noret_decl(f_21447)
static void C_ccall f_21447(C_word c,C_word *av) C_noret;
C_noret_decl(f_21449)
static void C_ccall f_21449(C_word c,C_word *av) C_noret;
C_noret_decl(f_21457)
static void C_ccall f_21457(C_word c,C_word *av) C_noret;
C_noret_decl(f_21459)
static void f_21459(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21463)
static void C_ccall f_21463(C_word c,C_word *av) 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_21481)
static void C_ccall f_21481(C_word c,C_word *av) C_noret;
C_noret_decl(f_21484)
static void C_ccall f_21484(C_word c,C_word *av) C_noret;
C_noret_decl(f_21489)
static void f_21489(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21502)
static void C_ccall f_21502(C_word c,C_word *av) C_noret;
C_noret_decl(f_21508)
static void C_ccall f_21508(C_word c,C_word *av) C_noret;
C_noret_decl(f_21511)
static void C_ccall f_21511(C_word c,C_word *av) C_noret;
C_noret_decl(f_21514)
static void C_ccall f_21514(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_21539)
static void f_21539(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_21553)
static void f_21553(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21557)
static void C_ccall f_21557(C_word c,C_word *av) C_noret;
C_noret_decl(f_21561)
static void C_ccall f_21561(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_21575)
static void C_ccall f_21575(C_word c,C_word *av) C_noret;
C_noret_decl(f_21581)
static void C_ccall f_21581(C_word c,C_word *av) C_noret;
C_noret_decl(f_21589)
static void C_ccall f_21589(C_word c,C_word *av) C_noret;
C_noret_decl(f_21593)
static void C_ccall f_21593(C_word c,C_word *av) C_noret;
C_noret_decl(f_21599)
static void C_ccall f_21599(C_word c,C_word *av) C_noret;
C_noret_decl(f_21602)
static void C_ccall f_21602(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_21608)
static void C_ccall f_21608(C_word c,C_word *av) C_noret;
C_noret_decl(f_21611)
static void C_ccall f_21611(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_21620)
static void C_ccall f_21620(C_word c,C_word *av) C_noret;
C_noret_decl(f_21623)
static void C_ccall f_21623(C_word c,C_word *av) C_noret;
C_noret_decl(f_21626)
static void C_ccall f_21626(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_21645)
static void C_ccall f_21645(C_word c,C_word *av) C_noret;
C_noret_decl(f_21659)
static void f_21659(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21663)
static void C_ccall f_21663(C_word c,C_word *av) C_noret;
C_noret_decl(f_21666)
static void C_ccall f_21666(C_word c,C_word *av) C_noret;
C_noret_decl(f_21679)
static void C_ccall f_21679(C_word c,C_word *av) C_noret;
C_noret_decl(f_21683)
static void C_ccall f_21683(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_21710)
static void f_21710(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21716)
static void C_ccall f_21716(C_word c,C_word *av) C_noret;
C_noret_decl(f_21722)
static void C_ccall f_21722(C_word c,C_word *av) C_noret;
C_noret_decl(f_21729)
static void C_ccall f_21729(C_word c,C_word *av) C_noret;
C_noret_decl(f_21735)
static void C_ccall f_21735(C_word c,C_word *av) C_noret;
C_noret_decl(f_21738)
static void C_ccall f_21738(C_word c,C_word *av) C_noret;
C_noret_decl(f_21741)
static void C_ccall f_21741(C_word c,C_word *av) C_noret;
C_noret_decl(f_21744)
static void C_ccall f_21744(C_word c,C_word *av) C_noret;
C_noret_decl(f_21747)
static void C_ccall f_21747(C_word c,C_word *av) C_noret;
C_noret_decl(f_21753)
static void C_ccall f_21753(C_word c,C_word *av) C_noret;
C_noret_decl(f_21759)
static void C_ccall f_21759(C_word c,C_word *av) C_noret;
C_noret_decl(f_21762)
static void C_ccall f_21762(C_word c,C_word *av) C_noret;
C_noret_decl(f_21765)
static void C_ccall f_21765(C_word c,C_word *av) C_noret;
C_noret_decl(f_21770)
static void f_21770(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21773)
static void f_21773(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21781)
static void C_ccall f_21781(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_21787)
static void f_21787(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21791)
static void C_ccall f_21791(C_word c,C_word *av) C_noret;
C_noret_decl(f_21811)
static void C_ccall f_21811(C_word c,C_word *av) C_noret;
C_noret_decl(f_21818)
static void C_ccall f_21818(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_21849)
static void C_ccall f_21849(C_word c,C_word *av) C_noret;
C_noret_decl(f_21853)
static void C_ccall f_21853(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_21869)
static void C_ccall f_21869(C_word c,C_word *av) C_noret;
C_noret_decl(f_21873)
static void C_ccall f_21873(C_word c,C_word *av) C_noret;
C_noret_decl(f_21877)
static void C_ccall f_21877(C_word c,C_word *av) C_noret;
C_noret_decl(f_21884)
static void C_ccall f_21884(C_word c,C_word *av) C_noret;
C_noret_decl(f_21900)
static void C_ccall f_21900(C_word c,C_word *av) C_noret;
C_noret_decl(f_21903)
static void f_21903(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21909)
static void C_ccall f_21909(C_word c,C_word *av) C_noret;
C_noret_decl(f_21925)
static void C_ccall f_21925(C_word c,C_word *av) C_noret;
C_noret_decl(f_21931)
static void C_ccall f_21931(C_word c,C_word *av) C_noret;
C_noret_decl(f_21938)
static void C_ccall f_21938(C_word c,C_word *av) C_noret;
C_noret_decl(f_21942)
static void C_ccall f_21942(C_word c,C_word *av) C_noret;
C_noret_decl(f_21946)
static void C_ccall f_21946(C_word c,C_word *av) C_noret;
C_noret_decl(f_21950)
static void C_ccall f_21950(C_word c,C_word *av) C_noret;
C_noret_decl(f_21953)
static void C_ccall f_21953(C_word c,C_word *av) C_noret;
C_noret_decl(f_21957)
static void C_ccall f_21957(C_word c,C_word *av) C_noret;
C_noret_decl(f_21961)
static void C_ccall f_21961(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_21970)
static void C_ccall f_21970(C_word c,C_word *av) C_noret;
C_noret_decl(f_21984)
static void f_21984(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22002)
static void C_ccall f_22002(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_22019)
static void C_ccall f_22019(C_word c,C_word *av) C_noret;
C_noret_decl(f_22023)
static void C_ccall f_22023(C_word c,C_word *av) C_noret;
C_noret_decl(f_22029)
static void C_ccall f_22029(C_word c,C_word *av) C_noret;
C_noret_decl(f_22040)
static void C_ccall f_22040(C_word c,C_word *av) C_noret;
C_noret_decl(f_22044)
static void C_ccall f_22044(C_word c,C_word *av) C_noret;
C_noret_decl(f_22048)
static void C_ccall f_22048(C_word c,C_word *av) C_noret;
C_noret_decl(f_22052)
static void C_ccall f_22052(C_word c,C_word *av) C_noret;
C_noret_decl(f_22056)
static void C_ccall f_22056(C_word c,C_word *av) C_noret;
C_noret_decl(f_22067)
static void C_ccall f_22067(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_22075)
static void C_ccall f_22075(C_word c,C_word *av) C_noret;
C_noret_decl(f_22079)
static void C_ccall f_22079(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_22090)
static void C_ccall f_22090(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_22105)
static void C_ccall f_22105(C_word c,C_word *av) C_noret;
C_noret_decl(f_22109)
static void C_ccall f_22109(C_word c,C_word *av) C_noret;
C_noret_decl(f_22125)
static void C_ccall f_22125(C_word c,C_word *av) C_noret;
C_noret_decl(f_22129)
static void C_ccall f_22129(C_word c,C_word *av) C_noret;
C_noret_decl(f_22134)
static void f_22134(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_22139)
static void C_ccall f_22139(C_word c,C_word *av) C_noret;
C_noret_decl(f_22150)
static void C_ccall f_22150(C_word c,C_word *av) C_noret;
C_noret_decl(f_22154)
static void C_ccall f_22154(C_word c,C_word *av) C_noret;
C_noret_decl(f_22158)
static void C_ccall f_22158(C_word c,C_word *av) C_noret;
C_noret_decl(f_22162)
static void C_ccall f_22162(C_word c,C_word *av) C_noret;
C_noret_decl(f_22166)
static void C_ccall f_22166(C_word c,C_word *av) C_noret;
C_noret_decl(f_22170)
static void C_ccall f_22170(C_word c,C_word *av) C_noret;
C_noret_decl(f_22174)
static void C_ccall f_22174(C_word c,C_word *av) C_noret;
C_noret_decl(f_22178)
static void C_ccall f_22178(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_22185)
static void C_ccall f_22185(C_word c,C_word *av) C_noret;
C_noret_decl(f_22187)
static void C_ccall f_22187(C_word c,C_word *av) C_noret;
C_noret_decl(f_22199)
static void C_ccall f_22199(C_word c,C_word *av) C_noret;
C_noret_decl(f_22203)
static void C_ccall f_22203(C_word c,C_word *av) C_noret;
C_noret_decl(f_22207)
static void C_ccall f_22207(C_word c,C_word *av) C_noret;
C_noret_decl(f_22211)
static void C_ccall f_22211(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_22221)
static void C_ccall f_22221(C_word c,C_word *av) C_noret;
C_noret_decl(f_22224)
static void C_ccall f_22224(C_word c,C_word *av) C_noret;
C_noret_decl(f_22227)
static void C_ccall f_22227(C_word c,C_word *av) C_noret;
C_noret_decl(f_22234)
static void C_ccall f_22234(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_22256)
static void C_ccall f_22256(C_word c,C_word *av) C_noret;
C_noret_decl(f_22259)
static void C_ccall f_22259(C_word c,C_word *av) C_noret;
C_noret_decl(f_22262)
static void C_ccall f_22262(C_word c,C_word *av) C_noret;
C_noret_decl(f_22265)
static void C_ccall f_22265(C_word c,C_word *av) C_noret;
C_noret_decl(f_22273)
static void f_22273(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_22285)
static void C_ccall f_22285(C_word c,C_word *av) C_noret;
C_noret_decl(f_22293)
static void C_ccall f_22293(C_word c,C_word *av) C_noret;
C_noret_decl(f_22297)
static void C_ccall f_22297(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_22305)
static void C_ccall f_22305(C_word c,C_word *av) C_noret;
C_noret_decl(f_22309)
static void C_ccall f_22309(C_word c,C_word *av) C_noret;
C_noret_decl(f_22315)
static void C_ccall f_22315(C_word c,C_word *av) C_noret;
C_noret_decl(f_22318)
static void C_ccall f_22318(C_word c,C_word *av) C_noret;
C_noret_decl(f_22321)
static void C_ccall f_22321(C_word c,C_word *av) C_noret;
C_noret_decl(f_22327)
static void C_ccall f_22327(C_word c,C_word *av) C_noret;
C_noret_decl(f_22333)
static void C_ccall f_22333(C_word c,C_word *av) C_noret;
C_noret_decl(f_22336)
static void C_ccall f_22336(C_word c,C_word *av) C_noret;
C_noret_decl(f_22339)
static void C_ccall f_22339(C_word c,C_word *av) C_noret;
C_noret_decl(f_22342)
static void C_ccall f_22342(C_word c,C_word *av) C_noret;
C_noret_decl(f_22345)
static void C_ccall f_22345(C_word c,C_word *av) C_noret;
C_noret_decl(f_22348)
static void C_ccall f_22348(C_word c,C_word *av) C_noret;
C_noret_decl(f_22351)
static void C_ccall f_22351(C_word c,C_word *av) 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_22364)
static void C_ccall f_22364(C_word c,C_word *av) C_noret;
C_noret_decl(f_22367)
static void C_ccall f_22367(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_22376)
static void C_ccall f_22376(C_word c,C_word *av) C_noret;
C_noret_decl(f_22382)
static void C_ccall f_22382(C_word c,C_word *av) C_noret;
C_noret_decl(f_22385)
static void C_ccall f_22385(C_word c,C_word *av) C_noret;
C_noret_decl(f_22388)
static void C_ccall f_22388(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_22405)
static void C_ccall f_22405(C_word c,C_word *av) C_noret;
C_noret_decl(f_22408)
static void f_22408(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_22420)
static void C_ccall f_22420(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_22428)
static void C_ccall f_22428(C_word c,C_word *av) C_noret;
C_noret_decl(f_22444)
static void C_ccall f_22444(C_word c,C_word *av) C_noret;
C_noret_decl(f_22450)
static void C_ccall f_22450(C_word c,C_word *av) C_noret;
C_noret_decl(f_22453)
static void C_ccall f_22453(C_word c,C_word *av) C_noret;
C_noret_decl(f_22456)
static void C_ccall f_22456(C_word c,C_word *av) C_noret;
C_noret_decl(f_22459)
static void C_ccall f_22459(C_word c,C_word *av) C_noret;
C_noret_decl(f_22467)
static void C_ccall f_22467(C_word c,C_word *av) C_noret;
C_noret_decl(f_22470)
static void f_22470(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_22482)
static void C_ccall f_22482(C_word c,C_word *av) C_noret;
C_noret_decl(f_22486)
static void C_ccall f_22486(C_word c,C_word *av) C_noret;
C_noret_decl(f_22490)
static void C_ccall f_22490(C_word c,C_word *av) C_noret;
C_noret_decl(f_22494)
static void C_ccall f_22494(C_word c,C_word *av) C_noret;
C_noret_decl(f_22507)
static void C_ccall f_22507(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_22516)
static void C_ccall f_22516(C_word c,C_word *av) C_noret;
C_noret_decl(f_22519)
static void C_ccall f_22519(C_word c,C_word *av) C_noret;
C_noret_decl(f_22522)
static void C_ccall f_22522(C_word c,C_word *av) C_noret;
C_noret_decl(f_22526)
static void C_ccall f_22526(C_word c,C_word *av) C_noret;
C_noret_decl(f_22533)
static void C_ccall f_22533(C_word c,C_word *av) C_noret;
C_noret_decl(f_22539)
static void C_ccall f_22539(C_word c,C_word *av) C_noret;
C_noret_decl(f_22542)
static void C_ccall f_22542(C_word c,C_word *av) C_noret;
C_noret_decl(f_22545)
static void C_ccall f_22545(C_word c,C_word *av) C_noret;
C_noret_decl(f_22548)
static void C_ccall f_22548(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_22554)
static void C_ccall f_22554(C_word c,C_word *av) C_noret;
C_noret_decl(f_22558)
static void C_ccall f_22558(C_word c,C_word *av) C_noret;
C_noret_decl(f_22564)
static void C_ccall f_22564(C_word c,C_word *av) C_noret;
C_noret_decl(f_22567)
static void C_ccall f_22567(C_word c,C_word *av) C_noret;
C_noret_decl(f_22570)
static void C_ccall f_22570(C_word c,C_word *av) C_noret;
C_noret_decl(f_22573)
static void C_ccall f_22573(C_word c,C_word *av) C_noret;
C_noret_decl(f_22581)
static void C_ccall f_22581(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_22590)
static void f_22590(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_22602)
static void C_ccall f_22602(C_word c,C_word *av) C_noret;
C_noret_decl(f_22606)
static void C_ccall f_22606(C_word c,C_word *av) C_noret;
C_noret_decl(f_22610)
static void C_ccall f_22610(C_word c,C_word *av) C_noret;
C_noret_decl(f_22614)
static void C_ccall f_22614(C_word c,C_word *av) C_noret;
C_noret_decl(f_22627)
static void C_ccall f_22627(C_word c,C_word *av) C_noret;
C_noret_decl(f_22633)
static void C_ccall f_22633(C_word c,C_word *av) C_noret;
C_noret_decl(f_22636)
static void C_ccall f_22636(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_22642)
static void C_ccall f_22642(C_word c,C_word *av) C_noret;
C_noret_decl(f_22646)
static void C_ccall f_22646(C_word c,C_word *av) C_noret;
C_noret_decl(f_22653)
static void C_ccall f_22653(C_word c,C_word *av) C_noret;
C_noret_decl(f_22659)
static void C_ccall f_22659(C_word c,C_word *av) C_noret;
C_noret_decl(f_22662)
static void C_ccall f_22662(C_word c,C_word *av) C_noret;
C_noret_decl(f_22665)
static void C_ccall f_22665(C_word c,C_word *av) C_noret;
C_noret_decl(f_22668)
static void C_ccall f_22668(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_22674)
static void C_ccall f_22674(C_word c,C_word *av) C_noret;
C_noret_decl(f_22678)
static void C_ccall f_22678(C_word c,C_word *av) C_noret;
C_noret_decl(f_22684)
static void C_ccall f_22684(C_word c,C_word *av) C_noret;
C_noret_decl(f_22687)
static void C_ccall f_22687(C_word c,C_word *av) C_noret;
C_noret_decl(f_22690)
static void C_ccall f_22690(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_22701)
static void C_ccall f_22701(C_word c,C_word *av) C_noret;
C_noret_decl(f_22712)
static void C_ccall f_22712(C_word c,C_word *av) C_noret;
C_noret_decl(f_22723)
static void C_ccall f_22723(C_word c,C_word *av) C_noret;
C_noret_decl(f_22727)
static void C_ccall f_22727(C_word c,C_word *av) C_noret;
C_noret_decl(f_22731)
static void C_ccall f_22731(C_word c,C_word *av) C_noret;
C_noret_decl(f_22735)
static void C_ccall f_22735(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_22746)
static void C_ccall f_22746(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_22761)
static void C_ccall f_22761(C_word c,C_word *av) C_noret;
C_noret_decl(f_22765)
static void C_ccall f_22765(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_22773)
static void C_ccall f_22773(C_word c,C_word *av) C_noret;
C_noret_decl(f_22787)
static void C_ccall f_22787(C_word c,C_word *av) C_noret;
C_noret_decl(f_22791)
static void C_ccall f_22791(C_word c,C_word *av) C_noret;
C_noret_decl(f_22795)
static void C_ccall f_22795(C_word c,C_word *av) C_noret;
C_noret_decl(f_22809)
static void C_ccall f_22809(C_word c,C_word *av) C_noret;
C_noret_decl(f_22813)
static void C_ccall f_22813(C_word c,C_word *av) C_noret;
C_noret_decl(f_22827)
static void C_ccall f_22827(C_word c,C_word *av) C_noret;
C_noret_decl(f_22831)
static void C_ccall f_22831(C_word c,C_word *av) C_noret;
C_noret_decl(f_22835)
static void C_ccall f_22835(C_word c,C_word *av) C_noret;
C_noret_decl(f_22849)
static void C_ccall f_22849(C_word c,C_word *av) C_noret;
C_noret_decl(f_22853)
static void C_ccall f_22853(C_word c,C_word *av) C_noret;
C_noret_decl(f_22861)
static void C_ccall f_22861(C_word c,C_word *av) C_noret;
C_noret_decl(f_22875)
static void C_ccall f_22875(C_word c,C_word *av) C_noret;
C_noret_decl(f_22879)
static void C_ccall f_22879(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_22887)
static void C_ccall f_22887(C_word c,C_word *av) C_noret;
C_noret_decl(f_22907)
static void C_ccall f_22907(C_word c,C_word *av) C_noret;
C_noret_decl(f_22911)
static void C_ccall f_22911(C_word c,C_word *av) C_noret;
C_noret_decl(f_22915)
static void C_ccall f_22915(C_word c,C_word *av) C_noret;
C_noret_decl(f_22919)
static void C_ccall f_22919(C_word c,C_word *av) C_noret;
C_noret_decl(f_22923)
static void C_ccall f_22923(C_word c,C_word *av) C_noret;
C_noret_decl(f_22927)
static void C_ccall f_22927(C_word c,C_word *av) C_noret;
C_noret_decl(f_22937)
static void C_ccall f_22937(C_word c,C_word *av) C_noret;
C_noret_decl(f_22939)
static void f_22939(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22964)
static void C_ccall f_22964(C_word c,C_word *av) C_noret;
C_noret_decl(f_22976)
static void C_ccall f_22976(C_word c,C_word *av) C_noret;
C_noret_decl(f_22983)
static void C_ccall f_22983(C_word c,C_word *av) C_noret;
C_noret_decl(f_22997)
static void C_ccall f_22997(C_word c,C_word *av) C_noret;
C_noret_decl(f_23001)
static void C_ccall f_23001(C_word c,C_word *av) C_noret;
C_noret_decl(f_23013)
static void C_ccall f_23013(C_word c,C_word *av) C_noret;
C_noret_decl(f_23025)
static void C_ccall f_23025(C_word c,C_word *av) 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_23047)
static void C_ccall f_23047(C_word c,C_word *av) C_noret;
C_noret_decl(f_23051)
static void C_ccall f_23051(C_word c,C_word *av) C_noret;
C_noret_decl(f_23055)
static void C_ccall f_23055(C_word c,C_word *av) C_noret;
C_noret_decl(f_23059)
static void C_ccall f_23059(C_word c,C_word *av) C_noret;
C_noret_decl(f_23063)
static void C_ccall f_23063(C_word c,C_word *av) C_noret;
C_noret_decl(f_23067)
static void C_ccall f_23067(C_word c,C_word *av) C_noret;
C_noret_decl(f_23070)
static void C_ccall f_23070(C_word c,C_word *av) C_noret;
C_noret_decl(f_23078)
static void f_23078(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_23089)
static void C_ccall f_23089(C_word c,C_word *av) C_noret;
C_noret_decl(f_23095)
static void C_ccall f_23095(C_word c,C_word *av) C_noret;
C_noret_decl(f_23098)
static void C_ccall f_23098(C_word c,C_word *av) C_noret;
C_noret_decl(f_23101)
static void C_ccall f_23101(C_word c,C_word *av) C_noret;
C_noret_decl(f_23104)
static void C_ccall f_23104(C_word c,C_word *av) C_noret;
C_noret_decl(f_23112)
static void C_ccall f_23112(C_word c,C_word *av) C_noret;
C_noret_decl(f_23116)
static void C_ccall f_23116(C_word c,C_word *av) C_noret;
C_noret_decl(f_23120)
static void C_ccall f_23120(C_word c,C_word *av) C_noret;
C_noret_decl(f_23124)
static void C_ccall f_23124(C_word c,C_word *av) C_noret;
C_noret_decl(f_23127)
static void C_ccall f_23127(C_word c,C_word *av) C_noret;
C_noret_decl(f_23133)
static void C_ccall f_23133(C_word c,C_word *av) C_noret;
C_noret_decl(f_23136)
static void C_ccall f_23136(C_word c,C_word *av) C_noret;
C_noret_decl(f_23139)
static void C_ccall f_23139(C_word c,C_word *av) C_noret;
C_noret_decl(f_23142)
static void C_ccall f_23142(C_word c,C_word *av) C_noret;
C_noret_decl(f_23145)
static void C_ccall f_23145(C_word c,C_word *av) C_noret;
C_noret_decl(f_23152)
static void C_ccall f_23152(C_word c,C_word *av) C_noret;
C_noret_decl(f_23156)
static void C_ccall f_23156(C_word c,C_word *av) C_noret;
C_noret_decl(f_23168)
static void C_ccall f_23168(C_word c,C_word *av) C_noret;
C_noret_decl(f_23172)
static void C_ccall f_23172(C_word c,C_word *av) C_noret;
C_noret_decl(f_23213)
static void C_ccall f_23213(C_word c,C_word *av) C_noret;
C_noret_decl(f_23230)
static void C_ccall f_23230(C_word c,C_word *av) C_noret;
C_noret_decl(f_23251)
static void C_ccall f_23251(C_word c,C_word *av) C_noret;
C_noret_decl(f_23253)
static void f_23253(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_23287)
static void C_ccall f_23287(C_word c,C_word *av) C_noret;
C_noret_decl(f_23308)
static void C_ccall f_23308(C_word c,C_word *av) C_noret;
C_noret_decl(f_23310)
static void f_23310(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_23344)
static void C_ccall f_23344(C_word c,C_word *av) C_noret;
C_noret_decl(f_23369)
static void C_ccall f_23369(C_word c,C_word *av) C_noret;
C_noret_decl(f_23371)
static void f_23371(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_23409)
static void C_ccall f_23409(C_word c,C_word *av) C_noret;
C_noret_decl(f_23434)
static void C_ccall f_23434(C_word c,C_word *av) C_noret;
C_noret_decl(f_23436)
static void f_23436(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_23476)
static void C_ccall f_23476(C_word c,C_word *av) C_noret;
C_noret_decl(f_23478)
static void C_ccall f_23478(C_word c,C_word *av) C_noret;
C_noret_decl(f_23486)
static void C_ccall f_23486(C_word c,C_word *av) C_noret;
C_noret_decl(f_23488)
static void C_ccall f_23488(C_word c,C_word *av) C_noret;
C_noret_decl(f_23504)
static void C_ccall f_23504(C_word c,C_word *av) C_noret;
C_noret_decl(f_23508)
static void C_ccall f_23508(C_word c,C_word *av) C_noret;
C_noret_decl(f_23517)
static void C_ccall f_23517(C_word c,C_word *av) C_noret;
C_noret_decl(f_23544)
static void C_ccall f_23544(C_word c,C_word *av) C_noret;
C_noret_decl(f_23555)
static void C_ccall f_23555(C_word c,C_word *av) C_noret;
C_noret_decl(f_23561)
static void C_ccall f_23561(C_word c,C_word *av) C_noret;
C_noret_decl(f_23565)
static void C_ccall f_23565(C_word c,C_word *av) C_noret;
C_noret_decl(f_23618)
static void C_ccall f_23618(C_word c,C_word *av) C_noret;
C_noret_decl(f_23622)
static void C_ccall f_23622(C_word c,C_word *av) C_noret;
C_noret_decl(f_23626)
static void C_ccall f_23626(C_word c,C_word *av) C_noret;
C_noret_decl(f_6805)
static void C_ccall f_6805(C_word c,C_word *av) C_noret;
C_noret_decl(f_6808)
static void C_ccall f_6808(C_word c,C_word *av) C_noret;
C_noret_decl(f_6811)
static void C_ccall f_6811(C_word c,C_word *av) C_noret;
C_noret_decl(f_6814)
static void C_ccall f_6814(C_word c,C_word *av) C_noret;
C_noret_decl(f_6817)
static void C_ccall f_6817(C_word c,C_word *av) C_noret;
C_noret_decl(f_6820)
static void C_ccall f_6820(C_word c,C_word *av) C_noret;
C_noret_decl(f_6823)
static void C_ccall f_6823(C_word c,C_word *av) C_noret;
C_noret_decl(f_6826)
static void C_ccall f_6826(C_word c,C_word *av) C_noret;
C_noret_decl(f_6829)
static void C_ccall f_6829(C_word c,C_word *av) C_noret;
C_noret_decl(f_6895)
static void f_6895(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6909)
static void C_ccall f_6909(C_word c,C_word *av) C_noret;
C_noret_decl(f_6933)
static void C_ccall f_6933(C_word c,C_word *av) C_noret;
C_noret_decl(f_6939)
static void f_6939(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6957)
static void C_ccall f_6957(C_word c,C_word *av) C_noret;
C_noret_decl(f_6997)
static void f_6997(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_7011)
static void C_ccall f_7011(C_word c,C_word *av) C_noret;
C_noret_decl(f_7030)
static void f_7030(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7045)
static void f_7045(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7053)
static void f_7053(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7061)
static void C_ccall f_7061(C_word c,C_word *av) C_noret;
C_noret_decl(f_7072)
static void C_ccall f_7072(C_word c,C_word *av) C_noret;
C_noret_decl(f_7085)
static void f_7085(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7092)
static void C_ccall f_7092(C_word c,C_word *av) C_noret;
C_noret_decl(f_7099)
static void C_ccall f_7099(C_word c,C_word *av) C_noret;
C_noret_decl(f_7103)
static void C_ccall f_7103(C_word c,C_word *av) C_noret;
C_noret_decl(f_7115)
static void C_ccall f_7115(C_word c,C_word *av) C_noret;
C_noret_decl(f_7117)
static void f_7117(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7164)
static void C_ccall f_7164(C_word c,C_word *av) C_noret;
C_noret_decl(f_7166)
static void f_7166(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7200)
static void f_7200(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7206)
static void f_7206(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7228)
static void C_ccall f_7228(C_word c,C_word *av) C_noret;
C_noret_decl(f_7234)
static void f_7234(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7240)
static void f_7240(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7250)
static void C_ccall f_7250(C_word c,C_word *av) C_noret;
C_noret_decl(f_7270)
static void f_7270(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7284)
static void C_ccall f_7284(C_word c,C_word *av) C_noret;
C_noret_decl(f_7298)
static void f_7298(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7316)
static void C_ccall f_7316(C_word c,C_word *av) C_noret;
C_noret_decl(f_7326)
static void f_7326(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7339)
static void C_ccall f_7339(C_word c,C_word *av) C_noret;
C_noret_decl(f_7353)
static void C_ccall f_7353(C_word c,C_word *av) C_noret;
C_noret_decl(f_7395)
static void f_7395(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7401)
static void f_7401(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7415)
static void C_ccall f_7415(C_word c,C_word *av) C_noret;
C_noret_decl(f_7428)
static void C_ccall f_7428(C_word c,C_word *av) C_noret;
C_noret_decl(f_7484)
static void f_7484(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7493)
static void f_7493(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7501)
static void f_7501(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7505)
static void C_ccall f_7505(C_word c,C_word *av) C_noret;
C_noret_decl(f_7509)
static C_word f_7509(C_word *a,C_word t0,C_word t1);
C_noret_decl(f_7527)
static void C_ccall f_7527(C_word c,C_word *av) C_noret;
C_noret_decl(f_7549)
static void C_ccall f_7549(C_word c,C_word *av) C_noret;
C_noret_decl(f_7566)
static void f_7566(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7665)
static void f_7665(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7756)
static void C_ccall f_7756(C_word c,C_word *av) C_noret;
C_noret_decl(f_7761)
static void C_ccall f_7761(C_word c,C_word *av) C_noret;
C_noret_decl(f_7773)
static void f_7773(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7800)
static void f_7800(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7818)
static void C_ccall f_7818(C_word c,C_word *av) C_noret;
C_noret_decl(f_7842)
static void f_7842(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7848)
static void f_7848(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7862)
static void C_ccall f_7862(C_word c,C_word *av) C_noret;
C_noret_decl(f_7866)
static void C_ccall f_7866(C_word c,C_word *av) C_noret;
C_noret_decl(f_7878)
static void C_ccall f_7878(C_word c,C_word *av) C_noret;
C_noret_decl(f_7884)
static void f_7884(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7896)
static void C_ccall f_7896(C_word c,C_word *av) C_noret;
C_noret_decl(f_7961)
static C_word f_7961(C_word t0,C_word t1);
C_noret_decl(f_8022)
static void C_ccall f_8022(C_word c,C_word *av) C_noret;
C_noret_decl(f_8025)
static void f_8025(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8034)
static void C_ccall f_8034(C_word c,C_word *av) C_noret;
C_noret_decl(f_8154)
static void C_ccall f_8154(C_word c,C_word *av) C_noret;
C_noret_decl(f_8162)
static void C_ccall f_8162(C_word c,C_word *av) C_noret;
C_noret_decl(f_8164)
static void C_ccall f_8164(C_word c,C_word *av) C_noret;
C_noret_decl(f_8207)
static void C_ccall f_8207(C_word c,C_word *av) C_noret;
C_noret_decl(f_8244)
static void f_8244(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8257)
static void C_ccall f_8257(C_word c,C_word *av) 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_8272)
static void C_ccall f_8272(C_word c,C_word *av) C_noret;
C_noret_decl(f_8333)
static void C_ccall f_8333(C_word c,C_word *av) C_noret;
C_noret_decl(f_8335)
static void f_8335(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8360)
static void C_ccall f_8360(C_word c,C_word *av) C_noret;
C_noret_decl(f_8384)
static void C_ccall f_8384(C_word c,C_word *av) C_noret;
C_noret_decl(f_8388)
static void C_ccall f_8388(C_word c,C_word *av) C_noret;
C_noret_decl(f_8424)
static void C_ccall f_8424(C_word c,C_word *av) C_noret;
C_noret_decl(f_8427)
static void C_ccall f_8427(C_word c,C_word *av) C_noret;
C_noret_decl(f_8429)
static void f_8429(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8454)
static void C_ccall f_8454(C_word c,C_word *av) C_noret;
C_noret_decl(f_8499)
static void C_ccall f_8499(C_word c,C_word *av) C_noret;
C_noret_decl(f_8503)
static void f_8503(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8513)
static void C_ccall f_8513(C_word c,C_word *av) C_noret;
C_noret_decl(f_8522)
static void C_ccall f_8522(C_word c,C_word *av) C_noret;
C_noret_decl(f_8542)
static void f_8542(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8554)
static C_word f_8554(C_word t0,C_word t1);
C_noret_decl(f_8573)
static void f_8573(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_8577)
static void C_ccall f_8577(C_word c,C_word *av) C_noret;
C_noret_decl(f_8589)
static void f_8589(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8627)
static void C_ccall f_8627(C_word c,C_word *av) C_noret;
C_noret_decl(f_8634)
static void C_ccall f_8634(C_word c,C_word *av) C_noret;
C_noret_decl(f_8636)
static void C_ccall f_8636(C_word c,C_word *av) C_noret;
C_noret_decl(f_8668)
static void C_ccall f_8668(C_word c,C_word *av) C_noret;
C_noret_decl(f_8698)
static void f_8698(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_8702)
static void C_ccall f_8702(C_word c,C_word *av) C_noret;
C_noret_decl(f_8708)
static void C_ccall f_8708(C_word c,C_word *av) C_noret;
C_noret_decl(f_8720)
static void C_ccall f_8720(C_word c,C_word *av) C_noret;
C_noret_decl(f_8722)
static void f_8722(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8750)
static void C_ccall f_8750(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_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_ccall f_8772(C_word c,C_word *av) C_noret;
C_noret_decl(f_8788)
static void f_8788(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_8798)
static void C_ccall f_8798(C_word c,C_word *av) C_noret;
C_noret_decl(f_8804)
static void C_ccall f_8804(C_word c,C_word *av) C_noret;
C_noret_decl(f_8814)
static void C_ccall f_8814(C_word c,C_word *av) C_noret;
C_noret_decl(f_8823)
static void f_8823(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8826)
static void C_ccall f_8826(C_word c,C_word *av) C_noret;
C_noret_decl(f_8833)
static void C_ccall f_8833(C_word c,C_word *av) C_noret;
C_noret_decl(f_8839)
static void C_ccall f_8839(C_word c,C_word *av) C_noret;
C_noret_decl(f_8844)
static void C_ccall f_8844(C_word c,C_word *av) C_noret;
C_noret_decl(f_8850)
static void C_ccall f_8850(C_word c,C_word *av) C_noret;
C_noret_decl(f_8854)
static void C_ccall f_8854(C_word c,C_word *av) C_noret;
C_noret_decl(f_8857)
static void C_ccall f_8857(C_word c,C_word *av) C_noret;
C_noret_decl(f_8860)
static void f_8860(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8863)
static void C_ccall f_8863(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 f_8869(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8872)
static void f_8872(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8875)
static void C_ccall f_8875(C_word c,C_word *av) C_noret;
C_noret_decl(f_8888)
static void f_8888(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8900)
static void f_8900(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8925)
static void C_ccall f_8925(C_word c,C_word *av) C_noret;
C_noret_decl(f_8935)
static void f_8935(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8944)
static void C_ccall f_8944(C_word c,C_word *av) C_noret;
C_noret_decl(f_8956)
static void C_ccall f_8956(C_word c,C_word *av) C_noret;
C_noret_decl(f_8963)
static void C_ccall f_8963(C_word c,C_word *av) C_noret;
C_noret_decl(f_8966)
static void C_ccall f_8966(C_word c,C_word *av) C_noret;
C_noret_decl(f_8969)
static void C_ccall f_8969(C_word c,C_word *av) C_noret;
C_noret_decl(f_9003)
static void f_9003(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9010)
static void C_ccall f_9010(C_word c,C_word *av) C_noret;
C_noret_decl(f_9013)
static void C_ccall f_9013(C_word c,C_word *av) C_noret;
C_noret_decl(f_9019)
static void C_ccall f_9019(C_word c,C_word *av) C_noret;
C_noret_decl(f_9048)
static void C_ccall f_9048(C_word c,C_word *av) C_noret;
C_noret_decl(f_9052)
static void C_ccall f_9052(C_word c,C_word *av) C_noret;
C_noret_decl(f_9070)
static void C_ccall f_9070(C_word c,C_word *av) C_noret;
C_noret_decl(f_9073)
static void C_ccall f_9073(C_word c,C_word *av) C_noret;
C_noret_decl(f_9076)
static void C_ccall f_9076(C_word c,C_word *av) C_noret;
C_noret_decl(f_9082)
static void C_ccall f_9082(C_word c,C_word *av) C_noret;
C_noret_decl(f_9115)
static void C_ccall f_9115(C_word c,C_word *av) C_noret;
C_noret_decl(f_9119)
static void C_ccall f_9119(C_word c,C_word *av) C_noret;
C_noret_decl(f_9158)
static void C_ccall f_9158(C_word c,C_word *av) C_noret;
C_noret_decl(f_9162)
static void f_9162(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9181)
static void f_9181(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9185)
static void f_9185(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9191)
static void f_9191(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9205)
static void C_ccall f_9205(C_word c,C_word *av) C_noret;
C_noret_decl(f_9211)
static void C_ccall f_9211(C_word c,C_word *av) C_noret;
C_noret_decl(f_9225)
static void C_ccall f_9225(C_word c,C_word *av) C_noret;
C_noret_decl(f_9256)
static void C_ccall f_9256(C_word c,C_word *av) C_noret;
C_noret_decl(f_9269)
static void C_ccall f_9269(C_word c,C_word *av) C_noret;
C_noret_decl(f_9279)
static void C_ccall f_9279(C_word c,C_word *av) C_noret;
C_noret_decl(f_9281)
static void C_ccall f_9281(C_word c,C_word *av) C_noret;
C_noret_decl(f_9310)
static void f_9310(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_9323)
static void C_ccall f_9323(C_word c,C_word *av) C_noret;
C_noret_decl(f_9339)
static void C_ccall f_9339(C_word c,C_word *av) C_noret;
C_noret_decl(f_9350)
static void C_ccall f_9350(C_word c,C_word *av) C_noret;
C_noret_decl(f_9354)
static void C_ccall f_9354(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_ccall f_9386(C_word c,C_word *av) C_noret;
C_noret_decl(f_9388)
static void f_9388(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9422)
static C_word f_9422(C_word *a,C_word t0);
C_noret_decl(f_9427)
static void f_9427(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_9433)
static void f_9433(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9438)
static void C_ccall f_9438(C_word c,C_word *av) C_noret;
C_noret_decl(f_9460)
static void f_9460(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9467)
static void C_ccall f_9467(C_word c,C_word *av) C_noret;
C_noret_decl(f_9470)
static void C_ccall f_9470(C_word c,C_word *av) C_noret;
C_noret_decl(f_9473)
static void C_ccall f_9473(C_word c,C_word *av) C_noret;
C_noret_decl(f_9479)
static void C_ccall f_9479(C_word c,C_word *av) C_noret;
C_noret_decl(f_9483)
static void f_9483(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9490)
static void C_ccall f_9490(C_word c,C_word *av) C_noret;
C_noret_decl(f_9498)
static void f_9498(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9523)
static void C_ccall f_9523(C_word c,C_word *av) C_noret;
C_noret_decl(f_9532)
static void C_ccall f_9532(C_word c,C_word *av) C_noret;
C_noret_decl(f_9538)
static void C_ccall f_9538(C_word c,C_word *av) C_noret;
C_noret_decl(f_9556)
static void f_9556(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_9560)
static void C_ccall f_9560(C_word c,C_word *av) C_noret;
C_noret_decl(f_9563)
static void C_ccall f_9563(C_word c,C_word *av) C_noret;
C_noret_decl(f_9566)
static void C_ccall f_9566(C_word c,C_word *av) C_noret;
C_noret_decl(f_9574)
static void C_ccall f_9574(C_word c,C_word *av) C_noret;
C_noret_decl(f_9602)
static void C_ccall f_9602(C_word c,C_word *av) C_noret;
C_noret_decl(f_9644)
static void C_ccall f_9644(C_word c,C_word *av) C_noret;
C_noret_decl(f_9661)
static void C_ccall f_9661(C_word c,C_word *av) C_noret;
C_noret_decl(f_9681)
static void C_ccall f_9681(C_word c,C_word *av) C_noret;
C_noret_decl(f_9698)
static void C_ccall f_9698(C_word c,C_word *av) C_noret;
C_noret_decl(f_9717)
static void C_ccall f_9717(C_word c,C_word *av) C_noret;
C_noret_decl(f_9723)
static void f_9723(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9728)
static void C_ccall f_9728(C_word c,C_word *av) C_noret;
C_noret_decl(f_9747)
static void C_ccall f_9747(C_word c,C_word *av) C_noret;
C_noret_decl(f_9750)
static void C_ccall f_9750(C_word c,C_word *av) C_noret;
C_noret_decl(f_9754)
static void C_ccall f_9754(C_word c,C_word *av) C_noret;
C_noret_decl(f_9761)
static void C_ccall f_9761(C_word c,C_word *av) C_noret;
C_noret_decl(f_9773)
static void f_9773(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9776)
static void C_ccall f_9776(C_word c,C_word *av) C_noret;
C_noret_decl(f_9808)
static void f_9808(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9837)
static void C_ccall f_9837(C_word c,C_word *av) C_noret;
C_noret_decl(f_9902)
static void f_9902(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9936)
static void f_9936(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9946)
static void C_ccall f_9946(C_word c,C_word *av) C_noret;
C_noret_decl(f_9992)
static void C_ccall f_9992(C_word c,C_word *av) C_noret;
C_noret_decl(f_9996)
static void C_ccall f_9996(C_word c,C_word *av) C_noret;
C_noret_decl(f_9998)
static void C_ccall f_9998(C_word c,C_word *av) C_noret;
C_noret_decl(C_scrutinizer_toplevel)
C_extern void C_ccall C_scrutinizer_toplevel(C_word c,C_word *av) C_noret;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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_17333)
static void C_ccall trf_17333(C_word c,C_word *av) C_noret;
static void C_ccall trf_17333(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_17333(t0,t1);}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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[2];
C_word t1=av[1];
C_word t2=av[0];
f_21095(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_21211)
static void C_ccall trf_21211(C_word c,C_word *av) C_noret;
static void C_ccall trf_21211(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_21211(t0,t1,t2);}

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_21330)
static void C_ccall trf_21330(C_word c,C_word *av) C_noret;
static void C_ccall trf_21330(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_21330(t0,t1);}

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

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

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

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

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

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

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

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

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_21710)
static void C_ccall trf_21710(C_word c,C_word *av) C_noret;
static void C_ccall trf_21710(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_21710(t0,t1);}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

/* f26120 in chicken.compiler.scrutinizer#make-list in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f26120(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f26120,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);}}

/* f26227 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f26227,c,av);}
C_trace(C_text("scrutinizer.scm:584: 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);}}

/* f26242 in map-loop5668 in k22921 in k22917 in k22913 in k22909 in k22905 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f26242(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f26242,c,av);}
a=C_alloc(3);
C_trace(C_text("scrutinizer.scm:2937: string-add-indent"));
f_20777(((C_word*)t0)[2],t1,C_a_i_list(&a,1,lf[317]));}

/* f26249 in k22917 in k22913 in k22909 in k22905 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f26249(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f26249,c,av);}
a=C_alloc(3);
C_trace(C_text("scrutinizer.scm:2937: string-add-indent"));
f_20777(((C_word*)t0)[2],t1,C_a_i_list(&a,1,lf[317]));}

/* f26497 in k20869 in map-loop5029 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f26497(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f26497,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
f_21016(t2,C_a_i_list2(&a,2,lf[124],t1));}

/* f26645 in map-loop998 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f26645(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26645,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_9388(t6,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* f26710 in map-loop1650 in k10798 */
static void C_ccall f26710(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26710,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_11243(t6,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* f26717 in k10792 in k10786 in k10750 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f26717(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26717,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_i_car(t1);
t4=C_mutate(((C_word *)t2)+17,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10800,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:681: procedure-name"));
f_15252(t5,((C_word*)t2)[17]);}

/* f26869 in k19731 in known-length-vector-index in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f26869(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f26869,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[51],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_19812,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);
C_trace(C_text("scrutinizer.scm:2124: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t6;
av2[2]=t5;
tp(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);}}}

/* f26874 in k19830 in vector-ref-result-type in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f26874(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26874,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_mutate(((C_word *)t0)+2,t2);
if(C_truep(((C_word*)t0)[2])){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19876,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2139: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}
else{
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* f26883 in k20078 */
static void C_ccall f26883(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f26883,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_20157,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);
C_trace(C_text("scrutinizer.scm:2210: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t4;
av2[2]=t3;
tp(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);}}}

/* f26890 in lp in derive-result-type in append-special-case in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f26890(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,4)))){
C_save_and_reclaim((void *)f26890,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[48]):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20230,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));
C_trace(C_text("scrutinizer.scm:2279: lp"));
t8=((C_word*)((C_word*)t0)[5])[1];
f_20208(t8,t5,t6,t7);}
else{
t5=C_i_pairp(t2);
t6=(C_truep(t5)?C_eqp(C_u_i_car(t2),lf[362]):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=(*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);
t8=C_u_i_cdr(((C_word*)t0)[3]);
t9=C_s_a_i_plus(&a,2,((C_word*)t0)[4],C_fix(1));
C_trace(C_text("scrutinizer.scm:2287: lp"));
t10=((C_word*)((C_word*)t0)[5])[1];
f_20208(t10,t7,t8,t9);}
else{
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20306,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_20312,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_20312(2,av2);}}
else{
C_trace(C_text("scrutinizer.scm:2268: match-types"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[171]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[171]+1);
av2[1]=t9;
av2[2]=t2;
av2[3]=lf[48];
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}}}}

/* f26929 in k20361 */
static void C_ccall f26929(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f26929,c,av);}
t2=((C_word*)t0)[2];
f_20375(t2,C_i_car(t1));}

/* f26934 in k23170 in a23167 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f26934(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26934,c,av);}
a=C_alloc(3);
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[48]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23213,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2263: scheme#reverse"));
t6=*((C_word*)lf[368]+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);}}}

/* f26939 in map-loop4631 in a23229 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f26939(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26939,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_23253(t6,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* f26946 in map-loop4597 in a23286 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f26946(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26946,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_23310(t6,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* f26953 in map-loop4563 in a23343 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f26953(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26953,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_23371(t6,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* f26960 in map-loop4529 in a23408 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f26960(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26960,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_23436(t6,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* f26967 in k23515 in k23506 in a23503 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f26967(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f26967,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23555,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2154: 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_8164(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);}}}

/* f28274 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f28274(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f28274,c,av);}
C_trace(C_text("scrutinizer.scm:2546: fragment"));
f_21330(((C_word*)t0)[2],C_i_car(t1));}

/* f28279 in k9071 in k9068 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in ... */
static void C_ccall f28279(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f28279,c,av);}
C_trace(C_text("scrutinizer.scm:2546: fragment"));
f_21330(((C_word*)t0)[2],C_i_car(t1));}

/* f28298 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f28298(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f28298,c,av);}
C_trace(C_text("scrutinizer.scm:2546: fragment"));
f_21330(((C_word*)t0)[2],C_i_car(t1));}

/* f28532 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f28532(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f28532,c,av);}
C_trace(C_text("scrutinizer.scm:2546: fragment"));
f_21330(((C_word*)t0)[2],C_i_car(t1));}

/* f28537 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f28537(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f28537,c,av);}
C_trace(C_text("scrutinizer.scm:2546: fragment"));
f_21330(((C_word*)t0)[2],C_i_car(t1));}

/* f28542 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f28542(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f28542,c,av);}
C_trace(C_text("scrutinizer.scm:2546: fragment"));
f_21330(((C_word*)t0)[2],C_i_car(t1));}

/* loop in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_10021(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,0,7)))){
C_save_and_reclaim_args((void *)trf_10021,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_10039,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);
C_trace(C_text("scrutinizer.scm:513: 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_10048,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_10102,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);
C_trace(C_text("scrutinizer.scm:516: walk"));
t9=((C_word*)((C_word*)t0)[2])[1];
f_9556(t9,t8,t6,((C_word*)t0)[7],((C_word*)t0)[3],t5,((C_word*)t0)[5],C_SCHEME_FALSE);}}

/* k10037 in loop in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_10039,c,av);}
C_trace(C_text("scrutinizer.scm:513: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_9556(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]);}

/* k10046 in loop in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10048(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){
C_save_and_reclaim((void *)f_10048,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10051,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_10067,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_10098,a[2]=t3,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:518: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[10];
tp(3,av2);}}

/* k10049 in k10046 in loop in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_10051(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
C_save_and_reclaim_args((void *)trf_10051,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]);
C_trace(C_text("scrutinizer.scm:523: loop"));
t7=((C_word*)((C_word*)t0)[6])[1];
f_10021(t7,((C_word*)t0)[7],t2,t3,t6);}

/* k10065 in k10046 in loop in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_10067(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_10067,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10084,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:520: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word av2[3];
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}
else{
t2=((C_word*)t0)[2];
f_10051(t2,C_SCHEME_UNDEFINED);}}

/* k10074 in k10082 in k10065 in k10046 in loop in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10076(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_10076,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];
f_10051(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_10051(t6,t5);}}

/* k10082 in k10065 in k10046 in loop in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10084(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_10084,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10076,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);
C_trace(C_text("scrutinizer.scm:521: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[68]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[68]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
av2[3]=t2;
av2[4]=lf[69];
tp(5,av2);}}

/* k10092 in k10096 in k10046 in loop in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10094(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10094,c,av);}
t2=((C_word*)t0)[2];
f_10067(t2,C_i_not(t1));}

/* k10096 in k10046 in loop in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10098(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_10098,c,av);}
a=C_alloc(3);
t2=C_eqp(t1,lf[88]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10094,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:519: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[68]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[68]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[69];
tp(5,av2);}}
else{
t3=((C_word*)t0)[2];
f_10067(t3,C_SCHEME_FALSE);}}

/* k10100 in loop in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10102(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_10102,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10104,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:516: single"));
f_8722(((C_word*)t0)[7],t1,t2);}

/* a10103 in k10100 in loop in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10104(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_10104,c,av);}
t3=C_retrieve2(lf[221],C_text("chicken.compiler.scrutinizer#r-let-value-count-invalid"));
C_trace(C_text("scrutinizer.scm:517: g1400"));
t4=C_retrieve2(lf[221],C_text("chicken.compiler.scrutinizer#r-let-value-count-invalid"));{
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_22467(7,av2);}}

/* a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10126(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
C_save_and_reclaim((void *)f_10126,c,av);}
a=C_alloc(21);
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|17,a[1]=(C_word)f_10133,a[2]=((C_word*)t0)[2],a[3]=((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_SCHEME_UNDEFINED,a[17]=((C_word*)t0)[11],tmp=(C_word)a,a+=18,tmp);
C_trace(C_text("scrutinizer.scm:529: initial-argument-types"));
t7=((C_word*)((C_word*)t0)[12])[1];
f_9460(t7,t6,((C_word*)t0)[2],t3);}

/* k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10133(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_10133,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+16,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10136,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[14])){
C_trace(C_text("scrutinizer.scm:530: scheme#append"));
t4=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[16];
av2[3]=lf[227];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
C_trace(C_text("scrutinizer.scm:530: scheme#append"));
t4=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[16];
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10136(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
C_save_and_reclaim((void *)f_10136,c,av);}
a=C_alloc(29);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_10139,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=t1,a[12]=((C_word*)t2)[11],a[13]=((C_word*)t2)[12],a[14]=((C_word*)t2)[13],a[15]=((C_word*)t2)[14],a[16]=((C_word*)t2)[15],tmp=(C_word)a,a+=17,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|6,a[1]=(C_word)f_10308,a[2]=((C_word*)t2)[16],a[3]=t3,a[4]=((C_word*)t2)[17],a[5]=t6,a[6]=t7,tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)t2)[14])){
C_trace(C_text("scrutinizer.scm:532: chicken.base#butlast"));
t9=C_fast_retrieve(lf[226]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t2)[10];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t9=t8;{
C_word *av2=av;
av2[0]=t9;
av2[1]=((C_word*)t2)[10];
f_10308(2,av2);}}}

/* k10137 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10139(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(49,c,4)))){
C_save_and_reclaim((void *)f_10139,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_10147,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_10156,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_10286,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);
C_trace(C_text("scrutinizer.scm:537: ##sys#dynamic-wind"));
t18=*((C_word*)lf[225]+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);}}

/* a10146 in k10137 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10147(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10147,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);}}

/* a10155 in k10137 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10156(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){
C_save_and_reclaim((void *)f_10156,c,av);}
a=C_alloc(53);
t2=(
C_trace("scrutinizer.scm:540: tag"),
  f_9422(C_a_i(&a,29),((C_word*)((C_word*)t0)[2])[1])
);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10163,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_10273,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[48]);
t7=t5;
f_10273(t7,C_a_i_cons(&a,2,t6,((C_word*)t0)[14]));}
else{
t6=t5;
f_10273(t6,((C_word*)t0)[14]);}}

/* k10161 in a10155 in k10137 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10163(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,5)))){
C_save_and_reclaim((void *)f_10163,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10170,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10178,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_10180,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_10180(t7,t3,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* k10168 in k10161 in a10155 in k10137 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10170(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_10170,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);}}

/* k10176 in k10161 in a10155 in k10137 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10178(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_10178,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("scrutinizer.scm:556: 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[224];
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 k10161 in a10155 in k10137 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_10180(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,4)))){
C_save_and_reclaim_args((void *)trf_10180,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_10188,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_10261,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);
C_trace(C_text("scrutinizer.scm:562: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[68]);
C_word av2[5];
av2[0]=*((C_word*)lf[68]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[5];
av2[3]=C_i_car(t3);
av2[4]=lf[69];
tp(5,av2);}}}

/* k10186 in loop in k10161 in a10155 in k10137 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void f_10188(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,0,4)))){
C_save_and_reclaim_args((void *)trf_10188,2,t0,t1);}
a=C_alloc(33);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10192,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:561: g1487"));
t3=t2;
f_10192(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_10239,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));
C_trace(C_text("scrutinizer.scm:576: loop"));
t5=((C_word*)((C_word*)t0)[3])[1];
f_10180(t5,t3,t4,C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}}

/* g1487 in k10186 in loop in k10161 in a10155 in k10137 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void f_10192(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,0,4)))){
C_save_and_reclaim_args((void *)trf_10192,3,t0,t1,t2);}
a=C_alloc(33);
t3=C_i_cdr(t2);
t4=C_eqp(t3,lf[54]);
t5=(C_truep(t4)?lf[54]:C_u_i_cdr(t2));
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10204,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));
C_trace(C_text("scrutinizer.scm:572: loop"));
t8=((C_word*)((C_word*)t0)[3])[1];
f_10180(t8,t6,t7,C_i_cdr(((C_word*)t0)[4]),C_i_cdr(((C_word*)t0)[5]));}

/* k10202 in g1487 in k10186 in loop in k10161 in a10155 in k10137 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_10204(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_10204,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);}}

/* k10237 in k10186 in loop in k10161 in a10155 in k10137 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_10239(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_10239,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);}}

/* k10259 in loop in k10161 in a10155 in k10137 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_10261(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_10261,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_10188(t4,C_i_assoc(t3,((C_word*)((C_word*)t0)[5])[1]));}
else{
t2=((C_word*)t0)[4];
f_10188(t2,C_SCHEME_FALSE);}}

/* k10271 in a10155 in k10137 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_10273(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,7)))){
C_save_and_reclaim_args((void *)trf_10273,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]);
C_trace(C_text("scrutinizer.scm:541: walk"));
t4=((C_word*)((C_word*)t0)[5])[1];
f_9556(t4,((C_word*)t0)[6],((C_word*)t0)[7],t1,t2,C_SCHEME_FALSE,t3,C_SCHEME_FALSE);}

/* a10285 in k10137 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10286(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10286,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);}}

/* k10306 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_10308,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_10317,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_10319,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_10319(t8,t4,t1,((C_word*)t0)[2]);}

/* k10315 in k10306 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10317,c,av);}
C_trace(C_text("scrutinizer.scm:531: 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-loop1418 in k10306 in k10134 in k10131 in a10125 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_10319(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_10319,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);}}}

/* k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10390(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,7)))){
C_save_and_reclaim((void *)f_10390,c,av);}
a=C_alloc(25);
t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_10393,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_10723,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);
C_trace(C_text("scrutinizer.scm:581: walk"));
t4=((C_word*)((C_word*)t0)[17])[1];
f_9556(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);}

/* k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10393(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){
C_save_and_reclaim((void *)f_10393,c,av);}
a=C_alloc(25);
t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10396,a[2]=((C_word*)t0)[2],a[3]=((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_10712,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[13])){
C_trace(C_text("scrutinizer.scm:585: type-typeenv"));
t4=lf[162];{
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_15991(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26227,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:586: type-typeenv"));
t5=lf[162];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t1;
f_15991(3,av2);}}}

/* k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10396(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){
C_save_and_reclaim((void *)f_10396,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_10402,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_10660,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_10683,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[60]);
if(C_truep(t6)){
t7=t5;
f_10683(t7,C_i_not(t6));}
else{
t7=C_i_pairp(((C_word*)t0)[14]);
t8=t5;
f_10683(t8,(C_truep(t7)?C_i_not(C_eqp(C_u_i_car(((C_word*)t0)[14]),lf[60])):C_SCHEME_TRUE));}}
else{
t5=t4;
f_10660(t5,C_SCHEME_FALSE);}}
else{
t5=t4;
f_10660(t5,C_SCHEME_FALSE);}}

/* k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10402(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){
C_save_and_reclaim((void *)f_10402,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10405,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_10534,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[54],((C_word*)t0)[5]);
if(C_truep(C_i_not(t4))){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10653,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:598: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[68]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[68]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[11];
av2[3]=((C_word*)t0)[8];
av2[4]=lf[251];
tp(5,av2);}}
else{
t5=t3;
f_10534(t5,C_SCHEME_FALSE);}}
else{
t4=t3;
f_10534(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_10534(t4,C_SCHEME_FALSE);}}

/* k10403 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10405(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_10405,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10408,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[36],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_10428,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_10428(t7,(C_truep(((C_word*)t0)[10])?((C_word*)t0)[5]:lf[54]));}
else{
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10519,a[2]=t6,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:626: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[68]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[68]+1);
av2[1]=t7;
av2[2]=((C_word*)t0)[11];
av2[3]=((C_word*)t0)[8];
av2[4]=lf[233];
tp(5,av2);}}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_10408(2,av2);}}}

/* k10406 in k10403 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10408(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_10408,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10414,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:660: 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_8164(3,av2);}}

/* k10412 in k10406 in k10403 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10414(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(58,c,1)))){
C_save_and_reclaim((void *)f_10414,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[231]);
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[232];
((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[232];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k10426 in k10403 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_10428(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_10428,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_10436,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_10436(t6,((C_word*)t0)[5],((C_word*)((C_word*)t0)[4])[1],C_SCHEME_FALSE);}

/* loop in k10426 in k10403 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_10436(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){
C_save_and_reclaim_args((void *)trf_10436,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_10470,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);
C_trace(C_text("scrutinizer.scm:653: simplify-type"));
f_13584(t9,t10);}
else{
C_trace(C_text("scrutinizer.scm:658: loop"));
t12=t1;
t13=C_u_i_cdr(t2);
t14=t3;
t1=t12;
t2=t13;
t3=t14;
goto loop;}}}

/* k10468 in loop in k10426 in k10403 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_10470(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10470,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])){
C_trace(C_text("scrutinizer.scm:657: loop"));
t4=((C_word*)((C_word*)t0)[5])[1];
f_10436(t4,((C_word*)t0)[6],t3,((C_word*)t0)[4]);}
else{
t4=C_i_cdar(((C_word*)t0)[2]);
C_trace(C_text("scrutinizer.scm:657: loop"));
t5=((C_word*)((C_word*)t0)[5])[1];
f_10436(t5,((C_word*)t0)[6],t3,C_eqp(((C_word*)t0)[7],t4));}}

/* k10517 in k10403 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10519(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10519,c,av);}
t2=C_i_not(t1);
t3=((C_word*)t0)[2];
f_10428(t3,(C_truep(t2)?((C_word*)t0)[3]:lf[54]));}

/* k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_10534(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
C_save_and_reclaim_args((void *)trf_10534,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10537,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:599: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[68]);
C_word av2[5];
av2[0]=*((C_word*)lf[68]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[250];
tp(5,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_10405(2,av2);}}}

/* k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10537(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_10537,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10540,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t1)){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
f_10540(2,av2);}}
else{
C_trace(C_text("scrutinizer.scm:600: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[68]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[68]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[7];
av2[3]=((C_word*)t2)[3];
av2[4]=lf[249];
tp(5,av2);}}}

/* k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10540(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_10540,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10549,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_10624,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:602: chicken.compiler.support#variable-visible?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[248]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[248]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[6];
tp(4,av2);}}
else{
t5=t2;
f_10549(t5,C_SCHEME_FALSE);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_10405(2,av2);}}}

/* k10547 in k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void f_10549(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_10549,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10600,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:605: chicken.compiler.support#tree-copy"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[245]);
C_word av2[3];
av2[0]=*((C_word*)lf[245]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_10405(2,av2);}}}

/* k10553 in k10598 in k10547 in k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_10555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_10555,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=C_i_cdar(((C_word*)t2)[2]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10561,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10571,a[2]=t4,a[3]=C_SCHEME_UNDEFINED,a[4]=t3,a[5]=((C_word*)t2)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:608: scheme#open-output-string"));
t6=C_fast_retrieve(lf[243]);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* k10559 in k10553 in k10598 in k10547 in k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_10561(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_10561,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10564,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:612: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[234]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[234]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[67];
av2[4]=lf[235];
tp(5,av2);}}

/* k10562 in k10559 in k10553 in k10598 in k10547 in k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_10564(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10564,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("scrutinizer.scm:613: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[234]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[234]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=lf[66];
av2[4]=((C_word*)t2)[4];
tp(5,av2);}}

/* k10569 in k10553 in k10598 in k10547 in k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_10571(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_10571,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10577,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:608: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[242];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k10575 in k10569 in k10553 in k10598 in k10547 in k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_10577(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_10577,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10580,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:608: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k10578 in k10575 in k10569 in k10553 in k10598 in k10547 in k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_10580(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_10580,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10583,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:608: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t2;
av2[2]=C_make_character(32);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k10581 in k10578 in k10575 in k10569 in k10553 in k10598 in k10547 in k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in ... */
static void C_ccall f_10583(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_10583,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10586,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:608: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k10584 in k10581 in k10578 in k10575 in k10569 in k10553 in k10598 in k10547 in k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in ... */
static void C_ccall f_10586(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_10586,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10589,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:608: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t2;
av2[2]=C_make_character(41);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k10587 in k10584 in k10581 in k10578 in k10575 in k10569 in k10553 in k10598 in k10547 in k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in ... */
static void C_ccall f_10589(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10589,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10592,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:608: scheme#get-output-string"));
t4=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k10590 in k10587 in k10584 in k10581 in k10578 in k10575 in k10569 in k10553 in k10598 in k10547 in k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in ... */
static void C_ccall f_10592(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10592,c,av);}
C_trace(C_text("scrutinizer.scm:608: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[237]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[237]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[238];
av2[3]=t1;
tp(4,av2);}}

/* k10598 in k10547 in k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_10600(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_10600,c,av);}
a=C_alloc(9);
t2=C_a_i_cons(&a,2,C_SCHEME_FALSE,t1);
t3=C_a_i_list1(&a,1,t2);
t4=C_mutate(((C_word *)t0)+2,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10555,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:606: smash-component-types!"));
f_11728(t5,((C_word*)t0)[2]);}

/* k10618 in k10622 in k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_10620(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10620,c,av);}
t2=((C_word*)t0)[2];
f_10549(t2,C_i_not(C_eqp(t1,lf[246])));}

/* k10622 in k10538 in k10535 in k10532 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_10624(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_10624,c,av);}
a=C_alloc(3);
t2=C_i_not(t1);
if(C_truep(t2)){
t3=((C_word*)t0)[2];
f_10549(t3,t2);}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10620,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:603: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[247];
tp(4,av2);}}}

/* k10651 in k10400 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10653(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10653,c,av);}
t2=((C_word*)t0)[2];
f_10534(t2,C_i_not(t1));}

/* k10658 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_10660(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_10660,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10663,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_10663(t4,t3);}
else{
t3=t2;
f_10663(t3,C_SCHEME_UNDEFINED);}}
else{
t2=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_10402(2,av2);}}}

/* k10661 in k10658 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_10663(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,14)))){
C_save_and_reclaim_args((void *)trf_10663,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_23043,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);
C_trace(C_text("scrutinizer.scm:2997: scheme#string-append"));
t5=*((C_word*)lf[77]+1);{
C_word av2[15];
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[255];
av2[3]=lf[256];
av2[4]=lf[257];
av2[5]=lf[258];
av2[6]=lf[259];
av2[7]=lf[260];
av2[8]=lf[261];
av2[9]=lf[262];
av2[10]=lf[263];
av2[11]=lf[264];
av2[12]=lf[265];
av2[13]=lf[266];
av2[14]=lf[267];
((C_proc)(void*)(*((C_word*)t5+1)))(15,av2);}}

/* k10681 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_10683(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
C_save_and_reclaim_args((void *)trf_10683,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10690,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:592: match-types"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[171]+1));
C_word av2[5];
av2[0]=*((C_word*)lf[171]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
tp(5,av2);}}
else{
t2=((C_word*)t0)[2];
f_10660(t2,C_SCHEME_FALSE);}}

/* k10688 in k10681 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10690(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10690,c,av);}
t2=((C_word*)t0)[2];
f_10660(t2,C_i_not(t1));}

/* k10710 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_10712,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10716,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:586: type-typeenv"));
t3=lf[162];{
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_15991(3,av2);}}

/* k10714 in k10710 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10716(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10716,c,av);}
C_trace(C_text("scrutinizer.scm:584: 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);}}

/* k10721 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_10723,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10725,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:581: single"));
f_8722(((C_word*)t0)[7],t1,t2);}

/* a10724 in k10721 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10725(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_10725,c,av);}
t3=C_retrieve2(lf[268],C_text("chicken.compiler.scrutinizer#r-assignment-value-count-invalid"));
C_trace(C_text("scrutinizer.scm:582: g1516"));
t4=C_retrieve2(lf[268],C_text("chicken.compiler.scrutinizer#r-assignment-value-count-invalid"));{
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_22587(7,av2);}}

/* k10750 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10752(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(36,c,4)))){
C_save_and_reclaim((void *)f_10752,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_10759,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_10788,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_8022,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("mini-srfi-1.scm:225: list-tabulate"));
f_7842(t8,t2,t9);}

/* g1609 in k10750 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_10759(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,7)))){
C_save_and_reclaim_args((void *)trf_10759,4,t0,t1,t2,t3);}
a=C_alloc(12);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10775,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10779,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);
C_trace(C_text("scrutinizer.scm:675: walk"));
t6=((C_word*)((C_word*)t0)[5])[1];
f_9556(t6,t5,t2,((C_word*)t0)[6],((C_word*)t0)[2],C_SCHEME_FALSE,((C_word*)t0)[7],C_SCHEME_FALSE);}

/* k10773 in g1609 in k10750 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10775(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_10775,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]);
C_trace(C_text("scrutinizer.scm:671: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[270]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[270]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[86];
av2[3]=t2;
av2[4]=t3;
tp(5,av2);}}

/* k10777 in g1609 in k10750 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10779(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_10779,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10781,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:674: single"));
f_8722(((C_word*)t0)[7],t1,t2);}

/* a10780 in k10777 in g1609 in k10750 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10781(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_10781,c,av);}
t3=C_retrieve2(lf[271],C_text("chicken.compiler.scrutinizer#r-proc-call-argument-value-count"));
C_trace(C_text("scrutinizer.scm:676: g1630"));
t4=C_retrieve2(lf[271],C_text("chicken.compiler.scrutinizer#r-proc-call-argument-value-count"));{
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_22180(7,av2);}}

/* k10786 in k10750 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10788(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){
C_save_and_reclaim((void *)f_10788,c,av);}
a=C_alloc(28);
t2=C_i_check_list_2(t1,lf[6]);
t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_10794,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],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_SCHEME_UNDEFINED,a[18]=((C_word*)t0)[16],a[19]=((C_word*)t0)[17],tmp=(C_word)a,a+=20,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_11281,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_11281(t7,t3,((C_word*)t0)[12],t1);}

/* k10792 in k10786 in k10750 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_10794(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10794,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=C_i_car(((C_word*)t0)[4]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26717,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t4;
av2[2]=t3;
tp(3,av2);}}

/* k10798 */
static void C_ccall f_10800(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(38,c,3)))){
C_save_and_reclaim((void *)f_10800,c,av);}
a=C_alloc(38);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_10803,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=t1,a[10]=C_SCHEME_UNDEFINED,a[11]=((C_word*)t2)[9],a[12]=((C_word*)t2)[10],a[13]=((C_word*)t2)[11],a[14]=((C_word*)t2)[12],a[15]=((C_word*)t2)[13],a[16]=((C_word*)t2)[14],a[17]=C_SCHEME_UNDEFINED,a[18]=((C_word*)t2)[15],a[19]=((C_word*)t2)[16],a[20]=((C_word*)t2)[17],a[21]=((C_word*)t2)[18],a[22]=((C_word*)t2)[19],tmp=(C_word)a,a+=23,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[25];
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11241,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|4,a[1]=(C_word)f_11243,a[2]=t6,a[3]=t11,a[4]=t7,tmp=(C_word)a,a+=5,tmp));
t13=((C_word*)t11)[1];
f_11243(t13,t9,((C_word*)t2)[4]);}

/* k10801 in k10798 */
static void C_ccall f_10803(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_10803,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+10,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10806,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[9])){
C_trace(C_text("scrutinizer.scm:685: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[9];
av2[3]=lf[277];
tp(4,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_10806(2,av2);}}}

/* k10804 in k10801 in k10798 */
static void C_ccall f_10806(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_10806,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+17,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10809,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t2)[9])){
C_trace(C_text("scrutinizer.scm:686: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[9];
av2[3]=lf[166];
tp(4,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_10809(2,av2);}}}

/* k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10809(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){
C_save_and_reclaim((void *)f_10809,c,av);}
a=C_alloc(28);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10814,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_10820,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[7],a[4]=((C_word*)t2)[8],a[5]=((C_word*)t2)[9],a[6]=((C_word*)t2)[10],a[7]=((C_word*)t2)[11],a[8]=((C_word*)t2)[3],a[9]=((C_word*)t2)[5],a[10]=((C_word*)t2)[12],a[11]=((C_word*)t2)[13],a[12]=((C_word*)t2)[14],a[13]=((C_word*)t2)[15],a[14]=((C_word*)t2)[16],a[15]=t1,a[16]=((C_word*)t2)[17],a[17]=((C_word*)t2)[18],a[18]=((C_word*)t2)[4],a[19]=((C_word*)t2)[19],a[20]=((C_word*)t2)[20],a[21]=((C_word*)t2)[21],tmp=(C_word)a,a+=22,tmp);
C_trace(C_text("scrutinizer.scm:687: ##sys#call-with-values"));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t2)[22];
av2[2]=t3;
av2[3]=t4;
C_call_with_values(4,av2);}}

/* a10813 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10814(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10814,c,av);}
C_trace(C_text("scrutinizer.scm:688: call-result"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8788(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}

/* a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10820(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(30,c,7)))){
C_save_and_reclaim((void *)f_10820,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_10823,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_10868,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[6],a[5]=t6,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:698: walk"));
t8=((C_word*)((C_word*)t0)[7])[1];
f_9556(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_11224,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);
C_trace(C_text("scrutinizer.scm:705: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word *av2=av;
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t7;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}}

/* smash in a10819 in k10807 in k10804 in k10801 in k10798 */
static void f_10823(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_10823,2,t0,t1);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10830,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_10830(t4,t3);}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10862,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:693: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word av2[4];
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[5];
av2[3]=lf[273];
tp(4,av2);}}}
else{
t3=t2;
f_10830(t3,C_SCHEME_FALSE);}}

/* k10828 in smash in a10819 in k10807 in k10804 in k10801 in k10798 */
static void f_10830(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_10830,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10833,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:695: smash-component-types!"));
f_11728(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);}}}

/* k10831 in k10828 in smash in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10833(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10833,c,av);}
C_trace(C_text("scrutinizer.scm:696: smash-component-types!"));
f_11728(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);}

/* k10856 in k10860 in smash in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10858(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10858,c,av);}
t2=((C_word*)t0)[2];
f_10830(t2,C_i_not(t1));}

/* k10860 in smash in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10862(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_10862,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10858,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:694: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[272];
tp(4,av2);}}
else{
t2=((C_word*)t0)[2];
f_10830(t2,C_SCHEME_FALSE);}}

/* k10866 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10868(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_10868,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10871,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:699: smash"));
t3=((C_word*)t0)[5];
f_10823(t3,t2);}

/* k10869 in k10866 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10871(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_10871,c,av);}
a=C_alloc(16);
t2=C_eqp(lf[54],((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_10881,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_10893,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_10893(t13,((C_word*)t0)[3],t8);}}

/* g1705 in k10869 in k10866 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void f_10881(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_10881,3,t0,t1,t2);}
t3=lf[119];
C_trace(C_text("scrutinizer.scm:704: g1722"));
t4=lf[119];{
C_word av2[4];
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)t0)[2];
f_16366(4,av2);}}

/* map-loop1699 in k10869 in k10866 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void f_10893(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_10893,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_10918,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:704: g1705"));
t4=((C_word*)t0)[4];
f_10881(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);}}}

/* k10916 in map-loop1699 in k10869 in k10866 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10918(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10918,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_10893(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void f_10935(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_10935,4,t0,t1,t2,t3);}
a=C_alloc(3);
t4=C_mutate(((C_word *)t0)+16,t3);
t5=C_mutate(((C_word *)t0)+3,t2);
t6=C_mutate(((C_word *)t0)+5,t1);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11099,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:710: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word av2[3];
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t7;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10948(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_10948,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10951,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((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_10951(2,av2);}}
else{
C_trace(C_text("scrutinizer.scm:712: chicken.base#alist-ref"));
t3=*((C_word*)lf[276]+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);}}}

/* k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10951(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_10951,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10954,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);
C_trace(C_text("scrutinizer.scm:713: resolve"));
t3=lf[119];{
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_16366(4,av2);}}

/* k10952 in k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10954(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_10954,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_10960,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_11084,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:717: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[68]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[68]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[13];
av2[3]=((C_word*)t0)[7];
av2[4]=lf[69];
tp(5,av2);}}
else{
t5=t4;
f_10960(t5,C_SCHEME_FALSE);}}
else{
t5=t4;
f_10960(t5,C_SCHEME_FALSE);}}

/* k10958 in k10952 in k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void f_10960(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){
C_save_and_reclaim_args((void *)trf_10960,2,t0,t1);}
a=C_alloc(12);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10966,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:722: resolve"));
t3=lf[119];{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[8];
f_16366(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_11016,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_11044,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[11],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:740: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[68]);
C_word av2[5];
av2[0]=*((C_word*)lf[68]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[12];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[69];
tp(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_11050,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])){
C_trace(C_text("scrutinizer.scm:750: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word av2[4];
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=lf[275];
tp(4,av2);}}
else{
t3=t2;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_11050(2,av2);}}}}}

/* k10964 in k10958 in k10952 in k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10966(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_10966,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10972,a[2]=((C_word*)t0)[2],a[3]=((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_11001,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]))){
C_trace(C_text("scrutinizer.scm:725: add-to-blist"));
t5=((C_word*)((C_word*)t0)[3])[1];
f_9427(t5,t2,((C_word*)t0)[5],t3,t1);}
else{
C_trace(C_text("scrutinizer.scm:727: refine-types"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[274]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[274]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[2];
av2[3]=t1;
tp(4,av2);}}}

/* k10970 in k10964 in k10958 in k10952 in k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10972(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_10972,c,av);}
a=C_alloc(12);
if(C_truep(((C_word*)t0)[2])){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10978,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[70],((C_word*)t0)[7]);
C_trace(C_text("scrutinizer.scm:733: refine-types"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[274]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[274]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=t3;
tp(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);}}}

/* k10976 in k10970 in k10964 in k10958 in k10952 in k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_10978(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10978,c,av);}
if(C_truep(t1)){
C_trace(C_text("scrutinizer.scm:737: add-to-blist"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_9427(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);}}}

/* k10999 in k10964 in k10958 in k10952 in k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11001(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11001,c,av);}
C_trace(C_text("scrutinizer.scm:725: add-to-blist"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_9427(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}

/* k11014 in k10958 in k10952 in k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11016(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_11016,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11022,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]=t1,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:745: add-to-blist"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_9427(t3,t2,((C_word*)t0)[5],C_i_car(((C_word*)t0)[6]),t1);}

/* k11020 in k11014 in k10958 in k10952 in k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11022(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_11022,c,av);}
a=C_alloc(3);
if(C_truep(((C_word*)t0)[5])){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11028,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:747: add-to-blist"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_9427(t3,t2,((C_word*)t0)[4],C_i_car(((C_word*)t0)[5]),((C_word*)t0)[6]);}
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);}}}

/* k11026 in k11020 in k11014 in k10958 in k10952 in k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11028(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11028,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("scrutinizer.scm:748: add-to-blist"));
t3=((C_word*)((C_word*)t2)[2])[1];
f_9427(t3,((C_word*)t2)[3],((C_word*)t2)[4],C_u_i_cdr(((C_word*)t2)[5]),((C_word*)t2)[6]);}

/* k11042 in k10958 in k10952 in k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11044(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11044,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[54];
f_11016(2,av2);}}
else{
C_trace(C_text("scrutinizer.scm:742: refine-types"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[274]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[274]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}}

/* k11048 in k10958 in k10952 in k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11050(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_11050,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11054,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:719: g1782"));
t3=t2;
f_11054(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);}}}

/* g1782 in k11048 in k10958 in k10952 in k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void f_11054(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){
C_save_and_reclaim_args((void *)trf_11054,3,t0,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11062,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:755: 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)C_fast_retrieve_proc(t4))(6,av2);}}

/* k11060 in g1782 in k11048 in k10958 in k10952 in k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11062(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11062,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);}}

/* k11082 in k10952 in k10949 in k10946 in k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11084(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11084,c,av);}
t2=C_i_not(t1);
t3=((C_word*)t0)[2];
f_10960(t3,(C_truep(t2)?C_i_not(((C_word*)t0)[3]):C_SCHEME_FALSE));}

/* k11093 in k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11095(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
C_save_and_reclaim((void *)f_11095,c,av);}
a=C_alloc(19);
t2=((C_word*)t0)[2];
t3=C_i_car(t1);
t4=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_10948,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=t3,a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],a[10]=((C_word*)t2)[9],a[11]=((C_word*)t2)[10],a[12]=((C_word*)t2)[11],a[13]=((C_word*)t2)[12],a[14]=((C_word*)t2)[13],a[15]=((C_word*)t2)[14],a[16]=((C_word*)t2)[15],a[17]=((C_word*)t2)[16],a[18]=((C_word*)t2)[17],tmp=(C_word)a,a+=19,tmp);
C_trace(C_text("scrutinizer.scm:712: blist-type"));
t5=((C_word*)((C_word*)t2)[18])[1];
f_8542(t5,t4,t3,((C_word*)t2)[10]);}

/* k11097 in g1736 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11099(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11099,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_eqp(lf[88],t1);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11095,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:711: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}
else{
t4=C_SCHEME_UNDEFINED;
t5=((C_word*)t2)[5];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k11106 in k11204 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11108(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_11108,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11111,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:762: smash"));
t3=((C_word*)t0)[5];
f_10823(t3,t2);}

/* k11109 in k11106 in k11204 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
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 t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_11111,c,av);}
a=C_alloc(16);
t2=C_eqp(lf[54],((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_11121,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_11133,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_11133(t13,((C_word*)t0)[3],t8);}}

/* g1806 in k11109 in k11106 in k11204 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void f_11121(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_11121,3,t0,t1,t2);}
t3=lf[119];
C_trace(C_text("scrutinizer.scm:765: g1823"));
t4=lf[119];{
C_word av2[4];
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)t0)[2];
f_16366(4,av2);}}

/* map-loop1800 in k11109 in k11106 in k11204 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void f_11133(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11133,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_11158,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:765: g1806"));
t4=((C_word*)t0)[4];
f_11121(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);}}}

/* k11156 in map-loop1800 in k11109 in k11106 in k11204 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11158(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11158,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_11133(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* for-each-loop1735 in k11204 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void f_11167(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_11167,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_11177,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:708: g1736"));
t7=((C_word*)t0)[3];
f_10935(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);}}}

/* k11175 in for-each-loop1735 in k11204 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11177(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11177,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11167(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11204 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11206(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_11206,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[213]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11108,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_11167,a[2]=t6,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_11167(t8,t4,((C_word*)t0)[3],t2);}

/* a11207 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11208(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_11208,c,av);}
a=C_alloc(5);
t2=C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],C_fix(1));
C_trace(C_text("scrutinizer.scm:761: procedure-argument-types"));
f_15417(t1,((C_word*)t0)[3],t2,((C_word*)t0)[4],C_SCHEME_END_OF_LIST);}

/* a11215 in k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11216(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_11216,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);}}

/* k11222 in a10819 in k10807 in k10804 in k10801 in k10798 */
static void C_ccall f_11224(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(35,c,7)))){
C_save_and_reclaim((void *)f_11224,c,av);}
a=C_alloc(35);
t2=C_eqp(lf[124],t1);
if(C_truep(t2)){
C_trace(C_text("scrutinizer.scm:706: walk"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_9556(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|18,a[1]=(C_word)f_10935,a[2]=((C_word*)t0)[10],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[11],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[14],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[15],a[12]=((C_word*)t0)[16],a[13]=((C_word*)t0)[4],a[14]=((C_word*)t0)[17],a[15]=((C_word*)t0)[6],a[16]=C_SCHEME_UNDEFINED,a[17]=((C_word*)t0)[5],a[18]=((C_word*)t0)[18],tmp=(C_word)a,a+=19,tmp);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11206,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_11208,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_11216,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:759: ##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);}}}

/* k11239 in k10798 */
static void C_ccall f_11241(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11241,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,lf[28],t1);
C_trace(C_text("scrutinizer.scm:682: type-typeenv"));
t3=lf[162];{
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_15991(3,av2);}}

/* map-loop1650 in k10798 */
static void f_11243(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11243,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)f26710,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word av2[3];
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t4;
av2[2]=t3;
tp(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-loop1603 in k10786 in k10750 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_11281(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_11281,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_11310,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);
C_trace(C_text("scrutinizer.scm:670: g1609"));
t7=((C_word*)t0)[4];
f_10759(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);}}}

/* k11308 in map-loop1603 in k10786 in k10750 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11310(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_11310,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_11281(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)));}

/* k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11339(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(36,c,10)))){
C_save_and_reclaim((void *)f_11339,c,av);}
a=C_alloc(36);
t2=C_eqp(t1,lf[54]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11345,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_22827,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);
C_trace(C_text("scrutinizer.scm:2881: scheme#string-append"));
t7=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[280];
av2[3]=lf[281];
av2[4]=lf[282];
av2[5]=lf[283];
av2[6]=lf[284];
av2[7]=lf[285];
av2[8]=lf[286];
((C_proc)(void*)(*((C_word*)t7+1)))(9,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11364,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_22849,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);
C_trace(C_text("scrutinizer.scm:2898: scheme#string-append"));
t9=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 11) {
  av2=av;
} else {
  av2=C_alloc(11);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[303];
av2[3]=lf[304];
av2[4]=lf[305];
av2[5]=lf[306];
av2[6]=lf[307];
av2[7]=lf[308];
av2[8]=lf[309];
av2[9]=lf[310];
av2[10]=lf[311];
((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_11364(2,av2);}}}}}

/* k11343 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11345(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){
C_save_and_reclaim((void *)f_11345,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);}}

/* k11362 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11364(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_11364,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11370,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_11395,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:775: compatible-types?"));
f_14791(t3,((C_word*)t0)[6],C_i_car(((C_word*)t0)[3]),C_SCHEME_END_OF_LIST);}
else{
t3=t2;
f_11370(t3,C_SCHEME_FALSE);}}

/* k11368 in k11362 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_11370(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,0,2)))){
C_save_and_reclaim_args((void *)trf_11370,2,t0,t1);}
a=C_alloc(32);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,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],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_11373(t4,t3);}
else{
t3=t2;
f_11373(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);}}}

/* k11371 in k11368 in k11362 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_11373(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,14)))){
C_save_and_reclaim_args((void *)trf_11373,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_22875,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);
C_trace(C_text("scrutinizer.scm:2918: scheme#string-append"));
t6=*((C_word*)lf[77]+1);{
C_word av2[15];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[288];
av2[3]=lf[289];
av2[4]=lf[290];
av2[5]=lf[291];
av2[6]=lf[292];
av2[7]=lf[293];
av2[8]=lf[294];
av2[9]=lf[295];
av2[10]=lf[296];
av2[11]=lf[297];
av2[12]=lf[298];
av2[13]=lf[299];
av2[14]=lf[300];
((C_proc)(void*)(*((C_word*)t6+1)))(15,av2);}}

/* k11393 in k11362 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11395(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11395,c,av);}
t2=((C_word*)t0)[2];
f_11370(t2,C_i_not(t1));}

/* k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11427(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11427,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=lf[24];
t4=C_mutate(((C_word *)t0)+12,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11430,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:782: type-typeenv"));
t6=lf[162];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=C_i_car(((C_word*)t0)[4]);
f_15991(3,av2);}}

/* k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11430(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_11430,c,av);}
a=C_alloc(16);
t2=((C_word*)t0)[2];
t3=C_i_cdr(((C_word*)t2)[2]);
t4=C_i_cdr(((C_word*)t2)[3]);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11443,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[10],a[10]=((C_word*)t2)[11],a[11]=t6,a[12]=((C_word*)t2)[12],a[13]=t1,tmp=(C_word)a,a+=14,tmp));
t8=((C_word*)t6)[1];
f_11443(t8,((C_word*)t2)[13],t3,t4);}

/* loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_11443(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,0,18)))){
C_save_and_reclaim_args((void *)trf_11443,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_22907,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);
C_trace(C_text("scrutinizer.scm:2939: scheme#string-append"));
t7=*((C_word*)lf[77]+1);{
C_word av2[19];
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[325];
av2[3]=lf[326];
av2[4]=lf[327];
av2[5]=lf[328];
av2[6]=lf[329];
av2[7]=lf[330];
av2[8]=lf[331];
av2[9]=lf[332];
av2[10]=lf[333];
av2[11]=lf[334];
av2[12]=lf[335];
av2[13]=lf[336];
av2[14]=lf[337];
av2[15]=lf[338];
av2[16]=lf[339];
av2[17]=lf[340];
av2[18]=lf[341];
((C_proc)(void*)(*((C_word*)t7+1)))(19,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_11464,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_11502,a[2]=t4,a[3]=((C_word*)t0)[13],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:787: type-typeenv"));
t6=lf[162];{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_i_car(t2);
f_15991(3,av2);}}}

/* k11462 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11464(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,5)))){
C_save_and_reclaim((void *)f_11464,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_11470,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
C_trace(C_text("scrutinizer.scm:788: match-types"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[171]+1));
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[171]+1);
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;
tp(6,av2);}}

/* k11468 in k11462 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11470(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_11470,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11473,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("scrutinizer.scm:790: mutate-node!"));
f_17532(t2,((C_word*)t0)[4],C_i_car(((C_word*)t0)[10]));}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11483,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);
C_trace(C_text("scrutinizer.scm:793: trail-restore"));
f_16323(t2,((C_word*)t0)[13],((C_word*)t0)[14]);}}

/* k11471 in k11468 in k11462 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11473(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_11473,c,av);}
C_trace(C_text("scrutinizer.scm:791: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_9556(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]);}

/* k11481 in k11468 in k11462 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11483(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11483,c,av);}
C_trace(C_text("scrutinizer.scm:794: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_11443(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_i_cdr(((C_word*)t0)[5]));}

/* k11500 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11502(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11502,c,av);}
C_trace(C_text("scrutinizer.scm:787: 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);}}

/* g1864 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_11527(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,7)))){
C_save_and_reclaim_args((void *)trf_11527,3,t0,t1,t2);}
C_trace(C_text("scrutinizer.scm:798: walk"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_9556(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],C_SCHEME_FALSE);}

/* k11535 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11537(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_11537,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[54];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* for-each-loop1863 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_11539(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_11539,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_11549,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:798: g1864"));
t4=((C_word*)t0)[3];
f_11527(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);}}}

/* k11547 in for-each-loop1863 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11549(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11549,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11539(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k11608 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11610(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_11610,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11613,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_11651,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:806: chicken.compiler.support#with-debugging-output"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[358]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[358]+1);
av2[1]=t2;
av2[2]=lf[359];
av2[3]=t3;
tp(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_11613(2,av2);}}}

/* k11611 in k11608 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11613(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_11613,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11616,a[2]=((C_word*)t0)[2],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))){
C_trace(C_text("scrutinizer.scm:815: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[237]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[237]+1);
av2[1]=t2;
av2[2]=lf[351];
av2[3]=lf[352];
av2[4]=((C_word*)((C_word*)t0)[7])[1];
tp(5,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_11616(2,av2);}}}

/* k11614 in k11611 in k11608 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11616(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_11616,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11619,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))){
C_trace(C_text("scrutinizer.scm:817: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[237]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[237]+1);
av2[1]=t2;
av2[2]=lf[349];
av2[3]=lf[350];
av2[4]=((C_word*)((C_word*)t0)[6])[1];
tp(5,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_11619(2,av2);}}}

/* k11617 in k11614 in k11611 in k11608 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11619(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_11619,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11622,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))){
C_trace(C_text("scrutinizer.scm:819: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[237]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[237]+1);
av2[1]=t2;
av2[2]=lf[347];
av2[3]=lf[348];
av2[4]=((C_word*)((C_word*)t0)[5])[1];
tp(5,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_11622(2,av2);}}}

/* k11620 in k11617 in k11614 in k11611 in k11608 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11622(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_11622,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11628,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])){
C_trace(C_text("scrutinizer.scm:822: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[313]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[313]+1);
av2[1]=t2;
av2[2]=lf[346];
tp(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);}}}

/* k11626 in k11620 in k11617 in k11614 in k11611 in k11608 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11628(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11628,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);}}

/* a11650 in k11608 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11651(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11651,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11655,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:809: chicken.base#print"));
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[357];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11653 in a11650 in k11608 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11655(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_11655,c,av);}
a=C_alloc(5);
t2=lf[23];
t3=C_i_check_list_2(lf[23],lf[213]);
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_11689,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_11689(t7,((C_word*)t0)[2],lf[23]);}

/* k11661 in for-each-loop1889 in k11653 in a11650 in k11608 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11663(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_11663,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11666,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:812: ##sys#print"));
t3=*((C_word*)lf[241]+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);}}

/* k11664 in k11661 in for-each-loop1889 in k11653 in a11650 in k11608 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11666(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_11666,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11669,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:812: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t3;
av2[2]=C_make_character(32);
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}

/* k11667 in k11664 in k11661 in for-each-loop1889 in k11653 in a11650 in k11608 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11669(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11669,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11672,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:812: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_car(((C_word*)t2)[4]);
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k11670 in k11667 in k11664 in k11661 in for-each-loop1889 in k11653 in a11650 in k11608 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11672(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11672,c,av);}
C_trace(C_text("scrutinizer.scm:812: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(10);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* for-each-loop1889 in k11653 in a11650 in k11608 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_11689(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_11689,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_11699,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[353]+1);
t6=*((C_word*)lf[353]+1);
t7=C_i_check_port_2(*((C_word*)lf[353]+1),C_fix(2),C_SCHEME_TRUE,lf[354]);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11663,a[2]=t3,a[3]=t5,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:812: ##sys#print"));
t9=*((C_word*)lf[241]+1);{
C_word av2[5];
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[355];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[353]+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);}}}

/* k11697 in for-each-loop1889 in k11653 in a11650 in k11608 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11699(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11699,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11689(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k11724 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11726(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,7)))){
C_save_and_reclaim((void *)f_11726,c,av);}
a=C_alloc(32);
t2=C_i_car(t1);
t3=(
C_trace("scrutinizer.scm:804: tag"),
  f_9422(C_a_i(&a,29),((C_word*)((C_word*)t0)[2])[1])
);
t4=C_a_i_list1(&a,1,t3);
C_trace(C_text("scrutinizer.scm:804: walk"));
t5=((C_word*)((C_word*)t0)[3])[1];
f_9556(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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_11728(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_11728,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_11734,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_11734(t6,t1,t2);}

/* doloop1942 in chicken.compiler.scrutinizer#smash-component-types! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_11734(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,4)))){
C_save_and_reclaim_args((void *)trf_11734,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_11744,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_11756,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_11764,a[2]=t8,tmp=(C_word)a,a+=3,tmp));
t10=((C_word*)t8)[1];
f_11764(t10,t3,t4,t6);}}

/* k11742 in doloop1942 in chicken.compiler.scrutinizer#smash-component-types! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11744(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11744,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11734(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* a11754 in doloop1942 in chicken.compiler.scrutinizer#smash-component-types! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11756(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11756,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 doloop1942 in chicken.compiler.scrutinizer#smash-component-types! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_11764(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){
C_save_and_reclaim_args((void *)trf_11764,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[360]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11784,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:840: change!"));
t7=t3;{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[51];
((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}
else{
t6=C_eqp(t4,lf[51]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11797,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_11809,a[2]=t2,a[3]=t3,a[4]=t7,a[5]=t10,a[6]=t11,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:845: chicken.base#constantly"));
t13=C_fast_retrieve(lf[361]);{
C_word av2[3];
av2[0]=t13;
av2[1]=t12;
av2[2]=lf[54];
((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}
else{
t7=C_eqp(t4,lf[362]);
t8=(C_truep(t7)?t7:C_eqp(t4,lf[48]));
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11865,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:849: change!"));
t10=t3;{
C_word av2[3];
av2[0]=t10;
av2[1]=t9;
av2[2]=lf[363];
((C_proc)C_fast_retrieve_proc(t10))(3,av2);}}
else{
t9=C_eqp(t4,lf[49]);
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11878,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:853: change!"));
t11=t3;{
C_word av2[3];
av2[0]=t11;
av2[1]=t10;
av2[2]=C_u_i_car(t2);
((C_proc)C_fast_retrieve_proc(t11))(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_11899,a[2]=t12,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:856: 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);}}}

/* k11782 in loop in doloop1942 in chicken.compiler.scrutinizer#smash-component-types! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11784(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11784,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);}}

/* k11795 in loop in doloop1942 in chicken.compiler.scrutinizer#smash-component-types! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11797(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11797,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);}}

/* k11807 in loop in doloop1942 in chicken.compiler.scrutinizer#smash-component-types! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11809(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_11809,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_11816,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_11818,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_11818(t8,t4,t2);}

/* k11814 in k11807 in loop in doloop1942 in chicken.compiler.scrutinizer#smash-component-types! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11816(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11816,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,lf[51],t1);
C_trace(C_text("scrutinizer.scm:845: 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)C_fast_retrieve_proc(t3))(3,av2);}}

/* map-loop1960 in k11807 in loop in doloop1942 in chicken.compiler.scrutinizer#smash-component-types! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_11818(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11818,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_11843,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:845: g1966"));
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);}}}

/* k11841 in map-loop1960 in k11807 in loop in doloop1942 in chicken.compiler.scrutinizer#smash-component-types! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11843(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11843,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_11818(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11863 in loop in doloop1942 in chicken.compiler.scrutinizer#smash-component-types! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11865(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11865,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);}}

/* k11876 in loop in doloop1942 in chicken.compiler.scrutinizer#smash-component-types! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11878(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11878,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);}}

/* a11895 in loop in doloop1942 in chicken.compiler.scrutinizer#smash-component-types! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11899(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11899,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11924(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +15,c,2)))){
C_save_and_reclaim((void*)f_11924,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_11928,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);
C_trace(C_text("scrutinizer.scm:874: type-typeenv"));
t7=lf[162];{
C_word *av2=av;
av2[0]=t7;
av2[1]=t5;
av2[2]=t6;
f_15991(3,av2);}}
else{
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_i_car(t4);
f_11928(2,av2);}}}

/* k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_11928(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(42,c,4)))){
C_save_and_reclaim((void *)f_11928,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_11939,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_12070,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_12133,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_12201,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_12223,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_12259,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));
C_trace(C_text("scrutinizer.scm:1109: match1"));
t28=((C_word*)t21)[1];
f_12259(t28,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}

/* match-args in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_11939(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,6)))){
C_save_and_reclaim_args((void *)trf_11939,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_11948,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_11948(t7,t1,t2,t3,C_SCHEME_FALSE,C_SCHEME_FALSE);}

/* loop in match-args in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_11948(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){
C_save_and_reclaim_args((void *)trf_11948,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[364]));
((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[364]));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_i_car(t2);
t7=C_eqp(lf[365],t6);
if(C_truep(t7)){
C_trace(C_text("scrutinizer.scm:887: 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[365],t8);
if(C_truep(t9)){
C_trace(C_text("scrutinizer.scm:889: 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[366],C_u_i_car(t2));
if(C_truep(t10)){
t11=(
C_trace("scrutinizer.scm:891: rest-type"),
  f_15821(C_u_i_cdr(t2))
);
C_trace(C_text("scrutinizer.scm:891: match-rest"));
t12=((C_word*)((C_word*)t0)[3])[1];
f_12070(t12,t1,t11,t3);}
else{
t11=C_eqp(lf[366],C_u_i_car(t3));
if(C_truep(t11)){
t12=(
C_trace("scrutinizer.scm:893: rest-type"),
  f_15821(C_u_i_cdr(t3))
);
C_trace(C_text("scrutinizer.scm:893: match-rest"));
t13=((C_word*)((C_word*)t0)[3])[1];
f_12070(t13,t1,t12,t2);}
else{
t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12045,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);
C_trace(C_text("scrutinizer.scm:894: match1"));
t13=((C_word*)((C_word*)t0)[4])[1];
f_12259(t13,t12,C_u_i_car(t2),C_u_i_car(t3));}}}}}}}

/* k12043 in loop in match-args in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12045(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_12045,c,av);}
if(C_truep(t1)){
C_trace(C_text("scrutinizer.scm:895: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_11948(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 k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_12070(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_12070,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12076,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12092,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:899: ##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);}}

/* a12075 in match-rest in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12076(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12076,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_6895,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_6895(t5,t1,((C_word*)t0)[2],C_SCHEME_END_OF_LIST);}

/* a12091 in match-rest in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12092(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_12092,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12099,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|2,a[1]=(C_word)f_12116,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:900: every"));
f_7200(t4,t5,t2);}

/* k12097 in a12091 in match-rest in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12099(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12099,c,av);}
if(C_truep(t1)){
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t2=(
C_trace("scrutinizer.scm:905: rest-type"),
  f_15821(C_u_i_cdr(((C_word*)t0)[2]))
);
C_trace(C_text("scrutinizer.scm:905: match1"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_12259(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}
else{
C_trace(C_text("scrutinizer.scm:905: match1"));
t2=((C_word*)((C_word*)t0)[3])[1];
f_12259(t2,((C_word*)t0)[4],((C_word*)t0)[5],lf[54]);}}
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);}}}

/* a12115 in a12091 in match-rest in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12116(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12116,c,av);}
t3=((C_word*)t0)[2];
t4=C_eqp(lf[365],t2);
if(C_truep(t4)){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
C_trace(C_text("scrutinizer.scm:903: match1"));
t5=((C_word*)((C_word*)t3)[2])[1];
f_12259(t5,t1,((C_word*)t3)[3],t2);}}

/* match-results in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_12133(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_12133,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_eqp(lf[54],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[54],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[36]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[71]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))?C_u_i_memq(C_i_car(t3),lf[369]):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_12176,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:917: match1"));
t9=((C_word*)((C_word*)t0)[4])[1];
f_12259(t9,t8,C_u_i_car(t2),C_i_car(t3));}}}}}}

/* k12174 in match-results in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12176(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12176,c,av);}
if(C_truep(t1)){
C_trace(C_text("scrutinizer.scm:918: match-results"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_12133(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 k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_12201(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){
C_save_and_reclaim_args((void *)trf_12201,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_12207,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_12212,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_12218,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t7,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:922: ##sys#dynamic-wind"));
t11=*((C_word*)lf[225]+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);}}

/* a12206 in rawmatch1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12207(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12207,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);}}

/* a12211 in rawmatch1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12212(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12212,c,av);}
C_trace(C_text("scrutinizer.scm:923: match1"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_12259(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* a12217 in rawmatch1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12218(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12218,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 k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_12223(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
C_save_and_reclaim_args((void *)trf_12223,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_12229,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_12229(t7,t1,t2,t3);}

/* loop in every-match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_12229(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_12229,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_12242,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:928: match1"));
t6=((C_word*)((C_word*)t0)[3])[1];
f_12259(t6,t5,C_i_car(t2),C_i_car(t3));}}

/* k12240 in loop in every-match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12242(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12242,c,av);}
if(C_truep(t1)){
C_trace(C_text("scrutinizer.scm:928: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_12229(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 k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_12259(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
C_save_and_reclaim_args((void *)trf_12259,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_12276,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);
C_trace(C_text("scrutinizer.scm:934: g2147"));
t8=t7;
f_12276(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_12408,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);
C_trace(C_text("scrutinizer.scm:934: g2180"));
t10=t9;
f_12408(t10,t1,t8);}
else{
t9=C_eqp(t2,lf[54]);
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[54]);
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[36]);
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[36]);
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[71]);
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[71]);
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_12521,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))){
C_trace(C_text("scrutinizer.scm:1275: chicken.base#alist-ref"));
t16=*((C_word*)lf[276]+1);{
C_word av2[5];
av2[0]=t16;
av2[1]=t15;
av2[2]=t2;
av2[3]=lf[374];
av2[4]=*((C_word*)lf[375]+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_12521(2,av2);}}}}}}}}}}}}

/* g2147 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_12276(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_12276,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_12289,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);
C_trace(C_text("scrutinizer.scm:939: match1"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_12259(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_12317,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);
C_trace(C_text("scrutinizer.scm:938: g2161"));
t6=t5;
f_12317(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_12367,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_12367(2,av2);}}
else{
C_trace(C_text("scrutinizer.scm:953: rawmatch1"));
t8=((C_word*)((C_word*)t0)[2])[1];
f_12201(t8,t7,C_i_caddr(t2),((C_word*)t0)[3]);}}}}

/* k12287 in g2147 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12289(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12289,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{
C_trace(C_text("scrutinizer.scm:941: rawmatch1"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_12201(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);}}}

/* g2161 in g2147 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_12317(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_12317,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_12330,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);
C_trace(C_text("scrutinizer.scm:949: match1"));
t6=((C_word*)((C_word*)t0)[4])[1];
f_12259(t6,t5,((C_word*)t0)[3],C_i_cadr(t2));}}

/* k12328 in g2161 in g2147 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12330(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12330,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{
C_trace(C_text("scrutinizer.scm:951: rawmatch1"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_12201(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);}}}

/* k12365 in g2147 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12367(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_12367,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);}}}

/* g2180 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_12408(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_12408,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_12421,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);
C_trace(C_text("scrutinizer.scm:962: match1"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_12259(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_12451,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_12451(2,av2);}}
else{
C_trace(C_text("scrutinizer.scm:966: rawmatch1"));
t6=((C_word*)((C_word*)t0)[2])[1];
f_12201(t6,t5,((C_word*)t0)[3],C_i_caddr(t2));}}}

/* k12419 in g2180 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12421(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12421,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{
C_trace(C_text("scrutinizer.scm:964: rawmatch1"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_12201(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);}}}

/* k12449 in g2180 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12451(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_12451,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);}}}

/* k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12521(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12521,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12525,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:934: g2208"));
t3=t2;
f_12525(t3,((C_word*)t0)[4],t1);}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12535,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
C_trace(C_text("scrutinizer.scm:1275: chicken.base#alist-ref"));
t3=*((C_word*)lf[276]+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[374];
av2[4]=*((C_word*)lf[375]+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_12535(2,av2);}}}}

/* g2208 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_12525(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_12525,3,t0,t1,t2);}
C_trace(C_text("scrutinizer.scm:978: g2216"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_12259(t3,t1,t2,((C_word*)t0)[3]);}

/* k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12535(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,5)))){
C_save_and_reclaim((void *)f_12535,c,av);}
a=C_alloc(20);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12539,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:934: g2219"));
t4=t3;
f_12539(t4,((C_word*)t2)[4],t1);}
else{
t3=C_i_pairp(((C_word*)t2)[5]);
t4=(C_truep(t3)?C_eqp(lf[70],C_u_i_car(((C_word*)t2)[5])):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=C_i_not(((C_word*)((C_word*)t2)[6])[1]);
t6=t5;
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_12560,a[2]=t9,a[3]=((C_word*)t2)[6],a[4]=t7,tmp=(C_word)a,a+=5,tmp);
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12565,a[2]=((C_word*)t2)[7],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12581,a[2]=t7,a[3]=((C_word*)t2)[6],a[4]=t9,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:981: ##sys#dynamic-wind"));
t13=*((C_word*)lf[225]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t13;
av2[1]=((C_word*)t2)[4];
av2[2]=t10;
av2[3]=t11;
av2[4]=t12;
((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}}
else{
t5=C_i_pairp(((C_word*)t2)[3]);
t6=(C_truep(t5)?C_eqp(lf[70],C_u_i_car(((C_word*)t2)[3])):C_SCHEME_FALSE);
if(C_truep(t6)){
if(C_truep(C_i_not(((C_word*)((C_word*)t2)[6])[1]))){
t7=C_SCHEME_TRUE;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_FALSE;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12601,a[2]=t10,a[3]=((C_word*)t2)[6],a[4]=t8,tmp=(C_word)a,a+=5,tmp);
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12606,a[2]=((C_word*)t2)[7],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12622,a[2]=t8,a[3]=((C_word*)t2)[6],a[4]=t10,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:988: ##sys#dynamic-wind"));
t14=*((C_word*)lf[225]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t14;
av2[1]=((C_word*)t2)[4];
av2[2]=t11;
av2[3]=t12;
av2[4]=t13;
((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}
else{
t7=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
else{
t7=C_i_pairp(((C_word*)t2)[3]);
t8=(C_truep(t7)?C_eqp(lf[28],C_u_i_car(((C_word*)t2)[3])):C_SCHEME_FALSE);
if(C_truep(t8)){
t9=C_i_cdr(((C_word*)t2)[3]);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12640,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:996: over-all-instantiations"));
f_20452(((C_word*)t2)[4],t9,((C_word*)t2)[7],((C_word*)((C_word*)t2)[6])[1],t10);}
else{
t9=C_i_pairp(((C_word*)t2)[5]);
t10=(C_truep(t9)?C_eqp(lf[28],C_u_i_car(((C_word*)t2)[5])):C_SCHEME_FALSE);
if(C_truep(t10)){
t11=C_i_cdr(((C_word*)t2)[5]);
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12659,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1003: over-all-instantiations"));
f_20452(((C_word*)t2)[4],t11,((C_word*)t2)[7],C_SCHEME_FALSE,t12);}
else{
t11=C_i_pairp(((C_word*)t2)[5]);
t12=(C_truep(t11)?C_eqp(lf[29],C_u_i_car(((C_word*)t2)[5])):C_SCHEME_FALSE);
if(C_truep(t12)){
C_trace(C_text("scrutinizer.scm:1009: match1"));
t13=((C_word*)((C_word*)t2)[2])[1];
f_12259(t13,((C_word*)t2)[4],C_i_caddr(((C_word*)t2)[5]),((C_word*)t2)[3]);}
else{
t13=C_i_pairp(((C_word*)t2)[3]);
t14=(C_truep(t13)?C_eqp(lf[29],C_u_i_car(((C_word*)t2)[3])):C_SCHEME_FALSE);
if(C_truep(t14)){
C_trace(C_text("scrutinizer.scm:1011: match1"));
t15=((C_word*)((C_word*)t2)[2])[1];
f_12259(t15,((C_word*)t2)[4],((C_word*)t2)[5],C_i_caddr(((C_word*)t2)[3]));}
else{
t15=C_eqp(lf[85],((C_word*)t2)[5]);
if(C_truep(t15)){
t16=C_i_pairp(((C_word*)t2)[3]);
t17=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t17;
av2[1]=(C_truep(t16)?C_eqp(lf[85],C_u_i_car(((C_word*)t2)[3])):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}
else{
t16=C_eqp(lf[85],((C_word*)t2)[3]);
if(C_truep(t16)){
if(C_truep(C_i_not(((C_word*)((C_word*)t2)[6])[1]))){
t17=C_i_pairp(((C_word*)t2)[5]);
t18=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t18;
av2[1]=(C_truep(t17)?C_eqp(lf[85],C_u_i_car(((C_word*)t2)[5])):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}
else{
t17=((C_word*)t2)[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*)t2)[5],lf[32]);
if(C_truep(t17)){
if(C_truep(C_i_not(((C_word*)((C_word*)t2)[6])[1]))){
t18=C_i_pairp(((C_word*)t2)[3]);
t19=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t19;
av2[1]=(C_truep(t18)?C_eqp(lf[362],C_u_i_car(((C_word*)t2)[3])):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}
else{
t18=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t18;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}}
else{
t18=C_eqp(((C_word*)t2)[3],lf[32]);
if(C_truep(t18)){
t19=C_i_pairp(((C_word*)t2)[5]);
t20=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t20;
av2[1]=(C_truep(t19)?C_eqp(lf[362],C_u_i_car(((C_word*)t2)[5])):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}}
else{
t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12775,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(((C_word*)t2)[5]))){
t20=C_i_pairp(((C_word*)t2)[3]);
t21=t19;
f_12775(t21,(C_truep(t20)?C_eqp(C_u_i_car(((C_word*)t2)[5]),C_u_i_car(((C_word*)t2)[3])):C_SCHEME_FALSE));}
else{
t20=t19;
f_12775(t20,C_SCHEME_FALSE);}}}}}}}}}}}}}

/* g2219 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_12539(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_12539,3,t0,t1,t2);}
C_trace(C_text("scrutinizer.scm:979: g2227"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_12259(t3,t1,((C_word*)t0)[3],t2);}

/* a12559 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12560(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12560,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);}}

/* a12564 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12565(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_12565,c,av);}
a=C_alloc(5);
t2=lf[24];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12569,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:983: match1"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_12259(t4,t3,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k12567 in a12564 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12569(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_12569,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12572,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:984: trail-restore"));
f_16323(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k12570 in k12567 in a12564 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12572(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12572,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);}}

/* a12580 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12581(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12581,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);}}

/* a12600 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12601(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12601,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);}}

/* a12605 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12606(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_12606,c,av);}
a=C_alloc(5);
t2=lf[24];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12610,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:990: match1"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_12259(t4,t3,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k12608 in a12605 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12610(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_12610,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12613,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:991: trail-restore"));
f_16323(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k12611 in k12608 in a12605 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12613(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12613,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);}}

/* a12621 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12622(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12622,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);}}

/* a12639 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12640(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12640,c,av);}
C_trace(C_text("scrutinizer.scm:1000: match1"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_12259(t3,t1,((C_word*)t0)[3],t2);}

/* a12658 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12659(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12659,c,av);}
C_trace(C_text("scrutinizer.scm:1007: match1"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_12259(t3,t1,t2,((C_word*)t0)[3]);}

/* k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_12775(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){
C_save_and_reclaim_args((void *)trf_12775,2,t0,t1);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_i_car(((C_word*)t2)[5]);
t4=C_eqp(t3,lf[85]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12787,a[2]=((C_word*)t2)[8],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[9],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t2)[3],a[7]=((C_word*)t2)[5],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("scrutinizer.scm:1025: procedure-arguments"));
f_15303(t5,((C_word*)t2)[5]);}
else{
t5=C_eqp(t3,lf[53]);
if(C_truep(t5)){
t6=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t6;
av2[1]=C_i_equalp(((C_word*)t2)[5],((C_word*)t2)[3]);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_eqp(t3,lf[49]);
if(C_truep(t6)){
C_trace(C_text("scrutinizer.scm:1032: every-match1"));
t7=((C_word*)((C_word*)t2)[10])[1];
f_12223(t7,((C_word*)t2)[4],C_u_i_cdr(((C_word*)t2)[5]),C_i_cdr(((C_word*)t2)[3]));}
else{
t7=C_eqp(t3,lf[362]);
t8=(C_truep(t7)?t7:C_eqp(t3,lf[360]));
if(C_truep(t8)){
C_trace(C_text("scrutinizer.scm:1033: match1"));
t9=((C_word*)((C_word*)t2)[2])[1];
f_12259(t9,((C_word*)t2)[4],C_i_cadr(((C_word*)t2)[5]),C_i_cadr(((C_word*)t2)[3]));}
else{
t9=C_eqp(t3,lf[48]);
t10=(C_truep(t9)?t9:C_eqp(t3,lf[51]));
if(C_truep(t10)){
t11=C_i_length(((C_word*)t2)[5]);
t12=C_i_length(((C_word*)t2)[3]);
t13=C_eqp(t11,t12);
if(C_truep(t13)){
C_trace(C_text("scrutinizer.scm:1036: every-match1"));
t14=((C_word*)((C_word*)t2)[10])[1];
f_12223(t14,((C_word*)t2)[4],C_i_cdr(((C_word*)t2)[5]),C_i_cdr(((C_word*)t2)[3]));}
else{
t14=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t14;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}}
else{
t11=C_eqp(t3,lf[373]);
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12895,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1038: match1"));
t13=((C_word*)((C_word*)t2)[2])[1];
f_12259(t13,t12,C_i_caddr(((C_word*)t2)[5]),C_i_caddr(((C_word*)t2)[3]));}
else{
t12=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}}}}}}
else{
t3=C_i_pairp(((C_word*)t2)[5]);
t4=(C_truep(t3)?C_eqp(lf[373],C_u_i_car(((C_word*)t2)[5])):C_SCHEME_FALSE);
if(C_truep(t4)){
if(C_truep(C_i_not(((C_word*)((C_word*)t2)[6])[1]))){
C_trace(C_text("scrutinizer.scm:1043: match1"));
t5=((C_word*)((C_word*)t2)[2])[1];
f_12259(t5,((C_word*)t2)[4],C_i_caddr(((C_word*)t2)[5]),((C_word*)t2)[3]);}
else{
t5=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t5=C_i_pairp(((C_word*)t2)[3]);
t6=(C_truep(t5)?C_eqp(lf[373],C_u_i_car(((C_word*)t2)[3])):C_SCHEME_FALSE);
if(C_truep(t6)){
C_trace(C_text("scrutinizer.scm:1045: match1"));
t7=((C_word*)((C_word*)t2)[2])[1];
f_12259(t7,((C_word*)t2)[4],((C_word*)t2)[5],C_i_caddr(((C_word*)t2)[3]));}
else{
t7=C_i_pairp(((C_word*)t2)[5]);
t8=(C_truep(t7)?C_eqp(lf[49],C_u_i_car(((C_word*)t2)[5])):C_SCHEME_FALSE);
if(C_truep(t8)){
if(C_truep(C_i_pairp(((C_word*)t2)[3]))){
t9=C_u_i_car(((C_word*)t2)[3]);
t10=C_eqp(t9,lf[362]);
if(C_truep(t10)){
if(C_truep(C_i_not(((C_word*)((C_word*)t2)[6])[1]))){
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13005,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1051: match1"));
t12=((C_word*)((C_word*)t2)[2])[1];
f_12259(t12,t11,C_i_cadr(((C_word*)t2)[5]),C_i_cadr(((C_word*)t2)[3]));}
else{
t11=((C_word*)t2)[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_eqp(t9,lf[48]);
if(C_truep(t11)){
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t2)[3])))){
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13038,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1055: match1"));
t13=((C_word*)((C_word*)t2)[2])[1];
f_12259(t13,t12,C_i_cadr(((C_word*)t2)[5]),C_i_cadr(((C_word*)t2)[3]));}
else{
t12=((C_word*)t2)[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*)t2)[4];{
C_word av2[2];
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}}
else{
t9=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t9;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t9=C_i_pairp(((C_word*)t2)[3]);
t10=(C_truep(t9)?C_eqp(lf[49],C_u_i_car(((C_word*)t2)[3])):C_SCHEME_FALSE);
if(C_truep(t10)){
if(C_truep(C_i_pairp(((C_word*)t2)[5]))){
t11=C_u_i_car(((C_word*)t2)[5]);
t12=C_eqp(t11,lf[362]);
if(C_truep(t12)){
if(C_truep(C_i_not(((C_word*)((C_word*)t2)[6])[1]))){
t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13107,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1066: match1"));
t14=((C_word*)((C_word*)t2)[2])[1];
f_12259(t14,t13,C_i_cadr(((C_word*)t2)[5]),C_i_cadr(((C_word*)t2)[3]));}
else{
t13=((C_word*)t2)[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_eqp(t11,lf[48]);
if(C_truep(t13)){
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t2)[5])))){
t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13140,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1070: match1"));
t15=((C_word*)((C_word*)t2)[2])[1];
f_12259(t15,t14,C_i_cadr(((C_word*)t2)[5]),C_i_cadr(((C_word*)t2)[3]));}
else{
t14=((C_word*)t2)[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_word*)t2)[4];{
C_word av2[2];
av2[0]=t14;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}}}
else{
t11=((C_word*)t2)[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_i_pairp(((C_word*)t2)[5]);
t12=(C_truep(t11)?C_eqp(lf[48],C_u_i_car(((C_word*)t2)[5])):C_SCHEME_FALSE);
if(C_truep(t12)){
if(C_truep(C_i_not(((C_word*)((C_word*)t2)[6])[1]))){
if(C_truep(C_i_pairp(((C_word*)t2)[3]))){
t13=C_eqp(lf[362],C_u_i_car(((C_word*)t2)[3]));
if(C_truep(t13)){
t14=C_i_cdr(((C_word*)t2)[5]);
t15=C_i_cadr(((C_word*)t2)[3]);
t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13214,a[2]=((C_word*)t2)[2],a[3]=t15,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1079: over-all-instantiations"));
f_20452(((C_word*)t2)[4],t14,((C_word*)t2)[7],C_SCHEME_TRUE,t16);}
else{
t14=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t14;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}}
else{
t13=((C_word*)t2)[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*)t2)[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_i_pairp(((C_word*)t2)[5]);
t14=(C_truep(t13)?C_eqp(lf[362],C_u_i_car(((C_word*)t2)[5])):C_SCHEME_FALSE);
if(C_truep(t14)){
if(C_truep(C_i_pairp(((C_word*)t2)[3]))){
t15=C_eqp(lf[48],C_u_i_car(((C_word*)t2)[3]));
if(C_truep(t15)){
t16=C_u_i_cdr(((C_word*)t2)[3]);
t17=C_i_cadr(((C_word*)t2)[5]);
t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13248,a[2]=((C_word*)t2)[2],a[3]=t17,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1086: over-all-instantiations"));
f_20452(((C_word*)t2)[4],t16,((C_word*)t2)[7],C_SCHEME_TRUE,t18);}
else{
t16=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t16;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}}
else{
t15=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t15;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}}
else{
t15=C_i_pairp(((C_word*)t2)[5]);
t16=(C_truep(t15)?C_eqp(lf[51],C_u_i_car(((C_word*)t2)[5])):C_SCHEME_FALSE);
if(C_truep(t16)){
if(C_truep(C_i_not(((C_word*)((C_word*)t2)[6])[1]))){
if(C_truep(C_i_pairp(((C_word*)t2)[3]))){
t17=C_eqp(lf[360],C_u_i_car(((C_word*)t2)[3]));
if(C_truep(t17)){
t18=C_i_cdr(((C_word*)t2)[5]);
t19=C_i_cadr(((C_word*)t2)[3]);
t20=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13290,a[2]=((C_word*)t2)[2],a[3]=t19,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1094: over-all-instantiations"));
f_20452(((C_word*)t2)[4],t18,((C_word*)t2)[7],C_SCHEME_TRUE,t20);}
else{
t18=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t18;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}}
else{
t17=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t17;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}}
else{
t17=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t17;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}}
else{
t17=C_i_pairp(((C_word*)t2)[5]);
t18=(C_truep(t17)?C_eqp(lf[360],C_u_i_car(((C_word*)t2)[5])):C_SCHEME_FALSE);
if(C_truep(t18)){
if(C_truep(C_i_pairp(((C_word*)t2)[3]))){
t19=C_eqp(lf[51],C_u_i_car(((C_word*)t2)[3]));
if(C_truep(t19)){
t20=C_u_i_cdr(((C_word*)t2)[3]);
t21=C_i_cadr(((C_word*)t2)[5]);
t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13324,a[2]=((C_word*)t2)[2],a[3]=t21,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1101: over-all-instantiations"));
f_20452(((C_word*)t2)[4],t20,((C_word*)t2)[7],C_SCHEME_TRUE,t22);}
else{
t20=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t20;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}}}
else{
t19=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t19;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}}
else{
t19=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t19;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}}}}}}}}}}

/* k12785 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12787(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12787,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12790,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1026: procedure-arguments"));
f_15303(t3,((C_word*)t0)[6]);}

/* k12788 in k12785 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12790(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_12790,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12793,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=t1,a[7]=((C_word*)t2)[6],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("scrutinizer.scm:1027: procedure-results"));
f_15360(t3,((C_word*)t2)[7]);}

/* k12791 in k12788 in k12785 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12793(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_12793,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12796,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);
C_trace(C_text("scrutinizer.scm:1028: procedure-results"));
f_15360(t2,((C_word*)t0)[7]);}

/* k12794 in k12791 in k12788 in k12785 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12796(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_12796,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12802,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_trace(C_text("scrutinizer.scm:1029: match-args"));
t3=((C_word*)((C_word*)t0)[5])[1];
f_11939(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k12800 in k12794 in k12791 in k12788 in k12785 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12802(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12802,c,av);}
if(C_truep(t1)){
C_trace(C_text("scrutinizer.scm:1030: match-results"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_12133(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);}}}

/* k12893 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_12895(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12895,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_7878,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("mini-srfi-1.scm:193: every"));
f_7200(((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);}}}

/* k13003 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13005(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13005,c,av);}
if(C_truep(t1)){
C_trace(C_text("scrutinizer.scm:1052: match1"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_12259(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);}}}

/* k13036 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13038(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13038,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))){
C_trace(C_text("scrutinizer.scm:1056: match1"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_12259(t4,((C_word*)t0)[5],t2,lf[32]);}
else{
t4=C_u_i_cdr(((C_word*)t0)[3]);
t5=C_u_i_cdr(t4);
t6=C_a_i_cons(&a,2,lf[48],t5);
C_trace(C_text("scrutinizer.scm:1056: match1"));
t7=((C_word*)((C_word*)t0)[4])[1];
f_12259(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);}}}

/* k13105 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13107(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13107,c,av);}
if(C_truep(t1)){
C_trace(C_text("scrutinizer.scm:1067: match1"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_12259(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);}}}

/* k13138 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13140(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13140,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))){
C_trace(C_text("scrutinizer.scm:1071: match1"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_12259(t3,((C_word*)t0)[4],lf[32],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[48],t4);
C_trace(C_text("scrutinizer.scm:1071: match1"));
t6=((C_word*)((C_word*)t0)[3])[1];
f_12259(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);}}}

/* a13210 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13214(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13214,c,av);}
C_trace(C_text("scrutinizer.scm:1083: g23342335"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_12259(t3,t1,t2,((C_word*)t0)[3]);}

/* a13244 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13248(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13248,c,av);}
C_trace(C_text("scrutinizer.scm:1090: g23492350"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_12259(t3,t1,((C_word*)t0)[3],t2);}

/* a13286 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13290(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13290,c,av);}
C_trace(C_text("scrutinizer.scm:1098: g23652366"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_12259(t3,t1,t2,((C_word*)t0)[3]);}

/* a13320 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13324(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13324,c,av);}
C_trace(C_text("scrutinizer.scm:1105: g23802381"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_12259(t3,t1,((C_word*)t0)[3],t2);}

/* chicken.compiler.scrutinizer#match-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_13512(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
C_save_and_reclaim_args((void *)trf_13512,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_13518,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_13518(t8,t1,t2,t3);}

/* loop in chicken.compiler.scrutinizer#match-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_13518(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){
C_save_and_reclaim_args((void *)trf_13518,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[376],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[366]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13551,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1122: every"));
f_7200(t1,t7,t3);}
else{
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13565,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1126: match-types"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[171]+1));
C_word av2[6];
av2[0]=*((C_word*)lf[171]+1);
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;
tp(6,av2);}}}}}}

/* a13550 in loop in chicken.compiler.scrutinizer#match-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13551(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_13551,c,av);}
C_trace(C_text("scrutinizer.scm:1124: match-types"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[171]+1));
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[171]+1);
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;
tp(6,av2);}}

/* k13563 in loop in chicken.compiler.scrutinizer#match-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13565(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13565,c,av);}
if(C_truep(t1)){
C_trace(C_text("scrutinizer.scm:1127: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_13518(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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_13584(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){
C_save_and_reclaim_args((void *)trf_13584,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_13587,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_14484,a[2]=t8,a[3]=t1,a[4]=t6,a[5]=t10,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:1257: simplify"));
t13=((C_word*)t10)[1];
f_13587(t13,t12,t2);}

/* simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_13587(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_13587,3,t0,t1,t2);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13593,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);
C_trace(C_text("scrutinizer.scm:1142: scheme#call-with-current-continuation"));
t4=*((C_word*)lf[168]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13593(C_word c,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!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
C_save_and_reclaim((void *)f_13593,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_13614,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_13666,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_13668,a[2]=t9,a[3]=t14,a[4]=t10,tmp=(C_word)a,a+=5,tmp));
t16=((C_word*)t14)[1];
f_13668(t16,t12,t5);}
else{
t5=C_eqp(t3,lf[28]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13709,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,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_14017,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_14019,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_14019(t17,t13,t11);}
else{
t6=C_eqp(t3,lf[373]);
if(C_truep(t6)){
t7=C_i_cadr(((C_word*)t0)[2]);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14063,a[2]=t7,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1212: simplify"));
t9=((C_word*)((C_word*)t0)[5])[1];
f_13587(t9,t8,C_i_caddr(((C_word*)t0)[2]));}
else{
t7=C_eqp(t3,lf[49]);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14110,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1219: simplify"));
t9=((C_word*)((C_word*)t0)[5])[1];
f_13587(t9,t8,C_i_cadr(((C_word*)t0)[2]));}
else{
t8=C_eqp(t3,lf[360]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14149,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1226: simplify"));
t10=((C_word*)((C_word*)t0)[5])[1];
f_13587(t10,t9,C_i_cadr(((C_word*)t0)[2]));}
else{
t9=C_eqp(t3,lf[362]);
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14173,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1231: simplify"));
t11=((C_word*)((C_word*)t0)[5])[1];
f_13587(t11,t10,C_i_cadr(((C_word*)t0)[2]));}
else{
t10=C_eqp(t3,lf[48]);
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[32];
((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_14214,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_14216,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_14216(t21,t17,t15);}}
else{
t11=C_eqp(t3,lf[51]);
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_14270,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_14272,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_14272(t22,t18,t16);}
else{
t12=C_eqp(t3,lf[85]);
if(C_truep(t12)){
t13=(
C_trace("scrutinizer.scm:1242: named?"),
  f_15768(((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_14390,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_14392,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_14392(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_14470,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1144: g2706"));
t5=t4;
f_14470(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);}}}}

/* k13612 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13614(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_13614,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_13618,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_13629,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_13631,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:1155: filter-map"));
f_7484(t4,t5,((C_word*)t0)[7]);}

/* k13616 in k13612 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13618(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13618,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
C_trace(C_text("scrutinizer.scm:1160: simplify"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_13587(t3,((C_word*)t0)[4],C_i_caddr(((C_word*)t0)[5]));}

/* k13627 in k13612 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13629(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13629,c,av);}
C_trace(C_text("scrutinizer.scm:1155: 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);}}

/* a13630 in k13612 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13631(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13631,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);}}

/* k13664 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13666(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13666,c,av);}
C_trace(C_text("scrutinizer.scm:1149: 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-loop2439 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_13668(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_13668,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_symbolp(t3);
t5=(C_truep(t4)?t3:C_i_car(t3));
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15983,a[2]=C_SCHEME_UNDEFINED,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t1,a[7]=t2,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("scrutinizer.scm:1523: chicken.plist#get"));
t7=C_fast_retrieve(lf[378]);{
C_word av2[4];
av2[0]=t7;
av2[1]=t6;
av2[2]=t5;
av2[3]=lf[377];
((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);}}}

/* k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13709(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13709,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
if(C_truep(C_i_nullp(((C_word*)t0)[3]))){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[54];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_cdr(((C_word*)t0)[3]);
if(C_truep(C_i_nullp(t3))){
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_u_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_length(((C_word*)t0)[3]);
if(C_truep(C_fixnum_greaterp(t4,C_fix(20)))){
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=lf[54];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13737,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1168: every"));
f_7200(t5,lf[122],((C_word*)t0)[3]);}}}}

/* k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13737(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_13737,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13743,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13830,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:1169: any"));
f_7234(t3,t4,((C_word*)t2)[3]);}
else{
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13840,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[3],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:1186: lset=/eq?"));
f_7884(t3,lf[386],((C_word*)t2)[3]);}}

/* k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_13743,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[85];
((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[379]);
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_13806,a[2]=t6,tmp=(C_word)a,a+=3,tmp));
t8=((C_word*)t6)[1];
f_13806(t8,((C_word*)t0)[2],t3,t2);}}

/* k13749 in foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13751(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_13751,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13754,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1174: procedure-arguments"));
f_15303(t3,((C_word*)t0)[5]);}

/* k13752 in k13749 in foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13754(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_13754,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13757,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=t1,a[5]=((C_word*)t2)[3],a[6]=C_SCHEME_UNDEFINED,a[7]=((C_word*)t2)[4],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("scrutinizer.scm:1175: procedure-results"));
f_15360(t3,((C_word*)t2)[5]);}

/* k13755 in k13752 in k13749 in foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13757(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_13757,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13760,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1176: procedure-name"));
f_15252(t3,((C_word*)t0)[7]);}

/* k13758 in k13755 in k13752 in k13749 in foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13760(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_13760,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+6,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13763,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1177: procedure-arguments"));
f_15303(t4,((C_word*)t2)[7]);}

/* k13761 in k13758 in k13755 in k13752 in k13749 in foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13763(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_13763,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13766,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t1,a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("scrutinizer.scm:1178: procedure-results"));
f_15360(t3,((C_word*)t2)[7]);}

/* k13764 in k13761 in k13758 in k13755 in k13752 in k13749 in foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_13766(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_13766,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13773,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_13773(t4,(C_truep(t3)?C_a_i_list1(&a,1,((C_word*)t0)[6]):C_SCHEME_END_OF_LIST));}
else{
t3=t2;
f_13773(t3,C_SCHEME_END_OF_LIST);}}
else{
t3=t2;
f_13773(t3,C_SCHEME_END_OF_LIST);}}

/* k13771 in k13764 in k13761 in k13758 in k13755 in k13752 in k13749 in foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void f_13773(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_13773,2,t0,t1);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13785,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1182: merge-argument-types"));
f_14553(t2,((C_word*)t0)[5],((C_word*)t0)[6]);}

/* k13779 in k13783 in k13771 in k13764 in k13761 in k13758 in k13755 in k13752 in k13749 in foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_13781(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_13781,c,av);}
C_trace(C_text("scrutinizer.scm:1179: 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[380];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k13783 in k13771 in k13764 in k13761 in k13758 in k13755 in k13752 in k13749 in foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_13785(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_13785,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_13781,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_14728,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1306: scheme#call-with-current-continuation"));
t5=*((C_word*)lf[168]+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);}}

/* foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_13806(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_13806,4,t0,t1,t2,t3);}
a=C_alloc(11);
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13824,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|5,a[1]=(C_word)f_13751,a[2]=t5,a[3]=C_SCHEME_UNDEFINED,a[4]=t3,a[5]=t6,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1173: procedure-name"));
f_15252(t7,t6);}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k13822 in foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13824(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13824,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_13806(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* a13829 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13830(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13830,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_eqp(lf[85],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k13838 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13840(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13840,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[35];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13846,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1187: lset=/eq?"));
f_7884(t2,lf[385],((C_word*)t0)[6]);}}

/* k13844 in k13838 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13846(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13846,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[41];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13852,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1188: lset=/eq?"));
f_7884(t3,lf[384],((C_word*)t2)[6]);}}

/* k13850 in k13844 in k13838 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13852(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_13852,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[382];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13855,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13955,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1190: append-map"));
f_7030(t3,t4,((C_word*)t2)[6],C_SCHEME_END_OF_LIST);}}

/* k13853 in k13850 in k13844 in k13838 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13855(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_13855,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13858,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
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_13875,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_13875(t6,t2,t1,C_SCHEME_END_OF_LIST);}

/* k13856 in k13853 in k13850 in k13844 in k13838 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13858(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_13858,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);
C_trace(C_text("scrutinizer.scm:1209: simplify"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_13587(t3,((C_word*)t0)[3],t2);}}

/* loop in k13853 in k13850 in k13844 in k13838 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_13875(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_13875,4,t0,t1,t2,t3);}
a=C_alloc(9);
if(C_truep(C_i_nullp(t2))){
C_trace(C_text("scrutinizer.scm:1200: scheme#reverse"));
t4=*((C_word*)lf[368]+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[54],t4);
if(C_truep(t5)){
C_trace(C_text("scrutinizer.scm:1201: return"));
t6=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[54];
((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13900,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_13939,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1202: any"));
f_7234(t6,t7,C_u_i_cdr(t2));}}}

/* k13898 in loop in k13853 in k13850 in k13844 in k13838 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13900(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_13900,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
C_trace(C_text("scrutinizer.scm:1203: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_13875(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),((C_word*)t0)[5]);}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13911,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13929,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1204: any"));
f_7234(t2,t3,((C_word*)t0)[5]);}}

/* k13909 in k13898 in loop in k13853 in k13850 in k13844 in k13838 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13911(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13911,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("scrutinizer.scm:1205: loop"));
t3=((C_word*)((C_word*)t2)[2])[1];
f_13875(t3,((C_word*)t2)[3],C_u_i_cdr(((C_word*)t2)[4]),((C_word*)t2)[5]);}
else{
t3=C_u_i_cdr(((C_word*)t2)[4]);
t4=C_u_i_car(((C_word*)t2)[4]);
t5=C_a_i_cons(&a,2,t4,((C_word*)t2)[5]);
C_trace(C_text("scrutinizer.scm:1206: loop"));
t6=((C_word*)((C_word*)t2)[2])[1];
f_13875(t6,((C_word*)t2)[3],t3,t5);}}

/* a13928 in k13898 in loop in k13853 in k13850 in k13844 in k13838 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13929(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13929,c,av);}
t3=*((C_word*)lf[383]+1);
C_trace(C_text("scrutinizer.scm:1204: g2566"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[383]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[383]+1);
av2[1]=t1;
av2[2]=C_i_car(((C_word*)t0)[2]);
av2[3]=t2;
tp(4,av2);}}

/* a13938 in loop in k13853 in k13850 in k13844 in k13838 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13939(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13939,c,av);}
t3=*((C_word*)lf[383]+1);
C_trace(C_text("scrutinizer.scm:1202: g2558"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[383]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[383]+1);
av2[1]=t1;
av2[2]=C_i_car(((C_word*)t0)[2]);
av2[3]=t2;
tp(4,av2);}}

/* a13954 in k13850 in k13844 in k13838 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13955(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13955,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13959,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1192: simplify"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_13587(t4,t3,t2);}

/* k13957 in a13954 in k13850 in k13844 in k13838 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_13959(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_13959,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[36]);
if(C_truep(t4)){
C_trace(C_text("scrutinizer.scm:1195: 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[36];
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}
else{
t5=C_eqp(t1,lf[71]);
if(C_truep(t5)){
C_trace(C_text("scrutinizer.scm:1196: 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[54];
((C_proc)C_fast_retrieve_proc(t6))(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);}}}}}

/* k14015 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14017(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_14017,c,av);}
C_trace(C_text("scrutinizer.scm:1162: delete-duplicates"));
f_7395(((C_word*)t0)[2],t1,*((C_word*)lf[375]+1));}

/* map-loop2472 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_14019(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_14019,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_14044,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1162: g2478"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_13587(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);}}}

/* k14042 in map-loop2472 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14044(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14044,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_14019(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k14061 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14063(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_14063,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=(
C_trace("scrutinizer.scm:1214: refinement-type?"),
  f_15944(t1)
);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14082,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_7800,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
t9=((C_word*)t7)[1];
f_7800(t9,t3,t5,t4);}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14097,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1217: delete-duplicates"));
f_7395(t3,((C_word*)t0)[2],*((C_word*)lf[375]+1));}}}

/* k14080 in k14061 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14082(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_14082,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[373],t1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14095 in k14061 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14097(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_14097,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[373],t1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k14108 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14110(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_14110,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14113,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1220: simplify"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_13587(t3,t2,C_i_caddr(((C_word*)t0)[4]));}

/* k14111 in k14108 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14113(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_14113,c,av);}
a=C_alloc(9);
t2=C_eqp(lf[54],((C_word*)t0)[2]);
t3=(C_truep(t2)?C_eqp(lf[54],t1):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[49];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_a_i_list(&a,3,lf[49],((C_word*)t0)[2],t1);
C_trace(C_text("scrutinizer.scm:1223: canonicalize-list-type"));
f_19565(((C_word*)t0)[3],t4);}}

/* k14147 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14149(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_14149,c,av);}
a=C_alloc(6);
t2=C_eqp(t1,lf[54]);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[51];
((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);}}}

/* k14171 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_14173,c,av);}
a=C_alloc(6);
t2=C_eqp(t1,lf[54]);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[48];
((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);}}}

/* k14212 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14214(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_14214,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[48],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop2597 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_14216(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_14216,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_14241,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1238: g2603"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_13587(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);}}}

/* k14239 in map-loop2597 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14241(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14241,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_14216(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k14268 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14270(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_14270,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[51],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop2626 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_14272(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_14272,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_14297,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1240: g2632"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_13587(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);}}}

/* k14295 in map-loop2626 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14297(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14297,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_14272(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k14329 in k14388 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14331(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_14331,c,av);}
C_trace(C_text("scrutinizer.scm:1244: 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[390];
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-loop2681 in k14388 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_14345(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_14345,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_14370,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1250: g2687"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_13587(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);}}}

/* k14368 in map-loop2681 in k14388 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14370(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14370,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_14345(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k14388 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14390(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,5)))){
C_save_and_reclaim((void *)f_14390,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_14331,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[54],((C_word*)t0)[4]);
if(C_truep(t4)){
C_trace(C_text("scrutinizer.scm:1244: 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[390];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
av2[5]=lf[54];
((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_14345,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_14345(t13,t3,((C_word*)t0)[4]);}}

/* map-loop2655 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_14392(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_14392,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_14417,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1247: g2661"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_13587(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);}}}

/* k14415 in map-loop2655 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14417(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14417,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_14392(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* g2706 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_14470(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,4)))){
C_save_and_reclaim_args((void *)trf_14470,3,t0,t1,t2);}
a=C_alloc(13);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14475,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_7665,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
t9=((C_word*)t7)[1];
f_7665(t9,t3,t5,t4);}

/* k14473 in g2706 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14475(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14475,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);}}

/* k14482 in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14484(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_14484,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_14501,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_14503,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);
C_trace(C_text("scrutinizer.scm:1260: filter-map"));
f_7484(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);}}}

/* k14499 in k14482 in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14501(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_14501,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);}}

/* a14502 in k14482 in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14503(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_14503,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_14518,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1264: g2724"));
t7=t6;
f_14518(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);}}}

/* g2724 in a14502 in k14482 in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_14518(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_14518,3,t0,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14526,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1266: simplify"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_13587(t4,t3,C_i_cadr(t2));}

/* k14524 in g2724 in a14502 in k14482 in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14526(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_14526,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_14553(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_14553,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[366]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[365]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))?t3:lf[391]);
((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[392];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
t5=C_eqp(lf[366],t4);
if(C_truep(t5)){
t6=C_i_pairp(t3);
t7=(C_truep(t6)?C_eqp(lf[366],C_u_i_car(t3)):C_SCHEME_FALSE);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14599,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t9=(
C_trace("scrutinizer.scm:1291: rest-type"),
  f_15821(C_u_i_cdr(t2))
);
t10=(
C_trace("scrutinizer.scm:1292: rest-type"),
  f_15821(C_i_cdr(t3))
);
t11=C_a_i_list(&a,3,lf[28],t9,t10);
C_trace(C_text("scrutinizer.scm:1290: simplify-type"));
f_13584(t8,t11);}
else{
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=lf[393];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
else{
t6=C_eqp(lf[365],C_u_i_car(t2));
if(C_truep(t6)){
t7=C_i_pairp(t3);
t8=(C_truep(t7)?C_eqp(lf[365],C_u_i_car(t3)):C_SCHEME_FALSE);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14648,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);
C_trace(C_text("scrutinizer.scm:1297: simplify-type"));
f_13584(t9,t12);}
else{
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=lf[394];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t7=C_i_car(t3);
if(C_truep((C_truep(C_eqp(t7,lf[366]))?C_SCHEME_TRUE:(C_truep(C_eqp(t7,lf[365]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
C_trace(C_text("scrutinizer.scm:1301: 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_14698,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);
C_trace(C_text("scrutinizer.scm:1302: simplify-type"));
f_13584(t8,t11);}}}}}}

/* k14597 in chicken.compiler.scrutinizer#merge-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14599(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_14599,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[366],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k14646 in chicken.compiler.scrutinizer#merge-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14648(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_14648,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14652,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1298: merge-argument-types"));
f_14553(t2,C_i_cddr(((C_word*)t0)[3]),C_i_cddr(((C_word*)t0)[4]));}

/* k14650 in k14646 in chicken.compiler.scrutinizer#merge-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14652(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_14652,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[365],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14696 in chicken.compiler.scrutinizer#merge-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_14698,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14702,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1303: merge-argument-types"));
f_14553(t2,C_u_i_cdr(((C_word*)t0)[3]),C_u_i_cdr(((C_word*)t0)[4]));}

/* k14700 in k14696 in chicken.compiler.scrutinizer#merge-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14702(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_14702,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);}}

/* a14727 in k13783 in k13771 in k13764 in k13761 in k13758 in k13755 in k13752 in k13749 in foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_14728(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_14728,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_14734,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_14734(t6,t1,((C_word*)t0)[2],((C_word*)t0)[3]);}

/* loop in a14727 in k13783 in k13771 in k13764 in k13761 in k13758 in k13755 in k13752 in k13749 in foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void f_14734(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
C_save_and_reclaim_args((void *)trf_14734,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)){
C_trace(C_text("scrutinizer.scm:1310: return"));
t8=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t8;
av2[1]=t1;
av2[2]=lf[54];
((C_proc)C_fast_retrieve_proc(t8))(3,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14760,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);
C_trace(C_text("scrutinizer.scm:1311: simplify-type"));
f_13584(t8,t11);}}}

/* k14758 in loop in a14727 in k13783 in k13771 in k13764 in k13761 in k13758 in k13755 in k13752 in k13749 in foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_14760(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_14760,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14764,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1312: loop"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_14734(t3,t2,C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}

/* k14762 in k14758 in loop in a14727 in k13783 in k13771 in k13764 in k13761 in k13758 in k13755 in k13752 in k13749 in foldl2516 in k13741 in k13735 in k13707 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in ... */
static void C_ccall f_14764(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_14764,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_14791(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
C_save_and_reclaim_args((void *)trf_14791,4,t1,t2,t3,t4);}
a=C_alloc(15);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14795,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=C_SCHEME_UNDEFINED,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);
C_trace(C_text("scrutinizer.scm:1315: type-typeenv"));
t7=lf[162];{
C_word av2[3];
av2[0]=t7;
av2[1]=t5;
av2[2]=t6;
f_15991(3,av2);}}
else{
t6=t5;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_i_car(t4);
f_14795(2,av2);}}}

/* k14793 in chicken.compiler.scrutinizer#compatible-types? in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14795(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_14795,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14798,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1316: type<=?"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[383]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[383]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[5];
tp(5,av2);}}

/* k14796 in k14793 in chicken.compiler.scrutinizer#compatible-types? in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14798(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_14798,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
C_trace(C_text("scrutinizer.scm:1317: type<=?"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[383]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[383]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=((C_word*)t2)[4];
av2[4]=((C_word*)t2)[5];
tp(5,av2);}}}

/* k14821 in k15008 in k14974 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14823(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_14823,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14829,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1320: type<=?"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[383]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[383]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
tp(5,av2);}}

/* k14827 in k14821 in k15008 in k14974 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14829(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_14829,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14835,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1321: type<=?"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[383]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[383]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=((C_word*)t2)[3];
av2[4]=((C_word*)t2)[5];
tp(5,av2);}}}

/* k14833 in k14827 in k14821 in k15008 in k14974 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14835(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14835,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14850(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_14850,c,av);}
a=C_alloc(14);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14854,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);
C_trace(C_text("scrutinizer.scm:1324: type-typeenv"));
t6=lf[162];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
f_15991(3,av2);}}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_get_rest_arg(c,4,av,4,t0);
f_14854(2,av2);}}}

/* k14852 in chicken.compiler.scrutinizer#type<=? in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14854(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_14854,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14859,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_16361,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1565: thunk"));
t5=t2;
f_14859(t5,t4);}

/* a14858 in k14852 in chicken.compiler.scrutinizer#type<=? in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_14859(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_14859,2,t0,t1);}
C_trace(C_text("scrutinizer.scm:1328: match-types"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[171]+1));
C_word av2[6];
av2[0]=*((C_word*)lf[171]+1);
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;
tp(6,av2);}}

/* chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14878(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_14878,c,av);}
a=C_alloc(14);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15179,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);
C_trace(C_text("scrutinizer.scm:1367: type-typeenv"));
t6=lf[162];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
f_15991(3,av2);}}

/* loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_14887(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_14887,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14891,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))){
C_trace(C_text("scrutinizer.scm:1275: chicken.base#alist-ref"));
t5=*((C_word*)lf[276]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[374];
av2[4]=*((C_word*)lf[375]+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_14891(2,av2);}}}

/* k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14891(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_14891,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14895,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1340: g2859"));
t3=t2;
f_14895(t3,((C_word*)t0)[4],t1);}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14905,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
C_trace(C_text("scrutinizer.scm:1275: chicken.base#alist-ref"));
t3=*((C_word*)lf[276]+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[374];
av2[4]=*((C_word*)lf[375]+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_14905(2,av2);}}}}

/* g2859 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_14895(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_14895,3,t0,t1,t2);}
C_trace(C_text("scrutinizer.scm:1341: g2867"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_14887(t3,t1,t2,((C_word*)t0)[3]);}

/* k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14905(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_14905,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14909,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1340: g2870"));
t4=t3;
f_14909(t4,((C_word*)t2)[4],t1);}
else{
t3=C_i_pairp(((C_word*)t2)[5]);
t4=(C_truep(t3)?C_u_i_memq(C_u_i_car(((C_word*)t2)[5]),lf[395]):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14925,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1344: loop"));
t6=((C_word*)((C_word*)t2)[2])[1];
f_14887(t6,t5,C_i_caddr(((C_word*)t2)[5]),((C_word*)t2)[3]);}
else{
t5=C_i_pairp(((C_word*)t2)[3]);
t6=(C_truep(t5)?C_u_i_memq(C_u_i_car(((C_word*)t2)[3]),lf[396]):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14952,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1347: loop"));
t8=((C_word*)((C_word*)t2)[2])[1];
f_14887(t8,t7,((C_word*)t2)[5],C_i_caddr(((C_word*)t2)[3]));}
else{
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14976,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(((C_word*)t2)[5]))){
t8=C_eqp(C_u_i_car(((C_word*)t2)[5]),lf[28]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15149,a[2]=((C_word*)t2)[3],a[3]=t7,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1351: lset=/eq?"));
f_7884(t9,lf[398],C_u_i_cdr(((C_word*)t2)[5]));}
else{
t9=t7;
f_14976(t9,C_SCHEME_FALSE);}}
else{
t8=t7;
f_14976(t8,C_SCHEME_FALSE);}}}}}

/* g2870 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_14909(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_14909,3,t0,t1,t2);}
C_trace(C_text("scrutinizer.scm:1342: g2878"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_14887(t3,t1,((C_word*)t0)[3],t2);}

/* k14923 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14925(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_14925,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);}}}

/* k14950 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14952(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_14952,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);}}}

/* k14974 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_14976(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_14976,2,t0,t1);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_pairp(((C_word*)t2)[5]);
t4=(C_truep(t3)?C_eqp(C_u_i_car(((C_word*)t2)[5]),lf[28]):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14985,a[2]=((C_word*)t2)[4],tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14996,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1355: filter-map"));
f_7484(t5,t6,C_i_cdr(((C_word*)t2)[5]));}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15010,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(((C_word*)t2)[5]))){
t6=C_u_i_car(((C_word*)t2)[5]);
if(C_truep((C_truep(C_eqp(t6,lf[49]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[48]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[51]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[360]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[362]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))){
if(C_truep(C_i_pairp(((C_word*)t2)[3]))){
t7=C_eqp(C_u_i_car(((C_word*)t2)[5]),C_u_i_car(((C_word*)t2)[3]));
t8=t5;
f_15010(t8,(C_truep(t7)?C_eqp(C_i_length(((C_word*)t2)[5]),C_i_length(((C_word*)t2)[3])):C_SCHEME_FALSE));}
else{
t7=t5;
f_15010(t7,C_SCHEME_FALSE);}}
else{
t7=t5;
f_15010(t7,C_SCHEME_FALSE);}}
else{
t6=t5;
f_15010(t6,C_SCHEME_FALSE);}}}}

/* k14983 in k14974 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14985(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_14985,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);}}

/* a14995 in k14974 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_14996(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_14996,c,av);}
C_trace(C_text("scrutinizer.scm:1355: loop"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_14887(t3,t1,t2,((C_word*)t0)[3]);}

/* k15008 in k14974 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_15010(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,4)))){
C_save_and_reclaim_args((void *)trf_15010,2,t0,t1);}
a=C_alloc(18);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_i_cdr(((C_word*)t2)[5]);
t8=C_i_cdr(((C_word*)t2)[3]);
t9=C_i_check_list_2(t7,lf[6]);
t10=C_i_check_list_2(t8,lf[6]);
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15028,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[4],a[4]=C_SCHEME_UNDEFINED,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|5,a[1]=(C_word)f_15041,a[2]=t5,a[3]=t13,a[4]=((C_word*)t2)[2],a[5]=t6,tmp=(C_word)a,a+=6,tmp));
t15=((C_word*)t13)[1];
f_15041(t15,t11,t7,t8);}
else{
t3=C_a_i_list(&a,1,((C_word*)t2)[6]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14823,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[3],a[5]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_nullp(t3))){
t5=C_a_i_list(&a,3,lf[28],((C_word*)t2)[5],((C_word*)t2)[3]);
C_trace(C_text("scrutinizer.scm:1319: type-typeenv"));
t6=lf[162];{
C_word av2[3];
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
f_15991(3,av2);}}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_i_car(t3);
f_14823(2,av2);}}}}

/* k15026 in k15008 in k14974 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15028(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_15028,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15034,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1363: every"));
f_7200(t3,*((C_word*)lf[397]+1),((C_word*)t0)[4]);}

/* k15032 in k15026 in k15008 in k14974 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15034(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_15034,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_u_i_car(((C_word*)t2)[2]);
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,t3,((C_word*)t2)[4]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* map-loop2901 in k15008 in k14974 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_15041(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_15041,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_15070,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);
C_trace(C_text("scrutinizer.scm:1362: g2907"));
t7=((C_word*)((C_word*)t0)[4])[1];
f_14887(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);}}}

/* k15068 in map-loop2901 in k15008 in k14974 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15070(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_15070,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_15041(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)));}

/* k15147 in k14903 in k14889 in loop in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15149(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15149,c,av);}
if(C_truep(t1)){
t2=C_i_pairp(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];
f_14976(t3,(C_truep(t2)?C_eqp(lf[362],C_u_i_car(((C_word*)t0)[2])):C_SCHEME_FALSE));}
else{
t2=((C_word*)t0)[3];
f_14976(t2,C_SCHEME_FALSE);}}

/* k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15179(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_15179,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15182,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_14887,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_14887(t6,t2,((C_word*)t0)[4],((C_word*)t0)[2]);}

/* k15180 in k15177 in chicken.compiler.scrutinizer#refine-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15182(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15182,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{
C_trace(C_text("scrutinizer.scm:1371: simplify-type"));
f_13584(((C_word*)t0)[3],t2);}}

/* chicken.compiler.scrutinizer#procedure-type? in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15200(C_word c,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!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
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_15200,c,av);}
t3=C_eqp(lf[85],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)){
C_trace(C_text("scrutinizer.scm:1379: procedure-type?"));
t9=t1;
t10=C_i_caddr(t2);
t1=t9;
t2=t10;
c=3;
goto loop;}
else{
t6=C_eqp(t4,lf[85]);
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)){
C_trace(C_text("scrutinizer.scm:1381: every"));
f_7200(t1,lf[122],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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_15252(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
C_save_and_reclaim_args((void *)trf_15252,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)){
C_trace(C_text("scrutinizer.scm:1387: procedure-name"));
t9=t1;
t10=C_i_caddr(t2);
t1=t9;
t2=t10;
goto loop;}
else{
t5=C_eqp(t3,lf[85]);
if(C_truep(t5)){
t6=C_i_cadr(t2);
if(C_truep(C_i_stringp(t6))){
C_trace(C_text("scrutinizer.scm:1390: scheme#string->symbol"));
t7=*((C_word*)lf[253]+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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_15303(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_15303,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)){
C_trace(C_text("scrutinizer.scm:1398: procedure-arguments"));
t10=t1;
t11=C_i_caddr(t2);
t1=t10;
t2=t11;
goto loop;}
else{
t5=C_eqp(t3,lf[85]);
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{
C_trace(C_text("scrutinizer.scm:1404: chicken.compiler.support#bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[344]);
C_word av2[4];
av2[0]=*((C_word*)lf[344]+1);
av2[1]=t1;
av2[2]=lf[399];
av2[3]=t2;
tp(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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_15360(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_15360,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)){
C_trace(C_text("scrutinizer.scm:1409: procedure-results"));
t10=t1;
t11=C_i_caddr(t2);
t1=t10;
t2=t11;
goto loop;}
else{
t5=C_eqp(t3,lf[85]);
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{
C_trace(C_text("scrutinizer.scm:1415: chicken.compiler.support#bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[344]);
C_word av2[4];
av2[0]=*((C_word*)lf[344]+1);
av2[1]=t1;
av2[2]=lf[400];
av2[3]=t2;
tp(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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_15417(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_15417,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_15426,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_15426(t11,t1,t2,C_SCHEME_END_OF_LIST);}

/* loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_15426(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){
C_save_and_reclaim_args((void *)trf_15426,4,t0,t1,t2,t3);}
a=C_alloc(20);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_eqp(lf[85],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_15436,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_15443,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_15443(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_15443(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)){
C_trace(C_text("scrutinizer.scm:1450: 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_15580,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1419: g3046"));
t10=t9;
f_15580(t10,t1,t8);}
else{
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15613,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1457: make-list"));
f_8025(t9,((C_word*)t0)[3],C_a_i_list(&a,1,lf[54]));}}}}

/* k15434 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15436(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_15436,c,av);}
C_trace(C_text("scrutinizer.scm:1448: 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);}}

/* k15441 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_15443(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
C_save_and_reclaim_args((void *)trf_15443,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_15445,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_15445(t5,((C_word*)t0)[6],t1,((C_word*)t0)[7],C_SCHEME_FALSE);}

/* loop in k15441 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_15445(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(62,0,4)))){
C_save_and_reclaim_args((void *)trf_15445,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[365],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{
C_trace(C_text("scrutinizer.scm:1437: 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[366],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[401],C_i_cadr(t2)):C_SCHEME_FALSE);
t10=C_set_block_item(((C_word*)t0)[5],0,t9);
t11=(
C_trace("scrutinizer.scm:1442: rest-type"),
  f_15821(C_u_i_cdr(t2))
);
C_trace(C_text("scrutinizer.scm:1442: make-list"));
f_8025(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_15524,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));
C_trace(C_text("scrutinizer.scm:1447: loop"));
t17=t13;
t18=t14;
t19=t15;
t20=t4;
t1=t17;
t2=t18;
t3=t19;
t4=t20;
goto loop;}}}}}

/* k15522 in loop in k15441 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15524(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_15524,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);}}

/* g3046 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_15580(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_15580,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)){
C_trace(C_text("scrutinizer.scm:1455: loop1"));
t5=((C_word*)((C_word*)t0)[3])[1];
f_15426(t5,t1,lf[54],((C_word*)t0)[2]);}
else{
t5=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[2]);
C_trace(C_text("scrutinizer.scm:1456: loop1"));
t6=((C_word*)((C_word*)t0)[3])[1];
f_15426(t6,t1,t3,t5);}}

/* k15611 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15613(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_15613,c,av);}
C_trace(C_text("scrutinizer.scm:1457: 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 k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_15640(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_15640,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_15651,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1461: g3065"));
t5=t4;
f_15651(t5,t1,t3);}
else{
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_eqp(lf[85],C_u_i_car(t2)):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15673,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1464: scheme#call-with-current-continuation"));
t7=*((C_word*)lf[168]+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)){
C_trace(C_text("scrutinizer.scm:1473: 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[54];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}}}

/* g3065 in loop1 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void f_15651(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
C_save_and_reclaim_args((void *)trf_15651,3,t0,t1,t2);}
C_trace(C_text("scrutinizer.scm:1462: loop1"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_15640(t3,t1,C_i_cadr(t2));}

/* a15672 in loop1 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_15673(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_15673,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15681,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_15681(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_15681(t8,(C_truep(t7)?C_i_cdddr(((C_word*)t0)[2]):C_i_cddr(((C_word*)t0)[2])));}}

/* k15679 in a15672 in loop1 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void f_15681(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_15681,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_15683,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t5=((C_word*)t3)[1];
f_15683(t5,((C_word*)t0)[3],t1);}

/* loop in k15679 in a15672 in loop1 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_15683(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_15683,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[54]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[71]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
C_trace(C_text("scrutinizer.scm:1470: return"));
t3=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[54];
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
else{
t3=C_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15709,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1471: loop"));
t6=t4;
t7=C_u_i_cdr(t2);
t1=t6;
t2=t7;
goto loop;}}}

/* k15707 in loop in k15679 in a15672 in loop1 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_15709(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_15709,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static C_word f_15768(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[85]);
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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static C_word f_15821(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[54]);}
else{
t2=C_i_car(t1);
t3=C_eqp(lf[401],t2);
return((C_truep(t3)?lf[54]:C_u_i_car(t1)));}}

/* chicken.compiler.scrutinizer#noreturn-procedure-type? in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static C_word f_15841(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[85]);
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[402],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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15900(C_word c,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!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
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_15900,c,av);}
t3=C_eqp(lf[71],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)){
C_trace(C_text("scrutinizer.scm:1507: any"));
f_7234(t1,lf[403],C_u_i_cdr(t2));}
else{
t6=C_eqp(t4,lf[29]);
if(C_truep(t6)){
C_trace(C_text("scrutinizer.scm:1508: 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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static C_word f_15944(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[373]);
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);}}

/* k15981 in map-loop2439 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15983(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_15983,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15986,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1525: chicken.base#gensym"));
t4=*((C_word*)lf[198]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k15984 in k15981 in map-loop2439 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15986(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_15986,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=C_a_i_putprop(&a,3,t1,lf[377],((C_word*)t2)[2]);
t4=C_a_i_cons(&a,2,((C_word*)t2)[3],t1);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_i_setslot(((C_word*)((C_word*)t2)[4])[1],C_fix(1),t5);
t7=C_mutate(((C_word *)((C_word*)t2)[4])+1,t5);
t8=((C_word*)((C_word*)t2)[5])[1];
f_13668(t8,((C_word*)t2)[6],C_slot(((C_word*)t2)[7],C_fix(1)));}

/* chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15991(C_word c,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!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_15991,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_15995,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_15997,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_15997(t9,t5,t2);}

/* k15993 in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_15995(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15995,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_15997(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,0,3)))){
C_save_and_reclaim_args((void *)trf_15997,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[373]);
if(C_truep(t4)){
C_trace(C_text("scrutinizer.scm:1535: loop"));
t19=t1;
t20=C_i_caddr(t2);
t1=t19;
t2=t20;
goto loop;}
else{
t5=C_eqp(t3,lf[85]);
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[213]);
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16042,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_16086,a[2]=t13,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
t15=((C_word*)t13)[1];
f_16086(t15,t11,t9);}
else{
t9=C_i_cadr(t2);
t10=C_i_check_list_2(t9,lf[213]);
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16116,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_16159,a[2]=t13,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
t15=((C_word*)t13)[1];
f_16159(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_16201,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_16243,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_16245,a[2]=t10,a[3]=t16,a[4]=t11,tmp=(C_word)a,a+=5,tmp));
t18=((C_word*)t16)[1];
f_16245(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[213]);
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_16292,a[2]=t11,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
t13=((C_word*)t11)[1];
f_16292(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);}}}

/* k16040 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16042(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_16042,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[213]);
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_16059,a[2]=t8,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_16059(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-loop3173 in k16040 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16059(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_16059,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_16069,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1540: g3174"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_15997(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);}}}

/* k16067 in for-each-loop3173 in k16040 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16069(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16069,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_16059(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop3156 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16086(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_16086,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_16096,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1538: g3157"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_15997(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);}}}

/* k16094 in for-each-loop3156 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16096(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16096,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_16086(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k16114 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16116(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_16116,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[213]);
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_16132,a[2]=t7,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_16132(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-loop3208 in k16114 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16132(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_16132,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_16142,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1544: g3209"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_15997(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);}}}

/* k16140 in for-each-loop3208 in k16114 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16142(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16142,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_16132(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop3191 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16159(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_16159,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_16169,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1542: g3192"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_15997(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);}}}

/* k16167 in for-each-loop3191 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16169(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16169,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_16159(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k16199 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16201(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16201,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
C_trace(C_text("scrutinizer.scm:1552: loop"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_15997(t3,((C_word*)t0)[4],C_i_caddr(((C_word*)t0)[5]));}

/* k16241 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16243(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16243,c,av);}
C_trace(C_text("scrutinizer.scm:1546: 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-loop3226 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16245(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
C_save_and_reclaim_args((void *)trf_16245,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_16270,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_16270(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_16270(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);}}}

/* k16268 in map-loop3226 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16270(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_16270,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_16245(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* for-each-loop3254 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16292(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_16292,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_16302,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1554: g3255"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_15997(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);}}}

/* k16300 in for-each-loop3254 in loop in chicken.compiler.scrutinizer#type-typeenv in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16302(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16302,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_16292(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.scrutinizer#trail-restore in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16323(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_16323,3,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16329,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_16329(t4,lf[24])
);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* doloop3274 in chicken.compiler.scrutinizer#trail-restore in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static C_word f_16329(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;}}

/* k16359 in k14852 in chicken.compiler.scrutinizer#type<=? in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16361(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_16361,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16364,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1566: trail-restore"));
f_16323(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k16362 in k16359 in k14852 in chicken.compiler.scrutinizer#type<=? in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16364(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16364,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16366(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_16366,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16374,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_16376,a[2]=t3,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_16376(t8,t4,t2,C_SCHEME_END_OF_LIST);}

/* k16372 in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16374(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16374,c,av);}
C_trace(C_text("scrutinizer.scm:1570: simplify-type"));
f_13584(((C_word*)t0)[2],t1);}

/* resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16376(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){
C_save_and_reclaim_args((void *)trf_16376,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|7,a[1]=(C_word)f_16384,a[2]=C_SCHEME_UNDEFINED,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=C_SCHEME_UNDEFINED,a[7]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("scrutinizer.scm:1572: g3298"));
t6=t5;
f_16384(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{
C_trace(C_text("scrutinizer.scm:1585: chicken.compiler.support#bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[344]);
C_word av2[4];
av2[0]=*((C_word*)lf[344]+1);
av2[1]=t1;
av2[2]=lf[404];
av2[3]=t2;
tp(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{
C_trace(C_text("scrutinizer.scm:1585: chicken.compiler.support#bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[344]);
C_word av2[4];
av2[0]=*((C_word*)lf[344]+1);
av2[1]=t1;
av2[2]=lf[404];
av2[3]=t2;
tp(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_16471,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_16482,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_16484,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_16484(t19,t15,t13);}
else{
t8=C_eqp(t6,lf[70]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16529,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1589: 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[373]));
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_16555,a[2]=t1,a[3]=t11,a[4]=t12,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1591: resolve"));
t20=t13;
t21=C_i_caddr(t2);
t22=t3;
t1=t20;
t2=t21;
t3=t22;
goto loop;}
else{
t11=C_eqp(t6,lf[49]);
t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16568,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_16568(t13,t11);}
else{
t13=C_eqp(t6,lf[48]);
if(C_truep(t13)){
t14=t12;
f_16568(t14,t13);}
else{
t14=C_eqp(t6,lf[51]);
if(C_truep(t14)){
t15=t12;
f_16568(t15,t14);}
else{
t15=C_eqp(t6,lf[360]);
t16=t12;
f_16568(t16,(C_truep(t15)?t15:C_eqp(t6,lf[362])));}}}}}}}}}

/* g3298 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16384(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_16384,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+2,t2);
t4=C_mutate(((C_word *)t0)+6,t1);
t5=C_i_cadr(((C_word*)t0)[2]);
t6=C_mutate(((C_word *)t0)+7,t5);
t7=C_i_not(((C_word*)t0)[7]);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16397,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t7)){
t9=t8;
f_16397(t9,t7);}
else{
t9=C_i_memq(((C_word*)t0)[3],((C_word*)t0)[4]);
t10=t8;
f_16397(t10,(C_truep(t9)?t9:C_i_memq(((C_word*)t0)[7],((C_word*)t0)[4])));}}

/* k16395 in g3298 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16397(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_16397,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
if(C_truep(C_i_caddr(((C_word*)t2)[2]))){
t3=C_i_caddr(((C_word*)t2)[2]);
t4=C_a_i_cons(&a,2,((C_word*)t2)[3],((C_word*)t2)[4]);
C_trace(C_text("scrutinizer.scm:1579: resolve"));
t5=((C_word*)((C_word*)t2)[5])[1];
f_16376(t5,((C_word*)t2)[6],t3,t4);}
else{
t3=((C_word*)t2)[6];{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[54];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
else{
t3=C_a_i_cons(&a,2,((C_word*)t2)[3],((C_word*)t2)[4]);
C_trace(C_text("scrutinizer.scm:1581: resolve"));
t4=((C_word*)((C_word*)t2)[5])[1];
f_16376(t4,((C_word*)t2)[6],((C_word*)t2)[7],t3);}}

/* g3328 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16471(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_16471,3,t0,t1,t2);}
C_trace(C_text("scrutinizer.scm:1588: g3345"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_16376(t3,t1,t2,((C_word*)t0)[3]);}

/* k16480 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16482(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_16482,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-loop3322 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16484(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_16484,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_16509,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1588: g3328"));
t4=((C_word*)t0)[4];
f_16471(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);}}}

/* k16507 in map-loop3322 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16509(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16509,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_16484(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k16527 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_16529,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[70],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k16553 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_16555,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);}}

/* k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16568(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){
C_save_and_reclaim_args((void *)trf_16568,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_16578,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_16589,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_16591,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_16591(t14,t10,t8);}
else{
t2=C_eqp(((C_word*)t0)[6],lf[85]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16632,a[2]=((C_word*)t0)[5],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:1595: procedure-name"));
f_15252(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);}}}}

/* g3380 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16578(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_16578,3,t0,t1,t2);}
C_trace(C_text("scrutinizer.scm:1593: g3397"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_16376(t3,t1,t2,((C_word*)t0)[3]);}

/* k16587 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16589(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_16589,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-loop3374 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16591(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_16591,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_16616,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1593: g3380"));
t4=((C_word*)t0)[4];
f_16578(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);}}}

/* k16614 in map-loop3374 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16616(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16616,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_16591(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k16630 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16632(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16632,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16635,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1596: procedure-arguments"));
f_15303(t3,((C_word*)t0)[6]);}

/* k16633 in k16630 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16635(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_16635,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16638,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:1597: procedure-results"));
f_15360(t3,((C_word*)t2)[6]);}

/* k16636 in k16633 in k16630 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16638(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
C_save_and_reclaim((void *)f_16638,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16645,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_16657,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_16714,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_16714(t8,t4,((C_word*)t0)[6]);}

/* k16643 in k16636 in k16633 in k16630 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16645(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_16645,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[85],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k16655 in k16636 in k16633 in k16630 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16657(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_16657,c,av);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16661,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[54],((C_word*)t0)[4]);
if(C_truep(t3)){
t4=C_a_i_cons(&a,2,t1,lf[54]);
C_trace(C_text("scrutinizer.scm:1598: ##sys#append"));
t5=*((C_word*)lf[405]+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_16668,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_16680,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_16680(t13,t2,((C_word*)t0)[4]);}}

/* k16659 in k16655 in k16636 in k16633 in k16630 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16661(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_16661,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("scrutinizer.scm:1598: ##sys#append"));
t3=*((C_word*)lf[405]+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);}}

/* g3427 in k16655 in k16636 in k16633 in k16630 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16668(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_16668,3,t0,t1,t2);}
C_trace(C_text("scrutinizer.scm:1611: g3444"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_16376(t3,t1,t2,((C_word*)t0)[3]);}

/* map-loop3421 in k16655 in k16636 in k16633 in k16630 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16680(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_16680,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_16705,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1611: g3427"));
t4=((C_word*)t0)[4];
f_16668(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);}}}

/* k16703 in map-loop3421 in k16655 in k16636 in k16633 in k16630 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16705(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16705,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_16680(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* loop in k16636 in k16633 in k16630 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16714(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_16714,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[366],t3);
if(C_truep(t4)){
if(C_truep(C_i_equalp(lf[406],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_16742,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1605: loop"));
t9=t6;
t10=C_u_i_cdr(t2);
t1=t9;
t2=t10;
goto loop;}}
else{
t5=C_eqp(lf[365],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_16761,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1607: 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_16770,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1608: resolve"));
t7=((C_word*)((C_word*)t0)[3])[1];
f_16376(t7,t6,C_u_i_car(t2),((C_word*)t0)[4]);}}}}

/* k16740 in loop in k16636 in k16633 in k16630 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16742(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_16742,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);}}

/* k16759 in loop in k16636 in k16633 in k16630 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16761(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_16761,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);}}

/* k16768 in loop in k16636 in k16633 in k16630 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16770(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_16770,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16774,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1608: loop"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_16714(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k16772 in k16768 in loop in k16636 in k16633 in k16630 in k16566 in resolve in chicken.compiler.scrutinizer#resolve in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16774(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_16774,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16837(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_16837,c,av);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16841,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_rest_nullp(c,4))){
C_trace(C_text("scrutinizer.scm:1618: chicken.platform#repository-path"));
t5=C_fast_retrieve(lf[432]);{
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[2];
av2[0]=t5;
av2[1]=C_get_rest_arg(c,4,av,4,t0);
f_16841(2,av2);}}}

/* k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16841(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_16841,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16844,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_17222,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1620: ##sys#file-exists?"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[430]+1));
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[430]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
av2[5]=C_SCHEME_FALSE;
tp(6,av2);}}
else{
C_trace(C_text("scrutinizer.scm:1621: chicken.load#find-file"));
t3=C_fast_retrieve(lf[431]);{
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);}}}

/* k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_16844,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16850,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17195,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1622: scheme#open-output-string"));
t4=C_fast_retrieve(lf[243]);{
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);}}}

/* k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_16850,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_16855,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16860,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17188,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1623: ##sys#dynamic-wind"));
t9=*((C_word*)lf[225]+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);}}

/* a16854 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16855(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16855,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);}}

/* a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16860(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_16860,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17157,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1684: scheme#call-with-input-file"));
t3=*((C_word*)lf[425]+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_fast_retrieve(lf[426]);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16869(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_16869,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_16875,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_16974,a[2]=((C_word*)t0)[3],a[3]=t9,tmp=(C_word)a,a+=4,tmp));
t11=((C_word*)t9)[1];
f_16974(t11,t5,t7);}

/* k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16875(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
C_save_and_reclaim((void *)f_16875,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16880,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_16886,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);
C_trace(C_text("scrutinizer.scm:1663: ##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);}}

/* a16879 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16880(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16880,c,av);}
C_trace(C_text("scrutinizer.scm:1663: validate-type"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[408]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[408]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16886(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_16886,c,av);}
a=C_alloc(14);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16890,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_16890(2,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16941,a[2]=t5,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1666: scheme#open-output-string"));
t7=C_fast_retrieve(lf[243]);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k16888 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16890(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_16890,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16893,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_16908,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_16934,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1669: compatible-types?"));
f_14791(t4,((C_word*)t0)[6],((C_word*)t0)[5],C_SCHEME_END_OF_LIST);}
else{
t4=t3;
f_16908(t4,C_SCHEME_FALSE);}}

/* k16891 in k16888 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16893(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_16893,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16896,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1680: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[234]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[234]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[66];
av2[4]=((C_word*)t0)[5];
tp(5,av2);}}

/* k16894 in k16891 in k16888 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_16896(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_16896,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16899,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1681: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[234]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[234]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[67];
av2[4]=lf[410];
tp(5,av2);}}

/* k16897 in k16894 in k16891 in k16888 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_16899(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16899,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(((C_word*)t2)[2])){
C_trace(C_text("scrutinizer.scm:1683: install-specializations"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[409]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[409]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=((C_word*)t2)[4];
av2[3]=((C_word*)t2)[2];
tp(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k16906 in k16888 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16908(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
C_save_and_reclaim_args((void *)trf_16908,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16915,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16919,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);
C_trace(C_text("scrutinizer.scm:1672: scheme#string-append"));
t4=*((C_word*)lf[77]+1);{
C_word av2[6];
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[412];
av2[3]=lf[413];
av2[4]=lf[414];
av2[5]=lf[415];
((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_16893(2,av2);}}}

/* k16913 in k16906 in k16888 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_16915(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16915,c,av);}
C_trace(C_text("scrutinizer.scm:1670: chicken.base#warning"));
t2=C_fast_retrieve(lf[91]);{
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);}}

/* k16917 in k16906 in k16888 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_16919(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_16919,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16923,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1678: type->pp-string"));
f_20864(t2,((C_word*)t0)[5]);}

/* k16921 in k16917 in k16906 in k16888 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_16923(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_16923,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16927,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_trace(C_text("scrutinizer.scm:1679: type->pp-string"));
f_20864(t2,((C_word*)t0)[5]);}

/* k16925 in k16921 in k16917 in k16906 in k16888 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_16927(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_16927,c,av);}
C_trace(C_text("scrutinizer.scm:1671: chicken.format#sprintf"));
t2=*((C_word*)lf[411]+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);}}

/* k16932 in k16888 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16934(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16934,c,av);}
t2=((C_word*)t0)[2];
f_16908(t2,C_i_not(t1));}

/* k16939 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16941(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_16941,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16947,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1666: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[417];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k16945 in k16939 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16947(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_16947,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16950,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1666: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k16948 in k16945 in k16939 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_16950(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_16950,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16953,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1666: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[416];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k16951 in k16948 in k16945 in k16939 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_16953(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_16953,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16956,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1666: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t3;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}

/* k16954 in k16951 in k16948 in k16945 in k16939 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_16956(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_16956,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16959,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1666: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t3;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}

/* k16957 in k16954 in k16951 in k16948 in k16945 in k16939 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
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 t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_16959,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16962,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16969,a[2]=t3,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1668: type->pp-string"));
f_20864(t4,((C_word*)t2)[4]);}

/* k16960 in k16957 in k16954 in k16951 in k16948 in k16945 in k16939 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_16962(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16962,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16965,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1666: scheme#get-output-string"));
t3=C_fast_retrieve(lf[239]);{
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);}}

/* k16963 in k16960 in k16957 in k16954 in k16951 in k16948 in k16945 in k16939 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_16965(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16965,c,av);}
C_trace(C_text("scrutinizer.scm:1665: chicken.base#warning"));
t2=C_fast_retrieve(lf[91]);{
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);}}

/* k16967 in k16957 in k16954 in k16951 in k16948 in k16945 in k16939 in a16885 in k16873 in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_16969(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_16969,c,av);}
C_trace(C_text("scrutinizer.scm:1666: ##sys#print"));
t2=*((C_word*)lf[241]+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 k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_16974(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_16974,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[85],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_16990,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17106,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1634: scheme#vector->list"));
t7=*((C_word*)lf[52]+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_17125,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1658: 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);}}}

/* k16988 in adjust in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_16990(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_16990,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[85],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* loop in k17104 in adjust in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17001(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_17001,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[418]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17020,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1638: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[234]);
C_word av2[5];
av2[0]=*((C_word*)lf[234]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[273];
av2[4]=C_SCHEME_TRUE;
tp(5,av2);}}
else{
t5=C_eqp(t3,lf[419]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17034,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1641: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[234]);
C_word av2[5];
av2[0]=*((C_word*)lf[234]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[272];
av2[4]=C_SCHEME_TRUE;
tp(5,av2);}}
else{
t6=C_eqp(t3,lf[420]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17048,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1644: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[234]);
C_word av2[5];
av2[0]=*((C_word*)lf[234]+1);
av2[1]=t7;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[277];
av2[4]=C_SCHEME_TRUE;
tp(5,av2);}}
else{
t7=C_eqp(t3,lf[421]);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17062,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1647: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[234]);
C_word av2[5];
av2[0]=*((C_word*)lf[234]+1);
av2[1]=t8;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[422];
av2[4]=C_SCHEME_TRUE;
tp(5,av2);}}
else{
t8=C_eqp(t3,lf[423]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17076,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1650: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[234]);
C_word av2[5];
av2[0]=*((C_word*)lf[234]+1);
av2[1]=t9;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[166];
av2[4]=C_i_cadr(t2);
tp(5,av2);}}
else{
C_trace(C_text("scrutinizer.scm:1653: chicken.compiler.support#bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[344]);
C_word av2[5];
av2[0]=*((C_word*)lf[344]+1);
av2[1]=t1;
av2[2]=lf[424];
av2[3]=C_u_i_car(t2);
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}}}}}}}

/* k17018 in loop in k17104 in adjust in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17020(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17020,c,av);}
C_trace(C_text("scrutinizer.scm:1639: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17001(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* k17032 in loop in k17104 in adjust in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17034(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17034,c,av);}
C_trace(C_text("scrutinizer.scm:1642: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17001(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* k17046 in loop in k17104 in adjust in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17048(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17048,c,av);}
C_trace(C_text("scrutinizer.scm:1645: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17001(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* k17060 in loop in k17104 in adjust in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17062(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17062,c,av);}
C_trace(C_text("scrutinizer.scm:1648: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17001(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* k17074 in loop in k17104 in adjust in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17076(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17076,c,av);}
C_trace(C_text("scrutinizer.scm:1651: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17001(t2,((C_word*)t0)[3],C_i_cddr(((C_word*)t0)[4]));}

/* k17104 in adjust in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17106(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_17106,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_17001,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_17001(t6,((C_word*)t0)[4],t2);}

/* k17123 in adjust in k16867 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17125(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_17125,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);}}

/* k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17157(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_17157,c,av);}
a=C_alloc(8);
t2=C_i_check_list_2(t1,lf[213]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17163,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_17165,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_17165(t7,t3,t1);}

/* k17161 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17163(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17163,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-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17165(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_17165,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_17175,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_16869,a[2]=t4,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1627: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word av2[4];
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t6;
av2[2]=t5;
av2[3]=lf[66];
tp(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k17173 in for-each-loop3492 in k17155 in a16859 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17175(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17175,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_17165(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* a17187 in k16848 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17188(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17188,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);}}

/* k17193 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17195(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17195,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17201,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1622: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[429];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k17199 in k17193 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17201(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_17201,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17204,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1622: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k17202 in k17199 in k17193 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17204(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17204,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17207,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1622: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[428];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k17205 in k17202 in k17199 in k17193 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17207(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17207,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17210,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1622: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t3;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}

/* k17208 in k17205 in k17202 in k17199 in k17193 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17210(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17210,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17213,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1622: scheme#get-output-string"));
t4=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k17211 in k17208 in k17205 in k17202 in k17199 in k17193 in k16842 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17213(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17213,c,av);}
C_trace(C_text("scrutinizer.scm:1622: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[237]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[237]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[427];
av2[3]=t1;
tp(4,av2);}}

/* k17220 in k16839 in chicken.compiler.scrutinizer#load-type-database in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17222(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17222,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_16844(2,av2);}}

/* loop1 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17245(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_17245,4,t0,t1,t2,t3);}
a=C_alloc(7);
if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_vector_ref(((C_word*)t0)[3],t2);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17261,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_17261(t8,t1,t4,t3);}}

/* loop2 in loop1 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17261(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){
C_save_and_reclaim_args((void *)trf_17261,4,t0,t1,t2,t3);}
a=C_alloc(29);
if(C_truep(C_i_nullp(t2))){
t4=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
C_trace(C_text("scrutinizer.scm:1695: loop1"));
t5=((C_word*)((C_word*)t0)[3])[1];
f_17245(t5,t1,t4,t3);}
else{
t4=C_i_cdr(t2);
t5=C_i_caar(t2);
t6=C_u_i_car(t2);
t7=C_u_i_cdr(t6);
t8=C_a_i_cons(&a,2,t5,t7);
t9=C_a_i_cons(&a,2,t8,t3);
C_trace(C_text("scrutinizer.scm:1696: loop2"));
t11=t1;
t12=t4;
t13=t9;
t1=t11;
t2=t12;
t3=t13;
goto loop;}}

/* k17303 in a17512 in k17509 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17305(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17305,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17309,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1701: scheme#symbol->string"));
t3=*((C_word*)lf[443]+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);}}

/* k17307 in k17303 in a17512 in k17509 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17309,c,av);}
C_trace(C_text("scrutinizer.scm:1700: scheme#string<?"));
t2=*((C_word*)lf[442]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17311(C_word c,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!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_17311,c,av);}
a=C_alloc(5);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17317,a[2]=t5,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1704: scheme#with-output-to-file"));
t7=C_fast_retrieve(lf[449]);{
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);}}

/* a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17317(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_17317,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17321,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17529,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1706: chicken.platform#chicken-version"));
t4=C_fast_retrieve(lf[448]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){
C_save_and_reclaim((void *)f_17321,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17322,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17475,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17511,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=C_i_vector_length(((C_word*)t0)[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|4,a[1]=(C_word)f_17245,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=t7,tmp=(C_word)a,a+=5,tmp));
t9=((C_word*)t7)[1];
f_17245(t9,t4,C_fix(0),C_SCHEME_END_OF_LIST);}

/* g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17322(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_17322,3,t0,t1,t2);}
a=C_alloc(14);
t3=C_i_car(t2);
t4=C_u_i_cdr(t2);
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17333,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t3,a[5]=C_SCHEME_UNDEFINED,a[6]=C_SCHEME_UNDEFINED,a[7]=C_SCHEME_UNDEFINED,a[8]=C_SCHEME_UNDEFINED,a[9]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=10,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17467,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1712: chicken.compiler.support#variable-visible?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[248]);
C_word av2[4];
av2[0]=*((C_word*)lf[248]+1);
av2[1]=t6;
av2[2]=t3;
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}

/* k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17333(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_17333,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17336,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1714: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word av2[4];
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[163];
tp(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);}}}

/* k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17336(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17336,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
t4=C_mutate(((C_word *)t2)+3,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17342,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1715: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[4];
av2[3]=lf[66];
tp(4,av2);}}

/* k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17342(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17342,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+9,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17345,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1716: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
av2[3]=lf[166];
tp(4,av2);}}

/* k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17345(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17345,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+6,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17348,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1717: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
av2[3]=lf[273];
tp(4,av2);}}

/* k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17348(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17348,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+7,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17351,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1718: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
av2[3]=lf[272];
tp(4,av2);}}

/* k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17351(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17351,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+8,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17354,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1719: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
av2[3]=lf[277];
tp(4,av2);}}

/* k17352 in k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17354(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17354,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+5,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17357,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1720: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
av2[3]=lf[422];
tp(4,av2);}}

/* k17355 in k17352 in k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17357(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
C_save_and_reclaim((void *)f_17357,c,av);}
a=C_alloc(21);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17360,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17367,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17371,a[2]=((C_word*)t2)[3],a[3]=t4,a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17373,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[7],a[5]=((C_word*)t2)[8],a[6]=t1,a[7]=t7,tmp=(C_word)a,a+=8,tmp));
t9=((C_word*)t7)[1];
f_17373(t9,t5,((C_word*)t2)[9]);}

/* k17358 in k17355 in k17352 in k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_17360(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17360,c,av);}
C_trace(C_text("scrutinizer.scm:1738: 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);}}

/* k17365 in k17355 in k17352 in k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17367,c,av);}
C_trace(C_text("scrutinizer.scm:1721: chicken.pretty-print#pp"));
t2=C_fast_retrieve(lf[435]);{
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);}}

/* k17369 in k17355 in k17352 in k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_17371(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_17371,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_7270,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_7270(t6,((C_word*)t0)[3],((C_word*)t0)[4],t2);}

/* wrap in k17355 in k17352 in k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void f_17373(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(25,0,3)))){
C_save_and_reclaim_args((void *)trf_17373,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[85]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17394,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17404,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_17412,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[423],((C_word*)t0)[3]):C_SCHEME_END_OF_LIST);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17420,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_17428,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])){
C_trace(C_text("scrutinizer.scm:1726: ##sys#append"));
t14=*((C_word*)lf[405]+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{
C_trace(C_text("scrutinizer.scm:1726: ##sys#append"));
t14=*((C_word*)lf[405]+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])){
C_trace(C_text("scrutinizer.scm:1726: ##sys#append"));
t14=*((C_word*)lf[405]+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{
C_trace(C_text("scrutinizer.scm:1726: ##sys#append"));
t14=*((C_word*)lf[405]+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_17456,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1734: 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);}}}

/* k17392 in wrap in k17355 in k17352 in k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_17394(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_17394,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);}}

/* k17402 in wrap in k17355 in k17352 in k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_17404(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17404,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,lf[85],t1);
C_trace(C_text("scrutinizer.scm:1726: ##sys#list->vector"));
t3=*((C_word*)lf[127]+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);}}

/* k17410 in wrap in k17355 in k17352 in k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_17412(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17412,c,av);}
C_trace(C_text("scrutinizer.scm:1726: ##sys#append"));
t2=*((C_word*)lf[405]+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);}}

/* k17418 in wrap in k17355 in k17352 in k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_17420(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17420,c,av);}
C_trace(C_text("scrutinizer.scm:1726: ##sys#append"));
t2=*((C_word*)lf[405]+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);}}

/* k17426 in wrap in k17355 in k17352 in k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_17428(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17428,c,av);}
C_trace(C_text("scrutinizer.scm:1726: ##sys#append"));
t2=*((C_word*)lf[405]+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);}}

/* k17454 in wrap in k17355 in k17352 in k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_17456(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_17456,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);}}

/* k17465 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17467(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17467,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17471,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1713: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[67];
tp(4,av2);}}
else{
t2=((C_word*)t0)[2];
f_17333(t2,C_SCHEME_FALSE);}}

/* k17469 in k17465 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17471(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17471,c,av);}
t2=((C_word*)t0)[2];
f_17333(t2,C_u_i_memq(t1,lf[440]));}

/* k17473 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17475(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_17475,c,av);}
a=C_alloc(9);
t2=C_i_check_list_2(t1,lf[213]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17481,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_17486,a[2]=t5,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_17486(t7,t3,t1);}

/* k17479 in k17473 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17481(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17481,c,av);}
C_trace(C_text("scrutinizer.scm:1741: chicken.base#print"));
t2=*((C_word*)lf[356]+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[441];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* for-each-loop3602 in k17473 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17486(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_17486,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_17496,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1708: g3603"));
t4=((C_word*)t0)[3];
f_17322(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);}}}

/* k17494 in for-each-loop3602 in k17473 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17496(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17496,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_17486(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k17509 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17511(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){
C_save_and_reclaim((void *)f_17511,c,av);}
a=C_alloc(2);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17513,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:1739: chicken.sort#sort"));
t3=C_fast_retrieve(lf[444]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* a17512 in k17509 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17513(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17513,c,av);}
a=C_alloc(4);
t4=C_i_car(t2);
t5=C_i_car(t3);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17305,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1700: scheme#symbol->string"));
t7=*((C_word*)lf[443]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k17527 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17529(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_17529,c,av);}
C_trace(C_text("scrutinizer.scm:1706: chicken.base#print"));
t2=*((C_word*)lf[356]+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[445];
av2[3]=t1;
av2[4]=lf[446];
av2[5]=((C_word*)t0)[3];
av2[6]=lf[447];
((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}

/* chicken.compiler.scrutinizer#mutate-node! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17532(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_17532,3,t1,t2,t3);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17537,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_17548,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1756: chicken.compiler.support#copy-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[453]);
C_word av2[3];
av2[0]=*((C_word*)lf[453]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}

/* k17535 in chicken.compiler.scrutinizer#mutate-node! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17537(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17537,c,av);}
a=C_alloc(4);
t2=C_mutate(&lf[450] /* (set! chicken.compiler.scrutinizer#node-mutations ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17544,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1757: chicken.compiler.support#build-node-graph"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[452]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[452]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k17542 in k17535 in chicken.compiler.scrutinizer#mutate-node! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17544(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17544,c,av);}
C_trace(C_text("scrutinizer.scm:1757: chicken.compiler.support#copy-node!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[451]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[451]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k17546 in chicken.compiler.scrutinizer#mutate-node! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17548(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_17548,c,av);}
C_trace(C_text("scrutinizer.scm:1756: chicken.base#alist-update!"));
t2=C_fast_retrieve(lf[187]);{
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[450];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* chicken.compiler.scrutinizer#source-node in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17550(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_17550,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_i_nullp(t3);
t5=(C_truep(t4)?*((C_word*)lf[455]+1):C_i_car(t3));
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17557,a[2]=t5,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1760: chicken.base#alist-ref"));
t7=*((C_word*)lf[276]+1);{
C_word av2[5];
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
av2[3]=lf[450];
av2[4]=*((C_word*)lf[375]+1);
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}

/* k17555 in chicken.compiler.scrutinizer#source-node in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17557(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17557,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
C_trace(C_text("scrutinizer.scm:1761: 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)C_fast_retrieve_proc(t2))(3,av2);}}
else{
C_trace(C_text("scrutinizer.scm:1761: source-node"));
f_17550(((C_word*)t0)[3],t1,C_a_i_list(&a,1,((C_word*)t0)[2]));}}

/* chicken.compiler.scrutinizer#source-node-tree in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17577(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_17577,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17583,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:1764: source-node"));
f_17550(t1,t2,C_a_i_list(&a,1,t3));}

/* a17582 in chicken.compiler.scrutinizer#source-node-tree in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17583(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_17583,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17591,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1767: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word *av2=av;
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k17589 in a17582 in chicken.compiler.scrutinizer#source-node-tree in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17591(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17591,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17595,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1768: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k17593 in k17589 in a17582 in chicken.compiler.scrutinizer#source-node-tree in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17595(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_17595,c,av);}
a=C_alloc(12);
t2=((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=lf[456];
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17602,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t1,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:1769: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}

/* k17600 in k17593 in k17589 in a17582 in chicken.compiler.scrutinizer#source-node-tree in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17602(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_17602,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_17608,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_17610,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_17610(t7,t3,t1);}

/* k17606 in k17600 in k17593 in k17589 in a17582 in chicken.compiler.scrutinizer#source-node-tree in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17608(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_17608,c,av);}
C_trace(C_text("scrutinizer.scm:1767: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[270]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[270]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
tp(5,av2);}}

/* map-loop3677 in k17600 in k17593 in k17589 in a17582 in chicken.compiler.scrutinizer#source-node-tree in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17610(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_17610,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_17635,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1769: g3683"));
t4=lf[456];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
f_17577(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);}}}

/* k17633 in map-loop3677 in k17600 in k17593 in k17589 in a17582 in chicken.compiler.scrutinizer#source-node-tree in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17635,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_17610(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k17650 in chicken.compiler.scrutinizer#node-source-prefix in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_17652(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17652,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17658,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1775: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k17656 in k17650 in chicken.compiler.scrutinizer#node-source-prefix in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_17658(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17658,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_eqp(t1,lf[121]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17667,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1777: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}
else{
t4=C_eqp(t1,lf[312]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17706,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1782: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}
else{
t5=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_21463(2,av2);}}}}

/* k17665 in k17656 in k17650 in chicken.compiler.scrutinizer#node-source-prefix in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_17667(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17667,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);
C_trace(C_text("scrutinizer.scm:1780: chicken.compiler.support#source-info->line"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[515]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[515]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_u_i_car(t4);
tp(3,av2);}}
else{
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_21463(2,av2);}}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_21463(2,av2);}}}

/* k17704 in k17656 in k17650 in chicken.compiler.scrutinizer#node-source-prefix in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_17706(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17706,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_car(t1);
f_21463(2,av2);}}

/* chicken.compiler.scrutinizer#specialize-node! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17712(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){
C_save_and_reclaim_args((void *)trf_17712,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_17715,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_17863,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1811: subst"));
t11=((C_word*)t8)[1];
f_17715(t11,t10,t4);}

/* subst in chicken.compiler.scrutinizer#specialize-node! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17715(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(58,0,2)))){
C_save_and_reclaim_args((void *)trf_17715,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_17762,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1800: chicken.base#gensym"));
t8=*((C_word*)lf[198]+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_17772,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_17772(t9,(C_truep(C_i_integerp(t8))?C_eqp(lf[457],C_i_vector_ref(t2,C_fix(1))):C_SCHEME_FALSE));}
else{
t8=t5;
f_17772(t8,C_SCHEME_FALSE);}}
else{
t6=t5;
f_17772(t6,C_SCHEME_FALSE);}}}

/* k17760 in subst in chicken.compiler.scrutinizer#specialize-node! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17762(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_17762,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);}}

/* k17770 in subst in chicken.compiler.scrutinizer#specialize-node! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17772(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,2)))){
C_save_and_reclaim_args((void *)trf_17772,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[124],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_17799,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);
C_trace(C_text("scrutinizer.scm:1810: subst"));
t6=((C_word*)((C_word*)t0)[5])[1];
f_17715(t6,t5,C_u_i_car(((C_word*)t0)[2]));}}}}

/* k17797 in k17770 in subst in chicken.compiler.scrutinizer#specialize-node! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17799(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17799,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17803,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1810: subst"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_17715(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k17801 in k17797 in k17770 in subst in chicken.compiler.scrutinizer#specialize-node! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17803(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_17803,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);}}

/* k17861 in chicken.compiler.scrutinizer#specialize-node! in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17863(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17863,c,av);}
C_trace(C_text("scrutinizer.scm:1811: mutate-node!"));
f_17532(((C_word*)t0)[2],((C_word*)t0)[3],t1);}

/* chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17865(C_word c,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!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(40,c,4)))){
C_save_and_reclaim((void *)f_17865,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_17896,tmp=(C_word)a,a+=2,tmp));
t19=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17930,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_18060,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_19137,a[2]=t5,a[3]=t7,a[4]=t9,a[5]=t11,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:1992: validate"));
t22=((C_word*)t17)[1];
f_18060(t22,t21,t2,C_a_i_list(&a,1,C_SCHEME_FALSE));}

/* loop in k18598 in k18595 in g3941 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17874(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_17874,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_17892,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1837: loop"));
t7=t5;
t8=C_u_i_cdr(t2);
t1=t7;
t2=t8;
goto loop;}}

/* k17890 in loop in k18598 in k18595 in g3941 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17892(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_17892,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17896(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_17896,3,t1,t2,t3);}
a=C_alloc(3);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17902,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(
  f_17902(t4,t3)
);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* loop in memq* in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static C_word f_17902(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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_17930(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_17930,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[458];
((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[365],t4);
t6=(C_truep(t5)?t5:C_eqp(lf[459],C_u_i_car(t2)));
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17961,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1849: validate-llist"));
t12=t7;
t13=C_u_i_cdr(t2);
t1=t12;
t2=t13;
goto loop;}
else{
t7=C_eqp(lf[366],C_u_i_car(t2));
t8=(C_truep(t7)?t7:C_eqp(lf[460],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[461];
((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_17993,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1856: validate"));
t11=((C_word*)((C_word*)t0)[3])[1];
f_18060(t11,t10,C_i_cadr(t2),C_SCHEME_END_OF_LIST);}}}
else{
t9=C_eqp(lf[462],C_u_i_car(t2));
if(C_truep(t9)){
t10=t1;{
C_word av2[2];
av2[0]=t10;
av2[1]=lf[463];
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18020,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1860: validate"));
t11=((C_word*)((C_word*)t0)[3])[1];
f_18060(t11,t10,C_u_i_car(t2),C_SCHEME_END_OF_LIST);}}}}}}}

/* k17959 in validate-llist in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_17961,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[365],t1):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k17991 in validate-llist in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_17993(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_17993,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[366],t1):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k18018 in validate-llist in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18020(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_18020,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18023,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1861: validate-llist"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_17930(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k18021 in k18018 in validate-llist in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18023(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_18023,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_18060(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){
C_save_and_reclaim_args((void *)trf_18060,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[464]))){
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=C_a_i_list(&a,2,lf[53],((C_word*)t4)[1]);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(((C_word*)t4)[1],lf[465]);
if(C_truep(t7)){
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=lf[466];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=C_eqp(((C_word*)t4)[1],lf[467]);
if(C_truep(t8)){
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=lf[54];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t9=C_eqp(((C_word*)t4)[1],lf[468]);
if(C_truep(t9)){
t10=t1;{
C_word av2[2];
av2[0]=t10;
av2[1]=lf[469];
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t10=C_eqp(((C_word*)t4)[1],lf[470]);
if(C_truep(t10)){
t11=t1;{
C_word av2[2];
av2[0]=t11;
av2[1]=lf[36];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t11=C_eqp(((C_word*)t4)[1],lf[471]);
if(C_truep(t11)){
t12=t1;{
C_word av2[2];
av2[0]=t12;
av2[1]=lf[472];
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t12=C_eqp(((C_word*)t4)[1],lf[473]);
if(C_truep(t12)){
t13=t1;{
C_word av2[2];
av2[0]=t13;
av2[1]=lf[474];
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t13=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_18124,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]))){
C_trace(C_text("scrutinizer.scm:1873: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[479]);
C_word av2[4];
av2[0]=*((C_word*)lf[479]+1);
av2[1]=t13;
av2[2]=((C_word*)t4)[1];
av2[3]=lf[480];
tp(4,av2);}}
else{
t14=t13;{
C_word av2[2];
av2[0]=t14;
av2[1]=C_SCHEME_FALSE;
f_18124(2,av2);}}}}}}}}}}}}

/* k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18124(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_18124,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))){
t3=C_i_memq(((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?((C_word*)((C_word*)t0)[3])[1]:C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_i_car(((C_word*)((C_word*)t0)[3])[1]);
t4=C_eqp(lf[70],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_18158,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t8=((C_word*)((C_word*)t0)[3])[1];
C_trace(C_text("scrutinizer.scm:1879: validate"));
t9=((C_word*)((C_word*)t0)[5])[1];
f_18060(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_18190,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);
C_trace(C_text("scrutinizer.scm:1883: scheme#call-with-current-continuation"));
t12=*((C_word*)lf[168]+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_18340,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[124],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_18340(t15,C_i_cadr(t14));}
else{
t14=t7;
f_18340(t14,C_SCHEME_FALSE);}}
else{
t13=t7;
f_18340(t13,C_SCHEME_FALSE);}}
else{
t11=t7;
f_18340(t11,C_SCHEME_FALSE);}}
else{
t10=t7;
f_18340(t10,C_SCHEME_FALSE);}}}}}}

/* k18156 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18158(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_18158,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[70],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a18189 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18190(C_word c,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!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_18190,c,av);}
a=C_alloc(29);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18195,a[2]=((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_18247,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_18294,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_18296,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_18296(t16,t12,t10);}

/* k18193 in a18189 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18195(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_18195,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_18199,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_18210,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_18212,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];
C_trace(C_text("scrutinizer.scm:1896: filter-map"));
f_7484(t4,t5,C_i_cadr(t6));}

/* k18197 in k18193 in a18189 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18199(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_18199,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];
C_trace(C_text("scrutinizer.scm:1905: validate"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_18060(t4,((C_word*)t0)[5],C_i_caddr(t3),C_a_i_list(&a,1,((C_word*)t0)[6]));}

/* k18208 in k18193 in a18189 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18210(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_18210,c,av);}
C_trace(C_text("scrutinizer.scm:1896: 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);}}

/* a18211 in k18193 in a18189 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18212(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_18212,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_18228,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1900: validate"));
t5=((C_word*)((C_word*)t0)[3])[1];
f_18060(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);}}}

/* k18226 in a18211 in k18193 in a18189 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18228(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_18228,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18231,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{
C_trace(C_text("scrutinizer.scm:1901: 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)C_fast_retrieve_proc(t3))(3,av2);}}}

/* k18229 in k18226 in a18211 in k18193 in a18189 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18231(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_18231,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);}}

/* g3845 in a18189 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_18247(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
C_save_and_reclaim_args((void *)trf_18247,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{
C_trace(C_text("scrutinizer.scm:1892: return"));
t5=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t5;
av2[1]=t1;
av2[2]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}}
else{
C_trace(C_text("scrutinizer.scm:1892: return"));
t4=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t4;
av2[1]=t1;
av2[2]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}}
else{
C_trace(C_text("scrutinizer.scm:1892: return"));
t3=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t3;
av2[1]=t1;
av2[2]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}}}

/* k18292 in a18189 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18294(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_18294,c,av);}
C_trace(C_text("scrutinizer.scm:1886: 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-loop3839 in a18189 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_18296(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_18296,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_18321,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1886: g3845"));
t4=((C_word*)t0)[4];
f_18247(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);}}}

/* k18319 in map-loop3839 in a18189 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_18321,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_18296(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_18340(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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){
C_save_and_reclaim_args((void *)trf_18340,2,t0,t1);}
a=C_alloc(17);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18344,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1864: g3881"));
t3=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=(
C_trace("scrutinizer.scm:1864: g3881"),
  f_18344(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_i_cdr(((C_word*)((C_word*)t0)[4])[1]);
t5=C_i_nullp(t4);
if(C_truep(C_i_not(t5))){
t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t7=t6;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=((C_word*)t8)[1];
t10=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]);
t11=C_i_check_list_2(t10,lf[6]);
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18388,a[2]=((C_word*)t0)[3],a[3]=C_SCHEME_UNDEFINED,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_18399,a[2]=t8,a[3]=t14,a[4]=((C_word*)t0)[5],a[5]=t9,tmp=(C_word)a,a+=6,tmp));
t16=((C_word*)t14)[1];
f_18399(t16,t12,t10);}
else{
t6=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
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[53],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);
t10=C_i_symbolp(t9);
t11=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t11;
av2[1]=(C_truep(t10)?((C_word*)((C_word*)t0)[4])[1]:C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t11+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[60],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);
if(C_truep(C_i_symbolp(t11))){
t12=((C_word*)((C_word*)t0)[4])[1];
t13=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t13;
av2[1]=t12;
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
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=((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[373],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|4,a[1]=(C_word)f_18508,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=5,tmp);
t13=((C_word*)((C_word*)t0)[4])[1];
C_trace(C_text("scrutinizer.scm:1927: validate"));
t14=((C_word*)((C_word*)t0)[5])[1];
f_18060(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_18577,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);
C_trace(C_text("scrutinizer.scm:1932: memq*"));
f_17896(t10,lf[476],((C_word*)((C_word*)t0)[4])[1]);}}}}}}

/* g3881 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static C_word f_18344(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);}}

/* k18386 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_18388,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18394,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1919: every"));
f_7200(t3,*((C_word*)lf[397]+1),((C_word*)t0)[3]);}

/* k18392 in k18386 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18394(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_18394,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t1)?C_a_i_cons(&a,2,lf[28],((C_word*)t2)[3]):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* map-loop3890 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_18399(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_18399,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_18424,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1918: g3896"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_18060(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);}}}

/* k18422 in map-loop3890 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18424(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_18424,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_18399(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k18506 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18508(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_18508,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18538,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[4]))){
t4=C_eqp(C_u_i_car(((C_word*)t0)[4]),lf[53]);
t5=t3;
f_18538(t5,(C_truep(t4)?t4:C_i_memq(((C_word*)t0)[4],lf[19])));}
else{
t4=t3;
f_18538(t4,C_i_memq(((C_word*)t0)[4],lf[19]));}}

/* k18536 in k18506 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_18538(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_18538,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)((C_word*)t2)[2])[1];
t4=C_i_cadr(t3);
if(C_truep(C_i_listp(t4))){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18550,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t6=((C_word*)((C_word*)t2)[2])[1];
C_trace(C_text("scrutinizer.scm:1930: every"));
f_7200(t5,*((C_word*)lf[475]+1),C_i_cadr(t6));}
else{
t5=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t3=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k18548 in k18536 in k18506 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18550(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_18550,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)((C_word*)t2)[2])[1];
t4=C_i_cadr(t3);
t5=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_a_i_list3(&a,3,lf[373],t4,((C_word*)t2)[4]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t3=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18577(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_18577,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18580,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
f_18580(2,av2);}}
else{
C_trace(C_text("scrutinizer.scm:1932: memq*"));
f_17896(t2,lf[478],((C_word*)((C_word*)t0)[4])[1]);}}

/* k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18580(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){
C_save_and_reclaim((void *)f_18580,c,av);}
a=C_alloc(17);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18584,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("scrutinizer.scm:1864: g3941"));
t4=t3;
f_18584(t4,((C_word*)t2)[8],t1);}
else{
t3=C_i_car(((C_word*)((C_word*)t2)[4])[1]);
if(C_truep((C_truep(C_eqp(t3,lf[360]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[362]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
if(C_truep(C_i_listp(((C_word*)((C_word*)t2)[4])[1]))){
t4=C_i_length(((C_word*)((C_word*)t2)[4])[1]);
t5=C_eqp(C_fix(2),t4);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18726,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[8],tmp=(C_word)a,a+=4,tmp);
t7=((C_word*)((C_word*)t2)[4])[1];
C_trace(C_text("scrutinizer.scm:1955: validate"));
t8=((C_word*)((C_word*)t2)[3])[1];
f_18060(t8,t6,C_i_cadr(t7),C_SCHEME_END_OF_LIST);}
else{
t6=((C_word*)t2)[8];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t4=((C_word*)t2)[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*)t2)[4])[1]);
if(C_truep((C_truep(C_eqp(t4,lf[51]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[48]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
if(C_truep(C_i_listp(((C_word*)((C_word*)t2)[4])[1]))){
t5=C_i_cdr(((C_word*)((C_word*)t2)[4])[1]);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18768,a[2]=((C_word*)t2)[4],a[3]=t7,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp));
t9=((C_word*)t7)[1];
f_18768(t9,((C_word*)t2)[8],t5,C_SCHEME_END_OF_LIST);}
else{
t5=((C_word*)t2)[8];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t5=C_i_car(((C_word*)((C_word*)t2)[4])[1]);
t6=C_eqp(lf[49],t5);
if(C_truep(t6)){
t7=C_i_length(((C_word*)((C_word*)t2)[4])[1]);
t8=C_eqp(C_fix(3),t7);
if(C_truep(t8)){
t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t10=t9;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=((C_word*)t11)[1];
t13=C_i_cdr(((C_word*)((C_word*)t2)[4])[1]);
t14=C_i_check_list_2(t13,lf[6]);
t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18836,a[2]=((C_word*)t2)[8],a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,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_18847,a[2]=t11,a[3]=t17,a[4]=((C_word*)t2)[3],a[5]=t12,tmp=(C_word)a,a+=6,tmp));
t19=((C_word*)t17)[1];
f_18847(t19,t15,t13);}
else{
t9=((C_word*)t2)[8];{
C_word *av2=av;
av2[0]=t9;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t7=C_i_car(((C_word*)((C_word*)t2)[4])[1]);
t8=C_eqp(lf[85],t7);
if(C_truep(t8)){
t9=C_i_cdr(((C_word*)((C_word*)t2)[4])[1]);
if(C_truep(C_i_pairp(t9))){
t10=C_i_cadr(((C_word*)((C_word*)t2)[4])[1]);
t11=C_i_symbolp(t10);
t12=(C_truep(t11)?C_i_cadr(((C_word*)((C_word*)t2)[4])[1]):((C_word*)t2)[9]);
t13=C_i_cadr(((C_word*)((C_word*)t2)[4])[1]);
t14=C_i_symbolp(t13);
t15=(C_truep(t14)?C_i_cddr(((C_word*)((C_word*)t2)[4])[1]):C_i_cdr(((C_word*)((C_word*)t2)[4])[1]));
if(C_truep(C_i_pairp(t15))){
if(C_truep(C_i_listp(C_u_i_car(t15)))){
t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18917,a[2]=t15,a[3]=((C_word*)t2)[8],a[4]=t12,a[5]=((C_word*)t2)[2],a[6]=C_SCHEME_UNDEFINED,a[7]=((C_word*)t2)[3],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("scrutinizer.scm:1976: validate-llist"));
t17=((C_word*)((C_word*)t2)[10])[1];
f_17930(t17,t16,C_u_i_car(t15));}
else{
t16=((C_word*)t2)[8];{
C_word *av2=av;
av2[0]=t16;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}}
else{
t16=((C_word*)t2)[8];{
C_word *av2=av;
av2[0]=t16;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}}
else{
t10=((C_word*)t2)[8];{
C_word *av2=av;
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}
else{
t9=((C_word*)t2)[8];{
C_word *av2=av;
av2[0]=t9;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}}}}}

/* g3941 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_18584(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_18584,3,t0,t1,t2);}
a=C_alloc(10);
t3=C_i_car(t2);
t4=C_eqp(lf[476],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_18597,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_18597(t8,C_SCHEME_UNDEFINED);}
else{
t8=C_set_block_item(((C_word*)t0)[7],0,t4);
t9=t7;
f_18597(t9,t8);}}

/* k18595 in g3941 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_18597(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_18597,2,t0,t1);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18600,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("scrutinizer.scm:1937: memq*"));
f_17896(t2,lf[477],((C_word*)t0)[3]);}

/* k18598 in k18595 in g3941 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18600(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_18600,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_18624,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_17874,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_17874(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_18632,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_18632(t7,(C_truep(t6)?C_eqp(t1,C_i_cdddr(((C_word*)((C_word*)t0)[7])[1])):C_SCHEME_FALSE));}
else{
t5=t2;
f_18632(t5,C_SCHEME_FALSE);}}}

/* k18622 in k18598 in k18595 in g3941 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_18624,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[85],t3);
C_trace(C_text("scrutinizer.scm:1940: validate"));
t5=((C_word*)((C_word*)t0)[3])[1];
f_18060(t5,((C_word*)t0)[4],t4,C_a_i_list(&a,1,((C_word*)t0)[5]));}

/* k18630 in k18598 in k18595 in g3941 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_18632(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){
C_save_and_reclaim_args((void *)trf_18632,2,t0,t1);}
a=C_alloc(23);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18636,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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[85],t5,t7);
C_trace(C_text("scrutinizer.scm:1946: validate"));
t9=((C_word*)((C_word*)t0)[6])[1];
f_18060(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);}}}

/* k18634 in k18630 in k18598 in k18595 in g3941 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18636(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_18636,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_18647,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1949: validate"));
t4=((C_word*)((C_word*)t0)[6])[1];
f_18060(t4,t3,C_i_cadr(((C_word*)t0)[7]),C_SCHEME_END_OF_LIST);}

/* k18645 in k18634 in k18630 in k18598 in k18595 in g3941 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18647(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_18647,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);}}}

/* k18724 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18726(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_18726,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 k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_18768(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_18768,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_18786,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1960: scheme#reverse"));
t6=*((C_word*)lf[368]+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_18789,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1961: validate"));
t5=((C_word*)((C_word*)t0)[4])[1];
f_18060(t5,t4,C_i_car(t2),C_SCHEME_END_OF_LIST);}}

/* k18784 in loop in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18786(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_18786,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);}}

/* k18787 in loop in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18789(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_18789,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18793,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:1960: g3987"));
t3=t2;
f_18793(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);}}}

/* g3987 in k18787 in loop in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_18793(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_18793,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]);
C_trace(C_text("scrutinizer.scm:1962: loop"));
t5=((C_word*)((C_word*)t0)[4])[1];
f_18768(t5,t1,t3,t4);}

/* k18834 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18836(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_18836,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18842,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1967: every"));
f_7200(t3,*((C_word*)lf[397]+1),((C_word*)t0)[3]);}

/* k18840 in k18834 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18842(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_18842,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t1)?C_a_i_cons(&a,2,lf[49],((C_word*)t2)[3]):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* map-loop3995 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_18847(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_18847,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_18872,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1966: g4001"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_18060(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);}}}

/* k18870 in map-loop3995 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18872(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_18872,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_18847(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k18915 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18917(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_18917,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
if(C_truep(((C_word*)t0)[6])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18926,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1978: every"));
f_7200(t3,*((C_word*)lf[397]+1),((C_word*)t0)[6]);}
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);}}}

/* k18924 in k18915 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18926(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
C_save_and_reclaim((void *)f_18926,c,av);}
a=C_alloc(23);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_u_i_cdr(((C_word*)t2)[2]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18930,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
t5=C_eqp(lf[54],t3);
if(C_truep(t5)){
t6=t4;
f_18930(t6,t3);}
else{
if(C_truep(C_i_listp(t3))){
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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18972,a[2]=t4,a[3]=C_SCHEME_UNDEFINED,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_18980,a[2]=t8,a[3]=t12,a[4]=((C_word*)t2)[7],a[5]=t9,tmp=(C_word)a,a+=6,tmp));
t14=((C_word*)t12)[1];
f_18980(t14,t10,t3);}
else{
t6=t4;
f_18930(t6,C_SCHEME_FALSE);}}}
else{
t3=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k18928 in k18924 in k18915 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_18930(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_18930,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18940,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);
C_trace(C_text("scrutinizer.scm:1987: ##sys#append"));
t6=*((C_word*)lf[405]+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);
C_trace(C_text("scrutinizer.scm:1987: ##sys#append"));
t4=*((C_word*)lf[405]+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);}}}

/* k18938 in k18928 in k18924 in k18915 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18940(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_18940,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[85],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k18970 in k18924 in k18915 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18972(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_18972,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18978,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1984: every"));
f_7200(t3,*((C_word*)lf[397]+1),((C_word*)t0)[3]);}

/* k18976 in k18970 in k18924 in k18915 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_18978(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18978,c,av);}
t2=((C_word*)t0)[2];
t3=((C_word*)t2)[2];
f_18930(t3,(C_truep(t1)?((C_word*)t2)[3]:C_SCHEME_FALSE));}

/* map-loop4037 in k18924 in k18915 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_18980(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_18980,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_19005,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1983: g4043"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_18060(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);}}}

/* k19003 in map-loop4037 in k18924 in k18915 in k18578 in k18575 in k18338 in k18122 in validate in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19005(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_19005,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_18980(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k19135 in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_19137,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19141,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1992: g4068"));
t3=t2;
f_19141(t3,((C_word*)t0)[6],t1);}
else{
C_trace(C_text("scrutinizer.scm:2008: 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);}}}

/* g4068 in k19135 in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19141(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){
C_save_and_reclaim_args((void *)trf_19141,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_19145,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_19180,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp);
t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19204,a[2]=t3,a[3]=t4,a[4]=t7,a[5]=t9,a[6]=t8,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:2001: delete-duplicates"));
f_7395(t10,((C_word*)((C_word*)t0)[4])[1],*((C_word*)lf[375]+1));}
else{
t5=t4;
f_19145(t5,C_SCHEME_UNDEFINED);}}

/* k19143 in g4068 in k19135 in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19145(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_19145,2,t0,t1);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19148,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2003: simplify-type"));
f_13584(t2,((C_word*)((C_word*)t0)[3])[1]);}

/* k19146 in k19143 in g4068 in k19135 in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19148(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_19148,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(((C_word*)((C_word*)t2)[2])[1])){
t3=C_i_car(((C_word*)((C_word*)t2)[2])[1]);
t4=C_eqp(t3,((C_word*)((C_word*)t2)[3])[1]);
if(C_truep(t4)){
C_trace(C_text("scrutinizer.scm:2004: scheme#values"));{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t2)[4];
av2[2]=t1;
av2[3]=C_i_cdr(((C_word*)((C_word*)t2)[2])[1]);
av2[4]=((C_word*)((C_word*)t2)[5])[1];
C_values(5,av2);}}
else{
C_trace(C_text("scrutinizer.scm:2004: scheme#values"));{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t2)[4];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)((C_word*)t2)[5])[1];
C_values(5,av2);}}}
else{
C_trace(C_text("scrutinizer.scm:2004: scheme#values"));{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t2)[4];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)((C_word*)t2)[5])[1];
C_values(5,av2);}}}

/* g4082 in g4068 in k19135 in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19180(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
C_save_and_reclaim_args((void *)trf_19180,3,t0,t1,t2);}
a=C_alloc(12);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19184,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_19197,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19201,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:1998: chicken.syntax#strip-syntax"));
t6=C_fast_retrieve(lf[482]);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k19182 in g4082 in g4068 in k19135 in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19184(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19184,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);}}

/* k19195 in g4082 in g4068 in k19135 in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19197(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_19197,c,av);}
C_trace(C_text("scrutinizer.scm:1998: chicken.plist#put!"));
t2=C_fast_retrieve(lf[481]);{
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[377];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k19199 in g4082 in g4068 in k19135 in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19201(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19201,c,av);}
C_trace(C_text("scrutinizer.scm:1998: scheme#symbol->string"));
t2=*((C_word*)lf[443]+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);}}

/* k19202 in g4068 in k19135 in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19204(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_19204,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_19210,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_19212,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_19212(t7,t3,t1);}

/* k19208 in k19202 in g4068 in k19135 in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19210(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_19210,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_19145(t4,t3);}

/* map-loop4076 in k19202 in g4068 in k19135 in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19212(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_19212,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_19237,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:1997: g4082"));
t4=((C_word*)t0)[4];
f_19180(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);}}}

/* k19235 in map-loop4076 in k19202 in g4068 in k19135 in chicken.compiler.scrutinizer#validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19237(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_19237,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_19212(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* chicken.compiler.scrutinizer#check-and-validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19252(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_19252,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_19261,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19271,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2011: ##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);}}

/* a19260 in chicken.compiler.scrutinizer#check-and-validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19261(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_19261,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19269,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2011: chicken.syntax#strip-syntax"));
t3=C_fast_retrieve(lf[482]);{
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);}}

/* k19267 in a19260 in chicken.compiler.scrutinizer#check-and-validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19269(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19269,c,av);}
C_trace(C_text("scrutinizer.scm:2011: validate-type"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[408]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[408]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* a19270 in chicken.compiler.scrutinizer#check-and-validate-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19271(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_19271,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{
C_trace(C_text("scrutinizer.scm:2013: chicken.base#error"));
t5=*((C_word*)lf[484]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[485];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}

/* chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19286(C_word c,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!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
C_save_and_reclaim((void *)f_19286,c,av);}
a=C_alloc(24);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19289,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_19301,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_19529,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_19531,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_19531(t15,t11,t3);}

/* fail in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19289(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_19289,3,t0,t1,t2);}
C_trace(C_text("scrutinizer.scm:2017: chicken.base#error"));
t3=*((C_word*)lf[484]+1);{
C_word av2[5];
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[486];
av2[3]=t2;
av2[4]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19301(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){
C_save_and_reclaim_args((void *)trf_19301,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_19312,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_19340,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_19478,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_19478(t16,t12,t10);}
else{
C_trace(C_text("scrutinizer.scm:2057: fail"));
t5=((C_word*)t0)[3];
f_19289(t5,t1,t2);}}

/* g4179 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19312(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){
C_save_and_reclaim_args((void *)trf_19312,3,t0,t1,t2);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19318,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19324,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2034: ##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);}}

/* a19317 in g4179 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19318(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19318,c,av);}
C_trace(C_text("scrutinizer.scm:2034: validate-type"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[408]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[408]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=C_SCHEME_FALSE;
tp(4,av2);}}

/* a19323 in g4179 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19324(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_19324,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{
C_trace(C_text("scrutinizer.scm:2036: chicken.base#error"));
t5=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=lf[487];
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);}}}

/* k19338 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19340(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_19340,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19343,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_19476,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2039: append-map"));
f_7030(t3,lf[162],t1,C_SCHEME_END_OF_LIST);}

/* k19341 in k19338 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19343(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
C_save_and_reclaim((void *)f_19343,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_19353,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_19379,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_19407,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_19413,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_19413(t16,t12,t10);}
else{
t5=C_i_cadr(((C_word*)t0)[2]);
t6=C_eqp(lf[54],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{
C_trace(C_text("scrutinizer.scm:2055: fail"));
t7=((C_word*)t0)[6];
f_19289(t7,t3,((C_word*)t0)[2]);}}
default:
C_trace(C_text("scrutinizer.scm:2056: fail"));
t4=((C_word*)t0)[6];
f_19289(t4,t3,((C_word*)t0)[2]);}}

/* k19351 in k19341 in k19338 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19353(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_19353,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);}}

/* g4232 in k19341 in k19338 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19379(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){
C_save_and_reclaim_args((void *)trf_19379,3,t0,t1,t2);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19385,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19391,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2048: ##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);}}

/* a19384 in g4232 in k19341 in k19338 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19385(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19385,c,av);}
C_trace(C_text("scrutinizer.scm:2048: validate-type"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[408]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[408]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=C_SCHEME_FALSE;
tp(4,av2);}}

/* a19390 in g4232 in k19341 in k19338 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19391(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_19391,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{
C_trace(C_text("scrutinizer.scm:2050: chicken.base#error"));
t5=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=lf[488];
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);}}}

/* k19405 in k19341 in k19338 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19407(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_19407,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-loop4226 in k19341 in k19338 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19413(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_19413,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_19438,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2047: g4232"));
t4=((C_word*)t0)[4];
f_19379(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);}}}

/* k19436 in map-loop4226 in k19341 in k19338 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19438(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_19438,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_19413(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k19474 in k19338 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19476(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19476,c,av);}
C_trace(C_text("scrutinizer.scm:2039: 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_7549(3,av2);}}

/* map-loop4173 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19478(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_19478,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_19503,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2033: g4179"));
t4=((C_word*)t0)[4];
f_19312(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);}}}

/* k19501 in map-loop4173 in g4157 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19503(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_19503,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_19478(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k19527 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19529(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_19529,c,av);}
C_trace(C_text("scrutinizer.scm:2018: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[234]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[234]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[163];
av2[4]=t1;
tp(5,av2);}}

/* map-loop4151 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19531(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_19531,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_19556,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2030: g4157"));
t4=((C_word*)t0)[4];
f_19301(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);}}}

/* k19554 in map-loop4151 in chicken.compiler.scrutinizer#install-specializations in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19556(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_19556,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_19531(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* chicken.compiler.scrutinizer#canonicalize-list-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19565(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_19565,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[49],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_19593,a[2]=t10,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t12=((C_word*)t10)[1];
f_19593(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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19593(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_19593,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=C_eqp(lf[32],t2);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19607,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2073: scheme#reverse"));
t6=*((C_word*)lf[368]+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[49],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);
C_trace(C_text("scrutinizer.scm:2075: 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[48],C_i_car(t2)):C_SCHEME_FALSE);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19641,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19645,a[2]=t9,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2077: scheme#reverse"));
t11=*((C_word*)lf[368]+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);}}}}}

/* k19605 in rec in chicken.compiler.scrutinizer#canonicalize-list-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19607(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_19607,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[48],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k19639 in rec in chicken.compiler.scrutinizer#canonicalize-list-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_19641,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[48],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k19643 in rec in chicken.compiler.scrutinizer#canonicalize-list-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19645(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19645,c,av);}
C_trace(C_text("scrutinizer.scm:2077: ##sys#append"));
t2=*((C_word*)lf[405]+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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19679(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_19679,2,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19683,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2085: scheme#symbol->string"));
t4=*((C_word*)lf[443]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k19681 in chicken.compiler.scrutinizer#strip-namespace in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19683(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_19683,c,av);}
a=C_alloc(8);
t2=C_u_i_string_length(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_19689,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_19689(t6,((C_word*)t0)[3],C_fix(0));}

/* loop in k19681 in chicken.compiler.scrutinizer#strip-namespace in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19689(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
C_save_and_reclaim_args((void *)trf_19689,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_i_string_ref(((C_word*)t0)[4],t2);
t5=C_eqp(t4,C_make_character(35));
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19709,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2090: ##sys#substring"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[490]);
C_word av2[5];
av2[0]=*((C_word*)lf[490]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[4];
av2[3]=C_fixnum_plus(t2,C_fix(1));
av2[4]=((C_word*)t0)[2];
tp(5,av2);}}
else{
C_trace(C_text("scrutinizer.scm:2091: loop"));
t8=t1;
t9=C_fixnum_plus(t2,C_fix(1));
t1=t8;
t2=t9;
goto loop;}}}

/* k19707 in loop in k19681 in chicken.compiler.scrutinizer#strip-namespace in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19709(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19709,c,av);}
C_trace(C_text("scrutinizer.scm:2090: ##sys#string->symbol"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[489]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[489]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19727(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,6)))){
C_save_and_reclaim((void *)f_19727,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_19729,tmp=(C_word)a,a+=2,tmp));
t7=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19828,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19883,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2144: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[645]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[645]+1);
av2[1]=t8;
av2[2]=lf[660];
av2[3]=lf[275];
av2[4]=((C_word*)t5)[1];
tp(5,av2);}}

/* known-length-vector-index in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_19729(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_19729,5,t1,t2,t3,t4,t5);}
a=C_alloc(7);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19733,a[2]=t5,a[3]=t3,a[4]=t1,a[5]=t4,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:2118: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word av2[3];
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t6;
av2[2]=t2;
tp(3,av2);}}

/* k19731 in known-length-vector-index in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19733(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(35,c,2)))){
C_save_and_reclaim((void *)f_19733,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)f26869,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);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t5;
av2[2]=t4;
tp(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);}}}

/* k19794 in k19806 in k19810 */
static void C_ccall f_19796(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19796,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);}}

/* k19806 in k19810 */
static void C_ccall f_19808(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
C_save_and_reclaim((void *)f_19808,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_19796,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2131: r-index-out-of-range"));
f_22273(t6,((C_word*)t0)[4],((C_word*)t0)[5],t2,t3,lf[492]);}}
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);}}}

/* k19810 */
static void C_ccall f_19812(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_19812,c,av);}
a=C_alloc(6);
t2=C_eqp(lf[124],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19808,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2125: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
tp(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 k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_19828,c,av);}
a=C_alloc(6);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19832,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2137: known-length-vector-index"));
f_19729(t6,t2,t3,t4,C_fix(2));}

/* k19830 in vector-ref-result-type in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_19832,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=C_i_cadr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f26874,a[2]=C_SCHEME_UNDEFINED,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);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t3;
av2[2]=t2;
tp(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);}}}

/* k19851 in k19874 */
static void C_ccall f_19853(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_19853,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);}}

/* k19874 */
static void C_ccall f_19876(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
C_save_and_reclaim((void *)f_19876,c,av);}
a=C_alloc(21);
t2=((C_word*)t0)[2];
t3=C_i_cadr(t1);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19853,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
t5=C_a_i_list(&a,2,lf[124],((C_word*)t2)[3]);
t6=C_a_i_list(&a,3,lf[493],t3,t5);
C_trace(C_text("scrutinizer.scm:2140: mutate-node!"));
f_17532(t4,((C_word*)t2)[6],t6);}
else{
t4=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19883(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_19883,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19886,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2145: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[645]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[645]+1);
av2[1]=t2;
av2[2]=lf[659];
av2[3]=lf[275];
av2[4]=((C_word*)((C_word*)t0)[4])[1];
tp(5,av2);}}

/* k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19886(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){
C_save_and_reclaim((void *)f_19886,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19889,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23504,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2147: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[645]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[645]+1);
av2[1]=t2;
av2[2]=lf[658];
av2[3]=lf[275];
av2[4]=t3;
tp(5,av2);}}

/* k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_19889(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_19889,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20074,tmp=(C_word)a,a+=2,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20169,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_23486,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23488,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:2227: list+index-call-result-type-special-case"));
f_20074(t4,t5);}

/* a19941 in k20151 in k20155 */
static void C_ccall f_19942(C_word c,C_word *av){
C_word tmp;
C_word t0=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!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_19942,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_6997,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_6997(t6,t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST,t2);}

/* a19951 in k20151 in k20155 */
static void C_ccall f_19952(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_19952,c,av);}
a=C_alloc(6);
t4=C_i_nullp(t2);
t5=(C_truep(t4)?lf[32]:C_a_i_cons(&a,2,lf[48],t2));
t6=C_i_nullp(t3);
t7=(C_truep(t6)?lf[32]:C_a_i_cons(&a,2,lf[48],t3));
C_trace(C_text("scrutinizer.scm:2183: k"));
t8=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t8;
av2[1]=t1;
av2[2]=t5;
av2[3]=t7;
((C_proc)C_fast_retrieve_proc(t8))(4,av2);}}

/* lp in k20151 in k20155 */
static void f_19979(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,0,4)))){
C_save_and_reclaim_args((void *)trf_19979,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_19997,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2188: scheme#reverse"));
t7=*((C_word*)lf[368]+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[49]):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));
C_trace(C_text("scrutinizer.scm:2191: 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);}}}}

/* k19995 in lp in k20151 in k20155 */
static void C_ccall f_19997(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_19997,c,av);}
a=C_alloc(3);
t2=C_i_nullp(t1);
t3=(C_truep(t2)?lf[32]:C_a_i_cons(&a,2,lf[48],t1));
C_trace(C_text("scrutinizer.scm:2188: 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)C_fast_retrieve_proc(t4))(4,av2);}}

/* list+index-call-result-type-special-case in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_20074(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,6)))){
C_save_and_reclaim_args((void *)trf_20074,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_20076,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* f_20076 in list+index-call-result-type-special-case in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_20076(C_word c,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!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_20076,c,av);}
a=C_alloc(8);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20080,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);
C_trace(C_text("scrutinizer.scm:2206: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2=av;
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t6;
av2[2]=t2;
tp(3,av2);}}

/* k20078 */
static void C_ccall f_20080(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_20080,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20083,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)f26883,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);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t6;
av2[2]=t5;
tp(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);}}}

/* k20081 in k20078 */
static void C_ccall f_20083(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20083,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);}}

/* k20127 in k20151 in k20155 */
static void C_ccall f_20129(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20129,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);}}

/* k20130 in k20151 in k20155 */
static void C_ccall f_20132(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_20132,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_20138,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[32]);
if(C_truep(t3)){
t4=t2;
f_20138(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[48]):C_SCHEME_FALSE);
t6=t2;
f_20138(t6,(C_truep(t5)?C_i_length(C_i_cdr(((C_word*)t0)[8])):C_SCHEME_FALSE));}}}

/* k20136 in k20130 in k20151 in k20155 */
static void f_20138(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_20138,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20142,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2213: g4504"));
t3=t2;
f_20142(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);}}}

/* g4504 in k20136 in k20130 in k20151 in k20155 */
static void f_20142(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,6)))){
C_save_and_reclaim_args((void *)trf_20142,3,t0,t1,t2);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20146,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2221: r-index-out-of-range"));
f_22273(t3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t2,lf[496]);}

/* k20144 in g4504 in k20136 in k20130 in k20151 in k20155 */
static void C_ccall f_20146(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20146,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);}}

/* k20151 in k20155 */
static void C_ccall f_20153(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,6)))){
C_save_and_reclaim((void *)f_20153,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_20129,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2214: r-index-out-of-range"));
f_22273(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,lf[494],lf[495]);}
else{
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20132,a[2]=((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[32]);
if(C_truep(t6)){
C_trace(C_text("scrutinizer.scm:2179: 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)C_fast_retrieve_proc(t7))(4,av2);}}
else{
t7=t3;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
f_20132(2,av2);}}}
else{
t6=t3;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_20132(2,av2);}}}
else{
t5=C_i_car(((C_word*)t0)[7]);
t6=C_eqp(t5,lf[48]);
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_19942,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_19952,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2182: ##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_20132(2,av2);}}}
else{
t7=C_i_car(((C_word*)t0)[7]);
t8=C_eqp(t7,lf[49]);
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_19979,a[2]=((C_word*)t0)[8],a[3]=t10,tmp=(C_word)a,a+=4,tmp));
t12=((C_word*)t10)[1];
f_19979(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_20132(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);}}}

/* k20155 */
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 t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_20157,c,av);}
a=C_alloc(9);
t2=C_eqp(lf[124],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20153,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("scrutinizer.scm:2211: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[9];
tp(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);}}}

/* k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_20169(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_20169,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20172,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23476,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23478,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:2233: list+index-call-result-type-special-case"));
f_20074(t3,t4);}

/* k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_20172(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_20172,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20175,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23409,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:2236: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[645]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[645]+1);
av2[1]=t2;
av2[2]=lf[652];
av2[3]=lf[275];
av2[4]=t3;
tp(5,av2);}}

/* k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_20175,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20178,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23344,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:2242: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[645]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[645]+1);
av2[1]=t2;
av2[2]=lf[650];
av2[3]=lf[275];
av2[4]=t3;
tp(5,av2);}}

/* k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_20178(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_20178,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20181,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23287,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:2248: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[645]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[645]+1);
av2[1]=t2;
av2[2]=lf[648];
av2[3]=lf[275];
av2[4]=t3;
tp(5,av2);}}

/* k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_20181(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_20181,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20184,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23230,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:2252: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[645]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[645]+1);
av2[1]=t2;
av2[2]=lf[647];
av2[3]=lf[275];
av2[4]=t3;
tp(5,av2);}}

/* k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_20184(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_20184,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20187,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23168,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:2256: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[645]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[645]+1);
av2[1]=t2;
av2[2]=lf[368];
av2[3]=lf[275];
av2[4]=t3;
tp(5,av2);}}

/* k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_20187(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){
C_save_and_reclaim((void *)f_20187,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20189,tmp=(C_word)a,a+=2,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20352,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2306: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[645]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[645]+1);
av2[1]=t3;
av2[2]=lf[5];
av2[3]=lf[275];
av2[4]=t2;
tp(5,av2);}}

/* append-special-case in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_20189(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_20189,c,av);}
a=C_alloc(9);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20198,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_20343,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2303: derive-result-type"));
t8=t6;
f_20198(t8,t7);}

/* derive-result-type in append-special-case in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void f_20198(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_20198,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_20208,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_20208(t6,t1,t2,C_fix(1));}

/* lp in derive-result-type in append-special-case in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void f_20208(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_20208,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[32];
((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)f26890,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);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word av2[3];
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t5;
av2[2]=t4;
tp(3,av2);}}}

/* k20228 */
static void C_ccall f_20230(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_20230,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20245,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2284: scheme#reverse"));
t3=*((C_word*)lf[368]+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);}}}

/* k20243 in k20228 */
static void C_ccall f_20245(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_20245,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20248,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_20250,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_20250(t6,t2,t1,((C_word*)t0)[3]);}

/* k20246 in k20243 in k20228 */
static void C_ccall f_20248(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_20248,c,av);}
C_trace(C_text("scrutinizer.scm:2282: canonicalize-list-type"));
f_19565(((C_word*)t0)[2],t1);}

/* foldl4710 in k20243 in k20228 */
static void f_20250(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_20250,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[49],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);}}}

/* k20287 */
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;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_20289,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=C_a_i_list(&a,3,lf[28],((C_word*)t0)[2],t1);
C_trace(C_text("scrutinizer.scm:2289: simplify-type"));
f_13584(((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);}}}

/* k20304 */
static void C_ccall f_20306(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20306,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);}}

/* k20310 */
static void C_ccall f_20312(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_20312,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_20319,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("scrutinizer.scm:2301: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t2;
av2[2]=lf[5];
av2[3]=lf[66];
tp(4,av2);}}}

/* k20317 in k20310 */
static void C_ccall f_20319(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_20319,c,av);}
C_trace(C_text("scrutinizer.scm:2299: r-proc-call-argument-type-mismatch"));
f_22134(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[48],((C_word*)t0)[7],t1);}

/* k20341 in append-special-case in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_20343(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_20343,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);}}

/* k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_20352(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_20352,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20355,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2307: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[645]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[645]+1);
av2[1]=t2;
av2[2]=lf[405];
av2[3]=lf[275];
av2[4]=((C_word*)t0)[3];
tp(5,av2);}}

/* k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_20355(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_20355,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20450,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20359,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:2330: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[645]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[645]+1);
av2[1]=t2;
av2[2]=lf[646];
av2[3]=lf[275];
av2[4]=t3;
tp(5,av2);}}

/* f_20359 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 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=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!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_20359,c,av);}
a=C_alloc(5);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20363,a[2]=t1,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2317: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2=av;
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t6;
av2[2]=t2;
tp(3,av2);}}

/* k20361 */
static void C_ccall f_20363(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_20363,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_20375,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_20375(t4,lf[54]);
case C_fix(3):
t4=C_i_caddr(((C_word*)t0)[4]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26929,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t5;
av2[2]=t4;
tp(3,av2);}
default:
t4=t3;
f_20375(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);}}}

/* k20373 in k20361 */
static void f_20375(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_20375,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_20427,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);
C_trace(C_text("scrutinizer.scm:2323: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word av2[3];
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t3;
av2[2]=t2;
tp(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);}}}

/* k20403 in k20421 in k20425 in k20373 in k20361 */
static void C_ccall f_20405(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_20405,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20419,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2327: make-list"));
f_8025(t3,((C_word*)t2)[4],C_a_i_list(&a,1,((C_word*)t2)[5]));}
else{
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k20417 in k20403 in k20421 in k20425 in k20373 in k20361 */
static void C_ccall f_20419(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_20419,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,lf[51],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);}}

/* k20421 in k20425 in k20373 in k20361 */
static void C_ccall f_20423(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_20423,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_mutate(((C_word *)t0)+4,t2);
if(C_truep(((C_word*)t0)[4])){
if(C_truep(C_fixnump(((C_word*)t0)[4]))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20405,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2326: scheme#<="));{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=t4;
av2[2]=C_fix(0);
av2[3]=((C_word*)t0)[4];
av2[4]=C_fix(256);
C_less_or_equal_p(5,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{
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);}}}

/* k20425 in k20373 in k20361 */
static void C_ccall f_20427(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_20427,c,av);}
a=C_alloc(6);
t2=C_eqp(lf[124],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20423,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2324: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(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);}}}

/* k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_20450(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(36,c,9)))){
C_save_and_reclaim((void *)f_20450,c,av);}
a=C_alloc(36);
t2=C_mutate(&lf[370] /* (set! chicken.compiler.scrutinizer#over-all-instantiations ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20452,tmp=(C_word)a,a+=2,tmp));
t3=C_mutate(&lf[316] /* (set! chicken.compiler.scrutinizer#string-add-indent ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20777,tmp=(C_word)a,a+=2,tmp));
t4=C_mutate(&lf[75] /* (set! chicken.compiler.scrutinizer#type->pp-string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20864,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate(&lf[143] /* (set! chicken.compiler.scrutinizer#fragment ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21330,tmp=(C_word)a,a+=2,tmp));
t6=C_mutate(&lf[76] /* (set! chicken.compiler.scrutinizer#pp-fragment ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21435,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate(&lf[324] /* (set! chicken.compiler.scrutinizer#node-source-prefix ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21459,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate(&lf[318] /* (set! chicken.compiler.scrutinizer#location-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21489,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate(&lf[520] /* (set! chicken.compiler.scrutinizer#variable-and-module ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21659,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate(&lf[92] /* (set! chicken.compiler.scrutinizer#variable-from-module ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21710,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate(&lf[103] /* (set! chicken.compiler.scrutinizer#describe-expression ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21770,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate(&lf[72] /* (set! chicken.compiler.scrutinizer#report2 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21900,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate(&lf[170] /* (set! chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22134,tmp=(C_word)a,a+=2,tmp));
t14=C_mutate(&lf[271] /* (set! chicken.compiler.scrutinizer#r-proc-call-argument-value-count ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22180,tmp=(C_word)a,a+=2,tmp));
t15=C_mutate(&lf[491] /* (set! chicken.compiler.scrutinizer#r-index-out-of-range ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22273,tmp=(C_word)a,a+=2,tmp));
t16=C_mutate(&lf[220] /* (set! chicken.compiler.scrutinizer#r-conditional-value-count-invalid ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22405,tmp=(C_word)a,a+=2,tmp));
t17=C_mutate(&lf[221] /* (set! chicken.compiler.scrutinizer#r-let-value-count-invalid ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22467,tmp=(C_word)a,a+=2,tmp));
t18=C_mutate(&lf[268] /* (set! chicken.compiler.scrutinizer#r-assignment-value-count-invalid ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22587,tmp=(C_word)a,a+=2,tmp));
t19=C_mutate(&lf[62] /* (set! chicken.compiler.scrutinizer#r-deprecated-identifier ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23078,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 k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_20452(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,0,3)))){
C_save_and_reclaim_args((void *)trf_20452,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_20455,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_20519,a[2]=t4,a[3]=t7,tmp=(C_word)a,a+=4,tmp));
t15=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20651,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);
C_trace(C_text("scrutinizer.scm:2379: delete-duplicates"));
f_7395(t15,t2,*((C_word*)lf[375]+1));}

/* restore in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void f_20455(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_20455,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_20464,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_20464(t7,t1,lf[24]);}

/* doloop4789 in restore in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void f_20464(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_20464,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_20515,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);
C_trace(C_text("scrutinizer.scm:2354: resolve"));
t6=lf[119];{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_u_i_car(t2);
av2[3]=((C_word*)t0)[5];
f_16366(4,av2);}}}

/* k20513 in doloop4789 in restore in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_20515(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_20515,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_20464(t9,((C_word*)t0)[7],C_u_i_cdr(((C_word*)t0)[4]));}

/* collect in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void f_20519(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){
C_save_and_reclaim_args((void *)trf_20519,2,t0,t1);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20523,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_20597,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_20607,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_20609,a[2]=t6,a[3]=t13,a[4]=t7,tmp=(C_word)a,a+=5,tmp));
t15=((C_word*)t13)[1];
f_20609(t15,t11,t9);}

/* k20521 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_20523(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_20523,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_20527,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_20561,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_20561(t11,((C_word*)t0)[4],t1);}

/* g4837 in k20521 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void f_20527(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_20527,3,t0,t1,t2);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20535,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20537,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2366: filter-map"));
f_7484(t3,t4,((C_word*)((C_word*)t0)[3])[1]);}

/* k20533 in g4837 in k20521 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_20535(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_20535,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);}}

/* a20536 in g4837 in k20521 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_20537(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20537,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[54]:C_SCHEME_FALSE));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* map-loop4831 in k20521 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void f_20561(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_20561,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_20586,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2363: g4837"));
t4=((C_word*)t0)[4];
f_20527(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);}}}

/* k20584 in map-loop4831 in k20521 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_20586(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20586,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_20561(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k20595 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_20597(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_20597,c,av);}
C_trace(C_text("scrutinizer.scm:2362: delete-duplicates"));
f_7395(((C_word*)t0)[2],t1,*((C_word*)lf[375]+1));}

/* k20605 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_20607(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_20607,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_7298,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_7298(t5,((C_word*)t0)[2],t1);}

/* map-loop4804 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void f_20609(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_20609,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_20634,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2362: g4810"));
t4=lf[12];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
f_7549(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);}}}

/* k20632 in map-loop4804 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_20634(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20634,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_20609(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k20649 in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_20651(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_20651,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_20653,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_20653(t5,((C_word*)t0)[8],t1,C_SCHEME_FALSE);}

/* loop in k20649 in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void f_20653(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_20653,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_20667,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20702,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2388: collect"));
t7=((C_word*)((C_word*)t0)[4])[1];
f_20519(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_20740,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);
C_trace(C_text("scrutinizer.scm:2391: process"));
t5=((C_word*)t0)[8];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_car(t2);
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}}

/* g4882 in loop in k20649 in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void f_20667(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_20667,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_20683,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);
C_trace(C_text("scrutinizer.scm:2387: simplify-type"));
f_13584(t8,t10);}

/* k20681 in g4882 in loop in k20649 in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_20683(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20683,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);}}

/* k20700 in loop in k20649 in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_20702(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_20702,c,av);}
a=C_alloc(9);
t2=C_i_check_list_2(t1,lf[213]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20708,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_20710,a[2]=t5,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_20710(t7,t3,t1);}

/* k20706 in k20700 in loop in k20649 in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_20708(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20708,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-loop4881 in k20700 in loop in k20649 in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void f_20710(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_20710,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_20720,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2383: g4882"));
t4=((C_word*)t0)[3];
f_20667(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);}}}

/* k20718 in for-each-loop4881 in k20700 in loop in k20649 in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_20720(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_20720,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_20710(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k20738 in loop in k20649 in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_20740(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_20740,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20743,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2392: restore"));
t3=((C_word*)((C_word*)t0)[5])[1];
f_20455(t3,t2);}
else{
if(C_truep(((C_word*)t0)[6])){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20754,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2395: restore"));
t3=((C_word*)((C_word*)t0)[5])[1];
f_20455(t3,t2);}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20757,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);
C_trace(C_text("scrutinizer.scm:2398: restore"));
t3=((C_word*)((C_word*)t0)[5])[1];
f_20455(t3,t2);}}}

/* k20741 in k20738 in loop in k20649 in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_20743(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_20743,c,av);}
C_trace(C_text("scrutinizer.scm:2393: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_20653(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_SCHEME_TRUE);}

/* k20752 in k20738 in loop in k20649 in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_20754(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20754,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);}}

/* k20755 in k20738 in loop in k20649 in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_20757(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_20757,c,av);}
C_trace(C_text("scrutinizer.scm:2399: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_20653(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* chicken.compiler.scrutinizer#string-add-indent in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_20777(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_20777,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_i_nullp(t3);
t5=(C_truep(t4)?lf[497]:C_i_car(t3));
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20784,a[2]=t2,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2407: chicken.string#string-split"));
t7=C_fast_retrieve(lf[502]);{
C_word av2[5];
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
av2[3]=lf[503];
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}

/* k20782 in chicken.compiler.scrutinizer#string-add-indent in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_20784(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
C_save_and_reclaim((void *)f_20784,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20787,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_20810,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20822,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_20824,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_20824(t12,t8,t1);}

/* k20785 in k20782 in chicken.compiler.scrutinizer#string-add-indent in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_20787(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_20787,c,av);}
a=C_alloc(5);
t2=C_u_i_string_length(((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)){
C_trace(C_text("##sys#string-append"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[498]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[498]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=lf[499];
tp(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);}}}

/* g4933 in k20782 in chicken.compiler.scrutinizer#string-add-indent in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void f_20810(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_20810,3,t0,t1,t2);}
if(C_truep(C_i_string_equal_p(lf[500],t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
C_trace(C_text("scrutinizer.scm:2412: scheme#string-append"));
t3=*((C_word*)lf[77]+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);}}}

/* k20820 in k20782 in chicken.compiler.scrutinizer#string-add-indent in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_20822(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_20822,c,av);}
C_trace(C_text("scrutinizer.scm:2408: chicken.string#string-intersperse"));
t2=C_fast_retrieve(lf[314]);{
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[501];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop4927 in k20782 in chicken.compiler.scrutinizer#string-add-indent in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void f_20824(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_20824,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_20849,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2409: g4933"));
t4=((C_word*)t0)[4];
f_20810(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);}}}

/* k20847 in map-loop4927 in k20782 in chicken.compiler.scrutinizer#string-add-indent in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 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 t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20849,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_20824(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_20864(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){
C_save_and_reclaim_args((void *)trf_20864,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_20890,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21307,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21328,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2455: chicken.syntax#strip-syntax"));
t8=C_fast_retrieve(lf[482]);{
C_word av2[3];
av2[0]=t8;
av2[1]=t7;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}

/* k20869 in map-loop5029 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_20871(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_20871,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20874,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)f26497,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2423: scheme#string->symbol"));
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]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=C_a_i_list2(&a,2,lf[505],((C_word*)t0)[3]);
C_trace(C_text("scrutinizer.scm:2422: ##sys#error"));
t4=*((C_word*)lf[506]+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);}}}

/* k20872 in k20869 in map-loop5029 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_20874(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20874,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20881,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2423: scheme#string->symbol"));
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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k20879 in k20872 in k20869 in map-loop5029 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
static void C_ccall f_20881(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_20881,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
f_21016(t2,C_a_i_list2(&a,2,lf[124],t1));}

/* conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void f_20890(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
C_save_and_reclaim_args((void *)trf_20890,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_20896,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_20909,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2428: chicken.base#alist-ref"));
t9=*((C_word*)lf[276]+1);{
C_word av2[5];
av2[0]=t9;
av2[1]=t8;
av2[2]=t2;
av2[3]=t5;
av2[4]=*((C_word*)lf[375]+1);
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
else{
t8=(
C_trace("scrutinizer.scm:2429: refinement-type?"),
  f_15944(t2)
);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20925,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2431: scheme#open-output-string"));
t10=C_fast_retrieve(lf[243]);{
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_21004,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)){
C_trace(C_text("scrutinizer.scm:2435: every"));
f_7200(t11,*((C_word*)lf[475]+1),C_i_cadr(t2));}
else{
t13=t11;{
C_word av2[2];
av2[0]=t13;
av2[1]=C_SCHEME_FALSE;
f_21004(2,av2);}}}}}

/* R in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void f_20896(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_20896,3,t0,t1,t2);}
a=C_alloc(3);
C_trace(C_text("scrutinizer.scm:2425: conv"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_20890(t3,t1,t2,C_a_i_list(&a,1,((C_word*)t0)[3]));}

/* k20907 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_20909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20909,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);}}

/* k20923 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_20925(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){
C_save_and_reclaim((void *)f_20925,c,av);}
a=C_alloc(25);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[236]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20931,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_20948,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_fast_retrieve(lf[321]);
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_20961,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_20963,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_20963(t16,t12,t10);}

/* k20929 in k20923 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_20931(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_20931,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20934,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2431: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t2;
av2[2]=C_make_character(45);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k20932 in k20929 in k20923 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_20934(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_20934,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20937,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2431: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_caddr(((C_word*)t2)[4]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k20935 in k20932 in k20929 in k20923 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_20937(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20937,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20940,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2431: scheme#get-output-string"));
t3=C_fast_retrieve(lf[239]);{
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);}}

/* k20938 in k20935 in k20932 in k20929 in k20923 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
static void C_ccall f_20940(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_20940,c,av);}
C_trace(C_text("scrutinizer.scm:2430: scheme#string->symbol"));
t2=*((C_word*)lf[253]+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);}}

/* k20946 in k20923 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_20948(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_20948,c,av);}
C_trace(C_text("scrutinizer.scm:2431: ##sys#print"));
t2=*((C_word*)lf[241]+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);}}

/* k20959 in k20923 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_20961(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_20961,c,av);}
C_trace(C_text("scrutinizer.scm:2431: chicken.string#string-intersperse"));
t2=C_fast_retrieve(lf[314]);{
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[504];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop4991 in k20923 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void f_20963(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_20963,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_20988,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2431: g4997"));
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);}}}

/* k20986 in map-loop4991 in k20923 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_20988(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20988,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_20963(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21004(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_21004,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_21025,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_21034,a[2]=t4,a[3]=t10,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_21034(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[70]))?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[51]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[49]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[362]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[360]))?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_21093,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_21095,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_21095(t13,t9,t7);}
else{
t3=C_eqp(lf[53],((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[85],((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_21145,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);
C_trace(C_text("scrutinizer.scm:2443: procedure-arguments"));
f_15303(t9,((C_word*)t0)[2]);}
else{
C_trace(C_text("scrutinizer.scm:2454: chicken.compiler.support#bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[344]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[344]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=lf[507];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}}}}}}

/* k21014 in map-loop5029 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void f_21016(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_21016,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_21034(t6,((C_word*)t0)[5],C_slot(((C_word*)t0)[6],C_fix(1)));}

/* k21023 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21025(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21025,c,av);}
a=C_alloc(3);
C_trace(C_text("scrutinizer.scm:2437: conv"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_20890(t2,((C_word*)t0)[3],C_i_caddr(((C_word*)t0)[4]),C_a_i_list(&a,1,t1));}

/* map-loop5029 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void f_21034(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_21034,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_21016,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_20871,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2421: chicken.plist#get"));
t6=C_fast_retrieve(lf[378]);{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
av2[3]=lf[377];
((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);}}}

/* k21091 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21093(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_21093,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-loop5059 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void f_21095(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_21095,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_21120,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2440: g5065"));
t4=((C_word*)t0)[4];
f_20896(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);}}}

/* k21118 in map-loop5059 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_21120(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21120,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_21095(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k21143 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21145(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_21145,c,av);}
a=C_alloc(14);
t2=C_i_check_list_2(t1,lf[6]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21151,a[2]=C_SCHEME_UNDEFINED,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);
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_21245,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_21245(t7,t3,t1);}

/* k21149 in k21143 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_21151(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21151,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21154,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2444: procedure-results"));
f_15360(t3,((C_word*)t0)[4]);}

/* k21152 in k21149 in k21143 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_21154(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_21154,c,av);}
a=C_alloc(18);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21157,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
t4=C_eqp(lf[54],t1);
if(C_truep(t4)){
t5=t3;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_21157(2,av2);}}
else{
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=C_i_check_list_2(t1,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_21211,a[2]=t7,a[3]=t11,a[4]=((C_word*)t2)[5],a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_21211(t13,t3,t1);}}

/* k21155 in k21152 in k21149 in k21143 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
static void C_ccall f_21157(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_21157,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[54]));
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[85],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21188,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2450: procedure-name"));
f_15252(t2,((C_word*)t0)[4]);}}

/* k21186 in k21155 in k21152 in k21149 in k21143 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in ... */
static void C_ccall f_21188(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_21188,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21191,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21194,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2451: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t3;
av2[2]=t1;
av2[3]=lf[273];
tp(4,av2);}}
else{
t3=t2;
f_21191(t3,C_SCHEME_FALSE);}}

/* k21189 in k21186 in k21155 in k21152 in k21149 in k21143 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in ... */
static void f_21191(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_21191,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(C_truep(t1)?C_a_i_cons(&a,2,lf[476],((C_word*)t2)[2]):C_a_i_cons(&a,2,lf[478],((C_word*)t2)[2]));
C_trace(C_text("scrutinizer.scm:2450: ##sys#append"));
t4=*((C_word*)lf[405]+1);{
C_word av2[4];
av2[0]=t4;
av2[1]=((C_word*)t2)[3];
av2[2]=((C_word*)t2)[4];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k21192 in k21186 in k21155 in k21152 in k21149 in k21143 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in ... */
static void C_ccall f_21194(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21194,c,av);}
t2=((C_word*)t0)[2];
f_21191(t2,(C_truep(t1)?t1:C_SCHEME_FALSE));}

/* map-loop5114 in k21152 in k21149 in k21143 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
static void f_21211(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_21211,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_21236,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2447: g5120"));
t4=((C_word*)t0)[4];
f_20896(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);}}}

/* k21234 in map-loop5114 in k21152 in k21149 in k21143 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in ... */
static void C_ccall f_21236(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21236,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_21211(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* map-loop5087 in k21143 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void f_21245(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_21245,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_21270,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2443: g5093"));
t4=((C_word*)t0)[4];
f_20896(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);}}}

/* k21268 in map-loop5087 in k21143 in k21002 in conv in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 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 t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21270,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_21245(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k21305 in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21307(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_21307,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21314,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21318,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21320,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2458: chicken.port#with-output-to-string"));
t5=C_fast_retrieve(lf[509]);{
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);}}

/* k21312 in k21305 in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21314(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_21314,c,av);}
C_trace(C_text("scrutinizer.scm:2456: string-add-indent"));
f_20777(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);}

/* k21316 in k21305 in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21318(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21318,c,av);}
C_trace(C_text("scrutinizer.scm:2457: chicken.string#string-chomp"));
t2=C_fast_retrieve(lf[508]);{
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);}}

/* a21319 in k21305 in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21320(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21320,c,av);}
C_trace(C_text("scrutinizer.scm:2459: chicken.pretty-print#pp"));
t2=C_fast_retrieve(lf[435]);{
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);}}

/* k21326 in chicken.compiler.scrutinizer#type->pp-string in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21328(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_21328,c,av);}
C_trace(C_text("scrutinizer.scm:2455: conv"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_20890(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);}

/* chicken.compiler.scrutinizer#fragment in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_21330(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_21330,2,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21334,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21433,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2462: source-node-tree"));
t5=lf[456];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
f_17577(3,av2);}}

/* k21332 in chicken.compiler.scrutinizer#fragment in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21334(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_21334,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_21339,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_21339(t5,((C_word*)t0)[2],t1,C_fix(0));}

/* walk in k21332 in chicken.compiler.scrutinizer#fragment in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void f_21339(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_21339,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_not_pair_p(t2))){
C_trace(C_text("scrutinizer.scm:2464: chicken.syntax#strip-syntax"));
t4=C_fast_retrieve(lf[482]);{
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[457];
((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_21365,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_21424,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2469: take"));
f_6939(t6,t2,C_fix(6));}
else{
t6=t5;{
C_word av2[2];
av2[0]=t6;
av2[1]=t2;
f_21365(2,av2);}}}
else{
C_trace(C_text("scrutinizer.scm:2472: chicken.syntax#strip-syntax"));
t4=C_fast_retrieve(lf[482]);{
C_word av2[3];
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}}}

/* k21363 in walk in k21332 in chicken.compiler.scrutinizer#fragment in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21365(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(46,c,3)))){
C_save_and_reclaim((void *)f_21365,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_21370,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_21382,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_21382(t12,((C_word*)t0)[4],t1);}

/* g5175 in k21363 in walk in k21332 in chicken.compiler.scrutinizer#fragment in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void f_21370(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_21370,3,t0,t1,t2);}
C_trace(C_text("scrutinizer.scm:2471: g51895190"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_21339(t3,t1,t2,((C_word*)t0)[3]);}

/* map-loop5169 in k21363 in walk in k21332 in chicken.compiler.scrutinizer#fragment in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void f_21382(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_21382,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_21407,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2471: g5175"));
t4=((C_word*)t0)[4];
f_21370(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);}}}

/* k21405 in map-loop5169 in k21363 in walk in k21332 in chicken.compiler.scrutinizer#fragment in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_21407(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21407,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_21382(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k21422 in walk in k21332 in chicken.compiler.scrutinizer#fragment in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21424(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_21424,c,av);}
C_trace(C_text("scrutinizer.scm:2469: 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[510];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k21431 in chicken.compiler.scrutinizer#fragment in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21433(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21433,c,av);}
C_trace(C_text("scrutinizer.scm:2462: chicken.compiler.support#build-expression-tree"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[511]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[511]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* chicken.compiler.scrutinizer#pp-fragment in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_21435(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_21435,2,t1,t2);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21443,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21447,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21449,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2477: chicken.port#with-output-to-string"));
t6=C_fast_retrieve(lf[509]);{
C_word av2[3];
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k21441 in chicken.compiler.scrutinizer#pp-fragment in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21443(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_21443,c,av);}
C_trace(C_text("scrutinizer.scm:2475: string-add-indent"));
f_20777(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);}

/* k21445 in chicken.compiler.scrutinizer#pp-fragment in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21447(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21447,c,av);}
C_trace(C_text("scrutinizer.scm:2476: chicken.string#string-chomp"));
t2=C_fast_retrieve(lf[508]);{
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);}}

/* a21448 in chicken.compiler.scrutinizer#pp-fragment in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21449(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21449,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21457,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2479: fragment"));
f_21330(t2,((C_word*)t0)[2]);}

/* k21455 in a21448 in chicken.compiler.scrutinizer#pp-fragment in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21457(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21457,c,av);}
C_trace(C_text("scrutinizer.scm:2479: chicken.pretty-print#pp"));
t2=C_fast_retrieve(lf[435]);{
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 k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_21459(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_21459,2,t1,t2);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21463,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17652,a[2]=t3,a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:1772: source-node"));
f_17550(t4,t2,C_SCHEME_END_OF_LIST);}

/* k21461 in chicken.compiler.scrutinizer#node-source-prefix in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21463(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21463,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
if(C_truep(C_i_not(((C_word*)t0)[4]))){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[512];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21472,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2483: scheme#open-output-string"));
t4=C_fast_retrieve(lf[243]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k21470 in k21461 in chicken.compiler.scrutinizer#node-source-prefix in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 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 t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21472,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+3,t1);
t4=C_i_check_port_2(((C_word*)t2)[3],C_fix(2),C_SCHEME_TRUE,lf[236]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21478,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2483: ##sys#print"));
t6=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[514];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* k21476 in k21470 in k21461 in chicken.compiler.scrutinizer#node-source-prefix in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 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;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_21478,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21481,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2483: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21479 in k21476 in k21470 in k21461 in chicken.compiler.scrutinizer#node-source-prefix in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_21481(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21481,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21484,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2483: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[513];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21482 in k21479 in k21476 in k21470 in k21461 in chicken.compiler.scrutinizer#node-source-prefix in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_21484(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21484,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("scrutinizer.scm:2483: scheme#get-output-string"));
t3=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_21489(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_21489,3,t1,t2,t3);}
a=C_alloc(9);
t4=C_i_nullp(t3);
t5=(C_truep(t4)?lf[516]:C_i_car(t3));
if(C_truep(C_i_nullp(t2))){
C_trace(C_text("scrutinizer.scm:2491: chicken.string#conc"));
t6=C_fast_retrieve(lf[321]);{
C_word av2[4];
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[517];
av2[3]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t6=C_a_i_list1(&a,1,lf[518]);
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_21539,a[2]=t5,a[3]=t8,tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_21539(t10,t1,t2,t6);}}

/* k21500 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21502(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21502,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21508,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2488: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[528];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k21506 in k21500 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21508(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_21508,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21511,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21521,a[2]=t3,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2488: chicken.compiler.support#real-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[254]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[254]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}

/* k21509 in k21506 in k21500 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_21511(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21511,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21514,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2488: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[527];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21512 in k21509 in k21506 in k21500 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_21514(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21514,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("scrutinizer.scm:2488: scheme#get-output-string"));
t3=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k21519 in k21506 in k21500 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_21521,c,av);}
C_trace(C_text("scrutinizer.scm:2488: ##sys#print"));
t2=*((C_word*)lf[241]+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 k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void f_21539(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){
C_save_and_reclaim_args((void *)trf_21539,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_21553,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_21561,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_21567,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21581,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2500: ##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_21553(t7,C_a_i_cons(&a,2,lf[526],t3));}}
else{
t5=C_u_i_cdr(t2);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21645,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|4,a[1]=(C_word)f_21502,a[2]=t6,a[3]=C_SCHEME_UNDEFINED,a[4]=t7,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2488: scheme#open-output-string"));
t9=C_fast_retrieve(lf[243]);{
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[529],t3);
C_trace(C_text("scrutinizer.scm:2505: rec"));
t10=t1;
t11=t5;
t12=t8;
t1=t10;
t2=t11;
t3=t12;
goto loop;}}}

/* k21551 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void f_21553(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_21553,2,t0,t1);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21557,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2504: chicken.string#conc"));
t3=C_fast_retrieve(lf[321]);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[519];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k21555 in k21551 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21557(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_21557,c,av);}
C_trace(C_text("scrutinizer.scm:2495: chicken.string#string-intersperse"));
t2=C_fast_retrieve(lf[314]);{
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);}}

/* k21559 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21561(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_21561,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
f_21553(t2,C_a_i_cons(&a,2,t1,((C_word*)t0)[3]));}

/* a21566 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 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 t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21567,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21575,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2500: chicken.compiler.support#real-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[254]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[254]+1);
av2[1]=t2;
av2[2]=C_i_car(((C_word*)t0)[2]);
tp(3,av2);}}

/* k21573 in a21566 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21575(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21575,c,av);}
C_trace(C_text("scrutinizer.scm:2500: variable-and-module"));
f_21659(((C_word*)t0)[2],t1);}

/* a21580 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21581(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_21581,c,av);}
a=C_alloc(12);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21589,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
if(C_truep(t3)){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21611,a[2]=t4,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2501: scheme#open-output-string"));
t6=C_fast_retrieve(lf[243]);{
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[525];
f_21589(2,av2);}}}

/* k21587 in a21580 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21589(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21589,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21593,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2502: scheme#open-output-string"));
t4=C_fast_retrieve(lf[243]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k21591 in k21587 in a21580 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_21593(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21593,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+4,t1);
t4=C_i_check_port_2(((C_word*)t2)[4],C_fix(2),C_SCHEME_TRUE,lf[236]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21599,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2502: ##sys#print"));
t6=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[522];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* k21597 in k21591 in k21587 in a21580 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_21599(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_21599,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21602,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2502: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21600 in k21597 in k21591 in k21587 in a21580 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
static void C_ccall f_21602(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21602,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21605,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2502: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[521];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21603 in k21600 in k21597 in k21591 in k21587 in a21580 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 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 t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_21605,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21608,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2502: scheme#get-output-string"));
t4=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k21606 in k21603 in k21600 in k21597 in k21591 in k21587 in a21580 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in ... */
static void C_ccall f_21608(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_21608,c,av);}
C_trace(C_text("scrutinizer.scm:2501: chicken.string#conc"));
t2=C_fast_retrieve(lf[321]);{
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);}}

/* k21609 in a21580 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21611(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21611,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21617,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2501: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[524];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k21615 in k21609 in a21580 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 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 t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_21617,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21620,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2501: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21618 in k21615 in k21609 in a21580 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_21620(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21620,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21623,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2501: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[523];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21621 in k21618 in k21615 in k21609 in a21580 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
static void C_ccall f_21623(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21623,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21626,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2501: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t3;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}

/* k21624 in k21621 in k21618 in k21615 in k21609 in a21580 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in ... */
static void C_ccall f_21626(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_21626,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21629,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2501: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21627 in k21624 in k21621 in k21618 in k21615 in k21609 in a21580 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21629,c,av);}
C_trace(C_text("scrutinizer.scm:2501: scheme#get-output-string"));
t2=C_fast_retrieve(lf[239]);{
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);}}

/* k21643 in rec in chicken.compiler.scrutinizer#location-name in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21645(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21645,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
C_trace(C_text("scrutinizer.scm:2505: rec"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_21539(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* chicken.compiler.scrutinizer#variable-and-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_21659(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_21659,2,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21663,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_symbolp(t2))){
C_trace(C_text("scrutinizer.scm:2509: scheme#symbol->string"));
t4=*((C_word*)lf[443]+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_21663(2,av2);}}}

/* k21661 in chicken.compiler.scrutinizer#variable-and-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21663(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21663,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21666,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2510: chicken.string#string-split"));
t4=C_fast_retrieve(lf[502]);{
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]=lf[530];
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21664 in k21661 in chicken.compiler.scrutinizer#variable-and-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21666(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_21666,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=C_i_cdr(t1);
if(C_truep(C_i_pairp(t3))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21679,a[2]=((C_word*)t2)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2512: scheme#string->symbol"));
t5=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_cadr(t1);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21698,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2513: scheme#string->symbol"));
t5=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k21677 in k21664 in k21661 in chicken.compiler.scrutinizer#variable-and-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21679(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_21679,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21683,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2512: scheme#string->symbol"));
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)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k21681 in k21677 in k21664 in k21661 in chicken.compiler.scrutinizer#variable-and-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_21683(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_21683,c,av);}
C_trace(C_text("scrutinizer.scm:2512: 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);}}

/* k21696 in k21664 in k21661 in chicken.compiler.scrutinizer#variable-and-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_21698,c,av);}
C_trace(C_text("scrutinizer.scm:2513: 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 k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_21710(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_21710,2,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21716,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21722,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:2516: ##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);}}

/* a21715 in chicken.compiler.scrutinizer#variable-from-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21716(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21716,c,av);}
C_trace(C_text("scrutinizer.scm:2516: variable-and-module"));
f_21659(t1,((C_word*)t0)[2]);}

/* a21721 in chicken.compiler.scrutinizer#variable-from-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21722(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_21722,c,av);}
a=C_alloc(6);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21729,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2518: scheme#open-output-string"));
t5=C_fast_retrieve(lf[243]);{
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|4,a[1]=(C_word)f_21753,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2519: scheme#open-output-string"));
t5=C_fast_retrieve(lf[243]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k21727 in a21721 in chicken.compiler.scrutinizer#variable-from-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21729(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21729,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21735,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2518: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t4;
av2[2]=C_make_character(96);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k21733 in k21727 in a21721 in chicken.compiler.scrutinizer#variable-from-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21735(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_21735,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21738,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2518: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21736 in k21733 in k21727 in a21721 in chicken.compiler.scrutinizer#variable-from-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_21738(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21738,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21741,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2518: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[531];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21739 in k21736 in k21733 in k21727 in a21721 in chicken.compiler.scrutinizer#variable-from-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_21741(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_21741,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21744,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2518: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21742 in k21739 in k21736 in k21733 in k21727 in a21721 in chicken.compiler.scrutinizer#variable-from-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
static void C_ccall f_21744(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21744,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21747,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2518: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t2;
av2[2]=C_make_character(39);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k21745 in k21742 in k21739 in k21736 in k21733 in k21727 in a21721 in chicken.compiler.scrutinizer#variable-from-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in ... */
static void C_ccall f_21747(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21747,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("scrutinizer.scm:2518: scheme#get-output-string"));
t3=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k21751 in a21721 in chicken.compiler.scrutinizer#variable-from-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21753(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21753,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21759,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2519: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t4;
av2[2]=C_make_character(96);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k21757 in k21751 in a21721 in chicken.compiler.scrutinizer#variable-from-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21759(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_21759,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21762,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2519: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21760 in k21757 in k21751 in a21721 in chicken.compiler.scrutinizer#variable-from-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_21762(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21762,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21765,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2519: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t2;
av2[2]=C_make_character(39);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k21763 in k21760 in k21757 in k21751 in a21721 in chicken.compiler.scrutinizer#variable-from-module in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_21765(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21765,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("scrutinizer.scm:2519: scheme#get-output-string"));
t3=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_21770(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_21770,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_21773,tmp=(C_word)a,a+=2,tmp));
t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21787,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21884,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2543: source-node-tree"));
t10=lf[456];{
C_word av2[3];
av2[0]=t10;
av2[1]=t9;
av2[2]=t2;
f_17577(3,av2);}}

/* p-expr in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void f_21773(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){
C_save_and_reclaim_args((void *)trf_21773,2,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21781,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2523: scheme#string-append"));
t4=*((C_word*)lf[77]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[532];
av2[3]=lf[533];
av2[4]=lf[534];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21779 in p-expr in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21781(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_21781,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21785,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2524: pp-fragment"));
f_21435(t2,((C_word*)t0)[3]);}

/* k21783 in k21779 in p-expr in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_21785,c,av);}
C_trace(C_text("scrutinizer.scm:2523: chicken.format#sprintf"));
t2=*((C_word*)lf[411]+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 k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void f_21787(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
C_save_and_reclaim_args((void *)trf_21787,3,t0,t1,t2);}
a=C_alloc(12);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21791,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21877,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2526: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word av2[3];
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k21789 in p-node in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21791(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21791,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21818,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2540: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}}

/* k21809 in k21816 in k21789 in p-node in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_21811(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21811,c,av);}
C_trace(C_text("scrutinizer.scm:2541: p-node"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_21787(t2,((C_word*)t0)[3],C_i_car(t1));}

/* k21816 in k21789 in p-node in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21818(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_21818,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=C_eqp(lf[86],t1);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21811,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2541: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}
else{
C_trace(C_text("scrutinizer.scm:2542: p-expr"));
f_21773(((C_word*)t2)[3],((C_word*)t2)[4]);}}

/* k21837 in k21863 in k21867 in k21871 in k21875 in p-node in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 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 t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
C_save_and_reclaim((void *)f_21839,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+5,t1);
if(C_truep(((C_word*)t2)[5])){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21849,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2531: scheme#string-append"));
t5=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[535];
av2[3]=lf[536];
av2[4]=lf[537];
av2[5]=lf[538];
av2[6]=lf[539];
((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}}
else{
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_21791(2,av2);}}}

/* k21847 in k21837 in k21863 in k21867 in k21871 in k21875 in p-node in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in ... */
static void C_ccall f_21849(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_21849,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21853,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:2537: variable-from-module"));
f_21710(t3,((C_word*)t2)[6]);}

/* k21851 in k21847 in k21837 in k21863 in k21867 in k21871 in k21875 in p-node in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in ... */
static void C_ccall f_21853(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_21853,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21857,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);
C_trace(C_text("scrutinizer.scm:2538: type->pp-string"));
f_20864(t2,((C_word*)t0)[6]);}

/* k21855 in k21851 in k21847 in k21837 in k21863 in k21867 in k21871 in k21875 in p-node in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in ... */
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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_21857,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,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]=t1,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2539: p-expr"));
f_21773(t2,((C_word*)t0)[6]);}

/* k21859 in k21855 in k21851 in k21847 in k21837 in k21863 in k21867 in k21871 in k21875 in p-node in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in ... */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_21861,c,av);}
C_trace(C_text("scrutinizer.scm:2531: chicken.format#sprintf"));
t2=*((C_word*)lf[411]+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);}}

/* k21863 in k21867 in k21871 in k21875 in p-node in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21865,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_mutate(((C_word *)t0)+6,t2);
if(C_truep(((C_word*)t0)[6])){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21839,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2530: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
av2[3]=lf[66];
tp(4,av2);}}
else{
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_21791(2,av2);}}}

/* k21867 in k21871 in k21875 in p-node in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_21869(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_21869,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=C_eqp(lf[88],t1);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21865,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=C_SCHEME_UNDEFINED,a[6]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:2529: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[5];
tp(3,av2);}}
else{
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_21791(2,av2);}}}

/* k21871 in k21875 in p-node in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21873(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21873,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_i_car(t1);
t4=C_mutate(((C_word *)t2)+5,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21869,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2528: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[5];
tp(3,av2);}}

/* k21875 in p-node in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21877(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21877,c,av);}
a=C_alloc(3);
t2=C_eqp(lf[121],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21873,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2527: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_21791(2,av2);}}}

/* k21882 in chicken.compiler.scrutinizer#describe-expression in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21884(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21884,c,av);}
C_trace(C_text("scrutinizer.scm:2543: p-node"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_21787(t2,((C_word*)t0)[3],t1);}

/* chicken.compiler.scrutinizer#report2 in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_21900(C_word c,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<7) C_bad_min_argc_2(c,7,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-7)*C_SIZEOF_PAIR +23,c,2)))){
C_save_and_reclaim((void*)f_21900,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_21903,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_21931,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21938,a[2]=t3,a[3]=t9,tmp=(C_word)a,a+=4,tmp);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21942,a[2]=t10,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21946,a[2]=t11,tmp=(C_word)a,a+=3,tmp);
t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21950,a[2]=t12,a[3]=t6,a[4]=t7,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2558: file-location"));
t14=t8;
f_21903(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 k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void f_21903(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,0,3)))){
C_save_and_reclaim_args((void *)trf_21903,2,t0,t1);}
a=C_alloc(2);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21909,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:2550: any"));
f_7234(t1,t2,((C_word*)t0)[2]);}

/* a21908 in file-location in chicken.compiler.scrutinizer#report2 in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_21909,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21925,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2550: node-source-prefix"));
f_21459(t3,t2);}

/* k21923 in a21908 in file-location in chicken.compiler.scrutinizer#report2 in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21925(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21925,c,av);}
if(C_truep(C_i_not(C_i_string_equal_p(lf[540],t1)))){
C_trace(C_text("scrutinizer.scm:2551: node-source-prefix"));
f_21459(((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);}}}

/* k21929 in chicken.compiler.scrutinizer#report2 in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21931(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21931,c,av);}
C_trace(C_text("scrutinizer.scm:2562: chicken.base#flush-output"));
t2=*((C_word*)lf[541]+1);{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k21936 in chicken.compiler.scrutinizer#report2 in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21938(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21938,c,av);}
C_trace(C_text("scrutinizer.scm:2554: 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)C_fast_retrieve_proc(t2))(3,av2);}}

/* k21940 in chicken.compiler.scrutinizer#report2 in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21942(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_21942,c,av);}
C_trace(C_text("scrutinizer.scm:2555: chicken.string#conc"));
t2=C_fast_retrieve(lf[321]);{
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);}}

/* k21944 in chicken.compiler.scrutinizer#report2 in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21946(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21946,c,av);}
a=C_alloc(3);
C_trace(C_text("scrutinizer.scm:2557: string-add-indent"));
f_20777(((C_word*)t0)[2],t1,C_a_i_list(&a,1,lf[542]));}

/* k21948 in chicken.compiler.scrutinizer#report2 in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_21950(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21950,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21953,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
C_trace(C_text("scrutinizer.scm:2558: chicken.string#conc"));
t3=C_fast_retrieve(lf[321]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[546];
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[547];
f_21953(2,av2);}}}

/* k21951 in k21948 in chicken.compiler.scrutinizer#report2 in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_21953(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_21953,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21957,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[4],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:2559: location-name"));
f_21489(t3,((C_word*)t2)[5],C_a_i_list(&a,1,lf[545]));}

/* k21955 in k21951 in k21948 in chicken.compiler.scrutinizer#report2 in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_21957(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21957,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21961,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2560: scheme#open-output-string"));
t4=C_fast_retrieve(lf[243]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k21959 in k21955 in k21951 in k21948 in chicken.compiler.scrutinizer#report2 in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_21961(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_21961,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21967,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=0;
av2[1]=t4;
av2[2]=*((C_word*)lf[544]+1);
av2[3]=t1;
av2[4]=((C_word*)t2)[5];
av2[5]=((C_word*)t2)[6];
C_apply(6,av2);}}

/* k21965 in k21959 in k21955 in k21951 in k21948 in chicken.compiler.scrutinizer#report2 in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
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 t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_21967,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21970,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2560: scheme#get-output-string"));
t3=C_fast_retrieve(lf[239]);{
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);}}

/* k21968 in k21965 in k21959 in k21955 in k21951 in k21948 in chicken.compiler.scrutinizer#report2 in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
static void C_ccall f_21970(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_21970,c,av);}
C_trace(C_text("scrutinizer.scm:2558: chicken.string#conc"));
t2=C_fast_retrieve(lf[321]);{
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[543];
av2[4]=((C_word*)t0)[4];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* variable-node-name in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_21984(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_21984,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22023,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2571: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word av2[3];
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k22000 in k22021 in variable-node-name in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22002(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22002,c,av);}
C_trace(C_text("scrutinizer.scm:2572: variable-node-name"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_21984(t2,((C_word*)t0)[3],C_i_car(t1));}

/* k22013 in k22017 in k22021 in variable-node-name in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22015,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);}}

/* k22017 in k22021 in variable-node-name in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22019(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22019,c,av);}
a=C_alloc(3);
t2=C_eqp(lf[88],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22015,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2573: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(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);}}}

/* k22021 in variable-node-name in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22023(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_22023,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[86],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22002,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2572: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22019,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2573: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}}

/* k22027 in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22029(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,16)))){
C_save_and_reclaim((void *)f_22029,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_22040,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);
C_trace(C_text("scrutinizer.scm:2581: scheme#string-append"));
t4=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 11) {
  av2=av;
} else {
  av2=C_alloc(11);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[93];
av2[3]=lf[94];
av2[4]=lf[95];
av2[5]=lf[96];
av2[6]=lf[97];
av2[7]=lf[98];
av2[8]=lf[99];
av2[9]=lf[100];
av2[10]=lf[101];
((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_22067,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);
C_trace(C_text("scrutinizer.scm:2599: scheme#string-append"));
t4=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 17) {
  av2=av;
} else {
  av2=C_alloc(17);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[104];
av2[3]=lf[105];
av2[4]=lf[106];
av2[5]=lf[107];
av2[6]=lf[108];
av2[7]=lf[109];
av2[8]=lf[110];
av2[9]=lf[111];
av2[10]=lf[112];
av2[11]=lf[113];
av2[12]=lf[114];
av2[13]=lf[115];
av2[14]=lf[116];
av2[15]=lf[117];
av2[16]=lf[118];
((C_proc)(void*)(*((C_word*)t4+1)))(17,av2);}}}

/* k22038 in k22027 in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22040(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22040,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22044,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);
C_trace(C_text("scrutinizer.scm:2591: pp-fragment"));
f_21435(t2,((C_word*)t0)[8]);}

/* k22042 in k22038 in k22027 in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22044(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_22044,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22048,a[2]=((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_22056,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2592: variable-node-name"));
t4=((C_word*)((C_word*)t0)[7])[1];
f_21984(t4,t3,((C_word*)t0)[8]);}

/* k22046 in k22042 in k22038 in k22027 in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_22048(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_22048,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22052,a[2]=((C_word*)t0)[2],a[3]=((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);
C_trace(C_text("scrutinizer.scm:2593: type->pp-string"));
f_20864(t2,((C_word*)t0)[7]);}

/* k22050 in k22046 in k22042 in k22038 in k22027 in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_22052(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_22052,c,av);}
C_trace(C_text("scrutinizer.scm:2576: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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[90];
av2[3]=C_fast_retrieve(lf[91]);
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_21900(10,av2);}}

/* k22054 in k22042 in k22038 in k22027 in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_22056(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22056,c,av);}
C_trace(C_text("scrutinizer.scm:2592: variable-from-module"));
f_21710(((C_word*)t0)[2],t1);}

/* k22065 in k22027 in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22067(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22067,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22071,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);
C_trace(C_text("scrutinizer.scm:2615: pp-fragment"));
f_21435(t2,((C_word*)t0)[8]);}

/* k22069 in k22065 in k22027 in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22071,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22075,a[2]=((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);
C_trace(C_text("scrutinizer.scm:2616: describe-expression"));
f_21770(t2,((C_word*)t0)[8]);}

/* k22073 in k22069 in k22065 in k22027 in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_22075(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22075,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22079,a[2]=((C_word*)t0)[2],a[3]=((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);
C_trace(C_text("scrutinizer.scm:2617: type->pp-string"));
f_20864(t2,((C_word*)t0)[8]);}

/* k22077 in k22073 in k22069 in k22065 in k22027 in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_22079(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22079,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22083,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
C_trace(C_text("scrutinizer.scm:2618: type->pp-string"));
f_20864(t2,((C_word*)t0)[8]);}

/* k22081 in k22077 in k22073 in k22069 in k22065 in k22027 in k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){
C_save_and_reclaim((void *)f_22083,c,av);}
C_trace(C_text("scrutinizer.scm:2594: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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[102];
av2[3]=C_fast_retrieve(lf[91]);
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_21900(11,av2);}}

/* k22088 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22090(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,10)))){
C_save_and_reclaim((void *)f_22090,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)((C_word*)t0)[8])+1,t1);
t3=C_a_i_list1(&a,1,((C_word*)t0)[9]);
t4=C_mutate(((C_word *)t0)+5,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22101,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2627: scheme#string-append"));
t6=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 11) {
  av2=av;
} else {
  av2=C_alloc(11);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[178];
av2[3]=lf[179];
av2[4]=lf[180];
av2[5]=lf[181];
av2[6]=lf[182];
av2[7]=lf[183];
av2[8]=lf[184];
av2[9]=lf[185];
av2[10]=lf[186];
((C_proc)(void*)(*((C_word*)t6+1)))(11,av2);}}

/* k22099 in k22088 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_22101,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22105,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=t1,a[8]=C_SCHEME_UNDEFINED,a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[8],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("scrutinizer.scm:2637: pp-fragment"));
f_21435(t3,((C_word*)t2)[9]);}

/* k22103 in k22099 in k22088 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22105(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22105,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+8,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22109,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2638: strip-namespace"));
f_19679(t3,((C_word*)((C_word*)t0)[10])[1]);}

/* k22107 in k22103 in k22099 in k22088 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22109(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_22109,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=C_i_nequalp(((C_word*)t2)[2],C_fix(1));
t4=(C_truep(t3)?lf[172]:lf[173]);
t5=C_i_nequalp(((C_word*)t2)[3],C_fix(1));
t6=(C_truep(t5)?lf[172]:lf[173]);
t7=C_i_nequalp(((C_word*)t2)[3],C_fix(1));
t8=(C_truep(t7)?lf[174]:lf[175]);
t9=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_22125,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[8],a[7]=t1,a[8]=((C_word*)t2)[2],a[9]=t4,a[10]=((C_word*)t2)[3],a[11]=t6,a[12]=t8,a[13]=((C_word*)t2)[9],tmp=(C_word)a,a+=14,tmp);
C_trace(C_text("scrutinizer.scm:2642: variable-from-module"));
f_21710(t9,((C_word*)((C_word*)t2)[10])[1]);}

/* k22123 in k22107 in k22103 in k22099 in k22088 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_22125(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_22125,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_22129,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
C_trace(C_text("scrutinizer.scm:2643: type->pp-string"));
f_20864(t2,((C_word*)t0)[13]);}

/* k22127 in k22123 in k22107 in k22103 in k22099 in k22088 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_22129(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,15)))){
C_save_and_reclaim((void *)f_22129,c,av);}
C_trace(C_text("scrutinizer.scm:2622: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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[176];
av2[3]=C_fast_retrieve(lf[91]);
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_21900(16,av2);}}

/* chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_22134(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,0,2)))){
C_save_and_reclaim_args((void *)trf_22134,8,t1,t2,t3,t4,t5,t6,t7,t8);}
a=C_alloc(17);
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|11,a[1]=(C_word)f_22139,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t2,a[5]=t4,a[6]=t8,a[7]=t10,a[8]=t5,a[9]=t6,a[10]=t7,a[11]=t3,tmp=(C_word)a,a+=12,tmp);
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f28532,a[2]=t11,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2546: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word av2[3];
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t12;
av2[2]=t3;
tp(3,av2);}}

/* k22137 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_22139(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,18)))){
C_save_and_reclaim((void *)f_22139,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)((C_word*)t0)[7])+1,t1);
t3=C_a_i_list1(&a,1,((C_word*)t0)[11]);
t4=C_mutate(((C_word *)t0)+3,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22150,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2652: scheme#string-append"));
t6=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 19) {
  av2=av;
} else {
  av2=C_alloc(19);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[549];
av2[3]=lf[550];
av2[4]=lf[551];
av2[5]=lf[552];
av2[6]=lf[553];
av2[7]=lf[554];
av2[8]=lf[555];
av2[9]=lf[556];
av2[10]=lf[557];
av2[11]=lf[558];
av2[12]=lf[559];
av2[13]=lf[560];
av2[14]=lf[561];
av2[15]=lf[562];
av2[16]=lf[563];
av2[17]=lf[564];
av2[18]=lf[565];
((C_proc)(void*)(*((C_word*)t6+1)))(19,av2);}}

/* k22148 in k22137 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_22150(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_22150,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22154,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t1,a[6]=C_SCHEME_UNDEFINED,a[7]=((C_word*)t2)[5],a[8]=((C_word*)t2)[6],a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[8],a[11]=((C_word*)t2)[9],a[12]=((C_word*)t2)[10],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("scrutinizer.scm:2670: pp-fragment"));
f_21435(t3,((C_word*)t2)[11]);}

/* k22152 in k22148 in k22137 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22154(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22154,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22158,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2672: strip-namespace"));
f_19679(t3,((C_word*)((C_word*)t0)[9])[1]);}

/* k22156 in k22152 in k22148 in k22137 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_22158(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_22158,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22162,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=t1,a[9]=((C_word*)t2)[8],a[10]=((C_word*)t2)[9],a[11]=((C_word*)t2)[10],a[12]=((C_word*)t2)[11],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("scrutinizer.scm:2673: type->pp-string"));
f_20864(t3,((C_word*)t2)[12]);}

/* k22160 in k22156 in k22152 in k22148 in k22137 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_22162(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_22162,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22166,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
C_trace(C_text("scrutinizer.scm:2674: type->pp-string"));
f_20864(t2,((C_word*)t0)[12]);}

/* k22164 in k22160 in k22156 in k22152 in k22148 in k22137 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
static void C_ccall f_22166(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_22166,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22170,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
C_trace(C_text("scrutinizer.scm:2675: describe-expression"));
f_21770(t2,((C_word*)t0)[12]);}

/* k22168 in k22164 in k22160 in k22156 in k22152 in k22148 in k22137 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in ... */
static void C_ccall f_22170(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_22170,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
C_trace(C_text("scrutinizer.scm:2676: variable-from-module"));
f_21710(t2,((C_word*)((C_word*)t0)[12])[1]);}

/* k22172 in k22168 in k22164 in k22160 in k22156 in k22152 in k22148 in k22137 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in ... */
static void C_ccall f_22174(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_22174,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22178,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
C_trace(C_text("scrutinizer.scm:2677: type->pp-string"));
f_20864(t2,((C_word*)t0)[12]);}

/* k22176 in k22172 in k22168 in k22164 in k22160 in k22156 in k22152 in k22148 in k22137 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in ... */
static void C_ccall f_22178(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,14)))){
C_save_and_reclaim((void *)f_22178,c,av);}
C_trace(C_text("scrutinizer.scm:2647: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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[548];
av2[3]=C_fast_retrieve(lf[91]);
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_21900(15,av2);}}

/* chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 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=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!=7) C_bad_argc_2(c,7,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_22180,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_22185,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)f28537,a[2]=t11,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2546: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2=av;
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t12;
av2[2]=t3;
tp(3,av2);}}

/* k22183 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_22185(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_22185,c,av);}
a=C_alloc(13);
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_22187,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)){
C_trace(C_text("scrutinizer.scm:2701: 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[575];
av2[3]=lf[576];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22250,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[9],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2704: scheme#open-output-string"));
t7=C_fast_retrieve(lf[243]);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* f_22187 in k22183 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_22187(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,8)))){
C_save_and_reclaim((void *)f_22187,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_22199,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);
C_trace(C_text("scrutinizer.scm:2687: scheme#string-append"));
t6=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[568];
av2[3]=lf[569];
av2[4]=lf[570];
av2[5]=lf[571];
av2[6]=lf[572];
av2[7]=lf[573];
av2[8]=lf[574];
((C_proc)(void*)(*((C_word*)t6+1)))(9,av2);}}

/* k22197 */
static void C_ccall f_22199(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_22199,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22203,a[2]=((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);
C_trace(C_text("scrutinizer.scm:2695: pp-fragment"));
f_21435(t2,((C_word*)t0)[10]);}

/* k22201 in k22197 */
static void C_ccall f_22203(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_22203,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22207,a[2]=((C_word*)t0)[2],a[3]=((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[566];
f_22207(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22215,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2697: scheme#open-output-string"));
t4=C_fast_retrieve(lf[243]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k22205 in k22201 in k22197 */
static void C_ccall f_22207(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_22207,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22211,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
C_trace(C_text("scrutinizer.scm:2699: describe-expression"));
f_21770(t2,((C_word*)t0)[10]);}

/* k22209 in k22205 in k22201 in k22197 */
static void C_ccall f_22211(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,11)))){
C_save_and_reclaim((void *)f_22211,c,av);}
C_trace(C_text("scrutinizer.scm:2682: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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_fast_retrieve(lf[91]);
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_21900(12,av2);}}

/* k22213 in k22201 in k22197 */
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 t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22215,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22221,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2697: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[567];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k22219 in k22213 in k22201 in k22197 */
static void C_ccall f_22221(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_22221,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22224,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22234,a[2]=t3,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2697: strip-namespace"));
f_19679(t4,((C_word*)((C_word*)t2)[4])[1]);}

/* k22222 in k22219 in k22213 in k22201 in k22197 */
static void C_ccall f_22224(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_22224,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22227,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2697: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t2;
av2[2]=C_make_character(39);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k22225 in k22222 in k22219 in k22213 in k22201 in k22197 */
static void C_ccall f_22227(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22227,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("scrutinizer.scm:2697: scheme#get-output-string"));
t3=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k22232 in k22219 in k22213 in k22201 in k22197 */
static void C_ccall f_22234(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_22234,c,av);}
C_trace(C_text("scrutinizer.scm:2697: ##sys#print"));
t2=*((C_word*)lf[241]+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);}}

/* k22248 in k22183 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 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 t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22250,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=C_i_check_port_2(((C_word*)t0)[4],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22256,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2704: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[579];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k22254 in k22248 in k22183 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22256(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_22256,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22259,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2704: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_length(((C_word*)t2)[5]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22257 in k22254 in k22248 in k22183 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_22259(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22259,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22262,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2704: ##sys#print"));
t3=*((C_word*)lf[241]+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)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22260 in k22257 in k22254 in k22248 in k22183 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_22262(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_22262,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22265,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2704: scheme#get-output-string"));
t4=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k22263 in k22260 in k22257 in k22254 in k22248 in k22183 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
static void C_ccall f_22265(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22265,c,av);}
C_trace(C_text("scrutinizer.scm:2703: 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[577];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_22273(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){
C_save_and_reclaim_args((void *)trf_22273,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_22278,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)f28542,a[2]=t9,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2546: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word av2[3];
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t10;
av2[2]=t3;
tp(3,av2);}}

/* k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 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 t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_22278,c,av);}
a=C_alloc(16);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22285,a[2]=((C_word*)t0)[4],a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,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)[2],a[10]=((C_word*)t0)[3],tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_negativep(((C_word*)t0)[6]))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22358,a[2]=t3,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2711: scheme#open-output-string"));
t5=C_fast_retrieve(lf[243]);{
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|4,a[1]=(C_word)f_22376,a[2]=t3,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2712: scheme#open-output-string"));
t5=C_fast_retrieve(lf[243]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_22285(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){
C_save_and_reclaim((void *)f_22285,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_a_i_list1(&a,1,((C_word*)t0)[10]);
t4=C_mutate(((C_word *)t0)+4,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22293,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2718: scheme#string-append"));
t6=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[585];
av2[3]=lf[586];
av2[4]=lf[587];
av2[5]=lf[588];
av2[6]=lf[589];
((C_proc)(void*)(*((C_word*)t6+1)))(7,av2);}}

/* k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22293(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_22293,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22297,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=t1,a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],a[10]=((C_word*)t2)[9],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("scrutinizer.scm:2724: pp-fragment"));
f_21435(t3,((C_word*)t2)[10]);}

/* k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_22297(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_22297,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,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],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);
C_trace(C_text("scrutinizer.scm:2725: variable-from-module"));
f_21710(t2,((C_word*)((C_word*)t0)[10])[1]);}

/* k22299 in k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 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 t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_22301,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22305,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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|4,a[1]=(C_word)f_22309,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2727: scheme#open-output-string"));
t4=C_fast_retrieve(lf[243]);{
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|6,a[1]=(C_word)f_22327,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:2728: scheme#open-output-string"));
t4=C_fast_retrieve(lf[243]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k22303 in k22299 in k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
static void C_ccall f_22305(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_22305,c,av);}
C_trace(C_text("scrutinizer.scm:2709: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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_fast_retrieve(lf[91]);
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_21900(10,av2);}}

/* k22307 in k22299 in k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
static void C_ccall f_22309(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22309,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22315,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2727: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[580];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k22313 in k22307 in k22299 in k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in ... */
static void C_ccall f_22315(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_22315,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22318,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2727: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22316 in k22313 in k22307 in k22299 in k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in ... */
static void C_ccall f_22318(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_22318,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22321,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2727: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t2;
av2[2]=C_make_character(46);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k22319 in k22316 in k22313 in k22307 in k22299 in k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in ... */
static void C_ccall f_22321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22321,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("scrutinizer.scm:2727: scheme#get-output-string"));
t3=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k22325 in k22299 in k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
static void C_ccall f_22327(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22327,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22333,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2728: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[584];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k22331 in k22325 in k22299 in k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in ... */
static void C_ccall f_22333(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22333,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22336,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2728: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22334 in k22331 in k22325 in k22299 in k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in ... */
static void C_ccall f_22336(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22336,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22339,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2728: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[583];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22337 in k22334 in k22331 in k22325 in k22299 in k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in ... */
static void C_ccall f_22339(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_22339,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22342,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2728: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22340 in k22337 in k22334 in k22331 in k22325 in k22299 in k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in ... */
static void C_ccall f_22342(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22342,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22345,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2728: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[582];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22343 in k22340 in k22337 in k22334 in k22331 in k22325 in k22299 in k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in ... */
static void C_ccall f_22345(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_22345,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22348,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2728: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22346 in k22343 in k22340 in k22337 in k22334 in k22331 in k22325 in k22299 in k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in ... */
static void C_ccall f_22348(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22348,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22351,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2728: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[581];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22349 in k22346 in k22343 in k22340 in k22337 in k22334 in k22331 in k22325 in k22299 in k22295 in k22291 in k22283 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in ... */
static void C_ccall f_22351(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22351,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("scrutinizer.scm:2728: scheme#get-output-string"));
t3=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k22356 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 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 t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22358,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22364,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2711: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[591];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k22362 in k22356 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22364(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_22364,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22367,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2711: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22365 in k22362 in k22356 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_22367(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22367,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22370,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2711: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[590];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22368 in k22365 in k22362 in k22356 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 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 t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22370,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("scrutinizer.scm:2711: scheme#get-output-string"));
t3=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k22374 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_22376(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22376,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22382,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t5=C_i_string_ref(((C_word*)t0)[4],C_fix(0));
C_trace(C_text("scrutinizer.scm:2712: ##sys#print"));
t6=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t4;
av2[2]=C_u_i_char_upcase(t5);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* k22380 in k22374 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22382(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_22382,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22385,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22395,a[2]=t3,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2714: scheme#substring"));
t5=*((C_word*)lf[593]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
av2[3]=C_fix(1);
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k22383 in k22380 in k22374 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_22385(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22385,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22388,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2712: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[592];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22386 in k22383 in k22380 in k22374 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_22388(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22388,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("scrutinizer.scm:2712: scheme#get-output-string"));
t3=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k22393 in k22380 in k22374 in k22276 in chicken.compiler.scrutinizer#r-index-out-of-range in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_22395,c,av);}
C_trace(C_text("scrutinizer.scm:2712: ##sys#print"));
t2=*((C_word*)lf[241]+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 k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_22405(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_22405,c,av);}
a=C_alloc(11);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22408,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)){
C_trace(C_text("scrutinizer.scm:2746: p"));
t9=t6;
f_22408(t9,t1,lf[601],lf[602]);}
else{
t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22444,a[2]=t6,a[3]=t1,a[4]=C_SCHEME_UNDEFINED,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2749: scheme#open-output-string"));
t10=C_fast_retrieve(lf[243]);{
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 k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void f_22408(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,8)))){
C_save_and_reclaim_args((void *)trf_22408,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_22420,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);
C_trace(C_text("scrutinizer.scm:2734: scheme#string-append"));
t6=*((C_word*)lf[77]+1);{
C_word av2[9];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[594];
av2[3]=lf[595];
av2[4]=lf[596];
av2[5]=lf[597];
av2[6]=lf[598];
av2[7]=lf[599];
av2[8]=lf[600];
((C_proc)(void*)(*((C_word*)t6+1)))(9,av2);}}

/* k22418 in p in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_22420(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22420,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,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],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("scrutinizer.scm:2742: pp-fragment"));
f_21435(t2,((C_word*)t0)[8]);}

/* k22422 in k22418 in p in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22424,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22428,a[2]=((C_word*)t0)[2],a[3]=((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);
C_trace(C_text("scrutinizer.scm:2744: describe-expression"));
f_21770(t2,((C_word*)t0)[8]);}

/* k22426 in k22422 in k22418 in p in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_22428(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_22428,c,av);}
C_trace(C_text("scrutinizer.scm:2732: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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_fast_retrieve(lf[91]);
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_21900(10,av2);}}

/* k22442 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_22444(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22444,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=C_i_check_port_2(((C_word*)t0)[4],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22450,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2749: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[605];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k22448 in k22442 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_22450(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_22450,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22453,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2749: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_length(((C_word*)t2)[5]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22451 in k22448 in k22442 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22453(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22453,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22456,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2749: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[604];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22454 in k22451 in k22448 in k22442 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_22456(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_22456,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22459,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2749: scheme#get-output-string"));
t4=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k22457 in k22454 in k22451 in k22448 in k22442 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_22459(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22459,c,av);}
C_trace(C_text("scrutinizer.scm:2748: p"));
t2=((C_word*)t0)[2];
f_22408(t2,((C_word*)t0)[3],lf[603],t1);}

/* chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_22467(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(c!=7) C_bad_argc_2(c,7,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_22467,c,av);}
a=C_alloc(13);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22470,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|5,a[1]=(C_word)f_22507,a[2]=t7,a[3]=t1,a[4]=C_SCHEME_UNDEFINED,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2768: scheme#open-output-string"));
t11=C_fast_retrieve(lf[243]);{
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|6,a[1]=(C_word)f_22533,a[2]=t7,a[3]=t1,a[4]=t6,a[5]=C_SCHEME_UNDEFINED,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:2770: scheme#open-output-string"));
t11=C_fast_retrieve(lf[243]);{
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 k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void f_22470(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,8)))){
C_save_and_reclaim_args((void *)trf_22470,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_22482,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);
C_trace(C_text("scrutinizer.scm:2755: scheme#string-append"));
t6=*((C_word*)lf[77]+1);{
C_word av2[9];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[606];
av2[3]=lf[607];
av2[4]=lf[608];
av2[5]=lf[609];
av2[6]=lf[610];
av2[7]=lf[611];
av2[8]=lf[612];
((C_proc)(void*)(*((C_word*)t6+1)))(9,av2);}}

/* k22480 in p in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_22482(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_22482,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22486,a[2]=((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);
C_trace(C_text("scrutinizer.scm:2763: pp-fragment"));
f_21435(t2,((C_word*)t0)[9]);}

/* k22484 in k22480 in p in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22486(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_22486,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22490,a[2]=((C_word*)t0)[2],a[3]=((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);
C_trace(C_text("scrutinizer.scm:2764: chicken.compiler.support#real-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[254]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[254]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
tp(3,av2);}}

/* k22488 in k22484 in k22480 in p in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_22490(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_22490,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22494,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
C_trace(C_text("scrutinizer.scm:2766: describe-expression"));
f_21770(t2,((C_word*)t0)[9]);}

/* k22492 in k22488 in k22484 in k22480 in p in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_22494(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){
C_save_and_reclaim((void *)f_22494,c,av);}
C_trace(C_text("scrutinizer.scm:2753: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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_fast_retrieve(lf[91]);
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_21900(11,av2);}}

/* k22505 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_22507(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22507,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=C_i_check_port_2(((C_word*)t0)[4],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22513,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2768: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[615];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k22511 in k22505 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 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 t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22513,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22516,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22526,a[2]=t3,a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2768: chicken.compiler.support#real-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[254]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[254]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[5];
tp(3,av2);}}

/* k22514 in k22511 in k22505 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22516(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22516,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22519,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2768: ##sys#print"));
t3=*((C_word*)lf[241]+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)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22517 in k22514 in k22511 in k22505 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_22519(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_22519,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22522,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2768: scheme#get-output-string"));
t4=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k22520 in k22517 in k22514 in k22511 in k22505 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_22522(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22522,c,av);}
C_trace(C_text("scrutinizer.scm:2768: p"));
t2=((C_word*)t0)[2];
f_22470(t2,((C_word*)t0)[3],t1,lf[613]);}

/* k22524 in k22511 in k22505 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22526(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_22526,c,av);}
C_trace(C_text("scrutinizer.scm:2768: ##sys#print"));
t2=*((C_word*)lf[241]+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);}}

/* k22531 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_22533(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22533,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=C_i_check_port_2(((C_word*)t0)[5],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22539,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2770: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[620];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k22537 in k22531 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_22539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_22539,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22542,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22581,a[2]=t3,a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2770: chicken.compiler.support#real-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[254]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[254]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[6];
tp(3,av2);}}

/* k22540 in k22537 in k22531 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22542(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22542,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22545,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2770: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[619];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22543 in k22540 in k22537 in k22531 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_22545(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22545,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22548,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2770: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_length(((C_word*)t2)[4]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22546 in k22543 in k22540 in k22537 in k22531 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_22548(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22548,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22551,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2770: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[618];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22549 in k22546 in k22543 in k22540 in k22537 in k22531 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
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 t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_22551,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22554,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=C_SCHEME_UNDEFINED,a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t2)[4],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:2770: scheme#get-output-string"));
t4=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k22552 in k22549 in k22546 in k22543 in k22540 in k22537 in k22531 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in ... */
static void C_ccall f_22554(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22554,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22558,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2771: scheme#open-output-string"));
t4=C_fast_retrieve(lf[243]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k22556 in k22552 in k22549 in k22546 in k22543 in k22540 in k22537 in k22531 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in ... */
static void C_ccall f_22558(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22558,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+5,t1);
t4=C_i_check_port_2(((C_word*)t2)[5],C_fix(2),C_SCHEME_TRUE,lf[236]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22564,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2771: ##sys#print"));
t6=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[617];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* k22562 in k22556 in k22552 in k22549 in k22546 in k22543 in k22540 in k22537 in k22531 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in ... */
static void C_ccall f_22564(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22564,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22567,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2771: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_length(((C_word*)t2)[6]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22565 in k22562 in k22556 in k22552 in k22549 in k22546 in k22543 in k22540 in k22537 in k22531 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in ... */
static void C_ccall f_22567(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22567,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22570,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2771: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[616];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22568 in k22565 in k22562 in k22556 in k22552 in k22549 in k22546 in k22543 in k22540 in k22537 in k22531 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in ... */
static void C_ccall f_22570(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_22570,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22573,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2771: scheme#get-output-string"));
t4=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k22571 in k22568 in k22565 in k22562 in k22556 in k22552 in k22549 in k22546 in k22543 in k22540 in k22537 in k22531 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in ... */
static void C_ccall f_22573(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22573,c,av);}
C_trace(C_text("scrutinizer.scm:2770: p"));
t2=((C_word*)t0)[2];
f_22470(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k22579 in k22537 in k22531 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22581(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_22581,c,av);}
C_trace(C_text("scrutinizer.scm:2770: ##sys#print"));
t2=*((C_word*)lf[241]+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 k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
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=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(c!=7) C_bad_argc_2(c,7,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_22587,c,av);}
a=C_alloc(13);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22590,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|5,a[1]=(C_word)f_22627,a[2]=t7,a[3]=t1,a[4]=C_SCHEME_UNDEFINED,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2790: scheme#open-output-string"));
t11=C_fast_retrieve(lf[243]);{
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|6,a[1]=(C_word)f_22653,a[2]=t7,a[3]=t1,a[4]=t6,a[5]=C_SCHEME_UNDEFINED,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:2792: scheme#open-output-string"));
t11=C_fast_retrieve(lf[243]);{
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 k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void f_22590(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,8)))){
C_save_and_reclaim_args((void *)trf_22590,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_22602,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);
C_trace(C_text("scrutinizer.scm:2777: scheme#string-append"));
t6=*((C_word*)lf[77]+1);{
C_word av2[9];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[621];
av2[3]=lf[622];
av2[4]=lf[623];
av2[5]=lf[624];
av2[6]=lf[625];
av2[7]=lf[626];
av2[8]=lf[627];
((C_proc)(void*)(*((C_word*)t6+1)))(9,av2);}}

/* k22600 in p in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_22602(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_22602,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22606,a[2]=((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);
C_trace(C_text("scrutinizer.scm:2785: pp-fragment"));
f_21435(t2,((C_word*)t0)[9]);}

/* k22604 in k22600 in p in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22606(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_22606,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22610,a[2]=((C_word*)t0)[2],a[3]=((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);
C_trace(C_text("scrutinizer.scm:2786: strip-namespace"));
f_19679(t2,((C_word*)t0)[9]);}

/* k22608 in k22604 in k22600 in p in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_22610(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_22610,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22614,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
C_trace(C_text("scrutinizer.scm:2788: describe-expression"));
f_21770(t2,((C_word*)t0)[9]);}

/* k22612 in k22608 in k22604 in k22600 in p in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_22614(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){
C_save_and_reclaim((void *)f_22614,c,av);}
C_trace(C_text("scrutinizer.scm:2775: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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_fast_retrieve(lf[91]);
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_21900(11,av2);}}

/* k22625 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_22627(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22627,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=C_i_check_port_2(((C_word*)t0)[4],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22633,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2790: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[630];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k22631 in k22625 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_22633(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22633,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22636,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22646,a[2]=t3,a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2790: strip-namespace"));
f_19679(t4,((C_word*)t2)[5]);}

/* k22634 in k22631 in k22625 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22636(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22636,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22639,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2790: ##sys#print"));
t3=*((C_word*)lf[241]+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)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22637 in k22634 in k22631 in k22625 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
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 t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_22639,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22642,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2790: scheme#get-output-string"));
t4=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k22640 in k22637 in k22634 in k22631 in k22625 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_22642(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22642,c,av);}
C_trace(C_text("scrutinizer.scm:2790: p"));
t2=((C_word*)t0)[2];
f_22590(t2,((C_word*)t0)[3],t1,lf[628]);}

/* k22644 in k22631 in k22625 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22646(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_22646,c,av);}
C_trace(C_text("scrutinizer.scm:2790: ##sys#print"));
t2=*((C_word*)lf[241]+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);}}

/* k22651 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_22653(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22653,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=C_i_check_port_2(((C_word*)t0)[5],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22659,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2792: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[635];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k22657 in k22651 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_22659(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_22659,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22662,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22701,a[2]=t3,a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2792: strip-namespace"));
f_19679(t4,((C_word*)t2)[6]);}

/* k22660 in k22657 in k22651 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22662(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22662,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22665,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2792: ##sys#print"));
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[634];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22663 in k22660 in k22657 in k22651 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_22665(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22665,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22668,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2792: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_length(((C_word*)t2)[4]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22666 in k22663 in k22660 in k22657 in k22651 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_22668(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22668,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22671,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2792: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[633];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22669 in k22666 in k22663 in k22660 in k22657 in k22651 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
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 t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_22671,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22674,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=C_SCHEME_UNDEFINED,a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t2)[4],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:2792: scheme#get-output-string"));
t4=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k22672 in k22669 in k22666 in k22663 in k22660 in k22657 in k22651 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in ... */
static void C_ccall f_22674(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22674,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22678,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2793: scheme#open-output-string"));
t4=C_fast_retrieve(lf[243]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k22676 in k22672 in k22669 in k22666 in k22663 in k22660 in k22657 in k22651 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in ... */
static void C_ccall f_22678(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22678,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+5,t1);
t4=C_i_check_port_2(((C_word*)t2)[5],C_fix(2),C_SCHEME_TRUE,lf[236]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22684,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2793: ##sys#print"));
t6=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[632];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* k22682 in k22676 in k22672 in k22669 in k22666 in k22663 in k22660 in k22657 in k22651 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in ... */
static void C_ccall f_22684(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22684,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22687,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:2793: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_length(((C_word*)t2)[6]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22685 in k22682 in k22676 in k22672 in k22669 in k22666 in k22663 in k22660 in k22657 in k22651 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in ... */
static void C_ccall f_22687(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22687,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22690,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2793: ##sys#print"));
t3=*((C_word*)lf[241]+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)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22688 in k22685 in k22682 in k22676 in k22672 in k22669 in k22666 in k22663 in k22660 in k22657 in k22651 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in ... */
static void C_ccall f_22690(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_22690,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22693,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2793: scheme#get-output-string"));
t4=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k22691 in k22688 in k22685 in k22682 in k22676 in k22672 in k22669 in k22666 in k22663 in k22660 in k22657 in k22651 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22693,c,av);}
C_trace(C_text("scrutinizer.scm:2792: p"));
t2=((C_word*)t0)[2];
f_22590(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k22699 in k22657 in k22651 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22701(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_22701,c,av);}
C_trace(C_text("scrutinizer.scm:2792: ##sys#print"));
t2=*((C_word*)lf[241]+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);}}

/* k22710 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_22712(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,14)))){
C_save_and_reclaim((void *)f_22712,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)((C_word*)t0)[7])+1,t1);
t3=C_a_i_list1(&a,1,((C_word*)t0)[8]);
t4=C_mutate(((C_word *)t0)+3,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22723,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2801: scheme#string-append"));
t6=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 15) {
  av2=av;
} else {
  av2=C_alloc(15);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[130];
av2[3]=lf[131];
av2[4]=lf[132];
av2[5]=lf[133];
av2[6]=lf[134];
av2[7]=lf[135];
av2[8]=lf[136];
av2[9]=lf[137];
av2[10]=lf[138];
av2[11]=lf[139];
av2[12]=lf[140];
av2[13]=lf[141];
av2[14]=lf[142];
((C_proc)(void*)(*((C_word*)t6+1)))(15,av2);}}

/* k22721 in k22710 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_22723(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22723,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22727,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t1,a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("scrutinizer.scm:2815: pp-fragment"));
f_21435(t3,((C_word*)t2)[8]);}

/* k22725 in k22721 in k22710 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in ... */
static void C_ccall f_22727(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22727,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22731,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);
C_trace(C_text("scrutinizer.scm:2816: variable-from-module"));
f_21710(t2,((C_word*)((C_word*)t0)[8])[1]);}

/* k22729 in k22725 in k22721 in k22710 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in ... */
static void C_ccall f_22731(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22731,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22735,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);
C_trace(C_text("scrutinizer.scm:2817: type->pp-string"));
f_20864(t2,((C_word*)t0)[8]);}

/* k22733 in k22729 in k22725 in k22721 in k22710 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in ... */
static void C_ccall f_22735(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22735,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22739,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);
C_trace(C_text("scrutinizer.scm:2818: type->pp-string"));
f_20864(t2,((C_word*)t0)[8]);}

/* k22737 in k22733 in k22729 in k22725 in k22721 in k22710 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in ... */
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 t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,8)))){
C_save_and_reclaim((void *)f_22739,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]=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));
av2[3]=lf[129];
av2[4]=C_fast_retrieve(lf[74]);
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);}}

/* k22744 in k9071 in k9068 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in ... */
static void C_ccall f_22746(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,14)))){
C_save_and_reclaim((void *)f_22746,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)((C_word*)t0)[7])+1,t1);
t3=C_a_i_list1(&a,1,((C_word*)t0)[8]);
t4=C_mutate(((C_word *)t0)+3,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22757,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2826: scheme#string-append"));
t6=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 15) {
  av2=av;
} else {
  av2=C_alloc(15);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[146];
av2[3]=lf[147];
av2[4]=lf[148];
av2[5]=lf[149];
av2[6]=lf[150];
av2[7]=lf[151];
av2[8]=lf[152];
av2[9]=lf[153];
av2[10]=lf[154];
av2[11]=lf[155];
av2[12]=lf[156];
av2[13]=lf[157];
av2[14]=lf[158];
((C_proc)(void*)(*((C_word*)t6+1)))(15,av2);}}

/* k22755 in k22744 in k9071 in k9068 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22757,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22761,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t1,a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("scrutinizer.scm:2840: pp-fragment"));
f_21435(t3,((C_word*)t2)[8]);}

/* k22759 in k22755 in k22744 in k9071 in k9068 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in ... */
static void C_ccall f_22761(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22761,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22765,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);
C_trace(C_text("scrutinizer.scm:2841: variable-from-module"));
f_21710(t2,((C_word*)((C_word*)t0)[8])[1]);}

/* k22763 in k22759 in k22755 in k22744 in k9071 in k9068 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in ... */
static void C_ccall f_22765(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22765,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22769,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);
C_trace(C_text("scrutinizer.scm:2842: type->pp-string"));
f_20864(t2,((C_word*)t0)[8]);}

/* k22767 in k22763 in k22759 in k22755 in k22744 in k9071 in k9068 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result 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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_22769,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22773,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);
C_trace(C_text("scrutinizer.scm:2843: type->pp-string"));
f_20864(t2,((C_word*)t0)[8]);}

/* k22771 in k22767 in k22763 in k22759 in k22755 in k22744 in k9071 in k9068 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in ... */
static void C_ccall f_22773(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,8)))){
C_save_and_reclaim((void *)f_22773,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]=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));
av2[3]=lf[145];
av2[4]=C_fast_retrieve(lf[74]);
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);}}

/* k22785 in k8700 in always-true in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22787(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_22787,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22791,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);
C_trace(C_text("scrutinizer.scm:2858: pp-fragment"));
f_21435(t2,((C_word*)t0)[6]);}

/* k22789 in k22785 in k8700 in always-true in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22791(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_22791,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22795,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);
C_trace(C_text("scrutinizer.scm:2859: type->pp-string"));
f_20864(t2,((C_word*)t0)[6]);}

/* k22793 in k22789 in k22785 in k8700 in always-true in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22795(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,8)))){
C_save_and_reclaim((void *)f_22795,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]=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));
av2[3]=lf[73];
av2[4]=C_fast_retrieve(lf[74]);
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);}}

/* k22807 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22809(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_22809,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22813,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_trace(C_text("scrutinizer.scm:2872: pp-fragment"));
f_21435(t2,((C_word*)t0)[5]);}

/* k22811 in k22807 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22813(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){
C_save_and_reclaim((void *)f_22813,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]=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));
av2[3]=lf[214];
av2[4]=C_fast_retrieve(lf[74]);
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);}}

/* k22825 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22827(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_22827,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22831,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);
C_trace(C_text("scrutinizer.scm:2889: pp-fragment"));
f_21435(t2,((C_word*)t0)[6]);}

/* k22829 in k22825 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22831(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_22831,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22835,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:2890: type->pp-string"));
f_20864(t2,((C_word*)t0)[6]);}

/* k22833 in k22829 in k22825 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22835(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_22835,c,av);}
C_trace(C_text("scrutinizer.scm:2876: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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[279];
av2[3]=C_fast_retrieve(lf[91]);
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_21900(9,av2);}}

/* k22847 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22849(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_22849,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22853,a[2]=((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);
C_trace(C_text("scrutinizer.scm:2908: pp-fragment"));
f_21435(t2,((C_word*)t0)[7]);}

/* k22851 in k22847 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22853(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_22853,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_22861,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);
C_trace(C_text("scrutinizer.scm:2910: type->pp-string"));
f_20864(t3,((C_word*)t0)[7]);}

/* k22859 in k22851 in k22847 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22861(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_22861,c,av);}
C_trace(C_text("scrutinizer.scm:2893: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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[302];
av2[3]=C_fast_retrieve(lf[91]);
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_21900(10,av2);}}

/* k22873 in k11371 in k11368 in k11362 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22875(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_22875,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22879,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);
C_trace(C_text("scrutinizer.scm:2932: pp-fragment"));
f_21435(t2,((C_word*)t0)[7]);}

/* k22877 in k22873 in k11371 in k11368 in k11362 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22879(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_22879,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22883,a[2]=((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);
C_trace(C_text("scrutinizer.scm:2933: type->pp-string"));
f_20864(t2,((C_word*)t0)[7]);}

/* k22881 in k22877 in k22873 in k11371 in k11368 in k11362 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_22883,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22887,a[2]=((C_word*)t0)[2],a[3]=((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);
C_trace(C_text("scrutinizer.scm:2934: type->pp-string"));
f_20864(t2,((C_word*)t0)[7]);}

/* k22885 in k22881 in k22877 in k22873 in k11371 in k11368 in k11362 in k11337 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_22887(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_22887,c,av);}
C_trace(C_text("scrutinizer.scm:2913: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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[287];
av2[3]=C_fast_retrieve(lf[91]);
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_21900(10,av2);}}

/* k22905 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22907(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_22907,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22911,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_22976,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2957: node-source-prefix"));
f_21459(t3,((C_word*)t0)[5]);}

/* k22909 in k22905 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22911(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_22911,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22915,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);
C_trace(C_text("scrutinizer.scm:2960: location-name"));
f_21489(t2,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);}

/* k22913 in k22909 in k22905 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22915(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_22915,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22919,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);
C_trace(C_text("scrutinizer.scm:2961: pp-fragment"));
f_21435(t2,((C_word*)t0)[7]);}

/* k22917 in k22913 in k22909 in k22905 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22919(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_22919,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22923,a[2]=((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)f26249,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2937: type->pp-string"));
f_20864(t3,((C_word*)t0)[7]);}

/* k22921 in k22917 in k22913 in k22909 in k22905 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_22923(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
C_save_and_reclaim((void *)f_22923,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22927,a[2]=((C_word*)t0)[2],a[3]=((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_22937,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_22939,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_22939(t12,t8,((C_word*)t0)[7]);}

/* k22925 in k22921 in k22917 in k22913 in k22909 in k22905 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_22927(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_22927,c,av);}
C_trace(C_text("scrutinizer.scm:2938: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[313]);
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=*((C_word*)lf[313]+1);
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;
tp(8,av2);}}

/* k22935 in k22921 in k22917 in k22913 in k22909 in k22905 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_22937(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22937,c,av);}
C_trace(C_text("scrutinizer.scm:2963: chicken.string#string-intersperse"));
t2=C_fast_retrieve(lf[314]);{
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[315];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop5668 in k22921 in k22917 in k22913 in k22909 in k22905 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void f_22939(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_22939,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_22964,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)f26242,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2937: type->pp-string"));
f_20864(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);}}}

/* k22962 in map-loop5668 in k22921 in k22917 in k22913 in k22909 in k22905 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_22964(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22964,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_22939(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k22974 in k22905 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22976(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22976,c,av);}
a=C_alloc(3);
if(C_truep(C_i_string_equal_p(lf[319],t1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[320];
f_22911(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22983,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2959: node-source-prefix"));
f_21459(t2,((C_word*)t0)[3]);}}

/* k22981 in k22974 in k22905 in loop in k11428 in k11425 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_22983(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_22983,c,av);}
C_trace(C_text("scrutinizer.scm:2959: chicken.string#conc"));
t2=C_fast_retrieve(lf[321]);{
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[322];
av2[3]=t1;
av2[4]=lf[323];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k22995 in k9771 in k9759 in k9752 in k9748 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_22997(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_22997,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23001,a[2]=((C_word*)t0)[2],a[3]=((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);
C_trace(C_text("scrutinizer.scm:2985: pp-fragment"));
f_21435(t2,((C_word*)t0)[9]);}

/* k22999 in k22995 in k9771 in k9759 in k9752 in k9748 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_23001(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_23001,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[172]:lf[173]);
t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23013,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);
C_trace(C_text("scrutinizer.scm:2987: pp-fragment"));
f_21435(t6,((C_word*)t0)[9]);}

/* k23011 in k22999 in k22995 in k9771 in k9759 in k9752 in k9748 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_23013(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_23013,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[172]:lf[173]);
t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23025,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);
C_trace(C_text("scrutinizer.scm:2989: pp-fragment"));
f_21435(t6,((C_word*)t0)[10]);}

/* k23023 in k23011 in k22999 in k22995 in k9771 in k9759 in k9752 in k9748 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_23025(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,13)))){
C_save_and_reclaim((void *)f_23025,c,av);}
C_trace(C_text("scrutinizer.scm:2966: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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[199];
av2[3]=C_fast_retrieve(lf[91]);
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_21900(14,av2);}}

/* k23041 in k10661 in k10658 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_23043,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23047,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=C_SCHEME_UNDEFINED,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("scrutinizer.scm:3011: pp-fragment"));
f_21435(t2,((C_word*)t0)[8]);}

/* k23045 in k23041 in k10661 in k10658 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23047(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_23047,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23051,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:3012: strip-namespace"));
f_19679(t3,((C_word*)t0)[8]);}

/* k23049 in k23045 in k23041 in k10661 in k10658 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_23051(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_23051,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23055,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=t1,a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("scrutinizer.scm:3013: type->pp-string"));
f_20864(t3,((C_word*)t2)[9]);}

/* k23053 in k23049 in k23045 in k23041 in k10661 in k10658 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_23055(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_23055,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23059,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=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_23067,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:3015: chicken.compiler.support#real-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[254]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[254]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[9];
tp(3,av2);}}

/* k23057 in k23053 in k23049 in k23045 in k23041 in k10661 in k10658 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_23059(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_23059,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23063,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
C_trace(C_text("scrutinizer.scm:3017: type->pp-string"));
f_20864(t2,((C_word*)t0)[9]);}

/* k23061 in k23057 in k23053 in k23049 in k23045 in k23041 in k10661 in k10658 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_23063(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,11)))){
C_save_and_reclaim((void *)f_23063,c,av);}
C_trace(C_text("scrutinizer.scm:2992: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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[252];
av2[3]=C_fast_retrieve(lf[91]);
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_21900(12,av2);}}

/* k23065 in k23053 in k23049 in k23045 in k23041 in k10661 in k10658 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_23067(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_23067,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23070,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_symbolp(t1))){
C_trace(C_text("scrutinizer.scm:3014: variable-from-module"));
f_21710(((C_word*)t0)[2],t1);}
else{
C_trace(C_text("scrutinizer.scm:3016: scheme#string->symbol"));
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]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* k23068 in k23065 in k23053 in k23049 in k23045 in k23041 in k10661 in k10658 in k10394 in k10391 in k10388 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_23070(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_23070,c,av);}
C_trace(C_text("scrutinizer.scm:3014: variable-from-module"));
f_21710(((C_word*)t0)[2],t1);}

/* chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_23078(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_23078,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=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23089,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t7,a[6]=t4,a[7]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("scrutinizer.scm:3021: scheme#open-output-string"));
t9=C_fast_retrieve(lf[243]);{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}

/* k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_23089(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_23089,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+7,t1);
t3=C_i_check_port_2(((C_word*)t0)[7],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23095,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:3021: ##sys#print"));
t5=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[644];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_23095(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_23095,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23098,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],tmp=(C_word)a,a+=8,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23156,a[2]=t3,a[3]=((C_word*)t2)[7],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:3021: strip-namespace"));
f_19679(t4,((C_word*)t2)[6]);}

/* k23096 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_23098(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_23098,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23101,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:3021: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t2;
av2[2]=C_make_character(39);
av2[3]=((C_word*)t0)[7];
tp(4,av2);}}

/* k23099 in k23096 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_23101(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_23101,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23104,a[2]=((C_word*)t2)[3],a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[2],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("scrutinizer.scm:3021: scheme#get-output-string"));
t4=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[7];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k23102 in k23099 in k23096 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in ... */
static void C_ccall f_23104(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,7)))){
C_save_and_reclaim((void *)f_23104,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_a_i_list1(&a,1,((C_word*)t0)[8]);
t4=C_mutate(((C_word *)t0)+4,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23112,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:3025: scheme#string-append"));
t6=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[638];
av2[3]=lf[639];
av2[4]=lf[640];
av2[5]=lf[641];
av2[6]=lf[642];
av2[7]=lf[643];
((C_proc)(void*)(*((C_word*)t6+1)))(8,av2);}}

/* k23110 in k23102 in k23099 in k23096 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in ... */
static void C_ccall f_23112(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_23112,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23116,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=t1,a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("scrutinizer.scm:3032: pp-fragment"));
f_21435(t3,((C_word*)t2)[8]);}

/* k23114 in k23110 in k23102 in k23099 in k23096 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in ... */
static void C_ccall f_23116(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_23116,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23120,a[2]=((C_word*)t0)[2],a[3]=((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);
C_trace(C_text("scrutinizer.scm:3033: variable-from-module"));
f_21710(t2,((C_word*)t0)[8]);}

/* k23118 in k23114 in k23110 in k23102 in k23099 in k23096 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in ... */
static void C_ccall f_23120(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_23120,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23124,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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|4,a[1]=(C_word)f_23127,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:3035: scheme#open-output-string"));
t4=C_fast_retrieve(lf[243]);{
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[637];
f_23124(2,av2);}}}

/* k23122 in k23118 in k23114 in k23110 in k23102 in k23099 in k23096 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in ... */
static void C_ccall f_23124(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_23124,c,av);}
C_trace(C_text("scrutinizer.scm:3020: report2"));
t2=C_retrieve2(lf[72],C_text("chicken.compiler.scrutinizer#report2"));{
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_fast_retrieve(lf[91]);
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_21900(10,av2);}}

/* k23125 in k23118 in k23114 in k23110 in k23102 in k23099 in k23096 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in ... */
static void C_ccall f_23127(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_23127,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[236]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23133,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:3035: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t4;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k23131 in k23125 in k23118 in k23114 in k23110 in k23102 in k23099 in k23096 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in ... */
static void C_ccall f_23133(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_23133,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23136,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:3035: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t3;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}

/* k23134 in k23131 in k23125 in k23118 in k23114 in k23110 in k23102 in k23099 in k23096 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in ... */
static void C_ccall f_23136(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_23136,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23139,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:3035: ##sys#print"));
t4=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[636];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k23137 in k23134 in k23131 in k23125 in k23118 in k23114 in k23110 in k23102 in k23099 in k23096 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in ... */
static void C_ccall f_23139(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_23139,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23142,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23152,a[2]=t3,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:3036: variable-from-module"));
f_21710(t4,((C_word*)t2)[4]);}

/* k23140 in k23137 in k23134 in k23131 in k23125 in k23118 in k23114 in k23110 in k23102 in k23099 in k23096 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in ... */
static void C_ccall f_23142(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_23142,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23145,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:3035: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t2;
av2[2]=C_make_character(46);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k23143 in k23140 in k23137 in k23134 in k23131 in k23125 in k23118 in k23114 in k23110 in k23102 in k23099 in k23096 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in ... */
static void C_ccall f_23145(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_23145,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("scrutinizer.scm:3035: scheme#get-output-string"));
t3=C_fast_retrieve(lf[239]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k23150 in k23137 in k23134 in k23131 in k23125 in k23118 in k23114 in k23110 in k23102 in k23099 in k23096 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in ... */
static void C_ccall f_23152(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_23152,c,av);}
C_trace(C_text("scrutinizer.scm:3035: ##sys#print"));
t2=*((C_word*)lf[241]+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);}}

/* k23154 in k23093 in k23087 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_23156(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_23156,c,av);}
C_trace(C_text("scrutinizer.scm:3021: ##sys#print"));
t2=*((C_word*)lf[241]+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);}}

/* a23167 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23168(C_word c,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!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_23168,c,av);}
a=C_alloc(5);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23172,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2258: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2=av;
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t6;
av2[2]=t2;
tp(3,av2);}}

/* k23170 in a23167 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23172(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_23172,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)f26934,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t5;
av2[2]=t4;
tp(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);}}}

/* k23211 */
static void C_ccall f_23213(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_23213,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=C_a_i_cons(&a,2,lf[48],t1);
t4=C_a_i_list(&a,1,t3);
t5=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=(C_truep(t4)?t4:((C_word*)t2)[3]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* a23229 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23230(C_word c,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!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_23230,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_23251,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_23253,a[2]=t8,a[3]=t15,a[4]=t9,tmp=(C_word)a,a+=5,tmp));
t17=((C_word*)t15)[1];
f_23253(t17,t13,t11);}

/* k23249 in a23229 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23251(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_23251,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,lf[51],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-loop4631 in a23229 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_23253(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_23253,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)f26939,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word av2[3];
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t4;
av2[2]=t3;
tp(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);}}}

/* a23286 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23287(C_word c,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!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_23287,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_23308,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_23310,a[2]=t8,a[3]=t15,a[4]=t9,tmp=(C_word)a,a+=5,tmp));
t17=((C_word*)t15)[1];
f_23310(t17,t13,t11);}

/* k23306 in a23286 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23308(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_23308,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,lf[51],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-loop4597 in a23286 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_23310(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_23310,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)f26946,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word av2[3];
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t4;
av2[2]=t3;
tp(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);}}}

/* a23343 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23344(C_word c,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!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_23344,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[649];
((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_23369,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_23371,a[2]=t9,a[3]=t16,a[4]=t10,tmp=(C_word)a,a+=5,tmp));
t18=((C_word*)t16)[1];
f_23371(t18,t14,t12);}}

/* k23367 in a23343 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23369(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_23369,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,lf[48],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-loop4563 in a23343 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_23371(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_23371,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)f26953,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word av2[3];
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t4;
av2[2]=t3;
tp(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);}}}

/* a23408 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23409(C_word c,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!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_23409,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[651];
((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_23434,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_23436,a[2]=t9,a[3]=t16,a[4]=t10,tmp=(C_word)a,a+=5,tmp));
t18=((C_word*)t16)[1];
f_23436(t18,t14,t12);}}

/* k23432 in a23408 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23434(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_23434,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,lf[48],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-loop4529 in a23408 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_23436(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_23436,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)f26960,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word av2[3];
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t4;
av2[2]=t3;
tp(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);}}}

/* k23474 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23476(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_23476,c,av);}
C_trace(C_text("scrutinizer.scm:2232: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[645]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[645]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[653];
av2[3]=lf[275];
av2[4]=t1;
tp(5,av2);}}

/* a23477 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23478(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_23478,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);}}

/* k23484 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23486(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_23486,c,av);}
C_trace(C_text("scrutinizer.scm:2226: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[645]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[645]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[654];
av2[3]=lf[275];
av2[4]=t1;
tp(5,av2);}}

/* a23487 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23488(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_23488,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);}}}

/* a23503 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23504(C_word c,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!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_23504,c,av);}
a=C_alloc(7);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23508,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=C_SCHEME_UNDEFINED,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:2149: known-length-vector-index"));
f_19729(t6,t2,t3,t4,C_fix(3));}

/* k23506 in a23503 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23508(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_23508,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
if(C_truep(((C_word*)t0)[5])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23517,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2150: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
tp(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);}}}

/* k23515 in k23506 in a23503 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23517(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_23517,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_i_cadr(t1);
if(C_truep(t3)){
t4=C_i_cadddr(t1);
if(C_truep(t4)){
t5=C_i_cadddr(((C_word*)t2)[2]);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f26967,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=t3,a[6]=t4,a[7]=((C_word*)t2)[6],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t6;
av2[2]=t5;
tp(3,av2);}}
else{
t5=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t3=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k23542 in k23553 */
static void C_ccall f_23544(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_23544,c,av);}
t2=lf[657];
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);}}

/* k23553 */
static void C_ccall f_23555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_23555,c,av);}
a=C_alloc(22);
t2=((C_word*)t0)[2];
t3=(C_truep(t1)?lf[655]:lf[656]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23544,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t5=C_a_i_list(&a,2,lf[124],((C_word*)t2)[4]);
t6=C_a_i_list(&a,4,t3,((C_word*)t2)[5],t5,((C_word*)t2)[6]);
C_trace(C_text("scrutinizer.scm:2157: mutate-node!"));
f_17532(t4,((C_word*)t2)[7],t6);}

/* a23560 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23561(C_word c,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!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_23561,c,av);}
a=C_alloc(5);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23565,a[2]=t1,a[3]=t5,a[4]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:2103: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2=av;
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t6;
av2[2]=t2;
tp(3,av2);}}

/* k23563 in a23560 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23565(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_23565,c,av);}
a=C_alloc(3);
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);
t4=C_mutate(((C_word *)t0)+4,t3);
if(C_truep(((C_word*)t0)[4])){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23626,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2106: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
tp(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{
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);}}}

/* k23616 in k23620 in k23624 in k23563 in a23560 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23618(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_23618,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=C_a_i_list(&a,2,lf[53],t1);
t4=C_a_i_list(&a,1,t3);
t5=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=(C_truep(t4)?t4:((C_word*)t2)[3]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k23620 in k23624 in k23563 in a23560 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23622(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_23622,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
if(C_truep(t2)){
if(C_truep(C_i_symbolp(t2))){
t3=C_eqp(lf[661],t2);
if(C_truep(t3)){
t4=lf[662];
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|2,a[1]=(C_word)f_23618,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2113: strip-namespace"));
f_19679(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);}}}

/* k23624 in k23563 in a23560 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_23626(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_23626,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=C_eqp(lf[124],t1);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23622,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:2107: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}
else{
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k6803 */
static void C_ccall f_6805(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6805,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6808,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);}}

/* k6806 in k6803 */
static void C_ccall f_6808(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6808,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6811,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);}}

/* k6809 in k6806 in k6803 */
static void C_ccall f_6811(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6811,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6814,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);}}

/* k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_6814(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6814,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6817,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);}}

/* k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_6817(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6817,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6820,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);}}

/* k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_6820(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6820,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6823,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);}}

/* k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_6823(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6823,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6826,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);}}

/* k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_6826(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6826,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6829,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);}}

/* k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_6829(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(111,c,8)))){
C_save_and_reclaim((void *)f_6829,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_6939,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_7030,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_7200,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_7234,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_7395,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_7484,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_7549,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_7842,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_7884,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_8025,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#constant737 ...) */,lf[20]);
t18=C_mutate(&lf[21] /* (set! chicken.compiler.scrutinizer#constant744 ...) */,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_8154,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_8164,tmp=(C_word)a,a+=2,tmp));
t23=C_mutate((C_word*)lf[37]+1 /* (set! chicken.compiler.scrutinizer#scrutinize ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8207,tmp=(C_word)a,a+=2,tmp));
t24=C_mutate(&lf[244] /* (set! chicken.compiler.scrutinizer#smash-component-types! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11728,tmp=(C_word)a,a+=2,tmp));
t25=C_mutate((C_word*)lf[171]+1 /* (set! chicken.compiler.scrutinizer#match-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11924,tmp=(C_word)a,a+=2,tmp));
t26=C_mutate(&lf[160] /* (set! chicken.compiler.scrutinizer#match-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13512,tmp=(C_word)a,a+=2,tmp));
t27=C_mutate(&lf[50] /* (set! chicken.compiler.scrutinizer#simplify-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13584,tmp=(C_word)a,a+=2,tmp));
t28=C_mutate(&lf[381] /* (set! chicken.compiler.scrutinizer#merge-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14553,tmp=(C_word)a,a+=2,tmp));
t29=C_mutate(&lf[301] /* (set! chicken.compiler.scrutinizer#compatible-types? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14791,tmp=(C_word)a,a+=2,tmp));
t30=C_mutate((C_word*)lf[383]+1 /* (set! chicken.compiler.scrutinizer#type<=? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14850,tmp=(C_word)a,a+=2,tmp));
t31=C_mutate((C_word*)lf[274]+1 /* (set! chicken.compiler.scrutinizer#refine-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14878,tmp=(C_word)a,a+=2,tmp));
t32=C_mutate(&lf[122] /* (set! chicken.compiler.scrutinizer#procedure-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15200,tmp=(C_word)a,a+=2,tmp));
t33=C_mutate(&lf[167] /* (set! chicken.compiler.scrutinizer#procedure-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15252,tmp=(C_word)a,a+=2,tmp));
t34=C_mutate(&lf[372] /* (set! chicken.compiler.scrutinizer#procedure-arguments ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15303,tmp=(C_word)a,a+=2,tmp));
t35=C_mutate(&lf[371] /* (set! chicken.compiler.scrutinizer#procedure-results ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15360,tmp=(C_word)a,a+=2,tmp));
t36=C_mutate(&lf[120] /* (set! chicken.compiler.scrutinizer#procedure-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15417,tmp=(C_word)a,a+=2,tmp));
t37=C_mutate(&lf[389] /* (set! chicken.compiler.scrutinizer#named? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15768,tmp=(C_word)a,a+=2,tmp));
t38=C_mutate(&lf[367] /* (set! chicken.compiler.scrutinizer#rest-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15821,tmp=(C_word)a,a+=2,tmp));
t39=C_mutate(&lf[169] /* (set! chicken.compiler.scrutinizer#noreturn-procedure-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15841,tmp=(C_word)a,a+=2,tmp));
t40=C_mutate(&lf[403] /* (set! chicken.compiler.scrutinizer#noreturn-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15900,tmp=(C_word)a,a+=2,tmp));
t41=C_mutate(&lf[387] /* (set! chicken.compiler.scrutinizer#refinement-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15944,tmp=(C_word)a,a+=2,tmp));
t42=C_mutate(&lf[162] /* (set! chicken.compiler.scrutinizer#type-typeenv ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15991,tmp=(C_word)a,a+=2,tmp));
t43=C_mutate(&lf[159] /* (set! chicken.compiler.scrutinizer#trail-restore ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16323,tmp=(C_word)a,a+=2,tmp));
t44=C_mutate(&lf[119] /* (set! chicken.compiler.scrutinizer#resolve ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16366,tmp=(C_word)a,a+=2,tmp));
t45=C_mutate((C_word*)lf[407]+1 /* (set! chicken.compiler.scrutinizer#load-type-database ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16837,tmp=(C_word)a,a+=2,tmp));
t46=C_mutate((C_word*)lf[433]+1 /* (set! chicken.compiler.scrutinizer#emit-types-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17311,tmp=(C_word)a,a+=2,tmp));
t47=lf[450] /* chicken.compiler.scrutinizer#node-mutations */ =C_SCHEME_END_OF_LIST;;
t48=C_mutate(&lf[161] /* (set! chicken.compiler.scrutinizer#mutate-node! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17532,tmp=(C_word)a,a+=2,tmp));
t49=C_mutate(&lf[454] /* (set! chicken.compiler.scrutinizer#source-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17550,tmp=(C_word)a,a+=2,tmp));
t50=C_mutate(&lf[456] /* (set! chicken.compiler.scrutinizer#source-node-tree ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17577,tmp=(C_word)a,a+=2,tmp));
t51=C_mutate(&lf[126] /* (set! chicken.compiler.scrutinizer#specialize-node! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17712,tmp=(C_word)a,a+=2,tmp));
t52=C_mutate((C_word*)lf[408]+1 /* (set! chicken.compiler.scrutinizer#validate-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17865,tmp=(C_word)a,a+=2,tmp));
t53=C_mutate((C_word*)lf[483]+1 /* (set! chicken.compiler.scrutinizer#check-and-validate-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19252,tmp=(C_word)a,a+=2,tmp));
t54=C_mutate((C_word*)lf[409]+1 /* (set! chicken.compiler.scrutinizer#install-specializations ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19286,tmp=(C_word)a,a+=2,tmp));
t55=C_mutate(&lf[388] /* (set! chicken.compiler.scrutinizer#canonicalize-list-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19565,tmp=(C_word)a,a+=2,tmp));
t56=C_mutate(&lf[177] /* (set! chicken.compiler.scrutinizer#strip-namespace ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19679,tmp=(C_word)a,a+=2,tmp));
t57=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19727,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t58=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23561,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:2101: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[645]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[645]+1);
av2[1]=t57;
av2[2]=lf[663];
av2[3]=lf[275];
av2[4]=t58;
tp(5,av2);}}

/* loop in a12075 in match-rest in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_6895(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_6895,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_6909,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:49: scheme#reverse"));
t5=*((C_word*)lf[368]+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[366],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);
C_trace(C_text("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_6933,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:51: scheme#reverse"));
t7=*((C_word*)lf[368]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}

/* k6907 in loop in a12075 in match-rest in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_6909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6909,c,av);}
C_trace(C_text("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);}}

/* k6931 in loop in a12075 in match-rest in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_6933(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6933,c,av);}
C_trace(C_text("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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_6939(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_6939,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_6957,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("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;}}

/* k6955 in chicken.compiler.scrutinizer#take in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_6957(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_6957,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 a19941 in k20151 in k20155 */
static void f_6997(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){
C_save_and_reclaim_args((void *)trf_6997,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_7011,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:67: scheme#reverse"));
t6=*((C_word*)lf[368]+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);
C_trace(C_text("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;}}

/* k7009 in loop in a19941 in k20151 in k20155 */
static void C_ccall f_7011(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7011,c,av);}
C_trace(C_text("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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7030(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_7030,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_7045,a[2]=t2,a[3]=t7,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_7045(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_7085,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_7085(t9,t1,t5);}}

/* foldr198 in chicken.compiler.scrutinizer#append-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7045(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_7045,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_7053,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_7072,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);}}}

/* g203 in foldr198 in chicken.compiler.scrutinizer#append-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7053(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_7053,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7061,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("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)C_fast_retrieve_proc(t5))(3,av2);}}

/* k7059 in g203 in foldr198 in chicken.compiler.scrutinizer#append-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7061(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7061,c,av);}
C_trace(C_text("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);}}

/* k7070 in foldr198 in chicken.compiler.scrutinizer#append-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7072(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7072,c,av);}
C_trace(C_text("mini-srfi-1.scm:72: g203"));
t2=((C_word*)t0)[2];
f_7053(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* loop in chicken.compiler.scrutinizer#append-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7085(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_7085,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7092,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);
C_trace(C_text("mini-srfi-1.scm:74: any"));
f_7234(t3,*((C_word*)lf[8]+1),t2);}

/* k7090 in loop in chicken.compiler.scrutinizer#append-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7092(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
C_save_and_reclaim((void *)f_7092,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_7099,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_7164,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_7166,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_7166(t12,t8,((C_word*)t0)[4]);}}

/* k7097 in k7090 in loop in chicken.compiler.scrutinizer#append-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7099(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
C_save_and_reclaim((void *)f_7099,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7103,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_7115,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_7117,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_7117(t11,t7,((C_word*)t0)[4]);}

/* k7101 in k7097 in k7090 in loop in chicken.compiler.scrutinizer#append-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7103(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7103,c,av);}
C_trace(C_text("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);}}

/* k7113 in k7097 in k7090 in loop in chicken.compiler.scrutinizer#append-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7115(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7115,c,av);}
C_trace(C_text("mini-srfi-1.scm:77: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_7085(t2,((C_word*)t0)[3],t1);}

/* map-loop240 in k7097 in k7090 in loop in chicken.compiler.scrutinizer#append-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7117(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_7117,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);}}}

/* k7162 in k7090 in loop in chicken.compiler.scrutinizer#append-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7164(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7164,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-loop213 in k7090 in loop in chicken.compiler.scrutinizer#append-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7166(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_7166,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7200(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_7200,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_7206,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_7206(t7,t1,t3);}

/* loop in chicken.compiler.scrutinizer#every in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7206(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_7206,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_7228,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("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)C_fast_retrieve_proc(t5))(3,av2);}}}

/* k7226 in loop in chicken.compiler.scrutinizer#every in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7228(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7228,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{
C_trace(C_text("mini-srfi-1.scm:83: loop"));
t2=((C_word*)((C_word*)t0)[3])[1];
f_7206(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}

/* chicken.compiler.scrutinizer#any in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7234(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_7234,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_7240,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_7240(t7,t1,t3);}

/* loop in chicken.compiler.scrutinizer#any in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7240(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_7240,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_7250,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("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)C_fast_retrieve_proc(t4))(3,av2);}}}

/* k7248 in loop in chicken.compiler.scrutinizer#any in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7250(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7250,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
C_trace(C_text("mini-srfi-1.scm:89: loop"));
t2=((C_word*)((C_word*)t0)[3])[1];
f_7240(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}

/* loop in k17369 in k17355 in k17352 in k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void f_7270(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_7270,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_7284,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:95: loop"));
t6=t4;
t7=C_i_car(t3);
t8=C_u_i_cdr(t3);
t1=t6;
t2=t7;
t3=t8;
goto loop;}}

/* k7282 in loop in k17369 in k17355 in k17352 in k17349 in k17346 in k17343 in k17340 in k17334 in k17331 in g3603 in k17319 in a17316 in chicken.compiler.scrutinizer#emit-types-file in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_7284(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_7284,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 k20605 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in k6818 in ... */
static void f_7298(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_7298,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_7316,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:101: loop"));
t6=t4;
t7=C_u_i_cdr(t2);
t1=t6;
t2=t7;
goto loop;}}

/* k7314 in loop in k20605 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20448 in k20353 in k20350 in k20185 in k20182 in k20179 in k20176 in k20173 in k20170 in k20167 in k19887 in k19884 in k19881 in k19725 in k6827 in k6824 in k6821 in ... */
static void C_ccall f_7316(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7316,c,av);}
C_trace(C_text("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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7326(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_7326,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_7339,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("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)C_fast_retrieve_proc(t4))(4,av2);}}}

/* k7337 in loop in loop in chicken.compiler.scrutinizer#delete-duplicates in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7339(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7339,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
C_trace(C_text("mini-srfi-1.scm:107: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_7326(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_7353,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:109: loop"));
t4=((C_word*)((C_word*)t0)[2])[1];
f_7326(t4,t3,C_u_i_cdr(((C_word*)t0)[4]));}}

/* k7351 in k7337 in loop in loop in chicken.compiler.scrutinizer#delete-duplicates in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7353(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_7353,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7395(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_7395,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_7401,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_7401(t7,t1,t2);}

/* loop in chicken.compiler.scrutinizer#delete-duplicates in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7401(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){
C_save_and_reclaim_args((void *)trf_7401,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_7415,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_7428,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_7326,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_7326(t10,t6,t4);}}

/* k7413 in loop in chicken.compiler.scrutinizer#delete-duplicates in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7415(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_7415,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);}}

/* k7426 in loop in chicken.compiler.scrutinizer#delete-duplicates in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7428(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7428,c,av);}
C_trace(C_text("mini-srfi-1.scm:123: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_7401(t2,((C_word*)t0)[3],t1);}

/* chicken.compiler.scrutinizer#filter-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7484(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_7484,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_7493,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_7493(t8,t1,t3);}

/* foldr363 in chicken.compiler.scrutinizer#filter-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7493(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_7493,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_7501,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_7527,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);}}}

/* g368 in foldr363 in chicken.compiler.scrutinizer#filter-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7501(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_7501,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7505,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("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)C_fast_retrieve_proc(t5))(3,av2);}}

/* k7503 in g368 in foldr363 in chicken.compiler.scrutinizer#filter-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7505(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_7505,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7509,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("mini-srfi-1.scm:135: g378"));
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
C_trace("mini-srfi-1.scm:135: g378"),
  f_7509(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);}}}

/* g378 in k7503 in g368 in foldr363 in chicken.compiler.scrutinizer#filter-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static C_word f_7509(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]));}

/* k7525 in foldr363 in chicken.compiler.scrutinizer#filter-map in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7527(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7527,c,av);}
C_trace(C_text("mini-srfi-1.scm:134: g368"));
t2=((C_word*)t0)[2];
f_7501(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* chicken.compiler.scrutinizer#unzip1 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7549(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=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!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_7549,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_7566,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_7566(t11,t1,t2);}

/* map-loop391 in chicken.compiler.scrutinizer#unzip1 in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7566(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_7566,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 g2706 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7665(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:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_7665,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))){
C_trace(C_text("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);
C_trace(C_text("mini-srfi-1.scm:161: loop"));
t9=t1;
t10=t5;
t11=t7;
t1=t9;
t2=t10;
t3=t11;
goto loop;}}}

/* k7754 in foldl486 in foldl474 in k14061 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7756(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_7756,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)((C_word*)t0)[2])[1];
f_7773(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_7773(t3,((C_word*)t0)[3],((C_word*)t0)[4],t2);}}

/* a7760 in foldl486 in foldl474 in k14061 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7761(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7761,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);}}

/* foldl486 in foldl474 in k14061 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7773(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_7773,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_7756,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_7761,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("mini-srfi-1.scm:175: any"));
f_7234(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);}}}

/* foldl474 in k14061 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7800(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_7800,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_7818,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[379]);
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_7773,a[2]=t9,tmp=(C_word)a,a+=3,tmp));
t11=((C_word*)t9)[1];
f_7773(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);}}}

/* k7816 in foldl474 in k14061 in a13592 in simplify in chicken.compiler.scrutinizer#simplify-type in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7818(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7818,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7800(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* chicken.compiler.scrutinizer#list-tabulate in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7842(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_7842,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_7848,a[2]=t2,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_7848(t7,t1,C_fix(0));}

/* loop in chicken.compiler.scrutinizer#list-tabulate in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7848(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_7848,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_7862,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("mini-srfi-1.scm:190: proc"));
t4=((C_word*)t0)[4];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}}

/* k7860 in loop in chicken.compiler.scrutinizer#list-tabulate in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7862(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7862,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7866,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:190: loop"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_7848(t3,t2,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* k7864 in k7860 in loop in chicken.compiler.scrutinizer#list-tabulate in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7866(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_7866,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);}}

/* a7877 in k12893 in k12773 in k12533 in k12519 in match1 in k11926 in chicken.compiler.scrutinizer#match-types in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7878(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7878,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_7884(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_7884,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_7896,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("mini-srfi-1.scm:197: every"));
f_7200(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);}}}

/* a7895 in chicken.compiler.scrutinizer#lset=/eq? in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_7896(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7896,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static C_word f_7961(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=(
C_trace("mini-srfi-1.scm:216: pred"),
  f_8554(((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;}}}

/* a8021 in k10750 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8022(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8022,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_8025(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_8025,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)f26120,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("mini-srfi-1.scm:228: list-tabulate"));
f_7842(t1,t2,t4);}
else{
t4=C_i_car(t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8034,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("mini-srfi-1.scm:228: list-tabulate"));
f_7842(t1,t2,t5);}}

/* a8033 in chicken.compiler.scrutinizer#make-list in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8034(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8034,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8154(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8154,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8162,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2=av;
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k8160 in chicken.compiler.scrutinizer#walked-result in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8162(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8162,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8164(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
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_8164,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)){
C_trace(C_text("scrutinizer.scm:173: every"));
f_7200(t1,lf[27],C_u_i_cdr(t2));}
else{
t5=C_eqp(t3,lf[29]);
if(C_truep(t5)){
C_trace(C_text("scrutinizer.scm:174: 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_truep(C_eqp(t2,lf[36]))?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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8207(C_word c,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!=8) C_bad_argc_2(c,8,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(106,c,8)))){
C_save_and_reclaim((void *)f_8207,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_8244,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_8542,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_8573,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_8636,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_8698,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_8722,tmp=(C_word)a,a+=2,tmp));
t51=C_set_block_item(t36,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8788,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_9422,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_9427,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_9460,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_9556,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_11610,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_11726,a[2]=t38,a[3]=t44,a[4]=t58,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:804: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2=av;
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t59;
av2[2]=t2;
tp(3,av2);}}

/* constant-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_8244(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_8244,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[38];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8257,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:199: chicken.keyword#keyword?"));
t4=C_fast_retrieve(lf[57]);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k8255 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8257(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8257,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[39];
((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[40];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8269,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:202: chicken.compiler.support#big-fixnum?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[56]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[56]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}}

/* k8267 in k8255 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 *a;
C_check_for_interrupt;
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_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8272,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
f_8272(2,av2);}}
else{
C_trace(C_text("scrutinizer.scm:202: chicken.compiler.support#small-bignum?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[55]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[55]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}}

/* k8270 in k8267 in k8255 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8272(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_8272,c,av);}
a=C_alloc(16);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[41];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_fixnump(((C_word*)t2)[3]))){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[33];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_bignump(((C_word*)t2)[3]))){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[42];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_flonump(((C_word*)t2)[3]))){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[43];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_ratnump(((C_word*)t2)[3]))){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[44];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_cplxnump(((C_word*)t2)[3]))){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[45];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_booleanp(((C_word*)t2)[3]))){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(((C_word*)t2)[3])?lf[46]:lf[47]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_nullp(((C_word*)t2)[3]))){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[32];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_listp(((C_word*)t2)[3]))){
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_8333,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8335,a[2]=t5,a[3]=t9,a[4]=((C_word*)t2)[4],a[5]=t6,tmp=(C_word)a,a+=6,tmp));
t11=((C_word*)t9)[1];
f_8335(t11,t7,((C_word*)t2)[3]);}
else{
if(C_truep(C_i_pairp(((C_word*)t2)[3]))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8384,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:215: constant-result"));
t4=((C_word*)((C_word*)t2)[4])[1];
f_8244(t4,t3,C_u_i_car(((C_word*)t2)[3]));}
else{
if(C_truep(C_eofp(((C_word*)t2)[3]))){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[30];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_bwpp(((C_word*)t2)[3]))){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[31];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_vectorp(((C_word*)t2)[3]))){
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8424,a[2]=((C_word*)t2)[2],a[3]=t5,a[4]=((C_word*)t2)[4],a[5]=t6,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:220: scheme#vector->list"));
t8=*((C_word*)lf[52]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t3=C_immp(((C_word*)t2)[3]);
t4=C_i_not(t3);
t5=(C_truep(t4)?C_structurep(((C_word*)t2)[3]):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=C_slot(((C_word*)t2)[3],C_fix(0));
t7=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_i_list(&a,2,lf[53],t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t6=C_charp(((C_word*)t2)[3]);
t7=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t7;
av2[1]=(C_truep(t6)?lf[34]:lf[54]);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}}}}}}}}}}}}}

/* k8331 in k8270 in k8267 in k8255 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8333(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_8333,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[48],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop836 in k8270 in k8267 in k8255 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_8335(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_8335,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_8360,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:212: g842"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8244(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);}}}

/* k8358 in map-loop836 in k8270 in k8267 in k8255 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8360(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8360,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_8335(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k8382 in k8270 in k8267 in k8255 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8384(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_8384,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8388,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:215: constant-result"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_8244(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k8386 in k8382 in k8270 in k8267 in k8255 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8388(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_8388,c,av);}
a=C_alloc(9);
t2=C_a_i_list(&a,3,lf[49],((C_word*)t0)[2],t1);
C_trace(C_text("scrutinizer.scm:214: simplify-type"));
f_13584(((C_word*)t0)[3],t2);}

/* k8422 in k8270 in k8267 in k8255 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8424(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_8424,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8427,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_8429,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_8429(t6,t2,t1);}

/* k8425 in k8422 in k8270 in k8267 in k8255 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8427(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8427,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,lf[51],t1);
C_trace(C_text("scrutinizer.scm:219: simplify-type"));
f_13584(((C_word*)t0)[2],t2);}

/* map-loop868 in k8422 in k8270 in k8267 in k8255 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_8429(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_8429,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_8454,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:220: g874"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8244(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);}}}

/* k8452 in map-loop868 in k8422 in k8270 in k8267 in k8255 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8454(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8454,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_8429(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k8497 in k8587 in k8575 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8499(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_8499,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8503,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:227: g905"));
t3=t2;
f_8503(t3,((C_word*)t0)[5],t1);}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[64];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* g905 in k8497 in k8587 in k8575 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_8503(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){
C_save_and_reclaim_args((void *)trf_8503,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_eqp(t2,lf[60]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8513,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:231: r-deprecated-identifier"));
f_23078(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[60]):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8522,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t7=C_i_cadr(t2);
C_trace(C_text("scrutinizer.scm:234: r-deprecated-identifier"));
f_23078(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);}}}}

/* k8511 in g905 in k8497 in k8587 in k8575 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8513(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8513,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[61];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8520 in g905 in k8497 in k8587 in k8575 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8522(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8522,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[63];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* blist-type in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_8542(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_8542,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8554,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_7961,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t7=(
  f_7961(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);}}

/* a8553 in blist-type in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static C_word f_8554(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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_8573(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_8573,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(9);
t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8577,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);
C_trace(C_text("scrutinizer.scm:248: blist-type"));
t8=((C_word*)((C_word*)t0)[4])[1];
f_8542(t8,t7,t2,t6);}

/* k8575 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8577(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_8577,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_8589,a[2]=((C_word*)t0)[2],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_8627,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:250: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[68]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[68]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[69];
tp(5,av2);}}
else{
t3=t2;
f_8589(t3,C_SCHEME_FALSE);}}}

/* k8587 in k8575 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_8589(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_8589,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[58];
((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[36],t3);
if(C_truep(t4)){
t5=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[59];
((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_8499,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);
C_trace(C_text("scrutinizer.scm:227: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word av2[4];
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[66];
tp(4,av2);}}}}

/* k8625 in k8575 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8627(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_8627,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8634,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:251: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[67];
tp(4,av2);}}
else{
t2=((C_word*)t0)[2];
f_8589(t2,C_SCHEME_FALSE);}}

/* k8632 in k8625 in k8575 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8634(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8634,c,av);}
t2=((C_word*)t0)[2];
f_8589(t2,C_i_not(t1));}

/* always-true1 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8636(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
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_8636,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)){
C_trace(C_text("scrutinizer.scm:267: every"));
f_7200(t1,((C_word*)((C_word*)t0)[2])[1],C_u_i_cdr(t2));}
else{
t5=C_eqp(t3,lf[70]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8668,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:268: 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)){
C_trace(C_text("scrutinizer.scm:269: 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[54]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[35]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[47]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[36]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[71]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))?C_SCHEME_FALSE:C_SCHEME_TRUE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k8666 in always-true1 in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8668(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8668,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_8698(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_8698,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(7);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8702,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t5,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:275: always-true1"));
t7=((C_word*)((C_word*)t0)[2])[1];{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t4;
f_8636(3,av2);}}

/* k8700 in always-true in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8702(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,8)))){
C_save_and_reclaim((void *)f_8702,c,av);}
a=C_alloc(16);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8708,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_a_i_list2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22787,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);
C_trace(C_text("scrutinizer.scm:2850: scheme#string-append"));
t5=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[78];
av2[3]=lf[79];
av2[4]=lf[80];
av2[5]=lf[81];
av2[6]=lf[82];
av2[7]=lf[83];
av2[8]=lf[84];
((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);}}}

/* k8706 in k8700 in always-true in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8708(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8708,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);}}

/* k8718 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8720(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8720,c,av);}
t2=((C_word*)t0)[2];
f_9723(t2,((C_word*)t0)[3]);}

/* single in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_8722(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_8722,3,t1,t2,t3);}
a=C_alloc(4);
t4=C_eqp(lf[54],t2);
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[54];
((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_8750,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:290: r-value-count-mismatch"));
t9=t3;{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=t2;
((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8753,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:293: r-value-count-mismatch"));
t9=t3;{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=t2;
((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}}}}

/* k8748 in single in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8750(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8750,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[36];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8751 in single in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8753,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);}}

/* k8764 in k9156 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_8766,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8769,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:300: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[163];
tp(4,av2);}}

/* k8767 in k8764 in k9156 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_8769,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8772,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)){
C_trace(C_text("scrutinizer.scm:301: 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{
C_trace(C_text("scrutinizer.scm:301: 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);}}}

/* k8770 in k8767 in k8764 in k9156 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_8772(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8772,c,av);}
t2=C_i_pairp(t1);
t3=((C_word*)t0)[2];
f_9181(t3,(C_truep(t2)?t1:C_SCHEME_FALSE));}

/* call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_8788(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(26,0,3)))){
C_save_and_reclaim_args((void *)trf_8788,5,t0,t1,t2,t3,t4);}
a=C_alloc(26);
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|13,a[1]=(C_word)f_8798,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t4,a[6]=C_SCHEME_UNDEFINED,a[7]=C_SCHEME_UNDEFINED,a[8]=C_SCHEME_UNDEFINED,a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[3],a[11]=C_SCHEME_UNDEFINED,a[12]=((C_word*)t0)[4],a[13]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=14,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_9388,a[2]=t7,a[3]=t13,a[4]=t8,tmp=(C_word)a,a+=5,tmp));
t15=((C_word*)t13)[1];
f_9388(t15,t11,t3);}

/* k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8798(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8798,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+11,t1);
t3=C_i_car(((C_word*)t0)[11]);
t4=C_mutate(((C_word *)t0)+6,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8804,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:307: procedure-type?"));
t6=lf[122];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
f_15200(3,av2);}}

/* k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8804(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_8804,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+13,t1);
t4=C_i_cdr(((C_word*)t2)[3]);
t5=C_u_i_length(t4);
t6=C_mutate(((C_word *)t2)+8,t5);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9386,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:309: make-list"));
f_8025(t7,((C_word*)t2)[8],C_a_i_list(&a,1,lf[54]));}

/* k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8814(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_8814,c,av);}
a=C_alloc(22);
t2=((C_word*)t0)[2];
t3=t1;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_FALSE;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8823,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=t4,a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],a[10]=t6,a[11]=((C_word*)t2)[9],a[12]=((C_word*)t2)[10],a[13]=((C_word*)t2)[11],a[14]=((C_word*)t2)[12],tmp=(C_word)a,a+=15,tmp);
if(C_truep(C_i_not(((C_word*)t2)[13]))){
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9382,a[2]=t7,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:313: match-types"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[171]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[171]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[7];
av2[3]=((C_word*)t2)[6];
av2[4]=((C_word*)t4)[1];
tp(5,av2);}}
else{
t8=t7;
f_8823(t8,C_SCHEME_FALSE);}}

/* k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_8823(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,6)))){
C_save_and_reclaim_args((void *)trf_8823,2,t0,t1);}
a=C_alloc(18);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8826,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8833,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);
C_trace(C_text("scrutinizer.scm:315: resolve"));
t4=lf[119];{
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_16366(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8844,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_8850,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);
C_trace(C_text("scrutinizer.scm:318: ##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);}}}

/* k8824 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8826(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8826,c,av);}
C_trace(C_text("scrutinizer.scm:316: 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[54];
av2[3]=C_SCHEME_FALSE;
C_values(4,av2);}}

/* k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8833(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_8833,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_8839,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);
C_trace(C_text("scrutinizer.scm:315: resolve"));
t4=lf[119];{
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_16366(4,av2);}}

/* k8837 in k8831 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8839(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_8839,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_21984,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22029,a[2]=((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);
C_trace(C_text("scrutinizer.scm:2575: variable-node-name"));
t6=((C_word*)t3)[1];
f_21984(t6,t5,((C_word*)t0)[2]);}

/* a8843 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8844(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_8844,c,av);}
C_trace(C_text("scrutinizer.scm:319: procedure-argument-types"));
f_15417(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1],C_SCHEME_END_OF_LIST);}

/* a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8850(C_word c,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!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(31,c,2)))){
C_save_and_reclaim((void *)f_8850,c,av);}
a=C_alloc(31);
t6=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_8854,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_8854(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|9,a[1]=(C_word)f_22090,a[2]=((C_word*)t0)[11],a[3]=t5,a[4]=t6,a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[7],a[8]=t8,a[9]=((C_word*)t0)[5],tmp=(C_word)a,a+=10,tmp);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f28298,a[2]=t9,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2546: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2=av;
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t10;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}}

/* k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8854(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,6)))){
C_save_and_reclaim((void *)f_8854,c,av);}
a=C_alloc(24);
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8857,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_9310,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_9310(t8,t2,t3,t4,((C_word*)t0)[15],C_fix(1));}

/* k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8857(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_8857,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8860,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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=(
C_trace("scrutinizer.scm:337: noreturn-procedure-type?"),
  f_15841(((C_word*)t0)[8])
);
if(C_truep(t3)){
t4=C_set_block_item(((C_word*)t0)[14],0,C_SCHEME_TRUE);
t5=t2;
f_8860(t5,t4);}
else{
t4=t2;
f_8860(t4,C_SCHEME_UNDEFINED);}}

/* k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_8860(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,0,3)))){
C_save_and_reclaim_args((void *)trf_8860,2,t0,t1);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8863,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],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);
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_15640,a[2]=((C_word*)t0)[13],a[3]=t3,a[4]=t4,a[5]=t6,tmp=(C_word)a,a+=6,tmp));
C_trace(C_text("scrutinizer.scm:1475: loop1"));
t8=((C_word*)t6)[1];
f_15640(t8,t2,((C_word*)t0)[8]);}

/* k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_8863(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_8863,c,av);}
a=C_alloc(5);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_mutate(((C_word *)t0)+4,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8866,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:340: procedure-name"));
f_15252(t5,((C_word*)t0)[9]);}

/* k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 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 t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
C_save_and_reclaim((void *)f_8866,c,av);}
a=C_alloc(23);
t2=((C_word*)t0)[2];
t3=lf[24];
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8869,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],tmp=(C_word)a,a+=10,tmp);
if(C_truep(t1)){
t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8966,a[2]=((C_word*)t2)[3],a[3]=t4,a[4]=((C_word*)t2)[8],a[5]=((C_word*)t2)[4],a[6]=t1,a[7]=((C_word*)t2)[10],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[11],a[10]=((C_word*)t2)[12],a[11]=t3,a[12]=((C_word*)t2)[5],tmp=(C_word)a,a+=13,tmp);
t6=C_eqp(C_fix(1),((C_word*)t2)[13]);
if(C_truep(t6)){
C_trace(C_text("scrutinizer.scm:344: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t5;
av2[2]=t1;
av2[3]=lf[166];
tp(4,av2);}}
else{
t7=t5;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
f_8966(2,av2);}}}
else{
t5=t4;
f_8869(t5,C_SCHEME_UNDEFINED);}}

/* k8867 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void f_8869(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
C_save_and_reclaim_args((void *)trf_8869,2,t0,t1);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8872,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_8935,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_8956,a[2]=t3,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:404: procedure-type?"));
t5=lf[122];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[9];
f_15200(3,av2);}}
else{
t4=t3;
f_8935(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_8935(t4,C_SCHEME_FALSE);}}

/* k8870 in k8867 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_8872(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){
C_save_and_reclaim_args((void *)trf_8872,2,t0,t1);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8875,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_eqp(lf[54],((C_word*)((C_word*)t0)[4])[1]);
if(C_truep(t3)){
t4=((C_word*)((C_word*)t0)[4])[1];
C_trace(C_text("scrutinizer.scm:410: 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_8888,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_8900,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_8900(t14,t2,t9);}}

/* k8873 in k8870 in k8867 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_8875(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8875,c,av);}
C_trace(C_text("scrutinizer.scm:410: 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);}}

/* g1159 in k8870 in k8867 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void f_8888(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_8888,3,t0,t1,t2);}
t3=lf[119];
C_trace(C_text("scrutinizer.scm:408: g1176"));
t4=lf[119];{
C_word av2[4];
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)((C_word*)t0)[2])[1];
f_16366(4,av2);}}

/* map-loop1153 in k8870 in k8867 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void f_8900(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_8900,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_8925,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:408: g1159"));
t4=((C_word*)t0)[4];
f_8888(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);}}}

/* k8923 in map-loop1153 in k8870 in k8867 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_8925(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8925,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_8900(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k8933 in k8867 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_8935(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_8935,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8944,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:406: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word av2[3];
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t2=((C_word*)t0)[3];
f_8872(t2,C_SCHEME_UNDEFINED);}}

/* k8942 in k8933 in k8867 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_8944(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_8944,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_8872(t5,t4);}

/* k8954 in k8867 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_8956(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8956,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8963,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:405: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
t2=((C_word*)t0)[2];
f_8935(t2,C_SCHEME_FALSE);}}

/* k8961 in k8954 in k8867 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_8963(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8963,c,av);}
t2=((C_word*)t0)[2];
f_8935(t2,C_eqp(lf[121],t1));}

/* k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_8966(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
C_save_and_reclaim((void *)f_8966,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8969,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|13,a[1]=(C_word)f_9003,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[2],a[7]=C_SCHEME_UNDEFINED,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);
C_trace(C_text("scrutinizer.scm:343: g1075"));
t4=t3;
f_9003(t4,t2,t1);}
else{
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9158,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_9279,a[2]=t3,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:367: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}}

/* k8967 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_8969(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_8969,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_8869(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_8869(t6,t5);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];
f_8869(t3,t2);}}

/* g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void f_9003(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
C_save_and_reclaim_args((void *)trf_9003,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_mutate(((C_word *)t0)+5,t2);
t4=C_mutate(((C_word *)t0)+7,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9010,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t6=C_a_i_list1(&a,1,((C_word*)t0)[5]);
C_trace(C_text("scrutinizer.scm:346: match-argument-types"));
f_13512(t5,t6,C_i_cdr(((C_word*)t0)[10]),((C_word*)((C_word*)t0)[13])[1]);}

/* k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_9010(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
C_save_and_reclaim((void *)f_9010,c,av);}
a=C_alloc(24);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9013,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],tmp=(C_word)a,a+=10,tmp);
t4=C_i_cadr(((C_word*)t2)[10]);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22712,a[2]=t3,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[11],a[5]=t4,a[6]=((C_word*)t2)[5],a[7]=t6,a[8]=((C_word*)t2)[9],tmp=(C_word)a,a+=9,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f28274,a[2]=t7,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2546: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[9];
tp(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9070,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[10],a[10]=((C_word*)t2)[11],a[11]=((C_word*)t2)[12],a[12]=((C_word*)t2)[13],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("scrutinizer.scm:356: trail-restore"));
f_16323(t3,((C_word*)t2)[12],((C_word*)((C_word*)t2)[13])[1]);}}

/* k9011 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_9013(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_9013,c,av);}
a=C_alloc(16);
if(C_truep(((C_word*)t0)[2])){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9019,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|5,a[1]=(C_word)f_9048,a[2]=C_SCHEME_UNDEFINED,a[3]=t2,a[4]=((C_word*)t0)[9],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t5=C_a_i_list(&a,1,lf[128]);
C_trace(C_text("scrutinizer.scm:352: ##sys#list->vector"));
t6=*((C_word*)lf[127]+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);}}}

/* k9017 in k9011 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_9019(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_9019,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[123]);
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);}}

/* k9046 in k9011 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_9048(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_9048,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9052,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t4=C_a_i_list(&a,1,C_fix(1));
C_trace(C_text("scrutinizer.scm:352: ##sys#list->vector"));
t5=*((C_word*)lf[127]+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);}}

/* k9050 in k9046 in k9011 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in ... */
static void C_ccall f_9052(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){
C_save_and_reclaim((void *)f_9052,c,av);}
a=C_alloc(24);
t2=((C_word*)t0)[2];
t3=C_a_i_list(&a,2,((C_word*)t2)[2],t1);
t4=C_a_i_list(&a,1,t3);
t5=C_a_i_list(&a,2,lf[124],C_SCHEME_TRUE);
t6=C_a_i_list(&a,3,lf[125],t4,t5);
C_trace(C_text("scrutinizer.scm:350: specialize-node!"));
f_17712(((C_word*)t2)[3],((C_word*)t2)[4],((C_word*)t2)[5],t6);}

/* k9068 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void C_ccall f_9070(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_9070,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9073,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=C_a_i_list(&a,2,lf[70],((C_word*)t0)[4]);
t4=C_a_i_list1(&a,1,t3);
C_trace(C_text("scrutinizer.scm:357: match-argument-types"));
f_13512(t2,t4,C_u_i_cdr(((C_word*)t0)[9]),((C_word*)((C_word*)t0)[12])[1]);}

/* k9071 in k9068 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in ... */
static void C_ccall f_9073(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
C_save_and_reclaim((void *)f_9073,c,av);}
a=C_alloc(23);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9076,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],tmp=(C_word)a,a+=9,tmp);
t4=C_i_cadr(((C_word*)t2)[9]);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22746,a[2]=t3,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[10],a[5]=t4,a[6]=((C_word*)t2)[4],a[7]=t6,a[8]=((C_word*)t2)[8],tmp=(C_word)a,a+=9,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f28279,a[2]=t7,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:2546: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[8];
tp(3,av2);}}
else{
C_trace(C_text("scrutinizer.scm:366: trail-restore"));
f_16323(((C_word*)t2)[6],((C_word*)t2)[11],((C_word*)((C_word*)t2)[12])[1]);}}

/* k9074 in k9071 in k9068 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in ... */
static void C_ccall f_9076(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_9076,c,av);}
a=C_alloc(15);
if(C_truep(((C_word*)t0)[2])){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9082,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|5,a[1]=(C_word)f_9115,a[2]=C_SCHEME_UNDEFINED,a[3]=t2,a[4]=((C_word*)t0)[8],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t5=C_a_i_list(&a,1,lf[128]);
C_trace(C_text("scrutinizer.scm:363: ##sys#list->vector"));
t6=*((C_word*)lf[127]+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);}}}

/* k9080 in k9074 in k9071 in k9068 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in ... */
static void C_ccall f_9082(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_9082,c,av);}
a=C_alloc(12);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[144]);
t3=C_a_i_list(&a,2,lf[70],((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);}}

/* k9113 in k9074 in k9071 in k9068 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in ... */
static void C_ccall f_9115(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_9115,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9119,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t4=C_a_i_list(&a,1,C_fix(1));
C_trace(C_text("scrutinizer.scm:363: ##sys#list->vector"));
t5=*((C_word*)lf[127]+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);}}

/* k9117 in k9113 in k9074 in k9071 in k9068 in k9008 in g1075 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in ... */
static void C_ccall f_9119(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){
C_save_and_reclaim((void *)f_9119,c,av);}
a=C_alloc(24);
t2=((C_word*)t0)[2];
t3=C_a_i_list(&a,2,((C_word*)t2)[2],t1);
t4=C_a_i_list(&a,1,t3);
t5=C_a_i_list(&a,2,lf[124],C_SCHEME_FALSE);
t6=C_a_i_list(&a,3,lf[125],t4,t5);
C_trace(C_text("scrutinizer.scm:361: specialize-node!"));
f_17712(((C_word*)t2)[3],((C_word*)t2)[4],((C_word*)t2)[5],t6);}

/* k9156 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_9158(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_9158,c,av);}
a=C_alloc(15);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9162,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:343: g1106"));
t3=t2;
f_9162(t3,((C_word*)t0)[4],t1);}
else{
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9181,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_8766,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:299: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
av2[3]=lf[164];
tp(4,av2);}}
else{
t3=t2;
f_9181(t3,C_SCHEME_FALSE);}}}

/* g1106 in k9156 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void f_9162(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_9162,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[54]);
t4=C_i_car(t2);
t5=C_a_i_list2(&a,2,lf[124],t4);
C_trace(C_text("scrutinizer.scm:373: mutate-node!"));
f_17532(t1,((C_word*)t0)[3],t5);}

/* k9179 in k9156 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void f_9181(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_9181,2,t0,t1);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9185,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("scrutinizer.scm:343: g1112"));
t3=t2;
f_9185(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_8969(2,av2);}}}

/* g1112 in k9179 in k9156 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in ... */
static void f_9185(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){
C_save_and_reclaim_args((void *)trf_9185,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_9191,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_9191(t6,t1,t2);}

/* loop in g1112 in k9179 in k9156 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in ... */
static void f_9191(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){
C_save_and_reclaim_args((void *)trf_9191,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_9205,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_9269,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("scrutinizer.scm:381: append-map"));
f_7030(t6,lf[162],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);}}}

/* k9203 in loop in g1112 in k9179 in k9156 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in ... */
static void C_ccall f_9205(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_9205,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9211,a[2]=((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);
C_trace(C_text("scrutinizer.scm:383: match-argument-types"));
f_13512(t2,((C_word*)t0)[13],C_i_cdr(((C_word*)t0)[14]),t1);}

/* k9209 in k9203 in loop in g1112 in k9179 in k9156 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in ... */
static void C_ccall f_9211(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_9211,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_9225,a[2]=t8,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:391: specialize-node!"));
f_17712(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_9256,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);
C_trace(C_text("scrutinizer.scm:394: trail-restore"));
f_16323(t2,((C_word*)t0)[13],((C_word*)t0)[6]);}}

/* k9223 in k9209 in k9203 in loop in g1112 in k9179 in k9156 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in ... */
static void C_ccall f_9225(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9225,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);}}}

/* k9254 in k9209 in k9203 in loop in g1112 in k9179 in k9156 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in ... */
static void C_ccall f_9256(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9256,c,av);}
C_trace(C_text("scrutinizer.scm:395: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_9191(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* k9267 in loop in g1112 in k9179 in k9156 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in ... */
static void C_ccall f_9269(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9269,c,av);}
C_trace(C_text("scrutinizer.scm:380: 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);}}

/* k9277 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in ... */
static void C_ccall f_9279(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){
C_save_and_reclaim((void *)f_9279,c,av);}
a=C_alloc(2);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9281,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:367: chicken.compiler.support#maybe-constant-fold-call"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[165]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[165]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=t2;
tp(5,av2);}}

/* a9280 in k9277 in k8964 in k8864 in k8861 in k8858 in k8855 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in ... */
static void C_ccall f_9281(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_9281,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);}}

/* doloop1054 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_9310(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){
C_save_and_reclaim_args((void *)trf_9310,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_9323,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_9339,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);
C_trace(C_text("scrutinizer.scm:327: match-types"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[171]+1));
C_word av2[5];
av2[0]=*((C_word*)lf[171]+1);
av2[1]=t9;
av2[2]=C_i_car(t4);
av2[3]=C_i_car(t2);
av2[4]=((C_word*)((C_word*)t0)[6])[1];
tp(5,av2);}}}

/* k9321 in doloop1054 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9323(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,5)))){
C_save_and_reclaim((void *)f_9323,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_9310(t6,((C_word*)t0)[7],t2,t3,t4,t5);}

/* k9337 in doloop1054 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9339(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_9339,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_9323(2,av2);}}
else{
t2=C_i_car(((C_word*)t0)[3]);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9350,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);
C_trace(C_text("scrutinizer.scm:334: resolve"));
t4=lf[119];{
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_16366(4,av2);}}}

/* k9348 in k9337 in doloop1054 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9350(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_9350,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9354,a[2]=((C_word*)t0)[2],a[3]=((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);
C_trace(C_text("scrutinizer.scm:335: resolve"));
t3=lf[119];{
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_16366(4,av2);}}

/* k9352 in k9348 in k9337 in doloop1054 in k8852 in a8849 in k8821 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_9354(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_9354,c,av);}
C_trace(C_text("scrutinizer.scm:331: r-proc-call-argument-type-mismatch"));
f_22134(((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]);}

/* k9380 in k8812 in k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9382,c,av);}
t2=((C_word*)t0)[2];
f_8823(t2,C_i_not(t1));}

/* k9384 in k8802 in k8796 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9386(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_9386,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];
t3=C_a_i_list(&a,3,lf[85],t1,lf[54]);
t4=C_mutate(((C_word *)t2)+7,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8814,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:310: append-map"));
f_7030(t5,lf[162],((C_word*)t2)[11],C_SCHEME_END_OF_LIST);}

/* map-loop998 in call-result in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_9388(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9388,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)f26645,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:168: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word av2[3];
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t4;
av2[2]=t3;
tp(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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static C_word f_9422(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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_9427(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_9427,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_9433,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_9433(t8,t1,t2);}

/* loop in add-to-blist in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_9433(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){
C_save_and_reclaim_args((void *)trf_9433,3,t0,t1,t2);}
a=C_alloc(10);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9438,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]);
C_trace(C_text("scrutinizer.scm:420: chicken.base#alist-update!"));
t5=C_fast_retrieve(lf[187]);{
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[188]+1);
((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}

/* k9436 in loop in add-to-blist in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9438(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9438,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)){
C_trace(C_text("scrutinizer.scm:424: loop"));
t4=((C_word*)((C_word*)t0)[5])[1];
f_9433(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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_9460(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_9460,4,t0,t1,t2,t3);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9467,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])){
C_trace(C_text("scrutinizer.scm:428: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word av2[4];
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[67];
tp(4,av2);}}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_9467(2,av2);}}}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_9467(2,av2);}}}

/* k9465 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9467(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_9467,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9470,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:429: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[66];
tp(4,av2);}}
else{
C_trace(C_text("scrutinizer.scm:435: make-list"));
f_8025(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,1,lf[54]));}}

/* k9468 in k9465 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9470(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9470,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9473,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:430: type-typeenv"));
t4=lf[162];{
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];
f_15991(3,av2);}}

/* k9471 in k9468 in k9465 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9473(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9473,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+2,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9479,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:431: procedure-type?"));
t5=lf[122];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
f_15200(3,av2);}}

/* k9477 in k9471 in k9468 in k9465 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9479(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
C_save_and_reclaim((void *)f_9479,c,av);}
a=C_alloc(20);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9483,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9490,a[2]=t5,a[3]=t7,a[4]=t6,a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9532,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp);
t10=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9538,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("scrutinizer.scm:433: ##sys#call-with-values"));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t8;
av2[2]=t9;
av2[3]=t10;
C_call_with_values(4,av2);}}
else{
C_trace(C_text("scrutinizer.scm:434: make-list"));
f_8025(((C_word*)t2)[3],((C_word*)t2)[5],C_a_i_list(&a,1,lf[54]));}}

/* g1219 in k9477 in k9471 in k9468 in k9465 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_9483(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_9483,3,t0,t1,t2);}
t3=lf[119];
C_trace(C_text("scrutinizer.scm:432: g1236"));
t4=lf[119];{
C_word av2[4];
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)t0)[2];
f_16366(4,av2);}}

/* k9488 in k9477 in k9471 in k9468 in k9465 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9490(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_9490,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_9498,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_9498(t6,((C_word*)t0)[5],t1);}

/* map-loop1213 in k9488 in k9477 in k9471 in k9468 in k9465 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_9498(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9498,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_9523,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("scrutinizer.scm:432: g1219"));
t4=((C_word*)t0)[4];
f_9483(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);}}}

/* k9521 in map-loop1213 in k9488 in k9477 in k9471 in k9468 in k9465 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9523(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9523,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_9498(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* a9531 in k9477 in k9471 in k9468 in k9465 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9532(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_9532,c,av);}
a=C_alloc(3);
C_trace(C_text("scrutinizer.scm:433: procedure-argument-types"));
f_15417(t1,((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,C_a_i_list(&a,1,C_SCHEME_TRUE));}

/* a9537 in k9477 in k9471 in k9468 in k9465 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9538(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_9538,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 k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_9556(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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(31,0,2)))){
C_save_and_reclaim_args((void *)trf_9556,8,t0,t1,t2,t3,t4,t5,t6,t7);}
a=C_alloc(31);
t8=(*a=C_CLOSURE_TYPE|30,a[1]=(C_word)f_9560,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=t4,a[8]=t2,a[9]=t6,a[10]=((C_word*)t0)[4],a[11]=C_SCHEME_UNDEFINED,a[12]=((C_word*)t0)[5],a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[7],a[15]=((C_word*)t0)[8],a[16]=t5,a[17]=t7,a[18]=((C_word*)t0)[9],a[19]=((C_word*)t0)[10],a[20]=((C_word*)t0)[11],a[21]=((C_word*)t0)[12],a[22]=((C_word*)t0)[13],a[23]=((C_word*)t0)[14],a[24]=((C_word*)t0)[15],a[25]=((C_word*)t0)[16],a[26]=((C_word*)t0)[17],a[27]=((C_word*)t0)[18],a[28]=((C_word*)t0)[19],a[29]=((C_word*)t0)[20],a[30]=((C_word*)t0)[21],tmp=(C_word)a,a+=31,tmp);
C_trace(C_text("scrutinizer.scm:438: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]);
C_word av2[3];
av2[0]=*((C_word*)lf[87]+1);
av2[1]=t8;
av2[2]=t2;
tp(3,av2);}}

/* k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9560(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9560,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+11,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9563,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:439: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9563(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9563,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+3,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9566,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:440: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[89]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[8];
tp(3,av2);}}

/* k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9566(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(121,c,7)))){
C_save_and_reclaim((void *)f_9566,c,av);}
a=C_alloc(121);
t2=((C_word*)t0)[2];
t3=lf[16];
t4=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_plus(&a,2,lf[16],C_fix(1)));
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9574,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t6=C_eqp(t1,lf[86]);
if(C_truep(t6)){
t7=C_i_car(((C_word*)t2)[3]);
t8=C_a_i_list1(&a,1,t7);
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*)t2)[2];{
C_word *av2=av;
av2[0]=t11;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t7=C_eqp(t1,lf[124]);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9602,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:449: constant-result"));
t9=((C_word*)((C_word*)t2)[4])[1];
f_8244(t9,t8,C_i_car(((C_word*)t2)[3]));}
else{
t8=C_eqp(t1,lf[189]);
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*)t2)[2];{
C_word *av2=av;
av2[0]=t11;
av2[1]=lf[190];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t9=C_eqp(t1,lf[191]);
if(C_truep(t9)){
t10=lf[16];
t11=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t12=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t12;
av2[1]=lf[192];
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t10=C_eqp(t1,lf[88]);
if(C_truep(t10)){
C_trace(C_text("scrutinizer.scm:452: variable-result"));
t11=((C_word*)((C_word*)t2)[5])[1];
f_8573(t11,t5,C_i_car(((C_word*)t2)[3]),((C_word*)t2)[6],((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[9]);}
else{
t11=C_eqp(t1,lf[193]);
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9644,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:454: chicken.compiler.support#foreign-type->scrutiny-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[194]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[194]+1);
av2[1]=t12;
av2[2]=C_i_cadr(((C_word*)t2)[3]);
av2[3]=lf[195];
tp(4,av2);}}
else{
t12=C_eqp(t1,lf[196]);
if(C_truep(t12)){
t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9661,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("scrutinizer.scm:456: chicken.compiler.support#foreign-type->scrutiny-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[194]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[194]+1);
av2[1]=t13;
av2[2]=C_i_car(((C_word*)t2)[3]);
av2[3]=lf[195];
tp(4,av2);}}
else{
t13=C_eqp(t1,lf[197]);
if(C_truep(t13)){
t14=(
C_trace("scrutinizer.scm:458: tag"),
  f_9422(C_a_i(&a,29),((C_word*)((C_word*)t2)[10])[1])
);
t15=(
C_trace("scrutinizer.scm:458: tag"),
  f_9422(C_a_i(&a,29),((C_word*)((C_word*)t2)[10])[1])
);
t16=C_a_i_cons(&a,2,t14,t15);
t17=C_i_car(((C_word*)t2)[11]);
t18=((C_word*)((C_word*)t2)[12])[1];
t19=C_set_block_item(((C_word*)t2)[12],0,C_SCHEME_FALSE);
t20=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_9681,a[2]=((C_word*)t2)[11],a[3]=((C_word*)t2)[12],a[4]=((C_word*)t2)[13],a[5]=((C_word*)t2)[14],a[6]=((C_word*)t2)[15],a[7]=t5,a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[6],a[10]=((C_word*)t2)[7],a[11]=((C_word*)t2)[16],a[12]=((C_word*)t2)[9],a[13]=((C_word*)t2)[17],a[14]=t17,a[15]=t18,a[16]=((C_word*)t2)[2],a[17]=t16,a[18]=((C_word*)t2)[18],a[19]=((C_word*)t2)[19],a[20]=((C_word*)t2)[20],tmp=(C_word)a,a+=21,tmp);
t21=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9996,a[2]=((C_word*)t2)[7],a[3]=((C_word*)t2)[8],a[4]=t17,a[5]=((C_word*)t2)[21],a[6]=t20,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("scrutinizer.scm:462: walk"));
t22=((C_word*)((C_word*)t2)[15])[1];
f_9556(t22,t21,t17,((C_word*)t2)[6],((C_word*)t2)[7],C_SCHEME_FALSE,((C_word*)t2)[9],t16);}
else{
t14=C_eqp(t1,lf[125]);
if(C_truep(t14)){
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|12,a[1]=(C_word)f_10021,a[2]=((C_word*)t2)[15],a[3]=((C_word*)t2)[7],a[4]=((C_word*)t2)[16],a[5]=((C_word*)t2)[9],a[6]=((C_word*)t2)[17],a[7]=((C_word*)t2)[6],a[8]=t16,a[9]=((C_word*)t2)[22],a[10]=((C_word*)t2)[23],a[11]=((C_word*)t2)[8],a[12]=((C_word*)t2)[21],tmp=(C_word)a,a+=13,tmp));
t18=((C_word*)t16)[1];
f_10021(t18,t5,((C_word*)t2)[3],((C_word*)t2)[11],C_SCHEME_END_OF_LIST);}
else{
t15=C_eqp(t1,lf[222]);
t16=(C_truep(t15)?t15:C_eqp(t1,lf[223]));
if(C_truep(t16)){
t17=C_i_car(((C_word*)t2)[3]);
t18=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10126,a[2]=((C_word*)t2)[16],a[3]=((C_word*)t2)[19],a[4]=((C_word*)t2)[12],a[5]=((C_word*)t2)[22],a[6]=((C_word*)t2)[10],a[7]=((C_word*)t2)[23],a[8]=((C_word*)t2)[11],a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[15],a[11]=((C_word*)t2)[6],a[12]=((C_word*)t2)[24],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("scrutinizer.scm:525: ##sys#decompose-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[228]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[228]+1);
av2[1]=t5;
av2[2]=t17;
av2[3]=t18;
tp(4,av2);}}
else{
t17=C_eqp(t1,lf[229]);
t18=(C_truep(t17)?t17:C_eqp(t1,lf[230]));
if(C_truep(t18)){
t19=C_i_car(((C_word*)t2)[3]);
t20=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10390,a[2]=t19,a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[25],a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[2],a[7]=((C_word*)t2)[9],a[8]=((C_word*)t2)[19],a[9]=((C_word*)t2)[26],a[10]=((C_word*)t2)[23],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[27],a[13]=((C_word*)t2)[8],a[14]=((C_word*)t2)[7],a[15]=((C_word*)t2)[28],a[16]=((C_word*)t2)[21],a[17]=((C_word*)t2)[15],tmp=(C_word)a,a+=18,tmp);
C_trace(C_text("scrutinizer.scm:580: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[65]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[65]+1);
av2[1]=t20;
av2[2]=t19;
av2[3]=lf[66];
tp(4,av2);}}
else{
t19=C_eqp(t1,lf[269]);
if(C_truep(t19)){
t20=lf[16];
t21=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1)));
t22=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t22;
av2[1]=lf[54];
((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}}
else{
t20=C_eqp(t1,lf[121]);
if(C_truep(t20)){
t21=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10752,a[2]=((C_word*)t2)[11],a[3]=((C_word*)t2)[7],a[4]=((C_word*)t2)[8],a[5]=((C_word*)t2)[21],a[6]=((C_word*)t2)[15],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[29],a[10]=((C_word*)t2)[19],a[11]=((C_word*)t2)[26],a[12]=((C_word*)t2)[16],a[13]=((C_word*)t2)[17],a[14]=((C_word*)t2)[18],a[15]=((C_word*)t2)[23],a[16]=((C_word*)t2)[30],a[17]=t5,tmp=(C_word)a,a+=18,tmp);
C_trace(C_text("scrutinizer.scm:668: fragment"));
f_21330(t21,((C_word*)t2)[8]);}
else{
t21=C_eqp(t1,lf[278]);
if(C_truep(t21)){
t22=C_i_car(((C_word*)t2)[3]);
t23=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11339,a[2]=t22,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[11],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[26],a[7]=((C_word*)t2)[28],a[8]=((C_word*)t2)[3],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("scrutinizer.scm:768: walk"));
t24=((C_word*)((C_word*)t2)[15])[1];
f_9556(t24,t23,C_i_car(((C_word*)t2)[11]),((C_word*)t2)[6],((C_word*)t2)[7],((C_word*)t2)[16],((C_word*)t2)[9],((C_word*)t2)[17]);}
else{
t22=C_eqp(t1,lf[312]);
if(C_truep(t22)){
t23=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11427,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[11],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t2)[8],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[15],a[8]=((C_word*)t2)[6],a[9]=((C_word*)t2)[16],a[10]=((C_word*)t2)[9],a[11]=((C_word*)t2)[17],a[12]=C_SCHEME_UNDEFINED,a[13]=t5,tmp=(C_word)a,a+=14,tmp);
C_trace(C_text("scrutinizer.scm:780: walk"));
t24=((C_word*)((C_word*)t2)[15])[1];
f_9556(t24,t23,C_i_car(((C_word*)t2)[11]),((C_word*)t2)[6],((C_word*)t2)[7],C_SCHEME_FALSE,((C_word*)t2)[9],((C_word*)t2)[17]);}
else{
t23=C_eqp(t1,lf[342]);
t24=(C_truep(t23)?t23:C_eqp(t1,lf[343]));
if(C_truep(t24)){
C_trace(C_text("scrutinizer.scm:796: chicken.compiler.support#bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[344]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[344]+1);
av2[1]=t5;
av2[2]=lf[345];
av2[3]=t1;
tp(4,av2);}}
else{
t25=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11527,a[2]=((C_word*)t2)[15],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[7],a[5]=((C_word*)t2)[9],tmp=(C_word)a,a+=6,tmp);
t26=C_i_check_list_2(((C_word*)t2)[11],lf[213]);
t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11537,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t28=C_SCHEME_UNDEFINED;
t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp);
t30=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11539,a[2]=t29,a[3]=t25,tmp=(C_word)a,a+=4,tmp));
t31=((C_word*)t29)[1];
f_11539(t31,t27,((C_word*)t2)[11]);}}}}}}}}}}}}}}}}}

/* k9572 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9574(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_9574,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);}}

/* k9600 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9602(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){
C_save_and_reclaim((void *)f_9602,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);}}

/* k9642 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9644(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){
C_save_and_reclaim((void *)f_9644,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);}}

/* k9659 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9661(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){
C_save_and_reclaim((void *)f_9661,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);}}

/* k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9681(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,5)))){
C_save_and_reclaim((void *)f_9681,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_9992,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);
C_trace(C_text("scrutinizer.scm:468: always-true"));
t6=((C_word*)((C_word*)t0)[20])[1];
f_8698(t6,t5,((C_word*)t0)[8],((C_word*)t0)[14],t1,((C_word*)t0)[10]);}

/* k9696 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9698(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_9698,c,av);}
C_trace(C_text("scrutinizer.scm:471: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_9556(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]);}

/* k9715 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9717(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_9717,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[125],t3,((C_word*)t0)[3]);
C_trace(C_text("scrutinizer.scm:470: mutate-node!"));
f_17532(((C_word*)t0)[4],((C_word*)t0)[5],t4);}

/* k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_9723(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(45,0,7)))){
C_save_and_reclaim_args((void *)trf_9723,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_9728,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_9747,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);
C_trace(C_text("scrutinizer.scm:474: chicken.base#gensym"));
t6=*((C_word*)lf[198]+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_9750,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]);
C_trace(C_text("scrutinizer.scm:477: walk"));
t5=((C_word*)((C_word*)t0)[3])[1];
f_9556(t5,t2,((C_word*)t0)[17],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],t4,C_SCHEME_FALSE);}}

/* k9726 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9728(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_9728,c,av);}
C_trace(C_text("scrutinizer.scm:475: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_9556(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]);}

/* k9745 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9747(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_9747,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[125],t3,((C_word*)t0)[3]);
C_trace(C_text("scrutinizer.scm:474: mutate-node!"));
f_17532(((C_word*)t0)[4],((C_word*)t0)[5],t4);}

/* k9748 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9750(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,7)))){
C_save_and_reclaim((void *)f_9750,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_9754,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]);
C_trace(C_text("scrutinizer.scm:480: walk"));
t7=((C_word*)((C_word*)t0)[15])[1];
f_9556(t7,t4,((C_word*)t0)[6],((C_word*)t0)[16],((C_word*)t0)[8],((C_word*)t0)[17],t6,C_SCHEME_FALSE);}

/* k9752 in k9748 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9754(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
C_save_and_reclaim((void *)f_9754,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_9761,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[6],a[6]=t1,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_9902,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[213]);
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_9936,a[2]=t13,a[3]=t9,tmp=(C_word)a,a+=4,tmp));
t15=((C_word*)t13)[1];
f_9936(t15,t5,t10);}
else{
t8=t5;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
f_9761(2,av2);}}}

/* k9759 in k9752 in k9748 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9761(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
C_save_and_reclaim((void *)f_9761,c,av);}
a=C_alloc(29);
t2=C_eqp(lf[54],((C_word*)t0)[5]);
t3=C_i_not(t2);
t4=(C_truep(t3)?C_i_not(C_eqp(lf[54],((C_word*)t0)[6])):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9773,a[2]=t0,tmp=(C_word)a,a+=3,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)[5]);
t7=C_i_length(((C_word*)t0)[6]);
t8=t5;
f_9773(t8,C_i_not(C_eqp(t6,t7)));}
else{
t6=t5;
f_9773(t6,C_SCHEME_FALSE);}}
else{
t6=t5;
f_9773(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)[2];{
C_word *av2=av;
av2[0]=t7;
av2[1]=lf[54];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k9771 in k9759 in k9752 in k9748 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_9773(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,14)))){
C_save_and_reclaim_args((void *)trf_9773,2,t0,t1);}
a=C_alloc(29);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9776,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_a_i_list2(&a,2,((C_word*)t2)[3],((C_word*)t2)[4]);
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22997,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[6],a[4]=t3,a[5]=t4,a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[3],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[4],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("scrutinizer.scm:2971: scheme#string-append"));
t6=*((C_word*)lf[77]+1);{
C_word av2[15];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[200];
av2[3]=lf[201];
av2[4]=lf[202];
av2[5]=lf[203];
av2[6]=lf[204];
av2[7]=lf[205];
av2[8]=lf[206];
av2[9]=lf[207];
av2[10]=lf[208];
av2[11]=lf[209];
av2[12]=lf[210];
av2[13]=lf[211];
av2[14]=lf[212];
((C_proc)(void*)(*((C_word*)t6+1)))(15,av2);}}
else{
if(C_truep(((C_word*)t2)[9])){
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*)t2)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=((C_word*)t2)[6];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
if(C_truep(((C_word*)t2)[10])){
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*)t2)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t5+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=C_i_check_list_2(((C_word*)t2)[5],lf[6]);
t8=C_i_check_list_2(((C_word*)t2)[6],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|4,a[1]=(C_word)f_9808,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_9808(t12,((C_word*)t2)[11],((C_word*)t2)[5],((C_word*)t2)[6]);}}}}

/* k9774 in k9771 in k9759 in k9752 in k9748 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void C_ccall f_9776(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_9776,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[54];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* map-loop1348 in k9771 in k9759 in k9752 in k9748 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 in ... */
static void f_9808(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){
C_save_and_reclaim_args((void *)trf_9808,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_9837,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);
C_trace(C_text("scrutinizer.scm:506: simplify-type"));
f_13584(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);}}}

/* k9835 in map-loop1348 in k9771 in k9759 in k9752 in k9748 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in ... */
static void C_ccall f_9837(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_9837,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_9808(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)));}

/* g1320 in k9752 in k9748 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_9902(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_9902,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);
C_trace(C_text("scrutinizer.scm:493: add-to-blist"));
t6=((C_word*)((C_word*)t0)[3])[1];
f_9427(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-loop1319 in k9752 in k9748 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void f_9936(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_9936,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_9946,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:488: g1320"));
t4=((C_word*)t0)[3];
f_9902(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);}}}

/* k9944 in for-each-loop1319 in k9752 in k9748 in k9721 in k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9946(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9946,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9936(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k9990 in k9679 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9992(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(45,c,6)))){
C_save_and_reclaim((void *)f_9992,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_9698,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_9717,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);
C_trace(C_text("scrutinizer.scm:470: chicken.base#gensym"));
t7=*((C_word*)lf[198]+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_9723,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[47]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8720,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_22809,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);
C_trace(C_text("scrutinizer.scm:2866: scheme#string-append"));
t8=*((C_word*)lf[77]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=lf[215];
av2[3]=lf[216];
av2[4]=lf[217];
av2[5]=lf[218];
av2[6]=lf[219];
((C_proc)(void*)(*((C_word*)t8+1)))(7,av2);}}
else{
t5=t3;
f_9723(t5,C_SCHEME_FALSE);}}}

/* k9994 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9996(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_9996,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9998,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("scrutinizer.scm:462: single"));
f_8722(((C_word*)t0)[6],t1,t2);}

/* a9997 in k9994 in k9564 in k9561 in k9558 in walk in chicken.compiler.scrutinizer#scrutinize in k6827 in k6824 in k6821 in k6818 in k6815 in k6812 in k6809 in k6806 in k6803 */
static void C_ccall f_9998(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_9998,c,av);}
t3=C_retrieve2(lf[220],C_text("chicken.compiler.scrutinizer#r-conditional-value-count-invalid"));
C_trace(C_text("scrutinizer.scm:463: g1275"));
t4=C_retrieve2(lf[220],C_text("chicken.compiler.scrutinizer#r-conditional-value-count-invalid"));{
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_22405(6,av2);}}

/* toplevel */
static 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(3172))){
C_save(t1);
C_rereclaim2(3172*sizeof(C_word),1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,664);
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?"));
lf[20]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\164\162\151\156\147\376\003\000\000\002\376\001\000\000\006\001\163\171\155\142\157\154\376\003\000\000\002\376\001\000\000\007\001\153\145\171\167\157\162\144\376\003\000\000\002\376\001\000\000\004\001\143\150\141\162\376\003\000\000\002\376\001\000\000\004\001\156\165\154\154\376\003\000\000\002\376\001\000\000\007\001\142\157\157\154\145\141\156\376\003\000\000\002\376\001\000\000\004\001\164\162\165\145\376\003\000\000\002\376\001\000\000\005\001\146\141\154\163\145\376\003\000\000\002\376\001\000\000\012\001\142\171\164\145\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\003\001\145\157\146\376\003\000\000\002\376\001\000\000\003\001\142\167\160\376\003\000\000\002\376\001\000\000\006\001\146\151\170\156\165\155\376\003\000\000\002\376\001\000\000\005\001\146\154\157\141\164\376\003\000\000\002\376\001\000\000\006\001\156\165\155\142\145\162\376\003\000\000\002\376\001\000\000\007\001\151\156\164\145\147\145\162\376\003\000\000\002\376\001\000\000\006\001\142\151\147\156\165\155\376\003\000\000\002\376\001\000\000\006\001\162\141\164\156\165\155\376\003\000\000\002\376\001\000\000\007\001\143\160\154\170\156\165\155\376\003\000\000\002\376\001\000\000\016\001\160\157\151\156\164\145\162\055\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\004\001\160\157\162\164\376\003\000\000\002\376\001\000\000\007\001\160\157\151\156\164\145\162\376\003\000\000\002\376\001\000\000\010\001\154\157\143\141\164\151\166\145\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\001\154\151\163\164\376\003\000\000\002\376\001\000\000\004\001\160\141\151\162\376\003\000\000\002\376\001\000\000\011\001\160\162\157\143\145\144\165\162\145\376\003\000\000\002\376\001\000\000\006\001\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\011\001\165\156\144\145\146\151\156\145\144\376\003\000\000\002\376\001\000\000\012\001\144\145\160\162\145\143\141\164\145\144\376\003\000\000\002\376\001\000\000\010\001\156\157\162\145\164\165\162\156\376\003\000\000\002\376\001\000\000\006\001\166\141\154\165\145\163\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],3, C_text("bwp"));
lf[32]=C_h_intern(&lf[32],4, C_text("null"));
lf[33]=C_h_intern(&lf[33],6, C_text("fixnum"));
lf[34]=C_h_intern(&lf[34],4, C_text("char"));
lf[35]=C_h_intern(&lf[35],7, C_text("boolean"));
lf[36]=C_h_intern(&lf[36],9, C_text("undefined"));
lf[37]=C_h_intern(&lf[37],39, C_text("chicken.compiler.scrutinizer#scrutinize"));
lf[38]=C_h_intern(&lf[38],6, C_text("string"));
lf[39]=C_h_intern(&lf[39],7, C_text("keyword"));
lf[40]=C_h_intern(&lf[40],6, C_text("symbol"));
lf[41]=C_h_intern(&lf[41],7, C_text("integer"));
lf[42]=C_h_intern(&lf[42],6, C_text("bignum"));
lf[43]=C_h_intern(&lf[43],5, C_text("float"));
lf[44]=C_h_intern(&lf[44],6, C_text("ratnum"));
lf[45]=C_h_intern(&lf[45],7, C_text("cplxnum"));
lf[46]=C_h_intern(&lf[46],4, C_text("true"));
lf[47]=C_h_intern(&lf[47],5, C_text("false"));
lf[48]=C_h_intern(&lf[48],4, C_text("list"));
lf[49]=C_h_intern(&lf[49],4, C_text("pair"));
lf[51]=C_h_intern(&lf[51],6, C_text("vector"));
lf[52]=C_h_intern(&lf[52],19, C_text("scheme#vector->list"));
lf[53]=C_h_intern(&lf[53],6, C_text("struct"));
lf[54]=C_h_intern(&lf[54],1, C_text("*"));
lf[55]=C_h_intern(&lf[55],38, C_text("chicken.compiler.support#small-bignum?"));
lf[56]=C_h_intern(&lf[56],36, C_text("chicken.compiler.support#big-fixnum?"));
lf[57]=C_h_intern(&lf[57],24, C_text("chicken.keyword#keyword?"));
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_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[60]=C_h_intern(&lf[60],10, C_text("deprecated"));
lf[61]=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_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[65]=C_h_intern(&lf[65],38, C_text("chicken.compiler.support#variable-mark"));
lf[66]=C_h_intern(&lf[66],15, C_text("##compiler#type"));
lf[67]=C_h_intern(&lf[67],22, C_text("##compiler#type-source"));
lf[68]=C_h_intern(&lf[68],31, C_text("chicken.compiler.support#db-get"));
lf[69]=C_h_intern(&lf[69],8, C_text("assigned"));
lf[70]=C_h_intern(&lf[70],3, C_text("not"));
lf[71]=C_h_intern(&lf[71],8, C_text("noreturn"));
lf[73]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\124\145\163\164\040\151\163\040\141\154\167\141\171\163\040\164\162\165\145\000"));
lf[74]=C_h_intern(&lf[74],12, C_text("##sys#notice"));
lf[77]=C_h_intern(&lf[77],20, C_text("scheme#string-append"));
lf[78]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\111\156\040\143\157\156\144\151\164\151\157\156\141\154\040\145\170\160\162\145\163\163\151\157\156\072\000"));
lf[79]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[80]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[81]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[82]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\056\124\145\163\164\040\143\157\156\144\151\164\151\157\156\040\150\141\163\040\141\154\167\141\171\163\040\164\162\165\145\040\166\141\154\165\145\040\157\146\040\164\171\160\145\072\000"));
lf[83]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[84]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[85]=C_h_intern(&lf[85],9, C_text("procedure"));
lf[86]=C_h_intern(&lf[86],17, C_text("##core#the/result"));
lf[87]=C_h_intern(&lf[87],44, C_text("chicken.compiler.support#node-subexpressions"));
lf[88]=C_h_intern(&lf[88],15, C_text("##core#variable"));
lf[89]=C_h_intern(&lf[89],35, C_text("chicken.compiler.support#node-class"));
lf[90]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\111\156\166\141\154\151\144\040\160\162\157\143\145\144\165\162\145\000"));
lf[91]=C_h_intern(&lf[91],20, C_text("chicken.base#warning"));
lf[93]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\111\156\040\160\162\157\143\145\144\165\162\145\040\143\141\154\154\072\000"));
lf[94]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[95]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[96]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[97]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\126\141\162\151\141\142\154\145\040\176\141\040\151\163\040\156\157\164\040\141\040\160\162\157\143\145\144\165\162\145\056\000"));
lf[98]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[99]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\111\164\040\150\141\163\040\164\150\151\163\040\164\171\160\145\072\000"));
lf[100]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[101]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[102]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\111\156\166\141\154\151\144\040\160\162\157\143\145\144\165\162\145\000"));
lf[104]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\111\156\040\160\162\157\143\145\144\165\162\145\040\143\141\154\154\072\000"));
lf[105]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[106]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[107]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[108]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\073\124\150\145\040\160\162\157\143\145\144\165\162\145\040\145\170\160\162\145\163\163\151\157\156\040\144\157\145\163\040\156\157\164\040\141\160\160\145\141\162\040\164\157\040\142\145\040\141\040\143\141\154\154\141\142\154\145\056\000"));
lf[109]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[110]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[111]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[112]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\124\150\145\040\145\170\160\145\143\164\145\144\040\164\171\160\145\040\151\163\072\000"));
lf[113]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[114]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[115]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[116]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\124\150\145\040\141\143\164\165\141\154\040\164\171\160\145\040\151\163\072\000"));
lf[117]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[118]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[121]=C_h_intern(&lf[121],11, C_text("##core#call"));
lf[123]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001\164\162\165\145\376\377\016"));
lf[124]=C_h_intern(&lf[124],5, C_text("quote"));
lf[125]=C_h_intern(&lf[125],3, C_text("let"));
lf[127]=C_h_intern(&lf[127],18, C_text("##sys#list->vector"));
lf[128]=C_h_intern(&lf[128],3, C_text("tmp"));
lf[129]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\120\162\145\144\151\143\141\164\145\040\151\163\040\141\154\167\141\171\163\040\164\162\165\145\000"));
lf[130]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\111\156\040\160\162\157\143\145\144\165\162\145\040\143\141\154\154\072\000"));
lf[131]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[132]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[133]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[134]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\047\124\150\145\040\160\162\145\144\151\143\141\164\145\040\167\151\154\154\040\141\154\167\141\171\163\040\162\145\164\165\162\156\040\164\162\165\145\056\000"));
lf[135]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[136]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\120\162\157\143\145\144\165\162\145\040\176\141\040\151\163\040\141\040\160\162\145\144\151\143\141\164\145\040\146\157\162\072\000"));
lf[137]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[138]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[139]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[140]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\124\150\145\040\147\151\166\145\156\040\141\162\147\165\155\145\156\164\040\150\141\163\040\164\150\151\163\040\164\171\160\145\072\000"));
lf[141]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[142]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[144]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001\146\141\154\163\145\376\377\016"));
lf[145]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\120\162\145\144\151\143\141\164\145\040\151\163\040\141\154\167\141\171\163\040\146\141\154\163\145\000"));
lf[146]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\111\156\040\160\162\157\143\145\144\165\162\145\040\143\141\154\154\072\000"));
lf[147]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[148]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[149]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[150]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\050\124\150\145\040\160\162\145\144\151\143\141\164\145\040\167\151\154\154\040\141\154\167\141\171\163\040\162\145\164\165\162\156\040\146\141\154\163\145\056\000"));
lf[151]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[152]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\120\162\157\143\145\144\165\162\145\040\176\141\040\151\163\040\141\040\160\162\145\144\151\143\141\164\145\040\146\157\162\072\000"));
lf[153]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[154]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[155]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[156]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\124\150\145\040\147\151\166\145\156\040\141\162\147\165\155\145\156\164\040\150\141\163\040\164\150\151\163\040\164\171\160\145\072\000"));
lf[157]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[158]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[163]=C_h_intern(&lf[163],26, C_text("##compiler#specializations"));
lf[164]=C_h_intern(&lf[164],32, C_text("##compiler#local-specializations"));
lf[165]=C_h_intern(&lf[165],49, C_text("chicken.compiler.support#maybe-constant-fold-call"));
lf[166]=C_h_intern(&lf[166],20, C_text("##compiler#predicate"));
lf[168]=C_h_intern(&lf[168],37, C_text("scheme#call-with-current-continuation"));
lf[171]=C_h_intern(&lf[171],40, C_text("chicken.compiler.scrutinizer#match-types"));
lf[172]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[173]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\163\000"));
lf[174]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\151\163\000"));
lf[175]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\141\162\145\000"));
lf[176]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\127\162\157\156\147\040\156\165\155\142\145\162\040\157\146\040\141\162\147\165\155\145\156\164\163\000"));
lf[178]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\111\156\040\160\162\157\143\145\144\165\162\145\040\143\141\154\154\072\000"));
lf[179]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[180]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[181]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[182]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\113\120\162\157\143\145\144\165\162\145\040\140\176\141\047\040\151\163\040\143\141\154\154\145\144\040\167\151\164\150\040\176\141\040\141\162\147\165\155\145\156\164\176\141\040\142\165\164\040\176\141\040\141\162\147\165\155\145\156\164\176\141\040\176\141\040\145\170\160\145\143\164\145\144\056\000"));
lf[183]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[184]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\120\162\157\143\145\144\165\162\145\040\176\141\040\150\141\163\040\164\150\151\163\040\164\171\160\145\072\000"));
lf[185]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[186]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[187]=C_h_intern(&lf[187],26, C_text("chicken.base#alist-update!"));
lf[188]=C_h_intern(&lf[188],13, C_text("scheme#equal?"));
lf[189]=C_h_intern(&lf[189],16, C_text("##core#undefined"));
lf[190]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[191]=C_h_intern(&lf[191],11, C_text("##core#proc"));
lf[192]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001\160\162\157\143\145\144\165\162\145\376\377\016"));
lf[193]=C_h_intern(&lf[193],17, C_text("##core#inline_ref"));
lf[194]=C_h_intern(&lf[194],52, C_text("chicken.compiler.support#foreign-type->scrutiny-type"));
lf[195]=C_h_intern(&lf[195],6, C_text("result"));
lf[196]=C_h_intern(&lf[196],21, C_text("##core#inline_loc_ref"));
lf[197]=C_h_intern(&lf[197],2, C_text("if"));
lf[198]=C_h_intern(&lf[198],19, C_text("chicken.base#gensym"));
lf[199]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\102\162\141\156\143\150\040\166\141\154\165\145\163\040\155\151\163\155\141\164\143\150\000"));
lf[200]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\111\156\040\143\157\156\144\151\164\151\157\156\141\154\040\145\170\160\162\145\163\163\151\157\156\072\000"));
lf[201]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[202]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[203]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[204]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\057\124\150\145\040\142\162\141\156\143\150\145\163\040\150\141\166\145\040\144\151\146\146\145\162\145\156\164\040\156\165\155\142\145\162\163\040\157\146\040\166\141\154\165\145\163\056\000"));
lf[205]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[206]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\124\150\145\040\164\162\165\145\040\142\162\141\156\143\150\040\162\145\164\165\162\156\163\040\176\141\040\166\141\154\165\145\176\141\072\000"));
lf[207]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[208]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[209]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[210]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\124\150\145\040\146\141\154\163\145\040\142\162\141\156\143\150\040\162\145\164\165\162\156\163\040\176\141\040\166\141\154\165\145\176\141\072\000"));
lf[211]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[212]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[213]=C_h_intern(&lf[213],8, C_text("for-each"));
lf[214]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\124\145\163\164\040\151\163\040\141\154\167\141\171\163\040\146\141\154\163\145\000"));
lf[215]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\111\156\040\143\157\156\144\151\164\151\157\156\141\154\040\145\170\160\162\145\163\163\151\157\156\072\000"));
lf[216]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[217]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[218]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[219]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\124\145\163\164\040\143\157\156\144\151\164\151\157\156\040\151\163\040\141\154\167\141\171\163\040\146\141\154\163\145\056\000"));
lf[222]=C_h_intern(&lf[222],13, C_text("##core#lambda"));
lf[223]=C_h_intern(&lf[223],6, C_text("lambda"));
lf[224]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001\160\162\157\143\145\144\165\162\145\376\377\016"));
lf[225]=C_h_intern(&lf[225],18, C_text("##sys#dynamic-wind"));
lf[226]=C_h_intern(&lf[226],20, C_text("chicken.base#butlast"));
lf[227]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\043\041\162\145\163\164\376\377\016"));
lf[228]=C_h_intern(&lf[228],27, C_text("##sys#decompose-lambda-list"));
lf[229]=C_h_intern(&lf[229],4, C_text("set!"));
lf[230]=C_h_intern(&lf[230],11, C_text("##core#set!"));
lf[231]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\006\001\376\377\016"));
lf[232]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[233]=C_h_intern(&lf[233],8, C_text("captured"));
lf[234]=C_h_intern(&lf[234],38, C_text("chicken.compiler.support#mark-variable"));
lf[235]=C_h_intern(&lf[235],9, C_text("inference"));
lf[236]=C_h_intern(&lf[236],6, C_text("format"));
lf[237]=C_h_intern(&lf[237],34, C_text("chicken.compiler.support#debugging"));
lf[238]=C_h_intern(&lf[238],1, C_text("I"));
lf[239]=C_h_intern(&lf[239],24, C_text("scheme#get-output-string"));
lf[240]=C_h_intern(&lf[240],18, C_text("##sys#write-char-0"));
lf[241]=C_h_intern(&lf[241],11, C_text("##sys#print"));
lf[242]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\050\072\040\000"));
lf[243]=C_h_intern(&lf[243],25, C_text("scheme#open-output-string"));
lf[245]=C_h_intern(&lf[245],34, C_text("chicken.compiler.support#tree-copy"));
lf[246]=C_h_intern(&lf[246],2, C_text("no"));
lf[247]=C_h_intern(&lf[247],17, C_text("##compiler#inline"));
lf[248]=C_h_intern(&lf[248],42, C_text("chicken.compiler.support#variable-visible?"));
lf[249]=C_h_intern(&lf[249],11, C_text("local-value"));
lf[250]=C_h_intern(&lf[250],5, C_text("value"));
lf[251]=C_h_intern(&lf[251],7, C_text("unknown"));
lf[252]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\111\156\166\141\154\151\144\040\141\163\163\151\147\156\155\145\156\164\000"));
lf[253]=C_h_intern(&lf[253],21, C_text("scheme#string->symbol"));
lf[254]=C_h_intern(&lf[254],34, C_text("chicken.compiler.support#real-name"));
lf[255]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\111\156\040\141\163\163\151\147\156\155\145\156\164\072\000"));
lf[256]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[257]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[258]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[259]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\126\141\162\151\141\142\154\145\040\140\176\141\047\040\151\163\040\141\163\163\151\147\156\145\144\040\151\156\166\141\154\151\144\040\166\141\154\165\145\056\000"));
lf[260]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[261]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\124\150\145\040\141\163\163\151\147\156\145\144\040\166\141\154\165\145\040\150\141\163\040\164\150\151\163\040\164\171\160\145\072\000"));
lf[262]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[263]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[264]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[265]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\124\150\145\040\144\145\143\154\141\162\145\144\040\164\171\160\145\040\157\146\040\176\141\040\151\163\072\000"));
lf[266]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[267]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[269]=C_h_intern(&lf[269],16, C_text("##core#primitive"));
lf[270]=C_h_intern(&lf[270],34, C_text("chicken.compiler.support#make-node"));
lf[272]=C_h_intern(&lf[272],16, C_text("##compiler#clean"));
lf[273]=C_h_intern(&lf[273],15, C_text("##compiler#pure"));
lf[274]=C_h_intern(&lf[274],41, C_text("chicken.compiler.scrutinizer#refine-types"));
lf[275]=C_h_intern(&lf[275],30, C_text("##compiler#special-result-type"));
lf[276]=C_h_intern(&lf[276],22, C_text("chicken.base#alist-ref"));
lf[277]=C_h_intern(&lf[277],18, C_text("##compiler#enforce"));
lf[278]=C_h_intern(&lf[278],10, C_text("##core#the"));
lf[279]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\116\157\164\040\145\156\157\165\147\150\040\166\141\154\165\145\163\000"));
lf[280]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\111\156\040\145\170\160\162\145\163\163\151\157\156\072\000"));
lf[281]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[282]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[283]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[284]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\067\105\170\160\162\145\163\163\151\157\156\040\162\145\164\165\162\156\163\040\060\040\166\141\154\165\145\163\040\142\165\164\040\151\163\040\144\145\143\154\141\162\145\144\040\164\157\040\162\145\164\165\162\156\072\000"));
lf[285]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[286]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[287]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\124\171\160\145\040\155\151\163\155\141\164\143\150\000"));
lf[288]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\111\156\040\145\170\160\162\145\163\163\151\157\156\072\000"));
lf[289]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[290]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[291]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[292]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\065\105\170\160\162\145\163\163\151\157\156\047\163\040\144\145\143\154\141\162\145\144\040\141\156\144\040\141\143\164\165\141\154\040\164\171\160\145\163\040\144\157\040\156\157\164\040\155\141\164\143\150\056\000"));
lf[293]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[294]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\124\150\145\040\144\145\143\154\141\162\145\144\040\164\171\160\145\040\151\163\072\000"));
lf[295]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[296]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[297]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[298]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\124\150\145\040\141\143\164\165\141\154\040\164\171\160\145\040\151\163\072\000"));
lf[299]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[300]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[302]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\124\157\157\040\155\141\156\171\040\166\141\154\165\145\163\000"));
lf[303]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\111\156\040\145\170\160\162\145\163\163\151\157\156\072\000"));
lf[304]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[305]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[306]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[307]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\105\170\160\162\145\163\163\151\157\156\040\162\145\164\165\162\156\163\040\164\157\157\040\155\141\156\171\040\166\141\154\165\145\163\056\000"));
lf[308]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[309]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\074\124\150\145\040\145\170\160\162\145\163\163\151\157\156\040\162\145\164\165\162\156\163\040\176\141\040\166\141\154\165\145\163\040\142\165\164\040\151\163\040\144\145\143\154\141\162\145\144\040\164\157\040\162\145\164\165\162\156\072\000"));
lf[310]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[311]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[312]=C_h_intern(&lf[312],15, C_text("##core#typecase"));
lf[313]=C_h_intern(&lf[313],39, C_text("chicken.compiler.support#quit-compiling"));
lf[314]=C_h_intern(&lf[314],33, C_text("chicken.string#string-intersperse"));
lf[315]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\012\012\000"));
lf[317]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\040\000"));
lf[319]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[320]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[321]=C_h_intern(&lf[321],19, C_text("chicken.string#conc"));
lf[322]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\040\000"));
lf[323]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\012\040\040\000"));
lf[325]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\116\157\040\164\171\160\145\143\141\163\145\040\155\141\164\143\150\000"));
lf[326]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\045\000"));
lf[327]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[328]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[329]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\111\156\040\140\143\157\155\160\151\154\145\162\055\164\171\160\145\143\141\163\145\047\040\145\170\160\162\145\163\163\151\157\156\072\000"));
lf[330]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[331]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\040\040\176\141\000"));
lf[332]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[333]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\055\040\040\124\145\163\164\145\144\040\145\170\160\162\145\163\163\151\157\156\040\144\157\145\163\040\156\157\164\040\155\141\164\143\150\040\141\156\171\040\143\141\163\145\056\000"));
lf[334]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[335]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\040\040\124\150\145\040\145\170\160\162\145\163\163\151\157\156\040\150\141\163\040\164\150\151\163\040\164\171\160\145\072\000"));
lf[336]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[337]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[338]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[339]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\040\040\124\150\145\040\163\160\145\143\151\146\151\145\144\040\164\171\160\145\040\143\141\163\145\163\040\141\162\145\040\164\150\145\163\145\072\000"));
lf[340]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[341]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[342]=C_h_intern(&lf[342],13, C_text("##core#switch"));
lf[343]=C_h_intern(&lf[343],11, C_text("##core#cond"));
lf[344]=C_h_intern(&lf[344],29, C_text("chicken.compiler.support#bomb"));
lf[345]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\163\143\162\165\164\151\156\151\172\145\072\040\165\156\145\170\160\145\143\164\145\144\040\156\157\144\145\040\143\154\141\163\163\000"));
lf[346]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\056\163\157\155\145\040\166\141\162\151\141\142\154\145\040\164\171\160\145\163\040\144\157\040\156\157\164\040\163\141\164\151\163\146\171\040\163\164\162\151\143\164\156\145\163\163\000"));
lf[347]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\157\376\003\000\000\002\376\001\000\000\001\001\145\376\377\016"));
lf[348]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\141\163\163\151\147\156\155\145\156\164\163\040\164\157\040\151\155\155\145\144\151\141\164\145\040\166\141\154\165\145\163\000"));
lf[349]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\157\376\003\000\000\002\376\001\000\000\001\001\145\376\377\016"));
lf[350]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\144\162\157\160\160\145\144\040\142\162\141\156\143\150\145\163\000"));
lf[351]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\157\376\003\000\000\002\376\001\000\000\001\001\145\376\377\016"));
lf[352]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\163\141\146\145\040\143\141\154\154\163\000"));
lf[353]=C_h_intern(&lf[353],21, C_text("##sys#standard-output"));
lf[354]=C_h_intern(&lf[354],6, C_text("printf"));
lf[355]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\040\000"));
lf[356]=C_h_intern(&lf[356],18, C_text("chicken.base#print"));
lf[357]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\163\160\145\143\151\141\154\151\172\141\164\151\157\156\163\072\000"));
lf[358]=C_h_intern(&lf[358],46, C_text("chicken.compiler.support#with-debugging-output"));
lf[359]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\157\376\003\000\000\002\376\001\000\000\001\001\145\376\377\016"));
lf[360]=C_h_intern(&lf[360],9, C_text("vector-of"));
lf[361]=C_h_intern(&lf[361],23, C_text("chicken.base#constantly"));
lf[362]=C_h_intern(&lf[362],7, C_text("list-of"));
lf[363]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\004\001\160\141\151\162\376\003\000\000\002\376\001\000\000\004\001\156\165\154\154\376\377\016"));
lf[364]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\043\041\162\145\163\164\376\003\000\000\002\376\001\000\000\012\001\043\041\157\160\164\151\157\156\141\154\376\377\016"));
lf[365]=C_h_intern(&lf[365],10, C_text("#!optional"));
lf[366]=C_h_intern(&lf[366],6, C_text("#!rest"));
lf[368]=C_h_intern(&lf[368],14, C_text("scheme#reverse"));
lf[369]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001\165\156\144\145\146\151\156\145\144\376\003\000\000\002\376\001\000\000\010\001\156\157\162\145\164\165\162\156\376\377\016"));
lf[373]=C_h_intern(&lf[373],6, C_text("refine"));
lf[374]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\160\141\151\162\376\003\000\000\002\376\001\000\000\004\001\160\141\151\162\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\001\154\151\163\164\376\003\000\000\002\376\001\000\000\007\001\154\151\163\164\055\157\146\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\001\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\011\001\166\145\143\164\157\162\055\157\146\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\001\142\157\157\154\145\141\156\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\004\001\164\162\165\145\376\003\000\000\002\376\001\000\000\005\001\146\141\154\163\145\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\151\156\164\145\147\145\162\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\006\001\146\151\170\156\165\155\376\003\000\000\002\376\001\000\000\006\001\142\151\147\156\165\155\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\156\165\155\142\145\162\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\006\001\146\151\170\156\165\155\376\003\000\000\002\376\001\000\000\005\001\146\154\157\141\164\376\003\000\000\002\376\001\000\000\006\001\142\151\147\156\165\155\376\003\000\000\002\376\001\000\000\006\001\162\141\164\156\165\155\376\003\000\000\002\376\001\000\000\007\001\143\160\154\170\156\165\155\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\160\162\157\143\145\144\165\162\145\376\003\000\000\002\376\001\000\000\011\001\160\162\157\143\145\144\165\162\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\043\041\162\145\163\164\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[375]=C_h_intern(&lf[375],10, C_text("scheme#eq?"));
lf[376]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\043\041\162\145\163\164\376\377\016"));
lf[377]=C_h_intern(&lf[377],14, C_text("##core#tv-root"));
lf[378]=C_h_intern(&lf[378],17, C_text("chicken.plist#get"));
lf[379]=C_h_intern(&lf[379],5, C_text("foldl"));
lf[380]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001\160\162\157\143\145\144\165\162\145\376\377\016"));
lf[382]=C_h_intern(&lf[382],6, C_text("number"));
lf[383]=C_h_intern(&lf[383],36, C_text("chicken.compiler.scrutinizer#type<=?"));
lf[384]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\146\151\170\156\165\155\376\003\000\000\002\376\001\000\000\005\001\146\154\157\141\164\376\003\000\000\002\376\001\000\000\006\001\142\151\147\156\165\155\376\003\000\000\002\376\001\000\000\006\001\162\141\164\156\165\155\376\003\000\000\002\376\001\000\000\007\001\143\160\154\170\156\165\155\376\377\016"));
lf[385]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\146\151\170\156\165\155\376\003\000\000\002\376\001\000\000\006\001\142\151\147\156\165\155\376\377\016"));
lf[386]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001\164\162\165\145\376\003\000\000\002\376\001\000\000\005\001\146\141\154\163\145\376\377\016"));
lf[390]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001\160\162\157\143\145\144\165\162\145\376\377\016"));
lf[391]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\043\041\162\145\163\164\376\377\016"));
lf[392]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\043\041\162\145\163\164\376\377\016"));
lf[393]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\043\041\162\145\163\164\376\377\016"));
lf[394]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\043\041\162\145\163\164\376\377\016"));
lf[395]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\146\157\162\141\154\154\376\003\000\000\002\376\001\000\000\006\001\162\145\146\151\156\145\376\377\016"));
lf[396]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\146\157\162\141\154\154\376\003\000\000\002\376\001\000\000\006\001\162\145\146\151\156\145\376\377\016"));
lf[397]=C_h_intern(&lf[397],21, C_text("chicken.base#identity"));
lf[398]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001\156\165\154\154\376\003\000\000\002\376\001\000\000\004\001\160\141\151\162\376\377\016"));
lf[399]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\160\162\157\143\145\144\165\162\145\055\141\162\147\165\155\145\156\164\163\072\040\156\157\164\040\141\040\160\162\157\143\145\144\165\162\145\040\164\171\160\145\000"));
lf[400]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\050\160\162\157\143\145\144\165\162\145\055\162\145\163\165\154\164\163\072\040\156\157\164\040\141\040\160\162\157\143\145\144\165\162\145\040\164\171\160\145\000"));
lf[401]=C_h_intern(&lf[401],6, C_text("values"));
lf[402]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001\156\157\162\145\164\165\162\156\376\377\016"));
lf[404]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\055\162\145\163\157\154\166\145\072\040\143\141\156\047\164\040\162\145\163\157\154\166\145\040\165\156\153\156\157\167\156\040\164\171\160\145\055\166\141\162\151\141\142\154\145\000"));
lf[405]=C_h_intern(&lf[405],12, C_text("##sys#append"));
lf[406]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\166\141\154\165\145\163\376\377\016"));
lf[407]=C_h_intern(&lf[407],47, C_text("chicken.compiler.scrutinizer#load-type-database"));
lf[408]=C_h_intern(&lf[408],42, C_text("chicken.compiler.scrutinizer#validate-type"));
lf[409]=C_h_intern(&lf[409],52, C_text("chicken.compiler.scrutinizer#install-specializations"));
lf[410]=C_h_intern(&lf[410],2, C_text("db"));
lf[411]=C_h_intern(&lf[411],22, C_text("chicken.format#sprintf"));
lf[412]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\050\104\145\143\154\141\162\145\144\040\164\171\160\145\040\146\157\162\040\164\157\160\154\145\166\145\154\040\142\151\156\144\151\156\147\040\140\176\141\047\000"));
lf[413]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\176\045\176\045\176\141\176\045\176\045\000"));
lf[414]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\040\040\143\157\156\146\154\151\143\164\163\040\167\151\164\150\040\160\162\145\166\151\157\165\163\154\171\040\154\157\141\144\145\144\040\164\171\160\145\072\000"));
lf[415]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\176\045\176\045\176\141\000"));
lf[416]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\047\072\000"));
lf[417]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\111\156\166\141\154\151\144\040\164\171\160\145\040\163\160\145\143\151\146\151\143\141\164\151\157\156\040\146\157\162\040\140\000"));
lf[418]=C_h_intern_kw(&lf[418],4, C_text("pure"));
lf[419]=C_h_intern_kw(&lf[419],5, C_text("clean"));
lf[420]=C_h_intern_kw(&lf[420],7, C_text("enforce"));
lf[421]=C_h_intern_kw(&lf[421],8, C_text("foldable"));
lf[422]=C_h_intern(&lf[422],19, C_text("##compiler#foldable"));
lf[423]=C_h_intern_kw(&lf[423],9, C_text("predicate"));
lf[424]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\064\154\157\141\144\055\164\171\160\145\055\144\141\164\141\142\141\163\145\072\040\151\156\166\141\154\151\144\040\160\162\157\143\145\144\165\162\145\055\164\171\160\145\040\160\162\157\160\145\162\164\171\000"));
lf[425]=C_h_intern(&lf[425],27, C_text("scheme#call-with-input-file"));
lf[426]=C_h_intern(&lf[426],41, C_text("chicken.compiler.support#read-expressions"));
lf[427]=C_h_intern(&lf[427],1, C_text("p"));
lf[428]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\047\040\056\056\056\000"));
lf[429]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\154\157\141\144\151\156\147\040\164\171\160\145\040\144\141\164\141\142\141\163\145\040\140\000"));
lf[430]=C_h_intern(&lf[430],18, C_text("##sys#file-exists?"));
lf[431]=C_h_intern(&lf[431],22, C_text("chicken.load#find-file"));
lf[432]=C_h_intern(&lf[432],32, C_text("chicken.platform#repository-path"));
lf[433]=C_h_intern(&lf[433],44, C_text("chicken.compiler.scrutinizer#emit-types-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\002\145\156\146\157\162\143\145\376\377\016"));
lf[437]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\002\160\165\162\145\376\377\016"));
lf[438]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\002\143\154\145\141\156\376\377\016"));
lf[439]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\002\146\157\154\144\141\142\154\145\376\377\016"));
lf[440]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001\154\157\143\141\154\376\003\000\000\002\376\001\000\000\011\001\151\156\146\145\162\145\156\143\145\376\377\016"));
lf[441]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\073\040\105\116\104\040\117\106\040\106\111\114\105\000"));
lf[442]=C_h_intern(&lf[442],15, C_text("scheme#string<?"));
lf[443]=C_h_intern(&lf[443],21, C_text("scheme#symbol->string"));
lf[444]=C_h_intern(&lf[444],17, C_text("chicken.sort#sort"));
lf[445]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\073\040\107\105\116\105\122\101\124\105\104\040\102\131\040\103\110\111\103\113\105\116\040\000"));
lf[446]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\040\106\122\117\115\040\000"));
lf[447]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[448]=C_h_intern(&lf[448],32, C_text("chicken.platform#chicken-version"));
lf[449]=C_h_intern(&lf[449],26, C_text("scheme#with-output-to-file"));
lf[451]=C_h_intern(&lf[451],35, C_text("chicken.compiler.support#copy-node!"));
lf[452]=C_h_intern(&lf[452],41, C_text("chicken.compiler.support#build-node-graph"));
lf[453]=C_h_intern(&lf[453],34, C_text("chicken.compiler.support#copy-node"));
lf[455]=C_h_intern(&lf[455],13, C_text("scheme#values"));
lf[457]=C_h_intern(&lf[457],3, C_text("..."));
lf[458]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\043\041\162\145\163\164\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[459]=C_h_intern(&lf[459],9, C_text("&optional"));
lf[460]=C_h_intern(&lf[460],5, C_text("&rest"));
lf[461]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\043\041\162\145\163\164\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[462]=C_h_intern(&lf[462],5, C_text("#!key"));
lf[463]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\043\041\162\145\163\164\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016"));
lf[464]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001\165\070\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\010\001\163\070\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\011\001\165\061\066\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\011\001\163\061\066\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\011\001\165\063\062\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\011\001\163\063\062\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\011\001\165\066\064\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\011\001\163\066\064\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\011\001\146\063\062\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\011\001\146\066\064\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\011\001\143\066\064\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\012\001\143\061\062\070\166\145\143\164\157\162\376\003\000\000\002\376\001\000\000\006\001\164\150\162\145\141\144\376\003\000\000\002\376\001\000\000\005\001\161\165\145\165\145\376\003\000\000\002\376\001\000\000\013\001\145\156\166\151\162\157\156\155\145\156\164\376\003\000\000\002\376\001\000\000\004\001\164\151\155\145\376\003\000\000\002\376\001\000\000\014\001\143\157\156\164\151\156\165\141\164\151\157\156\376\003\000\000\002\376\001\000\000\004\001\154\157\143\153\376\003\000\000\002\376\001\000\000\004\001\155\155\141\160\376\003\000\000\002\376\001\000\000\011\001\143\157\156\144\151\164\151\157\156\376\003\000\000\002\376\001\000\000\012\001\150\141\163\150\055\164\141\142\154\145\376\003\000\000\002\376\001\000\000\014\001\164\143\160\055\154\151\163\164\145\156\145\162\376\377\016"));
lf[465]=C_h_intern(&lf[465],9, C_text("immediate"));
lf[466]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\003\001\145\157\146\376\003\000\000\002\376\001\000\000\004\001\156\165\154\154\376\003\000\000\002\376\001\000\000\006\001\146\151\170\156\165\155\376\003\000\000\002\376\001\000\000\004\001\143\150\141\162\376\003\000\000\002\376\001\000\000\007\001\142\157\157\154\145\141\156\376\377\016"));
lf[467]=C_h_intern(&lf[467],3, C_text("any"));
lf[468]=C_h_intern(&lf[468],4, C_text("blob"));
lf[469]=C_h_intern(&lf[469],10, C_text("bytevector"));
lf[470]=C_h_intern(&lf[470],4, C_text("void"));
lf[471]=C_h_intern(&lf[471],10, C_text("input-port"));
lf[472]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\162\145\146\151\156\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\151\156\160\165\164\376\377\016\376\003\000\000\002\376\001\000\000\004\001\160\157\162\164\376\377\016"));
lf[473]=C_h_intern(&lf[473],11, C_text("output-port"));
lf[474]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\162\145\146\151\156\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\157\165\164\160\165\164\376\377\016\376\003\000\000\002\376\001\000\000\004\001\160\157\162\164\376\377\016"));
lf[475]=C_h_intern(&lf[475],14, C_text("scheme#symbol?"));
lf[476]=C_h_intern(&lf[476],3, C_text("-->"));
lf[477]=C_h_intern(&lf[477],1, C_text(":"));
lf[478]=C_h_intern(&lf[478],2, C_text("->"));
lf[479]=C_h_intern(&lf[479],9, C_text("##sys#get"));
lf[480]=C_h_intern(&lf[480],28, C_text("##compiler#type-abbreviation"));
lf[481]=C_h_intern(&lf[481],18, C_text("chicken.plist#put!"));
lf[482]=C_h_intern(&lf[482],27, C_text("chicken.syntax#strip-syntax"));
lf[483]=C_h_intern(&lf[483],52, C_text("chicken.compiler.scrutinizer#check-and-validate-type"));
lf[484]=C_h_intern(&lf[484],18, C_text("chicken.base#error"));
lf[485]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\151\156\166\141\154\151\144\040\164\171\160\145\040\163\160\145\143\151\146\151\145\162\000"));
lf[486]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\151\156\166\141\154\151\144\040\163\160\145\143\151\141\154\151\172\141\164\151\157\156\040\146\157\162\155\141\164\000"));
lf[487]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\050\151\156\166\141\154\151\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\151\156\040\163\160\145\143\151\141\154\151\172\141\164\151\157\156\000"));
lf[488]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\151\156\166\141\154\151\144\040\162\145\163\165\154\164\040\164\171\160\145\040\151\156\040\163\160\145\143\151\141\154\151\172\141\164\151\157\156\000"));
lf[489]=C_h_intern(&lf[489],20, C_text("##sys#string->symbol"));
lf[490]=C_h_intern(&lf[490],15, C_text("##sys#substring"));
lf[492]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\166\145\143\164\157\162\000"));
lf[493]=C_h_intern(&lf[493],10, C_text("##sys#slot"));
lf[494]=C_h_intern(&lf[494],8, C_text("not-used"));
lf[495]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\154\151\163\164\000"));
lf[496]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\154\151\163\164\000"));
lf[497]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\040\000"));
lf[498]=C_h_intern(&lf[498],19, C_text("##sys#string-append"));
lf[499]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[500]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[501]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[502]=C_h_intern(&lf[502],27, C_text("chicken.string#string-split"));
lf[503]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[504]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000"));
lf[505]=C_h_intern_kw(&lf[505],2, C_text("tv"));
lf[506]=C_h_intern(&lf[506],11, C_text("##sys#error"));
lf[507]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\164\171\160\145\055\076\160\160\055\163\164\162\151\156\147\072\040\165\156\150\141\156\144\154\145\144\040\164\171\160\145\000"));
lf[508]=C_h_intern(&lf[508],27, C_text("chicken.string#string-chomp"));
lf[509]=C_h_intern(&lf[509],34, C_text("chicken.port#with-output-to-string"));
lf[510]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\056\056\056\376\377\016"));
lf[511]=C_h_intern(&lf[511],46, C_text("chicken.compiler.support#build-expression-tree"));
lf[512]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[513]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\047\054\000"));
lf[514]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\111\156\040\146\151\154\145\040\140\000"));
lf[515]=C_h_intern(&lf[515],42, C_text("chicken.compiler.support#source-info->line"));
lf[516]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\040\000"));
lf[517]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\101\164\040\164\150\145\040\164\157\160\154\145\166\145\154\054\012\000"));
lf[518]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[519]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[521]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\047\054\000"));
lf[522]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\111\156\040\160\162\157\143\145\144\165\162\145\040\140\000"));
lf[523]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\047\054\000"));
lf[524]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\111\156\040\155\157\144\165\154\145\040\140\000"));
lf[525]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[526]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\111\156\040\141\040\164\157\160\154\145\166\145\154\040\160\162\157\143\145\144\165\162\145\054\000"));
lf[527]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\047\054\000"));
lf[528]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\111\156\040\160\162\157\143\145\144\165\162\145\040\140\000"));
lf[529]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\111\156\040\141\040\154\157\143\141\154\040\160\162\157\143\145\144\165\162\145\054\000"));
lf[530]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\043\000"));
lf[531]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\047\040\146\162\157\155\040\155\157\144\165\154\145\040\140\000"));
lf[532]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\124\150\151\163\040\151\163\040\164\150\145\040\145\170\160\162\145\163\163\151\157\156\072\000"));
lf[533]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[534]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[535]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\050\111\164\040\151\163\040\141\040\143\141\154\154\040\164\157\040\176\141\040\167\150\151\143\150\040\150\141\163\040\164\150\151\163\040\164\171\160\145\072\000"));
lf[536]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[537]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[538]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[539]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[540]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[541]=C_h_intern(&lf[541],25, C_text("chicken.base#flush-output"));
lf[542]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\040\000"));
lf[543]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[544]=C_h_intern(&lf[544],22, C_text("chicken.format#fprintf"));
lf[545]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[546]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[547]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[548]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\111\156\166\141\154\151\144\040\141\162\147\165\155\145\156\164\000"));
lf[549]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\111\156\040\160\162\157\143\145\144\165\162\145\040\143\141\154\154\072\000"));
lf[550]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[551]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[552]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[553]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\064\101\162\147\165\155\145\156\164\040\043\176\141\040\164\157\040\160\162\157\143\145\144\165\162\145\040\140\176\141\047\040\150\141\163\040\141\156\040\151\156\166\141\154\151\144\040\164\171\160\145\072\000"));
lf[554]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[555]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[556]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[557]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\124\150\145\040\145\170\160\145\143\164\145\144\040\164\171\160\145\040\151\163\072\000"));
lf[558]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[559]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[560]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[561]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[562]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[563]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\120\162\157\143\145\144\165\162\145\040\176\141\040\150\141\163\040\164\150\151\163\040\164\171\160\145\072\000"));
lf[564]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[565]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[566]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[567]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\140\000"));
lf[568]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\111\156\040\160\162\157\143\145\144\165\162\145\040\143\141\154\154\072\000"));
lf[569]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[570]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[571]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[572]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\101\162\147\165\155\145\156\164\040\043\176\141\040\164\157\040\160\162\157\143\145\144\165\162\145\176\141\040\176\141\000"));
lf[573]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[574]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[575]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\116\157\164\040\145\156\157\165\147\150\040\141\162\147\165\155\145\156\164\040\166\141\154\165\145\163\000"));
lf[576]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\144\157\145\163\040\156\157\164\040\162\145\164\165\162\156\040\141\156\171\040\166\141\154\165\145\163\056\000"));
lf[577]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\124\157\157\040\155\141\156\171\040\141\162\147\165\155\145\156\164\040\166\141\154\165\145\163\000"));
lf[578]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\040\166\141\154\165\145\163\040\142\165\164\040\061\040\151\163\040\145\170\160\145\143\164\145\144\056\000"));
lf[579]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\162\145\164\165\162\156\163\040\000"));
lf[580]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\141\040\156\145\147\141\164\151\166\145\040\151\156\144\145\170\040\000"));
lf[581]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\047\056\000"));
lf[582]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\040\157\146\040\154\145\156\147\164\150\040\140\000"));
lf[583]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\047\040\146\157\162\040\141\040\000"));
lf[584]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\151\156\144\145\170\040\140\000"));
lf[585]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\111\156\040\160\162\157\143\145\144\165\162\145\040\143\141\154\154\072\000"));
lf[586]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[587]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[588]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[589]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\120\162\157\143\145\144\165\162\145\040\176\141\040\151\163\040\143\141\154\154\145\144\040\167\151\164\150\040\176\141\000"));
lf[590]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\040\151\156\144\145\170\000"));
lf[591]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\116\145\147\141\164\151\166\145\040\000"));
lf[592]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\040\151\156\144\145\170\040\157\165\164\040\157\146\040\162\141\156\147\145\000"));
lf[593]=C_h_intern(&lf[593],16, C_text("scheme#substring"));
lf[594]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\111\156\040\143\157\156\144\151\164\151\157\156\141\154\072\000"));
lf[595]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[596]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[597]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[598]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\124\150\145\040\164\145\163\164\040\145\170\160\162\145\163\163\151\157\156\040\176\141\000"));
lf[599]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[600]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[601]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\132\145\162\157\040\166\141\154\165\145\163\040\146\157\162\040\143\157\156\144\151\164\151\157\156\141\154\000"));
lf[602]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\162\145\164\165\162\156\163\040\060\040\166\141\154\165\145\163\056\000"));
lf[603]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\124\157\157\040\155\141\156\171\040\166\141\154\165\145\163\040\146\157\162\040\143\157\156\144\151\164\151\157\156\141\154\000"));
lf[604]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\040\166\141\154\165\145\163\056\000"));
lf[605]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\162\145\164\165\162\156\163\040\000"));
lf[606]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\111\156\040\154\145\164\040\145\170\160\162\145\163\163\151\157\156\072\000"));
lf[607]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[608]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[609]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[610]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\060\126\141\162\151\141\142\154\145\040\140\176\141\047\040\151\163\040\142\157\165\156\144\040\164\157\040\141\156\040\145\170\160\162\145\163\163\151\157\156\040\164\150\141\164\040\176\141\000"));
lf[611]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[612]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[613]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\162\145\164\165\162\156\163\040\060\040\166\141\154\165\145\163\056\000"));
lf[614]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\047\040\150\141\163\040\172\145\162\157\040\166\141\154\165\145\163\000"));
lf[615]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\114\145\164\040\142\151\156\144\151\156\147\040\164\157\040\140\000"));
lf[616]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\040\166\141\154\165\145\163\056\000"));
lf[617]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\162\145\164\165\162\156\163\040\000"));
lf[618]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\040\166\141\154\165\145\163\000"));
lf[619]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\047\040\150\141\163\040\000"));
lf[620]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\114\145\164\040\142\151\156\144\151\156\147\040\164\157\040\140\000"));
lf[621]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\111\156\040\141\163\163\151\147\156\155\145\156\164\072\000"));
lf[622]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[623]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[624]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[625]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\062\126\141\162\151\141\142\154\145\040\140\176\141\047\040\151\163\040\141\163\163\151\147\156\145\144\040\146\162\157\155\040\145\170\160\162\145\163\163\151\157\156\040\164\150\141\164\040\176\141\000"));
lf[626]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[627]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[628]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\162\145\164\165\162\156\163\040\060\040\166\141\154\165\145\163\056\000"));
lf[629]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\047\040\150\141\163\040\172\145\162\157\040\166\141\154\165\145\163\000"));
lf[630]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\101\163\163\151\147\156\155\145\156\164\040\164\157\040\140\000"));
lf[631]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\040\166\141\154\165\145\163\056\000"));
lf[632]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\162\145\164\165\162\156\163\040\000"));
lf[633]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\040\166\141\154\165\145\163\000"));
lf[634]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\047\040\150\141\163\040\000"));
lf[635]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\101\163\163\151\147\156\155\145\156\164\040\164\157\040\140\000"));
lf[636]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\124\150\145\040\163\165\147\147\145\163\164\145\144\040\141\154\164\145\162\156\141\164\151\166\145\040\151\163\040\000"));
lf[637]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[638]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\111\156\040\145\170\160\162\145\163\163\151\157\156\072\000"));
lf[639]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[640]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[641]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\176\045\176\045\000"));
lf[642]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\125\163\145\040\157\146\040\144\145\160\162\145\143\141\164\145\144\040\151\144\145\156\164\151\146\151\145\162\040\176\141\056\000"));
lf[643]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\176\141\000"));
lf[644]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\104\145\160\162\145\143\141\164\145\144\040\151\144\145\156\164\151\146\151\145\162\040\140\000"));
lf[645]=C_h_intern(&lf[645],10, C_text("##sys#put!"));
lf[646]=C_h_intern(&lf[646],18, C_text("scheme#make-vector"));
lf[647]=C_h_intern(&lf[647],12, C_text("##sys#vector"));
lf[648]=C_h_intern(&lf[648],13, C_text("scheme#vector"));
lf[649]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001\156\165\154\154\376\377\016"));
lf[650]=C_h_intern(&lf[650],10, C_text("##sys#list"));
lf[651]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001\156\165\154\154\376\377\016"));
lf[652]=C_h_intern(&lf[652],11, C_text("scheme#list"));
lf[653]=C_h_intern(&lf[653],16, C_text("scheme#list-tail"));
lf[654]=C_h_intern(&lf[654],15, C_text("scheme#list-ref"));
lf[655]=C_h_intern(&lf[655],14, C_text("##sys#setislot"));
lf[656]=C_h_intern(&lf[656],13, C_text("##sys#setslot"));
lf[657]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[658]=C_h_intern(&lf[658],18, C_text("scheme#vector-set!"));
lf[659]=C_h_intern(&lf[659],16, C_text("##sys#vector-ref"));
lf[660]=C_h_intern(&lf[660],17, C_text("scheme#vector-ref"));
lf[661]=C_h_intern(&lf[661],14, C_text("pointer-vector"));
lf[662]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001\160\157\151\156\164\145\162\055\166\145\143\164\157\162\376\377\016"));
lf[663]=C_h_intern(&lf[663],20, C_text("##sys#make-structure"));
C_register_lf2(lf,664,create_ptable());{}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6805,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[1332] = {
{C_text("f26120:scrutinizer_2escm"),(void*)f26120},
{C_text("f26227:scrutinizer_2escm"),(void*)f26227},
{C_text("f26242:scrutinizer_2escm"),(void*)f26242},
{C_text("f26249:scrutinizer_2escm"),(void*)f26249},
{C_text("f26497:scrutinizer_2escm"),(void*)f26497},
{C_text("f26645:scrutinizer_2escm"),(void*)f26645},
{C_text("f26710:scrutinizer_2escm"),(void*)f26710},
{C_text("f26717:scrutinizer_2escm"),(void*)f26717},
{C_text("f26869:scrutinizer_2escm"),(void*)f26869},
{C_text("f26874:scrutinizer_2escm"),(void*)f26874},
{C_text("f26883:scrutinizer_2escm"),(void*)f26883},
{C_text("f26890:scrutinizer_2escm"),(void*)f26890},
{C_text("f26929:scrutinizer_2escm"),(void*)f26929},
{C_text("f26934:scrutinizer_2escm"),(void*)f26934},
{C_text("f26939:scrutinizer_2escm"),(void*)f26939},
{C_text("f26946:scrutinizer_2escm"),(void*)f26946},
{C_text("f26953:scrutinizer_2escm"),(void*)f26953},
{C_text("f26960:scrutinizer_2escm"),(void*)f26960},
{C_text("f26967:scrutinizer_2escm"),(void*)f26967},
{C_text("f28274:scrutinizer_2escm"),(void*)f28274},
{C_text("f28279:scrutinizer_2escm"),(void*)f28279},
{C_text("f28298:scrutinizer_2escm"),(void*)f28298},
{C_text("f28532:scrutinizer_2escm"),(void*)f28532},
{C_text("f28537:scrutinizer_2escm"),(void*)f28537},
{C_text("f28542:scrutinizer_2escm"),(void*)f28542},
{C_text("f_10021:scrutinizer_2escm"),(void*)f_10021},
{C_text("f_10039:scrutinizer_2escm"),(void*)f_10039},
{C_text("f_10048:scrutinizer_2escm"),(void*)f_10048},
{C_text("f_10051:scrutinizer_2escm"),(void*)f_10051},
{C_text("f_10067:scrutinizer_2escm"),(void*)f_10067},
{C_text("f_10076:scrutinizer_2escm"),(void*)f_10076},
{C_text("f_10084:scrutinizer_2escm"),(void*)f_10084},
{C_text("f_10094:scrutinizer_2escm"),(void*)f_10094},
{C_text("f_10098:scrutinizer_2escm"),(void*)f_10098},
{C_text("f_10102:scrutinizer_2escm"),(void*)f_10102},
{C_text("f_10104:scrutinizer_2escm"),(void*)f_10104},
{C_text("f_10126:scrutinizer_2escm"),(void*)f_10126},
{C_text("f_10133:scrutinizer_2escm"),(void*)f_10133},
{C_text("f_10136:scrutinizer_2escm"),(void*)f_10136},
{C_text("f_10139:scrutinizer_2escm"),(void*)f_10139},
{C_text("f_10147:scrutinizer_2escm"),(void*)f_10147},
{C_text("f_10156:scrutinizer_2escm"),(void*)f_10156},
{C_text("f_10163:scrutinizer_2escm"),(void*)f_10163},
{C_text("f_10170:scrutinizer_2escm"),(void*)f_10170},
{C_text("f_10178:scrutinizer_2escm"),(void*)f_10178},
{C_text("f_10180:scrutinizer_2escm"),(void*)f_10180},
{C_text("f_10188:scrutinizer_2escm"),(void*)f_10188},
{C_text("f_10192:scrutinizer_2escm"),(void*)f_10192},
{C_text("f_10204:scrutinizer_2escm"),(void*)f_10204},
{C_text("f_10239:scrutinizer_2escm"),(void*)f_10239},
{C_text("f_10261:scrutinizer_2escm"),(void*)f_10261},
{C_text("f_10273:scrutinizer_2escm"),(void*)f_10273},
{C_text("f_10286:scrutinizer_2escm"),(void*)f_10286},
{C_text("f_10308:scrutinizer_2escm"),(void*)f_10308},
{C_text("f_10317:scrutinizer_2escm"),(void*)f_10317},
{C_text("f_10319:scrutinizer_2escm"),(void*)f_10319},
{C_text("f_10390:scrutinizer_2escm"),(void*)f_10390},
{C_text("f_10393:scrutinizer_2escm"),(void*)f_10393},
{C_text("f_10396:scrutinizer_2escm"),(void*)f_10396},
{C_text("f_10402:scrutinizer_2escm"),(void*)f_10402},
{C_text("f_10405:scrutinizer_2escm"),(void*)f_10405},
{C_text("f_10408:scrutinizer_2escm"),(void*)f_10408},
{C_text("f_10414:scrutinizer_2escm"),(void*)f_10414},
{C_text("f_10428:scrutinizer_2escm"),(void*)f_10428},
{C_text("f_10436:scrutinizer_2escm"),(void*)f_10436},
{C_text("f_10470:scrutinizer_2escm"),(void*)f_10470},
{C_text("f_10519:scrutinizer_2escm"),(void*)f_10519},
{C_text("f_10534:scrutinizer_2escm"),(void*)f_10534},
{C_text("f_10537:scrutinizer_2escm"),(void*)f_10537},
{C_text("f_10540:scrutinizer_2escm"),(void*)f_10540},
{C_text("f_10549:scrutinizer_2escm"),(void*)f_10549},
{C_text("f_10555:scrutinizer_2escm"),(void*)f_10555},
{C_text("f_10561:scrutinizer_2escm"),(void*)f_10561},
{C_text("f_10564:scrutinizer_2escm"),(void*)f_10564},
{C_text("f_10571:scrutinizer_2escm"),(void*)f_10571},
{C_text("f_10577:scrutinizer_2escm"),(void*)f_10577},
{C_text("f_10580:scrutinizer_2escm"),(void*)f_10580},
{C_text("f_10583:scrutinizer_2escm"),(void*)f_10583},
{C_text("f_10586:scrutinizer_2escm"),(void*)f_10586},
{C_text("f_10589:scrutinizer_2escm"),(void*)f_10589},
{C_text("f_10592:scrutinizer_2escm"),(void*)f_10592},
{C_text("f_10600:scrutinizer_2escm"),(void*)f_10600},
{C_text("f_10620:scrutinizer_2escm"),(void*)f_10620},
{C_text("f_10624:scrutinizer_2escm"),(void*)f_10624},
{C_text("f_10653:scrutinizer_2escm"),(void*)f_10653},
{C_text("f_10660:scrutinizer_2escm"),(void*)f_10660},
{C_text("f_10663:scrutinizer_2escm"),(void*)f_10663},
{C_text("f_10683:scrutinizer_2escm"),(void*)f_10683},
{C_text("f_10690:scrutinizer_2escm"),(void*)f_10690},
{C_text("f_10712:scrutinizer_2escm"),(void*)f_10712},
{C_text("f_10716:scrutinizer_2escm"),(void*)f_10716},
{C_text("f_10723:scrutinizer_2escm"),(void*)f_10723},
{C_text("f_10725:scrutinizer_2escm"),(void*)f_10725},
{C_text("f_10752:scrutinizer_2escm"),(void*)f_10752},
{C_text("f_10759:scrutinizer_2escm"),(void*)f_10759},
{C_text("f_10775:scrutinizer_2escm"),(void*)f_10775},
{C_text("f_10779:scrutinizer_2escm"),(void*)f_10779},
{C_text("f_10781:scrutinizer_2escm"),(void*)f_10781},
{C_text("f_10788:scrutinizer_2escm"),(void*)f_10788},
{C_text("f_10794:scrutinizer_2escm"),(void*)f_10794},
{C_text("f_10800:scrutinizer_2escm"),(void*)f_10800},
{C_text("f_10803:scrutinizer_2escm"),(void*)f_10803},
{C_text("f_10806:scrutinizer_2escm"),(void*)f_10806},
{C_text("f_10809:scrutinizer_2escm"),(void*)f_10809},
{C_text("f_10814:scrutinizer_2escm"),(void*)f_10814},
{C_text("f_10820:scrutinizer_2escm"),(void*)f_10820},
{C_text("f_10823:scrutinizer_2escm"),(void*)f_10823},
{C_text("f_10830:scrutinizer_2escm"),(void*)f_10830},
{C_text("f_10833:scrutinizer_2escm"),(void*)f_10833},
{C_text("f_10858:scrutinizer_2escm"),(void*)f_10858},
{C_text("f_10862:scrutinizer_2escm"),(void*)f_10862},
{C_text("f_10868:scrutinizer_2escm"),(void*)f_10868},
{C_text("f_10871:scrutinizer_2escm"),(void*)f_10871},
{C_text("f_10881:scrutinizer_2escm"),(void*)f_10881},
{C_text("f_10893:scrutinizer_2escm"),(void*)f_10893},
{C_text("f_10918:scrutinizer_2escm"),(void*)f_10918},
{C_text("f_10935:scrutinizer_2escm"),(void*)f_10935},
{C_text("f_10948:scrutinizer_2escm"),(void*)f_10948},
{C_text("f_10951:scrutinizer_2escm"),(void*)f_10951},
{C_text("f_10954:scrutinizer_2escm"),(void*)f_10954},
{C_text("f_10960:scrutinizer_2escm"),(void*)f_10960},
{C_text("f_10966:scrutinizer_2escm"),(void*)f_10966},
{C_text("f_10972:scrutinizer_2escm"),(void*)f_10972},
{C_text("f_10978:scrutinizer_2escm"),(void*)f_10978},
{C_text("f_11001:scrutinizer_2escm"),(void*)f_11001},
{C_text("f_11016:scrutinizer_2escm"),(void*)f_11016},
{C_text("f_11022:scrutinizer_2escm"),(void*)f_11022},
{C_text("f_11028:scrutinizer_2escm"),(void*)f_11028},
{C_text("f_11044:scrutinizer_2escm"),(void*)f_11044},
{C_text("f_11050:scrutinizer_2escm"),(void*)f_11050},
{C_text("f_11054:scrutinizer_2escm"),(void*)f_11054},
{C_text("f_11062:scrutinizer_2escm"),(void*)f_11062},
{C_text("f_11084:scrutinizer_2escm"),(void*)f_11084},
{C_text("f_11095:scrutinizer_2escm"),(void*)f_11095},
{C_text("f_11099:scrutinizer_2escm"),(void*)f_11099},
{C_text("f_11108:scrutinizer_2escm"),(void*)f_11108},
{C_text("f_11111:scrutinizer_2escm"),(void*)f_11111},
{C_text("f_11121:scrutinizer_2escm"),(void*)f_11121},
{C_text("f_11133:scrutinizer_2escm"),(void*)f_11133},
{C_text("f_11158:scrutinizer_2escm"),(void*)f_11158},
{C_text("f_11167:scrutinizer_2escm"),(void*)f_11167},
{C_text("f_11177:scrutinizer_2escm"),(void*)f_11177},
{C_text("f_11206:scrutinizer_2escm"),(void*)f_11206},
{C_text("f_11208:scrutinizer_2escm"),(void*)f_11208},
{C_text("f_11216:scrutinizer_2escm"),(void*)f_11216},
{C_text("f_11224:scrutinizer_2escm"),(void*)f_11224},
{C_text("f_11241:scrutinizer_2escm"),(void*)f_11241},
{C_text("f_11243:scrutinizer_2escm"),(void*)f_11243},
{C_text("f_11281:scrutinizer_2escm"),(void*)f_11281},
{C_text("f_11310:scrutinizer_2escm"),(void*)f_11310},
{C_text("f_11339:scrutinizer_2escm"),(void*)f_11339},
{C_text("f_11345:scrutinizer_2escm"),(void*)f_11345},
{C_text("f_11364:scrutinizer_2escm"),(void*)f_11364},
{C_text("f_11370:scrutinizer_2escm"),(void*)f_11370},
{C_text("f_11373:scrutinizer_2escm"),(void*)f_11373},
{C_text("f_11395:scrutinizer_2escm"),(void*)f_11395},
{C_text("f_11427:scrutinizer_2escm"),(void*)f_11427},
{C_text("f_11430:scrutinizer_2escm"),(void*)f_11430},
{C_text("f_11443:scrutinizer_2escm"),(void*)f_11443},
{C_text("f_11464:scrutinizer_2escm"),(void*)f_11464},
{C_text("f_11470:scrutinizer_2escm"),(void*)f_11470},
{C_text("f_11473:scrutinizer_2escm"),(void*)f_11473},
{C_text("f_11483:scrutinizer_2escm"),(void*)f_11483},
{C_text("f_11502:scrutinizer_2escm"),(void*)f_11502},
{C_text("f_11527:scrutinizer_2escm"),(void*)f_11527},
{C_text("f_11537:scrutinizer_2escm"),(void*)f_11537},
{C_text("f_11539:scrutinizer_2escm"),(void*)f_11539},
{C_text("f_11549:scrutinizer_2escm"),(void*)f_11549},
{C_text("f_11610:scrutinizer_2escm"),(void*)f_11610},
{C_text("f_11613:scrutinizer_2escm"),(void*)f_11613},
{C_text("f_11616:scrutinizer_2escm"),(void*)f_11616},
{C_text("f_11619:scrutinizer_2escm"),(void*)f_11619},
{C_text("f_11622:scrutinizer_2escm"),(void*)f_11622},
{C_text("f_11628:scrutinizer_2escm"),(void*)f_11628},
{C_text("f_11651:scrutinizer_2escm"),(void*)f_11651},
{C_text("f_11655:scrutinizer_2escm"),(void*)f_11655},
{C_text("f_11663:scrutinizer_2escm"),(void*)f_11663},
{C_text("f_11666:scrutinizer_2escm"),(void*)f_11666},
{C_text("f_11669:scrutinizer_2escm"),(void*)f_11669},
{C_text("f_11672:scrutinizer_2escm"),(void*)f_11672},
{C_text("f_11689:scrutinizer_2escm"),(void*)f_11689},
{C_text("f_11699:scrutinizer_2escm"),(void*)f_11699},
{C_text("f_11726:scrutinizer_2escm"),(void*)f_11726},
{C_text("f_11728:scrutinizer_2escm"),(void*)f_11728},
{C_text("f_11734:scrutinizer_2escm"),(void*)f_11734},
{C_text("f_11744:scrutinizer_2escm"),(void*)f_11744},
{C_text("f_11756:scrutinizer_2escm"),(void*)f_11756},
{C_text("f_11764:scrutinizer_2escm"),(void*)f_11764},
{C_text("f_11784:scrutinizer_2escm"),(void*)f_11784},
{C_text("f_11797:scrutinizer_2escm"),(void*)f_11797},
{C_text("f_11809:scrutinizer_2escm"),(void*)f_11809},
{C_text("f_11816:scrutinizer_2escm"),(void*)f_11816},
{C_text("f_11818:scrutinizer_2escm"),(void*)f_11818},
{C_text("f_11843:scrutinizer_2escm"),(void*)f_11843},
{C_text("f_11865:scrutinizer_2escm"),(void*)f_11865},
{C_text("f_11878:scrutinizer_2escm"),(void*)f_11878},
{C_text("f_11899:scrutinizer_2escm"),(void*)f_11899},
{C_text("f_11924:scrutinizer_2escm"),(void*)f_11924},
{C_text("f_11928:scrutinizer_2escm"),(void*)f_11928},
{C_text("f_11939:scrutinizer_2escm"),(void*)f_11939},
{C_text("f_11948:scrutinizer_2escm"),(void*)f_11948},
{C_text("f_12045:scrutinizer_2escm"),(void*)f_12045},
{C_text("f_12070:scrutinizer_2escm"),(void*)f_12070},
{C_text("f_12076:scrutinizer_2escm"),(void*)f_12076},
{C_text("f_12092:scrutinizer_2escm"),(void*)f_12092},
{C_text("f_12099:scrutinizer_2escm"),(void*)f_12099},
{C_text("f_12116:scrutinizer_2escm"),(void*)f_12116},
{C_text("f_12133:scrutinizer_2escm"),(void*)f_12133},
{C_text("f_12176:scrutinizer_2escm"),(void*)f_12176},
{C_text("f_12201:scrutinizer_2escm"),(void*)f_12201},
{C_text("f_12207:scrutinizer_2escm"),(void*)f_12207},
{C_text("f_12212:scrutinizer_2escm"),(void*)f_12212},
{C_text("f_12218:scrutinizer_2escm"),(void*)f_12218},
{C_text("f_12223:scrutinizer_2escm"),(void*)f_12223},
{C_text("f_12229:scrutinizer_2escm"),(void*)f_12229},
{C_text("f_12242:scrutinizer_2escm"),(void*)f_12242},
{C_text("f_12259:scrutinizer_2escm"),(void*)f_12259},
{C_text("f_12276:scrutinizer_2escm"),(void*)f_12276},
{C_text("f_12289:scrutinizer_2escm"),(void*)f_12289},
{C_text("f_12317:scrutinizer_2escm"),(void*)f_12317},
{C_text("f_12330:scrutinizer_2escm"),(void*)f_12330},
{C_text("f_12367:scrutinizer_2escm"),(void*)f_12367},
{C_text("f_12408:scrutinizer_2escm"),(void*)f_12408},
{C_text("f_12421:scrutinizer_2escm"),(void*)f_12421},
{C_text("f_12451:scrutinizer_2escm"),(void*)f_12451},
{C_text("f_12521:scrutinizer_2escm"),(void*)f_12521},
{C_text("f_12525:scrutinizer_2escm"),(void*)f_12525},
{C_text("f_12535:scrutinizer_2escm"),(void*)f_12535},
{C_text("f_12539:scrutinizer_2escm"),(void*)f_12539},
{C_text("f_12560:scrutinizer_2escm"),(void*)f_12560},
{C_text("f_12565:scrutinizer_2escm"),(void*)f_12565},
{C_text("f_12569:scrutinizer_2escm"),(void*)f_12569},
{C_text("f_12572:scrutinizer_2escm"),(void*)f_12572},
{C_text("f_12581:scrutinizer_2escm"),(void*)f_12581},
{C_text("f_12601:scrutinizer_2escm"),(void*)f_12601},
{C_text("f_12606:scrutinizer_2escm"),(void*)f_12606},
{C_text("f_12610:scrutinizer_2escm"),(void*)f_12610},
{C_text("f_12613:scrutinizer_2escm"),(void*)f_12613},
{C_text("f_12622:scrutinizer_2escm"),(void*)f_12622},
{C_text("f_12640:scrutinizer_2escm"),(void*)f_12640},
{C_text("f_12659:scrutinizer_2escm"),(void*)f_12659},
{C_text("f_12775:scrutinizer_2escm"),(void*)f_12775},
{C_text("f_12787:scrutinizer_2escm"),(void*)f_12787},
{C_text("f_12790:scrutinizer_2escm"),(void*)f_12790},
{C_text("f_12793:scrutinizer_2escm"),(void*)f_12793},
{C_text("f_12796:scrutinizer_2escm"),(void*)f_12796},
{C_text("f_12802:scrutinizer_2escm"),(void*)f_12802},
{C_text("f_12895:scrutinizer_2escm"),(void*)f_12895},
{C_text("f_13005:scrutinizer_2escm"),(void*)f_13005},
{C_text("f_13038:scrutinizer_2escm"),(void*)f_13038},
{C_text("f_13107:scrutinizer_2escm"),(void*)f_13107},
{C_text("f_13140:scrutinizer_2escm"),(void*)f_13140},
{C_text("f_13214:scrutinizer_2escm"),(void*)f_13214},
{C_text("f_13248:scrutinizer_2escm"),(void*)f_13248},
{C_text("f_13290:scrutinizer_2escm"),(void*)f_13290},
{C_text("f_13324:scrutinizer_2escm"),(void*)f_13324},
{C_text("f_13512:scrutinizer_2escm"),(void*)f_13512},
{C_text("f_13518:scrutinizer_2escm"),(void*)f_13518},
{C_text("f_13551:scrutinizer_2escm"),(void*)f_13551},
{C_text("f_13565:scrutinizer_2escm"),(void*)f_13565},
{C_text("f_13584:scrutinizer_2escm"),(void*)f_13584},
{C_text("f_13587:scrutinizer_2escm"),(void*)f_13587},
{C_text("f_13593:scrutinizer_2escm"),(void*)f_13593},
{C_text("f_13614:scrutinizer_2escm"),(void*)f_13614},
{C_text("f_13618:scrutinizer_2escm"),(void*)f_13618},
{C_text("f_13629:scrutinizer_2escm"),(void*)f_13629},
{C_text("f_13631:scrutinizer_2escm"),(void*)f_13631},
{C_text("f_13666:scrutinizer_2escm"),(void*)f_13666},
{C_text("f_13668:scrutinizer_2escm"),(void*)f_13668},
{C_text("f_13709:scrutinizer_2escm"),(void*)f_13709},
{C_text("f_13737:scrutinizer_2escm"),(void*)f_13737},
{C_text("f_13743:scrutinizer_2escm"),(void*)f_13743},
{C_text("f_13751:scrutinizer_2escm"),(void*)f_13751},
{C_text("f_13754:scrutinizer_2escm"),(void*)f_13754},
{C_text("f_13757:scrutinizer_2escm"),(void*)f_13757},
{C_text("f_13760:scrutinizer_2escm"),(void*)f_13760},
{C_text("f_13763:scrutinizer_2escm"),(void*)f_13763},
{C_text("f_13766:scrutinizer_2escm"),(void*)f_13766},
{C_text("f_13773:scrutinizer_2escm"),(void*)f_13773},
{C_text("f_13781:scrutinizer_2escm"),(void*)f_13781},
{C_text("f_13785:scrutinizer_2escm"),(void*)f_13785},
{C_text("f_13806:scrutinizer_2escm"),(void*)f_13806},
{C_text("f_13824:scrutinizer_2escm"),(void*)f_13824},
{C_text("f_13830:scrutinizer_2escm"),(void*)f_13830},
{C_text("f_13840:scrutinizer_2escm"),(void*)f_13840},
{C_text("f_13846:scrutinizer_2escm"),(void*)f_13846},
{C_text("f_13852:scrutinizer_2escm"),(void*)f_13852},
{C_text("f_13855:scrutinizer_2escm"),(void*)f_13855},
{C_text("f_13858:scrutinizer_2escm"),(void*)f_13858},
{C_text("f_13875:scrutinizer_2escm"),(void*)f_13875},
{C_text("f_13900:scrutinizer_2escm"),(void*)f_13900},
{C_text("f_13911:scrutinizer_2escm"),(void*)f_13911},
{C_text("f_13929:scrutinizer_2escm"),(void*)f_13929},
{C_text("f_13939:scrutinizer_2escm"),(void*)f_13939},
{C_text("f_13955:scrutinizer_2escm"),(void*)f_13955},
{C_text("f_13959:scrutinizer_2escm"),(void*)f_13959},
{C_text("f_14017:scrutinizer_2escm"),(void*)f_14017},
{C_text("f_14019:scrutinizer_2escm"),(void*)f_14019},
{C_text("f_14044:scrutinizer_2escm"),(void*)f_14044},
{C_text("f_14063:scrutinizer_2escm"),(void*)f_14063},
{C_text("f_14082:scrutinizer_2escm"),(void*)f_14082},
{C_text("f_14097:scrutinizer_2escm"),(void*)f_14097},
{C_text("f_14110:scrutinizer_2escm"),(void*)f_14110},
{C_text("f_14113:scrutinizer_2escm"),(void*)f_14113},
{C_text("f_14149:scrutinizer_2escm"),(void*)f_14149},
{C_text("f_14173:scrutinizer_2escm"),(void*)f_14173},
{C_text("f_14214:scrutinizer_2escm"),(void*)f_14214},
{C_text("f_14216:scrutinizer_2escm"),(void*)f_14216},
{C_text("f_14241:scrutinizer_2escm"),(void*)f_14241},
{C_text("f_14270:scrutinizer_2escm"),(void*)f_14270},
{C_text("f_14272:scrutinizer_2escm"),(void*)f_14272},
{C_text("f_14297:scrutinizer_2escm"),(void*)f_14297},
{C_text("f_14331:scrutinizer_2escm"),(void*)f_14331},
{C_text("f_14345:scrutinizer_2escm"),(void*)f_14345},
{C_text("f_14370:scrutinizer_2escm"),(void*)f_14370},
{C_text("f_14390:scrutinizer_2escm"),(void*)f_14390},
{C_text("f_14392:scrutinizer_2escm"),(void*)f_14392},
{C_text("f_14417:scrutinizer_2escm"),(void*)f_14417},
{C_text("f_14470:scrutinizer_2escm"),(void*)f_14470},
{C_text("f_14475:scrutinizer_2escm"),(void*)f_14475},
{C_text("f_14484:scrutinizer_2escm"),(void*)f_14484},
{C_text("f_14501:scrutinizer_2escm"),(void*)f_14501},
{C_text("f_14503:scrutinizer_2escm"),(void*)f_14503},
{C_text("f_14518:scrutinizer_2escm"),(void*)f_14518},
{C_text("f_14526:scrutinizer_2escm"),(void*)f_14526},
{C_text("f_14553:scrutinizer_2escm"),(void*)f_14553},
{C_text("f_14599:scrutinizer_2escm"),(void*)f_14599},
{C_text("f_14648:scrutinizer_2escm"),(void*)f_14648},
{C_text("f_14652:scrutinizer_2escm"),(void*)f_14652},
{C_text("f_14698:scrutinizer_2escm"),(void*)f_14698},
{C_text("f_14702:scrutinizer_2escm"),(void*)f_14702},
{C_text("f_14728:scrutinizer_2escm"),(void*)f_14728},
{C_text("f_14734:scrutinizer_2escm"),(void*)f_14734},
{C_text("f_14760:scrutinizer_2escm"),(void*)f_14760},
{C_text("f_14764:scrutinizer_2escm"),(void*)f_14764},
{C_text("f_14791:scrutinizer_2escm"),(void*)f_14791},
{C_text("f_14795:scrutinizer_2escm"),(void*)f_14795},
{C_text("f_14798:scrutinizer_2escm"),(void*)f_14798},
{C_text("f_14823:scrutinizer_2escm"),(void*)f_14823},
{C_text("f_14829:scrutinizer_2escm"),(void*)f_14829},
{C_text("f_14835:scrutinizer_2escm"),(void*)f_14835},
{C_text("f_14850:scrutinizer_2escm"),(void*)f_14850},
{C_text("f_14854:scrutinizer_2escm"),(void*)f_14854},
{C_text("f_14859:scrutinizer_2escm"),(void*)f_14859},
{C_text("f_14878:scrutinizer_2escm"),(void*)f_14878},
{C_text("f_14887:scrutinizer_2escm"),(void*)f_14887},
{C_text("f_14891:scrutinizer_2escm"),(void*)f_14891},
{C_text("f_14895:scrutinizer_2escm"),(void*)f_14895},
{C_text("f_14905:scrutinizer_2escm"),(void*)f_14905},
{C_text("f_14909:scrutinizer_2escm"),(void*)f_14909},
{C_text("f_14925:scrutinizer_2escm"),(void*)f_14925},
{C_text("f_14952:scrutinizer_2escm"),(void*)f_14952},
{C_text("f_14976:scrutinizer_2escm"),(void*)f_14976},
{C_text("f_14985:scrutinizer_2escm"),(void*)f_14985},
{C_text("f_14996:scrutinizer_2escm"),(void*)f_14996},
{C_text("f_15010:scrutinizer_2escm"),(void*)f_15010},
{C_text("f_15028:scrutinizer_2escm"),(void*)f_15028},
{C_text("f_15034:scrutinizer_2escm"),(void*)f_15034},
{C_text("f_15041:scrutinizer_2escm"),(void*)f_15041},
{C_text("f_15070:scrutinizer_2escm"),(void*)f_15070},
{C_text("f_15149:scrutinizer_2escm"),(void*)f_15149},
{C_text("f_15179:scrutinizer_2escm"),(void*)f_15179},
{C_text("f_15182:scrutinizer_2escm"),(void*)f_15182},
{C_text("f_15200:scrutinizer_2escm"),(void*)f_15200},
{C_text("f_15252:scrutinizer_2escm"),(void*)f_15252},
{C_text("f_15303:scrutinizer_2escm"),(void*)f_15303},
{C_text("f_15360:scrutinizer_2escm"),(void*)f_15360},
{C_text("f_15417:scrutinizer_2escm"),(void*)f_15417},
{C_text("f_15426:scrutinizer_2escm"),(void*)f_15426},
{C_text("f_15436:scrutinizer_2escm"),(void*)f_15436},
{C_text("f_15443:scrutinizer_2escm"),(void*)f_15443},
{C_text("f_15445:scrutinizer_2escm"),(void*)f_15445},
{C_text("f_15524:scrutinizer_2escm"),(void*)f_15524},
{C_text("f_15580:scrutinizer_2escm"),(void*)f_15580},
{C_text("f_15613:scrutinizer_2escm"),(void*)f_15613},
{C_text("f_15640:scrutinizer_2escm"),(void*)f_15640},
{C_text("f_15651:scrutinizer_2escm"),(void*)f_15651},
{C_text("f_15673:scrutinizer_2escm"),(void*)f_15673},
{C_text("f_15681:scrutinizer_2escm"),(void*)f_15681},
{C_text("f_15683:scrutinizer_2escm"),(void*)f_15683},
{C_text("f_15709:scrutinizer_2escm"),(void*)f_15709},
{C_text("f_15768:scrutinizer_2escm"),(void*)f_15768},
{C_text("f_15821:scrutinizer_2escm"),(void*)f_15821},
{C_text("f_15841:scrutinizer_2escm"),(void*)f_15841},
{C_text("f_15900:scrutinizer_2escm"),(void*)f_15900},
{C_text("f_15944:scrutinizer_2escm"),(void*)f_15944},
{C_text("f_15983:scrutinizer_2escm"),(void*)f_15983},
{C_text("f_15986:scrutinizer_2escm"),(void*)f_15986},
{C_text("f_15991:scrutinizer_2escm"),(void*)f_15991},
{C_text("f_15995:scrutinizer_2escm"),(void*)f_15995},
{C_text("f_15997:scrutinizer_2escm"),(void*)f_15997},
{C_text("f_16042:scrutinizer_2escm"),(void*)f_16042},
{C_text("f_16059:scrutinizer_2escm"),(void*)f_16059},
{C_text("f_16069:scrutinizer_2escm"),(void*)f_16069},
{C_text("f_16086:scrutinizer_2escm"),(void*)f_16086},
{C_text("f_16096:scrutinizer_2escm"),(void*)f_16096},
{C_text("f_16116:scrutinizer_2escm"),(void*)f_16116},
{C_text("f_16132:scrutinizer_2escm"),(void*)f_16132},
{C_text("f_16142:scrutinizer_2escm"),(void*)f_16142},
{C_text("f_16159:scrutinizer_2escm"),(void*)f_16159},
{C_text("f_16169:scrutinizer_2escm"),(void*)f_16169},
{C_text("f_16201:scrutinizer_2escm"),(void*)f_16201},
{C_text("f_16243:scrutinizer_2escm"),(void*)f_16243},
{C_text("f_16245:scrutinizer_2escm"),(void*)f_16245},
{C_text("f_16270:scrutinizer_2escm"),(void*)f_16270},
{C_text("f_16292:scrutinizer_2escm"),(void*)f_16292},
{C_text("f_16302:scrutinizer_2escm"),(void*)f_16302},
{C_text("f_16323:scrutinizer_2escm"),(void*)f_16323},
{C_text("f_16329:scrutinizer_2escm"),(void*)f_16329},
{C_text("f_16361:scrutinizer_2escm"),(void*)f_16361},
{C_text("f_16364:scrutinizer_2escm"),(void*)f_16364},
{C_text("f_16366:scrutinizer_2escm"),(void*)f_16366},
{C_text("f_16374:scrutinizer_2escm"),(void*)f_16374},
{C_text("f_16376:scrutinizer_2escm"),(void*)f_16376},
{C_text("f_16384:scrutinizer_2escm"),(void*)f_16384},
{C_text("f_16397:scrutinizer_2escm"),(void*)f_16397},
{C_text("f_16471:scrutinizer_2escm"),(void*)f_16471},
{C_text("f_16482:scrutinizer_2escm"),(void*)f_16482},
{C_text("f_16484:scrutinizer_2escm"),(void*)f_16484},
{C_text("f_16509:scrutinizer_2escm"),(void*)f_16509},
{C_text("f_16529:scrutinizer_2escm"),(void*)f_16529},
{C_text("f_16555:scrutinizer_2escm"),(void*)f_16555},
{C_text("f_16568:scrutinizer_2escm"),(void*)f_16568},
{C_text("f_16578:scrutinizer_2escm"),(void*)f_16578},
{C_text("f_16589:scrutinizer_2escm"),(void*)f_16589},
{C_text("f_16591:scrutinizer_2escm"),(void*)f_16591},
{C_text("f_16616:scrutinizer_2escm"),(void*)f_16616},
{C_text("f_16632:scrutinizer_2escm"),(void*)f_16632},
{C_text("f_16635:scrutinizer_2escm"),(void*)f_16635},
{C_text("f_16638:scrutinizer_2escm"),(void*)f_16638},
{C_text("f_16645:scrutinizer_2escm"),(void*)f_16645},
{C_text("f_16657:scrutinizer_2escm"),(void*)f_16657},
{C_text("f_16661:scrutinizer_2escm"),(void*)f_16661},
{C_text("f_16668:scrutinizer_2escm"),(void*)f_16668},
{C_text("f_16680:scrutinizer_2escm"),(void*)f_16680},
{C_text("f_16705:scrutinizer_2escm"),(void*)f_16705},
{C_text("f_16714:scrutinizer_2escm"),(void*)f_16714},
{C_text("f_16742:scrutinizer_2escm"),(void*)f_16742},
{C_text("f_16761:scrutinizer_2escm"),(void*)f_16761},
{C_text("f_16770:scrutinizer_2escm"),(void*)f_16770},
{C_text("f_16774:scrutinizer_2escm"),(void*)f_16774},
{C_text("f_16837:scrutinizer_2escm"),(void*)f_16837},
{C_text("f_16841:scrutinizer_2escm"),(void*)f_16841},
{C_text("f_16844:scrutinizer_2escm"),(void*)f_16844},
{C_text("f_16850:scrutinizer_2escm"),(void*)f_16850},
{C_text("f_16855:scrutinizer_2escm"),(void*)f_16855},
{C_text("f_16860:scrutinizer_2escm"),(void*)f_16860},
{C_text("f_16869:scrutinizer_2escm"),(void*)f_16869},
{C_text("f_16875:scrutinizer_2escm"),(void*)f_16875},
{C_text("f_16880:scrutinizer_2escm"),(void*)f_16880},
{C_text("f_16886:scrutinizer_2escm"),(void*)f_16886},
{C_text("f_16890:scrutinizer_2escm"),(void*)f_16890},
{C_text("f_16893:scrutinizer_2escm"),(void*)f_16893},
{C_text("f_16896:scrutinizer_2escm"),(void*)f_16896},
{C_text("f_16899:scrutinizer_2escm"),(void*)f_16899},
{C_text("f_16908:scrutinizer_2escm"),(void*)f_16908},
{C_text("f_16915:scrutinizer_2escm"),(void*)f_16915},
{C_text("f_16919:scrutinizer_2escm"),(void*)f_16919},
{C_text("f_16923:scrutinizer_2escm"),(void*)f_16923},
{C_text("f_16927:scrutinizer_2escm"),(void*)f_16927},
{C_text("f_16934:scrutinizer_2escm"),(void*)f_16934},
{C_text("f_16941:scrutinizer_2escm"),(void*)f_16941},
{C_text("f_16947:scrutinizer_2escm"),(void*)f_16947},
{C_text("f_16950:scrutinizer_2escm"),(void*)f_16950},
{C_text("f_16953:scrutinizer_2escm"),(void*)f_16953},
{C_text("f_16956:scrutinizer_2escm"),(void*)f_16956},
{C_text("f_16959:scrutinizer_2escm"),(void*)f_16959},
{C_text("f_16962:scrutinizer_2escm"),(void*)f_16962},
{C_text("f_16965:scrutinizer_2escm"),(void*)f_16965},
{C_text("f_16969:scrutinizer_2escm"),(void*)f_16969},
{C_text("f_16974:scrutinizer_2escm"),(void*)f_16974},
{C_text("f_16990:scrutinizer_2escm"),(void*)f_16990},
{C_text("f_17001:scrutinizer_2escm"),(void*)f_17001},
{C_text("f_17020:scrutinizer_2escm"),(void*)f_17020},
{C_text("f_17034:scrutinizer_2escm"),(void*)f_17034},
{C_text("f_17048:scrutinizer_2escm"),(void*)f_17048},
{C_text("f_17062:scrutinizer_2escm"),(void*)f_17062},
{C_text("f_17076:scrutinizer_2escm"),(void*)f_17076},
{C_text("f_17106:scrutinizer_2escm"),(void*)f_17106},
{C_text("f_17125:scrutinizer_2escm"),(void*)f_17125},
{C_text("f_17157:scrutinizer_2escm"),(void*)f_17157},
{C_text("f_17163:scrutinizer_2escm"),(void*)f_17163},
{C_text("f_17165:scrutinizer_2escm"),(void*)f_17165},
{C_text("f_17175:scrutinizer_2escm"),(void*)f_17175},
{C_text("f_17188:scrutinizer_2escm"),(void*)f_17188},
{C_text("f_17195:scrutinizer_2escm"),(void*)f_17195},
{C_text("f_17201:scrutinizer_2escm"),(void*)f_17201},
{C_text("f_17204:scrutinizer_2escm"),(void*)f_17204},
{C_text("f_17207:scrutinizer_2escm"),(void*)f_17207},
{C_text("f_17210:scrutinizer_2escm"),(void*)f_17210},
{C_text("f_17213:scrutinizer_2escm"),(void*)f_17213},
{C_text("f_17222:scrutinizer_2escm"),(void*)f_17222},
{C_text("f_17245:scrutinizer_2escm"),(void*)f_17245},
{C_text("f_17261:scrutinizer_2escm"),(void*)f_17261},
{C_text("f_17305:scrutinizer_2escm"),(void*)f_17305},
{C_text("f_17309:scrutinizer_2escm"),(void*)f_17309},
{C_text("f_17311:scrutinizer_2escm"),(void*)f_17311},
{C_text("f_17317:scrutinizer_2escm"),(void*)f_17317},
{C_text("f_17321:scrutinizer_2escm"),(void*)f_17321},
{C_text("f_17322:scrutinizer_2escm"),(void*)f_17322},
{C_text("f_17333:scrutinizer_2escm"),(void*)f_17333},
{C_text("f_17336:scrutinizer_2escm"),(void*)f_17336},
{C_text("f_17342:scrutinizer_2escm"),(void*)f_17342},
{C_text("f_17345:scrutinizer_2escm"),(void*)f_17345},
{C_text("f_17348:scrutinizer_2escm"),(void*)f_17348},
{C_text("f_17351:scrutinizer_2escm"),(void*)f_17351},
{C_text("f_17354:scrutinizer_2escm"),(void*)f_17354},
{C_text("f_17357:scrutinizer_2escm"),(void*)f_17357},
{C_text("f_17360:scrutinizer_2escm"),(void*)f_17360},
{C_text("f_17367:scrutinizer_2escm"),(void*)f_17367},
{C_text("f_17371:scrutinizer_2escm"),(void*)f_17371},
{C_text("f_17373:scrutinizer_2escm"),(void*)f_17373},
{C_text("f_17394:scrutinizer_2escm"),(void*)f_17394},
{C_text("f_17404:scrutinizer_2escm"),(void*)f_17404},
{C_text("f_17412:scrutinizer_2escm"),(void*)f_17412},
{C_text("f_17420:scrutinizer_2escm"),(void*)f_17420},
{C_text("f_17428:scrutinizer_2escm"),(void*)f_17428},
{C_text("f_17456:scrutinizer_2escm"),(void*)f_17456},
{C_text("f_17467:scrutinizer_2escm"),(void*)f_17467},
{C_text("f_17471:scrutinizer_2escm"),(void*)f_17471},
{C_text("f_17475:scrutinizer_2escm"),(void*)f_17475},
{C_text("f_17481:scrutinizer_2escm"),(void*)f_17481},
{C_text("f_17486:scrutinizer_2escm"),(void*)f_17486},
{C_text("f_17496:scrutinizer_2escm"),(void*)f_17496},
{C_text("f_17511:scrutinizer_2escm"),(void*)f_17511},
{C_text("f_17513:scrutinizer_2escm"),(void*)f_17513},
{C_text("f_17529:scrutinizer_2escm"),(void*)f_17529},
{C_text("f_17532:scrutinizer_2escm"),(void*)f_17532},
{C_text("f_17537:scrutinizer_2escm"),(void*)f_17537},
{C_text("f_17544:scrutinizer_2escm"),(void*)f_17544},
{C_text("f_17548:scrutinizer_2escm"),(void*)f_17548},
{C_text("f_17550:scrutinizer_2escm"),(void*)f_17550},
{C_text("f_17557:scrutinizer_2escm"),(void*)f_17557},
{C_text("f_17577:scrutinizer_2escm"),(void*)f_17577},
{C_text("f_17583:scrutinizer_2escm"),(void*)f_17583},
{C_text("f_17591:scrutinizer_2escm"),(void*)f_17591},
{C_text("f_17595:scrutinizer_2escm"),(void*)f_17595},
{C_text("f_17602:scrutinizer_2escm"),(void*)f_17602},
{C_text("f_17608:scrutinizer_2escm"),(void*)f_17608},
{C_text("f_17610:scrutinizer_2escm"),(void*)f_17610},
{C_text("f_17635:scrutinizer_2escm"),(void*)f_17635},
{C_text("f_17652:scrutinizer_2escm"),(void*)f_17652},
{C_text("f_17658:scrutinizer_2escm"),(void*)f_17658},
{C_text("f_17667:scrutinizer_2escm"),(void*)f_17667},
{C_text("f_17706:scrutinizer_2escm"),(void*)f_17706},
{C_text("f_17712:scrutinizer_2escm"),(void*)f_17712},
{C_text("f_17715:scrutinizer_2escm"),(void*)f_17715},
{C_text("f_17762:scrutinizer_2escm"),(void*)f_17762},
{C_text("f_17772:scrutinizer_2escm"),(void*)f_17772},
{C_text("f_17799:scrutinizer_2escm"),(void*)f_17799},
{C_text("f_17803:scrutinizer_2escm"),(void*)f_17803},
{C_text("f_17863:scrutinizer_2escm"),(void*)f_17863},
{C_text("f_17865:scrutinizer_2escm"),(void*)f_17865},
{C_text("f_17874:scrutinizer_2escm"),(void*)f_17874},
{C_text("f_17892:scrutinizer_2escm"),(void*)f_17892},
{C_text("f_17896:scrutinizer_2escm"),(void*)f_17896},
{C_text("f_17902:scrutinizer_2escm"),(void*)f_17902},
{C_text("f_17930:scrutinizer_2escm"),(void*)f_17930},
{C_text("f_17961:scrutinizer_2escm"),(void*)f_17961},
{C_text("f_17993:scrutinizer_2escm"),(void*)f_17993},
{C_text("f_18020:scrutinizer_2escm"),(void*)f_18020},
{C_text("f_18023:scrutinizer_2escm"),(void*)f_18023},
{C_text("f_18060:scrutinizer_2escm"),(void*)f_18060},
{C_text("f_18124:scrutinizer_2escm"),(void*)f_18124},
{C_text("f_18158:scrutinizer_2escm"),(void*)f_18158},
{C_text("f_18190:scrutinizer_2escm"),(void*)f_18190},
{C_text("f_18195:scrutinizer_2escm"),(void*)f_18195},
{C_text("f_18199:scrutinizer_2escm"),(void*)f_18199},
{C_text("f_18210:scrutinizer_2escm"),(void*)f_18210},
{C_text("f_18212:scrutinizer_2escm"),(void*)f_18212},
{C_text("f_18228:scrutinizer_2escm"),(void*)f_18228},
{C_text("f_18231:scrutinizer_2escm"),(void*)f_18231},
{C_text("f_18247:scrutinizer_2escm"),(void*)f_18247},
{C_text("f_18294:scrutinizer_2escm"),(void*)f_18294},
{C_text("f_18296:scrutinizer_2escm"),(void*)f_18296},
{C_text("f_18321:scrutinizer_2escm"),(void*)f_18321},
{C_text("f_18340:scrutinizer_2escm"),(void*)f_18340},
{C_text("f_18344:scrutinizer_2escm"),(void*)f_18344},
{C_text("f_18388:scrutinizer_2escm"),(void*)f_18388},
{C_text("f_18394:scrutinizer_2escm"),(void*)f_18394},
{C_text("f_18399:scrutinizer_2escm"),(void*)f_18399},
{C_text("f_18424:scrutinizer_2escm"),(void*)f_18424},
{C_text("f_18508:scrutinizer_2escm"),(void*)f_18508},
{C_text("f_18538:scrutinizer_2escm"),(void*)f_18538},
{C_text("f_18550:scrutinizer_2escm"),(void*)f_18550},
{C_text("f_18577:scrutinizer_2escm"),(void*)f_18577},
{C_text("f_18580:scrutinizer_2escm"),(void*)f_18580},
{C_text("f_18584:scrutinizer_2escm"),(void*)f_18584},
{C_text("f_18597:scrutinizer_2escm"),(void*)f_18597},
{C_text("f_18600:scrutinizer_2escm"),(void*)f_18600},
{C_text("f_18624:scrutinizer_2escm"),(void*)f_18624},
{C_text("f_18632:scrutinizer_2escm"),(void*)f_18632},
{C_text("f_18636:scrutinizer_2escm"),(void*)f_18636},
{C_text("f_18647:scrutinizer_2escm"),(void*)f_18647},
{C_text("f_18726:scrutinizer_2escm"),(void*)f_18726},
{C_text("f_18768:scrutinizer_2escm"),(void*)f_18768},
{C_text("f_18786:scrutinizer_2escm"),(void*)f_18786},
{C_text("f_18789:scrutinizer_2escm"),(void*)f_18789},
{C_text("f_18793:scrutinizer_2escm"),(void*)f_18793},
{C_text("f_18836:scrutinizer_2escm"),(void*)f_18836},
{C_text("f_18842:scrutinizer_2escm"),(void*)f_18842},
{C_text("f_18847:scrutinizer_2escm"),(void*)f_18847},
{C_text("f_18872:scrutinizer_2escm"),(void*)f_18872},
{C_text("f_18917:scrutinizer_2escm"),(void*)f_18917},
{C_text("f_18926:scrutinizer_2escm"),(void*)f_18926},
{C_text("f_18930:scrutinizer_2escm"),(void*)f_18930},
{C_text("f_18940:scrutinizer_2escm"),(void*)f_18940},
{C_text("f_18972:scrutinizer_2escm"),(void*)f_18972},
{C_text("f_18978:scrutinizer_2escm"),(void*)f_18978},
{C_text("f_18980:scrutinizer_2escm"),(void*)f_18980},
{C_text("f_19005:scrutinizer_2escm"),(void*)f_19005},
{C_text("f_19137:scrutinizer_2escm"),(void*)f_19137},
{C_text("f_19141:scrutinizer_2escm"),(void*)f_19141},
{C_text("f_19145:scrutinizer_2escm"),(void*)f_19145},
{C_text("f_19148:scrutinizer_2escm"),(void*)f_19148},
{C_text("f_19180:scrutinizer_2escm"),(void*)f_19180},
{C_text("f_19184:scrutinizer_2escm"),(void*)f_19184},
{C_text("f_19197:scrutinizer_2escm"),(void*)f_19197},
{C_text("f_19201:scrutinizer_2escm"),(void*)f_19201},
{C_text("f_19204:scrutinizer_2escm"),(void*)f_19204},
{C_text("f_19210:scrutinizer_2escm"),(void*)f_19210},
{C_text("f_19212:scrutinizer_2escm"),(void*)f_19212},
{C_text("f_19237:scrutinizer_2escm"),(void*)f_19237},
{C_text("f_19252:scrutinizer_2escm"),(void*)f_19252},
{C_text("f_19261:scrutinizer_2escm"),(void*)f_19261},
{C_text("f_19269:scrutinizer_2escm"),(void*)f_19269},
{C_text("f_19271:scrutinizer_2escm"),(void*)f_19271},
{C_text("f_19286:scrutinizer_2escm"),(void*)f_19286},
{C_text("f_19289:scrutinizer_2escm"),(void*)f_19289},
{C_text("f_19301:scrutinizer_2escm"),(void*)f_19301},
{C_text("f_19312:scrutinizer_2escm"),(void*)f_19312},
{C_text("f_19318:scrutinizer_2escm"),(void*)f_19318},
{C_text("f_19324:scrutinizer_2escm"),(void*)f_19324},
{C_text("f_19340:scrutinizer_2escm"),(void*)f_19340},
{C_text("f_19343:scrutinizer_2escm"),(void*)f_19343},
{C_text("f_19353:scrutinizer_2escm"),(void*)f_19353},
{C_text("f_19379:scrutinizer_2escm"),(void*)f_19379},
{C_text("f_19385:scrutinizer_2escm"),(void*)f_19385},
{C_text("f_19391:scrutinizer_2escm"),(void*)f_19391},
{C_text("f_19407:scrutinizer_2escm"),(void*)f_19407},
{C_text("f_19413:scrutinizer_2escm"),(void*)f_19413},
{C_text("f_19438:scrutinizer_2escm"),(void*)f_19438},
{C_text("f_19476:scrutinizer_2escm"),(void*)f_19476},
{C_text("f_19478:scrutinizer_2escm"),(void*)f_19478},
{C_text("f_19503:scrutinizer_2escm"),(void*)f_19503},
{C_text("f_19529:scrutinizer_2escm"),(void*)f_19529},
{C_text("f_19531:scrutinizer_2escm"),(void*)f_19531},
{C_text("f_19556:scrutinizer_2escm"),(void*)f_19556},
{C_text("f_19565:scrutinizer_2escm"),(void*)f_19565},
{C_text("f_19593:scrutinizer_2escm"),(void*)f_19593},
{C_text("f_19607:scrutinizer_2escm"),(void*)f_19607},
{C_text("f_19641:scrutinizer_2escm"),(void*)f_19641},
{C_text("f_19645:scrutinizer_2escm"),(void*)f_19645},
{C_text("f_19679:scrutinizer_2escm"),(void*)f_19679},
{C_text("f_19683:scrutinizer_2escm"),(void*)f_19683},
{C_text("f_19689:scrutinizer_2escm"),(void*)f_19689},
{C_text("f_19709:scrutinizer_2escm"),(void*)f_19709},
{C_text("f_19727:scrutinizer_2escm"),(void*)f_19727},
{C_text("f_19729:scrutinizer_2escm"),(void*)f_19729},
{C_text("f_19733:scrutinizer_2escm"),(void*)f_19733},
{C_text("f_19796:scrutinizer_2escm"),(void*)f_19796},
{C_text("f_19808:scrutinizer_2escm"),(void*)f_19808},
{C_text("f_19812:scrutinizer_2escm"),(void*)f_19812},
{C_text("f_19828:scrutinizer_2escm"),(void*)f_19828},
{C_text("f_19832:scrutinizer_2escm"),(void*)f_19832},
{C_text("f_19853:scrutinizer_2escm"),(void*)f_19853},
{C_text("f_19876:scrutinizer_2escm"),(void*)f_19876},
{C_text("f_19883:scrutinizer_2escm"),(void*)f_19883},
{C_text("f_19886:scrutinizer_2escm"),(void*)f_19886},
{C_text("f_19889:scrutinizer_2escm"),(void*)f_19889},
{C_text("f_19942:scrutinizer_2escm"),(void*)f_19942},
{C_text("f_19952:scrutinizer_2escm"),(void*)f_19952},
{C_text("f_19979:scrutinizer_2escm"),(void*)f_19979},
{C_text("f_19997:scrutinizer_2escm"),(void*)f_19997},
{C_text("f_20074:scrutinizer_2escm"),(void*)f_20074},
{C_text("f_20076:scrutinizer_2escm"),(void*)f_20076},
{C_text("f_20080:scrutinizer_2escm"),(void*)f_20080},
{C_text("f_20083:scrutinizer_2escm"),(void*)f_20083},
{C_text("f_20129:scrutinizer_2escm"),(void*)f_20129},
{C_text("f_20132:scrutinizer_2escm"),(void*)f_20132},
{C_text("f_20138:scrutinizer_2escm"),(void*)f_20138},
{C_text("f_20142:scrutinizer_2escm"),(void*)f_20142},
{C_text("f_20146:scrutinizer_2escm"),(void*)f_20146},
{C_text("f_20153:scrutinizer_2escm"),(void*)f_20153},
{C_text("f_20157:scrutinizer_2escm"),(void*)f_20157},
{C_text("f_20169:scrutinizer_2escm"),(void*)f_20169},
{C_text("f_20172:scrutinizer_2escm"),(void*)f_20172},
{C_text("f_20175:scrutinizer_2escm"),(void*)f_20175},
{C_text("f_20178:scrutinizer_2escm"),(void*)f_20178},
{C_text("f_20181:scrutinizer_2escm"),(void*)f_20181},
{C_text("f_20184:scrutinizer_2escm"),(void*)f_20184},
{C_text("f_20187:scrutinizer_2escm"),(void*)f_20187},
{C_text("f_20189:scrutinizer_2escm"),(void*)f_20189},
{C_text("f_20198:scrutinizer_2escm"),(void*)f_20198},
{C_text("f_20208:scrutinizer_2escm"),(void*)f_20208},
{C_text("f_20230:scrutinizer_2escm"),(void*)f_20230},
{C_text("f_20245:scrutinizer_2escm"),(void*)f_20245},
{C_text("f_20248:scrutinizer_2escm"),(void*)f_20248},
{C_text("f_20250:scrutinizer_2escm"),(void*)f_20250},
{C_text("f_20289:scrutinizer_2escm"),(void*)f_20289},
{C_text("f_20306:scrutinizer_2escm"),(void*)f_20306},
{C_text("f_20312:scrutinizer_2escm"),(void*)f_20312},
{C_text("f_20319:scrutinizer_2escm"),(void*)f_20319},
{C_text("f_20343:scrutinizer_2escm"),(void*)f_20343},
{C_text("f_20352:scrutinizer_2escm"),(void*)f_20352},
{C_text("f_20355:scrutinizer_2escm"),(void*)f_20355},
{C_text("f_20359:scrutinizer_2escm"),(void*)f_20359},
{C_text("f_20363:scrutinizer_2escm"),(void*)f_20363},
{C_text("f_20375:scrutinizer_2escm"),(void*)f_20375},
{C_text("f_20405:scrutinizer_2escm"),(void*)f_20405},
{C_text("f_20419:scrutinizer_2escm"),(void*)f_20419},
{C_text("f_20423:scrutinizer_2escm"),(void*)f_20423},
{C_text("f_20427:scrutinizer_2escm"),(void*)f_20427},
{C_text("f_20450:scrutinizer_2escm"),(void*)f_20450},
{C_text("f_20452:scrutinizer_2escm"),(void*)f_20452},
{C_text("f_20455:scrutinizer_2escm"),(void*)f_20455},
{C_text("f_20464:scrutinizer_2escm"),(void*)f_20464},
{C_text("f_20515:scrutinizer_2escm"),(void*)f_20515},
{C_text("f_20519:scrutinizer_2escm"),(void*)f_20519},
{C_text("f_20523:scrutinizer_2escm"),(void*)f_20523},
{C_text("f_20527:scrutinizer_2escm"),(void*)f_20527},
{C_text("f_20535:scrutinizer_2escm"),(void*)f_20535},
{C_text("f_20537:scrutinizer_2escm"),(void*)f_20537},
{C_text("f_20561:scrutinizer_2escm"),(void*)f_20561},
{C_text("f_20586:scrutinizer_2escm"),(void*)f_20586},
{C_text("f_20597:scrutinizer_2escm"),(void*)f_20597},
{C_text("f_20607:scrutinizer_2escm"),(void*)f_20607},
{C_text("f_20609:scrutinizer_2escm"),(void*)f_20609},
{C_text("f_20634:scrutinizer_2escm"),(void*)f_20634},
{C_text("f_20651:scrutinizer_2escm"),(void*)f_20651},
{C_text("f_20653:scrutinizer_2escm"),(void*)f_20653},
{C_text("f_20667:scrutinizer_2escm"),(void*)f_20667},
{C_text("f_20683:scrutinizer_2escm"),(void*)f_20683},
{C_text("f_20702:scrutinizer_2escm"),(void*)f_20702},
{C_text("f_20708:scrutinizer_2escm"),(void*)f_20708},
{C_text("f_20710:scrutinizer_2escm"),(void*)f_20710},
{C_text("f_20720:scrutinizer_2escm"),(void*)f_20720},
{C_text("f_20740:scrutinizer_2escm"),(void*)f_20740},
{C_text("f_20743:scrutinizer_2escm"),(void*)f_20743},
{C_text("f_20754:scrutinizer_2escm"),(void*)f_20754},
{C_text("f_20757:scrutinizer_2escm"),(void*)f_20757},
{C_text("f_20777:scrutinizer_2escm"),(void*)f_20777},
{C_text("f_20784:scrutinizer_2escm"),(void*)f_20784},
{C_text("f_20787:scrutinizer_2escm"),(void*)f_20787},
{C_text("f_20810:scrutinizer_2escm"),(void*)f_20810},
{C_text("f_20822:scrutinizer_2escm"),(void*)f_20822},
{C_text("f_20824:scrutinizer_2escm"),(void*)f_20824},
{C_text("f_20849:scrutinizer_2escm"),(void*)f_20849},
{C_text("f_20864:scrutinizer_2escm"),(void*)f_20864},
{C_text("f_20871:scrutinizer_2escm"),(void*)f_20871},
{C_text("f_20874:scrutinizer_2escm"),(void*)f_20874},
{C_text("f_20881:scrutinizer_2escm"),(void*)f_20881},
{C_text("f_20890:scrutinizer_2escm"),(void*)f_20890},
{C_text("f_20896:scrutinizer_2escm"),(void*)f_20896},
{C_text("f_20909:scrutinizer_2escm"),(void*)f_20909},
{C_text("f_20925:scrutinizer_2escm"),(void*)f_20925},
{C_text("f_20931:scrutinizer_2escm"),(void*)f_20931},
{C_text("f_20934:scrutinizer_2escm"),(void*)f_20934},
{C_text("f_20937:scrutinizer_2escm"),(void*)f_20937},
{C_text("f_20940:scrutinizer_2escm"),(void*)f_20940},
{C_text("f_20948:scrutinizer_2escm"),(void*)f_20948},
{C_text("f_20961:scrutinizer_2escm"),(void*)f_20961},
{C_text("f_20963:scrutinizer_2escm"),(void*)f_20963},
{C_text("f_20988:scrutinizer_2escm"),(void*)f_20988},
{C_text("f_21004:scrutinizer_2escm"),(void*)f_21004},
{C_text("f_21016:scrutinizer_2escm"),(void*)f_21016},
{C_text("f_21025:scrutinizer_2escm"),(void*)f_21025},
{C_text("f_21034:scrutinizer_2escm"),(void*)f_21034},
{C_text("f_21093:scrutinizer_2escm"),(void*)f_21093},
{C_text("f_21095:scrutinizer_2escm"),(void*)f_21095},
{C_text("f_21120:scrutinizer_2escm"),(void*)f_21120},
{C_text("f_21145:scrutinizer_2escm"),(void*)f_21145},
{C_text("f_21151:scrutinizer_2escm"),(void*)f_21151},
{C_text("f_21154:scrutinizer_2escm"),(void*)f_21154},
{C_text("f_21157:scrutinizer_2escm"),(void*)f_21157},
{C_text("f_21188:scrutinizer_2escm"),(void*)f_21188},
{C_text("f_21191:scrutinizer_2escm"),(void*)f_21191},
{C_text("f_21194:scrutinizer_2escm"),(void*)f_21194},
{C_text("f_21211:scrutinizer_2escm"),(void*)f_21211},
{C_text("f_21236:scrutinizer_2escm"),(void*)f_21236},
{C_text("f_21245:scrutinizer_2escm"),(void*)f_21245},
{C_text("f_21270:scrutinizer_2escm"),(void*)f_21270},
{C_text("f_21307:scrutinizer_2escm"),(void*)f_21307},
{C_text("f_21314:scrutinizer_2escm"),(void*)f_21314},
{C_text("f_21318:scrutinizer_2escm"),(void*)f_21318},
{C_text("f_21320:scrutinizer_2escm"),(void*)f_21320},
{C_text("f_21328:scrutinizer_2escm"),(void*)f_21328},
{C_text("f_21330:scrutinizer_2escm"),(void*)f_21330},
{C_text("f_21334:scrutinizer_2escm"),(void*)f_21334},
{C_text("f_21339:scrutinizer_2escm"),(void*)f_21339},
{C_text("f_21365:scrutinizer_2escm"),(void*)f_21365},
{C_text("f_21370:scrutinizer_2escm"),(void*)f_21370},
{C_text("f_21382:scrutinizer_2escm"),(void*)f_21382},
{C_text("f_21407:scrutinizer_2escm"),(void*)f_21407},
{C_text("f_21424:scrutinizer_2escm"),(void*)f_21424},
{C_text("f_21433:scrutinizer_2escm"),(void*)f_21433},
{C_text("f_21435:scrutinizer_2escm"),(void*)f_21435},
{C_text("f_21443:scrutinizer_2escm"),(void*)f_21443},
{C_text("f_21447:scrutinizer_2escm"),(void*)f_21447},
{C_text("f_21449:scrutinizer_2escm"),(void*)f_21449},
{C_text("f_21457:scrutinizer_2escm"),(void*)f_21457},
{C_text("f_21459:scrutinizer_2escm"),(void*)f_21459},
{C_text("f_21463:scrutinizer_2escm"),(void*)f_21463},
{C_text("f_21472:scrutinizer_2escm"),(void*)f_21472},
{C_text("f_21478:scrutinizer_2escm"),(void*)f_21478},
{C_text("f_21481:scrutinizer_2escm"),(void*)f_21481},
{C_text("f_21484:scrutinizer_2escm"),(void*)f_21484},
{C_text("f_21489:scrutinizer_2escm"),(void*)f_21489},
{C_text("f_21502:scrutinizer_2escm"),(void*)f_21502},
{C_text("f_21508:scrutinizer_2escm"),(void*)f_21508},
{C_text("f_21511:scrutinizer_2escm"),(void*)f_21511},
{C_text("f_21514:scrutinizer_2escm"),(void*)f_21514},
{C_text("f_21521:scrutinizer_2escm"),(void*)f_21521},
{C_text("f_21539:scrutinizer_2escm"),(void*)f_21539},
{C_text("f_21553:scrutinizer_2escm"),(void*)f_21553},
{C_text("f_21557:scrutinizer_2escm"),(void*)f_21557},
{C_text("f_21561:scrutinizer_2escm"),(void*)f_21561},
{C_text("f_21567:scrutinizer_2escm"),(void*)f_21567},
{C_text("f_21575:scrutinizer_2escm"),(void*)f_21575},
{C_text("f_21581:scrutinizer_2escm"),(void*)f_21581},
{C_text("f_21589:scrutinizer_2escm"),(void*)f_21589},
{C_text("f_21593:scrutinizer_2escm"),(void*)f_21593},
{C_text("f_21599:scrutinizer_2escm"),(void*)f_21599},
{C_text("f_21602:scrutinizer_2escm"),(void*)f_21602},
{C_text("f_21605:scrutinizer_2escm"),(void*)f_21605},
{C_text("f_21608:scrutinizer_2escm"),(void*)f_21608},
{C_text("f_21611:scrutinizer_2escm"),(void*)f_21611},
{C_text("f_21617:scrutinizer_2escm"),(void*)f_21617},
{C_text("f_21620:scrutinizer_2escm"),(void*)f_21620},
{C_text("f_21623:scrutinizer_2escm"),(void*)f_21623},
{C_text("f_21626:scrutinizer_2escm"),(void*)f_21626},
{C_text("f_21629:scrutinizer_2escm"),(void*)f_21629},
{C_text("f_21645:scrutinizer_2escm"),(void*)f_21645},
{C_text("f_21659:scrutinizer_2escm"),(void*)f_21659},
{C_text("f_21663:scrutinizer_2escm"),(void*)f_21663},
{C_text("f_21666:scrutinizer_2escm"),(void*)f_21666},
{C_text("f_21679:scrutinizer_2escm"),(void*)f_21679},
{C_text("f_21683:scrutinizer_2escm"),(void*)f_21683},
{C_text("f_21698:scrutinizer_2escm"),(void*)f_21698},
{C_text("f_21710:scrutinizer_2escm"),(void*)f_21710},
{C_text("f_21716:scrutinizer_2escm"),(void*)f_21716},
{C_text("f_21722:scrutinizer_2escm"),(void*)f_21722},
{C_text("f_21729:scrutinizer_2escm"),(void*)f_21729},
{C_text("f_21735:scrutinizer_2escm"),(void*)f_21735},
{C_text("f_21738:scrutinizer_2escm"),(void*)f_21738},
{C_text("f_21741:scrutinizer_2escm"),(void*)f_21741},
{C_text("f_21744:scrutinizer_2escm"),(void*)f_21744},
{C_text("f_21747:scrutinizer_2escm"),(void*)f_21747},
{C_text("f_21753:scrutinizer_2escm"),(void*)f_21753},
{C_text("f_21759:scrutinizer_2escm"),(void*)f_21759},
{C_text("f_21762:scrutinizer_2escm"),(void*)f_21762},
{C_text("f_21765:scrutinizer_2escm"),(void*)f_21765},
{C_text("f_21770:scrutinizer_2escm"),(void*)f_21770},
{C_text("f_21773:scrutinizer_2escm"),(void*)f_21773},
{C_text("f_21781:scrutinizer_2escm"),(void*)f_21781},
{C_text("f_21785:scrutinizer_2escm"),(void*)f_21785},
{C_text("f_21787:scrutinizer_2escm"),(void*)f_21787},
{C_text("f_21791:scrutinizer_2escm"),(void*)f_21791},
{C_text("f_21811:scrutinizer_2escm"),(void*)f_21811},
{C_text("f_21818:scrutinizer_2escm"),(void*)f_21818},
{C_text("f_21839:scrutinizer_2escm"),(void*)f_21839},
{C_text("f_21849:scrutinizer_2escm"),(void*)f_21849},
{C_text("f_21853:scrutinizer_2escm"),(void*)f_21853},
{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_21869:scrutinizer_2escm"),(void*)f_21869},
{C_text("f_21873:scrutinizer_2escm"),(void*)f_21873},
{C_text("f_21877:scrutinizer_2escm"),(void*)f_21877},
{C_text("f_21884:scrutinizer_2escm"),(void*)f_21884},
{C_text("f_21900:scrutinizer_2escm"),(void*)f_21900},
{C_text("f_21903:scrutinizer_2escm"),(void*)f_21903},
{C_text("f_21909:scrutinizer_2escm"),(void*)f_21909},
{C_text("f_21925:scrutinizer_2escm"),(void*)f_21925},
{C_text("f_21931:scrutinizer_2escm"),(void*)f_21931},
{C_text("f_21938:scrutinizer_2escm"),(void*)f_21938},
{C_text("f_21942:scrutinizer_2escm"),(void*)f_21942},
{C_text("f_21946:scrutinizer_2escm"),(void*)f_21946},
{C_text("f_21950:scrutinizer_2escm"),(void*)f_21950},
{C_text("f_21953:scrutinizer_2escm"),(void*)f_21953},
{C_text("f_21957:scrutinizer_2escm"),(void*)f_21957},
{C_text("f_21961:scrutinizer_2escm"),(void*)f_21961},
{C_text("f_21967:scrutinizer_2escm"),(void*)f_21967},
{C_text("f_21970:scrutinizer_2escm"),(void*)f_21970},
{C_text("f_21984:scrutinizer_2escm"),(void*)f_21984},
{C_text("f_22002:scrutinizer_2escm"),(void*)f_22002},
{C_text("f_22015:scrutinizer_2escm"),(void*)f_22015},
{C_text("f_22019:scrutinizer_2escm"),(void*)f_22019},
{C_text("f_22023:scrutinizer_2escm"),(void*)f_22023},
{C_text("f_22029:scrutinizer_2escm"),(void*)f_22029},
{C_text("f_22040:scrutinizer_2escm"),(void*)f_22040},
{C_text("f_22044:scrutinizer_2escm"),(void*)f_22044},
{C_text("f_22048:scrutinizer_2escm"),(void*)f_22048},
{C_text("f_22052:scrutinizer_2escm"),(void*)f_22052},
{C_text("f_22056:scrutinizer_2escm"),(void*)f_22056},
{C_text("f_22067:scrutinizer_2escm"),(void*)f_22067},
{C_text("f_22071:scrutinizer_2escm"),(void*)f_22071},
{C_text("f_22075:scrutinizer_2escm"),(void*)f_22075},
{C_text("f_22079:scrutinizer_2escm"),(void*)f_22079},
{C_text("f_22083:scrutinizer_2escm"),(void*)f_22083},
{C_text("f_22090:scrutinizer_2escm"),(void*)f_22090},
{C_text("f_22101:scrutinizer_2escm"),(void*)f_22101},
{C_text("f_22105:scrutinizer_2escm"),(void*)f_22105},
{C_text("f_22109:scrutinizer_2escm"),(void*)f_22109},
{C_text("f_22125:scrutinizer_2escm"),(void*)f_22125},
{C_text("f_22129:scrutinizer_2escm"),(void*)f_22129},
{C_text("f_22134:scrutinizer_2escm"),(void*)f_22134},
{C_text("f_22139:scrutinizer_2escm"),(void*)f_22139},
{C_text("f_22150:scrutinizer_2escm"),(void*)f_22150},
{C_text("f_22154:scrutinizer_2escm"),(void*)f_22154},
{C_text("f_22158:scrutinizer_2escm"),(void*)f_22158},
{C_text("f_22162:scrutinizer_2escm"),(void*)f_22162},
{C_text("f_22166:scrutinizer_2escm"),(void*)f_22166},
{C_text("f_22170:scrutinizer_2escm"),(void*)f_22170},
{C_text("f_22174:scrutinizer_2escm"),(void*)f_22174},
{C_text("f_22178:scrutinizer_2escm"),(void*)f_22178},
{C_text("f_22180:scrutinizer_2escm"),(void*)f_22180},
{C_text("f_22185:scrutinizer_2escm"),(void*)f_22185},
{C_text("f_22187:scrutinizer_2escm"),(void*)f_22187},
{C_text("f_22199:scrutinizer_2escm"),(void*)f_22199},
{C_text("f_22203:scrutinizer_2escm"),(void*)f_22203},
{C_text("f_22207:scrutinizer_2escm"),(void*)f_22207},
{C_text("f_22211:scrutinizer_2escm"),(void*)f_22211},
{C_text("f_22215:scrutinizer_2escm"),(void*)f_22215},
{C_text("f_22221:scrutinizer_2escm"),(void*)f_22221},
{C_text("f_22224:scrutinizer_2escm"),(void*)f_22224},
{C_text("f_22227:scrutinizer_2escm"),(void*)f_22227},
{C_text("f_22234:scrutinizer_2escm"),(void*)f_22234},
{C_text("f_22250:scrutinizer_2escm"),(void*)f_22250},
{C_text("f_22256:scrutinizer_2escm"),(void*)f_22256},
{C_text("f_22259:scrutinizer_2escm"),(void*)f_22259},
{C_text("f_22262:scrutinizer_2escm"),(void*)f_22262},
{C_text("f_22265:scrutinizer_2escm"),(void*)f_22265},
{C_text("f_22273:scrutinizer_2escm"),(void*)f_22273},
{C_text("f_22278:scrutinizer_2escm"),(void*)f_22278},
{C_text("f_22285:scrutinizer_2escm"),(void*)f_22285},
{C_text("f_22293:scrutinizer_2escm"),(void*)f_22293},
{C_text("f_22297:scrutinizer_2escm"),(void*)f_22297},
{C_text("f_22301:scrutinizer_2escm"),(void*)f_22301},
{C_text("f_22305:scrutinizer_2escm"),(void*)f_22305},
{C_text("f_22309:scrutinizer_2escm"),(void*)f_22309},
{C_text("f_22315:scrutinizer_2escm"),(void*)f_22315},
{C_text("f_22318:scrutinizer_2escm"),(void*)f_22318},
{C_text("f_22321:scrutinizer_2escm"),(void*)f_22321},
{C_text("f_22327:scrutinizer_2escm"),(void*)f_22327},
{C_text("f_22333:scrutinizer_2escm"),(void*)f_22333},
{C_text("f_22336:scrutinizer_2escm"),(void*)f_22336},
{C_text("f_22339:scrutinizer_2escm"),(void*)f_22339},
{C_text("f_22342:scrutinizer_2escm"),(void*)f_22342},
{C_text("f_22345:scrutinizer_2escm"),(void*)f_22345},
{C_text("f_22348:scrutinizer_2escm"),(void*)f_22348},
{C_text("f_22351:scrutinizer_2escm"),(void*)f_22351},
{C_text("f_22358:scrutinizer_2escm"),(void*)f_22358},
{C_text("f_22364:scrutinizer_2escm"),(void*)f_22364},
{C_text("f_22367:scrutinizer_2escm"),(void*)f_22367},
{C_text("f_22370:scrutinizer_2escm"),(void*)f_22370},
{C_text("f_22376:scrutinizer_2escm"),(void*)f_22376},
{C_text("f_22382:scrutinizer_2escm"),(void*)f_22382},
{C_text("f_22385:scrutinizer_2escm"),(void*)f_22385},
{C_text("f_22388:scrutinizer_2escm"),(void*)f_22388},
{C_text("f_22395:scrutinizer_2escm"),(void*)f_22395},
{C_text("f_22405:scrutinizer_2escm"),(void*)f_22405},
{C_text("f_22408:scrutinizer_2escm"),(void*)f_22408},
{C_text("f_22420:scrutinizer_2escm"),(void*)f_22420},
{C_text("f_22424:scrutinizer_2escm"),(void*)f_22424},
{C_text("f_22428:scrutinizer_2escm"),(void*)f_22428},
{C_text("f_22444:scrutinizer_2escm"),(void*)f_22444},
{C_text("f_22450:scrutinizer_2escm"),(void*)f_22450},
{C_text("f_22453:scrutinizer_2escm"),(void*)f_22453},
{C_text("f_22456:scrutinizer_2escm"),(void*)f_22456},
{C_text("f_22459:scrutinizer_2escm"),(void*)f_22459},
{C_text("f_22467:scrutinizer_2escm"),(void*)f_22467},
{C_text("f_22470:scrutinizer_2escm"),(void*)f_22470},
{C_text("f_22482:scrutinizer_2escm"),(void*)f_22482},
{C_text("f_22486:scrutinizer_2escm"),(void*)f_22486},
{C_text("f_22490:scrutinizer_2escm"),(void*)f_22490},
{C_text("f_22494:scrutinizer_2escm"),(void*)f_22494},
{C_text("f_22507:scrutinizer_2escm"),(void*)f_22507},
{C_text("f_22513:scrutinizer_2escm"),(void*)f_22513},
{C_text("f_22516:scrutinizer_2escm"),(void*)f_22516},
{C_text("f_22519:scrutinizer_2escm"),(void*)f_22519},
{C_text("f_22522:scrutinizer_2escm"),(void*)f_22522},
{C_text("f_22526:scrutinizer_2escm"),(void*)f_22526},
{C_text("f_22533:scrutinizer_2escm"),(void*)f_22533},
{C_text("f_22539:scrutinizer_2escm"),(void*)f_22539},
{C_text("f_22542:scrutinizer_2escm"),(void*)f_22542},
{C_text("f_22545:scrutinizer_2escm"),(void*)f_22545},
{C_text("f_22548:scrutinizer_2escm"),(void*)f_22548},
{C_text("f_22551:scrutinizer_2escm"),(void*)f_22551},
{C_text("f_22554:scrutinizer_2escm"),(void*)f_22554},
{C_text("f_22558:scrutinizer_2escm"),(void*)f_22558},
{C_text("f_22564:scrutinizer_2escm"),(void*)f_22564},
{C_text("f_22567:scrutinizer_2escm"),(void*)f_22567},
{C_text("f_22570:scrutinizer_2escm"),(void*)f_22570},
{C_text("f_22573:scrutinizer_2escm"),(void*)f_22573},
{C_text("f_22581:scrutinizer_2escm"),(void*)f_22581},
{C_text("f_22587:scrutinizer_2escm"),(void*)f_22587},
{C_text("f_22590:scrutinizer_2escm"),(void*)f_22590},
{C_text("f_22602:scrutinizer_2escm"),(void*)f_22602},
{C_text("f_22606:scrutinizer_2escm"),(void*)f_22606},
{C_text("f_22610:scrutinizer_2escm"),(void*)f_22610},
{C_text("f_22614:scrutinizer_2escm"),(void*)f_22614},
{C_text("f_22627:scrutinizer_2escm"),(void*)f_22627},
{C_text("f_22633:scrutinizer_2escm"),(void*)f_22633},
{C_text("f_22636:scrutinizer_2escm"),(void*)f_22636},
{C_text("f_22639:scrutinizer_2escm"),(void*)f_22639},
{C_text("f_22642:scrutinizer_2escm"),(void*)f_22642},
{C_text("f_22646:scrutinizer_2escm"),(void*)f_22646},
{C_text("f_22653:scrutinizer_2escm"),(void*)f_22653},
{C_text("f_22659:scrutinizer_2escm"),(void*)f_22659},
{C_text("f_22662:scrutinizer_2escm"),(void*)f_22662},
{C_text("f_22665:scrutinizer_2escm"),(void*)f_22665},
{C_text("f_22668:scrutinizer_2escm"),(void*)f_22668},
{C_text("f_22671:scrutinizer_2escm"),(void*)f_22671},
{C_text("f_22674:scrutinizer_2escm"),(void*)f_22674},
{C_text("f_22678:scrutinizer_2escm"),(void*)f_22678},
{C_text("f_22684:scrutinizer_2escm"),(void*)f_22684},
{C_text("f_22687:scrutinizer_2escm"),(void*)f_22687},
{C_text("f_22690:scrutinizer_2escm"),(void*)f_22690},
{C_text("f_22693:scrutinizer_2escm"),(void*)f_22693},
{C_text("f_22701:scrutinizer_2escm"),(void*)f_22701},
{C_text("f_22712:scrutinizer_2escm"),(void*)f_22712},
{C_text("f_22723:scrutinizer_2escm"),(void*)f_22723},
{C_text("f_22727:scrutinizer_2escm"),(void*)f_22727},
{C_text("f_22731:scrutinizer_2escm"),(void*)f_22731},
{C_text("f_22735:scrutinizer_2escm"),(void*)f_22735},
{C_text("f_22739:scrutinizer_2escm"),(void*)f_22739},
{C_text("f_22746:scrutinizer_2escm"),(void*)f_22746},
{C_text("f_22757:scrutinizer_2escm"),(void*)f_22757},
{C_text("f_22761:scrutinizer_2escm"),(void*)f_22761},
{C_text("f_22765:scrutinizer_2escm"),(void*)f_22765},
{C_text("f_22769:scrutinizer_2escm"),(void*)f_22769},
{C_text("f_22773:scrutinizer_2escm"),(void*)f_22773},
{C_text("f_22787:scrutinizer_2escm"),(void*)f_22787},
{C_text("f_22791:scrutinizer_2escm"),(void*)f_22791},
{C_text("f_22795:scrutinizer_2escm"),(void*)f_22795},
{C_text("f_22809:scrutinizer_2escm"),(void*)f_22809},
{C_text("f_22813:scrutinizer_2escm"),(void*)f_22813},
{C_text("f_22827:scrutinizer_2escm"),(void*)f_22827},
{C_text("f_22831:scrutinizer_2escm"),(void*)f_22831},
{C_text("f_22835:scrutinizer_2escm"),(void*)f_22835},
{C_text("f_22849:scrutinizer_2escm"),(void*)f_22849},
{C_text("f_22853:scrutinizer_2escm"),(void*)f_22853},
{C_text("f_22861:scrutinizer_2escm"),(void*)f_22861},
{C_text("f_22875:scrutinizer_2escm"),(void*)f_22875},
{C_text("f_22879:scrutinizer_2escm"),(void*)f_22879},
{C_text("f_22883:scrutinizer_2escm"),(void*)f_22883},
{C_text("f_22887:scrutinizer_2escm"),(void*)f_22887},
{C_text("f_22907:scrutinizer_2escm"),(void*)f_22907},
{C_text("f_22911:scrutinizer_2escm"),(void*)f_22911},
{C_text("f_22915:scrutinizer_2escm"),(void*)f_22915},
{C_text("f_22919:scrutinizer_2escm"),(void*)f_22919},
{C_text("f_22923:scrutinizer_2escm"),(void*)f_22923},
{C_text("f_22927:scrutinizer_2escm"),(void*)f_22927},
{C_text("f_22937:scrutinizer_2escm"),(void*)f_22937},
{C_text("f_22939:scrutinizer_2escm"),(void*)f_22939},
{C_text("f_22964:scrutinizer_2escm"),(void*)f_22964},
{C_text("f_22976:scrutinizer_2escm"),(void*)f_22976},
{C_text("f_22983:scrutinizer_2escm"),(void*)f_22983},
{C_text("f_22997:scrutinizer_2escm"),(void*)f_22997},
{C_text("f_23001:scrutinizer_2escm"),(void*)f_23001},
{C_text("f_23013:scrutinizer_2escm"),(void*)f_23013},
{C_text("f_23025:scrutinizer_2escm"),(void*)f_23025},
{C_text("f_23043:scrutinizer_2escm"),(void*)f_23043},
{C_text("f_23047:scrutinizer_2escm"),(void*)f_23047},
{C_text("f_23051:scrutinizer_2escm"),(void*)f_23051},
{C_text("f_23055:scrutinizer_2escm"),(void*)f_23055},
{C_text("f_23059:scrutinizer_2escm"),(void*)f_23059},
{C_text("f_23063:scrutinizer_2escm"),(void*)f_23063},
{C_text("f_23067:scrutinizer_2escm"),(void*)f_23067},
{C_text("f_23070:scrutinizer_2escm"),(void*)f_23070},
{C_text("f_23078:scrutinizer_2escm"),(void*)f_23078},
{C_text("f_23089:scrutinizer_2escm"),(void*)f_23089},
{C_text("f_23095:scrutinizer_2escm"),(void*)f_23095},
{C_text("f_23098:scrutinizer_2escm"),(void*)f_23098},
{C_text("f_23101:scrutinizer_2escm"),(void*)f_23101},
{C_text("f_23104:scrutinizer_2escm"),(void*)f_23104},
{C_text("f_23112:scrutinizer_2escm"),(void*)f_23112},
{C_text("f_23116:scrutinizer_2escm"),(void*)f_23116},
{C_text("f_23120:scrutinizer_2escm"),(void*)f_23120},
{C_text("f_23124:scrutinizer_2escm"),(void*)f_23124},
{C_text("f_23127:scrutinizer_2escm"),(void*)f_23127},
{C_text("f_23133:scrutinizer_2escm"),(void*)f_23133},
{C_text("f_23136:scrutinizer_2escm"),(void*)f_23136},
{C_text("f_23139:scrutinizer_2escm"),(void*)f_23139},
{C_text("f_23142:scrutinizer_2escm"),(void*)f_23142},
{C_text("f_23145:scrutinizer_2escm"),(void*)f_23145},
{C_text("f_23152:scrutinizer_2escm"),(void*)f_23152},
{C_text("f_23156:scrutinizer_2escm"),(void*)f_23156},
{C_text("f_23168:scrutinizer_2escm"),(void*)f_23168},
{C_text("f_23172:scrutinizer_2escm"),(void*)f_23172},
{C_text("f_23213:scrutinizer_2escm"),(void*)f_23213},
{C_text("f_23230:scrutinizer_2escm"),(void*)f_23230},
{C_text("f_23251:scrutinizer_2escm"),(void*)f_23251},
{C_text("f_23253:scrutinizer_2escm"),(void*)f_23253},
{C_text("f_23287:scrutinizer_2escm"),(void*)f_23287},
{C_text("f_23308:scrutinizer_2escm"),(void*)f_23308},
{C_text("f_23310:scrutinizer_2escm"),(void*)f_23310},
{C_text("f_23344:scrutinizer_2escm"),(void*)f_23344},
{C_text("f_23369:scrutinizer_2escm"),(void*)f_23369},
{C_text("f_23371:scrutinizer_2escm"),(void*)f_23371},
{C_text("f_23409:scrutinizer_2escm"),(void*)f_23409},
{C_text("f_23434:scrutinizer_2escm"),(void*)f_23434},
{C_text("f_23436:scrutinizer_2escm"),(void*)f_23436},
{C_text("f_23476:scrutinizer_2escm"),(void*)f_23476},
{C_text("f_23478:scrutinizer_2escm"),(void*)f_23478},
{C_text("f_23486:scrutinizer_2escm"),(void*)f_23486},
{C_text("f_23488:scrutinizer_2escm"),(void*)f_23488},
{C_text("f_23504:scrutinizer_2escm"),(void*)f_23504},
{C_text("f_23508:scrutinizer_2escm"),(void*)f_23508},
{C_text("f_23517:scrutinizer_2escm"),(void*)f_23517},
{C_text("f_23544:scrutinizer_2escm"),(void*)f_23544},
{C_text("f_23555:scrutinizer_2escm"),(void*)f_23555},
{C_text("f_23561:scrutinizer_2escm"),(void*)f_23561},
{C_text("f_23565:scrutinizer_2escm"),(void*)f_23565},
{C_text("f_23618:scrutinizer_2escm"),(void*)f_23618},
{C_text("f_23622:scrutinizer_2escm"),(void*)f_23622},
{C_text("f_23626:scrutinizer_2escm"),(void*)f_23626},
{C_text("f_6805:scrutinizer_2escm"),(void*)f_6805},
{C_text("f_6808:scrutinizer_2escm"),(void*)f_6808},
{C_text("f_6811:scrutinizer_2escm"),(void*)f_6811},
{C_text("f_6814:scrutinizer_2escm"),(void*)f_6814},
{C_text("f_6817:scrutinizer_2escm"),(void*)f_6817},
{C_text("f_6820:scrutinizer_2escm"),(void*)f_6820},
{C_text("f_6823:scrutinizer_2escm"),(void*)f_6823},
{C_text("f_6826:scrutinizer_2escm"),(void*)f_6826},
{C_text("f_6829:scrutinizer_2escm"),(void*)f_6829},
{C_text("f_6895:scrutinizer_2escm"),(void*)f_6895},
{C_text("f_6909:scrutinizer_2escm"),(void*)f_6909},
{C_text("f_6933:scrutinizer_2escm"),(void*)f_6933},
{C_text("f_6939:scrutinizer_2escm"),(void*)f_6939},
{C_text("f_6957:scrutinizer_2escm"),(void*)f_6957},
{C_text("f_6997:scrutinizer_2escm"),(void*)f_6997},
{C_text("f_7011:scrutinizer_2escm"),(void*)f_7011},
{C_text("f_7030:scrutinizer_2escm"),(void*)f_7030},
{C_text("f_7045:scrutinizer_2escm"),(void*)f_7045},
{C_text("f_7053:scrutinizer_2escm"),(void*)f_7053},
{C_text("f_7061:scrutinizer_2escm"),(void*)f_7061},
{C_text("f_7072:scrutinizer_2escm"),(void*)f_7072},
{C_text("f_7085:scrutinizer_2escm"),(void*)f_7085},
{C_text("f_7092:scrutinizer_2escm"),(void*)f_7092},
{C_text("f_7099:scrutinizer_2escm"),(void*)f_7099},
{C_text("f_7103:scrutinizer_2escm"),(void*)f_7103},
{C_text("f_7115:scrutinizer_2escm"),(void*)f_7115},
{C_text("f_7117:scrutinizer_2escm"),(void*)f_7117},
{C_text("f_7164:scrutinizer_2escm"),(void*)f_7164},
{C_text("f_7166:scrutinizer_2escm"),(void*)f_7166},
{C_text("f_7200:scrutinizer_2escm"),(void*)f_7200},
{C_text("f_7206:scrutinizer_2escm"),(void*)f_7206},
{C_text("f_7228:scrutinizer_2escm"),(void*)f_7228},
{C_text("f_7234:scrutinizer_2escm"),(void*)f_7234},
{C_text("f_7240:scrutinizer_2escm"),(void*)f_7240},
{C_text("f_7250:scrutinizer_2escm"),(void*)f_7250},
{C_text("f_7270:scrutinizer_2escm"),(void*)f_7270},
{C_text("f_7284:scrutinizer_2escm"),(void*)f_7284},
{C_text("f_7298:scrutinizer_2escm"),(void*)f_7298},
{C_text("f_7316:scrutinizer_2escm"),(void*)f_7316},
{C_text("f_7326:scrutinizer_2escm"),(void*)f_7326},
{C_text("f_7339:scrutinizer_2escm"),(void*)f_7339},
{C_text("f_7353:scrutinizer_2escm"),(void*)f_7353},
{C_text("f_7395:scrutinizer_2escm"),(void*)f_7395},
{C_text("f_7401:scrutinizer_2escm"),(void*)f_7401},
{C_text("f_7415:scrutinizer_2escm"),(void*)f_7415},
{C_text("f_7428:scrutinizer_2escm"),(void*)f_7428},
{C_text("f_7484:scrutinizer_2escm"),(void*)f_7484},
{C_text("f_7493:scrutinizer_2escm"),(void*)f_7493},
{C_text("f_7501:scrutinizer_2escm"),(void*)f_7501},
{C_text("f_7505:scrutinizer_2escm"),(void*)f_7505},
{C_text("f_7509:scrutinizer_2escm"),(void*)f_7509},
{C_text("f_7527:scrutinizer_2escm"),(void*)f_7527},
{C_text("f_7549:scrutinizer_2escm"),(void*)f_7549},
{C_text("f_7566:scrutinizer_2escm"),(void*)f_7566},
{C_text("f_7665:scrutinizer_2escm"),(void*)f_7665},
{C_text("f_7756:scrutinizer_2escm"),(void*)f_7756},
{C_text("f_7761:scrutinizer_2escm"),(void*)f_7761},
{C_text("f_7773:scrutinizer_2escm"),(void*)f_7773},
{C_text("f_7800:scrutinizer_2escm"),(void*)f_7800},
{C_text("f_7818:scrutinizer_2escm"),(void*)f_7818},
{C_text("f_7842:scrutinizer_2escm"),(void*)f_7842},
{C_text("f_7848:scrutinizer_2escm"),(void*)f_7848},
{C_text("f_7862:scrutinizer_2escm"),(void*)f_7862},
{C_text("f_7866:scrutinizer_2escm"),(void*)f_7866},
{C_text("f_7878:scrutinizer_2escm"),(void*)f_7878},
{C_text("f_7884:scrutinizer_2escm"),(void*)f_7884},
{C_text("f_7896:scrutinizer_2escm"),(void*)f_7896},
{C_text("f_7961:scrutinizer_2escm"),(void*)f_7961},
{C_text("f_8022:scrutinizer_2escm"),(void*)f_8022},
{C_text("f_8025:scrutinizer_2escm"),(void*)f_8025},
{C_text("f_8034:scrutinizer_2escm"),(void*)f_8034},
{C_text("f_8154:scrutinizer_2escm"),(void*)f_8154},
{C_text("f_8162:scrutinizer_2escm"),(void*)f_8162},
{C_text("f_8164:scrutinizer_2escm"),(void*)f_8164},
{C_text("f_8207:scrutinizer_2escm"),(void*)f_8207},
{C_text("f_8244:scrutinizer_2escm"),(void*)f_8244},
{C_text("f_8257:scrutinizer_2escm"),(void*)f_8257},
{C_text("f_8269:scrutinizer_2escm"),(void*)f_8269},
{C_text("f_8272:scrutinizer_2escm"),(void*)f_8272},
{C_text("f_8333:scrutinizer_2escm"),(void*)f_8333},
{C_text("f_8335:scrutinizer_2escm"),(void*)f_8335},
{C_text("f_8360:scrutinizer_2escm"),(void*)f_8360},
{C_text("f_8384:scrutinizer_2escm"),(void*)f_8384},
{C_text("f_8388:scrutinizer_2escm"),(void*)f_8388},
{C_text("f_8424:scrutinizer_2escm"),(void*)f_8424},
{C_text("f_8427:scrutinizer_2escm"),(void*)f_8427},
{C_text("f_8429:scrutinizer_2escm"),(void*)f_8429},
{C_text("f_8454:scrutinizer_2escm"),(void*)f_8454},
{C_text("f_8499:scrutinizer_2escm"),(void*)f_8499},
{C_text("f_8503:scrutinizer_2escm"),(void*)f_8503},
{C_text("f_8513:scrutinizer_2escm"),(void*)f_8513},
{C_text("f_8522:scrutinizer_2escm"),(void*)f_8522},
{C_text("f_8542:scrutinizer_2escm"),(void*)f_8542},
{C_text("f_8554:scrutinizer_2escm"),(void*)f_8554},
{C_text("f_8573:scrutinizer_2escm"),(void*)f_8573},
{C_text("f_8577:scrutinizer_2escm"),(void*)f_8577},
{C_text("f_8589:scrutinizer_2escm"),(void*)f_8589},
{C_text("f_8627:scrutinizer_2escm"),(void*)f_8627},
{C_text("f_8634:scrutinizer_2escm"),(void*)f_8634},
{C_text("f_8636:scrutinizer_2escm"),(void*)f_8636},
{C_text("f_8668:scrutinizer_2escm"),(void*)f_8668},
{C_text("f_8698:scrutinizer_2escm"),(void*)f_8698},
{C_text("f_8702:scrutinizer_2escm"),(void*)f_8702},
{C_text("f_8708:scrutinizer_2escm"),(void*)f_8708},
{C_text("f_8720:scrutinizer_2escm"),(void*)f_8720},
{C_text("f_8722:scrutinizer_2escm"),(void*)f_8722},
{C_text("f_8750:scrutinizer_2escm"),(void*)f_8750},
{C_text("f_8753:scrutinizer_2escm"),(void*)f_8753},
{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_8788:scrutinizer_2escm"),(void*)f_8788},
{C_text("f_8798:scrutinizer_2escm"),(void*)f_8798},
{C_text("f_8804:scrutinizer_2escm"),(void*)f_8804},
{C_text("f_8814:scrutinizer_2escm"),(void*)f_8814},
{C_text("f_8823:scrutinizer_2escm"),(void*)f_8823},
{C_text("f_8826:scrutinizer_2escm"),(void*)f_8826},
{C_text("f_8833:scrutinizer_2escm"),(void*)f_8833},
{C_text("f_8839:scrutinizer_2escm"),(void*)f_8839},
{C_text("f_8844:scrutinizer_2escm"),(void*)f_8844},
{C_text("f_8850:scrutinizer_2escm"),(void*)f_8850},
{C_text("f_8854:scrutinizer_2escm"),(void*)f_8854},
{C_text("f_8857:scrutinizer_2escm"),(void*)f_8857},
{C_text("f_8860:scrutinizer_2escm"),(void*)f_8860},
{C_text("f_8863:scrutinizer_2escm"),(void*)f_8863},
{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_8875:scrutinizer_2escm"),(void*)f_8875},
{C_text("f_8888:scrutinizer_2escm"),(void*)f_8888},
{C_text("f_8900:scrutinizer_2escm"),(void*)f_8900},
{C_text("f_8925:scrutinizer_2escm"),(void*)f_8925},
{C_text("f_8935:scrutinizer_2escm"),(void*)f_8935},
{C_text("f_8944:scrutinizer_2escm"),(void*)f_8944},
{C_text("f_8956:scrutinizer_2escm"),(void*)f_8956},
{C_text("f_8963:scrutinizer_2escm"),(void*)f_8963},
{C_text("f_8966:scrutinizer_2escm"),(void*)f_8966},
{C_text("f_8969:scrutinizer_2escm"),(void*)f_8969},
{C_text("f_9003:scrutinizer_2escm"),(void*)f_9003},
{C_text("f_9010:scrutinizer_2escm"),(void*)f_9010},
{C_text("f_9013:scrutinizer_2escm"),(void*)f_9013},
{C_text("f_9019:scrutinizer_2escm"),(void*)f_9019},
{C_text("f_9048:scrutinizer_2escm"),(void*)f_9048},
{C_text("f_9052:scrutinizer_2escm"),(void*)f_9052},
{C_text("f_9070:scrutinizer_2escm"),(void*)f_9070},
{C_text("f_9073:scrutinizer_2escm"),(void*)f_9073},
{C_text("f_9076:scrutinizer_2escm"),(void*)f_9076},
{C_text("f_9082:scrutinizer_2escm"),(void*)f_9082},
{C_text("f_9115:scrutinizer_2escm"),(void*)f_9115},
{C_text("f_9119:scrutinizer_2escm"),(void*)f_9119},
{C_text("f_9158:scrutinizer_2escm"),(void*)f_9158},
{C_text("f_9162:scrutinizer_2escm"),(void*)f_9162},
{C_text("f_9181:scrutinizer_2escm"),(void*)f_9181},
{C_text("f_9185:scrutinizer_2escm"),(void*)f_9185},
{C_text("f_9191:scrutinizer_2escm"),(void*)f_9191},
{C_text("f_9205:scrutinizer_2escm"),(void*)f_9205},
{C_text("f_9211:scrutinizer_2escm"),(void*)f_9211},
{C_text("f_9225:scrutinizer_2escm"),(void*)f_9225},
{C_text("f_9256:scrutinizer_2escm"),(void*)f_9256},
{C_text("f_9269:scrutinizer_2escm"),(void*)f_9269},
{C_text("f_9279:scrutinizer_2escm"),(void*)f_9279},
{C_text("f_9281:scrutinizer_2escm"),(void*)f_9281},
{C_text("f_9310:scrutinizer_2escm"),(void*)f_9310},
{C_text("f_9323:scrutinizer_2escm"),(void*)f_9323},
{C_text("f_9339:scrutinizer_2escm"),(void*)f_9339},
{C_text("f_9350:scrutinizer_2escm"),(void*)f_9350},
{C_text("f_9354:scrutinizer_2escm"),(void*)f_9354},
{C_text("f_9382:scrutinizer_2escm"),(void*)f_9382},
{C_text("f_9386:scrutinizer_2escm"),(void*)f_9386},
{C_text("f_9388:scrutinizer_2escm"),(void*)f_9388},
{C_text("f_9422:scrutinizer_2escm"),(void*)f_9422},
{C_text("f_9427:scrutinizer_2escm"),(void*)f_9427},
{C_text("f_9433:scrutinizer_2escm"),(void*)f_9433},
{C_text("f_9438:scrutinizer_2escm"),(void*)f_9438},
{C_text("f_9460:scrutinizer_2escm"),(void*)f_9460},
{C_text("f_9467:scrutinizer_2escm"),(void*)f_9467},
{C_text("f_9470:scrutinizer_2escm"),(void*)f_9470},
{C_text("f_9473:scrutinizer_2escm"),(void*)f_9473},
{C_text("f_9479:scrutinizer_2escm"),(void*)f_9479},
{C_text("f_9483:scrutinizer_2escm"),(void*)f_9483},
{C_text("f_9490:scrutinizer_2escm"),(void*)f_9490},
{C_text("f_9498:scrutinizer_2escm"),(void*)f_9498},
{C_text("f_9523:scrutinizer_2escm"),(void*)f_9523},
{C_text("f_9532:scrutinizer_2escm"),(void*)f_9532},
{C_text("f_9538:scrutinizer_2escm"),(void*)f_9538},
{C_text("f_9556:scrutinizer_2escm"),(void*)f_9556},
{C_text("f_9560:scrutinizer_2escm"),(void*)f_9560},
{C_text("f_9563:scrutinizer_2escm"),(void*)f_9563},
{C_text("f_9566:scrutinizer_2escm"),(void*)f_9566},
{C_text("f_9574:scrutinizer_2escm"),(void*)f_9574},
{C_text("f_9602:scrutinizer_2escm"),(void*)f_9602},
{C_text("f_9644:scrutinizer_2escm"),(void*)f_9644},
{C_text("f_9661:scrutinizer_2escm"),(void*)f_9661},
{C_text("f_9681:scrutinizer_2escm"),(void*)f_9681},
{C_text("f_9698:scrutinizer_2escm"),(void*)f_9698},
{C_text("f_9717:scrutinizer_2escm"),(void*)f_9717},
{C_text("f_9723:scrutinizer_2escm"),(void*)f_9723},
{C_text("f_9728:scrutinizer_2escm"),(void*)f_9728},
{C_text("f_9747:scrutinizer_2escm"),(void*)f_9747},
{C_text("f_9750:scrutinizer_2escm"),(void*)f_9750},
{C_text("f_9754:scrutinizer_2escm"),(void*)f_9754},
{C_text("f_9761:scrutinizer_2escm"),(void*)f_9761},
{C_text("f_9773:scrutinizer_2escm"),(void*)f_9773},
{C_text("f_9776:scrutinizer_2escm"),(void*)f_9776},
{C_text("f_9808:scrutinizer_2escm"),(void*)f_9808},
{C_text("f_9837:scrutinizer_2escm"),(void*)f_9837},
{C_text("f_9902:scrutinizer_2escm"),(void*)f_9902},
{C_text("f_9936:scrutinizer_2escm"),(void*)f_9936},
{C_text("f_9946:scrutinizer_2escm"),(void*)f_9946},
{C_text("f_9992:scrutinizer_2escm"),(void*)f_9992},
{C_text("f_9996:scrutinizer_2escm"),(void*)f_9996},
{C_text("f_9998:scrutinizer_2escm"),(void*)f_9998},
{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#constant737 
o|hiding unexported module binding: chicken.compiler.scrutinizer#constant744 
o|hiding unexported module binding: chicken.compiler.scrutinizer#constant752 
o|hiding unexported module binding: chicken.compiler.scrutinizer#constant761 
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#hash-table->list 
o|hiding unexported module binding: chicken.compiler.scrutinizer#symbol<? 
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		12
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: 465 
o|eliminated procedure checks: 1 
o|eliminated procedure checks: 1 
o|specializations:
o|  1 (scheme#< fixnum fixnum)
o|  1 (scheme#string-append string string)
o|  3 (scheme#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 * *)
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|  14 (chicken.base#add1 *)
o|  11 (scheme#length list)
o|  5 (scheme#zero? integer)
o|  16 (scheme#= fixnum fixnum)
o|  2 (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|  124 (scheme#cdr pair)
o|  129 (scheme#car pair)
(o e)|safe calls: 2533 
(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#symbol<? chicken.compiler.scrutinizer#hash-table->list 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#constant761 chicken.compiler.scrutinizer#constant752 chicken.compiler.scrutinizer#constant744 chicken.compiler.scrutinizer#constant737 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: k6941 
o|inlining procedure: k6941 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#drop 
o|merged explicitly consed rest parameter: lsts193 
o|inlining procedure: k7032 
o|inlining procedure: k7047 
o|inlining procedure: k7047 
o|inlining procedure: k7032 
o|inlining procedure: k7087 
o|inlining procedure: k7087 
o|inlining procedure: k7119 
o|contracted procedure: "(mini-srfi-1.scm:77) g246255" 
o|inlining procedure: k7119 
o|inlining procedure: k7168 
o|contracted procedure: "(mini-srfi-1.scm:76) g219228" 
o|inlining procedure: k7168 
o|inlining procedure: k7211 
o|inlining procedure: k7211 
o|inlining procedure: k7242 
o|inlining procedure: k7242 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#fifth 
o|inlining procedure: k7403 
o|inlining procedure: k7403 
o|contracted procedure: "(mini-srfi-1.scm:123) chicken.compiler.scrutinizer#delete" 
o|inlining procedure: k7328 
o|inlining procedure: k7328 
o|inlining procedure: k7459 
o|inlining procedure: k7459 
o|inlining procedure: k7451 
o|inlining procedure: k7451 
o|inlining procedure: k7506 
o|inlining procedure: k7506 
o|inlining procedure: k7495 
o|inlining procedure: k7495 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#remove 
o|inlining procedure: k7568 
o|contracted procedure: "(mini-srfi-1.scm:143) g397406" 
o|inlining procedure: k7568 
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: k7850 
o|inlining procedure: k7850 
o|inlining procedure: k7886 
o|inlining procedure: k7886 
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: rest565567 
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: out640643 ##sys#standard-output 
o|substituted constant variable: a8121 
o|substituted constant variable: a8122 
o|inlining procedure: k8114 
o|propagated global variable: out640643 ##sys#standard-output 
o|inlining procedure: k8114 
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:168) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k8166 
o|inlining procedure: k8184 
o|inlining procedure: "(scrutinizer.scm:174) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k8184 
o|substituted constant variable: a8198 
o|substituted constant variable: a8200 
o|inlining procedure: k8166 
o|substituted constant variable: a8205 
o|removed side-effect free assignment to unused variable: report787 
o|inlining procedure: k8246 
o|inlining procedure: k8246 
o|inlining procedure: k8258 
o|inlining procedure: k8258 
o|inlining procedure: k8273 
o|inlining procedure: k8273 
o|inlining procedure: k8285 
o|inlining procedure: k8285 
o|inlining procedure: k8297 
o|inlining procedure: k8297 
o|inlining procedure: k8309 
o|inlining procedure: k8309 
o|inlining procedure: k8312 
o|inlining procedure: k8312 
o|inlining procedure: k8337 
o|inlining procedure: k8337 
o|inlining procedure: k8368 
o|inlining procedure: k8368 
o|inlining procedure: k8399 
o|inlining procedure: k8399 
o|inlining procedure: k8431 
o|inlining procedure: k8431 
o|inlining procedure: k8462 
o|inlining procedure: k8462 
o|inlining procedure: k8547 
o|inlining procedure: k8547 
o|inlining procedure: k8556 
o|inlining procedure: k8556 
o|contracted procedure: "(scrutinizer.scm:240) chicken.compiler.scrutinizer#find" 
o|inlining procedure: k7963 
o|inlining procedure: k7963 
o|inlining procedure: k8578 
o|inlining procedure: k8578 
o|inlining procedure: k8593 
o|contracted procedure: "(scrutinizer.scm:248) g939940" 
o|inlining procedure: k8598 
o|inlining procedure: k8598 
o|inlining procedure: k8593 
o|contracted procedure: "(scrutinizer.scm:262) global-result809" 
o|inlining procedure: k8505 
o|consed rest parameter at call site: "(scrutinizer.scm:231) chicken.compiler.scrutinizer#r-deprecated-identifier" 4 
o|inlining procedure: k8505 
o|consed rest parameter at call site: "(scrutinizer.scm:234) chicken.compiler.scrutinizer#r-deprecated-identifier" 4 
o|inlining procedure: k8500 
o|inlining procedure: k8500 
o|inlining procedure: k8622 
o|inlining procedure: k8622 
o|inlining procedure: k8638 
o|inlining procedure: k8656 
o|inlining procedure: "(scrutinizer.scm:268) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k8656 
o|inlining procedure: "(scrutinizer.scm:269) chicken.compiler.scrutinizer#third" 
o|substituted constant variable: a8687 
o|substituted constant variable: a8689 
o|substituted constant variable: a8691 
o|inlining procedure: k8638 
o|substituted constant variable: a8696 
o|inlining procedure: k8703 
o|contracted procedure: "(scrutinizer.scm:276) chicken.compiler.scrutinizer#r-cond-test-always-true" 
o|consed rest parameter at call site: "(scrutinizer.scm:2846) chicken.compiler.scrutinizer#report-notice" 5 
o|inlining procedure: k8703 
o|inlining procedure: k8724 
o|inlining procedure: k8724 
o|inlining procedure: k8742 
o|inlining procedure: k8742 
o|inlining procedure: "(scrutinizer.scm:294) chicken.compiler.scrutinizer#first" 
o|substituted constant variable: a8758 
o|removed unused formal parameters: (typeenv994) 
o|inlining procedure: k8818 
o|contracted procedure: "(scrutinizer.scm:314) chicken.compiler.scrutinizer#r-invalid-called-procedure-type" 
o|inlining procedure: k21986 
o|inlining procedure: "(scrutinizer.scm:2572) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k21986 
o|inlining procedure: k22024 
o|inlining procedure: k22024 
o|inlining procedure: k8818 
o|consed rest parameter at call site: "(scrutinizer.scm:319) chicken.compiler.scrutinizer#procedure-argument-types" 4 
o|inlining procedure: k8902 
o|inlining procedure: k8902 
o|inlining procedure: k8945 
o|inlining procedure: k8945 
o|inlining procedure: k8970 
o|contracted procedure: "(scrutinizer.scm:398) g11401141" 
o|inlining procedure: k8970 
o|inlining procedure: k9005 
o|contracted procedure: "(scrutinizer.scm:347) chicken.compiler.scrutinizer#r-pred-call-always-true" 
o|consed rest parameter at call site: "(scrutinizer.scm:2797) chicken.compiler.scrutinizer#report-notice" 5 
o|inlining procedure: k9005 
o|inlining procedure: k9077 
o|inlining procedure: k9077 
o|contracted procedure: "(scrutinizer.scm:358) chicken.compiler.scrutinizer#r-pred-call-always-false" 
o|consed rest parameter at call site: "(scrutinizer.scm:2822) chicken.compiler.scrutinizer#report-notice" 5 
o|inlining procedure: k9159 
o|inlining procedure: k9159 
o|inlining procedure: k9193 
o|inlining procedure: k9226 
o|inlining procedure: k9226 
o|inlining procedure: "(scrutinizer.scm:389) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:390) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:387) chicken.compiler.scrutinizer#second" 
o|consed rest parameter at call site: "(scrutinizer.scm:381) chicken.compiler.scrutinizer#append-map" 3 
o|inlining procedure: "(scrutinizer.scm:379) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k9193 
o|contracted procedure: "(scrutinizer.scm:374) get-specializations817" 
o|inlining procedure: k8773 
o|inlining procedure: k8773 
o|inlining procedure: k8784 
o|inlining procedure: k8784 
o|inlining procedure: k9283 
o|inlining procedure: k9283 
o|contracted procedure: "(scrutinizer.scm:339) chicken.compiler.scrutinizer#procedure-result-types" 
o|inlining procedure: k15642 
o|inlining procedure: k15642 
o|inlining procedure: "(scrutinizer.scm:1462) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15663 
o|inlining procedure: k15685 
o|inlining procedure: k15685 
o|substituted constant variable: a15695 
o|inlining procedure: "(scrutinizer.scm:1466) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1466) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15663 
o|inlining procedure: "(scrutinizer.scm:1473) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k9312 
o|inlining procedure: k9312 
o|contracted procedure: "(scrutinizer.scm:321) chicken.compiler.scrutinizer#r-proc-call-argument-count-mismatch" 
o|consed rest parameter at call site: "(scrutinizer.scm:310) chicken.compiler.scrutinizer#append-map" 3 
o|consed rest parameter at call site: "(scrutinizer.scm:309) chicken.compiler.scrutinizer#make-list" 2 
o|inlining procedure: k9390 
o|inlining procedure: k9390 
o|inlining procedure: k9442 
o|inlining procedure: k9442 
o|removed unused formal parameters: (vars1205) 
o|inlining procedure: k9462 
o|inlining procedure: k9500 
o|inlining procedure: k9500 
o|consed rest parameter at call site: "(scrutinizer.scm:433) chicken.compiler.scrutinizer#procedure-argument-types" 4 
o|consed rest parameter at call site: "(scrutinizer.scm:434) chicken.compiler.scrutinizer#make-list" 2 
o|inlining procedure: k9462 
o|consed rest parameter at call site: "(scrutinizer.scm:435) chicken.compiler.scrutinizer#make-list" 2 
o|inlining procedure: k9549 
o|inlining procedure: k9549 
o|propagated global variable: a9571 chicken.compiler.scrutinizer#d-depth 
o|propagated global variable: a9576 chicken.compiler.scrutinizer#d-depth 
o|inlining procedure: "(scrutinizer.scm:448) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k9590 
o|inlining procedure: "(scrutinizer.scm:449) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k9590 
o|inlining procedure: k9613 
o|inlining procedure: k9613 
o|inlining procedure: "(scrutinizer.scm:452) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k9632 
o|inlining procedure: "(scrutinizer.scm:454) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k9632 
o|inlining procedure: "(scrutinizer.scm:456) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k9666 
o|inlining procedure: k9718 
o|inlining procedure: k9718 
o|inlining procedure: k9768 
o|contracted procedure: "(scrutinizer.scm:499) chicken.compiler.scrutinizer#r-cond-branch-value-count-mismatch" 
o|inlining procedure: k9768 
o|inlining procedure: k9780 
o|inlining procedure: k9780 
o|inlining procedure: k9810 
o|contracted procedure: "(scrutinizer.scm:505) g13541364" 
o|inlining procedure: k9810 
o|inlining procedure: k9858 
o|inlining procedure: k9858 
o|inlining procedure: k9904 
o|inlining procedure: k9904 
o|inlining procedure: k9938 
o|inlining procedure: k9938 
o|inlining procedure: k9960 
o|inlining procedure: k9960 
o|inlining procedure: k9969 
o|inlining procedure: k9969 
o|contracted procedure: "(scrutinizer.scm:472) always-false814" 
o|inlining procedure: k8715 
o|contracted procedure: "(scrutinizer.scm:281) chicken.compiler.scrutinizer#r-cond-test-always-false" 
o|consed rest parameter at call site: "(scrutinizer.scm:2862) chicken.compiler.scrutinizer#report-notice" 5 
o|inlining procedure: k8715 
o|inlining procedure: "(scrutinizer.scm:465) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:464) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:459) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k9666 
o|inlining procedure: k10023 
o|inlining procedure: k10023 
o|inlining procedure: k10071 
o|inlining procedure: k10071 
o|inlining procedure: "(scrutinizer.scm:520) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k10109 
o|inlining procedure: k10182 
o|inlining procedure: k10182 
o|inlining procedure: "(scrutinizer.scm:541) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k10321 
o|contracted procedure: "(scrutinizer.scm:531) g14241434" 
o|inlining procedure: k10321 
o|inlining procedure: k10370 
o|inlining procedure: k10370 
o|removed unused parameter to known procedure: vars1205 "(scrutinizer.scm:529) initial-argument-types821" 
o|inlining procedure: "(scrutinizer.scm:526) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k10109 
o|inlining procedure: k10409 
o|inlining procedure: k10409 
o|inlining procedure: k10438 
o|inlining procedure: k10438 
o|inlining procedure: k10483 
o|inlining procedure: k10483 
o|inlining procedure: k10510 
o|inlining procedure: k10510 
o|inlining procedure: k10541 
o|substituted constant variable: a10573 
o|substituted constant variable: a10574 
o|removed unused parameter to known procedure: where1941 "(scrutinizer.scm:606) chicken.compiler.scrutinizer#smash-component-types!" 
o|inlining procedure: k10607 
o|inlining procedure: k10607 
o|inlining procedure: "(scrutinizer.scm:601) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k10541 
o|inlining procedure: k10635 
o|inlining procedure: k10635 
o|contracted procedure: "(scrutinizer.scm:594) chicken.compiler.scrutinizer#r-toplevel-var-assignment-type-mismatch" 
o|inlining procedure: k23068 
o|inlining procedure: k23068 
o|inlining procedure: "(scrutinizer.scm:594) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k10672 
o|inlining procedure: k10695 
o|inlining procedure: k10695 
o|inlining procedure: k10672 
o|inlining procedure: "(scrutinizer.scm:583) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:581) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:579) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k10738 
o|inlining procedure: k10738 
o|removed unused parameter to known procedure: typeenv994 "(scrutinizer.scm:688) call-result818" 
o|inlining procedure: k10825 
o|removed unused parameter to known procedure: where1941 "(scrutinizer.scm:696) chicken.compiler.scrutinizer#smash-component-types!" 
o|removed unused parameter to known procedure: where1941 "(scrutinizer.scm:695) chicken.compiler.scrutinizer#smash-component-types!" 
o|inlining procedure: k10825 
o|inlining procedure: k10843 
o|inlining procedure: k10843 
o|inlining procedure: k10863 
o|inlining procedure: k10895 
o|inlining procedure: k10895 
o|inlining procedure: k10863 
o|inlining procedure: k10937 
o|inlining procedure: k10973 
o|inlining procedure: k10973 
o|inlining procedure: k10999 
o|inlining procedure: k10999 
o|inlining procedure: k11008 
o|inlining procedure: k11023 
o|inlining procedure: k11023 
o|inlining procedure: k11008 
o|inlining procedure: k11069 
o|inlining procedure: k11069 
o|inlining procedure: "(scrutinizer.scm:714) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:711) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k10937 
o|inlining procedure: k11112 
o|inlining procedure: k11112 
o|inlining procedure: k11135 
o|inlining procedure: k11135 
o|inlining procedure: k11169 
o|inlining procedure: k11169 
o|consed rest parameter at call site: "(scrutinizer.scm:761) chicken.compiler.scrutinizer#procedure-argument-types" 4 
o|inlining procedure: k11245 
o|inlining procedure: k11245 
o|inlining procedure: k11283 
o|inlining procedure: k11283 
o|contracted procedure: "(scrutinizer.scm:679) chicken.compiler.scrutinizer#iota" 
o|inlining procedure: k11328 
o|inlining procedure: k11349 
o|contracted procedure: "(scrutinizer.scm:770) chicken.compiler.scrutinizer#r-zero-values-for-the" 
o|inlining procedure: "(scrutinizer.scm:770) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k11349 
o|contracted procedure: "(scrutinizer.scm:777) chicken.compiler.scrutinizer#r-type-mismatch-in-the" 
o|inlining procedure: "(scrutinizer.scm:777) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:777) chicken.compiler.scrutinizer#first" 
o|consed rest parameter at call site: "(scrutinizer.scm:775) chicken.compiler.scrutinizer#compatible-types?" 3 
o|inlining procedure: "(scrutinizer.scm:775) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:774) chicken.compiler.scrutinizer#second" 
o|contracted procedure: "(scrutinizer.scm:773) chicken.compiler.scrutinizer#r-too-many-values-for-the" 
o|inlining procedure: "(scrutinizer.scm:773) chicken.compiler.scrutinizer#first" 
o|substituted constant variable: a11414 
o|inlining procedure: "(scrutinizer.scm:768) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:767) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k11328 
o|inlining procedure: k11445 
o|contracted procedure: "(scrutinizer.scm:786) chicken.compiler.scrutinizer#fail-compiler-typecase" 
o|consed rest parameter at call site: "(scrutinizer.scm:2937) chicken.compiler.scrutinizer#string-add-indent" 2 
o|inlining procedure: k22941 
o|inlining procedure: k22941 
o|consed rest parameter at call site: "(scrutinizer.scm:2960) chicken.compiler.scrutinizer#location-name" 2 
o|substituted constant variable: a22972 
o|inlining procedure: k11445 
o|inlining procedure: "(scrutinizer.scm:780) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k11515 
o|inlining procedure: k11515 
o|inlining procedure: k11541 
o|inlining procedure: k11541 
o|substituted constant variable: a11565 
o|substituted constant variable: a11567 
o|substituted constant variable: a11569 
o|substituted constant variable: a11571 
o|substituted constant variable: a11573 
o|substituted constant variable: a11575 
o|substituted constant variable: a11580 
o|substituted constant variable: a11582 
o|substituted constant variable: a11587 
o|substituted constant variable: a11589 
o|substituted constant variable: a11591 
o|substituted constant variable: a11593 
o|substituted constant variable: a11595 
o|substituted constant variable: a11597 
o|substituted constant variable: a11599 
o|substituted constant variable: a11601 
o|substituted constant variable: a11603 
o|substituted constant variable: a11605 
o|substituted constant variable: a11607 
o|inlining procedure: k11626 
o|inlining procedure: k11626 
o|inlining procedure: k11691 
o|contracted procedure: "(scrutinizer.scm:810) g18901897" 
o|propagated global variable: out19001903 ##sys#standard-output 
o|substituted constant variable: a11659 
o|substituted constant variable: a11660 
o|propagated global variable: out19001903 ##sys#standard-output 
o|inlining procedure: k11691 
o|propagated global variable: g18961898 chicken.compiler.scrutinizer#specialization-statistics 
o|inlining procedure: "(scrutinizer.scm:804) chicken.compiler.scrutinizer#first" 
o|removed unused formal parameters: (where1941) 
o|inlining procedure: k11736 
o|inlining procedure: k11736 
o|inlining procedure: k11766 
o|inlining procedure: k11786 
o|inlining procedure: k11820 
o|inlining procedure: k11820 
o|inlining procedure: k11786 
o|inlining procedure: k11867 
o|inlining procedure: k11867 
o|inlining procedure: "(scrutinizer.scm:856) chicken.compiler.scrutinizer#third" 
o|substituted constant variable: a11905 
o|substituted constant variable: a11907 
o|substituted constant variable: a11912 
o|substituted constant variable: a11914 
o|substituted constant variable: a11916 
o|substituted constant variable: a11918 
o|inlining procedure: k11766 
o|inlining procedure: k11950 
o|inlining procedure: k11962 
o|inlining procedure: k11962 
o|inlining procedure: "(scrutinizer.scm:882) optargs?2050" 
o|inlining procedure: k11950 
o|inlining procedure: k11978 
o|inlining procedure: k11978 
o|inlining procedure: "(scrutinizer.scm:885) optargs?2050" 
o|inlining procedure: k11988 
o|inlining procedure: k11988 
o|inlining procedure: k12010 
o|removed unused parameter to known procedure: opt2080 "(scrutinizer.scm:891) match-rest2049" 
o|inlining procedure: k12010 
o|removed unused parameter to known procedure: opt2080 "(scrutinizer.scm:893) match-rest2049" 
o|inlining procedure: k12040 
o|inlining procedure: k12040 
o|removed unused formal parameters: (opt2080) 
o|contracted procedure: "(scrutinizer.scm:899) chicken.compiler.scrutinizer#span" 
o|inlining procedure: k6897 
o|inlining procedure: k6897 
o|inlining procedure: k12094 
o|inlining procedure: k12104 
o|inlining procedure: k12104 
o|inlining procedure: k12094 
o|inlining procedure: k12121 
o|inlining procedure: k12121 
o|substituted constant variable: a12131 
o|inlining procedure: k12138 
o|inlining procedure: k12138 
o|inlining procedure: k12150 
o|inlining procedure: k12150 
o|inlining procedure: k12168 
o|inlining procedure: k12168 
o|substituted constant variable: a12194 
o|substituted constant variable: a12199 
o|inlining procedure: k12234 
o|inlining procedure: k12234 
o|inlining procedure: k12267 
o|inlining procedure: k12267 
o|inlining procedure: k12278 
o|inlining procedure: k12293 
o|inlining procedure: k12293 
o|inlining procedure: "(scrutinizer.scm:941) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:940) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:939) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12278 
o|inlining procedure: k12322 
o|inlining procedure: k12322 
o|inlining procedure: k12334 
o|inlining procedure: k12334 
o|inlining procedure: "(scrutinizer.scm:951) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:950) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:949) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:948) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12359 
o|inlining procedure: k12359 
o|inlining procedure: "(scrutinizer.scm:953) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:952) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:938) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12410 
o|inlining procedure: k12425 
o|inlining procedure: k12425 
o|inlining procedure: "(scrutinizer.scm:964) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:963) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:962) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12410 
o|inlining procedure: "(scrutinizer.scm:966) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:965) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:961) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12405 
o|inlining procedure: k12405 
o|inlining procedure: k12486 
o|inlining procedure: k12486 
o|inlining procedure: k12501 
o|inlining procedure: k12501 
o|inlining procedure: k12516 
o|inlining procedure: k12516 
o|inlining procedure: k12536 
o|inlining procedure: k12536 
o|inlining procedure: k12585 
o|inlining procedure: k12585 
o|inlining procedure: k12645 
o|inlining procedure: k12645 
o|inlining procedure: "(scrutinizer.scm:1009) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k12677 
o|inlining procedure: "(scrutinizer.scm:1011) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k12677 
o|inlining procedure: k12696 
o|inlining procedure: k12696 
o|inlining procedure: k12707 
o|inlining procedure: k12719 
o|inlining procedure: k12719 
o|inlining procedure: k12707 
o|inlining procedure: k12736 
o|inlining procedure: k12736 
o|inlining procedure: k12753 
o|inlining procedure: k12753 
o|inlining procedure: k12779 
o|inlining procedure: k12779 
o|inlining procedure: k12815 
o|inlining procedure: k12815 
o|inlining procedure: "(scrutinizer.scm:1033) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1033) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12850 
o|inlining procedure: k12850 
o|inlining procedure: k12890 
o|contracted procedure: "(scrutinizer.scm:1040) chicken.compiler.scrutinizer#lset<=/eq?" 
o|inlining procedure: "(scrutinizer.scm:1040) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1040) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12890 
o|inlining procedure: "(scrutinizer.scm:1038) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1038) chicken.compiler.scrutinizer#third" 
o|substituted constant variable: a12922 
o|substituted constant variable: a12927 
o|substituted constant variable: a12929 
o|substituted constant variable: a12934 
o|substituted constant variable: a12936 
o|substituted constant variable: a12938 
o|substituted constant variable: a12940 
o|substituted constant variable: a12942 
o|inlining procedure: k12943 
o|inlining procedure: "(scrutinizer.scm:1043) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k12943 
o|inlining procedure: "(scrutinizer.scm:1045) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k12975 
o|inlining procedure: k12988 
o|inlining procedure: k13000 
o|inlining procedure: "(scrutinizer.scm:1052) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k13000 
o|inlining procedure: "(scrutinizer.scm:1051) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1051) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k12988 
o|inlining procedure: k13027 
o|inlining procedure: k13047 
o|inlining procedure: k13047 
o|inlining procedure: "(scrutinizer.scm:1056) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1055) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1055) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k13027 
o|substituted constant variable: a13074 
o|substituted constant variable: a13076 
o|inlining procedure: k12975 
o|inlining procedure: k13083 
o|inlining procedure: k13096 
o|inlining procedure: "(scrutinizer.scm:1067) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1066) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1066) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k13096 
o|inlining procedure: k13123 
o|inlining procedure: k13135 
o|inlining procedure: "(scrutinizer.scm:1074) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k13135 
o|inlining procedure: "(scrutinizer.scm:1070) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1070) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k13123 
o|substituted constant variable: a13176 
o|substituted constant variable: a13178 
o|inlining procedure: k13083 
o|inlining procedure: k13179 
o|inlining procedure: k13191 
o|inlining procedure: "(scrutinizer.scm:1083) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k13191 
o|inlining procedure: k13179 
o|inlining procedure: k13227 
o|inlining procedure: "(scrutinizer.scm:1090) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k13227 
o|inlining procedure: k13255 
o|inlining procedure: k13267 
o|inlining procedure: "(scrutinizer.scm:1098) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k13267 
o|inlining procedure: k13255 
o|inlining procedure: k13303 
o|inlining procedure: "(scrutinizer.scm:1105) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k13303 
o|inlining procedure: k13398 
o|inlining procedure: k13398 
o|inlining procedure: k13520 
o|inlining procedure: k13520 
o|inlining procedure: k13538 
o|inlining procedure: k13538 
o|inlining procedure: k13560 
o|inlining procedure: k13560 
o|inlining procedure: k13595 
o|inlining procedure: "(scrutinizer.scm:1160) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k13633 
o|inlining procedure: k13633 
o|inlining procedure: k13670 
o|contracted procedure: "(scrutinizer.scm:1149) g24452454" 
o|contracted procedure: "(scrutinizer.scm:1151) chicken.compiler.scrutinizer#make-tv" 
o|substituted constant variable: a15988 
o|inlining procedure: "(scrutinizer.scm:1150) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k13670 
o|inlining procedure: "(scrutinizer.scm:1147) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k13701 
o|inlining procedure: k13716 
o|inlining procedure: k13716 
o|inlining procedure: k13732 
o|inlining procedure: k13808 
o|contracted procedure: "(scrutinizer.scm:1171) g25142519" 
o|contracted procedure: "(scrutinizer.scm:1183) chicken.compiler.scrutinizer#merge-result-types" 
o|inlining procedure: k14736 
o|inlining procedure: k14736 
o|inlining procedure: k13792 
o|inlining procedure: k13792 
o|inlining procedure: k13808 
o|inlining procedure: k13732 
o|inlining procedure: k13841 
o|inlining procedure: k13841 
o|inlining procedure: k13859 
o|inlining procedure: k13859 
o|inlining procedure: k13877 
o|inlining procedure: k13877 
o|inlining procedure: k13895 
o|inlining procedure: k13895 
o|inlining procedure: k13960 
o|inlining procedure: k13960 
o|inlining procedure: k13978 
o|inlining procedure: k13978 
o|consed rest parameter at call site: "(scrutinizer.scm:1190) chicken.compiler.scrutinizer#append-map" 3 
o|substituted constant variable: a14002 
o|inlining procedure: k14021 
o|inlining procedure: k14021 
o|inlining procedure: k13701 
o|inlining procedure: k14064 
o|inlining procedure: k14064 
o|inlining procedure: "(scrutinizer.scm:1215) chicken.compiler.scrutinizer#third" 
o|contracted procedure: "(scrutinizer.scm:1215) chicken.compiler.scrutinizer#lset-union/eq?" 
o|inlining procedure: k7802 
o|contracted procedure: "(mini-srfi-1.scm:171) g472477" 
o|inlining procedure: k7775 
o|contracted procedure: "(mini-srfi-1.scm:173) g484489" 
o|inlining procedure: k7751 
o|inlining procedure: k7751 
o|inlining procedure: k7775 
o|inlining procedure: k7802 
o|inlining procedure: "(scrutinizer.scm:1215) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1212) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1211) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k14102 
o|inlining procedure: "(scrutinizer.scm:1220) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1219) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k14102 
o|inlining procedure: k14150 
o|inlining procedure: k14150 
o|inlining procedure: "(scrutinizer.scm:1226) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k14165 
o|inlining procedure: "(scrutinizer.scm:1231) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k14165 
o|inlining procedure: k14195 
o|inlining procedure: k14195 
o|inlining procedure: k14218 
o|inlining procedure: k14218 
o|inlining procedure: k14251 
o|inlining procedure: k14274 
o|inlining procedure: k14274 
o|inlining procedure: k14251 
o|inlining procedure: k14329 
o|inlining procedure: k14329 
o|inlining procedure: k14347 
o|inlining procedure: k14347 
o|inlining procedure: k14394 
o|inlining procedure: k14394 
o|inlining procedure: "(scrutinizer.scm:1247) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1247) chicken.compiler.scrutinizer#second" 
o|substituted constant variable: a14447 
o|substituted constant variable: a14449 
o|substituted constant variable: a14451 
o|substituted constant variable: a14453 
o|substituted constant variable: a14455 
o|substituted constant variable: a14457 
o|substituted constant variable: a14459 
o|substituted constant variable: a14461 
o|substituted constant variable: a14463 
o|inlining procedure: k13595 
o|contracted procedure: "(scrutinizer.scm:1254) chicken.compiler.scrutinizer#lset-adjoin/eq?" 
o|inlining procedure: k7667 
o|inlining procedure: k7667 
o|inlining procedure: k14485 
o|inlining procedure: k14505 
o|inlining procedure: k14505 
o|inlining procedure: k14485 
o|inlining procedure: k14543 
o|substituted constant variable: chicken.compiler.scrutinizer#constant761 
o|inlining procedure: k14543 
o|inlining procedure: k14555 
o|substituted constant variable: a14574 
o|inlining procedure: k14567 
o|inlining procedure: k14567 
o|inlining procedure: k14555 
o|inlining procedure: k14581 
o|inlining procedure: k14581 
o|inlining procedure: k14632 
o|inlining procedure: k14632 
o|substituted constant variable: a14688 
o|inlining procedure: k14681 
o|inlining procedure: k14681 
o|merged explicitly consed rest parameter: rest27922795 
o|inlining procedure: k14799 
o|inlining procedure: k14799 
o|contracted procedure: "(scrutinizer.scm:1325) chicken.compiler.scrutinizer#with-trail-restore" 
o|inlining procedure: k15186 
o|inlining procedure: k15186 
o|contracted procedure: "(scrutinizer.scm:1368) refine2846" 
o|inlining procedure: k14892 
o|inlining procedure: k14892 
o|inlining procedure: k14917 
o|inlining procedure: "(scrutinizer.scm:1345) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1344) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k14917 
o|inlining procedure: k14953 
o|inlining procedure: "(scrutinizer.scm:1348) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k14953 
o|inlining procedure: "(scrutinizer.scm:1347) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k14971 
o|inlining procedure: k14971 
o|inlining procedure: k14986 
o|inlining procedure: k14986 
o|inlining procedure: k15005 
o|inlining procedure: k15043 
o|inlining procedure: k15043 
o|inlining procedure: k15005 
o|contracted procedure: "(scrutinizer.scm:1365) chicken.compiler.scrutinizer#type-min" 
o|inlining procedure: k14824 
o|inlining procedure: k14824 
o|substituted constant variable: a15099 
o|inlining procedure: k15094 
o|inlining procedure: k15106 
o|inlining procedure: k15106 
o|inlining procedure: k15094 
o|inlining procedure: k15138 
o|inlining procedure: k15150 
o|inlining procedure: k15150 
o|inlining procedure: k15138 
o|substituted constant variable: a15170 
o|substituted constant variable: a15176 
o|inlining procedure: k15205 
o|inlining procedure: k15205 
o|inlining procedure: k15215 
o|inlining procedure: "(scrutinizer.scm:1379) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15215 
o|inlining procedure: k15234 
o|inlining procedure: k15234 
o|substituted constant variable: a15246 
o|substituted constant variable: a15248 
o|substituted constant variable: a15250 
o|inlining procedure: k15254 
o|inlining procedure: "(scrutinizer.scm:1387) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15274 
o|inlining procedure: k15292 
o|inlining procedure: k15292 
o|inlining procedure: k15274 
o|substituted constant variable: a15299 
o|substituted constant variable: a15301 
o|inlining procedure: k15254 
o|inlining procedure: k15305 
o|inlining procedure: "(scrutinizer.scm:1398) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15325 
o|inlining procedure: "(scrutinizer.scm:1402) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1403) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1400) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15325 
o|substituted constant variable: a15356 
o|substituted constant variable: a15358 
o|inlining procedure: k15305 
o|inlining procedure: k15362 
o|inlining procedure: "(scrutinizer.scm:1409) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15382 
o|inlining procedure: "(scrutinizer.scm:1411) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15382 
o|substituted constant variable: a15413 
o|substituted constant variable: a15415 
o|inlining procedure: k15362 
o|merged explicitly consed rest parameter: rest29973001 
o|inlining procedure: k15428 
o|inlining procedure: k15447 
o|inlining procedure: k15447 
o|inlining procedure: k15464 
o|inlining procedure: k15464 
o|inlining procedure: k15472 
o|consed rest parameter at call site: "(scrutinizer.scm:1442) chicken.compiler.scrutinizer#make-list" 2 
o|inlining procedure: k15472 
o|inlining procedure: "(scrutinizer.scm:1427) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1428) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1426) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1426) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15428 
o|inlining procedure: "(scrutinizer.scm:1450) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15585 
o|inlining procedure: k15585 
o|inlining procedure: "(scrutinizer.scm:1453) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15577 
o|inlining procedure: k15577 
o|consed rest parameter at call site: "(scrutinizer.scm:1457) chicken.compiler.scrutinizer#make-list" 2 
o|inlining procedure: k15770 
o|inlining procedure: k15790 
o|inlining procedure: k15790 
o|inlining procedure: k15803 
o|inlining procedure: "(scrutinizer.scm:1482) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15803 
o|substituted constant variable: a15817 
o|substituted constant variable: a15819 
o|inlining procedure: k15770 
o|inlining procedure: k15823 
o|inlining procedure: k15823 
o|inlining procedure: k15843 
o|inlining procedure: k15856 
o|inlining procedure: k15866 
o|inlining procedure: k15866 
o|inlining procedure: "(scrutinizer.scm:1496) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k15856 
o|inlining procedure: k15882 
o|inlining procedure: "(scrutinizer.scm:1500) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15882 
o|substituted constant variable: a15896 
o|substituted constant variable: a15898 
o|inlining procedure: k15843 
o|inlining procedure: k15905 
o|inlining procedure: k15905 
o|inlining procedure: k15915 
o|inlining procedure: k15915 
o|inlining procedure: "(scrutinizer.scm:1508) chicken.compiler.scrutinizer#third" 
o|substituted constant variable: a15940 
o|substituted constant variable: a15942 
o|inlining procedure: k15946 
o|inlining procedure: k15961 
o|inlining procedure: "(scrutinizer.scm:1517) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k15961 
o|substituted constant variable: a15975 
o|substituted constant variable: a15977 
o|inlining procedure: "(scrutinizer.scm:1515) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k15946 
o|inlining procedure: k15999 
o|inlining procedure: "(scrutinizer.scm:1535) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k16019 
o|inlining procedure: k16043 
o|inlining procedure: k16061 
o|inlining procedure: k16061 
o|inlining procedure: k16043 
o|inlining procedure: k16088 
o|inlining procedure: k16088 
o|inlining procedure: "(scrutinizer.scm:1538) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k16117 
o|inlining procedure: k16134 
o|inlining procedure: k16134 
o|inlining procedure: k16117 
o|inlining procedure: k16161 
o|inlining procedure: k16161 
o|inlining procedure: "(scrutinizer.scm:1542) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1537) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1537) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k16019 
o|inlining procedure: "(scrutinizer.scm:1552) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k16247 
o|contracted procedure: "(scrutinizer.scm:1546) g32323241" 
o|inlining procedure: k16215 
o|inlining procedure: k16215 
o|inlining procedure: "(scrutinizer.scm:1549) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1549) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k16247 
o|inlining procedure: "(scrutinizer.scm:1550) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k16278 
o|inlining procedure: k16294 
o|inlining procedure: k16294 
o|inlining procedure: k16278 
o|substituted constant variable: a16315 
o|substituted constant variable: a16317 
o|substituted constant variable: a16319 
o|substituted constant variable: a16321 
o|inlining procedure: k15999 
o|inlining procedure: k16331 
o|inlining procedure: k16331 
o|inlining procedure: k16389 
o|inlining procedure: "(scrutinizer.scm:1579) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1578) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k16389 
o|inlining procedure: k16425 
o|inlining procedure: k16425 
o|inlining procedure: "(scrutinizer.scm:1574) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k16381 
o|inlining procedure: k16381 
o|inlining procedure: k16440 
o|inlining procedure: k16440 
o|inlining procedure: k16458 
o|inlining procedure: k16486 
o|inlining procedure: k16486 
o|inlining procedure: k16458 
o|inlining procedure: "(scrutinizer.scm:1589) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k16534 
o|inlining procedure: "(scrutinizer.scm:1591) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1591) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k16534 
o|inlining procedure: k16593 
o|inlining procedure: k16593 
o|inlining procedure: k16624 
o|inlining procedure: k16659 
o|inlining procedure: k16659 
o|inlining procedure: k16682 
o|inlining procedure: k16682 
o|inlining procedure: k16716 
o|inlining procedure: k16716 
o|inlining procedure: k16728 
o|inlining procedure: k16728 
o|inlining procedure: k16747 
o|inlining procedure: k16747 
o|inlining procedure: k16624 
o|substituted constant variable: a16789 
o|inlining procedure: k16793 
o|inlining procedure: k16793 
o|inlining procedure: k16805 
o|inlining procedure: k16805 
o|substituted constant variable: a16812 
o|substituted constant variable: a16814 
o|substituted constant variable: a16816 
o|substituted constant variable: a16818 
o|substituted constant variable: a16820 
o|substituted constant variable: a16825 
o|substituted constant variable: a16827 
o|substituted constant variable: a16829 
o|substituted constant variable: a16831 
o|inlining procedure: k16845 
o|inlining procedure: k17167 
o|contracted procedure: "(scrutinizer.scm:1624) g34933500" 
o|inlining procedure: k16900 
o|inlining procedure: k16900 
o|consed rest parameter at call site: "(scrutinizer.scm:1669) chicken.compiler.scrutinizer#compatible-types?" 3 
o|substituted constant variable: a16943 
o|substituted constant variable: a16944 
o|inlining procedure: k16976 
o|inlining procedure: k17003 
o|inlining procedure: k17003 
o|inlining procedure: k17026 
o|inlining procedure: k17026 
o|inlining procedure: k17054 
o|inlining procedure: k17054 
o|substituted constant variable: a17094 
o|substituted constant variable: a17096 
o|substituted constant variable: a17098 
o|substituted constant variable: a17100 
o|substituted constant variable: a17102 
o|inlining procedure: k17109 
o|inlining procedure: "(scrutinizer.scm:1658) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1658) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k17109 
o|inlining procedure: k16976 
o|inlining procedure: k17167 
o|substituted constant variable: a17197 
o|substituted constant variable: a17198 
o|inlining procedure: k16845 
o|inlining procedure: k17217 
o|inlining procedure: k17217 
o|inlining procedure: k17328 
o|contracted procedure: "(scrutinizer.scm:1721) chicken.compiler.scrutinizer#cons*" 
o|inlining procedure: k7272 
o|inlining procedure: k7272 
o|inlining procedure: k17375 
o|inlining procedure: k17434 
o|inlining procedure: k17434 
o|inlining procedure: k17440 
o|inlining procedure: "(scrutinizer.scm:1734) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1734) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k17440 
o|substituted constant variable: a17462 
o|substituted constant variable: a17464 
o|inlining procedure: k17375 
o|inlining procedure: k17328 
o|substituted constant variable: a17472 
o|inlining procedure: k17488 
o|inlining procedure: k17488 
o|contracted procedure: "(scrutinizer.scm:1740) chicken.compiler.scrutinizer#symbol<?" 
o|contracted procedure: "(scrutinizer.scm:1739) chicken.compiler.scrutinizer#hash-table->list" 
o|inlining procedure: k17247 
o|inlining procedure: k17247 
o|inlining procedure: k17263 
o|inlining procedure: k17263 
o|merged explicitly consed rest parameter: rest36633665 
o|inlining procedure: k17558 
o|inlining procedure: k17558 
o|consed rest parameter at call site: "(scrutinizer.scm:1761) chicken.compiler.scrutinizer#source-node" 2 
o|inlining procedure: k17612 
o|inlining procedure: k17612 
o|consed rest parameter at call site: "(scrutinizer.scm:1764) chicken.compiler.scrutinizer#source-node" 2 
o|inlining procedure: k17717 
o|inlining procedure: k17730 
o|inlining procedure: k17730 
o|inlining procedure: k17745 
o|inlining procedure: k17745 
o|inlining procedure: k17717 
o|inlining procedure: k17781 
o|inlining procedure: k17781 
o|inlining procedure: k17819 
o|inlining procedure: k17819 
o|substituted constant variable: a17839 
o|substituted constant variable: a17851 
o|inlining procedure: k17904 
o|inlining procedure: k17904 
o|inlining procedure: k17932 
o|inlining procedure: k17932 
o|inlining procedure: k17944 
o|inlining procedure: k17944 
o|inlining procedure: k17962 
o|inlining procedure: k17962 
o|inlining procedure: k17970 
o|inlining procedure: k17985 
o|inlining procedure: k17985 
o|inlining procedure: k17970 
o|inlining procedure: k18024 
o|inlining procedure: k18024 
o|inlining procedure: k18065 
o|inlining procedure: k18065 
o|inlining procedure: k18077 
o|inlining procedure: k18077 
o|inlining procedure: k18092 
o|inlining procedure: k18092 
o|inlining procedure: k18104 
o|inlining procedure: k18104 
o|inlining procedure: k18116 
o|inlining procedure: k18116 
o|inlining procedure: k18128 
o|inlining procedure: k18128 
o|inlining procedure: k18146 
o|inlining procedure: "(scrutinizer.scm:1879) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k18146 
o|substituted constant variable: a18163 
o|inlining procedure: k18168 
o|inlining procedure: k18180 
o|inlining procedure: "(scrutinizer.scm:1905) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k18214 
o|inlining procedure: k18229 
o|inlining procedure: k18229 
o|inlining procedure: k18214 
o|inlining procedure: "(scrutinizer.scm:1903) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k18249 
o|inlining procedure: k18249 
o|inlining procedure: k18270 
o|inlining procedure: k18270 
o|substituted constant variable: a18283 
o|inlining procedure: k18298 
o|inlining procedure: k18298 
o|inlining procedure: "(scrutinizer.scm:1893) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k18180 
o|inlining procedure: "(scrutinizer.scm:1882) chicken.compiler.scrutinizer#second" 
o|substituted constant variable: a18333 
o|inlining procedure: k18168 
o|inlining procedure: k18346 
o|inlining procedure: k18346 
o|inlining procedure: k18359 
o|inlining procedure: k18371 
o|inlining procedure: k18401 
o|inlining procedure: k18401 
o|inlining procedure: k18371 
o|inlining procedure: k18359 
o|inlining procedure: k18446 
o|inlining procedure: "(scrutinizer.scm:1922) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k18446 
o|substituted constant variable: a18462 
o|inlining procedure: k18467 
o|inlining procedure: k18479 
o|inlining procedure: k18479 
o|inlining procedure: "(scrutinizer.scm:1924) chicken.compiler.scrutinizer#second" 
o|substituted constant variable: a18489 
o|inlining procedure: k18467 
o|inlining procedure: k18500 
o|inlining procedure: k18539 
o|inlining procedure: "(scrutinizer.scm:1931) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:1930) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k18539 
o|inlining procedure: "(scrutinizer.scm:1929) chicken.compiler.scrutinizer#second" 
o|contracted procedure: "(scrutinizer.scm:1928) g39253926" 
o|inlining procedure: k18530 
o|inlining procedure: k18530 
o|contracted procedure: "(scrutinizer.scm:162) g39313932" 
o|inlining procedure: k18516 
o|inlining procedure: k18516 
o|inlining procedure: "(scrutinizer.scm:1927) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k18500 
o|substituted constant variable: a18570 
o|inlining procedure: k18601 
o|contracted procedure: "(scrutinizer.scm:1941) upto3755" 
o|inlining procedure: k17876 
o|inlining procedure: k17876 
o|inlining procedure: k18601 
o|inlining procedure: k18641 
o|inlining procedure: k18641 
o|inlining procedure: "(scrutinizer.scm:1946) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:1946) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k18671 
o|inlining procedure: k18671 
o|substituted constant variable: a18688 
o|inlining procedure: k18581 
o|inlining procedure: k18581 
o|substituted constant variable: a18711 
o|inlining procedure: k18712 
o|inlining procedure: k18727 
o|inlining procedure: k18727 
o|inlining procedure: "(scrutinizer.scm:1955) chicken.compiler.scrutinizer#second" 
o|substituted constant variable: a18741 
o|inlining procedure: k18712 
o|substituted constant variable: a18753 
o|inlining procedure: k18746 
o|inlining procedure: k18770 
o|inlining procedure: k18770 
o|inlining procedure: k18746 
o|inlining procedure: k18819 
o|inlining procedure: k18849 
o|inlining procedure: k18849 
o|inlining procedure: k18819 
o|substituted constant variable: a18880 
o|inlining procedure: k18885 
o|inlining procedure: k18903 
o|inlining procedure: k18918 
o|inlining procedure: k18931 
o|inlining procedure: k18931 
o|inlining procedure: k18961 
o|inlining procedure: k18982 
o|inlining procedure: k18982 
o|inlining procedure: k18961 
o|inlining procedure: k18918 
o|inlining procedure: k18903 
o|inlining procedure: k18885 
o|inlining procedure: k19074 
o|inlining procedure: k19086 
o|inlining procedure: "(scrutinizer.scm:1910) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k19086 
o|inlining procedure: "(scrutinizer.scm:1908) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k19074 
o|substituted constant variable: chicken.compiler.scrutinizer#constant752 
o|inlining procedure: k19153 
o|inlining procedure: k19153 
o|inlining procedure: k19188 
o|inlining procedure: k19188 
o|inlining procedure: k19214 
o|inlining procedure: k19214 
o|inlining procedure: k19138 
o|inlining procedure: k19138 
o|inlining procedure: k19273 
o|inlining procedure: k19273 
o|inlining procedure: k19326 
o|inlining procedure: k19326 
o|inlining procedure: k19303 
o|inlining procedure: k19351 
o|inlining procedure: k19351 
o|inlining procedure: k19366 
o|inlining procedure: k19393 
o|inlining procedure: k19393 
o|inlining procedure: k19415 
o|inlining procedure: k19415 
o|inlining procedure: "(scrutinizer.scm:2052) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k19366 
o|inlining procedure: "(scrutinizer.scm:2054) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:2045) chicken.compiler.scrutinizer#second" 
o|substituted constant variable: a19470 
o|substituted constant variable: a19472 
o|consed rest parameter at call site: "(scrutinizer.scm:2039) chicken.compiler.scrutinizer#append-map" 3 
o|inlining procedure: k19480 
o|inlining procedure: k19480 
o|inlining procedure: "(scrutinizer.scm:2038) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k19303 
o|inlining procedure: "(scrutinizer.scm:2031) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k19533 
o|inlining procedure: k19533 
o|inlining procedure: k19567 
o|inlining procedure: k19567 
o|inlining procedure: k19595 
o|inlining procedure: k19595 
o|inlining procedure: "(scrutinizer.scm:2075) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:2075) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k19629 
o|inlining procedure: k19629 
o|inlining procedure: "(scrutinizer.scm:2076) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:2074) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:2070) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:2069) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k19691 
o|inlining procedure: k19691 
o|inlining procedure: k19734 
o|inlining procedure: k19746 
o|inlining procedure: k19758 
o|inlining procedure: k19770 
o|inlining procedure: k19782 
o|inlining procedure: k19782 
o|inlining procedure: "(scrutinizer.scm:2125) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k19770 
o|inlining procedure: "(scrutinizer.scm:2123) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k19758 
o|inlining procedure: k19746 
o|inlining procedure: "(scrutinizer.scm:2120) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k19734 
o|inlining procedure: k19836 
o|inlining procedure: k19836 
o|inlining procedure: k19842 
o|inlining procedure: "(scrutinizer.scm:2139) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k19842 
o|inlining procedure: "(scrutinizer.scm:2138) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k19893 
o|inlining procedure: k19893 
o|inlining procedure: k19905 
o|inlining procedure: k19917 
o|inlining procedure: k19917 
o|inlining procedure: k19905 
o|inlining procedure: k19932 
o|contracted procedure: "(scrutinizer.scm:2182) chicken.compiler.scrutinizer#split-at" 
o|inlining procedure: k6999 
o|inlining procedure: k6999 
o|inlining procedure: k19932 
o|inlining procedure: k19969 
o|inlining procedure: k19981 
o|inlining procedure: k19981 
o|inlining procedure: "(scrutinizer.scm:2192) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:2191) chicken.compiler.scrutinizer#second" 
o|inlining procedure: "(scrutinizer.scm:2190) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k19969 
o|inlining procedure: "(scrutinizer.scm:2185) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:2180) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k20084 
o|inlining procedure: k20084 
o|inlining procedure: k20090 
o|inlining procedure: k20102 
o|inlining procedure: k20114 
o|inlining procedure: k20123 
o|inlining procedure: k20123 
o|inlining procedure: k20139 
o|inlining procedure: k20139 
o|contracted procedure: "(scrutinizer.scm:2219) proper-list-type-length4438" 
o|inlining procedure: k20046 
o|inlining procedure: k20046 
o|inlining procedure: k20114 
o|inlining procedure: "(scrutinizer.scm:2211) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k20102 
o|inlining procedure: "(scrutinizer.scm:2209) chicken.compiler.scrutinizer#third" 
o|inlining procedure: "(scrutinizer.scm:2208) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k20090 
o|substituted constant variable: a20166 
o|inlining procedure: k20210 
o|inlining procedure: k20210 
o|inlining procedure: k20231 
o|inlining procedure: k20252 
o|contracted procedure: "(scrutinizer.scm:2283) g47084713" 
o|inlining procedure: k20252 
o|inlining procedure: k20231 
o|inlining procedure: k20281 
o|inlining procedure: k20281 
o|contracted procedure: "(scrutinizer.scm:2298) potentially-proper-list?4690" 
o|inlining procedure: k20344 
o|inlining procedure: k20344 
o|inlining procedure: k20466 
o|removed side-effect free assignment to unused variable: anyinst4782 
o|inlining procedure: k20466 
o|inlining procedure: k20542 
o|inlining procedure: k20542 
o|inlining procedure: k20563 
o|inlining procedure: k20563 
o|contracted procedure: "(scrutinizer.scm:2362) chicken.compiler.scrutinizer#concatenate" 
o|inlining procedure: k7300 
o|inlining procedure: k7300 
o|inlining procedure: k20611 
o|inlining procedure: k20611 
o|inlining procedure: k20655 
o|inlining procedure: k20712 
o|inlining procedure: k20712 
o|inlining procedure: k20655 
o|inlining procedure: k20749 
o|inlining procedure: k20749 
o|inlining procedure: k20770 
o|inlining procedure: k20770 
o|merged explicitly consed rest parameter: rest49154917 
o|inlining procedure: k20788 
o|substituted constant variable: a20798 
o|inlining procedure: k20788 
o|substituted constant variable: a20815 
o|inlining procedure: k20812 
o|inlining procedure: k20812 
o|inlining procedure: k20826 
o|inlining procedure: k20826 
o|merged explicitly consed rest parameter: rest49644966 
o|consed rest parameter at call site: "(scrutinizer.scm:2425) conv4955" 2 
o|inlining procedure: k20901 
o|inlining procedure: k20901 
o|substituted constant variable: a20927 
o|substituted constant variable: a20928 
o|inlining procedure: "(scrutinizer.scm:2431) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k20965 
o|inlining procedure: k20965 
o|inlining procedure: "(scrutinizer.scm:2431) chicken.compiler.scrutinizer#second" 
o|contracted procedure: "(scrutinizer.scm:2436) pp-tv4954" 
o|inlining procedure: k20999 
o|consed rest parameter at call site: "(scrutinizer.scm:2437) conv4955" 2 
o|inlining procedure: "(scrutinizer.scm:2437) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k21036 
o|inlining procedure: k21036 
o|inlining procedure: "(scrutinizer.scm:2436) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k20999 
o|substituted constant variable: a21077 
o|inlining procedure: k21073 
o|inlining procedure: k21097 
o|inlining procedure: k21097 
o|inlining procedure: k21073 
o|inlining procedure: k21134 
o|inlining procedure: k21172 
o|inlining procedure: k21172 
o|inlining procedure: k21183 
o|inlining procedure: k21183 
o|inlining procedure: k21195 
o|inlining procedure: k21195 
o|inlining procedure: k21213 
o|inlining procedure: k21213 
o|inlining procedure: k21247 
o|inlining procedure: k21247 
o|inlining procedure: k21134 
o|inlining procedure: "(scrutinizer.scm:2435) chicken.compiler.scrutinizer#second" 
o|consed rest parameter at call site: "(scrutinizer.scm:2456) chicken.compiler.scrutinizer#string-add-indent" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:2455) conv4955" 2 
o|inlining procedure: k21341 
o|inlining procedure: k21341 
o|inlining procedure: k21356 
o|inlining procedure: k21384 
o|inlining procedure: k21384 
o|substituted constant variable: a21425 
o|inlining procedure: k21356 
o|consed rest parameter at call site: "(scrutinizer.scm:2475) chicken.compiler.scrutinizer#string-add-indent" 2 
o|inlining procedure: k21464 
o|substituted constant variable: a21474 
o|substituted constant variable: a21475 
o|inlining procedure: k21464 
o|contracted procedure: "(scrutinizer.scm:2482) chicken.compiler.scrutinizer#node-line-number" 
o|contracted procedure: "(scrutinizer.scm:1772) chicken.compiler.scrutinizer#node-debug-info" 
o|inlining procedure: k17659 
o|inlining procedure: k17674 
o|inlining procedure: k17674 
o|inlining procedure: k17659 
o|substituted constant variable: a17708 
o|substituted constant variable: a17710 
o|consed rest parameter at call site: "(scrutinizer.scm:1772) chicken.compiler.scrutinizer#source-node" 2 
o|merged explicitly consed rest parameter: rest52275229 
o|inlining procedure: k21522 
o|inlining procedure: k21522 
o|inlining procedure: k21541 
o|inlining procedure: k21559 
o|substituted constant variable: a21595 
o|substituted constant variable: a21596 
o|substituted constant variable: a21613 
o|substituted constant variable: a21614 
o|inlining procedure: k21559 
o|inlining procedure: k21541 
o|contracted procedure: "(scrutinizer.scm:2506) lname5235" 
o|substituted constant variable: a21504 
o|substituted constant variable: a21505 
o|inlining procedure: k21497 
o|inlining procedure: k21497 
o|inlining procedure: k21667 
o|inlining procedure: "(scrutinizer.scm:2512) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:2512) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k21667 
o|substituted constant variable: a21731 
o|substituted constant variable: a21732 
o|inlining procedure: k21724 
o|substituted constant variable: a21755 
o|substituted constant variable: a21756 
o|inlining procedure: k21724 
o|inlining procedure: k21792 
o|inlining procedure: k21792 
o|inlining procedure: "(scrutinizer.scm:2541) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k21828 
o|inlining procedure: k21840 
o|inlining procedure: k21840 
o|inlining procedure: k21828 
o|inlining procedure: "(scrutinizer.scm:2527) chicken.compiler.scrutinizer#first" 
o|inlining procedure: "(scrutinizer.scm:2546) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k21911 
o|inlining procedure: k21911 
o|substituted constant variable: a21921 
o|inlining procedure: k21926 
o|consed rest parameter at call site: "(scrutinizer.scm:2557) chicken.compiler.scrutinizer#string-add-indent" 2 
o|substituted constant variable: a21963 
o|substituted constant variable: a21964 
o|consed rest parameter at call site: "(scrutinizer.scm:2559) chicken.compiler.scrutinizer#location-name" 2 
o|inlining procedure: k21926 
o|merged explicitly consed rest parameter: args5377 
o|substituted constant variable: a22217 
o|substituted constant variable: a22218 
o|inlining procedure: k22235 
o|inlining procedure: k22235 
o|substituted constant variable: a22252 
o|substituted constant variable: a22253 
o|substituted constant variable: a22311 
o|substituted constant variable: a22312 
o|substituted constant variable: a22329 
o|substituted constant variable: a22330 
o|substituted constant variable: a22360 
o|substituted constant variable: a22361 
o|substituted constant variable: a22378 
o|substituted constant variable: a22379 
o|inlining procedure: k22429 
o|inlining procedure: k22429 
o|substituted constant variable: a22446 
o|substituted constant variable: a22447 
o|inlining procedure: k22495 
o|substituted constant variable: a22509 
o|substituted constant variable: a22510 
o|inlining procedure: k22495 
o|substituted constant variable: a22535 
o|substituted constant variable: a22536 
o|substituted constant variable: a22560 
o|substituted constant variable: a22561 
o|inlining procedure: k22615 
o|substituted constant variable: a22629 
o|substituted constant variable: a22630 
o|inlining procedure: k22615 
o|substituted constant variable: a22655 
o|substituted constant variable: a22656 
o|substituted constant variable: a22680 
o|substituted constant variable: a22681 
o|merged explicitly consed rest parameter: rest57125716 
o|substituted constant variable: a23091 
o|substituted constant variable: a23092 
o|substituted constant variable: a23129 
o|substituted constant variable: a23130 
o|contracted procedure: "(scrutinizer.scm:2331) complex-object-constructor-result-type-special-case4743" 
o|inlining procedure: k20367 
o|inlining procedure: k20367 
o|inlining procedure: k20376 
o|inlining procedure: k20388 
o|inlining procedure: k20400 
o|consed rest parameter at call site: "(scrutinizer.scm:2327) chicken.compiler.scrutinizer#make-list" 2 
o|inlining procedure: k20400 
o|inlining procedure: "(scrutinizer.scm:2324) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k20388 
o|inlining procedure: "(scrutinizer.scm:2322) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k20376 
o|inlining procedure: k20431 
o|inlining procedure: "(scrutinizer.scm:2320) chicken.compiler.scrutinizer#third" 
o|inlining procedure: k20431 
o|substituted constant variable: a20445 
o|substituted constant variable: a20447 
o|inlining procedure: k23176 
o|inlining procedure: k23176 
o|inlining procedure: k23182 
o|inlining procedure: k23194 
o|inlining procedure: k23194 
o|inlining procedure: "(scrutinizer.scm:2260) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k23182 
o|substituted constant variable: a23228 
o|inlining procedure: k23255 
o|inlining procedure: k23255 
o|inlining procedure: k23312 
o|inlining procedure: k23312 
o|inlining procedure: k23346 
o|inlining procedure: k23346 
o|inlining procedure: k23373 
o|inlining procedure: k23373 
o|inlining procedure: k23411 
o|inlining procedure: k23411 
o|inlining procedure: k23438 
o|inlining procedure: k23438 
o|inlining procedure: k23490 
o|inlining procedure: k23490 
o|inlining procedure: k23512 
o|inlining procedure: k23512 
o|inlining procedure: k23518 
o|inlining procedure: k23530 
o|inlining procedure: "(scrutinizer.scm:2153) chicken.compiler.scrutinizer#fourth" 
o|inlining procedure: k23530 
o|inlining procedure: "(scrutinizer.scm:2152) chicken.compiler.scrutinizer#fourth" 
o|inlining procedure: "(scrutinizer.scm:2151) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k23518 
o|inlining procedure: k23569 
o|inlining procedure: k23569 
o|inlining procedure: k23575 
o|inlining procedure: k23587 
o|inlining procedure: k23599 
o|inlining procedure: k23599 
o|inlining procedure: "(scrutinizer.scm:2107) chicken.compiler.scrutinizer#first" 
o|inlining procedure: k23587 
o|inlining procedure: "(scrutinizer.scm:2105) chicken.compiler.scrutinizer#second" 
o|inlining procedure: k23575 
o|substituted constant variable: a23631 
o|simplifications: ((if . 10)) 
o|replaced variables: 4811 
o|removed binding forms: 912 
o|substituted constant variable: r694223632 
o|substituted constant variable: r704823636 
o|substituted constant variable: r708823638 
o|substituted constant variable: r724323646 
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: r749623659 
o|substituted constant variable: r785123662 
o|substituted constant variable: r788723665 
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#constant752 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#constant761 
o|substituted constant variable: r818523680 
o|substituted constant variable: r824723683 
o|substituted constant variable: r825923685 
o|substituted constant variable: r827423687 
o|substituted constant variable: r828623689 
o|substituted constant variable: r829823691 
o|substituted constant variable: r831023693 
o|substituted constant variable: r831023694 
o|substituted constant variable: r831323695 
o|substituted constant variable: r840023701 
o|substituted constant variable: r854823708 
o|substituted constant variable: r855723710 
o|substituted constant variable: r796423711 
o|substituted constant variable: r859923716 
o|substituted constant variable: r850623719 
o|substituted constant variable: r850123722 
o|substituted constant variable: r862323724 
o|substituted constant variable: r870423740 
o|substituted constant variable: r870423741 
o|substituted constant variable: r872523742 
o|substituted constant variable: r874323744 
o|removed side-effect free assignment to unused variable: add-loc816 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:409) chicken.base#void" 
o|substituted constant variable: r894623765 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:397) chicken.base#void" 
o|substituted constant variable: r919423797 
o|substituted constant variable: r877423799 
o|substituted constant variable: r878523802 
o|substituted constant variable: r878523802 
o|substituted constant variable: r928423805 
o|substituted constant variable: r1568623814 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:312) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:423) chicken.base#void" 
o|substituted constant variable: r955023844 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:801) chicken.base#void" 
o|substituted constant variable: r961423857 
o|substituted constant variable: r976923879 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:504) chicken.base#void" 
o|substituted constant variable: r985923886 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:491) chicken.base#void" 
o|substituted constant variable: r996123892 
o|substituted constant variable: r871623895 
o|substituted constant variable: r871623896 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:569) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:536) chicken.base#void" 
o|substituted constant variable: r1037123932 
o|substituted constant variable: r1037123932 
o|substituted constant variable: r1037123934 
o|substituted constant variable: r1037123934 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:661) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:648) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:654) chicken.base#void" 
o|substituted constant variable: r1054223962 
o|substituted constant variable: r1063623964 
o|inlining procedure: k10695 
o|substituted constant variable: r1067323979 
o|substituted constant variable: r1073923995 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:735) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:723) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:743) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:754) chicken.base#void" 
o|substituted constant variable: r1107024017 
o|converted assignments to bindings: (smash1690) 
o|inlining procedure: k11343 
o|inlining procedure: k11343 
o|converted assignments to bindings: (pp-type5664) 
o|substituted constant variable: r1151624093 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:441) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:820) chicken.base#void" 
o|propagated global variable: out19001903 ##sys#standard-output 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:180) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:839) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:843) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:848) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:852) 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: a1213124128 
o|substituted constant variable: a1213124135 
o|substituted constant variable: r1204124141 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:877) chicken.base#void" 
o|substituted constant variable: r1210524147 
o|substituted constant variable: r1210524147 
o|substituted constant variable: r1209524149 
o|removed side-effect free assignment to unused variable: optargs?2050 
o|substituted constant variable: r1236024206 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:954) chicken.base#void" 
o|substituted constant variable: r1236024207 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:967) chicken.base#void" 
o|substituted constant variable: r1250224261 
o|substituted constant variable: r1269724284 
o|substituted constant variable: r1272024287 
o|substituted constant variable: r1273724290 
o|substituted constant variable: r1289124320 
o|substituted constant variable: r1300124351 
o|substituted constant variable: r1304824364 
o|substituted constant variable: r1304824364 
o|substituted constant variable: r1302824383 
o|substituted constant variable: r1309724402 
o|substituted constant variable: r1313624410 
o|substituted constant variable: r1312424421 
o|substituted constant variable: r1308424422 
o|substituted constant variable: r1319224430 
o|substituted constant variable: r1322824438 
o|substituted constant variable: r1326824446 
o|substituted constant variable: r1330424454 
o|substituted constant variable: r1339924456 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:933) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:1110) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:1108) chicken.base#void" 
o|substituted constant variable: r1356124462 
o|substituted constant variable: r1363424470 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:1166) chicken.base#void" 
o|substituted constant variable: r1473724488 
o|substituted constant variable: r1379324491 
o|substituted constant variable: r1384224494 
o|substituted constant variable: r1415124550 
o|substituted constant variable: r1419624564 
o|substituted constant variable: r1433024572 
o|substituted constant variable: r1433024572 
o|substituted constant variable: r1450624601 
o|substituted constant variable: r1454424609 
o|substituted constant variable: r1456824612 
o|substituted constant variable: r1463324618 
o|substituted constant variable: r1495424646 
o|substituted constant variable: r1498724655 
o|substituted constant variable: r1510724665 
o|substituted constant variable: r1509524666 
o|substituted constant variable: r1515124670 
o|substituted constant variable: r1513924671 
o|substituted constant variable: r1523524682 
o|substituted constant variable: r1529324691 
o|substituted constant variable: r1527524692 
o|substituted constant variable: r1525524693 
o|substituted constant variable: r1530624717 
o|substituted constant variable: r1536324731 
o|substituted constant variable: r1544824733 
o|inlining procedure: k15454 
o|inlining procedure: k15454 
o|substituted constant variable: r1546524735 
o|substituted constant variable: r1580424785 
o|substituted constant variable: r1577124786 
o|substituted constant variable: r1582424787 
o|substituted constant variable: r1585724800 
o|substituted constant variable: r1588324807 
o|substituted constant variable: r1584424808 
o|substituted constant variable: r1596224825 
o|substituted constant variable: r1594724831 
o|substituted constant variable: r1666024950 
o|substituted constant variable: r1666024950 
o|substituted constant variable: r1671724956 
o|substituted constant variable: r1684624992 
o|substituted constant variable: r1721824994 
o|substituted constant variable: r1743525001 
o|substituted constant variable: r1743525001 
o|substituted constant variable: r1743525003 
o|substituted constant variable: r1743525003 
o|substituted constant variable: r1782025038 
o|substituted constant variable: r1790525039 
o|substituted constant variable: r1793325041 
o|substituted constant variable: r1794525043 
o|substituted constant variable: r1796325046 
o|substituted constant variable: r1798625048 
o|substituted constant variable: r1802525052 
o|substituted constant variable: r1809325057 
o|substituted constant variable: r1810525059 
o|substituted constant variable: r1811725061 
o|substituted constant variable: r1814725071 
o|substituted constant variable: r1821525086 
o|substituted constant variable: r1827125095 
o|substituted constant variable: r1818125103 
o|substituted constant variable: r1837225118 
o|substituted constant variable: r1844725126 
o|substituted constant variable: r1848025129 
o|substituted constant variable: r1854025148 
o|substituted constant variable: r1851725157 
o|substituted constant variable: r1850125163 
o|substituted constant variable: r1787725165 
o|substituted constant variable: r1864225169 
o|substituted constant variable: r1867225181 
o|substituted constant variable: r1872825186 
o|substituted constant variable: r1871325192 
o|substituted constant variable: r1882025200 
o|substituted constant variable: r1893225205 
o|substituted constant variable: r1896225209 
o|substituted constant variable: r1891925210 
o|substituted constant variable: r1890425211 
o|substituted constant variable: r1888625212 
o|substituted constant variable: r1908725222 
o|substituted constant variable: r1907525228 
o|inlining procedure: k19153 
o|substituted constant variable: r1915425231 
o|substituted constant variable: r1915425231 
o|converted assignments to bindings: (fail4147) 
o|substituted constant variable: r1978325327 
o|substituted constant variable: r1977125333 
o|substituted constant variable: r1975925339 
o|substituted constant variable: r1974725340 
o|substituted constant variable: r1973525346 
o|substituted constant variable: r1984325355 
o|substituted constant variable: r1989425361 
o|substituted constant variable: r1991825365 
o|substituted constant variable: r1993325370 
o|substituted constant variable: r1997025389 
o|substituted constant variable: r2012425405 
o|substituted constant variable: r2014025408 
o|substituted constant variable: r2004725409 
o|substituted constant variable: r2011525411 
o|substituted constant variable: r2010325417 
o|substituted constant variable: r2009125428 
o|substituted constant variable: r2021125429 
o|substituted constant variable: r2023225434 
o|substituted constant variable: r2028225436 
o|inlining procedure: k20304 
o|converted assignments to bindings: (derive-result-type4691) 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:2356) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:2345) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:2374) chicken.base#void" 
o|substituted constant variable: r730125445 
o|substituted constant variable: r2075025453 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:2377) chicken.base#void" 
o|substituted constant variable: r2077125455 
o|substituted constant variable: r2077125456 
o|contracted procedure: "(scrutinizer.scm:2436) g50355044" 
o|substituted constant variable: r2117325498 
o|substituted constant variable: r2117325498 
o|substituted constant variable: r2118425500 
o|substituted constant variable: r2118425500 
o|substituted constant variable: r2118425502 
o|substituted constant variable: r2118425502 
o|substituted constant variable: r2119625505 
o|converted assignments to bindings: (R4976) 
o|substituted constant variable: r2146525523 
o|substituted constant variable: r1767525527 
o|substituted constant variable: r2156025534 
o|substituted constant variable: r2156025534 
o|substituted constant variable: r2149825538 
o|substituted constant variable: r2184125562 
o|substituted constant variable: r2182925563 
o|substituted constant variable: r2191225575 
o|converted assignments to bindings: (file-location5356) 
o|converted assignments to bindings: (p5510) 
o|converted assignments to bindings: (p5532) 
o|converted assignments to bindings: (p5580) 
o|substituted constant variable: type4744 
o|substituted constant variable: r2040125591 
o|substituted constant variable: r2038925597 
o|substituted constant variable: r2037725603 
o|substituted constant variable: r2043225610 
o|converted assignments to bindings: (append-special-case4679) 
o|substituted constant variable: r2319525615 
o|substituted constant variable: r2318325621 
o|substituted constant variable: r2334725626 
o|substituted constant variable: r2341225630 
o|substituted constant variable: r2349125635 
o|substituted constant variable: r2353125645 
o|substituted constant variable: r2351925656 
o|substituted constant variable: r2360025662 
o|substituted constant variable: r2358825668 
o|substituted constant variable: r2357625674 
o|simplifications: ((let . 10)) 
o|replaced variables: 995 
o|removed binding forms: 3974 
o|inlining procedure: k8027 
o|contracted procedure: k8209 
o|inlining procedure: "(scrutinizer.scm:2846) chicken.compiler.scrutinizer#report-notice" 
o|contracted procedure: k8815 
o|contracted procedure: k8876 
o|contracted procedure: k8973 
o|inlining procedure: "(scrutinizer.scm:2797) chicken.compiler.scrutinizer#report-notice" 
o|inlining procedure: "(scrutinizer.scm:2822) chicken.compiler.scrutinizer#report-notice" 
o|inlining procedure: k15715 
o|contracted procedure: k9445 
o|contracted procedure: k9567 
o|contracted procedure: k9577 
o|contracted procedure: k9783 
o|contracted procedure: k9910 
o|inlining procedure: k9987 
o|inlining procedure: "(scrutinizer.scm:2862) chicken.compiler.scrutinizer#report-notice" 
o|inlining procedure: k9987 
o|inlining procedure: "(scrutinizer.scm:523) chicken.compiler.scrutinizer#alist-cons" 
o|inlining procedure: "(scrutinizer.scm:522) chicken.compiler.scrutinizer#alist-cons" 
o|contracted procedure: k10218 
o|inlining procedure: "(scrutinizer.scm:542) chicken.compiler.scrutinizer#alist-cons" 
o|contracted procedure: k10415 
o|contracted procedure: k10447 
o|inlining procedure: "(scrutinizer.scm:649) chicken.compiler.scrutinizer#alist-cons" 
o|contracted procedure: k10471 
o|substituted constant variable: r1069625775 
o|folded constant expression: (scheme#not (quote #f)) 
o|inlining procedure: k10710 
o|contracted procedure: k10967 
o|contracted procedure: k10982 
o|contracted procedure: k11017 
o|contracted procedure: k11056 
o|inlining procedure: "(scrutinizer.scm:2963) pp-type5664" 
o|inlining procedure: "(scrutinizer.scm:2962) pp-type5664" 
o|contracted procedure: k11623 
o|contracted procedure: k11779 
o|contracted procedure: k11792 
o|contracted procedure: k11860 
o|contracted procedure: k11873 
o|contracted procedure: k11941 
o|inlining procedure: "(mini-srfi-1.scm:50) a12081" 
o|contracted procedure: k12261 
o|contracted procedure: k12368 
o|contracted procedure: k12452 
o|contracted procedure: k13471 
o|contracted procedure: k13477 
o|inlining procedure: k13652 
o|contracted procedure: k13729 
o|inlining procedure: k13786 
o|inlining procedure: k13786 
o|inlining procedure: k7789 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:1270) chicken.base#void" 
o|removed call to pure procedure with unused result: "(scrutinizer.scm:1270) chicken.base#void" 
o|inlining procedure: k15397 
o|substituted constant variable: r154482473325889 
o|substituted constant variable: r154482473325892 
o|inlining procedure: "(scrutinizer.scm:1801) chicken.compiler.scrutinizer#alist-cons" 
o|consed rest parameter at call site: "(scrutinizer.scm:1856) validate3758" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1860) validate3758" 2 
o|merged explicitly consed rest parameter: rest38063808 
o|consed rest parameter at call site: "(scrutinizer.scm:1879) validate3758" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1905) validate3758" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1900) validate3758" 2 
o|inlining procedure: k18258 
o|inlining procedure: k18258 
o|consed rest parameter at call site: "(scrutinizer.scm:1918) validate3758" 2 
o|inlining procedure: k18527 
o|consed rest parameter at call site: "(scrutinizer.scm:1927) validate3758" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1940) validate3758" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1949) validate3758" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1946) validate3758" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1955) validate3758" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1961) validate3758" 2 
o|consed rest parameter at call site: "(scrutinizer.scm:1966) validate3758" 2 
o|inlining procedure: k18949 
o|consed rest parameter at call site: "(scrutinizer.scm:1983) validate3758" 2 
o|substituted constant variable: r1915425989 
o|consed rest parameter at call site: "(scrutinizer.scm:1992) validate3758" 2 
o|inlining procedure: k19833 
o|inlining procedure: k19833 
o|inlining procedure: k19833 
o|inlining procedure: k20081 
o|inlining procedure: k20081 
o|inlining procedure: k20081 
o|inlining procedure: k20081 
o|inlining procedure: k20081 
o|inlining procedure: k20081 
o|inlining procedure: k20081 
o|inlining procedure: k20081 
o|inlining procedure: k20081 
o|inlining procedure: k20081 
o|substituted constant variable: r202822543626019 
o|contracted procedure: k20457 
o|contracted procedure: k20488 
o|inlining procedure: "(scrutinizer.scm:2352) chicken.compiler.scrutinizer#alist-cons" 
o|contracted procedure: k20557 
o|contracted procedure: k20642 
o|inlining procedure: k20872 
o|inlining procedure: k21643 
o|inlining procedure: k23164 
o|inlining procedure: k20364 
o|inlining procedure: k20364 
o|inlining procedure: k20364 
o|inlining procedure: k20364 
o|inlining procedure: k20364 
o|inlining procedure: k20364 
o|inlining procedure: k20364 
o|inlining procedure: k23173 
o|inlining procedure: k23173 
o|inlining procedure: k23173 
o|inlining procedure: k23173 
o|inlining procedure: k23173 
o|inlining procedure: k23509 
o|inlining procedure: k23509 
o|inlining procedure: k23509 
o|inlining procedure: k23509 
o|inlining procedure: k23509 
o|inlining procedure: k23509 
o|inlining procedure: k23566 
o|inlining procedure: k23566 
o|inlining procedure: k23566 
o|inlining procedure: k23566 
o|inlining procedure: k23566 
o|inlining procedure: k23566 
o|inlining procedure: k23566 
o|replaced variables: 5 
o|removed binding forms: 1152 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#alist-cons 
o|substituted constant variable: r802826117 
o|substituted constant variable: reason537326129 
o|inlining procedure: k8873 
o|substituted constant variable: reason537326151 
o|substituted constant variable: reason537326157 
o|inlining procedure: "(scrutinizer.scm:305) chicken.compiler.scrutinizer#walked-result" 
o|inlining procedure: k9572 
o|inlining procedure: k9572 
o|inlining procedure: k9572 
o|inlining procedure: k9572 
o|inlining procedure: k9572 
o|inlining procedure: k9572 
o|substituted constant variable: r998826181 
o|substituted constant variable: reason537326183 
o|substituted constant variable: r998826188 
o|substituted constant variable: y33626209 
o|inlining procedure: k9572 
o|inlining procedure: k9572 
o|substituted constant variable: r1071126225 
o|inlining procedure: k9572 
o|inlining procedure: "(scrutinizer.scm:683) chicken.compiler.scrutinizer#walked-result" 
o|inlining procedure: "(scrutinizer.scm:680) chicken.compiler.scrutinizer#walked-result" 
o|inlining procedure: k9572 
o|inlining procedure: k13145 
o|substituted constant variable: r1378726287 
o|substituted constant variable: r1378726288 
o|contracted procedure: k1448824599 
o|contracted procedure: k1448824607 
o|inlining procedure: k15340 
o|inlining procedure: k15541 
o|inlining procedure: k16446 
o|inlining procedure: k17430 
o|inlining procedure: k17430 
o|substituted constant variable: r1825926384 
o|substituted constant variable: r1825926385 
o|substituted constant variable: r1852826390 
o|substituted constant variable: r1852826390 
o|substituted constant variable: r1895026400 
o|inlining procedure: "(scrutinizer.scm:2120) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r1983426415 
o|substituted constant variable: r1983426415 
o|substituted constant variable: r1983426418 
o|substituted constant variable: r1983426418 
o|inlining procedure: "(scrutinizer.scm:2138) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r1983426421 
o|substituted constant variable: r1983426421 
o|substituted constant variable: r2008226434 
o|substituted constant variable: r2008226434 
o|substituted constant variable: r2008226440 
o|substituted constant variable: r2008226440 
o|substituted constant variable: r2008226443 
o|substituted constant variable: r2008226443 
o|substituted constant variable: r2008226446 
o|substituted constant variable: r2008226446 
o|substituted constant variable: r2008226449 
o|substituted constant variable: r2008226449 
o|substituted constant variable: r2008226452 
o|substituted constant variable: r2008226452 
o|substituted constant variable: r2008226455 
o|substituted constant variable: r2008226455 
o|inlining procedure: "(scrutinizer.scm:2208) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r2008226458 
o|substituted constant variable: r2008226458 
o|substituted constant variable: r2008226461 
o|substituted constant variable: r2008226461 
o|inlining procedure: "(scrutinizer.scm:2276) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r2164426513 
o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#report-notice 
o|substituted constant variable: r2036526517 
o|substituted constant variable: r2036526517 
o|substituted constant variable: r2036526520 
o|substituted constant variable: r2036526520 
o|substituted constant variable: r2036526523 
o|substituted constant variable: r2036526523 
o|substituted constant variable: r2036526526 
o|substituted constant variable: r2036526526 
o|substituted constant variable: r2036526529 
o|substituted constant variable: r2036526529 
o|substituted constant variable: r2036526532 
o|substituted constant variable: r2036526532 
o|inlining procedure: "(scrutinizer.scm:2320) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r2036526535 
o|substituted constant variable: r2036526535 
o|substituted constant variable: r2317426538 
o|substituted constant variable: r2317426538 
o|substituted constant variable: r2317426541 
o|substituted constant variable: r2317426541 
o|substituted constant variable: r2317426544 
o|substituted constant variable: r2317426544 
o|inlining procedure: "(scrutinizer.scm:2260) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r2317426547 
o|substituted constant variable: r2317426547 
o|substituted constant variable: r2317426550 
o|substituted constant variable: r2317426550 
o|inlining procedure: "(scrutinizer.scm:2254) chicken.compiler.scrutinizer#walked-result" 
o|inlining procedure: "(scrutinizer.scm:2250) chicken.compiler.scrutinizer#walked-result" 
o|inlining procedure: "(scrutinizer.scm:2246) chicken.compiler.scrutinizer#walked-result" 
o|inlining procedure: "(scrutinizer.scm:2240) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r2351026564 
o|substituted constant variable: r2351026564 
o|inlining procedure: "(scrutinizer.scm:2153) chicken.compiler.scrutinizer#walked-result" 
o|substituted constant variable: r2351026567 
o|substituted constant variable: r2351026567 
o|substituted constant variable: r2351026570 
o|substituted constant variable: r2351026570 
o|substituted constant variable: r2351026573 
o|substituted constant variable: r2351026573 
o|substituted constant variable: r2351026576 
o|substituted constant variable: r2351026576 
o|substituted constant variable: r2356726582 
o|substituted constant variable: r2356726582 
o|substituted constant variable: r2356726585 
o|substituted constant variable: r2356726585 
o|substituted constant variable: r2356726588 
o|substituted constant variable: r2356726588 
o|substituted constant variable: r2356726591 
o|substituted constant variable: r2356726591 
o|substituted constant variable: r2356726594 
o|substituted constant variable: r2356726594 
o|substituted constant variable: r2356726597 
o|substituted constant variable: r2356726597 
o|replaced variables: 47 
o|removed binding forms: 127 
o|removed conditional forms: 43 
o|substituted constant variable: r957326653 
o|substituted constant variable: r957326657 
o|substituted constant variable: r957326661 
o|substituted constant variable: r957326675 
o|substituted constant variable: r957326687 
o|substituted constant variable: r957326691 
o|substituted constant variable: r957326697 
o|substituted constant variable: r957326725 
o|substituted constant variable: r1314626749 
o|replaced variables: 35 
o|removed binding forms: 113 
o|removed binding forms: 44 
o|simplifications: ((if . 163) (let . 166) (##core#call . 1981)) 
o|  call simplifications:
o|    scheme#cadddr	2
o|    scheme#char-upcase
o|    ##sys#apply
o|    chicken.fixnum#fx<	2
o|    scheme#<
o|    scheme#string-ref	3
o|    chicken.base#identity
o|    ##sys#size	2
o|    scheme#list-tail	2
o|    scheme#vector-length
o|    scheme#>=	3
o|    scheme#vector-ref	6
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	3
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|    chicken.base#bwp-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?	289
o|    scheme#memq	17
o|    chicken.fixnum#fx>=	2
o|    chicken.fixnum#fx+	3
o|    scheme#equal?	6
o|    scheme#not	80
o|    scheme#null?	78
o|    scheme#apply	5
o|    scheme#cdr	75
o|    ##sys#setslot	51
o|    ##sys#check-list	62
o|    scheme#pair?	175
o|    ##sys#slot	194
o|    chicken.fixnum#fx<=	2
o|    scheme#car	181
o|    chicken.fixnum#fx-	2
o|    scheme#cons	176
o|contracted procedure: k6944 
o|contracted procedure: k6951 
o|contracted procedure: k6961 
o|contracted procedure: k7035 
o|contracted procedure: k7038 
o|contracted procedure: k7050 
o|contracted procedure: k7066 
o|contracted procedure: k7074 
o|contracted procedure: k7081 
o|contracted procedure: k7105 
o|contracted procedure: k7122 
o|contracted procedure: k7144 
o|contracted procedure: k7140 
o|contracted procedure: k7125 
o|contracted procedure: k7128 
o|contracted procedure: k7136 
o|contracted procedure: k7151 
o|contracted procedure: k7159 
o|contracted procedure: k7171 
o|contracted procedure: k7193 
o|contracted procedure: k7189 
o|contracted procedure: k7174 
o|contracted procedure: k7177 
o|contracted procedure: k7185 
o|contracted procedure: k7208 
o|contracted procedure: k7217 
o|contracted procedure: k7230 
o|contracted procedure: k7245 
o|contracted procedure: k7260 
o|contracted procedure: k7406 
o|contracted procedure: k7409 
o|contracted procedure: k7419 
o|contracted procedure: k7331 
o|contracted procedure: k7357 
o|contracted procedure: k7486 
o|contracted procedure: k7498 
o|contracted procedure: k7521 
o|contracted procedure: k7529 
o|contracted procedure: k7551 
o|contracted procedure: k7559 
o|contracted procedure: k7571 
o|contracted procedure: k7593 
o|contracted procedure: k7589 
o|contracted procedure: k7574 
o|contracted procedure: k7577 
o|contracted procedure: k7585 
o|contracted procedure: k7853 
o|contracted procedure: k7868 
o|contracted procedure: k7902 
o|contracted procedure: k7906 
o|contracted procedure: k7889 
o|contracted procedure: k8036 
o|contracted procedure: k8027 
o|contracted procedure: k8169 
o|contracted procedure: k8176 
o|contracted procedure: k8187 
o|contracted procedure: k8194 
o|contracted procedure: k8249 
o|contracted procedure: k8261 
o|contracted procedure: k8276 
o|contracted procedure: k8282 
o|contracted procedure: k8288 
o|contracted procedure: k8294 
o|contracted procedure: k8300 
o|contracted procedure: k8306 
o|contracted procedure: k8315 
o|contracted procedure: k8321 
o|contracted procedure: k8328 
o|contracted procedure: k8340 
o|contracted procedure: k8343 
o|contracted procedure: k8346 
o|contracted procedure: k8354 
o|contracted procedure: k8362 
o|contracted procedure: k8371 
o|contracted procedure: k8378 
o|contracted procedure: k8396 
o|contracted procedure: k8402 
o|contracted procedure: k8408 
o|contracted procedure: k8419 
o|contracted procedure: k8415 
o|contracted procedure: k8434 
o|contracted procedure: k8437 
o|contracted procedure: k8440 
o|contracted procedure: k8448 
o|contracted procedure: k8456 
o|contracted procedure: k8488 
o|contracted procedure: k8481 
o|contracted procedure: k8465 
o|contracted procedure: k8472 
o|contracted procedure: k8478 
o|contracted procedure: k8569 
o|contracted procedure: k8559 
o|contracted procedure: k7966 
o|contracted procedure: k7982 
o|contracted procedure: k8590 
o|contracted procedure: k8610 
o|contracted procedure: k8601 
o|contracted procedure: k8508 
o|contracted procedure: k8530 
o|contracted procedure: k8517 
o|contracted procedure: k8524 
o|contracted procedure: k8619 
o|contracted procedure: k8641 
o|contracted procedure: k8648 
o|contracted procedure: k8659 
o|contracted procedure: k8670 
o|contracted procedure: k8676 
o|contracted procedure: k8683 
o|contracted procedure: k22781 
o|contracted procedure: k8727 
o|contracted procedure: k8730 
o|contracted procedure: k8736 
o|contracted procedure: k8745 
o|contracted procedure: k8790 
o|contracted procedure: k8793 
o|contracted procedure: k8799 
o|contracted procedure: k8806 
o|contracted procedure: k8809 
o|contracted procedure: k21989 
o|contracted procedure: k21996 
o|contracted procedure: k22006 
o|contracted procedure: k22034 
o|contracted procedure: k22061 
o|contracted procedure: k8882 
o|contracted procedure: k8885 
o|contracted procedure: k8893 
o|contracted procedure: k8905 
o|contracted procedure: k8908 
o|contracted procedure: k8911 
o|contracted procedure: k8919 
o|contracted procedure: k8927 
o|contracted procedure: k8936 
o|contracted procedure: k8948 
o|contracted procedure: k8976 
o|contracted procedure: k8989 
o|contracted procedure: k9000 
o|contracted procedure: k8996 
o|contracted procedure: k9022 
o|contracted procedure: k9026 
o|contracted procedure: k9042 
o|contracted procedure: k9034 
o|contracted procedure: k9038 
o|contracted procedure: k9030 
o|contracted procedure: k9054 
o|contracted procedure: k9058 
o|contracted procedure: k9062 
o|contracted procedure: k22717 
o|contracted procedure: k9089 
o|contracted procedure: k9085 
o|contracted procedure: k9093 
o|contracted procedure: k9109 
o|contracted procedure: k9101 
o|contracted procedure: k9105 
o|contracted procedure: k9097 
o|contracted procedure: k9121 
o|contracted procedure: k9125 
o|contracted procedure: k9129 
o|contracted procedure: k22751 
o|contracted procedure: k9142 
o|contracted procedure: k9136 
o|contracted procedure: k9146 
o|contracted procedure: k9150 
o|contracted procedure: k9173 
o|contracted procedure: k9169 
o|contracted procedure: k9196 
o|contracted procedure: k9200 
o|contracted procedure: k9251 
o|contracted procedure: k9213 
o|contracted procedure: k9247 
o|contracted procedure: k9240 
o|contracted procedure: k9217 
o|contracted procedure: k9220 
o|contracted procedure: k9231 
o|contracted procedure: k9263 
o|contracted procedure: k8776 
o|contracted procedure: k8780 
o|contracted procedure: k9289 
o|contracted procedure: k15645 
o|contracted procedure: k15657 
o|contracted procedure: k15756 
o|contracted procedure: k15666 
o|contracted procedure: k15688 
o|contracted procedure: k15703 
o|contracted procedure: k15732 
o|contracted procedure: k15712 
o|contracted procedure: k15728 
o|contracted procedure: k15715 
o|contracted procedure: k15748 
o|contracted procedure: k15738 
o|contracted procedure: k15745 
o|contracted procedure: k9302 
o|contracted procedure: k9306 
o|contracted procedure: k9315 
o|contracted procedure: k9318 
o|contracted procedure: k9330 
o|contracted procedure: k9344 
o|contracted procedure: k9360 
o|contracted procedure: k9364 
o|contracted procedure: k22095 
o|contracted procedure: k22130 
o|contracted procedure: k22119 
o|inlining procedure: "(scrutinizer.scm:2640) chicken.compiler.scrutinizer#multiples" 
o|inlining procedure: "(scrutinizer.scm:2639) chicken.compiler.scrutinizer#multiples" 
o|contracted procedure: k9373 
o|contracted procedure: k9393 
o|contracted procedure: k9415 
o|contracted procedure: k9411 
o|contracted procedure: k9396 
o|contracted procedure: k9399 
o|contracted procedure: k9407 
o|contracted procedure: k9439 
o|contracted procedure: k9452 
o|contracted procedure: k9456 
o|contracted procedure: k9480 
o|contracted procedure: k9491 
o|contracted procedure: k9503 
o|contracted procedure: k9506 
o|contracted procedure: k9509 
o|contracted procedure: k9517 
o|contracted procedure: k9525 
o|contracted procedure: k9580 
o|contracted procedure: k9587 
o|inlining procedure: k9572 
o|contracted procedure: k9593 
o|inlining procedure: k9572 
o|contracted procedure: k9604 
o|contracted procedure: k9610 
o|contracted procedure: k9616 
o|contracted procedure: k9622 
o|contracted procedure: k9629 
o|contracted procedure: k9635 
o|inlining procedure: k9572 
o|contracted procedure: k9646 
o|contracted procedure: k9652 
o|inlining procedure: k9572 
o|contracted procedure: k9663 
o|contracted procedure: k9669 
o|contracted procedure: k9672 
o|contracted procedure: k9675 
o|contracted procedure: k9682 
o|contracted procedure: k9685 
o|contracted procedure: k9691 
o|contracted procedure: k9711 
o|contracted procedure: k9707 
o|contracted procedure: k9703 
o|contracted procedure: k9741 
o|contracted procedure: k9737 
o|contracted procedure: k9733 
o|contracted procedure: k9756 
o|contracted procedure: k22991 
o|contracted procedure: k23003 
o|contracted procedure: k23015 
o|inlining procedure: "(scrutinizer.scm:2988) chicken.compiler.scrutinizer#multiples" 
o|inlining procedure: "(scrutinizer.scm:2986) chicken.compiler.scrutinizer#multiples" 
o|contracted procedure: k9786 
o|contracted procedure: k9798 
o|contracted procedure: k9801 
o|contracted procedure: k9849 
o|contracted procedure: k9813 
o|contracted procedure: k9816 
o|contracted procedure: k9819 
o|contracted procedure: k9827 
o|contracted procedure: k9831 
o|contracted procedure: k9839 
o|contracted procedure: k9843 
o|contracted procedure: k9795 
o|contracted procedure: k9855 
o|contracted procedure: k9861 
o|contracted procedure: k9872 
o|contracted procedure: k9876 
o|contracted procedure: k9868 
o|contracted procedure: k9890 
o|contracted procedure: k9879 
o|contracted procedure: k9886 
o|contracted procedure: k9893 
o|contracted procedure: k9896 
o|contracted procedure: k9899 
o|contracted procedure: k9926 
o|contracted procedure: k9907 
o|contracted procedure: k9920 
o|contracted procedure: k9929 
o|contracted procedure: k9941 
o|contracted procedure: k9951 
o|contracted procedure: k9955 
o|contracted procedure: k9976 
o|contracted procedure: k9982 
o|contracted procedure: k8712 
o|contracted procedure: k22803 
o|contracted procedure: k10014 
o|contracted procedure: k10026 
o|contracted procedure: k10033 
o|contracted procedure: k10040 
o|contracted procedure: k10043 
o|contracted procedure: k743626195 
o|contracted procedure: k10060 
o|contracted procedure: k10068 
o|contracted procedure: k743626202 
o|contracted procedure: k10078 
o|contracted procedure: k10085 
o|contracted procedure: k10112 
o|contracted procedure: k10115 
o|contracted procedure: k10122 
o|contracted procedure: k10128 
o|contracted procedure: k10140 
o|contracted procedure: k10172 
o|contracted procedure: k10223 
o|contracted procedure: k10215 
o|contracted procedure: k10198 
o|contracted procedure: k10208 
o|contracted procedure: k10212 
o|contracted procedure: k10233 
o|contracted procedure: k10246 
o|contracted procedure: k10253 
o|contracted procedure: k10263 
o|contracted procedure: k10267 
o|contracted procedure: k10275 
o|contracted procedure: k10279 
o|contracted procedure: k743626213 
o|contracted procedure: k10298 
o|contracted procedure: k10309 
o|contracted procedure: k10312 
o|contracted procedure: k10360 
o|contracted procedure: k10324 
o|contracted procedure: k10350 
o|contracted procedure: k10354 
o|contracted procedure: k10346 
o|contracted procedure: k10327 
o|contracted procedure: k10330 
o|contracted procedure: k10338 
o|contracted procedure: k10342 
o|contracted procedure: k10379 
o|contracted procedure: k10382 
o|contracted procedure: k10385 
o|contracted procedure: k10397 
o|contracted procedure: k10409 
o|contracted procedure: k10529 
o|contracted procedure: k10520 
o|contracted procedure: k10423 
o|contracted procedure: k10429 
o|contracted procedure: k10441 
o|contracted procedure: k10455 
o|contracted procedure: k743626222 
o|contracted procedure: k10451 
o|contracted procedure: k10507 
o|contracted procedure: k10503 
o|contracted procedure: k10461 
o|contracted procedure: k10465 
o|contracted procedure: k10474 
o|contracted procedure: k10490 
o|contracted procedure: k10483 
o|contracted procedure: k10494 
o|contracted procedure: k10510 
o|contracted procedure: k10594 
o|contracted procedure: k10550 
o|contracted procedure: k10556 
o|contracted procedure: k10626 
o|contracted procedure: k10601 
o|contracted procedure: k10604 
o|contracted procedure: k10614 
o|contracted procedure: k10632 
o|contracted procedure: k10638 
o|contracted procedure: k10655 
o|contracted procedure: k10644 
o|contracted procedure: k10668 
o|contracted procedure: k23037 
o|contracted procedure: k23071 
o|contracted procedure: k10675 
o|contracted procedure: k10692 
o|contracted procedure: k10701 
o|contracted procedure: k10695 
o|contracted procedure: k10731 
o|contracted procedure: k10735 
o|contracted procedure: k10741 
o|contracted procedure: k10747 
o|contracted procedure: k10753 
o|contracted procedure: k10756 
o|contracted procedure: k10765 
o|contracted procedure: k10769 
o|contracted procedure: k10789 
o|contracted procedure: k11277 
o|contracted procedure: k10795 
o|contracted procedure: k10837 
o|contracted procedure: k10840 
o|contracted procedure: k10849 
o|contracted procedure: k10875 
o|contracted procedure: k10878 
o|contracted procedure: k10886 
o|contracted procedure: k10898 
o|contracted procedure: k10901 
o|contracted procedure: k10904 
o|contracted procedure: k10912 
o|contracted procedure: k10920 
o|contracted procedure: k10929 
o|contracted procedure: k10940 
o|contracted procedure: k10943 
o|contracted procedure: k11086 
o|contracted procedure: k10955 
o|contracted procedure: k10991 
o|contracted procedure: k10995 
o|contracted procedure: k11002 
o|contracted procedure: k11035 
o|contracted procedure: k11039 
o|contracted procedure: k11075 
o|contracted procedure: k11100 
o|contracted procedure: k11103 
o|contracted procedure: k11115 
o|contracted procedure: k11118 
o|contracted procedure: k11126 
o|contracted procedure: k11138 
o|contracted procedure: k11141 
o|contracted procedure: k11144 
o|contracted procedure: k11152 
o|contracted procedure: k11160 
o|contracted procedure: k11197 
o|contracted procedure: k11172 
o|contracted procedure: k11182 
o|contracted procedure: k11186 
o|contracted procedure: k11190 
o|contracted procedure: k11194 
o|contracted procedure: k11236 
o|contracted procedure: k11232 
o|contracted procedure: k11248 
o|contracted procedure: k11270 
o|contracted procedure: k11266 
o|contracted procedure: k11251 
o|contracted procedure: k11254 
o|contracted procedure: k11262 
o|contracted procedure: k11322 
o|contracted procedure: k11286 
o|contracted procedure: k11289 
o|contracted procedure: k11292 
o|contracted procedure: k11300 
o|contracted procedure: k11304 
o|contracted procedure: k11312 
o|contracted procedure: k11316 
o|contracted procedure: k11331 
o|contracted procedure: k11334 
o|contracted procedure: k11340 
o|inlining procedure: k9572 
o|inlining procedure: k9572 
o|contracted procedure: k11352 
o|contracted procedure: k11359 
o|contracted procedure: k22821 
o|contracted procedure: k11378 
o|contracted procedure: k11382 
o|contracted procedure: k22869 
o|inlining procedure: k9572 
o|contracted procedure: k11386 
o|contracted procedure: k11397 
o|contracted procedure: k11411 
o|contracted procedure: k11400 
o|contracted procedure: k11407 
o|contracted procedure: k22843 
o|contracted procedure: k22855 
o|contracted procedure: k11416 
o|contracted procedure: k11422 
o|contracted procedure: k11435 
o|contracted procedure: k11439 
o|contracted procedure: k11448 
o|contracted procedure: k11455 
o|contracted procedure: k11459 
o|contracted procedure: k22929 
o|contracted procedure: k22932 
o|contracted procedure: k22944 
o|contracted procedure: k22947 
o|contracted procedure: k22950 
o|contracted procedure: k22958 
o|contracted procedure: k22966 
o|contracted procedure: k11478 
o|contracted procedure: k11490 
o|contracted procedure: k11496 
o|contracted procedure: k11504 
o|contracted procedure: k11508 
o|contracted procedure: k11512 
o|contracted procedure: k11518 
o|contracted procedure: k11521 
o|contracted procedure: k11532 
o|contracted procedure: k11544 
o|contracted procedure: k11554 
o|contracted procedure: k11558 
o|contracted procedure: k11644 
o|contracted procedure: k11682 
o|contracted procedure: k11694 
o|contracted procedure: k11704 
o|contracted procedure: k11708 
o|contracted procedure: k11679 
o|propagated global variable: g18961898 chicken.compiler.scrutinizer#specialization-statistics 
o|contracted procedure: k11712 
o|contracted procedure: k11716 
o|contracted procedure: k11739 
o|contracted procedure: k11751 
o|contracted procedure: k11769 
o|contracted procedure: k11776 
o|contracted procedure: k11789 
o|contracted procedure: k11804 
o|contracted procedure: k11811 
o|contracted procedure: k11800 
o|contracted procedure: k11823 
o|contracted procedure: k11826 
o|contracted procedure: k11829 
o|contracted procedure: k11837 
o|contracted procedure: k11845 
o|contracted procedure: k11854 
o|contracted procedure: k11857 
o|contracted procedure: k11870 
o|contracted procedure: k11885 
o|contracted procedure: k11892 
o|contracted procedure: k11896 
o|contracted procedure: k13492 
o|contracted procedure: k11929 
o|contracted procedure: k13486 
o|contracted procedure: k11932 
o|contracted procedure: k13480 
o|contracted procedure: k11935 
o|contracted procedure: k11953 
o|contracted procedure: k11959 
o|contracted procedure: k11969 
o|contracted procedure: k11975 
o|contracted procedure: k11985 
o|contracted procedure: k12066 
o|contracted procedure: k11991 
o|contracted procedure: k12062 
o|contracted procedure: k12002 
o|contracted procedure: k12013 
o|contracted procedure: k12028 
o|contracted procedure: k6900 
o|contracted procedure: k6935 
o|contracted procedure: k1208826269 
o|contracted procedure: k6913 
o|contracted procedure: k6922 
o|contracted procedure: k12107 
o|contracted procedure: k12118 
o|contracted procedure: k12135 
o|contracted procedure: k12144 
o|contracted procedure: k12153 
o|contracted procedure: k12162 
o|contracted procedure: k12187 
o|contracted procedure: k12191 
o|contracted procedure: k12196 
o|contracted procedure: k12231 
o|contracted procedure: k12251 
o|contracted procedure: k12255 
o|contracted procedure: k12264 
o|contracted procedure: k13465 
o|contracted procedure: k12270 
o|contracted procedure: k12281 
o|contracted procedure: k12304 
o|contracted procedure: k12290 
o|contracted procedure: k12300 
o|contracted procedure: k12308 
o|contracted procedure: k12393 
o|contracted procedure: k12311 
o|contracted procedure: k12353 
o|contracted procedure: k12319 
o|contracted procedure: k12345 
o|contracted procedure: k12331 
o|contracted procedure: k12341 
o|contracted procedure: k12349 
o|contracted procedure: k12390 
o|contracted procedure: k12362 
o|contracted procedure: k12372 
o|contracted procedure: k12379 
o|contracted procedure: k12375 
o|contracted procedure: k12386 
o|contracted procedure: k13459 
o|contracted procedure: k12402 
o|contracted procedure: k12413 
o|contracted procedure: k12436 
o|contracted procedure: k12422 
o|contracted procedure: k12432 
o|contracted procedure: k12440 
o|contracted procedure: k12474 
o|contracted procedure: k12446 
o|contracted procedure: k12456 
o|contracted procedure: k12463 
o|contracted procedure: k12459 
o|contracted procedure: k12470 
o|contracted procedure: k12480 
o|contracted procedure: k12489 
o|contracted procedure: k12498 
o|contracted procedure: k12504 
o|contracted procedure: k12507 
o|contracted procedure: k12513 
o|contracted procedure: k13451 
o|contracted procedure: k12550 
o|contracted procedure: k12553 
o|contracted procedure: k12577 
o|contracted procedure: k13443 
o|contracted procedure: k12588 
o|contracted procedure: k12594 
o|contracted procedure: k12618 
o|contracted procedure: k13435 
o|contracted procedure: k12629 
o|contracted procedure: k12636 
o|contracted procedure: k13427 
o|contracted procedure: k12648 
o|contracted procedure: k12655 
o|contracted procedure: k13419 
o|contracted procedure: k12667 
o|contracted procedure: k12674 
o|contracted procedure: k13411 
o|contracted procedure: k12680 
o|contracted procedure: k12687 
o|contracted procedure: k12693 
o|contracted procedure: k12699 
o|contracted procedure: k12710 
o|contracted procedure: k12716 
o|contracted procedure: k12722 
o|contracted procedure: k12733 
o|contracted procedure: k12739 
o|contracted procedure: k12745 
o|contracted procedure: k12756 
o|contracted procedure: k12762 
o|contracted procedure: k12776 
o|contracted procedure: k12782 
o|contracted procedure: k12809 
o|contracted procedure: k12818 
o|contracted procedure: k12827 
o|contracted procedure: k12833 
o|contracted procedure: k12836 
o|contracted procedure: k12843 
o|contracted procedure: k12847 
o|contracted procedure: k12853 
o|contracted procedure: k12856 
o|contracted procedure: k12877 
o|contracted procedure: k12881 
o|contracted procedure: k12862 
o|contracted procedure: k12869 
o|contracted procedure: k12873 
o|contracted procedure: k12887 
o|contracted procedure: k12896 
o|contracted procedure: k12906 
o|contracted procedure: k12910 
o|contracted procedure: k12914 
o|contracted procedure: k12918 
o|contracted procedure: k13387 
o|contracted procedure: k12946 
o|contracted procedure: k12952 
o|contracted procedure: k12959 
o|contracted procedure: k13379 
o|contracted procedure: k12965 
o|contracted procedure: k12972 
o|contracted procedure: k13371 
o|contracted procedure: k12978 
o|contracted procedure: k12984 
o|contracted procedure: k12991 
o|contracted procedure: k12997 
o|contracted procedure: k13010 
o|contracted procedure: k13014 
o|contracted procedure: k13018 
o|contracted procedure: k13024 
o|contracted procedure: k13030 
o|contracted procedure: k13043 
o|contracted procedure: k13060 
o|contracted procedure: k13050 
o|contracted procedure: k13047 
o|contracted procedure: k13064 
o|contracted procedure: k13068 
o|contracted procedure: k13363 
o|contracted procedure: k13080 
o|contracted procedure: k13086 
o|contracted procedure: k13093 
o|contracted procedure: k13099 
o|contracted procedure: k13112 
o|contracted procedure: k13116 
o|contracted procedure: k13120 
o|contracted procedure: k13126 
o|contracted procedure: k13132 
o|contracted procedure: k13162 
o|contracted procedure: k13152 
o|contracted procedure: k1314926752 
o|contracted procedure: k13145 
o|contracted procedure: k13149 
o|contracted procedure: k13166 
o|contracted procedure: k13170 
o|contracted procedure: k13355 
o|contracted procedure: k13182 
o|contracted procedure: k13188 
o|contracted procedure: k13194 
o|contracted procedure: k13200 
o|contracted procedure: k13207 
o|contracted procedure: k13211 
o|contracted procedure: k13347 
o|contracted procedure: k13224 
o|contracted procedure: k13230 
o|contracted procedure: k13236 
o|contracted procedure: k13245 
o|contracted procedure: k13339 
o|contracted procedure: k13258 
o|contracted procedure: k13264 
o|contracted procedure: k13270 
o|contracted procedure: k13276 
o|contracted procedure: k13283 
o|contracted procedure: k13287 
o|contracted procedure: k13331 
o|contracted procedure: k13300 
o|contracted procedure: k13306 
o|contracted procedure: k13312 
o|contracted procedure: k13321 
o|contracted procedure: k13395 
o|contracted procedure: k13401 
o|contracted procedure: k13498 
o|contracted procedure: k13505 
o|contracted procedure: k13523 
o|contracted procedure: k13532 
o|contracted procedure: k13535 
o|contracted procedure: k13580 
o|contracted procedure: k13544 
o|contracted procedure: k13557 
o|contracted procedure: k13576 
o|contracted procedure: k13598 
o|contracted procedure: k13605 
o|contracted procedure: k13608 
o|contracted procedure: k13623 
o|contracted procedure: k13636 
o|contracted procedure: k13640 
o|contracted procedure: k13661 
o|contracted procedure: k13673 
o|contracted procedure: k13695 
o|contracted procedure: k13655 
o|contracted procedure: k13645 
o|contracted procedure: k13691 
o|contracted procedure: k13676 
o|contracted procedure: k13679 
o|contracted procedure: k13687 
o|contracted procedure: k13704 
o|contracted procedure: k13713 
o|contracted procedure: k14004 
o|contracted procedure: k13719 
o|contracted procedure: k13999 
o|contracted procedure: k13726 
o|contracted procedure: k13744 
o|contracted procedure: k13799 
o|contracted procedure: k13811 
o|contracted procedure: k13818 
o|contracted procedure: k13826 
o|contracted procedure: k13775 
o|contracted procedure: k14784 
o|contracted procedure: k14739 
o|contracted procedure: k14745 
o|contracted procedure: k14748 
o|contracted procedure: k14774 
o|contracted procedure: k14778 
o|contracted procedure: k14770 
o|contracted procedure: k13786 
o|contracted procedure: k13862 
o|contracted procedure: k13869 
o|contracted procedure: k13880 
o|contracted procedure: k13951 
o|contracted procedure: k13889 
o|contracted procedure: k13923 
o|contracted procedure: k13935 
o|propagated global variable: g25662567 chicken.compiler.scrutinizer#type<=? 
o|contracted procedure: k13945 
o|propagated global variable: g25582559 chicken.compiler.scrutinizer#type<=? 
o|contracted procedure: k13990 
o|contracted procedure: k13963 
o|contracted procedure: k13972 
o|contracted procedure: k13981 
o|contracted procedure: k14008 
o|contracted procedure: k14012 
o|contracted procedure: k14024 
o|contracted procedure: k14027 
o|contracted procedure: k14030 
o|contracted procedure: k14038 
o|contracted procedure: k14046 
o|contracted procedure: k14055 
o|contracted procedure: k14058 
o|contracted procedure: k14067 
o|contracted procedure: k14084 
o|contracted procedure: k14088 
o|contracted procedure: k7805 
o|contracted procedure: k7812 
o|contracted procedure: k7820 
o|contracted procedure: k7766 
o|contracted procedure: k7778 
o|contracted procedure: k7785 
o|contracted procedure: k7793 
o|contracted procedure: k7789 
o|contracted procedure: k14099 
o|contracted procedure: k14105 
o|contracted procedure: k14127 
o|contracted procedure: k14117 
o|contracted procedure: k14124 
o|contracted procedure: k14134 
o|contracted procedure: k14138 
o|contracted procedure: k14144 
o|contracted procedure: k14153 
o|contracted procedure: k14162 
o|contracted procedure: k14168 
o|contracted procedure: k14177 
o|contracted procedure: k14186 
o|contracted procedure: k14192 
o|contracted procedure: k14198 
o|contracted procedure: k14205 
o|contracted procedure: k14209 
o|contracted procedure: k14221 
o|contracted procedure: k14224 
o|contracted procedure: k14227 
o|contracted procedure: k14235 
o|contracted procedure: k14243 
o|contracted procedure: k14254 
o|contracted procedure: k14261 
o|contracted procedure: k14265 
o|contracted procedure: k14277 
o|contracted procedure: k14280 
o|contracted procedure: k14283 
o|contracted procedure: k14291 
o|contracted procedure: k14299 
o|contracted procedure: k14308 
o|contracted procedure: k14311 
o|contracted procedure: k14314 
o|contracted procedure: k14321 
o|contracted procedure: k14379 
o|contracted procedure: k14382 
o|contracted procedure: k14385 
o|contracted procedure: k14325 
o|contracted procedure: k14332 
o|contracted procedure: k14335 
o|contracted procedure: k14338 
o|contracted procedure: k14350 
o|contracted procedure: k14353 
o|contracted procedure: k14356 
o|contracted procedure: k14364 
o|contracted procedure: k14372 
o|contracted procedure: k14397 
o|contracted procedure: k14400 
o|contracted procedure: k14403 
o|contracted procedure: k14411 
o|contracted procedure: k14419 
o|contracted procedure: k14464 
o|contracted procedure: k7670 
o|contracted procedure: k7696 
o|contracted procedure: k7676 
o|contracted procedure: k7690 
o|contracted procedure: k14491 
o|contracted procedure: k14495 
o|contracted procedure: k14537 
o|contracted procedure: k14508 
o|contracted procedure: k14512 
o|contracted procedure: k14528 
o|contracted procedure: k14546 
o|contracted procedure: k14558 
o|contracted procedure: k14564 
o|contracted procedure: k14571 
o|contracted procedure: k14578 
o|contracted procedure: k14718 
o|contracted procedure: k14584 
o|contracted procedure: k14618 
o|contracted procedure: k14590 
o|contracted procedure: k14601 
o|contracted procedure: k14613 
o|contracted procedure: k14629 
o|contracted procedure: k14673 
o|contracted procedure: k14635 
o|contracted procedure: k14642 
o|contracted procedure: k14654 
o|contracted procedure: k14658 
o|contracted procedure: k14666 
o|contracted procedure: k14670 
o|contracted procedure: k14662 
o|contracted procedure: k14685 
o|contracted procedure: k14708 
o|contracted procedure: k14805 
o|contracted procedure: k14812 
o|contracted procedure: k14864 
o|contracted procedure: k14871 
o|contracted procedure: k15183 
o|contracted procedure: k15189 
o|contracted procedure: k15171 
o|contracted procedure: k14920 
o|contracted procedure: k14933 
o|contracted procedure: k14937 
o|contracted procedure: k14941 
o|contracted procedure: k15165 
o|contracted procedure: k14947 
o|contracted procedure: k14960 
o|contracted procedure: k14964 
o|contracted procedure: k14968 
o|contracted procedure: k15127 
o|contracted procedure: k14980 
o|contracted procedure: k14989 
o|contracted procedure: k15002 
o|contracted procedure: k15011 
o|contracted procedure: k15014 
o|contracted procedure: k15017 
o|contracted procedure: k15020 
o|contracted procedure: k15023 
o|contracted procedure: k15082 
o|contracted procedure: k15046 
o|contracted procedure: k15049 
o|contracted procedure: k15052 
o|contracted procedure: k15060 
o|contracted procedure: k15064 
o|contracted procedure: k15072 
o|contracted procedure: k15076 
o|contracted procedure: k14836 
o|contracted procedure: k14843 
o|contracted procedure: k15091 
o|contracted procedure: k15103 
o|contracted procedure: k15109 
o|contracted procedure: k15116 
o|contracted procedure: k15120 
o|contracted procedure: k15135 
o|contracted procedure: k15141 
o|contracted procedure: k15153 
o|contracted procedure: k15196 
o|contracted procedure: k15202 
o|contracted procedure: k15211 
o|contracted procedure: k15218 
o|contracted procedure: k15225 
o|contracted procedure: k15231 
o|contracted procedure: k15237 
o|contracted procedure: k15257 
o|contracted procedure: k15264 
o|contracted procedure: k15271 
o|contracted procedure: k15277 
o|contracted procedure: k15280 
o|contracted procedure: k15286 
o|contracted procedure: k15295 
o|contracted procedure: k15308 
o|contracted procedure: k15315 
o|contracted procedure: k15322 
o|contracted procedure: k15328 
o|contracted procedure: k15331 
o|contracted procedure: k15337 
o|contracted procedure: k15340 
o|contracted procedure: k15365 
o|contracted procedure: k15372 
o|contracted procedure: k15379 
o|contracted procedure: k15385 
o|contracted procedure: k15388 
o|contracted procedure: k15394 
o|contracted procedure: k15397 
o|contracted procedure: k15630 
o|contracted procedure: k15419 
o|contracted procedure: k15622 
o|contracted procedure: k15431 
o|contracted procedure: k15450 
o|contracted procedure: k15535 
o|contracted procedure: k15461 
o|contracted procedure: k15475 
o|contracted procedure: k15494 
o|contracted procedure: k15501 
o|contracted procedure: k15509 
o|contracted procedure: k15558 
o|contracted procedure: k15538 
o|contracted procedure: k15554 
o|contracted procedure: k15541 
o|contracted procedure: k15614 
o|contracted procedure: k15564 
o|contracted procedure: k15571 
o|contracted procedure: k15574 
o|contracted procedure: k15582 
o|contracted procedure: k15588 
o|contracted procedure: k15598 
o|contracted procedure: k15773 
o|contracted procedure: k15780 
o|contracted procedure: k15800 
o|contracted procedure: k15787 
o|contracted procedure: k15790 
o|contracted procedure: k15806 
o|contracted procedure: k15813 
o|contracted procedure: k15826 
o|contracted procedure: k15837 
o|contracted procedure: k15832 
o|contracted procedure: k15846 
o|contracted procedure: k15853 
o|contracted procedure: k15859 
o|contracted procedure: k15879 
o|contracted procedure: k15869 
o|contracted procedure: k15866 
o|contracted procedure: k15885 
o|contracted procedure: k15892 
o|contracted procedure: k15902 
o|contracted procedure: k15911 
o|contracted procedure: k15918 
o|contracted procedure: k15929 
o|contracted procedure: k15936 
o|contracted procedure: k15949 
o|contracted procedure: k15952 
o|contracted procedure: k15958 
o|contracted procedure: k15964 
o|contracted procedure: k15971 
o|contracted procedure: k16002 
o|contracted procedure: k16009 
o|contracted procedure: k16016 
o|contracted procedure: k16022 
o|contracted procedure: k16189 
o|contracted procedure: k16028 
o|contracted procedure: k16034 
o|contracted procedure: k16037 
o|contracted procedure: k16082 
o|contracted procedure: k16046 
o|contracted procedure: k16052 
o|contracted procedure: k16064 
o|contracted procedure: k16074 
o|contracted procedure: k16078 
o|contracted procedure: k16091 
o|contracted procedure: k16101 
o|contracted procedure: k16105 
o|contracted procedure: k16108 
o|contracted procedure: k16111 
o|contracted procedure: k16155 
o|contracted procedure: k16120 
o|contracted procedure: k16125 
o|contracted procedure: k16137 
o|contracted procedure: k16147 
o|contracted procedure: k16151 
o|contracted procedure: k16164 
o|contracted procedure: k16174 
o|contracted procedure: k16178 
o|contracted procedure: k16185 
o|contracted procedure: k16195 
o|contracted procedure: k16206 
o|contracted procedure: k16210 
o|contracted procedure: k16235 
o|contracted procedure: k16238 
o|contracted procedure: k16250 
o|contracted procedure: k16253 
o|contracted procedure: k16256 
o|contracted procedure: k16264 
o|contracted procedure: k16272 
o|contracted procedure: k16218 
o|contracted procedure: k16228 
o|contracted procedure: k16232 
o|contracted procedure: k16281 
o|contracted procedure: k16285 
o|contracted procedure: k16297 
o|contracted procedure: k16307 
o|contracted procedure: k16311 
o|contracted procedure: k16334 
o|contracted procedure: k16353 
o|contracted procedure: k16337 
o|contracted procedure: k16349 
o|contracted procedure: k16340 
o|contracted procedure: k16378 
o|contracted procedure: k16386 
o|contracted procedure: k16392 
o|contracted procedure: k16401 
o|contracted procedure: k16408 
o|contracted procedure: k16412 
o|contracted procedure: k16419 
o|contracted procedure: k16422 
o|contracted procedure: k16833 
o|contracted procedure: k16437 
o|contracted procedure: k16443 
o|contracted procedure: k16446 
o|contracted procedure: k16455 
o|contracted procedure: k16461 
o|contracted procedure: k16468 
o|contracted procedure: k16477 
o|contracted procedure: k16489 
o|contracted procedure: k16492 
o|contracted procedure: k16495 
o|contracted procedure: k16503 
o|contracted procedure: k16511 
o|contracted procedure: k16520 
o|contracted procedure: k16531 
o|contracted procedure: k16537 
o|contracted procedure: k16540 
o|contracted procedure: k16549 
o|contracted procedure: k16557 
o|contracted procedure: k16563 
o|contracted procedure: k16575 
o|contracted procedure: k16584 
o|contracted procedure: k16596 
o|contracted procedure: k16599 
o|contracted procedure: k16602 
o|contracted procedure: k16610 
o|contracted procedure: k16618 
o|contracted procedure: k16627 
o|contracted procedure: k16647 
o|inlining procedure: k16651 
o|contracted procedure: k16662 
o|inlining procedure: k16651 
o|contracted procedure: k16665 
o|contracted procedure: k16673 
o|contracted procedure: k16685 
o|contracted procedure: k16688 
o|contracted procedure: k16691 
o|contracted procedure: k16699 
o|contracted procedure: k16707 
o|contracted procedure: k16719 
o|contracted procedure: k16782 
o|contracted procedure: k16725 
o|contracted procedure: k16731 
o|contracted procedure: k16750 
o|contracted procedure: k16790 
o|contracted procedure: k16796 
o|contracted procedure: k16802 
o|contracted procedure: k17158 
o|contracted procedure: k17170 
o|contracted procedure: k17180 
o|contracted procedure: k17184 
o|contracted procedure: k16864 
o|contracted procedure: k17152 
o|contracted procedure: k17146 
o|contracted procedure: k16870 
o|contracted procedure: k16979 
o|contracted procedure: k16997 
o|contracted procedure: k17006 
o|contracted procedure: k17009 
o|contracted procedure: k17015 
o|contracted procedure: k17029 
o|contracted procedure: k17043 
o|contracted procedure: k17057 
o|contracted procedure: k17071 
o|contracted procedure: k17081 
o|contracted procedure: k17085 
o|contracted procedure: k17112 
o|contracted procedure: k17119 
o|contracted procedure: k17127 
o|contracted procedure: k17132 
o|contracted procedure: k17139 
o|contracted procedure: k17214 
o|contracted procedure: k17226 
o|contracted procedure: k17324 
o|contracted procedure: k17337 
o|contracted procedure: k7275 
o|contracted procedure: k7286 
o|contracted procedure: k17378 
o|contracted procedure: k17385 
o|contracted procedure: k17398 
o|contracted procedure: k17406 
o|contracted procedure: k17414 
o|contracted procedure: k17422 
o|contracted procedure: k17443 
o|contracted procedure: k17450 
o|contracted procedure: k17458 
o|contracted procedure: k17476 
o|contracted procedure: k17491 
o|contracted procedure: k17501 
o|contracted procedure: k17505 
o|contracted procedure: k17519 
o|contracted procedure: k17523 
o|contracted procedure: k17238 
o|contracted procedure: k17250 
o|contracted procedure: k17257 
o|contracted procedure: k17266 
o|contracted procedure: k17278 
o|contracted procedure: k17290 
o|contracted procedure: k17286 
o|contracted procedure: k17282 
o|contracted procedure: k17570 
o|contracted procedure: k17552 
o|contracted procedure: k17561 
o|contracted procedure: k17597 
o|contracted procedure: k17603 
o|contracted procedure: k17615 
o|contracted procedure: k17618 
o|contracted procedure: k17621 
o|contracted procedure: k17629 
o|contracted procedure: k17637 
o|contracted procedure: k17723 
o|contracted procedure: k17748 
o|contracted procedure: k17751 
o|contracted procedure: k743626379 
o|contracted procedure: k17764 
o|contracted procedure: k17778 
o|contracted procedure: k17813 
o|contracted procedure: k17784 
o|contracted procedure: k17809 
o|contracted procedure: k17790 
o|contracted procedure: k17816 
o|contracted procedure: k17841 
o|contracted procedure: k17822 
o|contracted procedure: k17829 
o|contracted procedure: k17836 
o|contracted procedure: k17845 
o|contracted procedure: k17853 
o|contracted procedure: k17926 
o|contracted procedure: k17907 
o|contracted procedure: k17922 
o|contracted procedure: k17913 
o|contracted procedure: k17935 
o|contracted procedure: k17941 
o|contracted procedure: k18056 
o|contracted procedure: k17947 
o|contracted procedure: k18052 
o|contracted procedure: k17953 
o|contracted procedure: k17956 
o|contracted procedure: k17973 
o|contracted procedure: k17976 
o|contracted procedure: k17982 
o|contracted procedure: k18005 
o|contracted procedure: k17988 
o|contracted procedure: k18001 
o|contracted procedure: k18015 
o|contracted procedure: k19129 
o|contracted procedure: k18062 
o|contracted procedure: k18068 
o|contracted procedure: k18074 
o|contracted procedure: k18080 
o|contracted procedure: k18089 
o|contracted procedure: k18095 
o|contracted procedure: k18101 
o|contracted procedure: k18107 
o|contracted procedure: k18113 
o|contracted procedure: k18119 
o|contracted procedure: k19120 
o|contracted procedure: k18131 
o|contracted procedure: k18137 
o|contracted procedure: k19116 
o|contracted procedure: k18143 
o|contracted procedure: k18165 
o|contracted procedure: k18149 
o|contracted procedure: k18160 
o|contracted procedure: k19112 
o|contracted procedure: k18171 
o|contracted procedure: k18335 
o|contracted procedure: k18177 
o|contracted procedure: k18330 
o|contracted procedure: k18183 
o|contracted procedure: k18204 
o|contracted procedure: k18217 
o|contracted procedure: k18236 
o|contracted procedure: k18240 
o|contracted procedure: k18244 
o|contracted procedure: k18252 
o|contracted procedure: k18267 
o|contracted procedure: k18273 
o|contracted procedure: k18280 
o|contracted procedure: k18258 
o|contracted procedure: k18286 
o|contracted procedure: k18289 
o|contracted procedure: k18301 
o|contracted procedure: k18304 
o|contracted procedure: k18307 
o|contracted procedure: k18315 
o|contracted procedure: k18323 
o|contracted procedure: k18349 
o|contracted procedure: k18353 
o|contracted procedure: k19068 
o|contracted procedure: k18362 
o|contracted procedure: k18368 
o|contracted procedure: k18437 
o|contracted procedure: k18433 
o|contracted procedure: k18374 
o|contracted procedure: k18377 
o|contracted procedure: k18380 
o|contracted procedure: k18383 
o|contracted procedure: k18404 
o|contracted procedure: k18407 
o|contracted procedure: k18410 
o|contracted procedure: k18418 
o|contracted procedure: k18426 
o|contracted procedure: k19064 
o|contracted procedure: k18443 
o|contracted procedure: k18464 
o|contracted procedure: k18449 
o|contracted procedure: k18459 
o|contracted procedure: k18455 
o|contracted procedure: k19060 
o|contracted procedure: k18470 
o|contracted procedure: k18491 
o|contracted procedure: k18476 
o|contracted procedure: k18486 
o|contracted procedure: k18482 
o|contracted procedure: k19056 
o|contracted procedure: k18497 
o|contracted procedure: k18572 
o|contracted procedure: k18503 
o|contracted procedure: k18563 
o|contracted procedure: k18542 
o|contracted procedure: k18555 
o|contracted procedure: k18559 
o|contracted procedure: k18519 
o|contracted procedure: k18527 
o|contracted procedure: k18567 
o|contracted procedure: k18698 
o|contracted procedure: k18586 
o|contracted procedure: k18589 
o|contracted procedure: k18592 
o|contracted procedure: k18604 
o|contracted procedure: k18618 
o|contracted procedure: k18614 
o|contracted procedure: k17879 
o|contracted procedure: k17886 
o|contracted procedure: k18638 
o|contracted procedure: k18649 
o|contracted procedure: k18665 
o|contracted procedure: k18657 
o|contracted procedure: k18661 
o|contracted procedure: k18653 
o|contracted procedure: k18690 
o|contracted procedure: k18668 
o|contracted procedure: k18685 
o|contracted procedure: k18674 
o|contracted procedure: k18681 
o|contracted procedure: k18708 
o|contracted procedure: k18715 
o|contracted procedure: k18743 
o|contracted procedure: k18721 
o|contracted procedure: k18734 
o|contracted procedure: k18738 
o|contracted procedure: k18750 
o|contracted procedure: k18757 
o|contracted procedure: k18764 
o|contracted procedure: k18773 
o|contracted procedure: k18780 
o|contracted procedure: k18799 
o|contracted procedure: k18803 
o|contracted procedure: k18810 
o|contracted procedure: k19049 
o|contracted procedure: k18816 
o|contracted procedure: k18882 
o|contracted procedure: k18822 
o|contracted procedure: k18825 
o|contracted procedure: k18828 
o|contracted procedure: k18831 
o|contracted procedure: k18852 
o|contracted procedure: k18855 
o|contracted procedure: k18858 
o|contracted procedure: k18866 
o|contracted procedure: k18874 
o|contracted procedure: k19045 
o|contracted procedure: k18888 
o|contracted procedure: k19041 
o|contracted procedure: k18894 
o|contracted procedure: k19037 
o|contracted procedure: k19030 
o|contracted procedure: k18897 
o|contracted procedure: k19027 
o|contracted procedure: k19017 
o|contracted procedure: k18900 
o|contracted procedure: k18906 
o|contracted procedure: k18912 
o|contracted procedure: k18946 
o|contracted procedure: k18949 
o|contracted procedure: k18958 
o|contracted procedure: k18964 
o|contracted procedure: k18967 
o|contracted procedure: k18985 
o|contracted procedure: k18988 
o|contracted procedure: k18991 
o|contracted procedure: k18999 
o|contracted procedure: k19007 
o|contracted procedure: k19108 
o|contracted procedure: k19071 
o|contracted procedure: k19104 
o|contracted procedure: k19077 
o|contracted procedure: k19100 
o|contracted procedure: k19083 
o|contracted procedure: k19096 
o|contracted procedure: k19089 
o|contracted procedure: k19123 
o|contracted procedure: k19166 
o|contracted procedure: k19159 
o|contracted procedure: k19153 
o|contracted procedure: k19169 
o|contracted procedure: k19177 
o|contracted procedure: k19185 
o|contracted procedure: k19205 
o|contracted procedure: k19173 
o|contracted procedure: k19217 
o|contracted procedure: k19220 
o|contracted procedure: k19223 
o|contracted procedure: k19231 
o|contracted procedure: k19239 
o|contracted procedure: k19279 
o|contracted procedure: k19254 
o|contracted procedure: k19298 
o|contracted procedure: k19309 
o|contracted procedure: k19332 
o|contracted procedure: k19335 
o|contracted procedure: k19348 
o|contracted procedure: k19354 
o|inlining procedure: k19351 
o|contracted procedure: k19363 
o|contracted procedure: k19463 
o|contracted procedure: k19369 
o|contracted procedure: k19376 
o|contracted procedure: k19399 
o|contracted procedure: k19402 
o|contracted procedure: k19409 
o|inlining procedure: k19351 
o|contracted procedure: k19418 
o|contracted procedure: k19421 
o|contracted procedure: k19424 
o|contracted procedure: k19432 
o|contracted procedure: k19440 
o|contracted procedure: k19459 
o|contracted procedure: k19449 
o|inlining procedure: k19351 
o|contracted procedure: k19483 
o|contracted procedure: k19486 
o|contracted procedure: k19489 
o|contracted procedure: k19497 
o|contracted procedure: k19505 
o|contracted procedure: k19514 
o|contracted procedure: k19521 
o|contracted procedure: k19524 
o|contracted procedure: k19536 
o|contracted procedure: k19539 
o|contracted procedure: k19542 
o|contracted procedure: k19550 
o|contracted procedure: k19558 
o|contracted procedure: k19675 
o|contracted procedure: k19570 
o|contracted procedure: k19671 
o|contracted procedure: k19576 
o|contracted procedure: k19579 
o|contracted procedure: k19582 
o|contracted procedure: k19589 
o|contracted procedure: k19598 
o|contracted procedure: k19618 
o|contracted procedure: k19626 
o|contracted procedure: k19622 
o|contracted procedure: k19647 
o|contracted procedure: k19650 
o|contracted procedure: k19657 
o|contracted procedure: k19660 
o|contracted procedure: k19667 
o|contracted procedure: k19694 
o|contracted procedure: k19722 
o|contracted procedure: k19700 
o|contracted procedure: k19711 
o|contracted procedure: k19718 
o|contracted procedure: k19822 
o|contracted procedure: k19737 
o|contracted procedure: k19818 
o|contracted procedure: k19743 
o|contracted procedure: k19749 
o|contracted procedure: k19814 
o|contracted procedure: k19755 
o|contracted procedure: k19761 
o|contracted procedure: k19767 
o|contracted procedure: k19773 
o|contracted procedure: k19779 
o|contracted procedure: k19785 
o|contracted procedure: k19797 
o|contracted procedure: k19791 
o|contracted procedure: k19878 
o|contracted procedure: k19839 
o|contracted procedure: k19845 
o|contracted procedure: k19862 
o|contracted procedure: k19858 
o|contracted procedure: k19833 
o|contracted procedure: k19870 
o|contracted procedure: k19866 
o|contracted procedure: k19896 
o|contracted procedure: k20040 
o|contracted procedure: k19908 
o|contracted procedure: k19914 
o|contracted procedure: k19920 
o|contracted procedure: k20036 
o|contracted procedure: k19929 
o|contracted procedure: k19966 
o|contracted procedure: k19935 
o|contracted procedure: k19948 
o|contracted procedure: k7002 
o|contracted procedure: k7016 
o|contracted procedure: k7026 
o|contracted procedure: k7020 
o|contracted procedure: k20032 
o|contracted procedure: k19972 
o|contracted procedure: k19984 
o|contracted procedure: k20018 
o|contracted procedure: k20008 
o|contracted procedure: k20012 
o|contracted procedure: k20021 
o|contracted procedure: k20028 
o|contracted procedure: k20163 
o|contracted procedure: k20087 
o|contracted procedure: k20159 
o|contracted procedure: k20093 
o|contracted procedure: k20099 
o|contracted procedure: k20105 
o|contracted procedure: k20111 
o|contracted procedure: k20117 
o|contracted procedure: k20049 
o|contracted procedure: k20065 
o|contracted procedure: k20055 
o|contracted procedure: k20062 
o|contracted procedure: k20204 
o|contracted procedure: k20213 
o|contracted procedure: k20216 
o|contracted procedure: k20219 
o|contracted procedure: k20333 
o|contracted procedure: k20225 
o|contracted procedure: k20255 
o|contracted procedure: k20262 
o|contracted procedure: k20270 
o|contracted procedure: k20266 
o|contracted procedure: k20274 
o|contracted procedure: k20325 
o|contracted procedure: k20284 
o|contracted procedure: k20297 
o|contracted procedure: k20307 
o|contracted procedure: k20469 
o|contracted procedure: k20477 
o|contracted procedure: k20480 
o|contracted procedure: k20509 
o|contracted procedure: k743626474 
o|contracted procedure: k20485 
o|contracted procedure: k20491 
o|contracted procedure: k20503 
o|contracted procedure: k20494 
o|contracted procedure: k20524 
o|contracted procedure: k20539 
o|contracted procedure: k20551 
o|contracted procedure: k20566 
o|contracted procedure: k20569 
o|contracted procedure: k20572 
o|contracted procedure: k20580 
o|contracted procedure: k20588 
o|contracted procedure: k20599 
o|contracted procedure: k20602 
o|contracted procedure: k7303 
o|contracted procedure: k7310 
o|contracted procedure: k20614 
o|contracted procedure: k20617 
o|contracted procedure: k20620 
o|contracted procedure: k20628 
o|contracted procedure: k20636 
o|contracted procedure: k20658 
o|contracted procedure: k20664 
o|contracted procedure: k20697 
o|contracted procedure: k20670 
o|contracted procedure: k20691 
o|contracted procedure: k20677 
o|contracted procedure: k20685 
o|contracted procedure: k20703 
o|contracted procedure: k20715 
o|contracted procedure: k20725 
o|contracted procedure: k20729 
o|contracted procedure: k20764 
o|contracted procedure: k20773 
o|contracted procedure: k20857 
o|contracted procedure: k20779 
o|contracted procedure: k20800 
o|contracted procedure: k20791 
o|contracted procedure: k20807 
o|contracted procedure: k20829 
o|contracted procedure: k20832 
o|contracted procedure: k20835 
o|contracted procedure: k20843 
o|contracted procedure: k20851 
o|contracted procedure: k21299 
o|contracted procedure: k20892 
o|contracted procedure: k21296 
o|contracted procedure: k20904 
o|contracted procedure: k20942 
o|contracted procedure: k20950 
o|contracted procedure: k20953 
o|contracted procedure: k20956 
o|contracted procedure: k20968 
o|contracted procedure: k20971 
o|contracted procedure: k20974 
o|contracted procedure: k20982 
o|contracted procedure: k20990 
o|contracted procedure: k21291 
o|contracted procedure: k20996 
o|contracted procedure: k21005 
o|contracted procedure: k21017 
o|contracted procedure: k21020 
o|contracted procedure: k21030 
o|contracted procedure: k21039 
o|contracted procedure: k21061 
o|contracted procedure: k21057 
o|contracted procedure: k21042 
o|contracted procedure: k21045 
o|contracted procedure: k21053 
o|contracted procedure: k20886 
o|contracted procedure: k21070 
o|contracted procedure: k21082 
o|contracted procedure: k21085 
o|contracted procedure: k21088 
o|contracted procedure: k21100 
o|contracted procedure: k21103 
o|contracted procedure: k21106 
o|contracted procedure: k21114 
o|contracted procedure: k21122 
o|contracted procedure: k21131 
o|contracted procedure: k21137 
o|contracted procedure: k21140 
o|contracted procedure: k21146 
o|contracted procedure: k21161 
o|contracted procedure: k21168 
o|contracted procedure: k21179 
o|contracted procedure: k21198 
o|contracted procedure: k21201 
o|contracted procedure: k21204 
o|contracted procedure: k21216 
o|contracted procedure: k21219 
o|contracted procedure: k21222 
o|contracted procedure: k21230 
o|contracted procedure: k21238 
o|contracted procedure: k21250 
o|contracted procedure: k21253 
o|contracted procedure: k21256 
o|contracted procedure: k21264 
o|contracted procedure: k21272 
o|contracted procedure: k21281 
o|contracted procedure: k21288 
o|contracted procedure: k21344 
o|contracted procedure: k21353 
o|contracted procedure: k21359 
o|contracted procedure: k21366 
o|contracted procedure: k21375 
o|contracted procedure: k21387 
o|contracted procedure: k21390 
o|contracted procedure: k21393 
o|contracted procedure: k21401 
o|contracted procedure: k21409 
o|contracted procedure: k21415 
o|contracted procedure: k21467 
o|contracted procedure: k17662 
o|contracted procedure: k17691 
o|contracted procedure: k17671 
o|contracted procedure: k17687 
o|contracted procedure: k17677 
o|contracted procedure: k17697 
o|contracted procedure: k21652 
o|contracted procedure: k21491 
o|contracted procedure: k21525 
o|contracted procedure: k21535 
o|contracted procedure: k21649 
o|contracted procedure: k21544 
o|contracted procedure: k21577 
o|inlining procedure: k21639 
o|inlining procedure: k21639 
o|contracted procedure: k21700 
o|contracted procedure: k21670 
o|contracted procedure: k21685 
o|contracted procedure: k21689 
o|contracted procedure: k21703 
o|contracted procedure: k21798 
o|contracted procedure: k21805 
o|contracted procedure: k21819 
o|contracted procedure: k21822 
o|contracted procedure: k21825 
o|contracted procedure: k21831 
o|contracted procedure: k21892 
o|contracted procedure: k21914 
o|contracted procedure: k22144 
o|contracted procedure: k22193 
o|contracted procedure: k22269 
o|contracted procedure: k22238 
o|contracted procedure: k22287 
o|contracted procedure: k22401 
o|contracted procedure: k22397 
o|contracted procedure: k22414 
o|contracted procedure: k22463 
o|contracted procedure: k22432 
o|contracted procedure: k22476 
o|contracted procedure: k22583 
o|contracted procedure: k22498 
o|contracted procedure: k22596 
o|contracted procedure: k22703 
o|contracted procedure: k22618 
o|contracted procedure: k23157 
o|contracted procedure: k23080 
o|contracted procedure: k23106 
o|contracted procedure: k20370 
o|contracted procedure: k20379 
o|contracted procedure: k20385 
o|contracted procedure: k20391 
o|contracted procedure: k20397 
o|contracted procedure: k20413 
o|contracted procedure: k20364 
o|contracted procedure: k20428 
o|contracted procedure: k20434 
o|contracted procedure: k20441 
o|contracted procedure: k23225 
o|contracted procedure: k23179 
o|contracted procedure: k23221 
o|contracted procedure: k23185 
o|contracted procedure: k23191 
o|contracted procedure: k23217 
o|contracted procedure: k23197 
o|contracted procedure: k23207 
o|contracted procedure: k23173 
o|contracted procedure: k23240 
o|contracted procedure: k23243 
o|contracted procedure: k23246 
o|contracted procedure: k23236 
o|contracted procedure: k23258 
o|contracted procedure: k23280 
o|contracted procedure: k23276 
o|contracted procedure: k23261 
o|contracted procedure: k23264 
o|contracted procedure: k23272 
o|contracted procedure: k23297 
o|contracted procedure: k23300 
o|contracted procedure: k23303 
o|contracted procedure: k23293 
o|contracted procedure: k23315 
o|contracted procedure: k23337 
o|contracted procedure: k23333 
o|contracted procedure: k23318 
o|contracted procedure: k23321 
o|contracted procedure: k23329 
o|contracted procedure: k23405 
o|contracted procedure: k23349 
o|contracted procedure: k23360 
o|contracted procedure: k23364 
o|contracted procedure: k23356 
o|contracted procedure: k23376 
o|contracted procedure: k23398 
o|contracted procedure: k23394 
o|contracted procedure: k23379 
o|contracted procedure: k23382 
o|contracted procedure: k23390 
o|contracted procedure: k23470 
o|contracted procedure: k23414 
o|contracted procedure: k23425 
o|contracted procedure: k23429 
o|contracted procedure: k23421 
o|contracted procedure: k23441 
o|contracted procedure: k23463 
o|contracted procedure: k23459 
o|contracted procedure: k23444 
o|contracted procedure: k23447 
o|contracted procedure: k23455 
o|contracted procedure: k23493 
o|contracted procedure: k23500 
o|contracted procedure: k23521 
o|contracted procedure: k23527 
o|contracted procedure: k23557 
o|contracted procedure: k23533 
o|contracted procedure: k23539 
o|contracted procedure: k23550 
o|contracted procedure: k23546 
o|contracted procedure: k23628 
o|contracted procedure: k23572 
o|contracted procedure: k23578 
o|contracted procedure: k23584 
o|contracted procedure: k23590 
o|contracted procedure: k23596 
o|contracted procedure: k23605 
o|contracted procedure: k23612 
o|contracted procedure: k23566 
o|simplifications: ((if . 17) (let . 547)) 
o|removed binding forms: 1713 
o|inlining procedure: "(scrutinizer.scm:2796) chicken.compiler.scrutinizer#call-node-procedure-name" 
o|inlining procedure: "(scrutinizer.scm:2821) chicken.compiler.scrutinizer#call-node-procedure-name" 
o|inlining procedure: "(scrutinizer.scm:2640) chicken.compiler.scrutinizer#multiples" 
o|inlining procedure: "(scrutinizer.scm:2639) chicken.compiler.scrutinizer#multiples" 
o|inlining procedure: "(scrutinizer.scm:2621) chicken.compiler.scrutinizer#call-node-procedure-name" 
o|contracted procedure: k9765 
o|inlining procedure: "(scrutinizer.scm:2988) chicken.compiler.scrutinizer#multiples" 
o|inlining procedure: "(scrutinizer.scm:2986) chicken.compiler.scrutinizer#multiples" 
o|contracted procedure: k12165 
o|inlining procedure: "(scrutinizer.scm:979) chicken.compiler.scrutinizer#maybe-expand-type" 
o|inlining procedure: "(scrutinizer.scm:978) chicken.compiler.scrutinizer#maybe-expand-type" 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest28312834 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest28312834 0 
o|inlining procedure: "(scrutinizer.scm:1342) chicken.compiler.scrutinizer#maybe-expand-type" 
o|inlining procedure: "(scrutinizer.scm:1341) chicken.compiler.scrutinizer#maybe-expand-type" 
o|contracted procedure: k15482 
o|contracted procedure: k16031 
o|contracted procedure: k16985 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest34583461 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest34583461 0 
o|contracted procedure: k17720 
o|inlining procedure: k18942 
o|inlining procedure: k18942 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest41204123 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest41204123 0 
o|contracted procedure: k19306 
o|contracted procedure: k19611 
o|contracted procedure: k19632 
o|inlining procedure: "(scrutinizer.scm:2184) list-or-null4436" 
o|inlining procedure: "(scrutinizer.scm:2183) list-or-null4436" 
o|inlining procedure: "(scrutinizer.scm:2188) list-or-null4436" 
o|contracted procedure: k20001 
o|inlining procedure: k20473 
o|inlining procedure: k20473 
o|inlining procedure: "(scrutinizer.scm:2646) chicken.compiler.scrutinizer#call-node-procedure-name" 
o|inlining procedure: "(scrutinizer.scm:2680) chicken.compiler.scrutinizer#call-node-procedure-name" 
o|inlining procedure: "(scrutinizer.scm:2708) 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: r1894328458 
o|removed side-effect free assignment to unused variable: list-or-null4436 
o|contracted procedure: "(scrutinizer.scm:2216) split-list-type4437" 
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: k19962 
o|inlining procedure: k19991 
o|converted assignments to bindings: (list+index-call-result-type-special-case4439) 
o|simplifications: ((let . 1)) 
o|replaced variables: 25 
o|removed binding forms: 40 
o|contracted procedure: k22111 
o|contracted procedure: k22115 
o|contracted procedure: k23007 
o|contracted procedure: k23019 
o|contracted procedure: k19958 
o|removed binding forms: 11 
o|direct leaf routine/allocation: g378379 3 
o|direct leaf routine/allocation: a8553 0 
o|direct leaf routine/allocation: tag819 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: doloop32743275 0 
o|direct leaf routine/allocation: loop3770 0 
o|direct leaf routine/allocation: g38813882 3 
o|contracted procedure: "(mini-srfi-1.scm:216) k7972" 
o|contracted procedure: "(scrutinizer.scm:337) k9297" 
o|contracted procedure: "(scrutinizer.scm:458) k10004" 
o|contracted procedure: "(scrutinizer.scm:458) k10008" 
o|contracted procedure: "(scrutinizer.scm:540) k10158" 
o|contracted procedure: "(scrutinizer.scm:804) k11720" 
o|contracted procedure: "(scrutinizer.scm:891) k12020" 
o|contracted procedure: "(scrutinizer.scm:893) k12035" 
o|contracted procedure: "(scrutinizer.scm:905) k12104" 
o|contracted procedure: "(scrutinizer.scm:1214) k14073" 
o|contracted procedure: "(scrutinizer.scm:1242) k14440" 
o|contracted procedure: "(scrutinizer.scm:1291) k14605" 
o|contracted procedure: "(scrutinizer.scm:1292) k14609" 
o|contracted procedure: "(scrutinizer.scm:1442) k15489" 
o|converted assignments to bindings: (doloop32743275) 
o|converted assignments to bindings: (loop3770) 
o|contracted procedure: "(scrutinizer.scm:2429) k20916" 
o|simplifications: ((let . 2)) 
o|removed binding forms: 15 
o|direct leaf routine/allocation: loop541 0 
o|contracted procedure: k8544 
o|converted assignments to bindings: (loop541) 
o|simplifications: ((let . 1)) 
o|removed binding forms: 1 
o|customizable procedures: (list+index-call-result-type-special-case4439 map-loop45294546 map-loop45634580 map-loop45974614 map-loop46314648 k20373 p5580 p5532 p5510 file-location5356 p-expr5318 p-node5319 rec5249 chicken.compiler.scrutinizer#variable-and-module k21551 g51755184 map-loop51695198 walk5158 map-loop50875104 map-loop51145131 k21189 R4976 map-loop50595076 k21014 map-loop50295047 map-loop49915008 conv4955 g49334942 map-loop49274945 restore4785 loop4865 collect4786 g48824889 for-each-loop48814896 map-loop48044821 loop301 g48374846 map-loop48314856 doloop47894790 derive-result-type4691 lp4693 foldl47104720 lp4457 loop185 k20136 g45044505 known-length-vector-index4367 chicken.compiler.scrutinizer#r-index-out-of-range loop4302 rec4282 g41574166 map-loop41514266 g41794188 map-loop41734206 fail4147 g42324241 map-loop42264259 g40684069 g40824091 map-loop40764101 k19143 k18338 map-loop40374054 k18928 map-loop39954012 g39873988 loop3975 g39413942 k18595 memq*3756 k18630 loop3761 k18536 map-loop38903907 g38453854 map-loop38393863 validate3758 validate-llist3757 k17770 subst3719 map-loop36773694 chicken.compiler.scrutinizer#source-node loop23587 loop13584 g36033610 for-each-loop36023647 k17331 wrap3626 loop295 adjust3508 loop3515 k16906 for-each-loop34923571 k16566 loop3412 g34273436 map-loop34213446 g33803389 map-loop33743399 g33283337 map-loop33223347 g32983299 k16395 resolve3289 for-each-loop32543264 k16268 map-loop32263244 for-each-loop31913201 for-each-loop32083218 for-each-loop31563166 for-each-loop31733183 loop3139 g30463047 loop13007 k15441 loop3020 k14974 k15008 map-loop29012920 g28702871 g28592860 loop2850 a14858 g27242725 g27062707 loop435 map-loop26552672 map-loop26812698 map-loop26262643 map-loop25972614 chicken.compiler.scrutinizer#canonicalize-list-type foldl486494 foldl474500 map-loop24722489 chicken.compiler.scrutinizer#delete-duplicates chicken.compiler.scrutinizer#lset=/eq? loop2545 k13771 chicken.compiler.scrutinizer#merge-argument-types loop2773 foldl25162531 map-loop24392458 chicken.compiler.scrutinizer#filter-map simplify2422 loop2405 k12773 every-match12053 chicken.compiler.scrutinizer#procedure-arguments chicken.compiler.scrutinizer#procedure-results match-args2048 chicken.compiler.scrutinizer#over-all-instantiations g22192220 g22082209 g21802181 g21472148 g21612162 rawmatch12052 loop2123 match-results2051 loop164 match12054 match-rest2049 loop2058 loop1945 map-loop19601977 doloop19421943 for-each-loop18891909 g18641871 for-each-loop18631874 loop1851 chicken.compiler.scrutinizer#node-source-prefix chicken.compiler.scrutinizer#location-name chicken.compiler.scrutinizer#string-add-indent map-loop56685685 chicken.compiler.scrutinizer#compatible-types? k11368 k11371 g16091619 map-loop16031632 map-loop16501667 g17361744 for-each-loop17351790 g18061815 map-loop18001825 k10958 g17821783 smash1690 g17051714 map-loop16991724 k10828 call-result818 k10681 k10658 k10661 k10532 k10547 chicken.compiler.scrutinizer#smash-component-types! k10426 loop1568 initial-argument-types821 map-loop14181439 k10271 k10186 g14871488 loop1476 k10065 k10049 loop1387 single815 always-true813 k9721 g13201327 for-each-loop13191332 add-to-blist820 k9771 map-loop13481372 walk822 variable-result811 g12191228 map-loop12131241 loop1197 map-loop9981015 chicken.compiler.scrutinizer#make-list k8821 chicken.compiler.scrutinizer#strip-namespace chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch doloop10541055 k8858 k15679 loop3070 g30653066 loop13057 chicken.compiler.scrutinizer#procedure-name k9179 g11121113 chicken.compiler.scrutinizer#append-map loop1115 g11061107 chicken.compiler.scrutinizer#mutate-node! g10751076 chicken.compiler.scrutinizer#match-argument-types chicken.compiler.scrutinizer#trail-restore chicken.compiler.scrutinizer#fragment chicken.compiler.scrutinizer#specialize-node! k8867 k8933 k8870 g11591168 map-loop11531178 chicken.compiler.scrutinizer#procedure-argument-types chicken.compiler.scrutinizer#describe-expression chicken.compiler.scrutinizer#variable-from-module variable-node-name5384 chicken.compiler.scrutinizer#pp-fragment chicken.compiler.scrutinizer#type->pp-string blist-type810 k8587 g905906 chicken.compiler.scrutinizer#r-deprecated-identifier map-loop868885 chicken.compiler.scrutinizer#simplify-type constant-result808 map-loop836853 chicken.compiler.scrutinizer#list-tabulate chicken.compiler.scrutinizer#every loop513 map-loop391409 foldr363366 g368369 loop308 loop328 loop282 loop269 chicken.compiler.scrutinizer#any map-loop213231 map-loop240258 loop209 foldr198201 g203204 chicken.compiler.scrutinizer#take) 
o|shared closure containers: 123 
o|shared closure users: 160 
o|calls to known targets: 948 
o|identified direct recursive calls: f_6939 1 
o|identified direct recursive calls: f_7045 1 
o|identified direct recursive calls: f_7117 1 
o|identified direct recursive calls: f_7166 1 
o|identified direct recursive calls: f_7493 1 
o|identified direct recursive calls: f_7566 1 
o|unused rest argument: _57326119 f26120 
o|unused rest argument: _573 f_8034 
o|identified direct recursive calls: f_8164 1 
o|identified direct recursive calls: f_7961 1 
o|identified direct recursive calls: f_8636 2 
o|identified direct recursive calls: f_15683 1 
o|identified direct recursive calls: f_15640 1 
o|identified direct recursive calls: f_10319 1 
o|identified direct recursive calls: f_10436 1 
o|identified direct recursive calls: f_11764 1 
o|identified direct recursive calls: f_11948 2 
o|identified direct recursive calls: f_6895 1 
o|identified direct recursive calls: f_7665 2 
o|identified direct recursive calls: f_14553 1 
o|unused rest argument: rest28312834 f_14850 
o|identified direct recursive calls: f_15200 1 
o|identified direct recursive calls: f_15252 1 
o|identified direct recursive calls: f_15303 1 
o|identified direct recursive calls: f_15360 1 
o|identified direct recursive calls: f_15445 2 
o|identified direct recursive calls: f_15426 1 
o|identified direct recursive calls: f_15768 1 
o|identified direct recursive calls: f_15841 1 
o|identified direct recursive calls: f_15900 1 
o|identified direct recursive calls: f_15944 1 
o|identified direct recursive calls: f_15997 1 
o|identified direct recursive calls: f_16329 1 
o|identified direct recursive calls: f_16714 2 
o|identified direct recursive calls: f_16376 2 
o|identified direct recursive calls: f_16974 1 
o|unused rest argument: rest34583461 f_16837 
o|identified direct recursive calls: f_7270 1 
o|identified direct recursive calls: f_17373 1 
o|identified direct recursive calls: f_17261 1 
o|identified direct recursive calls: f_17902 1 
o|identified direct recursive calls: f_17930 1 
o|identified direct recursive calls: f_17874 1 
o|unused rest argument: rest41204123 f_19252 
o|identified direct recursive calls: f_19593 1 
o|identified direct recursive calls: f_19689 1 
o|identified direct recursive calls: f_6997 1 
o|identified direct recursive calls: f_19979 1 
o|identified direct recursive calls: f_20250 1 
o|identified direct recursive calls: f_7298 1 
o|identified direct recursive calls: f_21539 1 
o|fast box initializations: 145 
o|fast global references: 387 
o|fast global assignments: 90 
o|dropping unused closure argument: f_11728 
o|dropping unused closure argument: f_13512 
o|dropping unused closure argument: f_13584 
o|dropping unused closure argument: f_14553 
o|dropping unused closure argument: f_14791 
o|dropping unused closure argument: f_15252 
o|dropping unused closure argument: f_15303 
o|dropping unused closure argument: f_15360 
o|dropping unused closure argument: f_15417 
o|dropping unused closure argument: f_15768 
o|dropping unused closure argument: f_15821 
o|dropping unused closure argument: f_15841 
o|dropping unused closure argument: f_15944 
o|dropping unused closure argument: f_16323 
o|dropping unused closure argument: f_17532 
o|dropping unused closure argument: f_17550 
o|dropping unused closure argument: f_17712 
o|dropping unused closure argument: f_17896 
o|dropping unused closure argument: f_19565 
o|dropping unused closure argument: f_19679 
o|dropping unused closure argument: f_19729 
o|dropping unused closure argument: f_20074 
o|dropping unused closure argument: f_20452 
o|dropping unused closure argument: f_20777 
o|dropping unused closure argument: f_20864 
o|dropping unused closure argument: f_21330 
o|dropping unused closure argument: f_21435 
o|dropping unused closure argument: f_21459 
o|dropping unused closure argument: f_21489 
o|dropping unused closure argument: f_21659 
o|dropping unused closure argument: f_21710 
o|dropping unused closure argument: f_21770 
o|dropping unused closure argument: f_21773 
o|dropping unused closure argument: f_22134 
o|dropping unused closure argument: f_22273 
o|dropping unused closure argument: f_23078 
o|dropping unused closure argument: f_6939 
o|dropping unused closure argument: f_7030 
o|dropping unused closure argument: f_7200 
o|dropping unused closure argument: f_7234 
o|dropping unused closure argument: f_7395 
o|dropping unused closure argument: f_7484 
o|dropping unused closure argument: f_7842 
o|dropping unused closure argument: f_7884 
o|dropping unused closure argument: f_8025 
o|dropping unused closure argument: f_8722 
*/
/* end of file */
