/* Generated from library.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: library.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -feature debugbuild -verbose -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file library.c -no-module-registration -emit-import-library chicken.bitwise -emit-import-library chicken.bytevector -emit-import-library chicken.fixnum -emit-import-library chicken.flonum -emit-import-library chicken.gc -emit-import-library chicken.keyword -emit-import-library chicken.platform -emit-import-library chicken.plist -emit-import-library chicken.io -emit-import-library chicken.process-context
   unit: library
   uses: build-version library
*/
#include "chicken.h"

#include <errno.h>
#include <float.h>

#ifdef HAVE_SYSEXITS_H
# include <sysexits.h>
#endif

#ifndef EX_SOFTWARE
# define EX_SOFTWARE	70
#endif

#define C_close_file(p)	      (C_fclose((C_FILEPTR)(C_port_file(p))), C_SCHEME_UNDEFINED)
#define C_a_f64peek(ptr, c, b, i)  C_flonum(ptr, ((double *)C_data_pointer(b))[ C_unfix(i) ])
#define C_fetch_c_strlen(b, i) C_fix(strlen((C_char *)C_block_item(b, C_unfix(i))))
#define C_asciiz_strlen(str) C_fix(strlen(C_c_string(str)))
#define C_peek_c_string(b, i, to, len) (C_memcpy(C_data_pointer(to), (C_char *)C_block_item(b, C_unfix(i)), C_unfix(len)), C_SCHEME_UNDEFINED)
#define C_free_mptr(p, i)     (C_free((void *)C_block_item(p, C_unfix(i))), C_SCHEME_UNDEFINED)
#define C_free_sptr(p, i)     (C_free((void *)(((C_char **)C_block_item(p, 0))[ C_unfix(i) ])), C_SCHEME_UNDEFINED)

#define C_a_get_current_seconds(ptr, c, dummy)  C_int64_to_num(ptr, time(NULL))
#define C_peek_c_string_at(ptr, i)    ((C_char *)(((C_char **)ptr)[ i ]))

#define C_flush_all_files(dummy)    (C_fflush(NULL), C_SCHEME_UNDEFINED)

static C_word
fast_read_line_from_file(C_word str, C_word start, C_word port, C_word size) {
  int n = C_unfix(size);
  int i;
  int c;
  int p = C_unfix(start);
  char *buf = C_c_string(str) + p;
  C_FILEPTR fp = C_port_file(port);

  if ((c = C_getc(fp)) == EOF) {
    if (ferror(fp)) {
      clearerr(fp);
      if(p) return start;
      return C_fix(-1);
    } else { /* feof (fp) */
      if(p) return start;
      return C_SCHEME_END_OF_FILE;
    }
  }

  C_ungetc(c, fp);

  for (i = 0; i < n; i++) {
    c = C_getc(fp);

    if(c == EOF && ferror(fp)) {
      clearerr(fp);
      return C_fix(-(i + 1) + p);
    }

    switch (c) {
    case '\r':	if ((c = C_getc(fp)) != '\n') C_ungetc(c, fp);
    case EOF:	clearerr(fp);
    case '\n':	return C_fix(i + p);
    }
    buf[i] = c;
  }
  if(p) return start;
  return C_SCHEME_FALSE;
}

static C_word
fast_read_string_from_file(C_word dest, C_word port, C_word len, C_word pos)
{
  size_t m;
  int n = C_unfix (len);
  C_char * buf = C_c_string(dest) + C_unfix(pos);
  C_FILEPTR fp = C_port_file (port);

  if(feof(fp)) return C_SCHEME_END_OF_FILE;

  m = fread (buf, sizeof (char), n, fp);

  if (m < n) {
    if (ferror(fp)) /* Report to Scheme, which may retry, so clear errors */
      clearerr(fp);
    else if (feof(fp) && 0 == m) /* eof but m > 0? Return data first, below */
      return C_SCHEME_END_OF_FILE; /* Calling again will get us here */
  }

  return C_fix (m);
}

static C_word
shallow_equal(C_word x, C_word y)
{
  /* assumes x and y are non-immediate */
  int i, len = C_header_size(x);

  if(C_header_size(y) != len) return C_SCHEME_FALSE;
  else return C_mk_bool(!C_memcmp((void *)x, (void *)y, len * sizeof(C_word)));
}

static C_word
signal_debug_event(C_word mode, C_word msg, C_word args)
{
  C_DEBUG_INFO cell;
  C_word av[ 3 ];
  cell.enabled = 1;
  cell.event = C_DEBUG_SIGNAL;
  cell.loc = "";
  cell.val = "";
  av[ 0 ] = mode;
  av[ 1 ] = msg;
  av[ 2 ] = args;
  C_debugger(&cell, 3, av);
  return C_SCHEME_UNDEFINED;
}

static C_word C_i_sleep_until_interrupt(C_word secs)
{
   while(C_i_process_sleep(secs) == C_fix(-1) && errno == EINTR);
   return C_SCHEME_UNDEFINED;
}

#ifdef NO_DLOAD2
# define HAVE_DLOAD 0
#else
# define HAVE_DLOAD 1
#endif

#ifdef C_ENABLE_PTABLES
# define HAVE_PTABLES 1
#else
# define HAVE_PTABLES 0
#endif

#ifdef C_GC_HOOKS
# define HAVE_GCHOOKS 1
#else
# define HAVE_GCHOOKS 0
#endif

#if defined(C_CROSS_CHICKEN) && C_CROSS_CHICKEN
# define IS_CROSS_CHICKEN 1
#else
# define IS_CROSS_CHICKEN 0
#endif

#if defined(_WIN32) && !defined(__CYGWIN__)
#include <direct.h>

static C_word C_chdir(C_word str) {
	return C_fix(_wchdir(C_utf16(str, 0)));
}

static C_word C_curdir(C_word buf, C_word size) {
	C_WCHAR *cwd = _wgetcwd((C_WCHAR *)C_c_string(buf), C_unfix(size));
        if(cwd == NULL) return C_SCHEME_FALSE;
	C_char *up = C_utf8(cwd);
	C_char *p = up;
	while(*p) {
		*p = *p == '\\' ? '/' : *p;
		++p;
	}
	int len = C_strlen(up);
	C_memcpy(cwd, up, len + 1);
        return C_fix(len);
}
#else
# define C_chdir(str) C_fix(chdir(C_c_string(str)))
# define C_curdir(buf, size) (getcwd(C_c_string(buf), size) ? C_fix(strlen(C_c_string(buf))) : C_SCHEME_FALSE)
#endif



static C_PTABLE_ENTRY *create_ptable(void);
C_noret_decl(C_build_2dversion_toplevel)
C_extern void C_ccall C_build_2dversion_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[1644];
static double C_possibly_force_alignment;
static C_char li0[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,110,111,116,32,120,41,0,0};
static C_char li1[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,98,111,111,108,101,97,110,63,32,120,41,0,0,0,0,0};
static C_char li2[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,101,113,63,32,120,32,121,41};
static C_char li3[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,101,113,118,63,32,120,32,121,41,0,0,0,0,0,0,0};
static C_char li4[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,101,113,117,97,108,63,32,120,32,121,41,0,0,0,0,0};
static C_char li5[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,102,41};
static C_char li6[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,98,111,111,108,101,97,110,61,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0,0};
static C_char li7[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,102,41};
static C_char li8[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,115,121,109,98,111,108,61,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0,0,0};
static C_char li9[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,112,97,105,114,63,32,120,41};
static C_char li10[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,111,110,115,32,120,32,121,41,0,0,0,0,0,0,0};
static C_char li11[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,99,97,114,32,120,41,0,0};
static C_char li12[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,99,100,114,32,120,41,0,0};
static C_char li13[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,115,101,116,45,99,97,114,33,32,120,32,121,41,0,0,0};
static C_char li14[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,115,101,116,45,99,100,114,33,32,120,32,121,41,0,0,0};
static C_char li15[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,99,97,100,114,32,120,41,0};
static C_char li16[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,97,100,100,114,32,120,41};
static C_char li17[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,100,100,100,114,32,120,41,0,0,0,0,0,0,0};
static C_char li18[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,100,100,100,114,32,120,41,0,0,0,0,0,0,0};
static C_char li19[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,99,97,97,114,32,120,41,0};
static C_char li20[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,99,100,97,114,32,120,41,0};
static C_char li21[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,99,100,100,114,32,120,41,0};
static C_char li22[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,97,97,97,114,32,120,41};
static C_char li23[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,97,97,100,114,32,120,41};
static C_char li24[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,97,100,97,114,32,120,41};
static C_char li25[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,100,97,97,114,32,120,41};
static C_char li26[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,100,97,100,114,32,120,41};
static C_char li27[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,100,100,97,114,32,120,41};
static C_char li28[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,100,100,100,114,32,120,41};
static C_char li29[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,97,97,97,114,32,120,41,0,0,0,0,0,0,0};
static C_char li30[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,97,97,100,114,32,120,41,0,0,0,0,0,0,0};
static C_char li31[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,97,100,97,114,32,120,41,0,0,0,0,0,0,0};
static C_char li32[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,97,100,100,114,32,120,41,0,0,0,0,0,0,0};
static C_char li33[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,100,97,97,114,32,120,41,0,0,0,0,0,0,0};
static C_char li34[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,100,97,100,114,32,120,41,0,0,0,0,0,0,0};
static C_char li35[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,100,100,97,114,32,120,41,0,0,0,0,0,0,0};
static C_char li36[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,97,97,97,114,32,120,41,0,0,0,0,0,0,0};
static C_char li37[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,97,97,100,114,32,120,41,0,0,0,0,0,0,0};
static C_char li38[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,97,100,97,114,32,120,41,0,0,0,0,0,0,0};
static C_char li39[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,97,100,100,114,32,120,41,0,0,0,0,0,0,0};
static C_char li40[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,100,97,97,114,32,120,41,0,0,0,0,0,0,0};
static C_char li41[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,100,97,100,114,32,120,41,0,0,0,0,0,0,0};
static C_char li42[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,100,100,97,114,32,120,41,0,0,0,0,0,0,0};
static C_char li43[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,110,117,108,108,63,32,120,41};
static C_char li44[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,108,105,115,116,32,46,32,108,115,116,41,0,0,0,0,0};
static C_char li45[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,108,101,110,103,116,104,32,108,115,116,41,0,0,0,0,0};
static C_char li46[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,108,105,115,116,45,116,97,105,108,32,108,115,116,32,105,41};
static C_char li47[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,108,105,115,116,45,114,101,102,32,108,115,116,32,105,41,0};
static C_char li48[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,108,115,116,32,114,101,115,116,41,0};
static C_char li49[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,114,101,118,101,114,115,101,32,108,115,116,48,41,0,0,0};
static C_char li50[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,109,101,109,113,32,120,32,108,115,116,41,0,0,0,0,0};
static C_char li51[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,109,101,109,118,32,120,32,108,115,116,41,0,0,0,0,0};
static C_char li52[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0};
static C_char li53[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,109,101,109,98,101,114,32,120,32,108,115,116,32,46,32,114,101,115,116,41,0,0,0,0};
static C_char li54[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,97,115,115,113,32,120,32,108,115,116,41,0,0,0,0,0};
static C_char li55[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,97,115,115,118,32,120,32,108,115,116,41,0,0,0,0,0};
static C_char li56[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0};
static C_char li57[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,97,115,115,111,99,32,120,32,108,115,116,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li58[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,108,105,115,116,63,32,120,41};
static C_char li59[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,115,116,114,105,110,103,63,32,120,41,0,0,0,0,0,0};
static C_char li60[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,108,101,110,103,116,104,32,115,41};
static C_char li61[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,114,101,102,32,115,32,105,41,0};
static C_char li62[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,115,101,116,33,32,115,32,105,32,99,41,0,0,0,0,0,0};
static C_char li63[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,115,115,32,102,41,0,0,0,0,0};
static C_char li64[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,115,116,114,105,110,103,61,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0,0,0};
static C_char li65[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,115,115,32,102,41,0,0,0,0,0};
static C_char li66[] C_aligned={C_lihdr(0,0,31),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,61,63,32,120,32,121,32,46,32,109,111,114,101,41,0};
static C_char li67[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,101,120,97,99,116,45,62,105,110,101,120,97,99,116,32,120,41,0,0,0,0,0,0,0};
static C_char li68[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,97,98,115,32,120,41,0,0};
static C_char li69[] C_aligned={C_lihdr(0,0,6),67,95,112,108,117,115,0,0};
static C_char li70[] C_aligned={C_lihdr(0,0,7),67,95,109,105,110,117,115,0};
static C_char li71[] C_aligned={C_lihdr(0,0,7),67,95,116,105,109,101,115,0};
static C_char li72[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,113,117,111,116,105,101,110,116,32,97,32,98,41,0,0,0};
static C_char li73[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,114,101,109,97,105,110,100,101,114,32,97,32,98,41,0,0};
static C_char li74[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,109,111,100,117,108,111,32,97,32,98,41,0,0,0,0,0};
static C_char li75[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,101,118,101,110,63,32,110,41};
static C_char li76[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,111,100,100,63,32,110,41,0};
static C_char li77[] C_aligned={C_lihdr(0,0,9),67,95,110,101,113,117,97,108,112,0,0,0,0,0,0,0};
static C_char li78[] C_aligned={C_lihdr(0,0,10),67,95,103,114,101,97,116,101,114,112,0,0,0,0,0,0};
static C_char li79[] C_aligned={C_lihdr(0,0,7),67,95,108,101,115,115,112,0};
static C_char li80[] C_aligned={C_lihdr(0,0,20),67,95,103,114,101,97,116,101,114,95,111,114,95,101,113,117,97,108,95,112,0,0,0,0};
static C_char li81[] C_aligned={C_lihdr(0,0,17),67,95,108,101,115,115,95,111,114,95,101,113,117,97,108,95,112,0,0,0,0,0,0,0};
static C_char li82[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,110,117,109,98,101,114,63,32,120,41,0,0,0,0,0,0};
static C_char li83[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,114,101,97,108,63,32,120,41};
static C_char li84[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,114,97,116,105,111,110,97,108,63,32,110,41,0,0,0,0};
static C_char li85[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,105,110,116,101,103,101,114,63,32,120,41,0,0,0,0,0};
static C_char li86[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,101,120,97,99,116,63,32,120,41,0,0,0,0,0,0,0};
static C_char li87[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,105,110,101,120,97,99,116,63,32,120,41,0,0,0,0,0};
static C_char li88[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,122,101,114,111,63,32,110,41};
static C_char li89[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,112,111,115,105,116,105,118,101,63,32,110,41,0,0,0,0};
static C_char li90[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,110,101,103,97,116,105,118,101,63,32,110,41,0,0,0,0};
static C_char li91[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,101,120,97,99,116,45,105,110,116,101,103,101,114,63,32,120,41,0,0,0,0,0,0,0};
static C_char li92[] C_aligned={C_lihdr(0,0,18),67,95,110,117,109,98,101,114,95,116,111,95,115,116,114,105,110,103,0,0,0,0,0,0};
static C_char li93[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,115,121,109,98,111,108,63,32,120,41,0,0,0,0,0,0};
static C_char li94[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,118,101,99,116,111,114,63,32,120,41,0,0,0,0,0,0};
static C_char li95[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,108,101,110,103,116,104,32,118,41};
static C_char li96[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,114,101,102,32,118,32,105,41,0};
static C_char li97[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,115,101,116,33,32,118,32,105,32,120,41,0,0,0,0,0,0};
static C_char li98[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,104,97,114,63,32,120,41};
static C_char li99[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,99,104,97,114,45,62,105,110,116,101,103,101,114,32,99,41};
static C_char li100[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,99,104,97,114,45,99,111,100,101,32,110,32,108,111,99,41,0,0,0};
static C_char li101[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,105,110,116,101,103,101,114,45,62,99,104,97,114,32,110,41};
static C_char li102[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,99,115,32,102,41,0,0,0,0,0};
static C_char li103[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,99,104,97,114,61,63,32,99,49,32,99,50,32,46,32,109,111,114,101,41,0,0,0,0};
static C_char li104[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,99,115,32,102,41,0,0,0,0,0};
static C_char li105[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,99,104,97,114,62,63,32,99,49,32,99,50,32,46,32,109,111,114,101,41,0,0,0,0};
static C_char li106[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,99,115,32,102,41,0,0,0,0,0};
static C_char li107[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,99,104,97,114,60,63,32,99,49,32,99,50,32,46,32,109,111,114,101,41,0,0,0,0};
static C_char li108[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,99,115,32,102,41,0,0,0,0,0};
static C_char li109[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,99,104,97,114,62,61,63,32,99,49,32,99,50,32,46,32,109,111,114,101,41,0,0,0};
static C_char li110[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,99,115,32,102,41,0,0,0,0,0};
static C_char li111[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,99,104,97,114,60,61,63,32,99,49,32,99,50,32,46,32,109,111,114,101,41,0,0,0};
static C_char li112[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,99,104,97,114,45,117,112,99,97,115,101,32,99,41,0,0};
static C_char li113[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,99,104,97,114,45,100,111,119,110,99,97,115,101,32,99,41};
static C_char li114[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,117,112,112,101,114,45,99,97,115,101,63,32,99,41,0,0,0,0,0};
static C_char li115[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,108,111,119,101,114,45,99,97,115,101,63,32,99,41,0,0,0,0,0};
static C_char li116[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,99,104,97,114,45,110,117,109,101,114,105,99,63,32,99,41};
static C_char li117[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,119,104,105,116,101,115,112,97,99,101,63,32,99,41,0,0,0,0,0};
static C_char li118[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,97,108,112,104,97,98,101,116,105,99,63,32,99,41,0,0,0,0,0};
static C_char li119[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,46,99,104,97,114,35,100,105,103,105,116,45,118,97,108,117,101,32,99,41,0,0,0,0,0};
static C_char li120[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,99,104,97,114,45,102,111,108,100,99,97,115,101,32,99,41};
static C_char li121[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,102,111,108,100,99,97,115,101,32,115,116,114,41,0,0,0,0};
static C_char li122[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,100,111,119,110,99,97,115,101,32,115,116,114,41,0,0,0,0};
static C_char li123[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,117,112,99,97,115,101,32,115,116,114,41,0,0,0,0,0,0};
static C_char li124[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,112,114,111,99,101,100,117,114,101,63,32,120,41,0,0,0};
static C_char li125[] C_aligned={C_lihdr(0,0,7),67,95,97,112,112,108,121,0};
static C_char li126[] C_aligned={C_lihdr(0,0,8),67,95,118,97,108,117,101,115};
static C_char li127[] C_aligned={C_lihdr(0,0,18),67,95,99,97,108,108,95,119,105,116,104,95,118,97,108,117,101,115,0,0,0,0,0,0};
static C_char li128[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,105,110,112,117,116,45,112,111,114,116,63,32,120,41,0,0};
static C_char li129[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,111,117,116,112,117,116,45,112,111,114,116,63,32,120,41,0};
static C_char li130[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,98,105,110,97,114,121,45,112,111,114,116,63,32,112,111,114,116,41,0,0,0,0,0,0};
static C_char li131[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,116,101,120,116,117,97,108,45,112,111,114,116,63,32,112,111,114,116,41,0,0,0,0,0};
static C_char li132[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,112,111,114,116,63,32,120,41};
static C_char li133[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,105,110,112,117,116,45,112,111,114,116,45,111,112,101,110,63,32,112,41,0,0,0,0,0};
static C_char li134[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,111,117,116,112,117,116,45,112,111,114,116,45,111,112,101,110,63,32,112,41,0,0,0,0};
static C_char li135[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,101,111,102,45,111,98,106,101,99,116,63,32,120,41,0,0};
static C_char li136[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,101,118,97,108,32,120,32,46,32,101,110,118,41,0,0,0};
static C_char li137[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,105,110,116,101,114,97,99,116,105,111,110,45,101,110,118,105,114,111,110,109,101,110,116,41};
static C_char li138[] C_aligned={C_lihdr(0,0,36),40,115,99,104,101,109,101,35,115,99,104,101,109,101,45,114,101,112,111,114,116,45,101,110,118,105,114,111,110,109,101,110,116,32,110,41,0,0,0,0};
static C_char li139[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,110,117,108,108,45,101,110,118,105,114,111,110,109,101,110,116,41,0,0,0,0,0,0,0};
static C_char li140[] C_aligned={C_lihdr(0,0,34),40,115,99,104,101,109,101,35,108,111,97,100,32,102,105,108,101,110,97,109,101,32,46,32,101,118,97,108,117,97,116,111,114,41,0,0,0,0,0,0};
static C_char li141[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,105,120,110,117,109,63,32,120,41};
static C_char li142[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,108,111,110,117,109,63,32,120,41};
static C_char li143[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,98,105,103,110,117,109,63,32,120,41};
static C_char li144[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,114,97,116,110,117,109,63,32,120,41};
static C_char li145[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,112,108,120,110,117,109,63,32,120,41,0,0,0,0,0,0,0};
static C_char li146[] C_aligned={C_lihdr(0,0,24),67,95,113,117,111,116,105,101,110,116,95,97,110,100,95,114,101,109,97,105,110,100,101,114};
static C_char li147[] C_aligned={C_lihdr(0,0,8),40,97,49,50,56,56,50,41};
static C_char li148[] C_aligned={C_lihdr(0,0,16),40,97,49,50,56,56,56,32,100,105,118,32,114,101,109,41};
static C_char li149[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,97,115,101,35,113,117,111,116,105,101,110,116,38,109,111,100,117,108,111,32,120,32,121,41,0,0,0,0,0,0};
static C_char li150[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,105,110,105,116,101,63,32,120,41};
static C_char li151[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,98,97,115,101,35,105,110,102,105,110,105,116,101,63,32,120,41,0,0,0,0,0,0};
static C_char li152[] C_aligned={C_lihdr(0,0,21),40,99,104,105,99,107,101,110,46,98,97,115,101,35,110,97,110,63,32,120,41,0,0,0};
static C_char li153[] C_aligned={C_lihdr(0,0,8),67,95,115,105,103,110,117,109};
static C_char li154[] C_aligned={C_lihdr(0,0,21),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,100,100,49,32,110,41,0,0,0};
static C_char li155[] C_aligned={C_lihdr(0,0,21),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,117,98,49,32,110,41,0,0,0};
static C_char li156[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,114,114,111,114,32,46,32,97,114,103,115,41,0,0,0,0,0};
static C_char li157[] C_aligned={C_lihdr(0,0,23),40,99,104,105,99,107,101,110,46,98,97,115,101,35,118,111,105,100,32,46,32,95,41,0};
static C_char li158[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,111,109,105,115,101,63,32,120,41,0,0,0,0,0,0,0};
static C_char li159[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,109,97,107,101,45,112,114,111,109,105,115,101,32,112,114,111,99,41,0,0,0,0,0,0,0};
static C_char li160[] C_aligned={C_lihdr(0,0,8),40,97,49,51,48,48,51,41};
static C_char li161[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,98,97,115,101,35,109,97,107,101,45,112,114,111,109,105,115,101,32,111,98,106,41,0};
static C_char li162[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,115,116,32,122,41,0,0,0,0};
static C_char li163[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,111,108,100,108,32,102,32,122,32,108,115,116,41,0,0,0,0};
static C_char li164[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0};
static C_char li165[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,111,108,100,114,32,102,32,122,32,108,115,116,41,0,0,0,0};
static C_char li166[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,111,110,45,101,120,105,116,32,116,104,117,110,107,41,0,0,0,0};
static C_char li167[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,120,105,116,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
static C_char li168[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,109,101,114,103,101,110,99,121,45,101,120,105,116,32,46,32,114,101,115,116,41,0,0,0,0};
static C_char li169[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,98,97,115,101,35,105,100,101,110,116,105,116,121,32,120,41,0,0,0,0,0,0,0};
static C_char li170[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,101,100,115,41,0,0,0,0};
static C_char li171[] C_aligned={C_lihdr(0,0,11),40,102,95,49,51,49,51,51,32,120,41,0,0,0,0,0};
static C_char li172[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,110,106,111,105,110,32,46,32,112,114,101,100,115,41,0,0};
static C_char li173[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,101,100,115,41,0,0,0,0};
static C_char li174[] C_aligned={C_lihdr(0,0,11),40,102,95,49,51,49,54,54,32,120,41,0,0,0,0,0};
static C_char li175[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,100,105,115,106,111,105,110,32,46,32,112,114,101,100,115,41,0,0};
static C_char li176[] C_aligned={C_lihdr(0,0,13),40,102,95,49,51,50,49,50,32,46,32,95,41,0,0,0};
static C_char li177[] C_aligned={C_lihdr(0,0,13),40,102,95,49,51,50,49,52,32,46,32,95,41,0,0,0};
static C_char li178[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,110,115,116,97,110,116,108,121,32,46,32,120,115,41,0,0};
static C_char li179[] C_aligned={C_lihdr(0,0,13),40,102,95,49,51,50,50,52,32,120,32,121,41,0,0,0};
static C_char li180[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,108,105,112,32,112,114,111,99,41};
static C_char li181[] C_aligned={C_lihdr(0,0,16),40,102,95,49,51,50,51,50,32,46,32,97,114,103,115,41};
static C_char li182[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,109,112,108,101,109,101,110,116,32,112,41,0,0,0,0,0};
static C_char li183[] C_aligned={C_lihdr(0,0,8),40,97,49,51,50,53,56,41};
static C_char li184[] C_aligned={C_lihdr(0,0,16),40,102,95,49,51,50,53,51,32,46,32,97,114,103,115,41};
static C_char li185[] C_aligned={C_lihdr(0,0,14),40,114,101,99,32,102,48,32,46,32,102,110,115,41,0,0};
static C_char li186[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,109,112,111,115,101,32,46,32,102,110,115,41,0,0,0,0};
static C_char li187[] C_aligned={C_lihdr(0,0,11),40,102,95,49,51,51,48,52,32,120,41,0,0,0,0,0};
static C_char li188[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,102,110,115,41,0,0,0,0,0,0};
static C_char li189[] C_aligned={C_lihdr(0,0,22),40,99,104,105,99,107,101,110,46,98,97,115,101,35,111,32,46,32,102,110,115,41,0,0};
static C_char li190[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0};
static C_char li191[] C_aligned={C_lihdr(0,0,13),40,102,95,49,51,51,49,57,32,108,115,116,41,0,0,0};
static C_char li192[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,108,105,115,116,45,111,102,63,32,112,114,101,100,41,0,0,0,0};
static C_char li193[] C_aligned={C_lihdr(0,0,13),40,102,95,49,51,51,54,57,32,46,32,95,41,0,0,0};
static C_char li194[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,111,99,115,41,0,0,0,0};
static C_char li195[] C_aligned={C_lihdr(0,0,16),40,102,95,49,51,51,56,51,32,46,32,97,114,103,115,41};
static C_char li196[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,97,99,104,32,46,32,112,114,111,99,115,41,0,0,0,0,0};
static C_char li197[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,98,119,112,45,111,98,106,101,99,116,63,32,120,41,0,0,0,0};
static C_char li198[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,119,101,97,107,45,99,111,110,115,32,120,32,121,41,0,0,0,0};
static C_char li199[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,119,101,97,107,45,112,97,105,114,63,32,120,41,0,0,0,0,0};
static C_char li200[] C_aligned={C_lihdr(0,0,22),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,116,111,109,63,32,120,41,0,0};
static C_char li201[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
static C_char li202[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,116,97,105,108,63,32,120,32,121,41};
static C_char li203[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,110,115,41,0,0,0,0,0,0,0};
static C_char li204[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,98,97,115,101,35,105,110,116,101,114,115,112,101,114,115,101,32,108,115,116,32,120,41};
static C_char li205[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0};
static C_char li206[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,98,97,115,101,35,98,117,116,108,97,115,116,32,108,115,116,41,0,0,0,0,0,0};
static C_char li207[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,108,105,115,116,115,32,114,101,115,116,41,0,0,0,0,0,0,0};
static C_char li208[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,108,97,116,116,101,110,32,46,32,108,105,115,116,115,48,41,0};
static C_char li209[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,115,116,115,41,0,0,0,0,0};
static C_char li210[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,106,111,105,110,32,108,115,116,115,32,46,32,108,115,116,41,0,0};
static C_char li211[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,98,108,115,116,32,108,115,116,41,0};
static C_char li212[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,109,112,114,101,115,115,32,98,108,115,116,32,108,115,116,41};
static C_char li213[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0};
static C_char li214[] C_aligned={C_lihdr(0,0,15),40,102,95,49,51,55,51,57,32,120,32,108,115,116,41,0};
static C_char li215[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,108,105,115,116,45,117,112,100,97,116,101,33,32,120,32,121,32,108,115,116,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li216[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0};
static C_char li217[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,108,105,115,116,45,117,112,100,97,116,101,32,107,32,118,32,108,115,116,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
static C_char li218[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0};
static C_char li219[] C_aligned={C_lihdr(0,0,15),40,102,95,49,51,57,51,49,32,120,32,108,115,116,41,0};
static C_char li220[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,108,105,115,116,45,114,101,102,32,120,32,108,115,116,32,46,32,114,101,115,116,41,0,0,0};
static C_char li221[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,108,41};
static C_char li222[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,98,97,115,101,35,114,97,115,115,111,99,32,120,32,108,115,116,32,46,32,116,115,116,41,0,0,0,0,0,0,0};
static C_char li223[] C_aligned={C_lihdr(0,0,33),40,115,99,104,101,109,101,35,111,112,101,110,45,105,110,112,117,116,45,115,116,114,105,110,103,32,115,116,114,105,110,103,41,0,0,0,0,0,0,0};
static C_char li224[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,111,112,101,110,45,111,117,116,112,117,116,45,115,116,114,105,110,103,41,0,0,0,0,0};
static C_char li225[] C_aligned={C_lihdr(0,0,31),40,115,99,104,101,109,101,35,103,101,116,45,111,117,116,112,117,116,45,115,116,114,105,110,103,32,112,111,114,116,41,0};
static C_char li226[] C_aligned={C_lihdr(0,0,10),40,97,49,52,49,53,50,32,95,41,0,0,0,0,0,0};
static C_char li227[] C_aligned={C_lihdr(0,0,10),40,97,49,52,49,54,56,32,95,41,0,0,0,0,0,0};
static C_char li228[] C_aligned={C_lihdr(0,0,12),40,97,49,52,49,55,55,32,95,32,95,41,0,0,0,0};
static C_char li229[] C_aligned={C_lihdr(0,0,10),40,97,49,52,49,56,51,32,95,41,0,0,0,0,0,0};
static C_char li230[] C_aligned={C_lihdr(0,0,23),40,97,49,52,49,57,51,32,112,32,110,32,100,101,115,116,32,115,116,97,114,116,41,0};
static C_char li231[] C_aligned={C_lihdr(0,0,33),40,115,99,104,101,109,101,35,111,112,101,110,45,105,110,112,117,116,45,98,121,116,101,118,101,99,116,111,114,32,98,118,41,0,0,0,0,0,0,0};
static C_char li232[] C_aligned={C_lihdr(0,0,18),40,97,100,100,32,98,118,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0,0,0};
static C_char li233[] C_aligned={C_lihdr(0,0,8),40,103,101,116,116,101,114,41};
static C_char li234[] C_aligned={C_lihdr(0,0,12),40,97,49,52,50,52,49,32,112,32,99,41,0,0,0,0};
static C_char li235[] C_aligned={C_lihdr(0,0,23),40,97,49,52,50,53,56,32,112,32,98,118,32,115,116,97,114,116,32,101,110,100,41,0};
static C_char li236[] C_aligned={C_lihdr(0,0,12),40,97,49,52,50,54,52,32,95,32,95,41,0,0,0,0};
static C_char li237[] C_aligned={C_lihdr(0,0,31),40,115,99,104,101,109,101,35,111,112,101,110,45,111,117,116,112,117,116,45,98,121,116,101,118,101,99,116,111,114,41,0};
static C_char li238[] C_aligned={C_lihdr(0,0,6),40,102,97,105,108,41,0,0};
static C_char li239[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,103,101,116,45,111,117,116,112,117,116,45,98,121,116,101,118,101,99,116,111,114,32,112,41};
static C_char li240[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,43,32,120,32,121,41};
static C_char li241[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,45,32,120,32,121,41};
static C_char li242[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,42,32,120,32,121,41};
static C_char li243[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,61,32,120,32,121,41};
static C_char li244[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,62,32,120,32,121,41};
static C_char li245[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,60,32,120,32,121,41};
static C_char li246[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,62,61,32,120,32,121,41,0,0,0,0,0,0,0};
static C_char li247[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,60,61,32,120,32,121,41,0,0,0,0,0,0,0};
static C_char li248[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,109,105,110,32,120,32,121,41,0,0,0,0,0,0};
static C_char li249[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,109,97,120,32,120,32,121,41,0,0,0,0,0,0};
static C_char li250[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,110,101,103,32,120,41};
static C_char li251[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,97,110,100,32,120,32,121,41,0,0,0,0,0,0};
static C_char li252[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,105,111,114,32,120,32,121,41,0,0,0,0,0,0};
static C_char li253[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,120,111,114,32,120,32,121,41,0,0,0,0,0,0};
static C_char li254[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,110,111,116,32,120,41};
static C_char li255[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,115,104,108,32,120,32,121,41,0,0,0,0,0,0};
static C_char li256[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,115,104,114,32,120,32,121,41,0,0,0,0,0,0};
static C_char li257[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,111,100,100,63,32,120,41,0,0,0,0,0,0,0};
static C_char li258[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,101,118,101,110,63,32,120,41,0,0,0,0,0,0};
static C_char li259[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,108,101,110,32,120,41};
static C_char li260[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,47,32,120,32,121,41};
static C_char li261[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,103,99,100,32,120,32,121,41,0,0,0,0,0,0};
static C_char li262[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,109,111,100,32,120,32,121,41,0,0,0,0,0,0};
static C_char li263[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,114,101,109,32,120,32,121,41,0,0,0,0,0,0};
static C_char li264[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,43,63,32,120,32,121,41,0,0,0,0,0,0,0};
static C_char li265[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,45,63,32,120,32,121,41,0,0,0,0,0,0,0};
static C_char li266[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,42,63,32,120,32,121,41,0,0,0,0,0,0,0};
static C_char li267[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,47,63,32,120,32,121,41,0,0,0,0,0,0,0};
static C_char li268[] C_aligned={C_lihdr(0,0,19),40,35,35,115,121,115,35,100,101,98,117,103,45,109,111,100,101,63,41,0,0,0,0,0};
static C_char li269[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,98,97,115,101,35,119,97,114,110,105,110,103,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0};
static C_char li270[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,98,97,115,101,35,110,111,116,105,99,101,32,109,115,103,32,46,32,97,114,103,115,41};
static C_char li271[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,110,97,98,108,101,45,119,97,114,110,105,110,103,115,32,46,32,98,111,111,108,41,0,0,0};
static C_char li272[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,101,114,114,111,114,47,101,114,114,110,111,32,101,114,114,32,46,32,97,114,103,115,41,0,0};
static C_char li273[] C_aligned={C_lihdr(0,0,4),67,95,103,99,0,0,0,0};
static C_char li274[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,115,101,116,115,108,111,116,32,120,32,105,32,121,41,0,0,0};
static C_char li275[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,115,101,116,105,115,108,111,116,32,120,32,105,32,121,41,0,0};
static C_char li276[] C_aligned={C_lihdr(0,0,17),67,95,97,108,108,111,99,97,116,101,95,118,101,99,116,111,114,0,0,0,0,0,0,0};
static C_char li277[] C_aligned={C_lihdr(0,0,21),67,95,97,108,108,111,99,97,116,101,95,98,121,116,101,118,101,99,116,111,114,0,0,0};
static C_char li278[] C_aligned={C_lihdr(0,0,16),67,95,109,97,107,101,95,115,116,114,117,99,116,117,114,101};
static C_char li279[] C_aligned={C_lihdr(0,0,21),67,95,101,110,115,117,114,101,95,104,101,97,112,95,114,101,115,101,114,118,101,0,0,0};
static C_char li280[] C_aligned={C_lihdr(0,0,23),67,95,103,101,116,95,115,121,109,98,111,108,95,116,97,98,108,101,95,105,110,102,111,0};
static C_char li281[] C_aligned={C_lihdr(0,0,17),67,95,103,101,116,95,109,101,109,111,114,121,95,105,110,102,111,0,0,0,0,0,0,0};
static C_char li282[] C_aligned={C_lihdr(0,0,19),40,35,35,115,121,115,35,115,116,97,114,116,45,116,105,109,101,114,41,0,0,0,0,0};
static C_char li283[] C_aligned={C_lihdr(0,0,12),67,95,115,116,111,112,95,116,105,109,101,114,0,0,0,0};
static C_char li284[] C_aligned={C_lihdr(0,0,12),67,95,115,116,111,112,95,116,105,109,101,114,0,0,0,0};
static C_char li285[] C_aligned={C_lihdr(0,0,18),40,35,35,115,121,115,35,115,116,111,112,45,116,105,109,101,114,41,0,0,0,0,0,0};
static C_char li286[] C_aligned={C_lihdr(0,0,20),40,35,35,115,121,115,35,105,109,109,101,100,105,97,116,101,63,32,120,41,0,0,0,0};
static C_char li287[] C_aligned={C_lihdr(0,0,19),40,35,35,115,121,115,35,109,101,115,115,97,103,101,32,115,116,114,41,0,0,0,0,0};
static C_char li288[] C_aligned={C_lihdr(0,0,16),40,35,35,115,121,115,35,98,121,116,101,32,120,32,105,41};
static C_char li289[] C_aligned={C_lihdr(0,0,16),40,35,35,115,121,115,35,104,97,108,116,32,109,115,103,41};
static C_char li290[] C_aligned={C_lihdr(0,0,8),67,95,98,101,99,111,109,101};
static C_char li291[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,98,108,111,99,107,45,114,101,102,32,120,32,105,41,0,0,0};
static C_char li292[] C_aligned={C_lihdr(0,0,14),67,95,97,112,112,108,121,95,118,97,108,117,101,115,0,0};
static C_char li293[] C_aligned={C_lihdr(0,0,14),67,95,99,111,112,121,95,99,108,111,115,117,114,101,0,0};
static C_char li294[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,98,108,111,99,107,45,115,101,116,33,32,120,32,105,32,121,41};
static C_char li295[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,116,105,109,101,35,99,117,114,114,101,110,116,45,112,114,111,99,101,115,115,45,109,105,108,108,105,115,101,99,111,110,100,115,41,0,0,0,0,0};
static C_char li296[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,116,105,109,101,35,99,117,114,114,101,110,116,45,115,101,99,111,110,100,115,41,0,0};
static C_char li297[] C_aligned={C_lihdr(0,0,23),40,99,104,105,99,107,101,110,46,116,105,109,101,35,99,112,117,45,116,105,109,101,41,0};
static C_char li298[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,99,104,101,99,107,45,115,116,114,117,99,116,117,114,101,32,120,32,121,32,46,32,108,111,99,41,0,0,0,0,0,0,0};
static C_char li299[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,98,108,111,98,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0};
static C_char li300[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,112,97,105,114,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0};
static C_char li301[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,108,105,115,116,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0};
static C_char li302[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,115,116,114,105,110,103,32,120,32,46,32,108,111,99,41,0,0,0,0};
static C_char li303[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,110,117,109,98,101,114,32,120,32,46,32,108,111,99,41,0,0,0,0};
static C_char li304[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,102,105,120,110,117,109,32,120,32,46,32,108,111,99,41,0,0,0,0};
static C_char li305[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,99,104,101,99,107,45,98,121,116,101,118,101,99,116,111,114,32,120,32,46,32,108,111,99,41};
static C_char li306[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,99,104,101,99,107,45,101,120,97,99,116,32,120,32,46,32,108,111,99,41,0,0,0,0,0};
static C_char li307[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,105,110,101,120,97,99,116,32,120,32,46,32,108,111,99,41,0,0,0};
static C_char li308[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,115,121,109,98,111,108,32,120,32,46,32,108,111,99,41,0,0,0,0};
static C_char li309[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,107,101,121,119,111,114,100,32,120,32,46,32,108,111,99,41,0,0,0};
static C_char li310[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,118,101,99,116,111,114,32,120,32,46,32,108,111,99,41,0,0,0,0};
static C_char li311[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,99,104,97,114,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0};
static C_char li312[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,98,111,111,108,101,97,110,32,120,32,46,32,108,111,99,41,0,0,0};
static C_char li313[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,99,104,101,99,107,45,108,111,99,97,116,105,118,101,32,120,32,46,32,108,111,99,41,0,0};
static C_char li314[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,105,110,116,101,103,101,114,32,120,32,46,32,108,111,99,41,0,0,0};
static C_char li315[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,104,101,99,107,45,101,120,97,99,116,45,105,110,116,101,103,101,114,32,120,32,46,32,108,111,99,41,0,0,0,0,0};
static C_char li316[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,99,104,101,99,107,45,101,120,97,99,116,45,117,105,110,116,101,103,101,114,32,120,32,46,32,108,111,99,41,0,0,0,0};
static C_char li317[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,114,101,97,108,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0};
static C_char li318[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,104,101,99,107,45,114,97,110,103,101,32,105,32,102,114,111,109,32,116,111,32,46,32,108,111,99,41,0,0,0,0,0};
static C_char li319[] C_aligned={C_lihdr(0,0,45),40,35,35,115,121,115,35,99,104,101,99,107,45,114,97,110,103,101,47,105,110,99,108,117,100,105,110,103,32,105,32,102,114,111,109,32,116,111,32,46,32,108,111,99,41,0,0,0};
static C_char li320[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,99,104,101,99,107,45,115,112,101,99,105,97,108,32,112,116,114,32,46,32,108,111,99,41,0};
static C_char li321[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,99,108,111,115,117,114,101,32,120,32,46,32,108,111,99,41,0,0,0};
static C_char li322[] C_aligned={C_lihdr(0,0,20),40,108,112,32,112,114,111,109,105,115,101,32,102,111,114,119,97,114,100,41,0,0,0,0};
static C_char li323[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,102,111,114,99,101,32,111,98,106,41,0,0,0,0,0,0};
static C_char li324[] C_aligned={C_lihdr(0,0,7),67,95,100,108,111,97,100,0};
static C_char li325[] C_aligned={C_lihdr(0,0,18),67,95,115,101,116,95,100,108,111,112,101,110,95,102,108,97,103,115,0,0,0,0,0,0};
static C_char li326[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,101,114,114,111,114,45,110,111,116,45,97,45,112,114,111,112,101,114,45,108,105,115,116,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
static C_char li327[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,110,117,109,98,101,114,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li328[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,105,110,116,101,103,101,114,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0};
static C_char li329[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,101,120,97,99,116,45,105,110,116,101,103,101,114,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
static C_char li330[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,101,120,97,99,116,45,117,105,110,116,101,103,101,114,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li331[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,105,110,101,120,97,99,116,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0};
static C_char li332[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,114,101,97,108,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
static C_char li333[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,98,97,115,101,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
static C_char li334[] C_aligned={C_lihdr(0,0,11),40,99,111,112,121,32,110,111,100,101,41,0,0,0,0,0};
static C_char li335[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,115,116,115,41,0,0,0,0,0};
static C_char li336[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,97,112,112,101,110,100,32,46,32,108,115,116,115,41,0,0};
static C_char li337[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,108,115,116,32,114,101,115,116,41,0};
static C_char li338[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,102,97,115,116,45,114,101,118,101,114,115,101,32,108,115,116,48,41,0,0,0,0,0,0,0};
static C_char li339[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,109,97,107,101,45,98,121,116,101,118,101,99,116,111,114,32,115,105,122,101,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li340[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,109,97,107,101,45,115,116,114,105,110,103,32,115,105,122,101,32,46,32,114,101,115,116,41,0};
static C_char li341[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,98,117,102,102,101,114,45,62,115,116,114,105,110,103,33,32,98,117,102,32,108,101,110,41,0};
static C_char li342[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,98,117,102,102,101,114,45,62,115,116,114,105,110,103,32,98,117,102,32,115,116,97,114,116,32,108,101,110,41,0,0,0,0};
static C_char li343[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,117,116,102,45,100,101,99,111,100,101,114,32,98,117,102,32,115,116,97,114,116,32,108,101,110,32,107,41,0,0,0,0,0};
static C_char li344[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,117,116,102,45,101,110,99,111,100,101,114,32,98,117,102,32,115,116,97,114,116,32,108,101,110,32,107,41,0,0,0,0,0};
static C_char li345[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,117,116,102,45,115,99,97,110,110,101,114,32,115,116,97,116,101,32,98,121,116,101,41,0,0};
static C_char li346[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,108,97,116,105,110,45,100,101,99,111,100,101,114,32,98,118,32,115,116,97,114,116,32,108,101,110,32,107,41,0,0,0,0};
static C_char li347[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,108,97,116,105,110,45,101,110,99,111,100,101,114,32,98,118,32,115,116,97,114,116,32,108,101,110,32,107,41,0,0,0,0};
static C_char li348[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,108,97,116,105,110,45,115,99,97,110,110,101,114,32,115,116,97,116,101,32,98,121,116,101,41};
static C_char li349[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,98,105,110,97,114,121,45,100,101,99,111,100,101,114,32,98,118,32,115,116,97,114,116,32,108,101,110,32,107,41,0,0,0};
static C_char li350[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,98,105,110,97,114,121,45,101,110,99,111,100,101,114,32,98,118,32,115,116,97,114,116,32,108,101,110,32,107,41,0,0,0};
static C_char li351[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,98,105,110,97,114,121,45,115,99,97,110,110,101,114,32,115,116,97,116,101,32,98,121,116,101,41,0,0,0,0,0,0,0};
static C_char li352[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,101,110,99,111,100,105,110,103,45,104,111,111,107,32,101,110,99,32,107,41,0,0,0,0,0};
static C_char li353[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,101,110,99,111,100,105,110,103,45,104,111,111,107,32,101,110,99,32,107,41,0,0,0,0,0};
static C_char li354[] C_aligned={C_lihdr(0,0,44),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,101,110,99,111,100,105,110,103,32,110,97,109,101,115,32,100,101,99,32,101,110,99,32,115,99,97,110,41,0,0,0,0};
static C_char li355[] C_aligned={C_lihdr(0,0,20),40,97,49,53,52,53,54,32,100,101,99,111,100,101,114,32,95,32,95,41,0,0,0,0};
static C_char li356[] C_aligned={C_lihdr(0,0,49),40,35,35,115,121,115,35,98,117,102,102,101,114,45,62,115,116,114,105,110,103,47,101,110,99,111,100,105,110,103,32,98,117,102,32,115,116,97,114,116,32,108,101,110,32,101,110,99,41,0,0,0,0,0,0,0};
static C_char li357[] C_aligned={C_lihdr(0,0,20),40,97,49,53,52,54,56,32,95,32,101,110,99,111,100,101,114,32,95,41,0,0,0,0};
static C_char li358[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,101,110,99,111,100,101,45,98,117,102,102,101,114,32,98,118,32,115,116,97,114,116,32,108,101,110,32,101,110,99,32,107,41};
static C_char li359[] C_aligned={C_lihdr(0,0,20),40,97,49,53,52,56,48,32,100,101,99,111,100,101,114,32,95,32,95,41,0,0,0,0};
static C_char li360[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,100,101,99,111,100,101,45,98,117,102,102,101,114,32,98,118,32,115,116,97,114,116,32,108,101,110,32,101,110,99,32,107,41};
static C_char li361[] C_aligned={C_lihdr(0,0,22),40,97,49,53,53,48,49,32,98,117,102,32,115,116,97,114,116,32,108,101,110,41,0,0};
static C_char li362[] C_aligned={C_lihdr(0,0,20),40,97,49,53,52,57,50,32,95,32,101,110,99,111,100,101,114,32,95,41,0,0,0,0};
static C_char li363[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,101,110,99,111,100,101,45,99,104,97,114,32,99,32,98,118,32,101,110,99,41,0,0,0,0};
static C_char li364[] C_aligned={C_lihdr(0,0,20),40,97,49,53,53,49,52,32,98,117,102,32,115,116,97,114,116,32,95,41,0,0,0,0};
static C_char li365[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,100,101,99,111,100,101,45,99,104,97,114,32,98,118,32,101,110,99,32,115,116,97,114,116,41};
static C_char li366[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,115,116,97,116,101,32,105,41,0,0};
static C_char li367[] C_aligned={C_lihdr(0,0,19),40,97,49,53,53,50,51,32,100,101,99,32,95,32,115,99,97,110,41,0,0,0,0,0};
static C_char li368[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,114,101,97,100,45,99,104,97,114,47,101,110,99,111,100,105,110,103,32,112,32,101,110,99,32,107,41,0,0,0,0,0,0};
static C_char li369[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,109,97,107,101,45,115,116,114,105,110,103,32,115,105,122,101,32,46,32,102,105,108,108,41};
static C_char li370[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,32,108,115,41,0,0,0,0,0};
static C_char li371[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,62,108,105,115,116,32,115,32,46,32,114,101,115,116,41,0,0};
static C_char li372[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,105,32,112,32,108,115,116,41,0,0};
static C_char li373[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,108,105,115,116,45,62,115,116,114,105,110,103,32,108,115,116,48,41,0,0,0,0,0,0};
static C_char li374[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,32,108,32,110,41,0,0,0,0};
static C_char li375[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,114,101,118,101,114,115,101,45,108,105,115,116,45,62,115,116,114,105,110,103,32,108,41,0,0};
static C_char li376[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,50,48,56,50,41,0,0,0,0};
static C_char li377[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,102,105,108,108,33,32,115,32,99,32,46,32,114,101,115,116,41};
static C_char li378[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,111,112,121,32,115,32,46,32,114,101,115,116,41,0,0,0};
static C_char li379[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,50,49,52,48,32,105,41,0,0};
static C_char li380[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,50,49,52,54,32,105,41,0,0};
static C_char li381[] C_aligned={C_lihdr(0,0,39),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,111,112,121,33,32,116,111,32,97,116,32,102,114,111,109,32,46,32,114,101,115,116,41,0};
static C_char li382[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,32,115,32,115,116,97,114,116,32,101,110,100,41,0,0,0};
static C_char li383[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,115,117,98,115,116,114,105,110,103,32,115,32,115,116,97,114,116,32,46,32,101,110,100,41};
static C_char li384[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,115,32,108,101,110,32,115,115,32,102,41,0,0,0,0,0,0,0};
static C_char li385[] C_aligned={C_lihdr(0,0,28),40,99,111,109,112,97,114,101,32,115,49,32,115,50,32,109,111,114,101,32,108,111,99,32,99,109,112,41,0,0,0,0};
static C_char li386[] C_aligned={C_lihdr(0,0,22),40,97,49,54,50,56,56,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0};
static C_char li387[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,115,116,114,105,110,103,60,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0,0};
static C_char li388[] C_aligned={C_lihdr(0,0,22),40,97,49,54,51,49,50,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0};
static C_char li389[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,115,116,114,105,110,103,62,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0,0};
static C_char li390[] C_aligned={C_lihdr(0,0,22),40,97,49,54,51,51,54,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0};
static C_char li391[] C_aligned={C_lihdr(0,0,31),40,115,99,104,101,109,101,35,115,116,114,105,110,103,60,61,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0};
static C_char li392[] C_aligned={C_lihdr(0,0,22),40,97,49,54,51,53,55,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0};
static C_char li393[] C_aligned={C_lihdr(0,0,31),40,115,99,104,101,109,101,35,115,116,114,105,110,103,62,61,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0};
static C_char li394[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,115,32,108,101,110,32,115,115,32,102,41,0,0,0,0,0,0,0};
static C_char li395[] C_aligned={C_lihdr(0,0,28),40,99,111,109,112,97,114,101,32,115,49,32,115,50,32,109,111,114,101,32,108,111,99,32,99,109,112,41,0,0,0,0};
static C_char li396[] C_aligned={C_lihdr(0,0,22),40,97,49,54,52,51,56,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0};
static C_char li397[] C_aligned={C_lihdr(0,0,33),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,60,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0,0,0,0,0,0,0};
static C_char li398[] C_aligned={C_lihdr(0,0,22),40,97,49,54,52,54,50,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0};
static C_char li399[] C_aligned={C_lihdr(0,0,33),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,62,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0,0,0,0,0,0,0};
static C_char li400[] C_aligned={C_lihdr(0,0,22),40,97,49,54,52,56,54,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0};
static C_char li401[] C_aligned={C_lihdr(0,0,34),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,60,61,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0,0,0,0,0,0};
static C_char li402[] C_aligned={C_lihdr(0,0,22),40,97,49,54,53,48,55,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0};
static C_char li403[] C_aligned={C_lihdr(0,0,34),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,62,61,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0,0,0,0,0,0};
static C_char li404[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,115,116,114,105,110,103,45,97,112,112,101,110,100,32,120,32,121,41,0,0,0,0,0,0,0};
static C_char li405[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,115,116,114,115,32,110,32,117,108,41};
static C_char li406[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,97,112,112,101,110,100,32,46,32,97,108,108,41,0,0,0,0};
static C_char li407[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,115,116,114,105,110,103,32,46,32,99,104,97,114,115,41,0};
static C_char li408[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,99,104,97,114,45,62,117,116,102,56,45,115,116,114,105,110,103,32,99,41,0,0,0,0,0};
static C_char li409[] C_aligned={C_lihdr(0,0,20),40,100,111,108,111,111,112,50,51,51,56,32,104,100,32,116,108,32,99,41,0,0,0,0};
static C_char li410[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,115,116,32,105,41,0,0,0,0};
static C_char li411[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,104,111,112,32,108,115,116,32,110,41,0,0,0,0,0,0,0};
static C_char li412[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,43,32,120,32,121,41};
static C_char li413[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,45,32,120,32,121,41};
static C_char li414[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,42,32,120,32,121,41};
static C_char li415[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,47,32,120,32,121,41};
static C_char li416[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,42,43,32,120,32,121,32,122,41,0,0,0,0,0};
static C_char li417[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,103,99,100,32,120,32,121,41,0,0,0,0,0,0};
static C_char li418[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,47,63,32,120,32,121,41,0,0,0,0,0,0,0};
static C_char li419[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,61,32,120,32,121,41};
static C_char li420[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,62,32,120,32,121,41};
static C_char li421[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,60,32,120,32,121,41};
static C_char li422[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,62,61,32,120,32,121,41,0,0,0,0,0,0,0};
static C_char li423[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,60,61,32,120,32,121,41,0,0,0,0,0,0,0};
static C_char li424[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,110,101,103,32,120,41};
static C_char li425[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,109,97,120,32,120,32,121,41,0,0,0,0,0,0};
static C_char li426[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,109,105,110,32,120,32,121,41,0,0,0,0,0,0};
static C_char li427[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,102,108,111,111,114,32,120,41,0,0,0,0,0,0};
static C_char li428[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,116,114,117,110,99,97,116,101,32,120,41,0,0,0};
static C_char li429[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,114,111,117,110,100,32,120,41,0,0,0,0,0,0};
static C_char li430[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,99,101,105,108,105,110,103,32,120,41,0,0,0,0};
static C_char li431[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,115,105,110,32,120,41};
static C_char li432[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,99,111,115,32,120,41};
static C_char li433[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,116,97,110,32,120,41};
static C_char li434[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,115,105,110,32,120,41,0,0,0,0,0,0,0};
static C_char li435[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,99,111,115,32,120,41,0,0,0,0,0,0,0};
static C_char li436[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,116,97,110,32,120,41,0,0,0,0,0,0,0};
static C_char li437[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,116,97,110,50,32,120,32,121,41,0,0,0,0};
static C_char li438[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,115,105,110,104,32,120,41,0,0,0,0,0,0,0};
static C_char li439[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,99,111,115,104,32,120,41,0,0,0,0,0,0,0};
static C_char li440[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,116,97,110,104,32,120,41,0,0,0,0,0,0,0};
static C_char li441[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,115,105,110,104,32,120,41,0,0,0,0,0,0};
static C_char li442[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,99,111,115,104,32,120,41,0,0,0,0,0,0};
static C_char li443[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,116,97,110,104,32,120,41,0,0,0,0,0,0};
static C_char li444[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,101,120,112,32,120,41};
static C_char li445[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,101,120,112,116,32,120,32,121,41,0,0,0,0,0};
static C_char li446[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,108,111,103,32,120,41};
static C_char li447[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,115,113,114,116,32,120,41,0,0,0,0,0,0,0};
static C_char li448[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,98,115,32,120,41};
static C_char li449[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,105,110,116,101,103,101,114,63,32,120,41,0,0,0};
static C_char li450[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,108,111,110,117,109,45,112,114,105,110,116,45,112,114,101,99,105,115,105,111,110,32,46,32,114,101,115,116,41,0,0};
static C_char li451[] C_aligned={C_lihdr(0,0,18),40,109,97,107,101,45,99,111,109,112,108,101,120,32,114,32,105,41,0,0,0,0,0,0};
static C_char li452[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,109,97,107,101,45,114,101,99,116,97,110,103,117,108,97,114,32,114,32,105,41,0,0,0};
static C_char li453[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,109,97,107,101,45,112,111,108,97,114,32,114,32,112,104,105,41,0,0,0,0,0,0,0};
static C_char li454[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,114,101,97,108,45,112,97,114,116,32,120,41,0,0,0,0};
static C_char li455[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,105,109,97,103,45,112,97,114,116,32,120,41,0,0,0,0};
static C_char li456[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,97,110,103,108,101,32,110,41};
static C_char li457[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,109,97,103,110,105,116,117,100,101,32,120,41,0,0,0,0};
static C_char li458[] C_aligned={C_lihdr(0,0,10),40,114,97,116,110,117,109,32,110,41,0,0,0,0,0,0};
static C_char li459[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,110,117,109,101,114,97,116,111,114,32,110,41,0,0,0,0};
static C_char li460[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,100,101,110,111,109,105,110,97,116,111,114,32,110,41,0,0};
static C_char li461[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,101,120,116,101,110,100,101,100,45,115,105,103,110,117,109,32,120,41,0,0,0,0,0,0,0};
static C_char li462[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,50,57,48,53,32,120,32,105,41};
static C_char li463[] C_aligned={C_lihdr(0,0,13),40,100,101,108,105,118,101,114,32,121,32,100,41,0,0,0};
static C_char li464[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,105,110,101,120,97,99,116,45,62,101,120,97,99,116,32,120,41,0,0,0,0,0,0,0};
static C_char li465[] C_aligned={C_lihdr(0,0,13),67,95,98,105,116,119,105,115,101,95,97,110,100,0,0,0};
static C_char li466[] C_aligned={C_lihdr(0,0,13),67,95,98,105,116,119,105,115,101,95,105,111,114,0,0,0};
static C_char li467[] C_aligned={C_lihdr(0,0,13),67,95,98,105,116,119,105,115,101,95,120,111,114,0,0,0};
static C_char li468[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,98,105,116,119,105,115,101,35,98,105,116,119,105,115,101,45,110,111,116,32,110,41,0};
static C_char li469[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,105,116,119,105,115,101,35,98,105,116,45,62,98,111,111,108,101,97,110,32,110,32,105,41,0,0,0,0,0,0};
static C_char li470[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,105,116,119,105,115,101,35,105,110,116,101,103,101,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0,0};
static C_char li471[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,98,105,116,119,105,115,101,35,97,114,105,116,104,109,101,116,105,99,45,115,104,105,102,116,32,110,32,109,41,0,0};
static C_char li472[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,97,114,103,115,32,120,41,0,0,0};
static C_char li473[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,47,32,97,114,103,49,32,46,32,97,114,103,115,41,0,0};
static C_char li474[] C_aligned={C_lihdr(0,0,15),40,35,35,115,121,115,35,47,45,50,32,120,32,121,41,0};
static C_char li475[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,102,108,111,111,114,32,120,41};
static C_char li476[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,99,101,105,108,105,110,103,32,120,41,0,0,0,0,0,0};
static C_char li477[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,116,114,117,110,99,97,116,101,32,120,41,0,0,0,0,0};
static C_char li478[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,114,111,117,110,100,32,120,41};
static C_char li479[] C_aligned={C_lihdr(0,0,8),40,115,114,32,120,32,121,41};
static C_char li480[] C_aligned={C_lihdr(0,0,24),40,102,105,110,100,45,114,97,116,105,111,45,98,101,116,119,101,101,110,32,120,32,121,41};
static C_char li481[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,114,97,116,105,111,110,97,108,105,122,101,32,120,32,101,41};
static C_char li482[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,105,32,109,32,120,115,32,110,41,0};
static C_char li483[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,109,97,120,32,120,49,32,46,32,120,115,41,0,0,0,0};
static C_char li484[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,105,32,109,32,120,115,32,110,41,0};
static C_char li485[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,109,105,110,32,120,49,32,46,32,120,115,41,0,0,0,0};
static C_char li486[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,101,120,112,32,110,41,0,0};
static C_char li487[] C_aligned={C_lihdr(0,0,15),40,35,35,115,121,115,35,108,111,103,45,49,32,120,41,0};
static C_char li488[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,108,111,103,32,97,32,46,32,114,101,115,116,41,0,0,0};
static C_char li489[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,115,105,110,32,110,41,0,0};
static C_char li490[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,99,111,115,32,110,41,0,0};
static C_char li491[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,116,97,110,32,110,41,0,0};
static C_char li492[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,97,115,105,110,32,110,41,0};
static C_char li493[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,97,99,111,115,32,110,41,0};
static C_char li494[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,97,116,97,110,32,110,32,46,32,114,101,115,116,41,0,0};
static C_char li495[] C_aligned={C_lihdr(0,0,8),40,97,49,57,51,48,57,41};
static C_char li496[] C_aligned={C_lihdr(0,0,34),67,95,117,95,105,110,116,101,103,101,114,95,113,117,111,116,105,101,110,116,95,97,110,100,95,114,101,109,97,105,110,100,101,114,0,0,0,0,0,0};
static C_char li497[] C_aligned={C_lihdr(0,0,8),40,97,49,57,51,52,48,41};
static C_char li498[] C_aligned={C_lihdr(0,0,20),40,97,49,57,51,53,54,32,113,51,51,48,48,32,117,51,51,48,50,41,0,0,0,0};
static C_char li499[] C_aligned={C_lihdr(0,0,22),40,97,49,57,51,50,51,32,115,94,51,50,56,48,32,114,94,51,50,56,50,41,0,0};
static C_char li500[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,101,120,97,99,116,45,105,110,116,101,103,101,114,45,115,113,114,116,32,97,41,0,0,0,0};
static C_char li501[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,101,120,97,99,116,45,105,110,116,101,103,101,114,45,115,113,114,116,32,120,41,0,0,0};
static C_char li502[] C_aligned={C_lihdr(0,0,8),40,97,49,57,52,57,54,41};
static C_char li503[] C_aligned={C_lihdr(0,0,14),40,97,49,57,53,48,50,32,115,94,50,32,114,41,0,0};
static C_char li504[] C_aligned={C_lihdr(0,0,8),40,97,49,57,53,50,52,41};
static C_char li505[] C_aligned={C_lihdr(0,0,8),40,97,49,57,53,52,56,41};
static C_char li506[] C_aligned={C_lihdr(0,0,16),40,97,49,57,53,54,48,32,100,115,94,50,32,100,114,41};
static C_char li507[] C_aligned={C_lihdr(0,0,16),40,97,49,57,53,51,54,32,110,115,94,50,32,110,114,41};
static C_char li508[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,115,113,114,116,47,108,111,99,32,108,111,99,32,110,41,0,0};
static C_char li509[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,115,113,114,116,32,120,41,0};
static C_char li510[] C_aligned={C_lihdr(0,0,8),40,97,49,57,54,48,51,41};
static C_char li511[] C_aligned={C_lihdr(0,0,16),40,97,49,57,54,48,57,32,100,105,118,32,114,101,109,41};
static C_char li512[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,102,108,111,111,114,47,32,120,32,121,41,0,0,0,0,0};
static C_char li513[] C_aligned={C_lihdr(0,0,8),40,97,49,57,54,53,56,41};
static C_char li514[] C_aligned={C_lihdr(0,0,16),40,97,49,57,54,54,52,32,100,105,118,32,114,101,109,41};
static C_char li515[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,102,108,111,111,114,45,114,101,109,97,105,110,100,101,114,32,120,32,121,41,0,0,0,0};
static C_char li516[] C_aligned={C_lihdr(0,0,8),40,97,49,57,54,55,51,41};
static C_char li517[] C_aligned={C_lihdr(0,0,16),40,97,49,57,54,55,57,32,100,105,118,32,114,101,109,41};
static C_char li518[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,102,108,111,111,114,45,113,117,111,116,105,101,110,116,32,120,32,121,41,0,0,0,0,0};
static C_char li519[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,115,113,117,97,114,101,32,110,41,0,0,0,0,0,0,0};
static C_char li520[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,120,97,99,116,45,105,110,116,101,103,101,114,45,110,116,104,45,114,111,111,116,32,107,32,110,41,0,0,0,0,0,0,0};
static C_char li521[] C_aligned={C_lihdr(0,0,10),40,108,112,32,103,48,32,103,49,41,0,0,0,0,0,0};
static C_char li522[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,101,120,97,99,116,45,105,110,116,101,103,101,114,45,110,116,104,45,114,111,111,116,47,108,111,99,32,108,111,99,32,107,32,110,41,0,0,0,0,0,0};
static C_char li523[] C_aligned={C_lihdr(0,0,11),40,108,112,32,114,101,115,32,101,50,41,0,0,0,0,0};
static C_char li524[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,105,110,116,101,103,101,114,45,112,111,119,101,114,32,98,97,115,101,32,101,41,0,0,0,0};
static C_char li525[] C_aligned={C_lihdr(0,0,14),40,108,111,103,45,101,120,112,116,32,97,32,98,41,0,0};
static C_char li526[] C_aligned={C_lihdr(0,0,15),40,115,108,111,119,45,101,120,112,116,32,97,32,98,41,0};
static C_char li527[] C_aligned={C_lihdr(0,0,8),40,97,50,48,48,48,56,41};
static C_char li528[] C_aligned={C_lihdr(0,0,15),40,97,50,48,48,50,48,32,100,115,94,110,32,114,41,0};
static C_char li529[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,101,120,112,116,32,97,32,98,41,0,0,0,0,0,0,0};
static C_char li530[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,105,110,116,101,114,110,97,108,45,103,99,100,32,108,111,99,32,97,32,98,41,0,0,0,0};
static C_char li531[] C_aligned={C_lihdr(0,0,15),40,35,35,115,121,115,35,103,99,100,32,97,32,98,41,0};
static C_char li532[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,104,101,97,100,32,110,101,120,116,41};
static C_char li533[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,103,99,100,32,46,32,110,115,41,0,0,0,0,0,0,0};
static C_char li534[] C_aligned={C_lihdr(0,0,15),40,35,35,115,121,115,35,108,99,109,32,120,32,121,41,0};
static C_char li535[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,104,101,97,100,32,110,101,120,116,41};
static C_char li536[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,108,99,109,32,46,32,110,115,41,0,0,0,0,0,0,0};
static C_char li537[] C_aligned={C_lihdr(0,0,34),67,95,117,95,105,110,116,101,103,101,114,95,113,117,111,116,105,101,110,116,95,97,110,100,95,114,101,109,97,105,110,100,101,114,0,0,0,0,0,0};
static C_char li538[] C_aligned={C_lihdr(0,0,8),40,97,50,48,51,54,56,41};
static C_char li539[] C_aligned={C_lihdr(0,0,22),40,97,50,48,51,55,52,32,104,105,51,53,48,51,32,108,111,51,53,48,53,41,0,0};
static C_char li540[] C_aligned={C_lihdr(0,0,61),40,35,35,115,121,115,35,105,110,116,101,103,101,114,45,62,115,116,114,105,110,103,47,114,101,99,117,114,115,105,118,101,32,110,32,98,97,115,101,32,101,120,112,101,99,116,101,100,45,115,116,114,105,110,103,45,115,105,122,101,41,0,0,0};
static C_char li541[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,101,120,116,101,110,100,101,100,45,110,117,109,98,101,114,45,62,115,116,114,105,110,103,32,110,32,98,97,115,101,41,0,0};
static C_char li542[] C_aligned={C_lihdr(0,0,20),40,114,111,117,110,100,45,113,117,111,116,105,101,110,116,32,110,32,100,41,0,0,0,0};
static C_char li543[] C_aligned={C_lihdr(0,0,13),40,103,111,45,105,110,101,120,97,99,116,33,41,0,0,0};
static C_char li544[] C_aligned={C_lihdr(0,0,23),40,115,97,102,101,45,101,120,112,111,110,101,110,116,32,118,97,108,117,101,32,101,41,0};
static C_char li545[] C_aligned={C_lihdr(0,0,12),40,108,112,32,105,32,100,114,111,112,63,41,0,0,0,0};
static C_char li546[] C_aligned={C_lihdr(0,0,25),40,115,99,97,110,45,100,105,103,105,116,115,32,115,116,97,114,116,32,99,112,108,120,63,41,0,0,0,0,0,0,0};
static C_char li547[] C_aligned={C_lihdr(0,0,6),40,108,112,32,105,41,0,0};
static C_char li548[] C_aligned={C_lihdr(0,0,19),40,115,99,97,110,45,104,97,115,104,101,115,32,115,116,97,114,116,41,0,0,0,0,0};
static C_char li549[] C_aligned={C_lihdr(0,0,52),40,115,99,97,110,45,100,105,103,105,116,115,43,104,97,115,104,101,115,32,115,116,97,114,116,32,110,101,103,63,32,99,112,108,120,63,32,97,108,108,45,104,97,115,104,101,115,45,111,107,63,41,0,0,0,0};
static C_char li550[] C_aligned={C_lihdr(0,0,21),40,115,99,97,110,45,101,120,112,111,110,101,110,116,32,115,116,97,114,116,41,0,0,0};
static C_char li551[] C_aligned={C_lihdr(0,0,43),40,115,99,97,110,45,100,101,99,105,109,97,108,45,116,97,105,108,32,115,116,97,114,116,32,110,101,103,63,32,100,101,99,105,109,97,108,45,104,101,97,100,41,0,0,0,0,0};
static C_char li552[] C_aligned={C_lihdr(0,0,29),40,115,99,97,110,45,117,114,101,97,108,32,115,116,97,114,116,32,110,101,103,63,32,99,112,108,120,63,41,0,0,0};
static C_char li553[] C_aligned={C_lihdr(0,0,23),40,115,99,97,110,45,114,101,97,108,32,115,116,97,114,116,32,99,112,108,120,63,41,0};
static C_char li554[] C_aligned={C_lihdr(0,0,50),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,99,111,109,112,110,117,109,32,114,97,100,105,120,32,115,116,114,32,111,102,102,115,101,116,32,101,120,97,99,116,110,101,115,115,41,0,0,0,0,0,0};
static C_char li555[] C_aligned={C_lihdr(0,0,32),40,115,99,97,110,45,112,114,101,102,105,120,32,105,32,101,120,110,101,115,115,32,114,97,100,105,120,32,108,101,110,41};
static C_char li556[] C_aligned={C_lihdr(0,0,34),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,62,110,117,109,98,101,114,32,115,116,114,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
static C_char li557[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,110,117,109,98,101,114,32,115,116,114,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
static C_char li558[] C_aligned={C_lihdr(0,0,18),67,95,102,105,120,110,117,109,95,116,111,95,115,116,114,105,110,103,0,0,0,0,0,0};
static C_char li559[] C_aligned={C_lihdr(0,0,18),67,95,102,108,111,110,117,109,95,116,111,95,115,116,114,105,110,103,0,0,0,0,0,0};
static C_char li560[] C_aligned={C_lihdr(0,0,19),67,95,105,110,116,101,103,101,114,95,116,111,95,115,116,114,105,110,103,0,0,0,0,0};
static C_char li561[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li562[] C_aligned={C_lihdr(0,0,25),40,99,111,109,112,97,114,101,45,115,108,111,116,115,32,120,32,121,32,115,116,97,114,116,41,0,0,0,0,0,0,0};
static C_char li563[] C_aligned={C_lihdr(0,0,10),40,119,97,108,107,32,120,32,121,41,0,0,0,0,0,0};
static C_char li564[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,113,117,97,108,61,63,32,120,32,121,41,0,0,0,0,0,0};
static C_char li565[] C_aligned={C_lihdr(0,0,18),67,95,115,116,114,105,110,103,95,116,111,95,115,121,109,98,111,108,0,0,0,0,0,0};
static C_char li566[] C_aligned={C_lihdr(0,0,19),67,95,115,116,114,105,110,103,95,116,111,95,107,101,121,119,111,114,100,0,0,0,0,0};
static C_char li567[] C_aligned={C_lihdr(0,0,13),67,95,109,97,107,101,95,115,121,109,98,111,108,0,0,0};
static C_char li568[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,105,110,116,101,114,110,101,100,45,115,121,109,98,111,108,63,32,120,41,0,0,0,0,0,0};
static C_char li569[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,115,121,109,98,111,108,45,110,97,109,101,32,115,41,0,0,0};
static C_char li570[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,115,121,109,98,111,108,45,62,115,116,114,105,110,103,47,115,104,97,114,101,100,32,115,41,0};
static C_char li571[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,115,121,109,98,111,108,45,62,115,116,114,105,110,103,32,115,41};
static C_char li572[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,115,121,109,98,111,108,32,115,116,114,41,0,0,0,0,0,0};
static C_char li573[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,115,121,109,98,111,108,45,62,115,116,114,105,110,103,32,115,41,0,0,0,0,0,0,0};
static C_char li574[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,62,115,121,109,98,111,108,32,115,116,114,41,0,0,0,0,0};
static C_char li575[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,116,114,105,110,103,45,62,117,110,105,110,116,101,114,110,101,100,45,115,121,109,98,111,108,32,115,116,114,41,0,0,0,0};
static C_char li576[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,97,115,101,35,103,101,110,115,121,109,32,46,32,115,116,114,45,111,114,45,115,121,109,41,0,0,0,0,0,0};
static C_char li577[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,52,48,57,53,32,103,52,49,48,55,41,0,0,0,0};
static C_char li578[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,121,109,98,111,108,45,97,112,112,101,110,100,32,46,32,115,115,41,0,0,0,0,0,0,0};
static C_char li579[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,107,101,121,119,111,114,100,35,107,101,121,119,111,114,100,63,32,120,41,0,0,0,0};
static C_char li580[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,107,101,121,119,111,114,100,35,115,116,114,105,110,103,45,62,107,101,121,119,111,114,100,32,115,41,0,0,0,0,0};
static C_char li581[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,107,101,121,119,111,114,100,35,107,101,121,119,111,114,100,45,62,115,116,114,105,110,103,32,107,119,41,0,0,0,0};
static C_char li582[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,107,101,121,119,111,114,100,35,103,101,116,45,107,101,121,119,111,114,100,32,107,101,121,32,97,114,103,115,32,46,32,114,101,115,116,41,0,0,0};
static C_char li583[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,32,108,115,116,41,0,0,0,0};
static C_char li584[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,98,121,116,101,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0};
static C_char li585[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,115,116,32,105,41,0,0,0,0};
static C_char li586[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,108,105,115,116,45,62,98,121,116,101,118,101,99,116,111,114,32,108,115,116,48,41,0,0,0};
static C_char li587[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,109,97,107,101,45,98,121,116,101,118,101,99,116,111,114,32,115,105,122,101,32,46,32,114,101,115,116,41};
static C_char li588[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,63,32,120,41,0,0,0,0,0,0};
static C_char li589[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,45,108,101,110,103,116,104,32,98,118,41,0,0,0,0,0,0,0};
static C_char li590[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,45,117,56,45,114,101,102,32,98,118,32,105,41,0,0,0,0,0};
static C_char li591[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,45,117,56,45,115,101,116,33,32,98,118,32,105,32,98,41,0,0};
static C_char li592[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,115,116,114,105,110,103,45,62,117,116,102,56,32,115,41,0,0,0,0,0};
static C_char li593[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,117,116,102,56,45,62,115,116,114,105,110,103,32,98,118,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li594[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,115,45,62,115,116,114,105,110,103,32,98,118,32,46,32,114,101,115,116,41,0,0,0,0};
static C_char li595[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,115,116,114,105,110,103,45,62,108,97,116,105,110,49,32,115,41,0,0,0};
static C_char li596[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,108,97,116,105,110,49,45,62,115,116,114,105,110,103,32,98,118,41,0,0};
static C_char li597[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,61,63,32,98,49,32,98,50,41,0};
static C_char li598[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li599[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,32,46,32,97,114,103,115,41,0,0};
static C_char li600[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,45,99,111,112,121,32,98,118,32,46,32,114,101,115,116,41,0,0};
static C_char li601[] C_aligned={C_lihdr(0,0,55),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,45,99,111,112,121,33,32,98,118,49,32,97,116,32,98,118,50,32,46,32,114,101,115,116,41,0};
static C_char li602[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li603[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,108,115,116,32,108,101,110,41,0,0};
static C_char li604[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,45,97,112,112,101,110,100,32,46,32,98,118,115,41,0,0,0,0};
static C_char li605[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,109,97,107,101,45,118,101,99,116,111,114,32,115,105,122,101,32,46,32,102,105,108,108,41};
static C_char li606[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li607[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,108,105,115,116,45,62,118,101,99,116,111,114,32,108,115,116,48,41,0,0,0,0,0,0};
static C_char li608[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li609[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,62,108,105,115,116,32,118,32,46,32,114,101,115,116,41,0,0};
static C_char li610[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,118,101,99,116,111,114,32,46,32,120,115,41,0,0,0,0};
static C_char li611[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,52,52,54,56,41,0,0,0,0};
static C_char li612[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,102,105,108,108,33,32,118,32,120,32,46,32,114,101,115,116,41};
static C_char li613[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,52,52,57,57,32,102,105,41,0};
static C_char li614[] C_aligned={C_lihdr(0,0,18),40,99,111,112,121,32,118,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0,0,0};
static C_char li615[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,99,111,112,121,32,118,32,46,32,114,101,115,116,41,0,0,0};
static C_char li616[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,52,53,52,48,32,116,105,41,0};
static C_char li617[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,52,53,52,54,32,116,105,41,0};
static C_char li618[] C_aligned={C_lihdr(0,0,28),40,99,111,112,121,33,32,116,111,32,97,116,32,102,114,111,109,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0};
static C_char li619[] C_aligned={C_lihdr(0,0,39),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,99,111,112,121,33,32,116,111,32,97,116,32,102,114,111,109,32,46,32,114,101,115,116,41,0};
static C_char li620[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,53,54,53,41,0,0,0,0,0};
static C_char li621[] C_aligned={C_lihdr(0,0,22),40,100,111,108,111,111,112,52,54,51,50,32,118,115,32,108,101,110,115,32,105,41,0,0};
static C_char li622[] C_aligned={C_lihdr(0,0,17),40,102,111,108,100,108,52,54,50,50,32,103,52,54,50,49,41,0,0,0,0,0,0,0};
static C_char li623[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,52,53,57,49,32,103,52,54,48,51,41,0,0,0,0};
static C_char li624[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,97,112,112,101,110,100,32,46,32,118,115,41,0,0,0,0,0};
static C_char li625[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,52,54,53,57,41,0,0,0,0};
static C_char li626[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,117,98,118,101,99,116,111,114,32,118,32,105,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li627[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,98,97,115,101,35,118,101,99,116,111,114,45,114,101,115,105,122,101,32,118,32,110,32,46,32,114,101,115,116,41,0};
static C_char li628[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,52,54,56,55,41,0,0,0,0};
static C_char li629[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,118,101,99,116,111,114,45,114,101,115,105,122,101,32,118,32,110,32,105,110,105,116,41,0,0};
static C_char li630[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,99,32,99,115,32,102,41,0,0,0};
static C_char li631[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,61,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0,0};
static C_char li632[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,99,32,99,115,32,102,41,0,0,0};
static C_char li633[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,62,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0,0};
static C_char li634[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,99,32,99,115,32,102,41,0,0,0};
static C_char li635[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,60,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0,0};
static C_char li636[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,99,32,99,115,32,102,41,0,0,0};
static C_char li637[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,62,61,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0};
static C_char li638[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,99,32,99,115,32,102,41,0,0,0};
static C_char li639[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,60,61,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0};
static C_char li640[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
static C_char li641[] C_aligned={C_lihdr(0,0,15),40,108,111,111,107,117,112,45,99,104,97,114,32,99,41,0};
static C_char li642[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,104,97,114,45,110,97,109,101,32,120,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
static C_char li643[] C_aligned={C_lihdr(0,0,9),67,95,99,97,108,108,95,99,99,0,0,0,0,0,0,0};
static C_char li644[] C_aligned={C_lihdr(0,0,19),67,95,99,97,108,108,95,119,105,116,104,95,99,116,104,117,108,104,117,0,0,0,0,0};
static C_char li645[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0};
static C_char li646[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,102,111,114,45,101,97,99,104,32,112,32,108,115,116,48,41,0};
static C_char li647[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0};
static C_char li648[] C_aligned={C_lihdr(0,0,18),40,35,35,115,121,115,35,109,97,112,32,112,32,108,115,116,48,41,0,0,0,0,0,0};
static C_char li649[] C_aligned={C_lihdr(0,0,9),40,108,112,32,108,115,116,115,41,0,0,0,0,0,0,0};
static C_char li650[] C_aligned={C_lihdr(0,0,14),40,97,50,52,56,50,57,32,101,109,112,116,121,41,0,0};
static C_char li651[] C_aligned={C_lihdr(0,0,24),40,109,97,112,115,97,102,101,52,56,53,53,32,112,32,108,115,116,115,32,108,111,99,41};
static C_char li652[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,56,55,53,32,103,52,56,56,50,41,0,0,0,0,0,0,0};
static C_char li653[] C_aligned={C_lihdr(0,0,10),40,97,50,52,57,53,49,32,120,41,0,0,0,0,0,0};
static C_char li654[] C_aligned={C_lihdr(0,0,10),40,97,50,52,57,53,55,32,120,41,0,0,0,0,0,0};
static C_char li655[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,97,108,108,41,0,0,0,0,0,0};
static C_char li656[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,102,111,114,45,101,97,99,104,32,102,110,32,108,115,116,49,32,46,32,108,115,116,115,41};
static C_char li657[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,52,57,48,51,32,103,52,57,49,53,41,0,0,0,0};
static C_char li658[] C_aligned={C_lihdr(0,0,10),40,97,50,53,48,53,50,32,120,41,0,0,0,0,0,0};
static C_char li659[] C_aligned={C_lihdr(0,0,10),40,97,50,53,48,53,56,32,120,41,0,0,0,0,0,0};
static C_char li660[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,97,108,108,41,0,0,0,0,0,0};
static C_char li661[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,109,97,112,32,102,110,32,108,115,116,49,32,46,32,108,115,116,115,41,0,0,0,0,0};
static C_char li662[] C_aligned={C_lihdr(0,0,18),40,97,50,53,48,55,56,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0};
static C_char li663[] C_aligned={C_lihdr(0,0,40),40,115,99,104,101,109,101,35,100,121,110,97,109,105,99,45,119,105,110,100,32,98,101,102,111,114,101,32,116,104,117,110,107,32,97,102,116,101,114,41};
static C_char li664[] C_aligned={C_lihdr(0,0,24),40,99,111,110,116,105,110,117,97,116,105,111,110,32,46,32,114,101,115,117,108,116,115,41};
static C_char li665[] C_aligned={C_lihdr(0,0,13),40,97,50,53,49,48,50,32,99,111,110,116,41,0,0,0};
static C_char li666[] C_aligned={C_lihdr(0,0,44),40,115,99,104,101,109,101,35,99,97,108,108,45,119,105,116,104,45,99,117,114,114,101,110,116,45,99,111,110,116,105,110,117,97,116,105,111,110,32,112,114,111,99,41,0,0,0,0};
static C_char li667[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,100,121,110,97,109,105,99,45,117,110,119,105,110,100,32,119,105,110,100,115,32,110,41,0,0};
static C_char li668[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,111,114,116,45,99,108,111,115,101,100,63,32,112,41,0,0,0};
static C_char li669[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,109,97,107,101,45,112,111,114,116,32,105,47,111,32,99,108,97,115,115,32,110,97,109,101,32,116,121,112,101,41,0,0,0};
static C_char li670[] C_aligned={C_lihdr(0,0,22),40,97,52,50,51,48,51,32,98,117,102,32,115,116,97,114,116,32,108,101,110,41,0,0};
static C_char li671[] C_aligned={C_lihdr(0,0,26),40,97,52,50,50,57,55,32,98,117,102,32,115,116,97,114,116,32,108,101,110,32,100,101,99,41,0,0,0,0,0,0};
static C_char li672[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
static C_char li673[] C_aligned={C_lihdr(0,0,10),40,97,52,50,50,50,57,32,112,41,0,0,0,0,0,0};
static C_char li674[] C_aligned={C_lihdr(0,0,20),40,97,52,50,51,52,48,32,98,117,102,32,115,116,97,114,116,32,95,41,0,0,0,0};
static C_char li675[] C_aligned={C_lihdr(0,0,26),40,97,52,50,51,50,56,32,98,117,102,32,115,116,97,114,116,32,108,101,110,32,100,101,99,41,0,0,0,0,0,0};
static C_char li676[] C_aligned={C_lihdr(0,0,10),40,97,52,50,51,49,48,32,112,41,0,0,0,0,0,0};
static C_char li677[] C_aligned={C_lihdr(0,0,12),40,97,52,50,51,52,51,32,112,32,99,41,0,0,0,0};
static C_char li678[] C_aligned={C_lihdr(0,0,21),40,97,52,50,51,56,53,32,98,118,32,115,116,97,114,116,32,108,101,110,41,0,0,0};
static C_char li679[] C_aligned={C_lihdr(0,0,21),40,97,52,50,51,55,49,32,112,32,98,118,32,102,114,111,109,32,116,111,41,0,0,0};
static C_char li680[] C_aligned={C_lihdr(0,0,12),40,97,52,50,51,56,56,32,112,32,100,41,0,0,0,0};
static C_char li681[] C_aligned={C_lihdr(0,0,10),40,97,52,50,51,57,52,32,112,41,0,0,0,0,0,0};
static C_char li682[] C_aligned={C_lihdr(0,0,10),40,97,52,50,51,57,55,32,112,41,0,0,0,0,0,0};
static C_char li683[] C_aligned={C_lihdr(0,0,8),40,97,52,50,52,52,51,41};
static C_char li684[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,114,101,109,32,97,99,116,32,115,116,97,114,116,41,0,0,0,0};
static C_char li685[] C_aligned={C_lihdr(0,0,23),40,97,52,50,52,48,48,32,112,32,110,32,100,101,115,116,32,115,116,97,114,116,41,0};
static C_char li686[] C_aligned={C_lihdr(0,0,8),40,97,52,50,54,49,52,41};
static C_char li687[] C_aligned={C_lihdr(0,0,32),40,108,111,111,112,32,108,101,110,32,108,105,109,105,116,32,98,117,102,102,101,114,32,114,101,115,117,108,116,32,102,41};
static C_char li688[] C_aligned={C_lihdr(0,0,17),40,97,52,50,53,48,55,32,112,32,114,108,105,109,105,116,41,0,0,0,0,0,0,0};
static C_char li689[] C_aligned={C_lihdr(0,0,16),67,95,111,112,101,110,95,102,105,108,101,95,112,111,114,116};
static C_char li690[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,99,104,101,99,107,45,105,110,112,117,116,45,112,111,114,116,32,120,32,111,112,101,110,32,46,32,108,111,99,41,0,0,0};
static C_char li691[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,99,104,101,99,107,45,111,117,116,112,117,116,45,112,111,114,116,32,120,32,111,112,101,110,32,46,32,108,111,99,41,0,0};
static C_char li692[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,112,111,114,116,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0};
static C_char li693[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,99,104,101,99,107,45,111,112,101,110,45,112,111,114,116,32,120,32,46,32,108,111,99,41,0};
static C_char li694[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,53,49,50,53,41,0,0,0,0,0,0};
static C_char li695[] C_aligned={C_lihdr(0,0,34),40,115,99,104,101,109,101,35,99,117,114,114,101,110,116,45,105,110,112,117,116,45,112,111,114,116,32,46,32,97,114,103,115,41,0,0,0,0,0,0};
static C_char li696[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,53,49,53,48,41,0,0,0,0,0,0};
static C_char li697[] C_aligned={C_lihdr(0,0,35),40,115,99,104,101,109,101,35,99,117,114,114,101,110,116,45,111,117,116,112,117,116,45,112,111,114,116,32,46,32,97,114,103,115,41,0,0,0,0,0};
static C_char li698[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,53,49,55,53,41,0,0,0,0,0,0};
static C_char li699[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,117,114,114,101,110,116,45,101,114,114,111,114,45,112,111,114,116,32,46,32,97,114,103,115,41};
static C_char li700[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,116,116,121,45,112,111,114,116,63,32,112,111,114,116,41,0,0};
static C_char li701[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,112,111,114,116,45,100,97,116,97,32,112,111,114,116,41,0,0};
static C_char li702[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,115,101,116,45,112,111,114,116,45,100,97,116,97,33,32,112,111,114,116,32,100,97,116,97,41};
static C_char li703[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,53,50,49,52,32,109,111,100,101,115,41,0,0,0,0,0,0};
static C_char li704[] C_aligned={C_lihdr(0,0,25),40,111,112,101,110,32,110,97,109,101,32,105,110,112,32,109,111,100,101,115,32,108,111,99,41,0,0,0,0,0,0,0};
static C_char li705[] C_aligned={C_lihdr(0,0,20),40,99,108,111,115,101,32,112,111,114,116,32,105,110,112,32,108,111,99,41,0,0,0,0};
static C_char li706[] C_aligned={C_lihdr(0,0,36),40,115,99,104,101,109,101,35,111,112,101,110,45,105,110,112,117,116,45,102,105,108,101,32,110,97,109,101,32,46,32,109,111,100,101,41,0,0,0,0};
static C_char li707[] C_aligned={C_lihdr(0,0,37),40,115,99,104,101,109,101,35,111,112,101,110,45,111,117,116,112,117,116,45,102,105,108,101,32,110,97,109,101,32,46,32,109,111,100,101,41,0,0,0};
static C_char li708[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,99,108,111,115,101,45,105,110,112,117,116,45,112,111,114,116,32,112,111,114,116,41,0,0};
static C_char li709[] C_aligned={C_lihdr(0,0,31),40,115,99,104,101,109,101,35,99,108,111,115,101,45,111,117,116,112,117,116,45,112,111,114,116,32,112,111,114,116,41,0};
static C_char li710[] C_aligned={C_lihdr(0,0,8),40,97,50,53,56,50,54,41};
static C_char li711[] C_aligned={C_lihdr(0,0,18),40,97,50,53,56,51,50,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0};
static C_char li712[] C_aligned={C_lihdr(0,0,43),40,115,99,104,101,109,101,35,99,97,108,108,45,119,105,116,104,45,105,110,112,117,116,45,102,105,108,101,32,110,97,109,101,32,112,32,46,32,109,111,100,101,41,0,0,0,0,0};
static C_char li713[] C_aligned={C_lihdr(0,0,8),40,97,50,53,56,53,48,41};
static C_char li714[] C_aligned={C_lihdr(0,0,18),40,97,50,53,56,53,54,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0};
static C_char li715[] C_aligned={C_lihdr(0,0,44),40,115,99,104,101,109,101,35,99,97,108,108,45,119,105,116,104,45,111,117,116,112,117,116,45,102,105,108,101,32,110,97,109,101,32,112,32,46,32,109,111,100,101,41,0,0,0,0};
static C_char li716[] C_aligned={C_lihdr(0,0,8),40,97,50,53,56,55,52,41};
static C_char li717[] C_aligned={C_lihdr(0,0,18),40,97,50,53,56,56,53,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0};
static C_char li718[] C_aligned={C_lihdr(0,0,8),40,97,50,53,56,55,57,41};
static C_char li719[] C_aligned={C_lihdr(0,0,8),40,97,50,53,56,57,52,41};
static C_char li720[] C_aligned={C_lihdr(0,0,46),40,115,99,104,101,109,101,35,119,105,116,104,45,105,110,112,117,116,45,102,114,111,109,45,102,105,108,101,32,115,116,114,32,116,104,117,110,107,32,46,32,109,111,100,101,41,0,0};
static C_char li721[] C_aligned={C_lihdr(0,0,8),40,97,50,53,57,48,56,41};
static C_char li722[] C_aligned={C_lihdr(0,0,18),40,97,50,53,57,49,57,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0};
static C_char li723[] C_aligned={C_lihdr(0,0,8),40,97,50,53,57,49,51,41};
static C_char li724[] C_aligned={C_lihdr(0,0,8),40,97,50,53,57,50,56,41};
static C_char li725[] C_aligned={C_lihdr(0,0,45),40,115,99,104,101,109,101,35,119,105,116,104,45,111,117,116,112,117,116,45,116,111,45,102,105,108,101,32,115,116,114,32,116,104,117,110,107,32,46,32,109,111,100,101,41,0,0,0};
static C_char li726[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,102,105,108,101,45,101,120,105,115,116,115,63,32,110,97,109,101,32,102,105,108,101,63,32,100,105,114,63,32,108,111,99,41};
static C_char li727[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,102,108,117,115,104,45,111,117,116,112,117,116,32,112,111,114,116,41,0,0,0,0,0,0,0};
static C_char li728[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,108,117,115,104,45,111,117,116,112,117,116,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
static C_char li729[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,112,111,114,116,45,108,105,110,101,32,112,111,114,116,41,0,0};
static C_char li730[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,53,51,55,56,32,105,41,0,0};
static C_char li731[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li732[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,100,101,99,111,114,97,116,101,45,108,97,109,98,100,97,32,112,114,111,99,32,112,114,101,100,32,100,101,99,111,114,97,116,111,114,41,0,0,0,0,0};
static C_char li733[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li734[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,108,97,109,98,100,97,45,100,101,99,111,114,97,116,105,111,110,32,112,114,111,99,32,112,114,101,100,41,0,0,0,0,0};
static C_char li735[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,109,97,107,101,45,108,97,109,98,100,97,45,105,110,102,111,32,115,116,114,41,0,0,0,0};
static C_char li736[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,108,97,109,98,100,97,45,105,110,102,111,63,32,120,41,0,0};
static C_char li737[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,108,97,109,98,100,97,45,105,110,102,111,32,112,114,111,99,41};
static C_char li738[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,108,97,109,98,100,97,45,105,110,102,111,45,62,115,116,114,105,110,103,32,105,110,102,111,41};
static C_char li739[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,111,99,101,100,117,114,101,45,105,110,102,111,114,109,97,116,105,111,110,32,120,41,0,0};
static C_char li740[] C_aligned={C_lihdr(0,0,12),40,97,50,54,50,49,56,32,112,32,105,41,0,0,0,0};
static C_char li741[] C_aligned={C_lihdr(0,0,10),40,97,50,54,50,50,56,32,120,41,0,0,0,0,0,0};
static C_char li742[] C_aligned={C_lihdr(0,0,15),40,97,50,54,50,52,52,32,112,114,111,99,32,105,41,0};
static C_char li743[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,98,97,115,101,35,103,101,116,116,101,114,45,119,105,116,104,45,115,101,116,116,101,114,32,103,101,116,32,115,101,116,32,46,32,114,101,115,116,41};
static C_char li744[] C_aligned={C_lihdr(0,0,11),40,102,95,50,54,53,48,53,32,120,41,0,0,0,0,0};
static C_char li745[] C_aligned={C_lihdr(0,0,28),40,97,115,115,105,103,110,32,118,97,108,32,110,32,99,111,110,118,101,114,116,63,32,115,101,116,63,41,0,0,0,0};
static C_char li746[] C_aligned={C_lihdr(0,0,24),40,98,111,100,121,53,53,51,48,32,99,111,110,118,101,114,116,63,32,115,101,116,63,41};
static C_char li747[] C_aligned={C_lihdr(0,0,24),40,100,101,102,45,115,101,116,63,53,53,51,51,32,37,99,111,110,118,101,114,116,63,41};
static C_char li748[] C_aligned={C_lihdr(0,0,18),40,100,101,102,45,99,111,110,118,101,114,116,63,53,53,51,50,41,0,0,0,0,0,0};
static C_char li749[] C_aligned={C_lihdr(0,0,15),40,97,50,54,51,57,54,32,46,32,97,114,103,115,41,0};
static C_char li750[] C_aligned={C_lihdr(0,0,12),40,97,50,54,52,55,56,32,118,97,108,41,0,0,0,0};
static C_char li751[] C_aligned={C_lihdr(0,0,35),40,115,99,104,101,109,101,35,109,97,107,101,45,112,97,114,97,109,101,116,101,114,32,105,110,105,116,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li752[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,114,101,97,100,121,63,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li753[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,117,56,45,114,101,97,100,121,63,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
static C_char li754[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,114,101,97,100,45,99,104,97,114,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
static C_char li755[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,114,101,97,100,45,99,104,97,114,45,48,32,112,41,0,0,0};
static C_char li756[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,114,101,97,100,45,99,104,97,114,47,112,111,114,116,32,112,111,114,116,41,0,0,0,0,0};
static C_char li757[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,112,101,101,107,45,99,104,97,114,45,48,32,112,41,0,0,0};
static C_char li758[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,112,101,101,107,45,99,104,97,114,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
static C_char li759[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,114,101,97,100,32,46,32,114,101,115,116,41,0,0,0,0};
static C_char li760[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,114,101,97,100,45,112,114,111,109,112,116,45,104,111,111,107,41};
static C_char li761[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,105,110,102,105,120,45,108,105,115,116,45,104,111,111,107,32,108,115,116,41,0,0,0,0,0};
static C_char li762[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,115,104,97,114,112,45,110,117,109,98,101,114,45,104,111,111,107,32,112,111,114,116,32,110,41};
static C_char li763[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,114,101,97,100,45,119,97,114,110,105,110,103,32,112,111,114,116,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0};
static C_char li764[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,114,101,97,100,45,101,114,114,111,114,32,112,111,114,116,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0,0,0};
static C_char li765[] C_aligned={C_lihdr(0,0,11),40,102,95,50,54,56,49,49,32,99,41,0,0,0,0,0};
static C_char li766[] C_aligned={C_lihdr(0,0,21),40,105,110,102,111,32,99,108,97,115,115,32,100,97,116,97,32,118,97,108,41,0,0,0};
static C_char li767[] C_aligned={C_lihdr(0,0,8),40,115,107,105,112,32,99,41};
static C_char li768[] C_aligned={C_lihdr(0,0,13),40,115,107,105,112,45,116,111,45,101,111,108,41,0,0,0};
static C_char li769[] C_aligned={C_lihdr(0,0,22),40,114,101,115,101,114,118,101,100,45,99,104,97,114,97,99,116,101,114,32,99,41,0,0};
static C_char li770[] C_aligned={C_lihdr(0,0,29),40,114,101,97,100,45,117,110,114,101,115,101,114,118,101,100,45,99,104,97,114,45,48,32,112,111,114,116,41,0,0,0};
static C_char li771[] C_aligned={C_lihdr(0,0,24),40,114,101,103,105,115,116,101,114,45,115,104,97,114,101,100,33,32,116,104,117,110,107,41};
static C_char li772[] C_aligned={C_lihdr(0,0,16),40,117,110,116,104,117,110,107,32,111,32,102,97,105,108,41};
static C_char li773[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,53,55,50,48,32,105,41,0,0};
static C_char li774[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,33,32,111,41,0,0,0,0,0,0,0};
static C_char li775[] C_aligned={C_lihdr(0,0,20),40,117,110,116,104,117,110,107,105,102,121,33,32,111,32,102,97,105,108,41,0,0,0,0};
static C_char li776[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,99,41};
static C_char li777[] C_aligned={C_lihdr(0,0,10),40,114,45,115,112,97,99,101,115,41,0,0,0,0,0,0};
static C_char li778[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,115,101,113,32,110,41,0,0,0,0};
static C_char li779[] C_aligned={C_lihdr(0,0,22),40,114,45,117,115,101,113,117,101,110,99,101,32,117,32,110,32,98,97,115,101,41,0,0};
static C_char li780[] C_aligned={C_lihdr(0,0,11),40,112,97,114,115,101,32,115,101,113,41,0,0,0,0,0};
static C_char li781[] C_aligned={C_lihdr(0,0,7),40,97,98,111,114,116,41,0};
static C_char li782[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,115,101,113,41,0,0,0,0,0,0};
static C_char li783[] C_aligned={C_lihdr(0,0,19),40,114,45,120,115,101,113,117,101,110,99,101,32,100,101,108,105,109,41,0,0,0,0,0};
static C_char li784[] C_aligned={C_lihdr(0,0,14),40,101,97,116,45,119,115,32,99,32,110,108,63,41,0,0};
static C_char li785[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,99,32,108,115,116,41,0,0,0,0};
static C_char li786[] C_aligned={C_lihdr(0,0,15),40,114,45,115,116,114,105,110,103,32,116,101,114,109,41,0};
static C_char li787[] C_aligned={C_lihdr(0,0,19),40,115,116,97,114,116,105,110,103,45,108,105,110,101,32,109,115,103,41,0,0,0,0,0};
static C_char li788[] C_aligned={C_lihdr(0,0,11),40,102,95,50,55,56,53,48,32,99,41,0,0,0,0,0};
static C_char li789[] C_aligned={C_lihdr(0,0,15),40,97,50,55,57,54,53,32,116,111,107,32,107,119,41,0};
static C_char li790[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,97,115,116,41,0,0,0,0,0};
static C_char li791[] C_aligned={C_lihdr(0,0,15),40,97,50,55,56,52,54,32,114,101,116,117,114,110,41,0};
static C_char li792[] C_aligned={C_lihdr(0,0,18),40,114,45,108,105,115,116,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0,0,0};
static C_char li793[] C_aligned={C_lihdr(0,0,10),40,114,45,118,101,99,116,111,114,41,0,0,0,0,0,0};
static C_char li794[] C_aligned={C_lihdr(0,0,15),40,97,50,56,48,57,50,32,116,111,107,32,107,119,41,0};
static C_char li795[] C_aligned={C_lihdr(0,0,26),40,114,45,110,117,109,98,101,114,32,114,97,100,105,120,32,101,120,97,99,116,110,101,115,115,41,0,0,0,0,0,0};
static C_char li796[] C_aligned={C_lihdr(0,0,31),40,114,45,110,117,109,98,101,114,45,119,105,116,104,45,101,120,97,99,116,110,101,115,115,32,114,97,100,105,120,41,0};
static C_char li797[] C_aligned={C_lihdr(0,0,31),40,114,45,110,117,109,98,101,114,45,119,105,116,104,45,114,97,100,105,120,32,101,120,97,99,116,110,101,115,115,41,0};
static C_char li798[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,99,32,108,115,116,41,0,0,0,0};
static C_char li799[] C_aligned={C_lihdr(0,0,9),40,114,45,116,111,107,101,110,41,0,0,0,0,0,0,0};
static C_char li800[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,99,32,108,115,116,41,0,0,0,0};
static C_char li801[] C_aligned={C_lihdr(0,0,10),40,114,45,100,105,103,105,116,115,41,0,0,0,0,0,0};
static C_char li802[] C_aligned={C_lihdr(0,0,15),40,97,50,56,51,56,54,32,115,116,114,32,107,119,41,0};
static C_char li803[] C_aligned={C_lihdr(0,0,10),40,114,45,115,121,109,98,111,108,41,0,0,0,0,0,0};
static C_char li804[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,108,115,116,32,115,107,119,32,113,116,100,41,0,0,0,0,0,0};
static C_char li805[] C_aligned={C_lihdr(0,0,12),40,114,45,120,116,111,107,101,110,32,107,41,0,0,0,0};
static C_char li806[] C_aligned={C_lihdr(0,0,8),40,114,45,99,104,97,114,41};
static C_char li807[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li808[] C_aligned={C_lihdr(0,0,11),40,114,45,99,111,109,109,101,110,116,41,0,0,0,0,0};
static C_char li809[] C_aligned={C_lihdr(0,0,14),40,114,45,101,120,116,45,115,121,109,98,111,108,41,0,0};
static C_char li810[] C_aligned={C_lihdr(0,0,11),40,114,45,113,117,111,116,101,32,113,41,0,0,0,0,0};
static C_char li811[] C_aligned={C_lihdr(0,0,8),40,97,50,57,48,50,56,41};
static C_char li812[] C_aligned={C_lihdr(0,0,13),40,97,50,57,48,51,55,32,46,32,120,115,41,0,0,0};
static C_char li813[] C_aligned={C_lihdr(0,0,8),40,97,50,57,49,54,53,41};
static C_char li814[] C_aligned={C_lihdr(0,0,8),40,97,50,57,50,48,48,41};
static C_char li815[] C_aligned={C_lihdr(0,0,13),40,97,50,57,50,48,57,32,46,32,120,115,41,0,0,0};
static C_char li816[] C_aligned={C_lihdr(0,0,9),40,103,54,49,54,53,32,104,41,0,0,0,0,0,0,0};
static C_char li817[] C_aligned={C_lihdr(0,0,8),40,97,50,57,50,56,50,41};
static C_char li818[] C_aligned={C_lihdr(0,0,13),40,97,50,57,50,57,49,32,46,32,120,115,41,0,0,0};
static C_char li819[] C_aligned={C_lihdr(0,0,8),40,97,50,57,52,56,51,41};
static C_char li820[] C_aligned={C_lihdr(0,0,15),40,97,50,57,52,57,52,32,115,116,114,32,107,119,41,0};
static C_char li821[] C_aligned={C_lihdr(0,0,8),40,97,50,57,52,56,56,41};
static C_char li822[] C_aligned={C_lihdr(0,0,8),40,97,50,57,53,50,51,41};
static C_char li823[] C_aligned={C_lihdr(0,0,8),40,97,50,57,54,54,53,41};
static C_char li824[] C_aligned={C_lihdr(0,0,13),40,97,50,57,54,55,49,32,46,32,120,115,41,0,0,0};
static C_char li825[] C_aligned={C_lihdr(0,0,9),40,114,101,97,100,114,101,99,41,0,0,0,0,0,0,0};
static C_char li826[] C_aligned={C_lihdr(0,0,12),40,97,50,57,57,49,49,32,46,32,97,41,0,0,0,0};
static C_char li827[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,114,101,97,100,32,112,111,114,116,32,105,110,102,111,104,97,110,100,108,101,114,41,0,0,0};
static C_char li828[] C_aligned={C_lihdr(0,0,11),40,102,97,105,108,32,105,116,101,109,41,0,0,0,0,0};
static C_char li829[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,117,115,101,114,45,114,101,97,100,45,104,111,111,107,32,99,104,97,114,32,112,111,114,116,41};
static C_char li830[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,114,101,97,100,45,110,117,109,118,101,99,116,111,114,45,100,97,116,97,32,112,111,114,116,41};
static C_char li831[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,50,32,110,115,32,112,114,101,118,41,0};
static C_char li832[] C_aligned={C_lihdr(0,0,9),40,114,101,116,114,121,32,120,41,0,0,0,0,0,0,0};
static C_char li833[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,108,115,116,32,112,114,101,118,41,0};
static C_char li834[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,99,97,110,111,110,105,99,97,108,105,122,101,45,110,117,109,98,101,114,45,108,105,115,116,33,32,108,115,116,49,41,0,0};
static C_char li835[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,119,114,105,116,101,45,99,104,97,114,45,48,32,99,32,112,41};
static C_char li836[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,119,114,105,116,101,45,99,104,97,114,47,112,111,114,116,32,99,32,112,111,114,116,41,0,0};
static C_char li837[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,119,114,105,116,101,45,99,104,97,114,32,99,32,46,32,114,101,115,116,41,0,0,0,0};
static C_char li838[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,110,101,119,108,105,110,101,32,46,32,114,101,115,116,41,0};
static C_char li839[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,119,114,105,116,101,32,120,32,46,32,114,101,115,116,41,0};
static C_char li840[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,100,105,115,112,108,97,121,32,120,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
static C_char li841[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,52,51,49,32,103,54,52,51,56,41,0,0,0,0,0,0,0};
static C_char li842[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,105,110,116,32,46,32,97,114,103,115,41,0,0,0,0,0};
static C_char li843[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,52,54,51,32,103,54,52,55,48,41,0,0,0,0,0,0,0};
static C_char li844[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,105,110,116,42,32,46,32,97,114,103,115,41,0,0,0,0};
static C_char li845[] C_aligned={C_lihdr(0,0,17),40,111,117,116,115,116,114,32,112,111,114,116,32,115,116,114,41,0,0,0,0,0,0,0};
static C_char li846[] C_aligned={C_lihdr(0,0,18),40,111,117,116,115,116,114,48,32,112,111,114,116,32,115,116,114,41,0,0,0,0,0,0};
static C_char li847[] C_aligned={C_lihdr(0,0,17),40,111,117,116,99,104,114,32,112,111,114,116,32,99,104,114,41,0,0,0,0,0,0,0};
static C_char li848[] C_aligned={C_lihdr(0,0,17),40,111,117,116,115,121,109,32,112,111,114,116,32,115,121,109,41,0,0,0,0,0,0,0};
static C_char li849[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li850[] C_aligned={C_lihdr(0,0,25),40,111,117,116,114,101,97,100,97,98,108,101,115,121,109,32,112,111,114,116,32,115,116,114,41,0,0,0,0,0,0,0};
static C_char li851[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li852[] C_aligned={C_lihdr(0,0,22),40,115,121,109,45,105,115,45,114,101,97,100,97,98,108,101,63,32,115,116,114,41,0,0};
static C_char li853[] C_aligned={C_lihdr(0,0,10),40,103,54,54,51,51,32,99,110,41,0,0,0,0,0,0};
static C_char li854[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,54,54,53,52,32,105,32,99,41};
static C_char li855[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,54,54,56,53,32,120,41,0,0};
static C_char li856[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,54,55,49,52,32,105,32,99,41};
static C_char li857[] C_aligned={C_lihdr(0,0,7),40,111,117,116,32,120,41,0};
static C_char li858[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,112,114,105,110,116,32,120,32,114,101,97,100,97,98,108,101,32,112,111,114,116,41,0,0,0};
static C_char li859[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,112,114,111,99,101,100,117,114,101,45,62,115,116,114,105,110,103,32,120,41,0,0,0,0,0};
static C_char li860[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,97,115,101,35,114,101,99,111,114,100,45,112,114,105,110,116,101,114,32,116,121,112,101,41,0,0,0,0,0,0};
static C_char li861[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,101,116,45,114,101,99,111,114,100,45,112,114,105,110,116,101,114,33,32,116,121,112,101,32,112,114,111,99,41,0,0,0,0};
static C_char li862[] C_aligned={C_lihdr(0,0,8),40,97,51,49,54,52,57,41};
static C_char li863[] C_aligned={C_lihdr(0,0,11),40,97,51,49,54,52,51,32,101,120,41,0,0,0,0,0};
static C_char li864[] C_aligned={C_lihdr(0,0,8),40,97,51,49,54,57,54,41};
static C_char li865[] C_aligned={C_lihdr(0,0,8),40,97,51,49,55,49,49,41};
static C_char li866[] C_aligned={C_lihdr(0,0,15),40,97,51,49,55,48,53,32,46,32,97,114,103,115,41,0};
static C_char li867[] C_aligned={C_lihdr(0,0,8),40,97,51,49,54,57,48,41};
static C_char li868[] C_aligned={C_lihdr(0,0,10),40,97,51,49,54,51,55,32,107,41,0,0,0,0,0,0};
static C_char li869[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,117,115,101,114,45,112,114,105,110,116,45,104,111,111,107,32,120,32,114,101,97,100,97,98,108,101,32,112,111,114,116,41,0};
static C_char li870[] C_aligned={C_lihdr(0,0,8),40,97,51,49,55,56,48,41};
static C_char li871[] C_aligned={C_lihdr(0,0,8),40,97,51,49,56,50,51,41};
static C_char li872[] C_aligned={C_lihdr(0,0,8),40,97,51,49,56,50,57,41};
static C_char li873[] C_aligned={C_lihdr(0,0,15),40,97,51,49,55,55,52,32,114,101,116,117,114,110,41,0};
static C_char li874[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,119,105,116,104,45,112,114,105,110,116,45,108,101,110,103,116,104,45,108,105,109,105,116,32,108,105,109,105,116,32,116,104,117,110,107,41,0,0,0,0,0};
static C_char li875[] C_aligned={C_lihdr(0,0,15),40,99,104,101,99,107,54,56,51,51,32,112,32,110,41,0};
static C_char li876[] C_aligned={C_lihdr(0,0,10),40,97,52,49,55,51,49,32,112,41,0,0,0,0,0,0};
static C_char li877[] C_aligned={C_lihdr(0,0,10),40,97,52,49,55,53,51,32,112,41,0,0,0,0,0,0};
static C_char li878[] C_aligned={C_lihdr(0,0,12),40,97,52,49,55,55,49,32,112,32,99,41,0,0,0,0};
static C_char li879[] C_aligned={C_lihdr(0,0,21),40,97,52,49,55,56,55,32,112,32,98,118,32,102,114,111,109,32,116,111,41,0,0,0};
static C_char li880[] C_aligned={C_lihdr(0,0,10),40,97,52,49,56,48,57,32,112,41,0,0,0,0,0,0};
static C_char li881[] C_aligned={C_lihdr(0,0,10),40,97,52,49,56,49,50,32,112,41,0,0,0,0,0,0};
static C_char li882[] C_aligned={C_lihdr(0,0,23),40,97,52,49,56,49,53,32,112,32,110,32,100,101,115,116,32,115,116,97,114,116,41,0};
static C_char li883[] C_aligned={C_lihdr(0,0,12),40,97,52,49,56,56,53,32,112,111,115,41,0,0,0,0};
static C_char li884[] C_aligned={C_lihdr(0,0,8),40,97,52,49,56,55,53,41};
static C_char li885[] C_aligned={C_lihdr(0,0,29),40,97,52,49,56,57,52,32,110,101,120,116,32,108,105,110,101,32,102,117,108,108,45,108,105,110,101,63,41,0,0,0};
static C_char li886[] C_aligned={C_lihdr(0,0,16),40,97,52,49,56,53,49,32,112,32,108,105,109,105,116,41};
static C_char li887[] C_aligned={C_lihdr(0,0,10),40,97,52,49,57,51,53,32,112,41,0,0,0,0,0,0};
static C_char li888[] C_aligned={C_lihdr(0,0,6),40,103,114,111,119,41,0,0};
static C_char li889[] C_aligned={C_lihdr(0,0,18),40,99,111,110,99,32,98,117,102,32,102,114,111,109,32,116,111,41,0,0,0,0,0,0};
static C_char li890[] C_aligned={C_lihdr(0,0,9),40,99,111,110,99,49,32,98,41,0,0,0,0,0,0,0};
static C_char li891[] C_aligned={C_lihdr(0,0,9),40,103,101,116,108,105,110,101,41,0,0,0,0,0,0,0};
static C_char li892[] C_aligned={C_lihdr(0,0,8),40,97,51,49,57,57,57,41};
static C_char li893[] C_aligned={C_lihdr(0,0,25),40,97,51,50,48,48,53,32,98,117,102,32,111,102,102,115,101,116,32,108,105,109,105,116,41,0,0,0,0,0,0,0};
static C_char li894[] C_aligned={C_lihdr(0,0,8),40,97,51,50,48,55,51,41};
static C_char li895[] C_aligned={C_lihdr(0,0,25),40,97,51,50,48,55,57,32,98,117,102,32,111,102,102,115,101,116,32,108,105,109,105,116,41,0,0,0,0,0,0,0};
static C_char li896[] C_aligned={C_lihdr(0,0,27),40,108,111,111,112,32,98,117,102,32,111,102,102,115,101,116,32,112,111,115,32,108,105,109,105,116,41,0,0,0,0,0};
static C_char li897[] C_aligned={C_lihdr(0,0,63),40,35,35,115,121,115,35,115,99,97,110,45,98,117,102,102,101,114,45,108,105,110,101,32,98,117,102,32,108,105,109,105,116,32,115,116,97,114,116,45,112,111,115,32,101,111,115,45,104,97,110,100,108,101,114,32,46,32,114,101,115,116,41,0};
static C_char li898[] C_aligned={C_lihdr(0,0,9),40,103,54,57,56,54,32,120,41,0,0,0,0,0,0,0};
static C_char li899[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,57,56,53,32,103,54,57,57,50,41,0,0,0,0,0,0,0};
static C_char li900[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,112,114,105,110,116,45,116,111,45,115,116,114,105,110,103,32,120,115,41,0,0,0,0,0,0};
static C_char li901[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,112,111,105,110,116,101,114,45,62,115,116,114,105,110,103,32,120,41,0,0,0,0,0,0,0};
static C_char li902[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li903[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,98,97,115,101,35,103,101,116,45,99,97,108,108,45,99,104,97,105,110,32,46,32,114,101,115,116,41,0,0,0,0};
static C_char li904[] C_aligned={C_lihdr(0,0,8),40,97,51,50,52,55,52,41};
static C_char li905[] C_aligned={C_lihdr(0,0,12),40,103,55,48,53,53,32,105,110,102,111,41,0,0,0,0};
static C_char li906[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,48,53,52,32,103,55,48,54,49,41,0,0,0,0,0,0,0};
static C_char li907[] C_aligned={C_lihdr(0,0,49),40,35,35,115,121,115,35,114,101,97,108,108,121,45,112,114,105,110,116,45,99,97,108,108,45,99,104,97,105,110,32,112,111,114,116,32,99,104,97,105,110,32,104,101,97,100,101,114,41,0,0,0,0,0,0,0};
static C_char li908[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,105,110,116,45,99,97,108,108,45,99,104,97,105,110,32,46,32,114,101,115,116,41,0,0};
static C_char li909[] C_aligned={C_lihdr(0,0,7),40,98,114,101,97,107,41,0};
static C_char li910[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,117,115,101,114,45,105,110,116,101,114,114,117,112,116,45,104,111,111,107,41,0,0,0,0,0};
static C_char li911[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,49,49,52,32,103,55,49,50,49,41,0,0,0,0,0,0,0};
static C_char li912[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
static C_char li913[] C_aligned={C_lihdr(0,0,21),40,99,108,101,97,110,117,112,45,98,101,102,111,114,101,45,101,120,105,116,41,0,0,0};
static C_char li914[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,100,98,103,45,104,111,111,107,32,46,32,97,114,103,115,41,0};
static C_char li915[] C_aligned={C_lihdr(0,0,8),40,97,51,50,56,48,54,41};
static C_char li916[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,49,57,52,32,103,55,50,48,49,41,0,0,0,0,0,0,0};
static C_char li917[] C_aligned={C_lihdr(0,0,47),40,35,35,115,121,115,35,115,105,103,110,97,108,45,104,111,111,107,47,101,114,114,110,111,32,109,111,100,101,32,101,114,114,110,111,32,109,115,103,32,46,32,97,114,103,115,41,0};
static C_char li918[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,115,105,103,110,97,108,45,104,111,111,107,32,109,111,100,101,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0,0};
static C_char li919[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,97,98,111,114,116,32,120,41,0,0,0,0,0};
static C_char li920[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,115,105,103,110,97,108,32,120,41,0,0,0,0};
static C_char li921[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,117,114,114,101,110,116,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,99,41,0,0,0,0,0};
static C_char li922[] C_aligned={C_lihdr(0,0,8),40,97,51,51,50,55,48,41};
static C_char li923[] C_aligned={C_lihdr(0,0,8),40,97,51,51,50,55,52,41};
static C_char li924[] C_aligned={C_lihdr(0,0,56),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,119,105,116,104,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,104,97,110,100,108,101,114,32,116,104,117,110,107,41};
static C_char li925[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,55,51,53,49,41,0,0,0,0,0,0};
static C_char li926[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,117,114,114,101,110,116,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,46,32,97,114,103,115,41,0,0,0,0};
static C_char li927[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,111,112,115,41,0,0,0,0};
static C_char li928[] C_aligned={C_lihdr(0,0,69),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,112,114,111,112,45,108,105,115,116,45,62,107,105,110,100,45,112,114,101,102,105,120,101,100,45,112,114,111,112,45,108,105,115,116,32,108,111,99,32,107,105,110,100,32,112,108,105,115,116,41,0,0,0};
static C_char li929[] C_aligned={C_lihdr(0,0,56),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,109,97,107,101,45,112,114,111,112,101,114,116,121,45,99,111,110,100,105,116,105,111,110,32,107,105,110,100,32,46,32,112,114,111,112,115,41};
static C_char li930[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,51,57,53,41,0,0,0,0,0};
static C_char li931[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,55,52,52,48,32,103,55,52,53,50,41,0,0,0,0};
static C_char li932[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,55,52,49,51,32,103,55,52,50,53,41,0,0,0,0};
static C_char li933[] C_aligned={C_lihdr(0,0,55),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,109,97,107,101,45,99,111,109,112,111,115,105,116,101,45,99,111,110,100,105,116,105,111,110,32,99,49,32,46,32,99,111,110,100,115,41,0};
static C_char li934[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,55,53,48,48,32,103,55,53,49,50,41,0,0,0,0};
static C_char li935[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,55,52,55,51,32,103,55,52,56,53,41,0,0,0,0};
static C_char li936[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,32,97,114,103,49,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0};
static C_char li937[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,63,32,120,41};
static C_char li938[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,111,112,115,41,0,0,0,0};
static C_char li939[] C_aligned={C_lihdr(0,0,9),40,103,55,53,51,54,32,107,41,0,0,0,0,0,0,0};
static C_char li940[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,55,53,51,48,32,103,55,53,52,50,41,0,0,0,0};
static C_char li941[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,45,62,108,105,115,116,32,120,41,0,0,0};
static C_char li942[] C_aligned={C_lihdr(0,0,11),40,102,95,51,51,55,57,51,32,99,41,0,0,0,0,0};
static C_char li943[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,45,112,114,101,100,105,99,97,116,101,32,107,105,110,100,41,0,0,0,0};
static C_char li944[] C_aligned={C_lihdr(0,0,11),40,102,95,51,51,56,50,48,32,99,41,0,0,0,0,0};
static C_char li945[] C_aligned={C_lihdr(0,0,67),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,45,112,114,111,112,101,114,116,121,45,97,99,99,101,115,115,111,114,32,107,105,110,100,32,112,114,111,112,32,46,32,101,114,114,45,100,101,102,41,0,0,0,0,0};
static C_char li946[] C_aligned={C_lihdr(0,0,64),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,103,101,116,45,99,111,110,100,105,116,105,111,110,45,112,114,111,112,101,114,116,121,32,99,32,107,105,110,100,32,112,114,111,112,32,46,32,101,114,114,45,100,101,102,41};
static C_char li947[] C_aligned={C_lihdr(0,0,8),40,97,51,51,56,56,54,41};
static C_char li948[] C_aligned={C_lihdr(0,0,9),40,103,55,54,48,49,32,120,41,0,0,0,0,0,0,0};
static C_char li949[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,54,48,48,32,103,55,54,48,55,41,0,0,0,0,0,0,0};
static C_char li950[] C_aligned={C_lihdr(0,0,21),40,119,114,105,116,101,97,114,103,115,32,97,114,103,115,32,112,111,114,116,41,0,0,0};
static C_char li951[] C_aligned={C_lihdr(0,0,11),40,103,55,54,52,52,32,109,115,103,41,0,0,0,0,0};
static C_char li952[] C_aligned={C_lihdr(0,0,22),40,98,111,100,121,55,54,50,49,32,112,111,114,116,32,104,101,97,100,101,114,41,0,0};
static C_char li953[] C_aligned={C_lihdr(0,0,22),40,100,101,102,45,104,101,97,100,101,114,55,54,50,52,32,37,112,111,114,116,41,0,0};
static C_char li954[] C_aligned={C_lihdr(0,0,14),40,100,101,102,45,112,111,114,116,55,54,50,51,41,0,0};
static C_char li955[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,112,114,105,110,116,45,101,114,114,111,114,45,109,101,115,115,97,103,101,32,101,120,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0};
static C_char li956[] C_aligned={C_lihdr(0,0,47),40,35,35,115,121,115,35,115,104,111,119,45,101,120,99,101,112,116,105,111,110,45,119,97,114,110,105,110,103,32,101,120,110,32,99,97,117,115,101,32,46,32,114,101,115,116,41,0};
static C_char li957[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,101,114,114,111,114,45,104,111,111,107,32,99,111,100,101,32,108,111,99,32,46,32,97,114,103,115,41,0,0,0,0,0,0};
static C_char li958[] C_aligned={C_lihdr(0,0,8),40,97,51,52,56,57,56,41};
static C_char li959[] C_aligned={C_lihdr(0,0,8),40,97,51,52,57,51,56,41};
static C_char li960[] C_aligned={C_lihdr(0,0,45),40,115,99,104,101,109,101,35,119,105,116,104,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,104,97,110,100,108,101,114,32,116,104,117,110,107,41,0,0,0};
static C_char li961[] C_aligned={C_lihdr(0,0,8),40,97,51,52,57,55,48,41};
static C_char li962[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,114,97,105,115,101,32,111,98,106,41,0,0,0,0,0,0};
static C_char li963[] C_aligned={C_lihdr(0,0,8),40,97,51,53,48,49,49,41};
static C_char li964[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,114,97,105,115,101,45,99,111,110,116,105,110,117,97,98,108,101,32,111,98,106,41,0,0};
static C_char li965[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,114,101,97,100,45,101,114,114,111,114,63,32,111,98,106,41};
static C_char li966[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,102,105,108,101,45,101,114,114,111,114,63,32,111,98,106,41};
static C_char li967[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,115,116,114,117,99,116,117,114,101,63,32,120,32,115,41,0,0};
static C_char li968[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,103,101,110,101,114,105,99,45,115,116,114,117,99,116,117,114,101,63,32,120,41,0,0,0,0};
static C_char li969[] C_aligned={C_lihdr(0,0,16),40,35,35,115,121,115,35,115,108,111,116,32,120,32,105,41};
static C_char li970[] C_aligned={C_lihdr(0,0,14),40,35,35,115,121,115,35,115,105,122,101,32,120,41,0,0};
static C_char li971[] C_aligned={C_lihdr(0,0,14),67,95,109,97,107,101,95,112,111,105,110,116,101,114,0,0};
static C_char li972[] C_aligned={C_lihdr(0,0,21),67,95,109,97,107,101,95,116,97,103,103,101,100,95,112,111,105,110,116,101,114,0,0,0};
static C_char li973[] C_aligned={C_lihdr(0,0,18),40,35,35,115,121,115,35,112,111,105,110,116,101,114,63,32,120,41,0,0,0,0,0,0};
static C_char li974[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,115,101,116,45,112,111,105,110,116,101,114,45,97,100,100,114,101,115,115,33,32,112,116,114,32,97,100,100,114,41,0,0,0};
static C_char li975[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,98,121,116,101,118,101,99,116,111,114,63,32,120,41,0,0,0};
static C_char li976[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,112,98,121,116,101,118,101,99,116,111,114,32,115,41,0,0,0};
static C_char li977[] C_aligned={C_lihdr(0,0,20),40,35,35,115,121,115,35,112,101,114,109,97,110,101,110,116,63,32,120,41,0,0,0,0};
static C_char li978[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,98,108,111,99,107,45,97,100,100,114,101,115,115,32,120,41,0};
static C_char li979[] C_aligned={C_lihdr(0,0,19),40,35,35,115,121,115,35,108,111,99,97,116,105,118,101,63,32,120,41,0,0,0,0,0};
static C_char li980[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,115,114,102,105,45,52,45,118,101,99,116,111,114,63,32,120,41};
static C_char li981[] C_aligned={C_lihdr(0,0,20),40,35,35,115,121,115,35,110,117,108,108,45,112,111,105,110,116,101,114,41,0,0,0,0};
static C_char li982[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,110,117,108,108,45,112,111,105,110,116,101,114,63,32,120,41,0};
static C_char li983[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,97,100,100,114,101,115,115,45,62,112,111,105,110,116,101,114,32,97,100,100,114,41,0,0,0};
static C_char li984[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,112,111,105,110,116,101,114,45,62,97,100,100,114,101,115,115,32,112,116,114,41,0,0,0,0};
static C_char li985[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,109,97,107,101,45,99,45,115,116,114,105,110,103,32,115,116,114,32,46,32,114,101,115,116,41};
static C_char li986[] C_aligned={C_lihdr(0,0,21),67,95,112,101,101,107,95,115,105,103,110,101,100,95,105,110,116,101,103,101,114,0,0,0};
static C_char li987[] C_aligned={C_lihdr(0,0,23),67,95,112,101,101,107,95,117,110,115,105,103,110,101,100,95,105,110,116,101,103,101,114,0};
static C_char li988[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,112,101,101,107,45,102,105,120,110,117,109,32,98,32,105,41,0};
static C_char li989[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,112,101,101,107,45,98,121,116,101,32,112,116,114,32,105,41,0};
static C_char li990[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,118,101,99,116,111,114,45,62,115,116,114,117,99,116,117,114,101,33,32,118,101,99,41,0,0};
static C_char li991[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,112,101,101,107,45,100,111,117,98,108,101,32,98,32,105,41,0};
static C_char li992[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,112,101,101,107,45,99,45,115,116,114,105,110,103,32,98,32,105,41,0,0,0,0,0,0,0};
static C_char li993[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,112,101,101,107,45,110,111,110,110,117,108,108,45,99,45,115,116,114,105,110,103,32,98,32,105,41,0,0,0,0,0,0,0};
static C_char li994[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,112,101,101,107,45,97,110,100,45,102,114,101,101,45,99,45,115,116,114,105,110,103,32,98,32,105,41,0,0,0,0,0,0};
static C_char li995[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,112,101,101,107,45,97,110,100,45,102,114,101,101,45,110,111,110,110,117,108,108,45,99,45,115,116,114,105,110,103,32,98,32,105,41,0,0,0,0,0,0};
static C_char li996[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,112,111,107,101,45,99,45,115,116,114,105,110,103,32,98,32,105,32,115,41,0,0,0,0,0};
static C_char li997[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,112,111,107,101,45,105,110,116,101,103,101,114,32,98,32,105,32,110,41,0,0,0,0,0,0};
static C_char li998[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,112,111,107,101,45,100,111,117,98,108,101,32,98,32,105,32,110,41,0,0,0,0,0,0,0};
static C_char li999[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li1000[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,112,101,101,107,45,99,45,115,116,114,105,110,103,45,108,105,115,116,32,112,116,114,32,110,41};
static C_char li1001[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li1002[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,112,101,101,107,45,97,110,100,45,102,114,101,101,45,99,45,115,116,114,105,110,103,45,108,105,115,116,32,112,116,114,32,110,41,0,0,0,0,0,0,0};
static C_char li1003[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,118,101,99,116,111,114,45,62,99,108,111,115,117,114,101,33,32,118,101,99,32,97,100,100,114,41,0,0,0,0,0,0,0};
static C_char li1004[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,115,121,109,98,111,108,45,104,97,115,45,116,111,112,108,101,118,101,108,45,98,105,110,100,105,110,103,63,32,115,41,0,0};
static C_char li1005[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,98,108,111,99,107,45,112,111,105,110,116,101,114,32,120,41,0};
static C_char li1006[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,99,104,97,114,45,97,114,103,117,109,101,110,116,32,120,41,0};
static C_char li1007[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,102,105,120,110,117,109,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0,0};
static C_char li1008[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,102,108,111,110,117,109,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0,0};
static C_char li1009[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,98,108,111,99,107,45,97,114,103,117,109,101,110,116,32,120,41};
static C_char li1010[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,99,112,108,120,110,117,109,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0};
static C_char li1011[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,115,116,114,117,99,116,45,119,114,97,112,112,101,114,45,97,114,103,117,109,101,110,116,32,116,32,120,41,0,0,0,0,0};
static C_char li1012[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,115,116,114,105,110,103,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0,0};
static C_char li1013[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,115,121,109,98,111,108,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0,0};
static C_char li1014[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,112,111,105,110,116,101,114,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0};
static C_char li1015[] C_aligned={C_lihdr(0,0,44),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,116,97,103,103,101,100,45,112,111,105,110,116,101,114,45,97,114,103,117,109,101,110,116,32,120,32,116,120,41,0,0,0,0};
static C_char li1016[] C_aligned={C_lihdr(0,0,48),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,114,97,110,103,101,100,45,105,110,116,101,103,101,114,45,97,114,103,117,109,101,110,116,32,111,98,106,32,115,105,122,101,41};
static C_char li1017[] C_aligned={C_lihdr(0,0,57),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,117,110,115,105,103,110,101,100,45,114,97,110,103,101,100,45,105,110,116,101,103,101,114,45,97,114,103,117,109,101,110,116,32,111,98,106,32,115,105,122,101,41,0,0,0,0,0,0,0};
static C_char li1018[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,119,114,97,112,45,115,116,114,117,99,116,32,116,121,112,101,32,114,101,99,41,0,0,0,0};
static C_char li1019[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,100,101,102,97,117,108,116,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,97,114,103,41,0,0,0};
static C_char li1020[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,109,97,107,101,45,116,104,114,101,97,100,32,116,104,117,110,107,32,115,116,97,116,101,32,110,97,109,101,32,113,41,0,0};
static C_char li1021[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,109,97,107,101,45,109,117,116,101,120,32,105,100,32,111,119,110,101,114,41,0,0,0,0,0};
static C_char li1022[] C_aligned={C_lihdr(0,0,16),40,35,35,115,121,115,35,115,99,104,101,100,117,108,101,41};
static C_char li1023[] C_aligned={C_lihdr(0,0,8),40,97,51,53,53,48,56,41};
static C_char li1024[] C_aligned={C_lihdr(0,0,15),40,97,51,53,52,57,57,32,114,101,116,117,114,110,41,0};
static C_char li1025[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,116,104,114,101,97,100,45,121,105,101,108,100,33,41,0,0,0};
static C_char li1026[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,107,105,108,108,45,111,116,104,101,114,45,116,104,114,101,97,100,115,32,116,104,117,110,107,41};
static C_char li1027[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,114,101,115,117,109,101,45,116,104,114,101,97,100,45,111,110,45,101,118,101,110,116,32,116,41};
static C_char li1028[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,115,117,115,112,101,110,100,45,116,104,114,101,97,100,45,111,110,45,101,118,101,110,116,32,116,41,0,0,0,0,0,0,0};
static C_char li1029[] C_aligned={C_lihdr(0,0,12),40,97,51,53,53,51,53,32,46,32,95,41,0,0,0,0};
static C_char li1030[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,115,108,101,101,112,45,117,110,116,105,108,45,105,110,116,101,114,114,117,112,116,41,0,0,0};
static C_char li1031[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,109,97,107,101,45,101,118,101,110,116,45,113,117,101,117,101,41};
static C_char li1032[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,97,100,100,45,101,118,101,110,116,45,116,111,45,113,117,101,117,101,33,32,113,32,101,41,0};
static C_char li1033[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,103,101,116,45,110,101,120,116,45,101,118,101,110,116,32,113,41};
static C_char li1034[] C_aligned={C_lihdr(0,0,7),40,97,103,97,105,110,41,0};
static C_char li1035[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,119,97,105,116,45,102,111,114,45,110,101,120,116,45,101,118,101,110,116,32,113,41,0,0,0};
static C_char li1036[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,108,101,101,112,45,104,111,111,107,32,110,41,0,0,0,0,0};
static C_char li1037[] C_aligned={C_lihdr(0,0,22),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,108,101,101,112,32,110,41,0,0};
static C_char li1038[] C_aligned={C_lihdr(0,0,16),67,95,99,111,110,116,101,120,116,95,115,119,105,116,99,104};
static C_char li1039[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,114,101,97,115,111,110,41,0,0,0};
static C_char li1040[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,105,110,116,101,114,114,117,112,116,45,104,111,111,107,32,114,101,97,115,111,110,32,115,116,97,116,101,41,0,0,0,0,0};
static C_char li1041[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,100,105,115,112,97,116,99,104,45,105,110,116,101,114,114,117,112,116,32,107,41,0,0,0,0};
static C_char li1042[] C_aligned={C_lihdr(0,0,20),40,35,35,115,121,115,35,117,112,100,97,116,101,45,101,114,114,110,111,41,0,0,0,0};
static C_char li1043[] C_aligned={C_lihdr(0,0,13),40,35,35,115,121,115,35,101,114,114,110,111,41,0,0,0};
static C_char li1044[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,56,48,57,54,32,99,41,0,0};
static C_char li1045[] C_aligned={C_lihdr(0,0,13),40,114,101,97,100,108,110,32,112,111,114,116,41,0,0,0};
static C_char li1046[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
static C_char li1047[] C_aligned={C_lihdr(0,0,36),40,114,101,97,100,45,101,115,99,97,112,101,100,45,115,101,120,112,32,112,111,114,116,32,115,107,105,112,45,98,114,97,99,101,63,41,0,0,0,0};
static C_char li1048[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,56,49,51,49,32,108,110,41,0};
static C_char li1049[] C_aligned={C_lihdr(0,0,15),40,103,101,116,47,99,108,101,97,114,45,115,116,114,41,0};
static C_char li1050[] C_aligned={C_lihdr(0,0,27),40,108,111,111,112,50,32,108,115,116,32,110,101,120,116,45,115,116,114,105,110,103,32,97,99,99,41,0,0,0,0,0};
static C_char li1051[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0};
static C_char li1052[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,117,115,101,114,45,114,101,97,100,45,104,111,111,107,32,99,104,97,114,32,112,111,114,116,41};
static C_char li1053[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,41,0};
static C_char li1054[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,45,104,111,111,107,32,100,105,114,41,0,0,0,0,0,0,0};
static C_char li1055[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,103,101,116,45,101,110,118,105,114,111,110,109,101,110,116,45,118,97,114,105,97,98,108,101,32,118,97,114,41,0,0};
static C_char li1056[] C_aligned={C_lihdr(0,0,59),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,115,101,116,45,101,110,118,105,114,111,110,109,101,110,116,45,118,97,114,105,97,98,108,101,33,32,118,97,114,32,118,97,108,41,0,0,0,0,0};
static C_char li1057[] C_aligned={C_lihdr(0,0,57),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,117,110,115,101,116,45,101,110,118,105,114,111,110,109,101,110,116,45,118,97,114,105,97,98,108,101,33,32,118,97,114,41,0,0,0,0,0,0,0};
static C_char li1058[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,106,41};
static C_char li1059[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li1060[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,103,101,116,45,101,110,118,105,114,111,110,109,101,110,116,45,118,97,114,105,97,98,108,101,115,41,0,0,0,0,0};
static C_char li1061[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,101,120,101,99,117,116,97,98,108,101,45,112,97,116,104,110,97,109,101,41,0,0,0};
static C_char li1062[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,97,114,103,99,43,97,114,103,118,41,0,0,0,0,0};
static C_char li1063[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,56,50,57,57,32,105,32,118,41};
static C_char li1064[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,97,114,103,118,41,0,0};
static C_char li1065[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,103,99,35,99,117,114,114,101,110,116,45,103,99,45,109,105,108,108,105,115,101,99,111,110,100,115,41,0,0,0,0};
static C_char li1066[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,103,99,35,115,101,116,45,103,99,45,114,101,112,111,114,116,33,32,102,108,97,103,41};
static C_char li1067[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,103,99,35,109,101,109,111,114,121,45,115,116,97,116,105,115,116,105,99,115,41,0,0};
static C_char li1068[] C_aligned={C_lihdr(0,0,20),67,95,114,101,103,105,115,116,101,114,95,102,105,110,97,108,105,122,101,114,0,0,0,0};
static C_char li1069[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,105,110,105,116,45,102,105,110,97,108,105,122,101,114,32,120,32,121,41,0,0,0,0,0,0};
static C_char li1070[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,103,99,35,102,105,110,97,108,105,122,101,114,63,32,120,41,0,0,0,0,0,0,0};
static C_char li1071[] C_aligned={C_lihdr(0,0,11),40,104,97,110,100,108,101,114,32,111,41,0,0,0,0,0};
static C_char li1072[] C_aligned={C_lihdr(0,0,10),40,104,97,110,100,108,101,32,111,41,0,0,0,0,0,0};
static C_char li1073[] C_aligned={C_lihdr(0,0,15),40,97,51,54,54,55,50,32,46,32,114,101,115,116,41,0};
static C_char li1074[] C_aligned={C_lihdr(0,0,15),40,97,51,54,54,57,51,32,112,114,111,99,32,105,41,0};
static C_char li1075[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,56,51,56,54,32,103,56,51,57,51,41,0,0,0,0,0,0,0};
static C_char li1076[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,103,99,35,109,97,107,101,45,102,105,110,97,108,105,122,101,114,32,46,32,111,98,106,101,99,116,115,41,0,0,0};
static C_char li1077[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,56,52,50,56,32,103,56,52,51,53,41,0,0,0,0,0,0,0};
static C_char li1078[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,103,99,35,97,100,100,45,116,111,45,102,105,110,97,108,105,122,101,114,32,102,32,46,32,111,98,106,101,99,116,115,41,0,0,0,0,0,0,0};
static C_char li1079[] C_aligned={C_lihdr(0,0,8),40,97,51,54,56,53,55,41};
static C_char li1080[] C_aligned={C_lihdr(0,0,11),40,97,51,54,56,53,49,32,101,120,41,0,0,0,0,0};
static C_char li1081[] C_aligned={C_lihdr(0,0,8),40,97,51,54,56,54,57,41};
static C_char li1082[] C_aligned={C_lihdr(0,0,8),40,97,51,54,56,57,50,41};
static C_char li1083[] C_aligned={C_lihdr(0,0,15),40,97,51,54,56,56,54,32,46,32,97,114,103,115,41,0};
static C_char li1084[] C_aligned={C_lihdr(0,0,8),40,97,51,54,56,54,51,41};
static C_char li1085[] C_aligned={C_lihdr(0,0,10),40,97,51,54,56,52,53,32,107,41,0,0,0,0,0,0};
static C_char li1086[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,56,52,54,48,32,105,41,0,0};
static C_char li1087[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,114,117,110,45,112,101,110,100,105,110,103,45,102,105,110,97,108,105,122,101,114,115,32,115,116,97,116,101,41,0,0,0,0};
static C_char li1088[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
static C_char li1089[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,102,111,114,99,101,45,102,105,110,97,108,105,122,101,114,115,41};
static C_char li1090[] C_aligned={C_lihdr(0,0,21),40,99,104,105,99,107,101,110,46,103,99,35,103,99,32,46,32,97,114,103,41,0,0,0};
static C_char li1091[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,109,97,107,101,45,108,111,99,97,116,105,118,101,32,111,98,106,32,105,110,100,101,120,32,119,101,97,107,63,32,108,111,99,41,0,0,0,0,0,0,0};
static C_char li1092[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,105,115,116,35,112,117,116,33,32,115,121,109,32,112,114,111,112,32,118,97,108,41,0,0,0,0,0,0,0};
static C_char li1093[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,112,108,105,115,116,35,103,101,116,32,115,121,109,32,112,114,111,112,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li1094[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,112,116,108,41,0,0,0,0,0,0};
static C_char li1095[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,105,115,116,35,114,101,109,112,114,111,112,33,32,115,121,109,32,112,114,111,112,41,0,0,0,0,0,0,0};
static C_char li1096[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,108,105,115,116,41,0,0,0,0};
static C_char li1097[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,108,105,115,116,35,103,101,116,45,112,114,111,112,101,114,116,105,101,115,32,115,121,109,32,112,114,111,112,115,41};
static C_char li1098[] C_aligned={C_lihdr(0,0,10),40,112,110,117,109,32,110,117,109,41,0,0,0,0,0,0};
static C_char li1099[] C_aligned={C_lihdr(0,0,14),40,114,111,117,110,100,45,116,111,32,120,32,121,41,0,0};
static C_char li1100[] C_aligned={C_lihdr(0,0,12),40,112,109,101,109,32,98,121,116,101,115,41,0,0,0,0};
static C_char li1101[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,100,105,115,112,108,97,121,45,116,105,109,101,115,32,105,110,102,111,41,0,0,0,0,0,0};
static C_char li1102[] C_aligned={C_lihdr(0,0,17),67,95,100,117,109,112,95,104,101,97,112,95,115,116,97,116,101,0,0,0,0,0,0,0};
static C_char li1103[] C_aligned={C_lihdr(0,0,21),67,95,102,105,108,116,101,114,95,104,101,97,112,95,111,98,106,101,99,116,115,0,0,0};
static C_char li1104[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,115,111,102,116,119,97,114,101,45,116,121,112,101,41};
static C_char li1105[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,109,97,99,104,105,110,101,45,116,121,112,101,41,0};
static C_char li1106[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,109,97,99,104,105,110,101,45,98,121,116,101,45,111,114,100,101,114,41,0,0,0};
static C_char li1107[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,115,111,102,116,119,97,114,101,45,118,101,114,115,105,111,110,41,0,0,0,0,0};
static C_char li1108[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,98,117,105,108,100,45,112,108,97,116,102,111,114,109,41,0,0,0,0,0,0,0};
static C_char li1109[] C_aligned={C_lihdr(0,0,7),40,115,116,114,32,120,41,0};
static C_char li1110[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,99,104,105,99,107,101,110,45,118,101,114,115,105,111,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
static C_char li1111[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,99,104,105,99,107,101,110,45,104,111,109,101,41,0};
static C_char li1112[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,105,110,99,108,117,100,101,45,112,97,116,104,32,46,32,114,101,115,116,41,0,0};
static C_char li1113[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,115,116,97,114,116,32,112,111,115,41};
static C_char li1114[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,115,112,108,105,116,45,112,97,116,104,32,112,97,116,104,41,0};
static C_char li1115[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,99,104,111,112,45,115,101,112,97,114,97,116,111,114,32,115,116,114,41,0,0,0};
static C_char li1116[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,105,110,99,108,117,100,101,45,112,97,116,104,41,0};
static C_char li1117[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,45,62,102,101,97,116,117,114,101,45,105,100,32,120,41,0,0,0,0,0,0,0};
static C_char li1118[] C_aligned={C_lihdr(0,0,9),40,99,104,101,99,107,32,102,41,0,0,0,0,0,0,0};
static C_char li1119[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,56,57,51,51,32,103,56,57,52,48,41,0,0,0,0,0,0,0};
static C_char li1120[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,114,101,103,105,115,116,101,114,45,102,101,97,116,117,114,101,33,32,46,32,102,115,41,0,0,0,0,0,0,0};
static C_char li1121[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,102,102,115,41,0,0,0,0,0,0};
static C_char li1122[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,56,57,53,54,32,103,56,57,54,56,41,0,0,0,0};
static C_char li1123[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,117,110,114,101,103,105,115,116,101,114,45,102,101,97,116,117,114,101,33,32,46,32,102,115,41,0,0,0,0,0};
static C_char li1124[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,105,100,115,41,0,0,0,0,0,0};
static C_char li1125[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,102,101,97,116,117,114,101,63,32,46,32,105,100,115,41,0,0,0,0,0,0,0};
static C_char li1126[] C_aligned={C_lihdr(0,0,16),67,95,114,101,116,117,114,110,95,116,111,95,104,111,115,116};
static C_char li1127[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,115,121,115,116,101,109,45,99,111,110,102,105,103,45,100,105,114,101,99,116,111,114,121,41,0,0,0,0,0,0};
static C_char li1128[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,115,121,115,116,101,109,45,99,97,99,104,101,45,100,105,114,101,99,116,111,114,121,41,0,0,0,0,0,0,0};
static C_char li1129[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,48,52,56,32,103,57,48,54,48,41,0,0,0,0};
static C_char li1130[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,102,101,97,116,117,114,101,115,41,0,0,0,0,0,0,0};
static C_char li1131[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,57,48,56,52,32,105,32,114,101,115,117,108,116,41,0,0,0};
static C_char li1132[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,109,97,107,101,45,108,105,115,116,32,110,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li1133[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,57,48,57,52,32,105,32,108,41};
static C_char li1134[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,108,105,115,116,45,115,101,116,33,32,108,32,110,32,111,98,106,41,0,0,0,0,0,0};
static C_char li1135[] C_aligned={C_lihdr(0,0,12),40,108,112,32,114,101,115,32,108,115,116,41,0,0,0,0};
static C_char li1136[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,108,105,115,116,45,99,111,112,121,32,108,115,116,41,0,0};
static C_char li1137[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,57,49,51,51,32,102,105,41,0};
static C_char li1138[] C_aligned={C_lihdr(0,0,18),40,115,45,62,118,32,115,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0,0,0};
static C_char li1139[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,62,118,101,99,116,111,114,32,115,32,46,32,114,101,115,116,41};
static C_char li1140[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,105,32,112,41,0,0,0,0,0,0};
static C_char li1141[] C_aligned={C_lihdr(0,0,18),40,118,45,62,115,32,118,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0,0,0};
static C_char li1142[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,62,115,116,114,105,110,103,32,118,32,46,32,114,101,115,116,41};
static C_char li1143[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,105,32,106,41,0,0,0,0,0,0};
static C_char li1144[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,49,57,54,41,0,0,0,0,0};
static C_char li1145[] C_aligned={C_lihdr(0,0,17),40,102,111,108,100,108,57,50,50,54,32,103,57,50,50,53,41,0,0,0,0,0,0,0};
static C_char li1146[] C_aligned={C_lihdr(0,0,7),40,103,57,50,55,52,41,0};
static C_char li1147[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,50,54,56,32,103,57,50,56,48,41,0,0,0,0};
static C_char li1148[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,57,50,54,51,32,105,41,0,0};
static C_char li1149[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,50,51,51,32,103,57,50,52,53,41,0,0,0,0};
static C_char li1150[] C_aligned={C_lihdr(0,0,35),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,109,97,112,32,112,114,111,99,32,115,116,114,32,46,32,109,111,114,101,41,0,0,0,0,0};
static C_char li1151[] C_aligned={C_lihdr(0,0,6),40,108,112,32,105,41,0,0};
static C_char li1152[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,51,49,57,41,0,0,0,0,0};
static C_char li1153[] C_aligned={C_lihdr(0,0,17),40,102,111,108,100,108,57,51,52,57,32,103,57,51,52,56,41,0,0,0,0,0,0,0};
static C_char li1154[] C_aligned={C_lihdr(0,0,7),40,103,57,51,57,55,41,0};
static C_char li1155[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,51,57,49,32,103,57,52,48,51,41,0,0,0,0};
static C_char li1156[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,57,51,56,54,32,105,41,0,0};
static C_char li1157[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,51,53,54,32,103,57,51,54,56,41,0,0,0,0};
static C_char li1158[] C_aligned={C_lihdr(0,0,40),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,102,111,114,45,101,97,99,104,32,112,114,111,99,32,115,116,114,32,46,32,109,111,114,101,41};
static C_char li1159[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,57,52,51,55,32,105,41,0,0};
static C_char li1160[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,52,52,55,41,0,0,0,0,0};
static C_char li1161[] C_aligned={C_lihdr(0,0,17),40,102,111,108,100,108,57,52,55,55,32,103,57,52,55,54,41,0,0,0,0,0,0,0};
static C_char li1162[] C_aligned={C_lihdr(0,0,7),40,103,57,53,50,53,41,0};
static C_char li1163[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,53,49,57,32,103,57,53,51,49,41,0,0,0,0};
static C_char li1164[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,57,53,49,52,32,105,41,0,0};
static C_char li1165[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,52,56,52,32,103,57,52,57,54,41,0,0,0,0};
static C_char li1166[] C_aligned={C_lihdr(0,0,33),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,109,97,112,32,112,114,111,99,32,118,32,46,32,109,111,114,101,41,0,0,0,0,0,0,0};
static C_char li1167[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,57,53,54,51,32,105,41,0,0};
static C_char li1168[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,53,55,51,41,0,0,0,0,0};
static C_char li1169[] C_aligned={C_lihdr(0,0,17),40,102,111,108,100,108,57,54,48,51,32,103,57,54,48,50,41,0,0,0,0,0,0,0};
static C_char li1170[] C_aligned={C_lihdr(0,0,7),40,103,57,54,53,49,41,0};
static C_char li1171[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,54,52,53,32,103,57,54,53,55,41,0,0,0,0};
static C_char li1172[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,57,54,52,48,32,105,41,0,0};
static C_char li1173[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,54,49,48,32,103,57,54,50,50,41,0,0,0,0};
static C_char li1174[] C_aligned={C_lihdr(0,0,38),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,102,111,114,45,101,97,99,104,32,112,114,111,99,32,118,32,46,32,109,111,114,101,41,0,0};
static C_char li1175[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,99,108,111,115,101,45,112,111,114,116,32,112,111,114,116,41};
static C_char li1176[] C_aligned={C_lihdr(0,0,8),40,97,51,57,54,56,57,41};
static C_char li1177[] C_aligned={C_lihdr(0,0,14),40,97,51,57,54,57,53,32,46,32,114,101,116,41,0,0};
static C_char li1178[] C_aligned={C_lihdr(0,0,33),40,115,99,104,101,109,101,35,99,97,108,108,45,119,105,116,104,45,112,111,114,116,32,112,111,114,116,32,112,114,111,99,41,0,0,0,0,0,0,0};
static C_char li1179[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,101,111,102,45,111,98,106,101,99,116,41,0,0,0,0,0};
static C_char li1180[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,112,101,101,107,45,117,56,32,46,32,114,101,115,116,41,0};
static C_char li1181[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,119,114,105,116,101,45,115,116,114,105,110,103,32,115,32,46,32,114,101,115,116,41,0,0};
static C_char li1182[] C_aligned={C_lihdr(0,0,19),40,100,111,108,111,111,112,57,55,54,54,32,120,32,105,32,120,115,41,0,0,0,0,0};
static C_char li1183[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,108,105,115,116,32,46,32,114,101,115,116,41,0,0,0};
static C_char li1184[] C_aligned={C_lihdr(0,0,10),40,103,57,55,57,48,32,114,108,41,0,0,0,0,0,0};
static C_char li1185[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
static C_char li1186[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,108,105,110,101,32,46,32,97,114,103,115,41,0,0,0};
static C_char li1187[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,110,115,32,110,41,0,0,0,0};
static C_char li1188[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,108,105,110,101,115,32,46,32,114,101,115,116,41,0,0};
static C_char li1189[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,105,111,35,119,114,105,116,101,45,108,105,110,101,32,115,116,114,32,46,32,112,111,114,116,41,0,0,0,0,0,0};
static C_char li1190[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,115,116,97,114,116,32,110,32,109,41};
static C_char li1191[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,98,121,116,101,118,101,99,116,111,114,33,47,112,111,114,116,32,110,32,100,101,115,116,32,112,111,114,116,32,115,116,97,114,116,41,0,0,0,0};
static C_char li1192[] C_aligned={C_lihdr(0,0,23),40,97,52,48,51,52,52,32,100,98,117,102,32,115,116,97,114,116,32,108,101,110,41,0};
static C_char li1193[] C_aligned={C_lihdr(0,0,20),40,114,101,97,100,98,32,110,32,98,117,102,32,112,111,114,116,32,112,41,0,0,0,0};
static C_char li1194[] C_aligned={C_lihdr(0,0,14),40,102,105,110,105,115,104,32,98,121,116,101,115,41,0,0};
static C_char li1195[] C_aligned={C_lihdr(0,0,15),40,114,101,99,111,117,110,116,32,98,121,116,101,115,41,0};
static C_char li1196[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,112,32,110,32,117,110,32,98,110,41};
static C_char li1197[] C_aligned={C_lihdr(0,0,20),40,97,52,48,51,50,54,32,100,101,99,111,100,101,114,32,95,32,95,41,0,0,0,0};
static C_char li1198[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,115,116,114,105,110,103,33,47,112,111,114,116,32,110,32,100,101,115,116,32,112,111,114,116,32,115,116,97,114,116,41};
static C_char li1199[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,115,116,114,105,110,103,33,32,110,32,100,101,115,116,32,46,32,114,101,115,116,41,0};
static C_char li1200[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,98,121,116,101,118,101,99,116,111,114,33,32,100,101,115,116,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
static C_char li1201[] C_aligned={C_lihdr(0,0,16),40,97,52,48,54,54,56,32,98,117,102,32,108,101,110,41};
static C_char li1202[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,115,116,114,105,110,103,47,112,111,114,116,32,110,32,112,41,0,0,0,0,0,0,0};
static C_char li1203[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,98,117,102,32,98,115,105,122,101,32,112,111,115,41,0,0,0,0};
static C_char li1204[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,114,101,97,100,45,114,101,109,97,105,110,105,110,103,32,112,32,107,41,0,0,0,0,0,0};
static C_char li1205[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,98,121,116,101,118,101,99,116,111,114,47,112,111,114,116,32,110,32,112,41,0,0,0};
static C_char li1206[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,115,116,114,105,110,103,32,46,32,114,101,115,116,41,0};
static C_char li1207[] C_aligned={C_lihdr(0,0,16),40,97,52,48,56,52,48,32,98,117,102,32,108,101,110,41};
static C_char li1208[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,98,121,116,101,118,101,99,116,111,114,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li1209[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,98,117,102,102,101,114,101,100,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
static C_char li1210[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
static C_char li1211[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,116,111,107,101,110,32,112,114,101,100,32,46,32,112,111,114,116,41,0,0,0,0,0};
static C_char li1212[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,98,121,116,101,32,46,32,114,101,115,116,41,0,0,0};
static C_char li1213[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,111,35,119,114,105,116,101,45,98,121,116,101,32,98,121,116,101,32,46,32,114,101,115,116,41,0,0,0,0,0};
static C_char li1214[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,111,35,119,114,105,116,101,45,98,121,116,101,118,101,99,116,111,114,32,98,118,32,46,32,114,101,115,116,41,0};
static C_char li1215[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,56,56,55,51,32,103,56,56,56,53,41,0,0,0,0};
static C_char li1216[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,56,56,51,49,41,0,0,0,0,0};
static C_char li1217[] C_aligned={C_lihdr(0,0,12),40,97,52,49,50,56,49,32,110,101,119,41,0,0,0,0};
static C_char li1218[] C_aligned={C_lihdr(0,0,16),67,95,98,117,105,108,100,95,112,108,97,116,102,111,114,109};
static C_char li1219[] C_aligned={C_lihdr(0,0,18),67,95,115,111,102,116,119,97,114,101,95,118,101,114,115,105,111,110,0,0,0,0,0,0};
static C_char li1220[] C_aligned={C_lihdr(0,0,20),67,95,109,97,99,104,105,110,101,95,98,121,116,101,95,111,114,100,101,114,0,0,0,0};
static C_char li1221[] C_aligned={C_lihdr(0,0,14),67,95,109,97,99,104,105,110,101,95,116,121,112,101,0,0};
static C_char li1222[] C_aligned={C_lihdr(0,0,15),67,95,115,111,102,116,119,97,114,101,95,116,121,112,101,0};
static C_char li1223[] C_aligned={C_lihdr(0,0,12),40,97,52,49,51,56,48,32,115,121,109,41,0,0,0,0};
static C_char li1224[] C_aligned={C_lihdr(0,0,16),40,97,52,49,51,56,57,32,115,121,109,32,108,115,116,41};
static C_char li1225[] C_aligned={C_lihdr(0,0,10),40,97,52,49,52,50,57,32,120,41,0,0,0,0,0,0};
static C_char li1226[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,97,114,103,115,41,0,0,0,0,0};
static C_char li1227[] C_aligned={C_lihdr(0,0,19),40,102,52,57,54,57,54,32,120,56,51,50,48,52,57,54,57,53,41,0,0,0,0,0};
static C_char li1228[] C_aligned={C_lihdr(0,0,19),40,102,52,57,55,48,50,32,120,56,51,48,54,52,57,55,48,49,41,0,0,0,0,0};
static C_char li1229[] C_aligned={C_lihdr(0,0,19),40,102,52,57,55,48,56,32,120,56,51,48,54,52,57,55,48,55,41,0,0,0,0,0};
static C_char li1230[] C_aligned={C_lihdr(0,0,8),40,97,52,49,53,49,48,41};
static C_char li1231[] C_aligned={C_lihdr(0,0,12),40,97,52,49,53,51,53,32,100,105,114,41,0,0,0,0};
static C_char li1232[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,50,54,50,32,103,55,50,54,57,41,0,0,0,0,0,0,0};
static C_char li1233[] C_aligned={C_lihdr(0,0,8),40,97,52,49,53,55,55,41};
static C_char li1234[] C_aligned={C_lihdr(0,0,9),40,103,55,50,56,56,32,120,41,0,0,0,0,0,0,0};
static C_char li1235[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,50,56,55,32,103,55,50,57,52,41,0,0,0,0,0,0,0};
static C_char li1236[] C_aligned={C_lihdr(0,0,15),40,97,52,49,54,56,57,32,46,32,97,114,103,115,41,0};
static C_char li1237[] C_aligned={C_lihdr(0,0,19),40,97,52,49,53,53,48,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0,0};
static C_char li1238[] C_aligned={C_lihdr(0,0,8),40,97,52,49,54,57,50,41};
static C_char li1239[] C_aligned={C_lihdr(0,0,8),40,97,52,49,55,48,49,41};
static C_char li1240[] C_aligned={C_lihdr(0,0,15),40,97,52,49,55,48,55,32,46,32,114,101,115,116,41,0};
static C_char li1241[] C_aligned={C_lihdr(0,0,10),40,97,52,49,57,54,54,32,120,41,0,0,0,0,0,0};
static C_char li1242[] C_aligned={C_lihdr(0,0,14),40,97,52,49,57,55,53,32,120,32,105,32,121,41,0,0};
static C_char li1243[] C_aligned={C_lihdr(0,0,12),40,97,52,49,57,56,53,32,120,32,121,41,0,0,0,0};
static C_char li1244[] C_aligned={C_lihdr(0,0,12),40,97,52,49,57,57,53,32,120,32,121,41,0,0,0,0};
static C_char li1245[] C_aligned={C_lihdr(0,0,12),40,97,52,50,48,48,53,32,120,32,121,41,0,0,0,0};
static C_char li1246[] C_aligned={C_lihdr(0,0,12),40,97,52,50,48,49,53,32,120,32,121,41,0,0,0,0};
static C_char li1247[] C_aligned={C_lihdr(0,0,12),40,97,52,50,48,50,53,32,120,32,121,41,0,0,0,0};
static C_char li1248[] C_aligned={C_lihdr(0,0,12),40,97,52,50,48,51,53,32,120,32,121,41,0,0,0,0};
static C_char li1249[] C_aligned={C_lihdr(0,0,12),40,97,52,50,48,52,53,32,120,32,121,41,0,0,0,0};
static C_char li1250[] C_aligned={C_lihdr(0,0,12),40,97,52,50,48,53,53,32,120,32,121,41,0,0,0,0};
static C_char li1251[] C_aligned={C_lihdr(0,0,12),40,97,52,50,48,54,53,32,120,32,121,41,0,0,0,0};
static C_char li1252[] C_aligned={C_lihdr(0,0,12),40,97,52,50,48,55,53,32,120,32,121,41,0,0,0,0};
static C_char li1253[] C_aligned={C_lihdr(0,0,12),40,97,52,50,48,56,53,32,120,32,121,41,0,0,0,0};
static C_char li1254[] C_aligned={C_lihdr(0,0,12),40,97,52,50,48,57,53,32,120,32,121,41,0,0,0,0};
static C_char li1255[] C_aligned={C_lihdr(0,0,10),40,97,52,50,49,50,57,32,120,41,0,0,0,0,0,0};
static C_char li1256[] C_aligned={C_lihdr(0,0,13),40,97,52,50,49,48,53,32,112,114,111,99,41,0,0,0};
static C_char li1257[] C_aligned={C_lihdr(0,0,10),40,97,52,50,49,52,53,32,120,41,0,0,0,0,0,0};
static C_char li1258[] C_aligned={C_lihdr(0,0,10),40,97,52,50,50,48,48,32,120,41,0,0,0,0,0,0};
static C_char li1259[] C_aligned={C_lihdr(0,0,15),40,97,52,50,50,49,54,32,112,114,111,99,32,105,41,0};
static C_char li1260[] C_aligned={C_lihdr(0,0,16),40,97,52,50,49,55,49,32,103,101,116,32,115,101,116,41};
static C_char li1261[] C_aligned={C_lihdr(0,0,15),40,97,52,50,49,54,49,32,112,114,111,99,32,105,41,0};
static C_char li1262[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};


#define return(x) C_cblock C_r = (C_mpointer(&C_a,(void*)(x))); goto C_ret; C_cblockend
C_regparm static C_word stub8295(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
C_word i=(C_word )(C_a0);
C_return(C_main_argv[C_unfix(i)]);
C_ret:
#undef return

return C_r;}

/* from chicken.process-context#executable-pathname in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
C_regparm static C_word stub8287(C_word C_buf){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
C_r=C_mpointer(&C_a,(void*)C_executable_pathname());
return C_r;}

/* from k36358 */
C_regparm static C_word stub8263(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int t0=(int )C_unfix(C_a0);
C_r=C_mpointer(&C_a,(void*)C_getenventry(t0));
return C_r;}

/* from chicken.process-context#_getenv */
C_regparm static C_word stub8255(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
C_word t0=(C_word )(C_a0);
C_r=C_mpointer(&C_a,(void*)C_getenv(t0));
return C_r;}

/* from k35344 */
C_regparm static C_word stub7930(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * t0=(void * )C_c_pointer_or_null(C_a0);
C_free(t0);
return C_r;}

/* from k35335 */
C_regparm static C_word stub7922(C_word C_buf,C_word C_a0,C_word C_a1){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * t0=(void * )C_c_pointer_or_null(C_a0);
int t1=(int )C_unfix(C_a1);
C_r=C_mpointer(&C_a,(void*)C_peek_c_string_at(t0,t1));
return C_r;}

/* from k35283 */
C_regparm static C_word stub7903(C_word C_buf,C_word C_a0,C_word C_a1){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * t0=(void * )C_c_pointer_or_null(C_a0);
int t1=(int )C_unfix(C_a1);
C_r=C_mpointer(&C_a,(void*)C_peek_c_string_at(t0,t1));
return C_r;}

#define return(x) C_cblock C_r = (C_mpointer(&C_a,(void*)(x))); goto C_ret; C_cblockend
C_regparm static C_word stub7008(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
C_word x=(C_word )(C_a0);
C_return((C_char *)x);
C_ret:
#undef return

return C_r;}

/* from k20588 */
C_regparm static C_word stub3562(C_word C_buf,C_word C_a0,C_word C_a1){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
double t0=(double )C_c_double(C_a0);
int t1=(int )C_unfix(C_a1);
C_r=C_flonum(&C_a,ldexp(t0,t1));
return C_r;}

C_noret_decl(f45783)
static void C_ccall f45783(C_word c,C_word *av) C_noret;
C_noret_decl(f45980)
static void C_ccall f45980(C_word c,C_word *av) C_noret;
C_noret_decl(f45984)
static void C_ccall f45984(C_word c,C_word *av) C_noret;
C_noret_decl(f46116)
static void C_ccall f46116(C_word c,C_word *av) C_noret;
C_noret_decl(f46121)
static void C_ccall f46121(C_word c,C_word *av) C_noret;
C_noret_decl(f46128)
static void C_ccall f46128(C_word c,C_word *av) C_noret;
C_noret_decl(f46137)
static void C_ccall f46137(C_word c,C_word *av) C_noret;
C_noret_decl(f46146)
static void C_ccall f46146(C_word c,C_word *av) C_noret;
C_noret_decl(f49696)
static void C_ccall f49696(C_word c,C_word *av) C_noret;
C_noret_decl(f49702)
static void C_ccall f49702(C_word c,C_word *av) C_noret;
C_noret_decl(f49708)
static void C_ccall f49708(C_word c,C_word *av) C_noret;
C_noret_decl(f_11645)
static void C_ccall f_11645(C_word c,C_word *av) C_noret;
C_noret_decl(f_11647)
static void C_ccall f_11647(C_word c,C_word *av) C_noret;
C_noret_decl(f_11650)
static void C_ccall f_11650(C_word c,C_word *av) C_noret;
C_noret_decl(f_11653)
static void C_ccall f_11653(C_word c,C_word *av) C_noret;
C_noret_decl(f_11656)
static void C_ccall f_11656(C_word c,C_word *av) C_noret;
C_noret_decl(f_11659)
static void C_ccall f_11659(C_word c,C_word *av) C_noret;
C_noret_decl(f_11662)
static void C_ccall f_11662(C_word c,C_word *av) C_noret;
C_noret_decl(f_11678)
static C_word f_11678(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_11707)
static void C_ccall f_11707(C_word c,C_word *av) C_noret;
C_noret_decl(f_11723)
static C_word f_11723(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_11752)
static void C_ccall f_11752(C_word c,C_word *av) C_noret;
C_noret_decl(f_11755)
static void C_ccall f_11755(C_word c,C_word *av) C_noret;
C_noret_decl(f_11758)
static void C_ccall f_11758(C_word c,C_word *av) C_noret;
C_noret_decl(f_11761)
static void C_ccall f_11761(C_word c,C_word *av) C_noret;
C_noret_decl(f_11764)
static void C_ccall f_11764(C_word c,C_word *av) C_noret;
C_noret_decl(f_11767)
static void C_ccall f_11767(C_word c,C_word *av) C_noret;
C_noret_decl(f_11770)
static void C_ccall f_11770(C_word c,C_word *av) C_noret;
C_noret_decl(f_11773)
static void C_ccall f_11773(C_word c,C_word *av) C_noret;
C_noret_decl(f_11776)
static void C_ccall f_11776(C_word c,C_word *av) C_noret;
C_noret_decl(f_11779)
static void C_ccall f_11779(C_word c,C_word *av) C_noret;
C_noret_decl(f_11782)
static void C_ccall f_11782(C_word c,C_word *av) C_noret;
C_noret_decl(f_11785)
static void C_ccall f_11785(C_word c,C_word *av) C_noret;
C_noret_decl(f_11788)
static void C_ccall f_11788(C_word c,C_word *av) C_noret;
C_noret_decl(f_11791)
static void C_ccall f_11791(C_word c,C_word *av) C_noret;
C_noret_decl(f_11805)
static void C_ccall f_11805(C_word c,C_word *av) C_noret;
C_noret_decl(f_11812)
static void C_ccall f_11812(C_word c,C_word *av) C_noret;
C_noret_decl(f_11819)
static void C_ccall f_11819(C_word c,C_word *av) C_noret;
C_noret_decl(f_11833)
static void C_ccall f_11833(C_word c,C_word *av) C_noret;
C_noret_decl(f_11840)
static void C_ccall f_11840(C_word c,C_word *av) C_noret;
C_noret_decl(f_11854)
static void C_ccall f_11854(C_word c,C_word *av) C_noret;
C_noret_decl(f_11868)
static void C_ccall f_11868(C_word c,C_word *av) C_noret;
C_noret_decl(f_11886)
static void C_ccall f_11886(C_word c,C_word *av) C_noret;
C_noret_decl(f_11897)
static void C_ccall f_11897(C_word c,C_word *av) C_noret;
C_noret_decl(f_11908)
static void C_ccall f_11908(C_word c,C_word *av) C_noret;
C_noret_decl(f_11915)
static void C_ccall f_11915(C_word c,C_word *av) C_noret;
C_noret_decl(f_11926)
static void C_ccall f_11926(C_word c,C_word *av) C_noret;
C_noret_decl(f_11930)
static void C_ccall f_11930(C_word c,C_word *av) C_noret;
C_noret_decl(f_11937)
static void C_ccall f_11937(C_word c,C_word *av) C_noret;
C_noret_decl(f_11955)
static void C_ccall f_11955(C_word c,C_word *av) C_noret;
C_noret_decl(f_11966)
static void C_ccall f_11966(C_word c,C_word *av) C_noret;
C_noret_decl(f_11977)
static void C_ccall f_11977(C_word c,C_word *av) C_noret;
C_noret_decl(f_11984)
static void C_ccall f_11984(C_word c,C_word *av) C_noret;
C_noret_decl(f_12002)
static void C_ccall f_12002(C_word c,C_word *av) C_noret;
C_noret_decl(f_12013)
static void C_ccall f_12013(C_word c,C_word *av) C_noret;
C_noret_decl(f_12031)
static void C_ccall f_12031(C_word c,C_word *av) C_noret;
C_noret_decl(f_12037)
static void C_ccall f_12037(C_word c,C_word *av) C_noret;
C_noret_decl(f_12040)
static void C_ccall f_12040(C_word c,C_word *av) C_noret;
C_noret_decl(f_12043)
static void C_ccall f_12043(C_word c,C_word *av) C_noret;
C_noret_decl(f_12046)
static void C_ccall f_12046(C_word c,C_word *av) C_noret;
C_noret_decl(f_12049)
static void C_ccall f_12049(C_word c,C_word *av) C_noret;
C_noret_decl(f_12055)
static void f_12055(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12088)
static void C_ccall f_12088(C_word c,C_word *av) C_noret;
C_noret_decl(f_12091)
static void C_ccall f_12091(C_word c,C_word *av) C_noret;
C_noret_decl(f_12094)
static void C_ccall f_12094(C_word c,C_word *av) C_noret;
C_noret_decl(f_12106)
static void f_12106(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12119)
static void C_ccall f_12119(C_word c,C_word *av) C_noret;
C_noret_decl(f_12138)
static void C_ccall f_12138(C_word c,C_word *av) C_noret;
C_noret_decl(f_12141)
static void C_ccall f_12141(C_word c,C_word *av) C_noret;
C_noret_decl(f_12144)
static void C_ccall f_12144(C_word c,C_word *av) C_noret;
C_noret_decl(f_12156)
static void f_12156(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12169)
static void C_ccall f_12169(C_word c,C_word *av) C_noret;
C_noret_decl(f_12193)
static void C_ccall f_12193(C_word c,C_word *av) C_noret;
C_noret_decl(f_12196)
static void C_ccall f_12196(C_word c,C_word *av) C_noret;
C_noret_decl(f_12199)
static void C_ccall f_12199(C_word c,C_word *av) C_noret;
C_noret_decl(f_12202)
static void C_ccall f_12202(C_word c,C_word *av) C_noret;
C_noret_decl(f_12205)
static void C_ccall f_12205(C_word c,C_word *av) C_noret;
C_noret_decl(f_12208)
static void C_ccall f_12208(C_word c,C_word *av) C_noret;
C_noret_decl(f_12215)
static C_word f_12215(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_12241)
static void C_ccall f_12241(C_word c,C_word *av) C_noret;
C_noret_decl(f_12248)
static C_word f_12248(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_12292)
static void C_ccall f_12292(C_word c,C_word *av) C_noret;
C_noret_decl(f_12295)
static void C_ccall f_12295(C_word c,C_word *av) C_noret;
C_noret_decl(f_12301)
static void C_ccall f_12301(C_word c,C_word *av) C_noret;
C_noret_decl(f_12304)
static void C_ccall f_12304(C_word c,C_word *av) C_noret;
C_noret_decl(f_12307)
static void C_ccall f_12307(C_word c,C_word *av) C_noret;
C_noret_decl(f_12310)
static void C_ccall f_12310(C_word c,C_word *av) C_noret;
C_noret_decl(f_12313)
static void C_ccall f_12313(C_word c,C_word *av) C_noret;
C_noret_decl(f_12321)
static void C_ccall f_12321(C_word c,C_word *av) C_noret;
C_noret_decl(f_12325)
static void C_ccall f_12325(C_word c,C_word *av) C_noret;
C_noret_decl(f_12328)
static void C_ccall f_12328(C_word c,C_word *av) C_noret;
C_noret_decl(f_12331)
static void C_ccall f_12331(C_word c,C_word *av) C_noret;
C_noret_decl(f_12334)
static void C_ccall f_12334(C_word c,C_word *av) C_noret;
C_noret_decl(f_12337)
static void C_ccall f_12337(C_word c,C_word *av) C_noret;
C_noret_decl(f_12340)
static void C_ccall f_12340(C_word c,C_word *av) C_noret;
C_noret_decl(f_12343)
static void C_ccall f_12343(C_word c,C_word *av) C_noret;
C_noret_decl(f_12346)
static void C_ccall f_12346(C_word c,C_word *av) C_noret;
C_noret_decl(f_12349)
static void C_ccall f_12349(C_word c,C_word *av) C_noret;
C_noret_decl(f_12353)
static void C_ccall f_12353(C_word c,C_word *av) C_noret;
C_noret_decl(f_12356)
static void C_ccall f_12356(C_word c,C_word *av) C_noret;
C_noret_decl(f_12359)
static void C_ccall f_12359(C_word c,C_word *av) C_noret;
C_noret_decl(f_12362)
static void C_ccall f_12362(C_word c,C_word *av) C_noret;
C_noret_decl(f_12365)
static void C_ccall f_12365(C_word c,C_word *av) C_noret;
C_noret_decl(f_12373)
static void C_ccall f_12373(C_word c,C_word *av) C_noret;
C_noret_decl(f_12376)
static void C_ccall f_12376(C_word c,C_word *av) C_noret;
C_noret_decl(f_12383)
static void C_ccall f_12383(C_word c,C_word *av) C_noret;
C_noret_decl(f_12395)
static void C_ccall f_12395(C_word c,C_word *av) C_noret;
C_noret_decl(f_12402)
static void C_ccall f_12402(C_word c,C_word *av) C_noret;
C_noret_decl(f_12410)
static void C_ccall f_12410(C_word c,C_word *av) C_noret;
C_noret_decl(f_12423)
static C_word f_12423(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_12449)
static void C_ccall f_12449(C_word c,C_word *av) C_noret;
C_noret_decl(f_12462)
static C_word f_12462(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_12488)
static void C_ccall f_12488(C_word c,C_word *av) C_noret;
C_noret_decl(f_12501)
static C_word f_12501(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_12527)
static void C_ccall f_12527(C_word c,C_word *av) C_noret;
C_noret_decl(f_12540)
static C_word f_12540(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_12566)
static void C_ccall f_12566(C_word c,C_word *av) C_noret;
C_noret_decl(f_12579)
static C_word f_12579(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_12605)
static void C_ccall f_12605(C_word c,C_word *av) C_noret;
C_noret_decl(f_12611)
static void C_ccall f_12611(C_word c,C_word *av) C_noret;
C_noret_decl(f_12622)
static void C_ccall f_12622(C_word c,C_word *av) C_noret;
C_noret_decl(f_12628)
static void C_ccall f_12628(C_word c,C_word *av) C_noret;
C_noret_decl(f_12634)
static void C_ccall f_12634(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_12646)
static void C_ccall f_12646(C_word c,C_word *av) C_noret;
C_noret_decl(f_12652)
static void C_ccall f_12652(C_word c,C_word *av) C_noret;
C_noret_decl(f_12668)
static void C_ccall f_12668(C_word c,C_word *av) C_noret;
C_noret_decl(f_12674)
static void C_ccall f_12674(C_word c,C_word *av) C_noret;
C_noret_decl(f_12688)
static void C_ccall f_12688(C_word c,C_word *av) C_noret;
C_noret_decl(f_12694)
static void C_ccall f_12694(C_word c,C_word *av) C_noret;
C_noret_decl(f_12708)
static void C_ccall f_12708(C_word c,C_word *av) C_noret;
C_noret_decl(f_12714)
static void C_ccall f_12714(C_word c,C_word *av) C_noret;
C_noret_decl(f_12728)
static void C_ccall f_12728(C_word c,C_word *av) C_noret;
C_noret_decl(f_12734)
static void C_ccall f_12734(C_word c,C_word *av) C_noret;
C_noret_decl(f_12742)
static void C_ccall f_12742(C_word c,C_word *av) C_noret;
C_noret_decl(f_12748)
static void C_ccall f_12748(C_word c,C_word *av) C_noret;
C_noret_decl(f_12754)
static void C_ccall f_12754(C_word c,C_word *av) C_noret;
C_noret_decl(f_12761)
static void C_ccall f_12761(C_word c,C_word *av) C_noret;
C_noret_decl(f_12770)
static void C_ccall f_12770(C_word c,C_word *av) C_noret;
C_noret_decl(f_12777)
static void C_ccall f_12777(C_word c,C_word *av) C_noret;
C_noret_decl(f_12786)
static void C_ccall f_12786(C_word c,C_word *av) C_noret;
C_noret_decl(f_12792)
static void C_ccall f_12792(C_word c,C_word *av) C_noret;
C_noret_decl(f_12797)
static void C_ccall f_12797(C_word c,C_word *av) C_noret;
C_noret_decl(f_12812)
static void C_ccall f_12812(C_word c,C_word *av) C_noret;
C_noret_decl(f_12824)
static void C_ccall f_12824(C_word c,C_word *av) C_noret;
C_noret_decl(f_12830)
static void C_ccall f_12830(C_word c,C_word *av) C_noret;
C_noret_decl(f_12836)
static void C_ccall f_12836(C_word c,C_word *av) C_noret;
C_noret_decl(f_12842)
static void C_ccall f_12842(C_word c,C_word *av) C_noret;
C_noret_decl(f_12848)
static void C_ccall f_12848(C_word c,C_word *av) C_noret;
C_noret_decl(f_12858)
static void C_ccall f_12858(C_word c,C_word *av) C_noret;
C_noret_decl(f_12860)
static void C_ccall f_12860(C_word c,C_word *av) C_noret;
C_noret_decl(f_12863)
static void C_ccall f_12863(C_word c,C_word *av) C_noret;
C_noret_decl(f_12866)
static void C_ccall f_12866(C_word c,C_word *av) C_noret;
C_noret_decl(f_12869)
static void C_ccall f_12869(C_word c,C_word *av) C_noret;
C_noret_decl(f_12872)
static void C_ccall f_12872(C_word c,C_word *av) C_noret;
C_noret_decl(f_12877)
static void C_ccall f_12877(C_word c,C_word *av) C_noret;
C_noret_decl(f_12883)
static void C_ccall f_12883(C_word c,C_word *av) C_noret;
C_noret_decl(f_12889)
static void C_ccall f_12889(C_word c,C_word *av) C_noret;
C_noret_decl(f_12924)
static void C_ccall f_12924(C_word c,C_word *av) C_noret;
C_noret_decl(f_12927)
static void C_ccall f_12927(C_word c,C_word *av) C_noret;
C_noret_decl(f_12930)
static void C_ccall f_12930(C_word c,C_word *av) C_noret;
C_noret_decl(f_12938)
static void C_ccall f_12938(C_word c,C_word *av) C_noret;
C_noret_decl(f_12944)
static void C_ccall f_12944(C_word c,C_word *av) C_noret;
C_noret_decl(f_12951)
static void C_ccall f_12951(C_word c,C_word *av) C_noret;
C_noret_decl(f_12966)
static void C_ccall f_12966(C_word c,C_word *av) C_noret;
C_noret_decl(f_12980)
static void C_ccall f_12980(C_word c,C_word *av) C_noret;
C_noret_decl(f_12986)
static void C_ccall f_12986(C_word c,C_word *av) C_noret;
C_noret_decl(f_12992)
static void C_ccall f_12992(C_word c,C_word *av) C_noret;
C_noret_decl(f_12999)
static void C_ccall f_12999(C_word c,C_word *av) C_noret;
C_noret_decl(f_13004)
static void C_ccall f_13004(C_word c,C_word *av) C_noret;
C_noret_decl(f_13007)
static void C_ccall f_13007(C_word c,C_word *av) C_noret;
C_noret_decl(f_13016)
static void f_13016(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13034)
static void C_ccall f_13034(C_word c,C_word *av) C_noret;
C_noret_decl(f_13044)
static void C_ccall f_13044(C_word c,C_word *av) C_noret;
C_noret_decl(f_13053)
static void f_13053(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13071)
static void C_ccall f_13071(C_word c,C_word *av) C_noret;
C_noret_decl(f_13084)
static void C_ccall f_13084(C_word c,C_word *av) C_noret;
C_noret_decl(f_13091)
static void C_ccall f_13091(C_word c,C_word *av) C_noret;
C_noret_decl(f_13098)
static void C_ccall f_13098(C_word c,C_word *av) C_noret;
C_noret_decl(f_13109)
static void C_ccall f_13109(C_word c,C_word *av) C_noret;
C_noret_decl(f_13128)
static void C_ccall f_13128(C_word c,C_word *av) C_noret;
C_noret_decl(f_13131)
static void C_ccall f_13131(C_word c,C_word *av) C_noret;
C_noret_decl(f_13133)
static void C_ccall f_13133(C_word c,C_word *av) C_noret;
C_noret_decl(f_13139)
static void f_13139(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13155)
static void C_ccall f_13155(C_word c,C_word *av) C_noret;
C_noret_decl(f_13164)
static void C_ccall f_13164(C_word c,C_word *av) C_noret;
C_noret_decl(f_13166)
static void C_ccall f_13166(C_word c,C_word *av) C_noret;
C_noret_decl(f_13172)
static void f_13172(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13185)
static void C_ccall f_13185(C_word c,C_word *av) C_noret;
C_noret_decl(f_13201)
static void C_ccall f_13201(C_word c,C_word *av) C_noret;
C_noret_decl(f_13212)
static void C_ccall f_13212(C_word c,C_word *av) C_noret;
C_noret_decl(f_13214)
static void C_ccall f_13214(C_word c,C_word *av) C_noret;
C_noret_decl(f_13222)
static void C_ccall f_13222(C_word c,C_word *av) C_noret;
C_noret_decl(f_13224)
static void C_ccall f_13224(C_word c,C_word *av) C_noret;
C_noret_decl(f_13230)
static void C_ccall f_13230(C_word c,C_word *av) C_noret;
C_noret_decl(f_13232)
static void C_ccall f_13232(C_word c,C_word *av) C_noret;
C_noret_decl(f_13240)
static void C_ccall f_13240(C_word c,C_word *av) C_noret;
C_noret_decl(f_13242)
static void C_ccall f_13242(C_word c,C_word *av) C_noret;
C_noret_decl(f_13245)
static void C_ccall f_13245(C_word c,C_word *av) C_noret;
C_noret_decl(f_13253)
static void C_ccall f_13253(C_word c,C_word *av) C_noret;
C_noret_decl(f_13259)
static void C_ccall f_13259(C_word c,C_word *av) C_noret;
C_noret_decl(f_13267)
static void C_ccall f_13267(C_word c,C_word *av) C_noret;
C_noret_decl(f_13278)
static void C_ccall f_13278(C_word c,C_word *av) C_noret;
C_noret_decl(f_13290)
static void f_13290(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13304)
static void C_ccall f_13304(C_word c,C_word *av) C_noret;
C_noret_decl(f_13312)
static void C_ccall f_13312(C_word c,C_word *av) C_noret;
C_noret_decl(f_13315)
static void C_ccall f_13315(C_word c,C_word *av) C_noret;
C_noret_decl(f_13317)
static void C_ccall f_13317(C_word c,C_word *av) C_noret;
C_noret_decl(f_13319)
static void C_ccall f_13319(C_word c,C_word *av) C_noret;
C_noret_decl(f_13325)
static void f_13325(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13344)
static void C_ccall f_13344(C_word c,C_word *av) C_noret;
C_noret_decl(f_13361)
static void C_ccall f_13361(C_word c,C_word *av) C_noret;
C_noret_decl(f_13369)
static void C_ccall f_13369(C_word c,C_word *av) C_noret;
C_noret_decl(f_13383)
static void C_ccall f_13383(C_word c,C_word *av) C_noret;
C_noret_decl(f_13389)
static void f_13389(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13408)
static void C_ccall f_13408(C_word c,C_word *av) C_noret;
C_noret_decl(f_13417)
static void C_ccall f_13417(C_word c,C_word *av) C_noret;
C_noret_decl(f_13420)
static void C_ccall f_13420(C_word c,C_word *av) C_noret;
C_noret_decl(f_13423)
static void C_ccall f_13423(C_word c,C_word *av) C_noret;
C_noret_decl(f_13426)
static void C_ccall f_13426(C_word c,C_word *av) C_noret;
C_noret_decl(f_13429)
static void C_ccall f_13429(C_word c,C_word *av) C_noret;
C_noret_decl(f_13438)
static C_word f_13438(C_word t0,C_word t1);
C_noret_decl(f_13457)
static void C_ccall f_13457(C_word c,C_word *av) C_noret;
C_noret_decl(f_13463)
static void f_13463(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13488)
static void C_ccall f_13488(C_word c,C_word *av) C_noret;
C_noret_decl(f_13490)
static void C_ccall f_13490(C_word c,C_word *av) C_noret;
C_noret_decl(f_13499)
static void f_13499(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13520)
static void C_ccall f_13520(C_word c,C_word *av) C_noret;
C_noret_decl(f_13522)
static void C_ccall f_13522(C_word c,C_word *av) C_noret;
C_noret_decl(f_13528)
static void f_13528(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13554)
static void C_ccall f_13554(C_word c,C_word *av) C_noret;
C_noret_decl(f_13561)
static void C_ccall f_13561(C_word c,C_word *av) C_noret;
C_noret_decl(f_13563)
static void C_ccall f_13563(C_word c,C_word *av) C_noret;
C_noret_decl(f_13575)
static void f_13575(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13610)
static void C_ccall f_13610(C_word c,C_word *av) C_noret;
C_noret_decl(f_13620)
static void C_ccall f_13620(C_word c,C_word *av) C_noret;
C_noret_decl(f_13629)
static void f_13629(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13671)
static void C_ccall f_13671(C_word c,C_word *av) C_noret;
C_noret_decl(f_13700)
static void C_ccall f_13700(C_word c,C_word *av) C_noret;
C_noret_decl(f_13707)
static void f_13707(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13710)
static void C_ccall f_13710(C_word c,C_word *av) C_noret;
C_noret_decl(f_13739)
static void C_ccall f_13739(C_word c,C_word *av) C_noret;
C_noret_decl(f_13745)
static void f_13745(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13761)
static void C_ccall f_13761(C_word c,C_word *av) C_noret;
C_noret_decl(f_13786)
static void C_ccall f_13786(C_word c,C_word *av) C_noret;
C_noret_decl(f_13795)
static void f_13795(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13836)
static void C_ccall f_13836(C_word c,C_word *av) C_noret;
C_noret_decl(f_13858)
static void C_ccall f_13858(C_word c,C_word *av) C_noret;
C_noret_decl(f_13890)
static void C_ccall f_13890(C_word c,C_word *av) C_noret;
C_noret_decl(f_13906)
static void f_13906(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13909)
static void C_ccall f_13909(C_word c,C_word *av) C_noret;
C_noret_decl(f_13931)
static void C_ccall f_13931(C_word c,C_word *av) C_noret;
C_noret_decl(f_13937)
static void f_13937(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13962)
static void C_ccall f_13962(C_word c,C_word *av) C_noret;
C_noret_decl(f_14002)
static void C_ccall f_14002(C_word c,C_word *av) C_noret;
C_noret_decl(f_14014)
static void f_14014(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14033)
static void C_ccall f_14033(C_word c,C_word *av) C_noret;
C_noret_decl(f_14050)
static void C_ccall f_14050(C_word c,C_word *av) C_noret;
C_noret_decl(f_14057)
static void C_ccall f_14057(C_word c,C_word *av) C_noret;
C_noret_decl(f_14067)
static void C_ccall f_14067(C_word c,C_word *av) C_noret;
C_noret_decl(f_14078)
static void C_ccall f_14078(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_14095)
static void C_ccall f_14095(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_14131)
static void C_ccall f_14131(C_word c,C_word *av) C_noret;
C_noret_decl(f_14135)
static void C_ccall f_14135(C_word c,C_word *av) C_noret;
C_noret_decl(f_14153)
static void C_ccall f_14153(C_word c,C_word *av) C_noret;
C_noret_decl(f_14169)
static void C_ccall f_14169(C_word c,C_word *av) C_noret;
C_noret_decl(f_14178)
static void C_ccall f_14178(C_word c,C_word *av) C_noret;
C_noret_decl(f_14184)
static void C_ccall f_14184(C_word c,C_word *av) C_noret;
C_noret_decl(f_14194)
static void C_ccall f_14194(C_word c,C_word *av) C_noret;
C_noret_decl(f_14198)
static void C_ccall f_14198(C_word c,C_word *av) C_noret;
C_noret_decl(f_14202)
static void C_ccall f_14202(C_word c,C_word *av) C_noret;
C_noret_decl(f_14206)
static void C_ccall f_14206(C_word c,C_word *av) C_noret;
C_noret_decl(f_14209)
static void C_ccall f_14209(C_word c,C_word *av) C_noret;
C_noret_decl(f_14211)
static void f_14211(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_14215)
static void f_14215(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14219)
static void C_ccall f_14219(C_word c,C_word *av) C_noret;
C_noret_decl(f_14223)
static void C_ccall f_14223(C_word c,C_word *av) C_noret;
C_noret_decl(f_14227)
static void C_ccall f_14227(C_word c,C_word *av) C_noret;
C_noret_decl(f_14242)
static void C_ccall f_14242(C_word c,C_word *av) C_noret;
C_noret_decl(f_14259)
static void C_ccall f_14259(C_word c,C_word *av) C_noret;
C_noret_decl(f_14265)
static void C_ccall f_14265(C_word c,C_word *av) C_noret;
C_noret_decl(f_14271)
static void C_ccall f_14271(C_word c,C_word *av) C_noret;
C_noret_decl(f_14274)
static void f_14274(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14281)
static void C_ccall f_14281(C_word c,C_word *av) C_noret;
C_noret_decl(f_14318)
static void C_ccall f_14318(C_word c,C_word *av) C_noret;
C_noret_decl(f_14321)
static void C_ccall f_14321(C_word c,C_word *av) C_noret;
C_noret_decl(f_14324)
static void C_ccall f_14324(C_word c,C_word *av) C_noret;
C_noret_decl(f_14327)
static void C_ccall f_14327(C_word c,C_word *av) C_noret;
C_noret_decl(f_14333)
static void C_ccall f_14333(C_word c,C_word *av) C_noret;
C_noret_decl(f_14336)
static void C_ccall f_14336(C_word c,C_word *av) C_noret;
C_noret_decl(f_14339)
static void C_ccall f_14339(C_word c,C_word *av) C_noret;
C_noret_decl(f_14342)
static void C_ccall f_14342(C_word c,C_word *av) C_noret;
C_noret_decl(f_14345)
static void C_ccall f_14345(C_word c,C_word *av) C_noret;
C_noret_decl(f_14348)
static void C_ccall f_14348(C_word c,C_word *av) C_noret;
C_noret_decl(f_14351)
static void C_ccall f_14351(C_word c,C_word *av) C_noret;
C_noret_decl(f_14354)
static void C_ccall f_14354(C_word c,C_word *av) C_noret;
C_noret_decl(f_14357)
static void C_ccall f_14357(C_word c,C_word *av) C_noret;
C_noret_decl(f_14360)
static void C_ccall f_14360(C_word c,C_word *av) C_noret;
C_noret_decl(f_14363)
static void C_ccall f_14363(C_word c,C_word *av) C_noret;
C_noret_decl(f_14366)
static void C_ccall f_14366(C_word c,C_word *av) C_noret;
C_noret_decl(f_14369)
static void C_ccall f_14369(C_word c,C_word *av) C_noret;
C_noret_decl(f_14372)
static void C_ccall f_14372(C_word c,C_word *av) C_noret;
C_noret_decl(f_14375)
static void C_ccall f_14375(C_word c,C_word *av) C_noret;
C_noret_decl(f_14378)
static void C_ccall f_14378(C_word c,C_word *av) C_noret;
C_noret_decl(f_14381)
static void C_ccall f_14381(C_word c,C_word *av) C_noret;
C_noret_decl(f_14384)
static void C_ccall f_14384(C_word c,C_word *av) C_noret;
C_noret_decl(f_14387)
static void C_ccall f_14387(C_word c,C_word *av) C_noret;
C_noret_decl(f_14390)
static void C_ccall f_14390(C_word c,C_word *av) C_noret;
C_noret_decl(f_14393)
static void C_ccall f_14393(C_word c,C_word *av) C_noret;
C_noret_decl(f_14396)
static void C_ccall f_14396(C_word c,C_word *av) C_noret;
C_noret_decl(f_14399)
static void C_ccall f_14399(C_word c,C_word *av) C_noret;
C_noret_decl(f_14402)
static void C_ccall f_14402(C_word c,C_word *av) C_noret;
C_noret_decl(f_14405)
static void C_ccall f_14405(C_word c,C_word *av) C_noret;
C_noret_decl(f_14410)
static void C_ccall f_14410(C_word c,C_word *av) C_noret;
C_noret_decl(f_14419)
static void C_ccall f_14419(C_word c,C_word *av) C_noret;
C_noret_decl(f_14431)
static void C_ccall f_14431(C_word c,C_word *av) C_noret;
C_noret_decl(f_14445)
static void C_ccall f_14445(C_word c,C_word *av) C_noret;
C_noret_decl(f_14461)
static void C_ccall f_14461(C_word c,C_word *av) C_noret;
C_noret_decl(f_14464)
static void C_ccall f_14464(C_word c,C_word *av) C_noret;
C_noret_decl(f_14473)
static void C_ccall f_14473(C_word c,C_word *av) C_noret;
C_noret_decl(f_14477)
static void C_ccall f_14477(C_word c,C_word *av) C_noret;
C_noret_decl(f_14479)
static void C_ccall f_14479(C_word c,C_word *av) C_noret;
C_noret_decl(f_14483)
static void C_ccall f_14483(C_word c,C_word *av) C_noret;
C_noret_decl(f_14486)
static void C_ccall f_14486(C_word c,C_word *av) C_noret;
C_noret_decl(f_14497)
static void C_ccall f_14497(C_word c,C_word *av) C_noret;
C_noret_decl(f_14499)
static void C_ccall f_14499(C_word c,C_word *av) C_noret;
C_noret_decl(f_14506)
static void C_ccall f_14506(C_word c,C_word *av) C_noret;
C_noret_decl(f_14509)
static void C_ccall f_14509(C_word c,C_word *av) C_noret;
C_noret_decl(f_14514)
static void C_ccall f_14514(C_word c,C_word *av) C_noret;
C_noret_decl(f_14518)
static void C_ccall f_14518(C_word c,C_word *av) C_noret;
C_noret_decl(f_14523)
static void C_ccall f_14523(C_word c,C_word *av) C_noret;
C_noret_decl(f_14527)
static void C_ccall f_14527(C_word c,C_word *av) C_noret;
C_noret_decl(f_14558)
static void C_ccall f_14558(C_word c,C_word *av) C_noret;
C_noret_decl(f_14561)
static void C_ccall f_14561(C_word c,C_word *av) C_noret;
C_noret_decl(f_14564)
static void C_ccall f_14564(C_word c,C_word *av) C_noret;
C_noret_decl(f_14581)
static void C_ccall f_14581(C_word c,C_word *av) C_noret;
C_noret_decl(f_14592)
static void C_ccall f_14592(C_word c,C_word *av) C_noret;
C_noret_decl(f_14603)
static void C_ccall f_14603(C_word c,C_word *av) C_noret;
C_noret_decl(f_14614)
static void C_ccall f_14614(C_word c,C_word *av) C_noret;
C_noret_decl(f_14625)
static void C_ccall f_14625(C_word c,C_word *av) C_noret;
C_noret_decl(f_14636)
static void C_ccall f_14636(C_word c,C_word *av) C_noret;
C_noret_decl(f_14647)
static void C_ccall f_14647(C_word c,C_word *av) C_noret;
C_noret_decl(f_14658)
static void C_ccall f_14658(C_word c,C_word *av) C_noret;
C_noret_decl(f_14669)
static void C_ccall f_14669(C_word c,C_word *av) C_noret;
C_noret_decl(f_14680)
static void C_ccall f_14680(C_word c,C_word *av) C_noret;
C_noret_decl(f_14691)
static void C_ccall f_14691(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_14713)
static void C_ccall f_14713(C_word c,C_word *av) C_noret;
C_noret_decl(f_14724)
static void C_ccall f_14724(C_word c,C_word *av) C_noret;
C_noret_decl(f_14735)
static void C_ccall f_14735(C_word c,C_word *av) C_noret;
C_noret_decl(f_14746)
static void C_ccall f_14746(C_word c,C_word *av) C_noret;
C_noret_decl(f_14757)
static void C_ccall f_14757(C_word c,C_word *av) C_noret;
C_noret_decl(f_14774)
static void C_ccall f_14774(C_word c,C_word *av) C_noret;
C_noret_decl(f_14791)
static void C_ccall f_14791(C_word c,C_word *av) C_noret;
C_noret_decl(f_14815)
static void C_ccall f_14815(C_word c,C_word *av) C_noret;
C_noret_decl(f_14832)
static void C_ccall f_14832(C_word c,C_word *av) C_noret;
C_noret_decl(f_14843)
static void C_ccall f_14843(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_14874)
static void C_ccall f_14874(C_word c,C_word *av) C_noret;
C_noret_decl(f_14885)
static void C_ccall f_14885(C_word c,C_word *av) C_noret;
C_noret_decl(f_14897)
static void f_14897(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_14931)
static void C_ccall f_14931(C_word c,C_word *av) C_noret;
C_noret_decl(f_14946)
static void f_14946(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15013)
static void C_ccall f_15013(C_word c,C_word *av) C_noret;
C_noret_decl(f_15029)
static void C_ccall f_15029(C_word c,C_word *av) C_noret;
C_noret_decl(f_15045)
static void C_ccall f_15045(C_word c,C_word *av) C_noret;
C_noret_decl(f_15061)
static void C_ccall f_15061(C_word c,C_word *av) C_noret;
C_noret_decl(f_15077)
static void C_ccall f_15077(C_word c,C_word *av) C_noret;
C_noret_decl(f_15093)
static void C_ccall f_15093(C_word c,C_word *av) C_noret;
C_noret_decl(f_15109)
static void C_ccall f_15109(C_word c,C_word *av) C_noret;
C_noret_decl(f_15125)
static void C_ccall f_15125(C_word c,C_word *av) C_noret;
C_noret_decl(f_15141)
static void C_ccall f_15141(C_word c,C_word *av) C_noret;
C_noret_decl(f_15153)
static void f_15153(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15172)
static void f_15172(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15203)
static void C_ccall f_15203(C_word c,C_word *av) C_noret;
C_noret_decl(f_15220)
static void C_ccall f_15220(C_word c,C_word *av) C_noret;
C_noret_decl(f_15226)
static void f_15226(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_15250)
static void C_ccall f_15250(C_word c,C_word *av) C_noret;
C_noret_decl(f_15265)
static void C_ccall f_15265(C_word c,C_word *av) C_noret;
C_noret_decl(f_15275)
static void C_ccall f_15275(C_word c,C_word *av) C_noret;
C_noret_decl(f_15287)
static void C_ccall f_15287(C_word c,C_word *av) C_noret;
C_noret_decl(f_15291)
static void C_ccall f_15291(C_word c,C_word *av) C_noret;
C_noret_decl(f_15295)
static void C_ccall f_15295(C_word c,C_word *av) C_noret;
C_noret_decl(f_15302)
static void C_ccall f_15302(C_word c,C_word *av) C_noret;
C_noret_decl(f_15308)
static void C_ccall f_15308(C_word c,C_word *av) C_noret;
C_noret_decl(f_15314)
static void C_ccall f_15314(C_word c,C_word *av) C_noret;
C_noret_decl(f_15338)
static void C_ccall f_15338(C_word c,C_word *av) C_noret;
C_noret_decl(f_15342)
static void C_ccall f_15342(C_word c,C_word *av) C_noret;
C_noret_decl(f_15351)
static void C_ccall f_15351(C_word c,C_word *av) C_noret;
C_noret_decl(f_15355)
static void C_ccall f_15355(C_word c,C_word *av) C_noret;
C_noret_decl(f_15364)
static void C_ccall f_15364(C_word c,C_word *av) C_noret;
C_noret_decl(f_15367)
static void C_ccall f_15367(C_word c,C_word *av) C_noret;
C_noret_decl(f_15373)
static void C_ccall f_15373(C_word c,C_word *av) C_noret;
C_noret_decl(f_15379)
static void C_ccall f_15379(C_word c,C_word *av) C_noret;
C_noret_decl(f_15382)
static void C_ccall f_15382(C_word c,C_word *av) C_noret;
C_noret_decl(f_15421)
static void C_ccall f_15421(C_word c,C_word *av) C_noret;
C_noret_decl(f_15424)
static void C_ccall f_15424(C_word c,C_word *av) C_noret;
C_noret_decl(f_15434)
static void f_15434(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15451)
static void C_ccall f_15451(C_word c,C_word *av) C_noret;
C_noret_decl(f_15457)
static void C_ccall f_15457(C_word c,C_word *av) C_noret;
C_noret_decl(f_15463)
static void C_ccall f_15463(C_word c,C_word *av) C_noret;
C_noret_decl(f_15469)
static void C_ccall f_15469(C_word c,C_word *av) C_noret;
C_noret_decl(f_15475)
static void C_ccall f_15475(C_word c,C_word *av) C_noret;
C_noret_decl(f_15481)
static void C_ccall f_15481(C_word c,C_word *av) C_noret;
C_noret_decl(f_15487)
static void C_ccall f_15487(C_word c,C_word *av) C_noret;
C_noret_decl(f_15493)
static void C_ccall f_15493(C_word c,C_word *av) C_noret;
C_noret_decl(f_15497)
static void C_ccall f_15497(C_word c,C_word *av) C_noret;
C_noret_decl(f_15502)
static void C_ccall f_15502(C_word c,C_word *av) C_noret;
C_noret_decl(f_15505)
static void C_ccall f_15505(C_word c,C_word *av) C_noret;
C_noret_decl(f_15515)
static void C_ccall f_15515(C_word c,C_word *av) C_noret;
C_noret_decl(f_15518)
static void C_ccall f_15518(C_word c,C_word *av) 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_15528)
static void C_ccall f_15528(C_word c,C_word *av) C_noret;
C_noret_decl(f_15536)
static void f_15536(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_15540)
static void C_ccall f_15540(C_word c,C_word *av) C_noret;
C_noret_decl(f_15558)
static void C_ccall f_15558(C_word c,C_word *av) C_noret;
C_noret_decl(f_15582)
static void C_ccall f_15582(C_word c,C_word *av) C_noret;
C_noret_decl(f_15589)
static void C_ccall f_15589(C_word c,C_word *av) 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_15635)
static void C_ccall f_15635(C_word c,C_word *av) C_noret;
C_noret_decl(f_15638)
static void C_ccall f_15638(C_word c,C_word *av) C_noret;
C_noret_decl(f_15647)
static void f_15647(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_15704)
static void C_ccall f_15704(C_word c,C_word *av) C_noret;
C_noret_decl(f_15717)
static void C_ccall f_15717(C_word c,C_word *av) C_noret;
C_noret_decl(f_15722)
static void f_15722(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_15766)
static void C_ccall f_15766(C_word c,C_word *av) C_noret;
C_noret_decl(f_15770)
static void C_ccall f_15770(C_word c,C_word *av) C_noret;
C_noret_decl(f_15775)
static void f_15775(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_15817)
static void C_ccall f_15817(C_word c,C_word *av) C_noret;
C_noret_decl(f_15840)
static void f_15840(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15863)
static C_word f_15863(C_word t0,C_word t1);
C_noret_decl(f_15936)
static void C_ccall f_15936(C_word c,C_word *av) C_noret;
C_noret_decl(f_15956)
static void f_15956(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15959)
static void C_ccall f_15959(C_word c,C_word *av) C_noret;
C_noret_decl(f_15962)
static void f_15962(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15971)
static void C_ccall f_15971(C_word c,C_word *av) C_noret;
C_noret_decl(f_15975)
static void C_ccall f_15975(C_word c,C_word *av) C_noret;
C_noret_decl(f_15985)
static void C_ccall f_15985(C_word c,C_word *av) C_noret;
C_noret_decl(f_16012)
static void C_ccall f_16012(C_word c,C_word *av) C_noret;
C_noret_decl(f_16042)
static void C_ccall f_16042(C_word c,C_word *av) C_noret;
C_noret_decl(f_16061)
static C_word f_16061(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_16095)
static C_word f_16095(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_16129)
static void C_ccall f_16129(C_word c,C_word *av) C_noret;
C_noret_decl(f_16163)
static void C_ccall f_16163(C_word c,C_word *av) C_noret;
C_noret_decl(f_16167)
static void C_ccall f_16167(C_word c,C_word *av) C_noret;
C_noret_decl(f_16177)
static void C_ccall f_16177(C_word c,C_word *av) C_noret;
C_noret_decl(f_16187)
static void f_16187(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16194)
static void f_16194(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16222)
static void f_16222(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_16242)
static void C_ccall f_16242(C_word c,C_word *av) C_noret;
C_noret_decl(f_16244)
static void f_16244(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_16275)
static void C_ccall f_16275(C_word c,C_word *av) C_noret;
C_noret_decl(f_16283)
static void C_ccall f_16283(C_word c,C_word *av) C_noret;
C_noret_decl(f_16289)
static void C_ccall f_16289(C_word c,C_word *av) C_noret;
C_noret_decl(f_16307)
static void C_ccall f_16307(C_word c,C_word *av) C_noret;
C_noret_decl(f_16313)
static void C_ccall f_16313(C_word c,C_word *av) C_noret;
C_noret_decl(f_16331)
static void C_ccall f_16331(C_word c,C_word *av) C_noret;
C_noret_decl(f_16337)
static void C_ccall f_16337(C_word c,C_word *av) C_noret;
C_noret_decl(f_16352)
static void C_ccall f_16352(C_word c,C_word *av) C_noret;
C_noret_decl(f_16358)
static void C_ccall f_16358(C_word c,C_word *av) C_noret;
C_noret_decl(f_16372)
static void f_16372(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_16392)
static void C_ccall f_16392(C_word c,C_word *av) C_noret;
C_noret_decl(f_16394)
static void f_16394(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_16425)
static void C_ccall f_16425(C_word c,C_word *av) C_noret;
C_noret_decl(f_16433)
static void C_ccall f_16433(C_word c,C_word *av) C_noret;
C_noret_decl(f_16439)
static void C_ccall f_16439(C_word c,C_word *av) C_noret;
C_noret_decl(f_16457)
static void C_ccall f_16457(C_word c,C_word *av) C_noret;
C_noret_decl(f_16463)
static void C_ccall f_16463(C_word c,C_word *av) C_noret;
C_noret_decl(f_16481)
static void C_ccall f_16481(C_word c,C_word *av) C_noret;
C_noret_decl(f_16487)
static void C_ccall f_16487(C_word c,C_word *av) C_noret;
C_noret_decl(f_16502)
static void C_ccall f_16502(C_word c,C_word *av) C_noret;
C_noret_decl(f_16508)
static void C_ccall f_16508(C_word c,C_word *av) C_noret;
C_noret_decl(f_16523)
static void C_ccall f_16523(C_word c,C_word *av) C_noret;
C_noret_decl(f_16539)
static void C_ccall f_16539(C_word c,C_word *av) C_noret;
C_noret_decl(f_16569)
static void C_ccall f_16569(C_word c,C_word *av) C_noret;
C_noret_decl(f_16573)
static void C_ccall f_16573(C_word c,C_word *av) C_noret;
C_noret_decl(f_16575)
static void f_16575(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_16586)
static void C_ccall f_16586(C_word c,C_word *av) C_noret;
C_noret_decl(f_16609)
static void C_ccall f_16609(C_word c,C_word *av) C_noret;
C_noret_decl(f_16627)
static void C_ccall f_16627(C_word c,C_word *av) C_noret;
C_noret_decl(f_16633)
static void C_ccall f_16633(C_word c,C_word *av) C_noret;
C_noret_decl(f_16639)
static void C_ccall f_16639(C_word c,C_word *av) C_noret;
C_noret_decl(f_16646)
static void C_ccall f_16646(C_word c,C_word *av) C_noret;
C_noret_decl(f_16654)
static void f_16654(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_16675)
static void f_16675(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_16689)
static void C_ccall f_16689(C_word c,C_word *av) C_noret;
C_noret_decl(f_16693)
static void C_ccall f_16693(C_word c,C_word *av) C_noret;
C_noret_decl(f_16734)
static void C_ccall f_16734(C_word c,C_word *av) C_noret;
C_noret_decl(f_16756)
static void C_ccall f_16756(C_word c,C_word *av) C_noret;
C_noret_decl(f_16758)
static void C_ccall f_16758(C_word c,C_word *av) C_noret;
C_noret_decl(f_16780)
static void C_ccall f_16780(C_word c,C_word *av) C_noret;
C_noret_decl(f_16782)
static void C_ccall f_16782(C_word c,C_word *av) C_noret;
C_noret_decl(f_16804)
static void C_ccall f_16804(C_word c,C_word *av) C_noret;
C_noret_decl(f_16806)
static void C_ccall f_16806(C_word c,C_word *av) C_noret;
C_noret_decl(f_16828)
static void C_ccall f_16828(C_word c,C_word *av) C_noret;
C_noret_decl(f_16830)
static void C_ccall f_16830(C_word c,C_word *av) C_noret;
C_noret_decl(f_16834)
static void C_ccall f_16834(C_word c,C_word *av) C_noret;
C_noret_decl(f_16837)
static void f_16837(C_word t0,C_word t1) 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_16877)
static void C_ccall f_16877(C_word c,C_word *av) C_noret;
C_noret_decl(f_16879)
static void C_ccall f_16879(C_word c,C_word *av) C_noret;
C_noret_decl(f_16901)
static void C_ccall f_16901(C_word c,C_word *av) C_noret;
C_noret_decl(f_16903)
static void C_ccall f_16903(C_word c,C_word *av) C_noret;
C_noret_decl(f_16925)
static void C_ccall f_16925(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_16949)
static void C_ccall f_16949(C_word c,C_word *av) C_noret;
C_noret_decl(f_16951)
static void C_ccall f_16951(C_word c,C_word *av) C_noret;
C_noret_decl(f_16973)
static void C_ccall f_16973(C_word c,C_word *av) C_noret;
C_noret_decl(f_16975)
static void C_ccall f_16975(C_word c,C_word *av) C_noret;
C_noret_decl(f_16997)
static void C_ccall f_16997(C_word c,C_word *av) C_noret;
C_noret_decl(f_16999)
static void C_ccall f_16999(C_word c,C_word *av) C_noret;
C_noret_decl(f_17021)
static void C_ccall f_17021(C_word c,C_word *av) C_noret;
C_noret_decl(f_17023)
static void C_ccall f_17023(C_word c,C_word *av) C_noret;
C_noret_decl(f_17039)
static void C_ccall f_17039(C_word c,C_word *av) C_noret;
C_noret_decl(f_17041)
static void C_ccall f_17041(C_word c,C_word *av) C_noret;
C_noret_decl(f_17063)
static void C_ccall f_17063(C_word c,C_word *av) C_noret;
C_noret_decl(f_17065)
static void C_ccall f_17065(C_word c,C_word *av) C_noret;
C_noret_decl(f_17087)
static void C_ccall f_17087(C_word c,C_word *av) C_noret;
C_noret_decl(f_17089)
static void C_ccall f_17089(C_word c,C_word *av) C_noret;
C_noret_decl(f_17105)
static void C_ccall f_17105(C_word c,C_word *av) C_noret;
C_noret_decl(f_17107)
static void C_ccall f_17107(C_word c,C_word *av) C_noret;
C_noret_decl(f_17123)
static void C_ccall f_17123(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_17141)
static void C_ccall f_17141(C_word c,C_word *av) C_noret;
C_noret_decl(f_17143)
static void C_ccall f_17143(C_word c,C_word *av) C_noret;
C_noret_decl(f_17159)
static void C_ccall f_17159(C_word c,C_word *av) C_noret;
C_noret_decl(f_17161)
static void C_ccall f_17161(C_word c,C_word *av) C_noret;
C_noret_decl(f_17177)
static void C_ccall f_17177(C_word c,C_word *av) C_noret;
C_noret_decl(f_17179)
static void C_ccall f_17179(C_word c,C_word *av) C_noret;
C_noret_decl(f_17195)
static void C_ccall f_17195(C_word c,C_word *av) C_noret;
C_noret_decl(f_17197)
static void C_ccall f_17197(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_17215)
static void C_ccall f_17215(C_word c,C_word *av) C_noret;
C_noret_decl(f_17231)
static void C_ccall f_17231(C_word c,C_word *av) C_noret;
C_noret_decl(f_17233)
static void C_ccall f_17233(C_word c,C_word *av) C_noret;
C_noret_decl(f_17249)
static void C_ccall f_17249(C_word c,C_word *av) C_noret;
C_noret_decl(f_17251)
static void C_ccall f_17251(C_word c,C_word *av) C_noret;
C_noret_decl(f_17267)
static void C_ccall f_17267(C_word c,C_word *av) C_noret;
C_noret_decl(f_17269)
static void C_ccall f_17269(C_word c,C_word *av) C_noret;
C_noret_decl(f_17291)
static void C_ccall f_17291(C_word c,C_word *av) C_noret;
C_noret_decl(f_17293)
static void C_ccall f_17293(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_17327)
static void C_ccall f_17327(C_word c,C_word *av) C_noret;
C_noret_decl(f_17329)
static void C_ccall f_17329(C_word c,C_word *av) C_noret;
C_noret_decl(f_17345)
static void C_ccall f_17345(C_word c,C_word *av) C_noret;
C_noret_decl(f_17347)
static void C_ccall f_17347(C_word c,C_word *av) C_noret;
C_noret_decl(f_17363)
static void C_ccall f_17363(C_word c,C_word *av) C_noret;
C_noret_decl(f_17365)
static void C_ccall f_17365(C_word c,C_word *av) C_noret;
C_noret_decl(f_17381)
static void C_ccall f_17381(C_word c,C_word *av) C_noret;
C_noret_decl(f_17383)
static void C_ccall f_17383(C_word c,C_word *av) C_noret;
C_noret_decl(f_17399)
static void C_ccall f_17399(C_word c,C_word *av) C_noret;
C_noret_decl(f_17401)
static void C_ccall f_17401(C_word c,C_word *av) C_noret;
C_noret_decl(f_17417)
static void C_ccall f_17417(C_word c,C_word *av) C_noret;
C_noret_decl(f_17419)
static void C_ccall f_17419(C_word c,C_word *av) C_noret;
C_noret_decl(f_17441)
static void C_ccall f_17441(C_word c,C_word *av) C_noret;
C_noret_decl(f_17443)
static void C_ccall f_17443(C_word c,C_word *av) C_noret;
C_noret_decl(f_17459)
static void C_ccall f_17459(C_word c,C_word *av) C_noret;
C_noret_decl(f_17461)
static void C_ccall f_17461(C_word c,C_word *av) C_noret;
C_noret_decl(f_17477)
static void C_ccall f_17477(C_word c,C_word *av) C_noret;
C_noret_decl(f_17479)
static void C_ccall f_17479(C_word c,C_word *av) C_noret;
C_noret_decl(f_17495)
static void C_ccall f_17495(C_word c,C_word *av) C_noret;
C_noret_decl(f_17497)
static void C_ccall f_17497(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_17515)
static void C_ccall f_17515(C_word c,C_word *av) C_noret;
C_noret_decl(f_17533)
static void f_17533(C_word t0,C_word t1,C_word t2) 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_17560)
static void C_ccall f_17560(C_word c,C_word *av) C_noret;
C_noret_decl(f_17564)
static void C_ccall f_17564(C_word c,C_word *av) C_noret;
C_noret_decl(f_17567)
static void C_ccall f_17567(C_word c,C_word *av) C_noret;
C_noret_decl(f_17572)
static void C_ccall f_17572(C_word c,C_word *av) C_noret;
C_noret_decl(f_17576)
static void C_ccall f_17576(C_word c,C_word *av) C_noret;
C_noret_decl(f_17579)
static void C_ccall f_17579(C_word c,C_word *av) C_noret;
C_noret_decl(f_17582)
static void C_ccall f_17582(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_17618)
static void C_ccall f_17618(C_word c,C_word *av) C_noret;
C_noret_decl(f_17641)
static void C_ccall f_17641(C_word c,C_word *av) C_noret;
C_noret_decl(f_17650)
static void C_ccall f_17650(C_word c,C_word *av) C_noret;
C_noret_decl(f_17655)
static void C_ccall f_17655(C_word c,C_word *av) C_noret;
C_noret_decl(f_17657)
static void C_ccall f_17657(C_word c,C_word *av) C_noret;
C_noret_decl(f_17701)
static C_word f_17701(C_word *a,C_word t0,C_word t1);
C_noret_decl(f_17747)
static void C_ccall f_17747(C_word c,C_word *av) C_noret;
C_noret_decl(f_17770)
static void C_ccall f_17770(C_word c,C_word *av) C_noret;
C_noret_decl(f_17774)
static void C_ccall f_17774(C_word c,C_word *av) C_noret;
C_noret_decl(f_17792)
static void C_ccall f_17792(C_word c,C_word *av) C_noret;
C_noret_decl(f_17815)
static void C_ccall f_17815(C_word c,C_word *av) C_noret;
C_noret_decl(f_17819)
static void C_ccall f_17819(C_word c,C_word *av) C_noret;
C_noret_decl(f_17837)
static void C_ccall f_17837(C_word c,C_word *av) C_noret;
C_noret_decl(f_17878)
static void f_17878(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17889)
static void C_ccall f_17889(C_word c,C_word *av) C_noret;
C_noret_decl(f_17895)
static void f_17895(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17899)
static void C_ccall f_17899(C_word c,C_word *av) C_noret;
C_noret_decl(f_17913)
static void C_ccall f_17913(C_word c,C_word *av) C_noret;
C_noret_decl(f_17926)
static void C_ccall f_17926(C_word c,C_word *av) C_noret;
C_noret_decl(f_17930)
static void C_ccall f_17930(C_word c,C_word *av) C_noret;
C_noret_decl(f_17947)
static void C_ccall f_17947(C_word c,C_word *av) C_noret;
C_noret_decl(f_17951)
static void C_ccall f_17951(C_word c,C_word *av) C_noret;
C_noret_decl(f_17957)
static void C_ccall f_17957(C_word c,C_word *av) C_noret;
C_noret_decl(f_17961)
static void C_ccall f_17961(C_word c,C_word *av) C_noret;
C_noret_decl(f_18001)
static void C_ccall f_18001(C_word c,C_word *av) C_noret;
C_noret_decl(f_18005)
static void C_ccall f_18005(C_word c,C_word *av) C_noret;
C_noret_decl(f_18025)
static void C_ccall f_18025(C_word c,C_word *av) C_noret;
C_noret_decl(f_18028)
static void C_ccall f_18028(C_word c,C_word *av) C_noret;
C_noret_decl(f_18031)
static void C_ccall f_18031(C_word c,C_word *av) C_noret;
C_noret_decl(f_18034)
static void C_ccall f_18034(C_word c,C_word *av) C_noret;
C_noret_decl(f_18037)
static void C_ccall f_18037(C_word c,C_word *av) C_noret;
C_noret_decl(f_18058)
static void C_ccall f_18058(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_18078)
static void C_ccall f_18078(C_word c,C_word *av) C_noret;
C_noret_decl(f_18088)
static void C_ccall f_18088(C_word c,C_word *av) C_noret;
C_noret_decl(f_18092)
static void C_ccall f_18092(C_word c,C_word *av) C_noret;
C_noret_decl(f_18130)
static void C_ccall f_18130(C_word c,C_word *av) C_noret;
C_noret_decl(f_18133)
static void C_ccall f_18133(C_word c,C_word *av) C_noret;
C_noret_decl(f_18136)
static void C_ccall f_18136(C_word c,C_word *av) C_noret;
C_noret_decl(f_18139)
static void C_ccall f_18139(C_word c,C_word *av) C_noret;
C_noret_decl(f_18145)
static void C_ccall f_18145(C_word c,C_word *av) C_noret;
C_noret_decl(f_18148)
static void C_ccall f_18148(C_word c,C_word *av) C_noret;
C_noret_decl(f_18196)
static void C_ccall f_18196(C_word c,C_word *av) C_noret;
C_noret_decl(f_18200)
static void C_ccall f_18200(C_word c,C_word *av) C_noret;
C_noret_decl(f_18277)
static void C_ccall f_18277(C_word c,C_word *av) C_noret;
C_noret_decl(f_18316)
static void C_ccall f_18316(C_word c,C_word *av) C_noret;
C_noret_decl(f_18369)
static void C_ccall f_18369(C_word c,C_word *av) C_noret;
C_noret_decl(f_18413)
static void C_ccall f_18413(C_word c,C_word *av) C_noret;
C_noret_decl(f_18457)
static void C_ccall f_18457(C_word c,C_word *av) C_noret;
C_noret_decl(f_18493)
static void C_ccall f_18493(C_word c,C_word *av) C_noret;
C_noret_decl(f_18512)
static void C_ccall f_18512(C_word c,C_word *av) C_noret;
C_noret_decl(f_18536)
static void f_18536(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18539)
static void f_18539(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_18543)
static void C_ccall f_18543(C_word c,C_word *av) C_noret;
C_noret_decl(f_18546)
static void C_ccall f_18546(C_word c,C_word *av) C_noret;
C_noret_decl(f_18564)
static void C_ccall f_18564(C_word c,C_word *av) C_noret;
C_noret_decl(f_18587)
static void C_ccall f_18587(C_word c,C_word *av) C_noret;
C_noret_decl(f_18591)
static void C_ccall f_18591(C_word c,C_word *av) C_noret;
C_noret_decl(f_18614)
static void C_ccall f_18614(C_word c,C_word *av) C_noret;
C_noret_decl(f_18618)
static void C_ccall f_18618(C_word c,C_word *av) C_noret;
C_noret_decl(f_18650)
static void C_ccall f_18650(C_word c,C_word *av) C_noret;
C_noret_decl(f_18686)
static void C_ccall f_18686(C_word c,C_word *av) C_noret;
C_noret_decl(f_18690)
static void C_ccall f_18690(C_word c,C_word *av) C_noret;
C_noret_decl(f_18709)
static void C_ccall f_18709(C_word c,C_word *av) C_noret;
C_noret_decl(f_18711)
static void C_ccall f_18711(C_word c,C_word *av) C_noret;
C_noret_decl(f_18722)
static void f_18722(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_18782)
static void C_ccall f_18782(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_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_18853)
static void C_ccall f_18853(C_word c,C_word *av) C_noret;
C_noret_decl(f_18871)
static void C_ccall f_18871(C_word c,C_word *av) C_noret;
C_noret_decl(f_18880)
static void C_ccall f_18880(C_word c,C_word *av) C_noret;
C_noret_decl(f_18885)
static void C_ccall f_18885(C_word c,C_word *av) C_noret;
C_noret_decl(f_18898)
static void C_ccall f_18898(C_word c,C_word *av) C_noret;
C_noret_decl(f_18924)
static void C_ccall f_18924(C_word c,C_word *av) C_noret;
C_noret_decl(f_18932)
static void C_ccall f_18932(C_word c,C_word *av) C_noret;
C_noret_decl(f_18936)
static void C_ccall f_18936(C_word c,C_word *av) C_noret;
C_noret_decl(f_18940)
static void C_ccall f_18940(C_word c,C_word *av) C_noret;
C_noret_decl(f_18944)
static void C_ccall f_18944(C_word c,C_word *av) C_noret;
C_noret_decl(f_18947)
static void C_ccall f_18947(C_word c,C_word *av) C_noret;
C_noret_decl(f_18961)
static void C_ccall f_18961(C_word c,C_word *av) C_noret;
C_noret_decl(f_18965)
static void C_ccall f_18965(C_word c,C_word *av) C_noret;
C_noret_decl(f_18976)
static void C_ccall f_18976(C_word c,C_word *av) C_noret;
C_noret_decl(f_19000)
static void C_ccall f_19000(C_word c,C_word *av) C_noret;
C_noret_decl(f_19004)
static void C_ccall f_19004(C_word c,C_word *av) C_noret;
C_noret_decl(f_19010)
static void C_ccall f_19010(C_word c,C_word *av) C_noret;
C_noret_decl(f_19034)
static void C_ccall f_19034(C_word c,C_word *av) C_noret;
C_noret_decl(f_19038)
static void C_ccall f_19038(C_word c,C_word *av) C_noret;
C_noret_decl(f_19044)
static void C_ccall f_19044(C_word c,C_word *av) C_noret;
C_noret_decl(f_19061)
static void C_ccall f_19061(C_word c,C_word *av) C_noret;
C_noret_decl(f_19065)
static void C_ccall f_19065(C_word c,C_word *av) C_noret;
C_noret_decl(f_19069)
static void C_ccall f_19069(C_word c,C_word *av) C_noret;
C_noret_decl(f_19079)
static void f_19079(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19085)
static void f_19085(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19092)
static void C_ccall f_19092(C_word c,C_word *av) C_noret;
C_noret_decl(f_19104)
static void C_ccall f_19104(C_word c,C_word *av) C_noret;
C_noret_decl(f_19127)
static void C_ccall f_19127(C_word c,C_word *av) C_noret;
C_noret_decl(f_19131)
static void C_ccall f_19131(C_word c,C_word *av) C_noret;
C_noret_decl(f_19141)
static void f_19141(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19147)
static void f_19147(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19154)
static void C_ccall f_19154(C_word c,C_word *av) C_noret;
C_noret_decl(f_19169)
static void C_ccall f_19169(C_word c,C_word *av) C_noret;
C_noret_decl(f_19173)
static void C_ccall f_19173(C_word c,C_word *av) C_noret;
C_noret_decl(f_19206)
static void C_ccall f_19206(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_19227)
static void C_ccall f_19227(C_word c,C_word *av) 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_19310)
static void C_ccall f_19310(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_19341)
static void C_ccall f_19341(C_word c,C_word *av) C_noret;
C_noret_decl(f_19357)
static void C_ccall f_19357(C_word c,C_word *av) C_noret;
C_noret_decl(f_19428)
static void C_ccall f_19428(C_word c,C_word *av) C_noret;
C_noret_decl(f_19432)
static void C_ccall f_19432(C_word c,C_word *av) C_noret;
C_noret_decl(f_19437)
static void C_ccall f_19437(C_word c,C_word *av) C_noret;
C_noret_decl(f_19447)
static void C_ccall f_19447(C_word c,C_word *av) C_noret;
C_noret_decl(f_19451)
static void C_ccall f_19451(C_word c,C_word *av) C_noret;
C_noret_decl(f_19466)
static void C_ccall f_19466(C_word c,C_word *av) C_noret;
C_noret_decl(f_19470)
static void C_ccall f_19470(C_word c,C_word *av) C_noret;
C_noret_decl(f_19487)
static void C_ccall f_19487(C_word c,C_word *av) C_noret;
C_noret_decl(f_19497)
static void C_ccall f_19497(C_word c,C_word *av) 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_19514)
static void C_ccall f_19514(C_word c,C_word *av) C_noret;
C_noret_decl(f_19525)
static void C_ccall f_19525(C_word c,C_word *av) C_noret;
C_noret_decl(f_19537)
static void C_ccall f_19537(C_word c,C_word *av) C_noret;
C_noret_decl(f_19549)
static void C_ccall f_19549(C_word c,C_word *av) C_noret;
C_noret_decl(f_19561)
static void C_ccall f_19561(C_word c,C_word *av) C_noret;
C_noret_decl(f_19578)
static void C_ccall f_19578(C_word c,C_word *av) C_noret;
C_noret_decl(f_19585)
static void C_ccall f_19585(C_word c,C_word *av) C_noret;
C_noret_decl(f_19589)
static void C_ccall f_19589(C_word c,C_word *av) C_noret;
C_noret_decl(f_19591)
static void C_ccall f_19591(C_word c,C_word *av) C_noret;
C_noret_decl(f_19598)
static void C_ccall f_19598(C_word c,C_word *av) C_noret;
C_noret_decl(f_19604)
static void C_ccall f_19604(C_word c,C_word *av) C_noret;
C_noret_decl(f_19610)
static void C_ccall f_19610(C_word c,C_word *av) C_noret;
C_noret_decl(f_19653)
static void C_ccall f_19653(C_word c,C_word *av) C_noret;
C_noret_decl(f_19659)
static void C_ccall f_19659(C_word c,C_word *av) C_noret;
C_noret_decl(f_19665)
static void C_ccall f_19665(C_word c,C_word *av) C_noret;
C_noret_decl(f_19668)
static void C_ccall f_19668(C_word c,C_word *av) C_noret;
C_noret_decl(f_19674)
static void C_ccall f_19674(C_word c,C_word *av) C_noret;
C_noret_decl(f_19680)
static void C_ccall f_19680(C_word c,C_word *av) 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 C_ccall f_19689(C_word c,C_word *av) C_noret;
C_noret_decl(f_19693)
static void C_ccall f_19693(C_word c,C_word *av) C_noret;
C_noret_decl(f_19696)
static void C_ccall f_19696(C_word c,C_word *av) C_noret;
C_noret_decl(f_19701)
static void C_ccall f_19701(C_word c,C_word *av) C_noret;
C_noret_decl(f_19711)
static void f_19711(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19731)
static void C_ccall f_19731(C_word c,C_word *av) C_noret;
C_noret_decl(f_19746)
static void f_19746(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_19776)
static void C_ccall f_19776(C_word c,C_word *av) C_noret;
C_noret_decl(f_19787)
static void C_ccall f_19787(C_word c,C_word *av) C_noret;
C_noret_decl(f_19803)
static void C_ccall f_19803(C_word c,C_word *av) C_noret;
C_noret_decl(f_19807)
static void C_ccall f_19807(C_word c,C_word *av) C_noret;
C_noret_decl(f_19811)
static void C_ccall f_19811(C_word c,C_word *av) C_noret;
C_noret_decl(f_19827)
static void C_ccall f_19827(C_word c,C_word *av) C_noret;
C_noret_decl(f_19845)
static void C_ccall f_19845(C_word c,C_word *av) C_noret;
C_noret_decl(f_19856)
static void f_19856(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_19878)
static void C_ccall f_19878(C_word c,C_word *av) C_noret;
C_noret_decl(f_19895)
static void C_ccall f_19895(C_word c,C_word *av) C_noret;
C_noret_decl(f_19898)
static void f_19898(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19910)
static void C_ccall f_19910(C_word c,C_word *av) C_noret;
C_noret_decl(f_19912)
static void f_19912(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19933)
static void C_ccall f_19933(C_word c,C_word *av) C_noret;
C_noret_decl(f_19964)
static void C_ccall f_19964(C_word c,C_word *av) C_noret;
C_noret_decl(f_19968)
static void C_ccall f_19968(C_word c,C_word *av) C_noret;
C_noret_decl(f_20002)
static void C_ccall f_20002(C_word c,C_word *av) C_noret;
C_noret_decl(f_20009)
static void C_ccall f_20009(C_word c,C_word *av) C_noret;
C_noret_decl(f_20021)
static void C_ccall f_20021(C_word c,C_word *av) C_noret;
C_noret_decl(f_20041)
static void C_ccall f_20041(C_word c,C_word *av) C_noret;
C_noret_decl(f_20045)
static void C_ccall f_20045(C_word c,C_word *av) C_noret;
C_noret_decl(f_20065)
static void f_20065(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20085)
static void C_ccall f_20085(C_word c,C_word *av) C_noret;
C_noret_decl(f_20089)
static void C_ccall f_20089(C_word c,C_word *av) C_noret;
C_noret_decl(f_20093)
static void C_ccall f_20093(C_word c,C_word *av) C_noret;
C_noret_decl(f_20100)
static void C_ccall f_20100(C_word c,C_word *av) C_noret;
C_noret_decl(f_20116)
static void C_ccall f_20116(C_word c,C_word *av) C_noret;
C_noret_decl(f_20120)
static void C_ccall f_20120(C_word c,C_word *av) C_noret;
C_noret_decl(f_20161)
static void f_20161(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20192)
static void C_ccall f_20192(C_word c,C_word *av) C_noret;
C_noret_decl(f_20220)
static void C_ccall f_20220(C_word c,C_word *av) C_noret;
C_noret_decl(f_20228)
static void C_ccall f_20228(C_word c,C_word *av) C_noret;
C_noret_decl(f_20234)
static void C_ccall f_20234(C_word c,C_word *av) C_noret;
C_noret_decl(f_20254)
static void f_20254(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20279)
static void C_ccall f_20279(C_word c,C_word *av) C_noret;
C_noret_decl(f_20285)
static void C_ccall f_20285(C_word c,C_word *av) C_noret;
C_noret_decl(f_20289)
static void C_ccall f_20289(C_word c,C_word *av) C_noret;
C_noret_decl(f_20299)
static void C_ccall f_20299(C_word c,C_word *av) C_noret;
C_noret_decl(f_20319)
static void f_20319(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20340)
static void C_ccall f_20340(C_word c,C_word *av) C_noret;
C_noret_decl(f_20357)
static void C_ccall f_20357(C_word c,C_word *av) C_noret;
C_noret_decl(f_20364)
static void C_ccall f_20364(C_word c,C_word *av) C_noret;
C_noret_decl(f_20369)
static void C_ccall f_20369(C_word c,C_word *av) C_noret;
C_noret_decl(f_20375)
static void C_ccall f_20375(C_word c,C_word *av) C_noret;
C_noret_decl(f_20379)
static void C_ccall f_20379(C_word c,C_word *av) C_noret;
C_noret_decl(f_20382)
static void C_ccall f_20382(C_word c,C_word *av) C_noret;
C_noret_decl(f_20389)
static void C_ccall f_20389(C_word c,C_word *av) C_noret;
C_noret_decl(f_20407)
static void C_ccall f_20407(C_word c,C_word *av) C_noret;
C_noret_decl(f_20421)
static void C_ccall f_20421(C_word c,C_word *av) C_noret;
C_noret_decl(f_20425)
static void C_ccall f_20425(C_word c,C_word *av) C_noret;
C_noret_decl(f_20462)
static void C_ccall f_20462(C_word c,C_word *av) C_noret;
C_noret_decl(f_20466)
static void f_20466(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20470)
static void C_ccall f_20470(C_word c,C_word *av) C_noret;
C_noret_decl(f_20510)
static void C_ccall f_20510(C_word c,C_word *av) C_noret;
C_noret_decl(f_20513)
static void C_ccall f_20513(C_word c,C_word *av) C_noret;
C_noret_decl(f_20528)
static void C_ccall f_20528(C_word c,C_word *av) C_noret;
C_noret_decl(f_20531)
static void f_20531(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20538)
static void C_ccall f_20538(C_word c,C_word *av) C_noret;
C_noret_decl(f_20549)
static void C_ccall f_20549(C_word c,C_word *av) C_noret;
C_noret_decl(f_20567)
static void C_ccall f_20567(C_word c,C_word *av) C_noret;
C_noret_decl(f_20592)
static void f_20592(C_word t0,C_word t1,C_word t2) 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_20635)
static void f_20635(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_20639)
static C_word f_20639(C_word t0,C_word t1);
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_20713)
static void C_ccall f_20713(C_word c,C_word *av) C_noret;
C_noret_decl(f_20742)
static void f_20742(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20748)
static void f_20748(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20819)
static void f_20819(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20895)
static void f_20895(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20901)
static void f_20901(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20943)
static void f_20943(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_20947)
static void C_ccall f_20947(C_word c,C_word *av) C_noret;
C_noret_decl(f_20950)
static void C_ccall f_20950(C_word c,C_word *av) C_noret;
C_noret_decl(f_20999)
static void f_20999(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21012)
static void f_21012(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21018)
static void C_ccall f_21018(C_word c,C_word *av) C_noret;
C_noret_decl(f_21052)
static void f_21052(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_21062)
static void C_ccall f_21062(C_word c,C_word *av) C_noret;
C_noret_decl(f_21071)
static void f_21071(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21083)
static void f_21083(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21092)
static void C_ccall f_21092(C_word c,C_word *av) C_noret;
C_noret_decl(f_21104)
static void C_ccall f_21104(C_word c,C_word *av) C_noret;
C_noret_decl(f_21110)
static void f_21110(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21116)
static void C_ccall f_21116(C_word c,C_word *av) C_noret;
C_noret_decl(f_21158)
static void C_ccall f_21158(C_word c,C_word *av) C_noret;
C_noret_decl(f_21264)
static void f_21264(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_21271)
static void f_21271(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21284)
static void C_ccall f_21284(C_word c,C_word *av) C_noret;
C_noret_decl(f_21342)
static void f_21342(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21360)
static void C_ccall f_21360(C_word c,C_word *av) C_noret;
C_noret_decl(f_21370)
static void C_ccall f_21370(C_word c,C_word *av) C_noret;
C_noret_decl(f_21406)
static void C_ccall f_21406(C_word c,C_word *av) C_noret;
C_noret_decl(f_21432)
static void C_ccall f_21432(C_word c,C_word *av) 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_21606)
static void f_21606(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_21619)
static void f_21619(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21642)
static void f_21642(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21674)
static void f_21674(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21712)
static void C_ccall f_21712(C_word c,C_word *av) C_noret;
C_noret_decl(f_21746)
static void f_21746(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21769)
static void C_ccall f_21769(C_word c,C_word *av) C_noret;
C_noret_decl(f_21846)
static void C_ccall f_21846(C_word c,C_word *av) C_noret;
C_noret_decl(f_21849)
static void C_ccall f_21849(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_21878)
static void f_21878(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21952)
static void C_ccall f_21952(C_word c,C_word *av) C_noret;
C_noret_decl(f_21985)
static void C_ccall f_21985(C_word c,C_word *av) C_noret;
C_noret_decl(f_21991)
static void f_21991(C_word t0,C_word t1) C_noret;
C_noret_decl(f_22054)
static void C_ccall f_22054(C_word c,C_word *av) 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_22149)
static void C_ccall f_22149(C_word c,C_word *av) C_noret;
C_noret_decl(f_22156)
static void f_22156(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_22434)
static void C_ccall f_22434(C_word c,C_word *av) C_noret;
C_noret_decl(f_22437)
static void f_22437(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_22464)
static void f_22464(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22488)
static void C_ccall f_22488(C_word c,C_word *av) C_noret;
C_noret_decl(f_22505)
static void f_22505(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_22621)
static void C_ccall f_22621(C_word c,C_word *av) C_noret;
C_noret_decl(f_22624)
static void C_ccall f_22624(C_word c,C_word *av) C_noret;
C_noret_decl(f_22634)
static void C_ccall f_22634(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_22642)
static void C_ccall f_22642(C_word c,C_word *av) C_noret;
C_noret_decl(f_22652)
static void C_ccall f_22652(C_word c,C_word *av) C_noret;
C_noret_decl(f_22655)
static void C_ccall f_22655(C_word c,C_word *av) C_noret;
C_noret_decl(f_22663)
static void C_ccall f_22663(C_word c,C_word *av) C_noret;
C_noret_decl(f_22665)
static void C_ccall f_22665(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_22683)
static void C_ccall f_22683(C_word c,C_word *av) C_noret;
C_noret_decl(f_22694)
static void C_ccall f_22694(C_word c,C_word *av) C_noret;
C_noret_decl(f_22696)
static void C_ccall f_22696(C_word c,C_word *av) C_noret;
C_noret_decl(f_22713)
static void C_ccall f_22713(C_word c,C_word *av) C_noret;
C_noret_decl(f_22717)
static void C_ccall f_22717(C_word c,C_word *av) C_noret;
C_noret_decl(f_22721)
static void C_ccall f_22721(C_word c,C_word *av) C_noret;
C_noret_decl(f_22725)
static void C_ccall f_22725(C_word c,C_word *av) C_noret;
C_noret_decl(f_22734)
static void C_ccall f_22734(C_word c,C_word *av) C_noret;
C_noret_decl(f_22754)
static void C_ccall f_22754(C_word c,C_word *av) C_noret;
C_noret_decl(f_22762)
static void C_ccall f_22762(C_word c,C_word *av) C_noret;
C_noret_decl(f_22777)
static void C_ccall f_22777(C_word c,C_word *av) C_noret;
C_noret_decl(f_22779)
static void f_22779(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22804)
static void C_ccall f_22804(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_22816)
static void C_ccall f_22816(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_22829)
static void C_ccall f_22829(C_word c,C_word *av) C_noret;
C_noret_decl(f_22836)
static void C_ccall f_22836(C_word c,C_word *av) C_noret;
C_noret_decl(f_22847)
static void C_ccall f_22847(C_word c,C_word *av) C_noret;
C_noret_decl(f_22854)
static void C_ccall f_22854(C_word c,C_word *av) C_noret;
C_noret_decl(f_22878)
static void C_ccall f_22878(C_word c,C_word *av) C_noret;
C_noret_decl(f_22891)
static void f_22891(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_22912)
static void C_ccall f_22912(C_word c,C_word *av) C_noret;
C_noret_decl(f_22919)
static void C_ccall f_22919(C_word c,C_word *av) C_noret;
C_noret_decl(f_22924)
static void f_22924(C_word t0,C_word t1,C_word t2,C_word t3) 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_22951)
static void C_ccall f_22951(C_word c,C_word *av) C_noret;
C_noret_decl(f_22975)
static void C_ccall f_22975(C_word c,C_word *av) C_noret;
C_noret_decl(f_22981)
static void C_ccall f_22981(C_word c,C_word *av) C_noret;
C_noret_decl(f_22990)
static void C_ccall f_22990(C_word c,C_word *av) C_noret;
C_noret_decl(f_22993)
static void C_ccall f_22993(C_word c,C_word *av) C_noret;
C_noret_decl(f_22996)
static void C_ccall f_22996(C_word c,C_word *av) C_noret;
C_noret_decl(f_23010)
static void C_ccall f_23010(C_word c,C_word *av) C_noret;
C_noret_decl(f_23012)
static void C_ccall f_23012(C_word c,C_word *av) C_noret;
C_noret_decl(f_23037)
static void C_ccall f_23037(C_word c,C_word *av) C_noret;
C_noret_decl(f_23040)
static void C_ccall f_23040(C_word c,C_word *av) C_noret;
C_noret_decl(f_23081)
static void C_ccall f_23081(C_word c,C_word *av) C_noret;
C_noret_decl(f_23106)
static void C_ccall f_23106(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_23156)
static void C_ccall f_23156(C_word c,C_word *av) C_noret;
C_noret_decl(f_23158)
static void C_ccall f_23158(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_23174)
static void C_ccall f_23174(C_word c,C_word *av) C_noret;
C_noret_decl(f_23196)
static void C_ccall f_23196(C_word c,C_word *av) C_noret;
C_noret_decl(f_23201)
static void C_ccall f_23201(C_word c,C_word *av) C_noret;
C_noret_decl(f_23206)
static C_word f_23206(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_23227)
static void C_ccall f_23227(C_word c,C_word *av) C_noret;
C_noret_decl(f_23252)
static void C_ccall f_23252(C_word c,C_word *av) C_noret;
C_noret_decl(f_23258)
static void f_23258(C_word t0,C_word t1) C_noret;
C_noret_decl(f_23264)
static void C_ccall f_23264(C_word c,C_word *av) C_noret;
C_noret_decl(f_23267)
static void C_ccall f_23267(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_23342)
static void f_23342(C_word t0,C_word t1) C_noret;
C_noret_decl(f_23345)
static void C_ccall f_23345(C_word c,C_word *av) C_noret;
C_noret_decl(f_23348)
static void C_ccall f_23348(C_word c,C_word *av) C_noret;
C_noret_decl(f_23351)
static void C_ccall f_23351(C_word c,C_word *av) C_noret;
C_noret_decl(f_23390)
static void C_ccall f_23390(C_word c,C_word *av) C_noret;
C_noret_decl(f_23396)
static void f_23396(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_23406)
static void C_ccall f_23406(C_word c,C_word *av) C_noret;
C_noret_decl(f_23411)
static C_word f_23411(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_23448)
static void C_ccall f_23448(C_word c,C_word *av) C_noret;
C_noret_decl(f_23455)
static void C_ccall f_23455(C_word c,C_word *av) C_noret;
C_noret_decl(f_23477)
static void C_ccall f_23477(C_word c,C_word *av) C_noret;
C_noret_decl(f_23493)
static void C_ccall f_23493(C_word c,C_word *av) C_noret;
C_noret_decl(f_23498)
static C_word f_23498(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_23529)
static void C_ccall f_23529(C_word c,C_word *av) C_noret;
C_noret_decl(f_23551)
static void C_ccall f_23551(C_word c,C_word *av) C_noret;
C_noret_decl(f_23554)
static void C_ccall f_23554(C_word c,C_word *av) C_noret;
C_noret_decl(f_23559)
static void f_23559(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_23577)
static void C_ccall f_23577(C_word c,C_word *av) C_noret;
C_noret_decl(f_23615)
static void C_ccall f_23615(C_word c,C_word *av) C_noret;
C_noret_decl(f_23621)
static void C_ccall f_23621(C_word c,C_word *av) C_noret;
C_noret_decl(f_23643)
static void C_ccall f_23643(C_word c,C_word *av) C_noret;
C_noret_decl(f_23646)
static void C_ccall f_23646(C_word c,C_word *av) C_noret;
C_noret_decl(f_23651)
static C_word f_23651(C_word t0,C_word t1);
C_noret_decl(f_23702)
static void C_ccall f_23702(C_word c,C_word *av) C_noret;
C_noret_decl(f_23719)
static void f_23719(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_23726)
static void C_ccall f_23726(C_word c,C_word *av) C_noret;
C_noret_decl(f_23729)
static void C_ccall f_23729(C_word c,C_word *av) C_noret;
C_noret_decl(f_23732)
static void C_ccall f_23732(C_word c,C_word *av) C_noret;
C_noret_decl(f_23737)
static C_word f_23737(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_23809)
static void C_ccall f_23809(C_word c,C_word *av) C_noret;
C_noret_decl(f_23829)
static void f_23829(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_23842)
static void C_ccall f_23842(C_word c,C_word *av) C_noret;
C_noret_decl(f_23845)
static void C_ccall f_23845(C_word c,C_word *av) C_noret;
C_noret_decl(f_23848)
static void C_ccall f_23848(C_word c,C_word *av) C_noret;
C_noret_decl(f_23851)
static void C_ccall f_23851(C_word c,C_word *av) C_noret;
C_noret_decl(f_23870)
static C_word f_23870(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_23904)
static C_word f_23904(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_23982)
static void C_ccall f_23982(C_word c,C_word *av) C_noret;
C_noret_decl(f_23997)
static void C_ccall f_23997(C_word c,C_word *av) C_noret;
C_noret_decl(f_24000)
static void C_ccall f_24000(C_word c,C_word *av) C_noret;
C_noret_decl(f_24005)
static void f_24005(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_24015)
static void C_ccall f_24015(C_word c,C_word *av) C_noret;
C_noret_decl(f_24045)
static C_word f_24045(C_word t0,C_word t1);
C_noret_decl(f_24069)
static void f_24069(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_24103)
static C_word f_24103(C_word t0);
C_noret_decl(f_24126)
static void C_ccall f_24126(C_word c,C_word *av) C_noret;
C_noret_decl(f_24145)
static void C_ccall f_24145(C_word c,C_word *av) C_noret;
C_noret_decl(f_24148)
static void C_ccall f_24148(C_word c,C_word *av) C_noret;
C_noret_decl(f_24151)
static void C_ccall f_24151(C_word c,C_word *av) C_noret;
C_noret_decl(f_24156)
static C_word f_24156(C_word t0,C_word t1);
C_noret_decl(f_24189)
static void C_ccall f_24189(C_word c,C_word *av) C_noret;
C_noret_decl(f_24210)
static void f_24210(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_24214)
static void C_ccall f_24214(C_word c,C_word *av) C_noret;
C_noret_decl(f_24217)
static void C_ccall f_24217(C_word c,C_word *av) C_noret;
C_noret_decl(f_24222)
static C_word f_24222(C_word t0,C_word t1);
C_noret_decl(f_24249)
static void C_ccall f_24249(C_word c,C_word *av) C_noret;
C_noret_decl(f_24265)
static void f_24265(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_24281)
static void C_ccall f_24281(C_word c,C_word *av) C_noret;
C_noret_decl(f_24298)
static void C_ccall f_24298(C_word c,C_word *av) C_noret;
C_noret_decl(f_24312)
static void f_24312(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_24328)
static void C_ccall f_24328(C_word c,C_word *av) C_noret;
C_noret_decl(f_24341)
static void C_ccall f_24341(C_word c,C_word *av) C_noret;
C_noret_decl(f_24355)
static void f_24355(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_24371)
static void C_ccall f_24371(C_word c,C_word *av) C_noret;
C_noret_decl(f_24384)
static void C_ccall f_24384(C_word c,C_word *av) C_noret;
C_noret_decl(f_24398)
static void f_24398(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_24414)
static void C_ccall f_24414(C_word c,C_word *av) C_noret;
C_noret_decl(f_24427)
static void C_ccall f_24427(C_word c,C_word *av) C_noret;
C_noret_decl(f_24441)
static void f_24441(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_24457)
static void C_ccall f_24457(C_word c,C_word *av) C_noret;
C_noret_decl(f_24472)
static void C_ccall f_24472(C_word c,C_word *av) C_noret;
C_noret_decl(f_24474)
static void f_24474(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_24487)
static C_word f_24487(C_word t0,C_word t1);
C_noret_decl(f_24515)
static void C_ccall f_24515(C_word c,C_word *av) C_noret;
C_noret_decl(f_24528)
static void C_ccall f_24528(C_word c,C_word *av) C_noret;
C_noret_decl(f_24607)
static void C_ccall f_24607(C_word c,C_word *av) C_noret;
C_noret_decl(f_24617)
static void C_ccall f_24617(C_word c,C_word *av) C_noret;
C_noret_decl(f_24620)
static void C_ccall f_24620(C_word c,C_word *av) C_noret;
C_noret_decl(f_24700)
static void C_ccall f_24700(C_word c,C_word *av) C_noret;
C_noret_decl(f_24703)
static void C_ccall f_24703(C_word c,C_word *av) C_noret;
C_noret_decl(f_24706)
static void C_ccall f_24706(C_word c,C_word *av) C_noret;
C_noret_decl(f_24709)
static void C_ccall f_24709(C_word c,C_word *av) C_noret;
C_noret_decl(f_24712)
static void C_ccall f_24712(C_word c,C_word *av) C_noret;
C_noret_decl(f_24715)
static void C_ccall f_24715(C_word c,C_word *av) C_noret;
C_noret_decl(f_24718)
static void C_ccall f_24718(C_word c,C_word *av) C_noret;
C_noret_decl(f_24721)
static void C_ccall f_24721(C_word c,C_word *av) C_noret;
C_noret_decl(f_24724)
static void C_ccall f_24724(C_word c,C_word *av) C_noret;
C_noret_decl(f_24727)
static void C_ccall f_24727(C_word c,C_word *av) C_noret;
C_noret_decl(f_24730)
static void C_ccall f_24730(C_word c,C_word *av) C_noret;
C_noret_decl(f_24733)
static void C_ccall f_24733(C_word c,C_word *av) C_noret;
C_noret_decl(f_24736)
static void C_ccall f_24736(C_word c,C_word *av) C_noret;
C_noret_decl(f_24739)
static void C_ccall f_24739(C_word c,C_word *av) C_noret;
C_noret_decl(f_24744)
static void C_ccall f_24744(C_word c,C_word *av) C_noret;
C_noret_decl(f_24750)
static void f_24750(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_24766)
static void C_ccall f_24766(C_word c,C_word *av) C_noret;
C_noret_decl(f_24782)
static void C_ccall f_24782(C_word c,C_word *av) C_noret;
C_noret_decl(f_24788)
static void f_24788(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_24808)
static void C_ccall f_24808(C_word c,C_word *av) C_noret;
C_noret_decl(f_24812)
static void C_ccall f_24812(C_word c,C_word *av) C_noret;
C_noret_decl(f_24824)
static void C_ccall f_24824(C_word c,C_word *av) C_noret;
C_noret_decl(f_24830)
static void C_ccall f_24830(C_word c,C_word *av) C_noret;
C_noret_decl(f_24836)
static void f_24836(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_24868)
static void C_ccall f_24868(C_word c,C_word *av) C_noret;
C_noret_decl(f_24872)
static void C_ccall f_24872(C_word c,C_word *av) C_noret;
C_noret_decl(f_24882)
static void C_ccall f_24882(C_word c,C_word *av) C_noret;
C_noret_decl(f_24897)
static void f_24897(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_24907)
static void C_ccall f_24907(C_word c,C_word *av) C_noret;
C_noret_decl(f_24927)
static void f_24927(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_24934)
static void C_ccall f_24934(C_word c,C_word *av) C_noret;
C_noret_decl(f_24943)
static void C_ccall f_24943(C_word c,C_word *av) C_noret;
C_noret_decl(f_24950)
static void C_ccall f_24950(C_word c,C_word *av) C_noret;
C_noret_decl(f_24952)
static void C_ccall f_24952(C_word c,C_word *av) C_noret;
C_noret_decl(f_24958)
static void C_ccall f_24958(C_word c,C_word *av) C_noret;
C_noret_decl(f_24964)
static void C_ccall f_24964(C_word c,C_word *av) C_noret;
C_noret_decl(f_24982)
static void f_24982(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_25007)
static void C_ccall f_25007(C_word c,C_word *av) C_noret;
C_noret_decl(f_25023)
static void f_25023(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_25030)
static void C_ccall f_25030(C_word c,C_word *av) C_noret;
C_noret_decl(f_25043)
static void C_ccall f_25043(C_word c,C_word *av) C_noret;
C_noret_decl(f_25047)
static void C_ccall f_25047(C_word c,C_word *av) C_noret;
C_noret_decl(f_25051)
static void C_ccall f_25051(C_word c,C_word *av) C_noret;
C_noret_decl(f_25053)
static void C_ccall f_25053(C_word c,C_word *av) C_noret;
C_noret_decl(f_25059)
static void C_ccall f_25059(C_word c,C_word *av) C_noret;
C_noret_decl(f_25066)
static void C_ccall f_25066(C_word c,C_word *av) C_noret;
C_noret_decl(f_25070)
static void C_ccall f_25070(C_word c,C_word *av) C_noret;
C_noret_decl(f_25079)
static void C_ccall f_25079(C_word c,C_word *av) C_noret;
C_noret_decl(f_25087)
static void C_ccall f_25087(C_word c,C_word *av) C_noret;
C_noret_decl(f_25097)
static void C_ccall f_25097(C_word c,C_word *av) C_noret;
C_noret_decl(f_25103)
static void C_ccall f_25103(C_word c,C_word *av) C_noret;
C_noret_decl(f_25106)
static void C_ccall f_25106(C_word c,C_word *av) C_noret;
C_noret_decl(f_25110)
static void C_ccall f_25110(C_word c,C_word *av) C_noret;
C_noret_decl(f_25137)
static void f_25137(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_25153)
static void C_ccall f_25153(C_word c,C_word *av) C_noret;
C_noret_decl(f_25159)
static void C_ccall f_25159(C_word c,C_word *av) C_noret;
C_noret_decl(f_25182)
static void C_ccall f_25182(C_word c,C_word *av) C_noret;
C_noret_decl(f_25195)
static void C_ccall f_25195(C_word c,C_word *av) C_noret;
C_noret_decl(f_25199)
static void C_ccall f_25199(C_word c,C_word *av) C_noret;
C_noret_decl(f_25208)
static void C_ccall f_25208(C_word c,C_word *av) C_noret;
C_noret_decl(f_25254)
static void C_ccall f_25254(C_word c,C_word *av) C_noret;
C_noret_decl(f_25258)
static void C_ccall f_25258(C_word c,C_word *av) C_noret;
C_noret_decl(f_25262)
static void C_ccall f_25262(C_word c,C_word *av) C_noret;
C_noret_decl(f_25265)
static void C_ccall f_25265(C_word c,C_word *av) C_noret;
C_noret_decl(f_25268)
static void C_ccall f_25268(C_word c,C_word *av) C_noret;
C_noret_decl(f_25271)
static void C_ccall f_25271(C_word c,C_word *av) C_noret;
C_noret_decl(f_25273)
static void C_ccall f_25273(C_word c,C_word *av) C_noret;
C_noret_decl(f_25284)
static void C_ccall f_25284(C_word c,C_word *av) C_noret;
C_noret_decl(f_25295)
static void C_ccall f_25295(C_word c,C_word *av) C_noret;
C_noret_decl(f_25306)
static void C_ccall f_25306(C_word c,C_word *av) C_noret;
C_noret_decl(f_25317)
static void C_ccall f_25317(C_word c,C_word *av) C_noret;
C_noret_decl(f_25330)
static void C_ccall f_25330(C_word c,C_word *av) C_noret;
C_noret_decl(f_25332)
static C_word f_25332(C_word t0,C_word t1);
C_noret_decl(f_25338)
static C_word f_25338(C_word t0);
C_noret_decl(f_25343)
static C_word f_25343(C_word t0);
C_noret_decl(f_25378)
static void C_ccall f_25378(C_word c,C_word *av) C_noret;
C_noret_decl(f_25391)
static void C_ccall f_25391(C_word c,C_word *av) C_noret;
C_noret_decl(f_25393)
static C_word f_25393(C_word t0,C_word t1);
C_noret_decl(f_25399)
static C_word f_25399(C_word t0);
C_noret_decl(f_25404)
static C_word f_25404(C_word t0);
C_noret_decl(f_25439)
static void C_ccall f_25439(C_word c,C_word *av) C_noret;
C_noret_decl(f_25452)
static void C_ccall f_25452(C_word c,C_word *av) C_noret;
C_noret_decl(f_25454)
static C_word f_25454(C_word t0,C_word t1);
C_noret_decl(f_25460)
static C_word f_25460(C_word t0);
C_noret_decl(f_25465)
static C_word f_25465(C_word t0);
C_noret_decl(f_25500)
static void C_ccall f_25500(C_word c,C_word *av) C_noret;
C_noret_decl(f_25512)
static void C_ccall f_25512(C_word c,C_word *av) C_noret;
C_noret_decl(f_25514)
static void C_ccall f_25514(C_word c,C_word *av) C_noret;
C_noret_decl(f_25520)
static void C_ccall f_25520(C_word c,C_word *av) C_noret;
C_noret_decl(f_25527)
static void f_25527(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_25537)
static void C_ccall f_25537(C_word c,C_word *av) C_noret;
C_noret_decl(f_25540)
static void C_ccall f_25540(C_word c,C_word *av) C_noret;
C_noret_decl(f_25543)
static void C_ccall f_25543(C_word c,C_word *av) C_noret;
C_noret_decl(f_25549)
static void C_ccall f_25549(C_word c,C_word *av) C_noret;
C_noret_decl(f_25552)
static void C_ccall f_25552(C_word c,C_word *av) C_noret;
C_noret_decl(f_25559)
static void C_ccall f_25559(C_word c,C_word *av) C_noret;
C_noret_decl(f_25563)
static void C_ccall f_25563(C_word c,C_word *av) C_noret;
C_noret_decl(f_25567)
static void C_ccall f_25567(C_word c,C_word *av) C_noret;
C_noret_decl(f_25571)
static void C_ccall f_25571(C_word c,C_word *av) C_noret;
C_noret_decl(f_25577)
static void f_25577(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_25590)
static void C_ccall f_25590(C_word c,C_word *av) C_noret;
C_noret_decl(f_25634)
static void f_25634(C_word t0,C_word t1) C_noret;
C_noret_decl(f_25644)
static void f_25644(C_word t0,C_word t1) C_noret;
C_noret_decl(f_25757)
static void f_25757(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_25761)
static void C_ccall f_25761(C_word c,C_word *av) C_noret;
C_noret_decl(f_25794)
static void C_ccall f_25794(C_word c,C_word *av) C_noret;
C_noret_decl(f_25800)
static void C_ccall f_25800(C_word c,C_word *av) C_noret;
C_noret_decl(f_25806)
static void C_ccall f_25806(C_word c,C_word *av) C_noret;
C_noret_decl(f_25812)
static void C_ccall f_25812(C_word c,C_word *av) C_noret;
C_noret_decl(f_25818)
static void C_ccall f_25818(C_word c,C_word *av) C_noret;
C_noret_decl(f_25822)
static void C_ccall f_25822(C_word c,C_word *av) C_noret;
C_noret_decl(f_25827)
static void C_ccall f_25827(C_word c,C_word *av) C_noret;
C_noret_decl(f_25833)
static void C_ccall f_25833(C_word c,C_word *av) C_noret;
C_noret_decl(f_25837)
static void C_ccall f_25837(C_word c,C_word *av) C_noret;
C_noret_decl(f_25842)
static void C_ccall f_25842(C_word c,C_word *av) C_noret;
C_noret_decl(f_25846)
static void C_ccall f_25846(C_word c,C_word *av) C_noret;
C_noret_decl(f_25851)
static void C_ccall f_25851(C_word c,C_word *av) C_noret;
C_noret_decl(f_25857)
static void C_ccall f_25857(C_word c,C_word *av) C_noret;
C_noret_decl(f_25861)
static void C_ccall f_25861(C_word c,C_word *av) C_noret;
C_noret_decl(f_25866)
static void C_ccall f_25866(C_word c,C_word *av) C_noret;
C_noret_decl(f_25870)
static void C_ccall f_25870(C_word c,C_word *av) C_noret;
C_noret_decl(f_25875)
static void C_ccall f_25875(C_word c,C_word *av) C_noret;
C_noret_decl(f_25880)
static void C_ccall f_25880(C_word c,C_word *av) C_noret;
C_noret_decl(f_25886)
static void C_ccall f_25886(C_word c,C_word *av) C_noret;
C_noret_decl(f_25890)
static void C_ccall f_25890(C_word c,C_word *av) C_noret;
C_noret_decl(f_25895)
static void C_ccall f_25895(C_word c,C_word *av) C_noret;
C_noret_decl(f_25900)
static void C_ccall f_25900(C_word c,C_word *av) C_noret;
C_noret_decl(f_25904)
static void C_ccall f_25904(C_word c,C_word *av) C_noret;
C_noret_decl(f_25909)
static void C_ccall f_25909(C_word c,C_word *av) C_noret;
C_noret_decl(f_25914)
static void C_ccall f_25914(C_word c,C_word *av) C_noret;
C_noret_decl(f_25920)
static void C_ccall f_25920(C_word c,C_word *av) C_noret;
C_noret_decl(f_25924)
static void C_ccall f_25924(C_word c,C_word *av) C_noret;
C_noret_decl(f_25929)
static void C_ccall f_25929(C_word c,C_word *av) C_noret;
C_noret_decl(f_25934)
static void C_ccall f_25934(C_word c,C_word *av) C_noret;
C_noret_decl(f_25939)
static void C_ccall f_25939(C_word c,C_word *av) C_noret;
C_noret_decl(f_25960)
static void C_ccall f_25960(C_word c,C_word *av) C_noret;
C_noret_decl(f_25967)
static void C_ccall f_25967(C_word c,C_word *av) C_noret;
C_noret_decl(f_25973)
static void C_ccall f_25973(C_word c,C_word *av) C_noret;
C_noret_decl(f_25991)
static void C_ccall f_25991(C_word c,C_word *av) C_noret;
C_noret_decl(f_26000)
static void C_ccall f_26000(C_word c,C_word *av) C_noret;
C_noret_decl(f_26013)
static void f_26013(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_26021)
static void C_ccall f_26021(C_word c,C_word *av) C_noret;
C_noret_decl(f_26026)
static void f_26026(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_26063)
static void C_ccall f_26063(C_word c,C_word *av) C_noret;
C_noret_decl(f_26075)
static void C_ccall f_26075(C_word c,C_word *av) C_noret;
C_noret_decl(f_26085)
static void f_26085(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_26101)
static void C_ccall f_26101(C_word c,C_word *av) C_noret;
C_noret_decl(f_26114)
static void C_ccall f_26114(C_word c,C_word *av) C_noret;
C_noret_decl(f_26124)
static void C_ccall f_26124(C_word c,C_word *av) C_noret;
C_noret_decl(f_26130)
static void C_ccall f_26130(C_word c,C_word *av) C_noret;
C_noret_decl(f_26143)
static void C_ccall f_26143(C_word c,C_word *av) C_noret;
C_noret_decl(f_26149)
static void C_ccall f_26149(C_word c,C_word *av) C_noret;
C_noret_decl(f_26156)
static void C_ccall f_26156(C_word c,C_word *av) C_noret;
C_noret_decl(f_26163)
static void C_ccall f_26163(C_word c,C_word *av) C_noret;
C_noret_decl(f_26167)
static void C_ccall f_26167(C_word c,C_word *av) C_noret;
C_noret_decl(f_26170)
static void C_ccall f_26170(C_word c,C_word *av) C_noret;
C_noret_decl(f_26180)
static void C_ccall f_26180(C_word c,C_word *av) C_noret;
C_noret_decl(f_26184)
static void C_ccall f_26184(C_word c,C_word *av) C_noret;
C_noret_decl(f_26192)
static void C_ccall f_26192(C_word c,C_word *av) C_noret;
C_noret_decl(f_26195)
static void C_ccall f_26195(C_word c,C_word *av) C_noret;
C_noret_decl(f_26202)
static void C_ccall f_26202(C_word c,C_word *av) C_noret;
C_noret_decl(f_26205)
static void C_ccall f_26205(C_word c,C_word *av) C_noret;
C_noret_decl(f_26208)
static void C_ccall f_26208(C_word c,C_word *av) C_noret;
C_noret_decl(f_26211)
static void C_ccall f_26211(C_word c,C_word *av) C_noret;
C_noret_decl(f_26219)
static void C_ccall f_26219(C_word c,C_word *av) C_noret;
C_noret_decl(f_26227)
static void C_ccall f_26227(C_word c,C_word *av) C_noret;
C_noret_decl(f_26229)
static void C_ccall f_26229(C_word c,C_word *av) C_noret;
C_noret_decl(f_26245)
static void C_ccall f_26245(C_word c,C_word *av) C_noret;
C_noret_decl(f_26272)
static void C_ccall f_26272(C_word c,C_word *av) C_noret;
C_noret_decl(f_26276)
static void C_ccall f_26276(C_word c,C_word *av) C_noret;
C_noret_decl(f_26280)
static void C_ccall f_26280(C_word c,C_word *av) C_noret;
C_noret_decl(f_26284)
static void C_ccall f_26284(C_word c,C_word *av) C_noret;
C_noret_decl(f_26288)
static void C_ccall f_26288(C_word c,C_word *av) C_noret;
C_noret_decl(f_26292)
static void C_ccall f_26292(C_word c,C_word *av) C_noret;
C_noret_decl(f_26296)
static void C_ccall f_26296(C_word c,C_word *av) C_noret;
C_noret_decl(f_26300)
static void C_ccall f_26300(C_word c,C_word *av) C_noret;
C_noret_decl(f_26304)
static void C_ccall f_26304(C_word c,C_word *av) C_noret;
C_noret_decl(f_26308)
static void C_ccall f_26308(C_word c,C_word *av) C_noret;
C_noret_decl(f_26312)
static void C_ccall f_26312(C_word c,C_word *av) C_noret;
C_noret_decl(f_26316)
static void C_ccall f_26316(C_word c,C_word *av) C_noret;
C_noret_decl(f_26320)
static void C_ccall f_26320(C_word c,C_word *av) C_noret;
C_noret_decl(f_26324)
static void C_ccall f_26324(C_word c,C_word *av) C_noret;
C_noret_decl(f_26328)
static void C_ccall f_26328(C_word c,C_word *av) C_noret;
C_noret_decl(f_26332)
static void C_ccall f_26332(C_word c,C_word *av) C_noret;
C_noret_decl(f_26336)
static void C_ccall f_26336(C_word c,C_word *av) C_noret;
C_noret_decl(f_26340)
static void C_ccall f_26340(C_word c,C_word *av) C_noret;
C_noret_decl(f_26347)
static void C_ccall f_26347(C_word c,C_word *av) C_noret;
C_noret_decl(f_26354)
static void C_ccall f_26354(C_word c,C_word *av) C_noret;
C_noret_decl(f_26355)
static void f_26355(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_26359)
static void f_26359(C_word t0,C_word t1) C_noret;
C_noret_decl(f_26362)
static void C_ccall f_26362(C_word c,C_word *av) C_noret;
C_noret_decl(f_26378)
static void C_ccall f_26378(C_word c,C_word *av) C_noret;
C_noret_decl(f_26389)
static void f_26389(C_word t0,C_word t1) C_noret;
C_noret_decl(f_26397)
static void C_ccall f_26397(C_word c,C_word *av) C_noret;
C_noret_decl(f_26409)
static void f_26409(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_26418)
static void f_26418(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_26423)
static void f_26423(C_word t0,C_word t1) C_noret;
C_noret_decl(f_26479)
static void C_ccall f_26479(C_word c,C_word *av) C_noret;
C_noret_decl(f_26493)
static void C_ccall f_26493(C_word c,C_word *av) C_noret;
C_noret_decl(f_26505)
static void C_ccall f_26505(C_word c,C_word *av) C_noret;
C_noret_decl(f_26511)
static void C_ccall f_26511(C_word c,C_word *av) C_noret;
C_noret_decl(f_26536)
static void C_ccall f_26536(C_word c,C_word *av) C_noret;
C_noret_decl(f_26561)
static void C_ccall f_26561(C_word c,C_word *av) C_noret;
C_noret_decl(f_26579)
static void C_ccall f_26579(C_word c,C_word *av) C_noret;
C_noret_decl(f_26583)
static void C_ccall f_26583(C_word c,C_word *av) C_noret;
C_noret_decl(f_26639)
static void C_ccall f_26639(C_word c,C_word *av) C_noret;
C_noret_decl(f_26648)
static void C_ccall f_26648(C_word c,C_word *av) C_noret;
C_noret_decl(f_26661)
static void C_ccall f_26661(C_word c,C_word *av) C_noret;
C_noret_decl(f_26673)
static void C_ccall f_26673(C_word c,C_word *av) C_noret;
C_noret_decl(f_26691)
static void C_ccall f_26691(C_word c,C_word *av) C_noret;
C_noret_decl(f_26711)
static void C_ccall f_26711(C_word c,C_word *av) C_noret;
C_noret_decl(f_26714)
static void C_ccall f_26714(C_word c,C_word *av) C_noret;
C_noret_decl(f_26719)
static void C_ccall f_26719(C_word c,C_word *av) C_noret;
C_noret_decl(f_26721)
static void C_ccall f_26721(C_word c,C_word *av) C_noret;
C_noret_decl(f_26729)
static void C_ccall f_26729(C_word c,C_word *av) C_noret;
C_noret_decl(f_26733)
static void C_ccall f_26733(C_word c,C_word *av) C_noret;
C_noret_decl(f_26737)
static void C_ccall f_26737(C_word c,C_word *av) C_noret;
C_noret_decl(f_26741)
static void C_ccall f_26741(C_word c,C_word *av) C_noret;
C_noret_decl(f_26745)
static void C_ccall f_26745(C_word c,C_word *av) C_noret;
C_noret_decl(f_26747)
static void C_ccall f_26747(C_word c,C_word *av) C_noret;
C_noret_decl(f_26755)
static void C_ccall f_26755(C_word c,C_word *av) C_noret;
C_noret_decl(f_26758)
static void C_ccall f_26758(C_word c,C_word *av) C_noret;
C_noret_decl(f_26768)
static void C_ccall f_26768(C_word c,C_word *av) C_noret;
C_noret_decl(f_26770)
static void C_ccall f_26770(C_word c,C_word *av) C_noret;
C_noret_decl(f_26778)
static void C_ccall f_26778(C_word c,C_word *av) C_noret;
C_noret_decl(f_26781)
static void C_ccall f_26781(C_word c,C_word *av) C_noret;
C_noret_decl(f_26791)
static void C_ccall f_26791(C_word c,C_word *av) C_noret;
C_noret_decl(f_26793)
static void C_ccall f_26793(C_word c,C_word *av) C_noret;
C_noret_decl(f_26800)
static void C_ccall f_26800(C_word c,C_word *av) C_noret;
C_noret_decl(f_26803)
static void C_ccall f_26803(C_word c,C_word *av) C_noret;
C_noret_decl(f_26806)
static void C_ccall f_26806(C_word c,C_word *av) C_noret;
C_noret_decl(f_26809)
static void C_ccall f_26809(C_word c,C_word *av) C_noret;
C_noret_decl(f_26811)
static void C_ccall f_26811(C_word c,C_word *av) C_noret;
C_noret_decl(f_26817)
static void f_26817(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_26826)
static void f_26826(C_word t0,C_word t1) C_noret;
C_noret_decl(f_26834)
static void C_ccall f_26834(C_word c,C_word *av) C_noret;
C_noret_decl(f_26836)
static void f_26836(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_26850)
static void C_ccall f_26850(C_word c,C_word *av) C_noret;
C_noret_decl(f_26863)
static void f_26863(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_26867)
static void C_ccall f_26867(C_word c,C_word *av) C_noret;
C_noret_decl(f_26872)
static void f_26872(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_26876)
static void C_ccall f_26876(C_word c,C_word *av) C_noret;
C_noret_decl(f_26887)
static C_word f_26887(C_word *a,C_word t0,C_word t1,C_word t2);
C_noret_decl(f_26898)
static void f_26898(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_26902)
static void C_ccall f_26902(C_word c,C_word *av) C_noret;
C_noret_decl(f_26926)
static void f_26926(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_26932)
static void f_26932(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_26942)
static void C_ccall f_26942(C_word c,C_word *av) C_noret;
C_noret_decl(f_26961)
static void C_ccall f_26961(C_word c,C_word *av) C_noret;
C_noret_decl(f_26985)
static void C_ccall f_26985(C_word c,C_word *av) C_noret;
C_noret_decl(f_27007)
static void f_27007(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_27020)
static void C_ccall f_27020(C_word c,C_word *av) C_noret;
C_noret_decl(f_27040)
static void C_ccall f_27040(C_word c,C_word *av) C_noret;
C_noret_decl(f_27046)
static void f_27046(C_word t0,C_word t1) C_noret;
C_noret_decl(f_27049)
static void f_27049(C_word t0,C_word t1) C_noret;
C_noret_decl(f_27057)
static void C_ccall f_27057(C_word c,C_word *av) C_noret;
C_noret_decl(f_27059)
static void f_27059(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_27072)
static void C_ccall f_27072(C_word c,C_word *av) C_noret;
C_noret_decl(f_27079)
static void C_ccall f_27079(C_word c,C_word *av) C_noret;
C_noret_decl(f_27088)
static void C_ccall f_27088(C_word c,C_word *av) C_noret;
C_noret_decl(f_27095)
static void C_ccall f_27095(C_word c,C_word *av) C_noret;
C_noret_decl(f_27097)
static void f_27097(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_27103)
static void f_27103(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_27113)
static void C_ccall f_27113(C_word c,C_word *av) C_noret;
C_noret_decl(f_27116)
static void C_ccall f_27116(C_word c,C_word *av) C_noret;
C_noret_decl(f_27126)
static void C_ccall f_27126(C_word c,C_word *av) C_noret;
C_noret_decl(f_27129)
static void C_ccall f_27129(C_word c,C_word *av) C_noret;
C_noret_decl(f_27157)
static void f_27157(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_27160)
static void f_27160(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_27164)
static void C_ccall f_27164(C_word c,C_word *av) C_noret;
C_noret_decl(f_27167)
static void C_ccall f_27167(C_word c,C_word *av) C_noret;
C_noret_decl(f_27177)
static void C_ccall f_27177(C_word c,C_word *av) C_noret;
C_noret_decl(f_27179)
static C_word f_27179(C_word t0);
C_noret_decl(f_27183)
static void f_27183(C_word t0,C_word t1) C_noret;
C_noret_decl(f_27192)
static void f_27192(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_27196)
static void C_ccall f_27196(C_word c,C_word *av) C_noret;
C_noret_decl(f_27214)
static void C_ccall f_27214(C_word c,C_word *av) C_noret;
C_noret_decl(f_27235)
static void C_ccall f_27235(C_word c,C_word *av) C_noret;
C_noret_decl(f_27247)
static void f_27247(C_word t0,C_word t1) C_noret;
C_noret_decl(f_27258)
static void C_ccall f_27258(C_word c,C_word *av) C_noret;
C_noret_decl(f_27261)
static void C_ccall f_27261(C_word c,C_word *av) C_noret;
C_noret_decl(f_27297)
static void f_27297(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_27305)
static void C_ccall f_27305(C_word c,C_word *av) C_noret;
C_noret_decl(f_27307)
static void f_27307(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_27324)
static void C_ccall f_27324(C_word c,C_word *av) C_noret;
C_noret_decl(f_27337)
static void C_ccall f_27337(C_word c,C_word *av) C_noret;
C_noret_decl(f_27354)
static void C_ccall f_27354(C_word c,C_word *av) C_noret;
C_noret_decl(f_27371)
static void C_ccall f_27371(C_word c,C_word *av) C_noret;
C_noret_decl(f_27388)
static void C_ccall f_27388(C_word c,C_word *av) C_noret;
C_noret_decl(f_27405)
static void C_ccall f_27405(C_word c,C_word *av) C_noret;
C_noret_decl(f_27426)
static void C_ccall f_27426(C_word c,C_word *av) C_noret;
C_noret_decl(f_27447)
static void C_ccall f_27447(C_word c,C_word *av) C_noret;
C_noret_decl(f_27464)
static void C_ccall f_27464(C_word c,C_word *av) C_noret;
C_noret_decl(f_27471)
static void C_ccall f_27471(C_word c,C_word *av) C_noret;
C_noret_decl(f_27479)
static void C_ccall f_27479(C_word c,C_word *av) C_noret;
C_noret_decl(f_27488)
static void C_ccall f_27488(C_word c,C_word *av) C_noret;
C_noret_decl(f_27495)
static void C_ccall f_27495(C_word c,C_word *av) C_noret;
C_noret_decl(f_27503)
static void C_ccall f_27503(C_word c,C_word *av) C_noret;
C_noret_decl(f_27512)
static void C_ccall f_27512(C_word c,C_word *av) C_noret;
C_noret_decl(f_27519)
static void C_ccall f_27519(C_word c,C_word *av) C_noret;
C_noret_decl(f_27527)
static void C_ccall f_27527(C_word c,C_word *av) C_noret;
C_noret_decl(f_27536)
static void f_27536(C_word t0,C_word t1) C_noret;
C_noret_decl(f_27543)
static void C_ccall f_27543(C_word c,C_word *av) C_noret;
C_noret_decl(f_27556)
static void f_27556(C_word t0,C_word t1) C_noret;
C_noret_decl(f_27561)
static void f_27561(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_27578)
static void C_ccall f_27578(C_word c,C_word *av) C_noret;
C_noret_decl(f_27593)
static void C_ccall f_27593(C_word c,C_word *av) C_noret;
C_noret_decl(f_27606)
static void C_ccall f_27606(C_word c,C_word *av) C_noret;
C_noret_decl(f_27628)
static void C_ccall f_27628(C_word c,C_word *av) C_noret;
C_noret_decl(f_27631)
static void C_ccall f_27631(C_word c,C_word *av) C_noret;
C_noret_decl(f_27660)
static void f_27660(C_word t0,C_word t1) C_noret;
C_noret_decl(f_27663)
static void C_ccall f_27663(C_word c,C_word *av) C_noret;
C_noret_decl(f_27670)
static void C_ccall f_27670(C_word c,C_word *av) C_noret;
C_noret_decl(f_27686)
static void C_ccall f_27686(C_word c,C_word *av) C_noret;
C_noret_decl(f_27697)
static void C_ccall f_27697(C_word c,C_word *av) C_noret;
C_noret_decl(f_27704)
static void C_ccall f_27704(C_word c,C_word *av) C_noret;
C_noret_decl(f_27802)
static void C_ccall f_27802(C_word c,C_word *av) C_noret;
C_noret_decl(f_27808)
static void f_27808(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_27817)
static void f_27817(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_27831)
static void C_ccall f_27831(C_word c,C_word *av) C_noret;
C_noret_decl(f_27834)
static void C_ccall f_27834(C_word c,C_word *av) C_noret;
C_noret_decl(f_27845)
static void C_ccall f_27845(C_word c,C_word *av) C_noret;
C_noret_decl(f_27847)
static void C_ccall f_27847(C_word c,C_word *av) C_noret;
C_noret_decl(f_27850)
static void C_ccall f_27850(C_word c,C_word *av) C_noret;
C_noret_decl(f_27867)
static void C_ccall f_27867(C_word c,C_word *av) C_noret;
C_noret_decl(f_27872)
static void f_27872(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_27876)
static void C_ccall f_27876(C_word c,C_word *av) C_noret;
C_noret_decl(f_27879)
static void f_27879(C_word t0,C_word t1) C_noret;
C_noret_decl(f_27882)
static void C_ccall f_27882(C_word c,C_word *av) C_noret;
C_noret_decl(f_27892)
static void C_ccall f_27892(C_word c,C_word *av) C_noret;
C_noret_decl(f_27910)
static void C_ccall f_27910(C_word c,C_word *av) C_noret;
C_noret_decl(f_27913)
static void C_ccall f_27913(C_word c,C_word *av) C_noret;
C_noret_decl(f_27922)
static void f_27922(C_word t0,C_word t1) C_noret;
C_noret_decl(f_27925)
static void C_ccall f_27925(C_word c,C_word *av) C_noret;
C_noret_decl(f_27928)
static void C_ccall f_27928(C_word c,C_word *av) C_noret;
C_noret_decl(f_27934)
static void C_ccall f_27934(C_word c,C_word *av) C_noret;
C_noret_decl(f_27947)
static void C_ccall f_27947(C_word c,C_word *av) C_noret;
C_noret_decl(f_27951)
static void C_ccall f_27951(C_word c,C_word *av) C_noret;
C_noret_decl(f_27955)
static void C_ccall f_27955(C_word c,C_word *av) C_noret;
C_noret_decl(f_27966)
static void C_ccall f_27966(C_word c,C_word *av) C_noret;
C_noret_decl(f_27970)
static void C_ccall f_27970(C_word c,C_word *av) C_noret;
C_noret_decl(f_27973)
static void C_ccall f_27973(C_word c,C_word *av) C_noret;
C_noret_decl(f_28001)
static void C_ccall f_28001(C_word c,C_word *av) C_noret;
C_noret_decl(f_28056)
static void C_ccall f_28056(C_word c,C_word *av) C_noret;
C_noret_decl(f_28060)
static void C_ccall f_28060(C_word c,C_word *av) C_noret;
C_noret_decl(f_28067)
static void C_ccall f_28067(C_word c,C_word *av) C_noret;
C_noret_decl(f_28069)
static void f_28069(C_word t0,C_word t1) C_noret;
C_noret_decl(f_28073)
static void C_ccall f_28073(C_word c,C_word *av) C_noret;
C_noret_decl(f_28087)
static void f_28087(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_28093)
static void C_ccall f_28093(C_word c,C_word *av) C_noret;
C_noret_decl(f_28100)
static void C_ccall f_28100(C_word c,C_word *av) C_noret;
C_noret_decl(f_28107)
static void C_ccall f_28107(C_word c,C_word *av) C_noret;
C_noret_decl(f_28127)
static void C_ccall f_28127(C_word c,C_word *av) C_noret;
C_noret_decl(f_28156)
static void f_28156(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_28166)
static void C_ccall f_28166(C_word c,C_word *av) C_noret;
C_noret_decl(f_28169)
static void C_ccall f_28169(C_word c,C_word *av) C_noret;
C_noret_decl(f_28205)
static void C_ccall f_28205(C_word c,C_word *av) C_noret;
C_noret_decl(f_28207)
static void f_28207(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_28217)
static void C_ccall f_28217(C_word c,C_word *av) C_noret;
C_noret_decl(f_28220)
static void C_ccall f_28220(C_word c,C_word *av) C_noret;
C_noret_decl(f_28272)
static void C_ccall f_28272(C_word c,C_word *av) C_noret;
C_noret_decl(f_28274)
static void f_28274(C_word t0,C_word t1) C_noret;
C_noret_decl(f_28282)
static void C_ccall f_28282(C_word c,C_word *av) C_noret;
C_noret_decl(f_28284)
static void f_28284(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_28294)
static void f_28294(C_word t0,C_word t1) C_noret;
C_noret_decl(f_28309)
static void C_ccall f_28309(C_word c,C_word *av) C_noret;
C_noret_decl(f_28316)
static void C_ccall f_28316(C_word c,C_word *av) C_noret;
C_noret_decl(f_28335)
static void f_28335(C_word t0,C_word t1) C_noret;
C_noret_decl(f_28343)
static void C_ccall f_28343(C_word c,C_word *av) C_noret;
C_noret_decl(f_28345)
static void f_28345(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_28361)
static void C_ccall f_28361(C_word c,C_word *av) C_noret;
C_noret_decl(f_28368)
static void C_ccall f_28368(C_word c,C_word *av) C_noret;
C_noret_decl(f_28381)
static void f_28381(C_word t0,C_word t1) C_noret;
C_noret_decl(f_28387)
static void C_ccall f_28387(C_word c,C_word *av) C_noret;
C_noret_decl(f_28391)
static void C_ccall f_28391(C_word c,C_word *av) C_noret;
C_noret_decl(f_28398)
static void C_ccall f_28398(C_word c,C_word *av) C_noret;
C_noret_decl(f_28406)
static void f_28406(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_28411)
static void f_28411(C_word t0,C_word t1) C_noret;
C_noret_decl(f_28416)
static void f_28416(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_28420)
static void C_ccall f_28420(C_word c,C_word *av) C_noret;
C_noret_decl(f_28429)
static void f_28429(C_word t0,C_word t1) C_noret;
C_noret_decl(f_28435)
static void f_28435(C_word t0,C_word t1) C_noret;
C_noret_decl(f_28442)
static void C_ccall f_28442(C_word c,C_word *av) C_noret;
C_noret_decl(f_28459)
static void C_ccall f_28459(C_word c,C_word *av) C_noret;
C_noret_decl(f_28465)
static void f_28465(C_word t0,C_word t1) C_noret;
C_noret_decl(f_28475)
static void C_ccall f_28475(C_word c,C_word *av) C_noret;
C_noret_decl(f_28526)
static void C_ccall f_28526(C_word c,C_word *av) C_noret;
C_noret_decl(f_28535)
static void C_ccall f_28535(C_word c,C_word *av) C_noret;
C_noret_decl(f_28542)
static void C_ccall f_28542(C_word c,C_word *av) C_noret;
C_noret_decl(f_28546)
static void C_ccall f_28546(C_word c,C_word *av) C_noret;
C_noret_decl(f_28550)
static void C_ccall f_28550(C_word c,C_word *av) C_noret;
C_noret_decl(f_28559)
static void C_ccall f_28559(C_word c,C_word *av) C_noret;
C_noret_decl(f_28570)
static void C_ccall f_28570(C_word c,C_word *av) C_noret;
C_noret_decl(f_28592)
static void C_ccall f_28592(C_word c,C_word *av) C_noret;
C_noret_decl(f_28648)
static void C_ccall f_28648(C_word c,C_word *av) C_noret;
C_noret_decl(f_28652)
static void C_ccall f_28652(C_word c,C_word *av) C_noret;
C_noret_decl(f_28654)
static void f_28654(C_word t0,C_word t1) C_noret;
C_noret_decl(f_28658)
static void C_ccall f_28658(C_word c,C_word *av) C_noret;
C_noret_decl(f_28661)
static void C_ccall f_28661(C_word c,C_word *av) C_noret;
C_noret_decl(f_28673)
static void C_ccall f_28673(C_word c,C_word *av) C_noret;
C_noret_decl(f_28693)
static void C_ccall f_28693(C_word c,C_word *av) C_noret;
C_noret_decl(f_28699)
static void C_ccall f_28699(C_word c,C_word *av) C_noret;
C_noret_decl(f_28709)
static void C_ccall f_28709(C_word c,C_word *av) C_noret;
C_noret_decl(f_28846)
static void f_28846(C_word t0,C_word t1) C_noret;
C_noret_decl(f_28853)
static void C_ccall f_28853(C_word c,C_word *av) C_noret;
C_noret_decl(f_28871)
static void f_28871(C_word t0,C_word t1) C_noret;
C_noret_decl(f_28877)
static void f_28877(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_28881)
static void C_ccall f_28881(C_word c,C_word *av) C_noret;
C_noret_decl(f_28917)
static void C_ccall f_28917(C_word c,C_word *av) C_noret;
C_noret_decl(f_28940)
static void C_ccall f_28940(C_word c,C_word *av) C_noret;
C_noret_decl(f_28958)
static void f_28958(C_word t0,C_word t1) C_noret;
C_noret_decl(f_28962)
static void C_ccall f_28962(C_word c,C_word *av) C_noret;
C_noret_decl(f_28969)
static void C_ccall f_28969(C_word c,C_word *av) C_noret;
C_noret_decl(f_28971)
static void f_28971(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_28975)
static void C_ccall f_28975(C_word c,C_word *av) C_noret;
C_noret_decl(f_28986)
static void C_ccall f_28986(C_word c,C_word *av) C_noret;
C_noret_decl(f_29006)
static void C_ccall f_29006(C_word c,C_word *av) C_noret;
C_noret_decl(f_29009)
static void C_ccall f_29009(C_word c,C_word *av) C_noret;
C_noret_decl(f_29012)
static void C_ccall f_29012(C_word c,C_word *av) C_noret;
C_noret_decl(f_29029)
static void C_ccall f_29029(C_word c,C_word *av) C_noret;
C_noret_decl(f_29038)
static void C_ccall f_29038(C_word c,C_word *av) C_noret;
C_noret_decl(f_29060)
static void C_ccall f_29060(C_word c,C_word *av) C_noret;
C_noret_decl(f_29072)
static void C_ccall f_29072(C_word c,C_word *av) C_noret;
C_noret_decl(f_29084)
static void C_ccall f_29084(C_word c,C_word *av) C_noret;
C_noret_decl(f_29093)
static void C_ccall f_29093(C_word c,C_word *av) C_noret;
C_noret_decl(f_29103)
static void C_ccall f_29103(C_word c,C_word *av) C_noret;
C_noret_decl(f_29112)
static void C_ccall f_29112(C_word c,C_word *av) C_noret;
C_noret_decl(f_29115)
static void C_ccall f_29115(C_word c,C_word *av) C_noret;
C_noret_decl(f_29133)
static void C_ccall f_29133(C_word c,C_word *av) C_noret;
C_noret_decl(f_29136)
static void C_ccall f_29136(C_word c,C_word *av) C_noret;
C_noret_decl(f_29157)
static void C_ccall f_29157(C_word c,C_word *av) C_noret;
C_noret_decl(f_29163)
static void C_ccall f_29163(C_word c,C_word *av) C_noret;
C_noret_decl(f_29166)
static void C_ccall f_29166(C_word c,C_word *av) C_noret;
C_noret_decl(f_29176)
static void C_ccall f_29176(C_word c,C_word *av) C_noret;
C_noret_decl(f_29191)
static void f_29191(C_word t0,C_word t1) C_noret;
C_noret_decl(f_29195)
static void f_29195(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_29201)
static void C_ccall f_29201(C_word c,C_word *av) C_noret;
C_noret_decl(f_29210)
static void C_ccall f_29210(C_word c,C_word *av) C_noret;
C_noret_decl(f_29241)
static void C_ccall f_29241(C_word c,C_word *av) C_noret;
C_noret_decl(f_29266)
static void C_ccall f_29266(C_word c,C_word *av) C_noret;
C_noret_decl(f_29283)
static void C_ccall f_29283(C_word c,C_word *av) C_noret;
C_noret_decl(f_29292)
static void C_ccall f_29292(C_word c,C_word *av) C_noret;
C_noret_decl(f_29317)
static void C_ccall f_29317(C_word c,C_word *av) C_noret;
C_noret_decl(f_29329)
static void C_ccall f_29329(C_word c,C_word *av) C_noret;
C_noret_decl(f_29341)
static void C_ccall f_29341(C_word c,C_word *av) C_noret;
C_noret_decl(f_29353)
static void C_ccall f_29353(C_word c,C_word *av) C_noret;
C_noret_decl(f_29365)
static void C_ccall f_29365(C_word c,C_word *av) C_noret;
C_noret_decl(f_29377)
static void C_ccall f_29377(C_word c,C_word *av) C_noret;
C_noret_decl(f_29398)
static void C_ccall f_29398(C_word c,C_word *av) C_noret;
C_noret_decl(f_29410)
static void C_ccall f_29410(C_word c,C_word *av) C_noret;
C_noret_decl(f_29413)
static void C_ccall f_29413(C_word c,C_word *av) C_noret;
C_noret_decl(f_29425)
static void C_ccall f_29425(C_word c,C_word *av) C_noret;
C_noret_decl(f_29437)
static void C_ccall f_29437(C_word c,C_word *av) C_noret;
C_noret_decl(f_29440)
static void C_ccall f_29440(C_word c,C_word *av) C_noret;
C_noret_decl(f_29452)
static void C_ccall f_29452(C_word c,C_word *av) C_noret;
C_noret_decl(f_29464)
static void C_ccall f_29464(C_word c,C_word *av) C_noret;
C_noret_decl(f_29476)
static void C_ccall f_29476(C_word c,C_word *av) C_noret;
C_noret_decl(f_29479)
static void C_ccall f_29479(C_word c,C_word *av) C_noret;
C_noret_decl(f_29484)
static void C_ccall f_29484(C_word c,C_word *av) C_noret;
C_noret_decl(f_29489)
static void C_ccall f_29489(C_word c,C_word *av) C_noret;
C_noret_decl(f_29495)
static void C_ccall f_29495(C_word c,C_word *av) C_noret;
C_noret_decl(f_29524)
static void C_ccall f_29524(C_word c,C_word *av) C_noret;
C_noret_decl(f_29536)
static void C_ccall f_29536(C_word c,C_word *av) C_noret;
C_noret_decl(f_29539)
static void C_ccall f_29539(C_word c,C_word *av) C_noret;
C_noret_decl(f_29542)
static void C_ccall f_29542(C_word c,C_word *av) C_noret;
C_noret_decl(f_29557)
static void C_ccall f_29557(C_word c,C_word *av) C_noret;
C_noret_decl(f_29566)
static void C_ccall f_29566(C_word c,C_word *av) C_noret;
C_noret_decl(f_29569)
static void C_ccall f_29569(C_word c,C_word *av) C_noret;
C_noret_decl(f_29575)
static void f_29575(C_word t0,C_word t1) C_noret;
C_noret_decl(f_29578)
static void C_ccall f_29578(C_word c,C_word *av) C_noret;
C_noret_decl(f_29584)
static void C_ccall f_29584(C_word c,C_word *av) C_noret;
C_noret_decl(f_29631)
static void C_ccall f_29631(C_word c,C_word *av) C_noret;
C_noret_decl(f_29650)
static void C_ccall f_29650(C_word c,C_word *av) C_noret;
C_noret_decl(f_29666)
static void C_ccall f_29666(C_word c,C_word *av) C_noret;
C_noret_decl(f_29672)
static void C_ccall f_29672(C_word c,C_word *av) C_noret;
C_noret_decl(f_29738)
static void C_ccall f_29738(C_word c,C_word *av) C_noret;
C_noret_decl(f_29750)
static void C_ccall f_29750(C_word c,C_word *av) C_noret;
C_noret_decl(f_29828)
static void C_ccall f_29828(C_word c,C_word *av) C_noret;
C_noret_decl(f_29898)
static void C_ccall f_29898(C_word c,C_word *av) C_noret;
C_noret_decl(f_29901)
static void C_ccall f_29901(C_word c,C_word *av) C_noret;
C_noret_decl(f_29904)
static void C_ccall f_29904(C_word c,C_word *av) C_noret;
C_noret_decl(f_29912)
static void C_ccall f_29912(C_word c,C_word *av) C_noret;
C_noret_decl(f_29922)
static void C_ccall f_29922(C_word c,C_word *av) C_noret;
C_noret_decl(f_29927)
static void C_ccall f_29927(C_word c,C_word *av) C_noret;
C_noret_decl(f_29930)
static void f_29930(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_29943)
static void f_29943(C_word t0,C_word t1) C_noret;
C_noret_decl(f_29946)
static void C_ccall f_29946(C_word c,C_word *av) C_noret;
C_noret_decl(f_29982)
static void C_ccall f_29982(C_word c,C_word *av) C_noret;
C_noret_decl(f_29998)
static void C_ccall f_29998(C_word c,C_word *av) C_noret;
C_noret_decl(f_30048)
static void C_ccall f_30048(C_word c,C_word *av) C_noret;
C_noret_decl(f_30052)
static void C_ccall f_30052(C_word c,C_word *av) C_noret;
C_noret_decl(f_30079)
static void C_ccall f_30079(C_word c,C_word *av) C_noret;
C_noret_decl(f_30085)
static void f_30085(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_30101)
static void f_30101(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_30141)
static void C_ccall f_30141(C_word c,C_word *av) C_noret;
C_noret_decl(f_30143)
static void f_30143(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_30150)
static void f_30150(C_word t0,C_word t1) C_noret;
C_noret_decl(f_30207)
static void C_ccall f_30207(C_word c,C_word *av) C_noret;
C_noret_decl(f_30214)
static void C_ccall f_30214(C_word c,C_word *av) C_noret;
C_noret_decl(f_30223)
static void C_ccall f_30223(C_word c,C_word *av) C_noret;
C_noret_decl(f_30235)
static void C_ccall f_30235(C_word c,C_word *av) C_noret;
C_noret_decl(f_30256)
static void C_ccall f_30256(C_word c,C_word *av) C_noret;
C_noret_decl(f_30271)
static void C_ccall f_30271(C_word c,C_word *av) C_noret;
C_noret_decl(f_30289)
static void C_ccall f_30289(C_word c,C_word *av) C_noret;
C_noret_decl(f_30307)
static void C_ccall f_30307(C_word c,C_word *av) C_noret;
C_noret_decl(f_30326)
static void f_30326(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_30336)
static void C_ccall f_30336(C_word c,C_word *av) C_noret;
C_noret_decl(f_30350)
static void C_ccall f_30350(C_word c,C_word *av) C_noret;
C_noret_decl(f_30353)
static void C_ccall f_30353(C_word c,C_word *av) C_noret;
C_noret_decl(f_30358)
static void C_ccall f_30358(C_word c,C_word *av) C_noret;
C_noret_decl(f_30377)
static void f_30377(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_30387)
static void C_ccall f_30387(C_word c,C_word *av) C_noret;
C_noret_decl(f_30401)
static void C_ccall f_30401(C_word c,C_word *av) C_noret;
C_noret_decl(f_30404)
static void C_ccall f_30404(C_word c,C_word *av) C_noret;
C_noret_decl(f_30411)
static void C_ccall f_30411(C_word c,C_word *av) C_noret;
C_noret_decl(f_30415)
static void C_ccall f_30415(C_word c,C_word *av) C_noret;
C_noret_decl(f_30419)
static void C_ccall f_30419(C_word c,C_word *av) C_noret;
C_noret_decl(f_30421)
static void C_ccall f_30421(C_word c,C_word *av) C_noret;
C_noret_decl(f_30428)
static void C_ccall f_30428(C_word c,C_word *av) C_noret;
C_noret_decl(f_30431)
static void C_ccall f_30431(C_word c,C_word *av) C_noret;
C_noret_decl(f_30434)
static void C_ccall f_30434(C_word c,C_word *av) C_noret;
C_noret_decl(f_30437)
static void C_ccall f_30437(C_word c,C_word *av) C_noret;
C_noret_decl(f_30439)
static void f_30439(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_30449)
static void C_ccall f_30449(C_word c,C_word *av) C_noret;
C_noret_decl(f_30455)
static void C_ccall f_30455(C_word c,C_word *av) C_noret;
C_noret_decl(f_30467)
static void C_ccall f_30467(C_word c,C_word *av) C_noret;
C_noret_decl(f_30470)
static void C_ccall f_30470(C_word c,C_word *av) C_noret;
C_noret_decl(f_30473)
static void C_ccall f_30473(C_word c,C_word *av) C_noret;
C_noret_decl(f_30490)
static void C_ccall f_30490(C_word c,C_word *av) C_noret;
C_noret_decl(f_30498)
static void f_30498(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_30522)
static void f_30522(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_30526)
static void C_ccall f_30526(C_word c,C_word *av) C_noret;
C_noret_decl(f_30539)
static void C_ccall f_30539(C_word c,C_word *av) C_noret;
C_noret_decl(f_30542)
static void C_ccall f_30542(C_word c,C_word *av) C_noret;
C_noret_decl(f_30551)
static void C_ccall f_30551(C_word c,C_word *av) C_noret;
C_noret_decl(f_30554)
static void C_ccall f_30554(C_word c,C_word *av) C_noret;
C_noret_decl(f_30582)
static void f_30582(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_30586)
static void C_ccall f_30586(C_word c,C_word *av) C_noret;
C_noret_decl(f_30595)
static void C_ccall f_30595(C_word c,C_word *av) C_noret;
C_noret_decl(f_30612)
static void f_30612(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_30619)
static void C_ccall f_30619(C_word c,C_word *av) C_noret;
C_noret_decl(f_30624)
static void f_30624(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_30648)
static void C_ccall f_30648(C_word c,C_word *av) C_noret;
C_noret_decl(f_30654)
static void C_ccall f_30654(C_word c,C_word *av) C_noret;
C_noret_decl(f_30657)
static void C_ccall f_30657(C_word c,C_word *av) C_noret;
C_noret_decl(f_30668)
static void C_ccall f_30668(C_word c,C_word *av) C_noret;
C_noret_decl(f_30671)
static void C_ccall f_30671(C_word c,C_word *av) C_noret;
C_noret_decl(f_30674)
static void C_ccall f_30674(C_word c,C_word *av) C_noret;
C_noret_decl(f_30697)
static void f_30697(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_30748)
static void f_30748(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_30823)
static void f_30823(C_word t0,C_word t1) C_noret;
C_noret_decl(f_30923)
static void C_ccall f_30923(C_word c,C_word *av) C_noret;
C_noret_decl(f_30928)
static void f_30928(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_30983)
static void C_ccall f_30983(C_word c,C_word *av) C_noret;
C_noret_decl(f_30989)
static void C_ccall f_30989(C_word c,C_word *av) C_noret;
C_noret_decl(f_30993)
static void f_30993(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_31001)
static void C_ccall f_31001(C_word c,C_word *av) C_noret;
C_noret_decl(f_31016)
static void C_ccall f_31016(C_word c,C_word *av) C_noret;
C_noret_decl(f_31023)
static void C_ccall f_31023(C_word c,C_word *av) C_noret;
C_noret_decl(f_31042)
static void C_ccall f_31042(C_word c,C_word *av) C_noret;
C_noret_decl(f_31078)
static void C_ccall f_31078(C_word c,C_word *av) C_noret;
C_noret_decl(f_31090)
static void C_ccall f_31090(C_word c,C_word *av) C_noret;
C_noret_decl(f_31096)
static void C_ccall f_31096(C_word c,C_word *av) C_noret;
C_noret_decl(f_31125)
static void C_ccall f_31125(C_word c,C_word *av) C_noret;
C_noret_decl(f_31135)
static void C_ccall f_31135(C_word c,C_word *av) C_noret;
C_noret_decl(f_31144)
static void C_ccall f_31144(C_word c,C_word *av) C_noret;
C_noret_decl(f_31153)
static void f_31153(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_31169)
static void C_ccall f_31169(C_word c,C_word *av) C_noret;
C_noret_decl(f_31207)
static void C_ccall f_31207(C_word c,C_word *av) C_noret;
C_noret_decl(f_31273)
static void C_ccall f_31273(C_word c,C_word *av) C_noret;
C_noret_decl(f_31276)
static void C_ccall f_31276(C_word c,C_word *av) C_noret;
C_noret_decl(f_31279)
static void C_ccall f_31279(C_word c,C_word *av) C_noret;
C_noret_decl(f_31286)
static void C_ccall f_31286(C_word c,C_word *av) C_noret;
C_noret_decl(f_31330)
static void C_ccall f_31330(C_word c,C_word *av) C_noret;
C_noret_decl(f_31333)
static void C_ccall f_31333(C_word c,C_word *av) C_noret;
C_noret_decl(f_31342)
static void f_31342(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_31355)
static void C_ccall f_31355(C_word c,C_word *av) C_noret;
C_noret_decl(f_31364)
static void C_ccall f_31364(C_word c,C_word *av) C_noret;
C_noret_decl(f_31374)
static void C_ccall f_31374(C_word c,C_word *av) C_noret;
C_noret_decl(f_31377)
static void C_ccall f_31377(C_word c,C_word *av) C_noret;
C_noret_decl(f_31403)
static void C_ccall f_31403(C_word c,C_word *av) C_noret;
C_noret_decl(f_31410)
static void C_ccall f_31410(C_word c,C_word *av) C_noret;
C_noret_decl(f_31426)
static void C_ccall f_31426(C_word c,C_word *av) C_noret;
C_noret_decl(f_31438)
static void C_ccall f_31438(C_word c,C_word *av) C_noret;
C_noret_decl(f_31441)
static void C_ccall f_31441(C_word c,C_word *av) C_noret;
C_noret_decl(f_31448)
static void C_ccall f_31448(C_word c,C_word *av) C_noret;
C_noret_decl(f_31457)
static void C_ccall f_31457(C_word c,C_word *av) C_noret;
C_noret_decl(f_31460)
static void C_ccall f_31460(C_word c,C_word *av) C_noret;
C_noret_decl(f_31507)
static void C_ccall f_31507(C_word c,C_word *av) C_noret;
C_noret_decl(f_31510)
static void C_ccall f_31510(C_word c,C_word *av) C_noret;
C_noret_decl(f_31519)
static void f_31519(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_31532)
static void C_ccall f_31532(C_word c,C_word *av) C_noret;
C_noret_decl(f_31535)
static void C_ccall f_31535(C_word c,C_word *av) C_noret;
C_noret_decl(f_31560)
static void C_ccall f_31560(C_word c,C_word *av) C_noret;
C_noret_decl(f_31564)
static void C_ccall f_31564(C_word c,C_word *av) C_noret;
C_noret_decl(f_31574)
static void C_ccall f_31574(C_word c,C_word *av) C_noret;
C_noret_decl(f_31577)
static void C_ccall f_31577(C_word c,C_word *av) C_noret;
C_noret_decl(f_31589)
static void C_ccall f_31589(C_word c,C_word *av) C_noret;
C_noret_decl(f_31593)
static void C_ccall f_31593(C_word c,C_word *av) C_noret;
C_noret_decl(f_31615)
static void C_ccall f_31615(C_word c,C_word *av) C_noret;
C_noret_decl(f_31617)
static void C_ccall f_31617(C_word c,C_word *av) C_noret;
C_noret_decl(f_31633)
static void C_ccall f_31633(C_word c,C_word *av) C_noret;
C_noret_decl(f_31638)
static void C_ccall f_31638(C_word c,C_word *av) C_noret;
C_noret_decl(f_31644)
static void C_ccall f_31644(C_word c,C_word *av) C_noret;
C_noret_decl(f_31650)
static void C_ccall f_31650(C_word c,C_word *av) C_noret;
C_noret_decl(f_31654)
static void C_ccall f_31654(C_word c,C_word *av) C_noret;
C_noret_decl(f_31657)
static void C_ccall f_31657(C_word c,C_word *av) C_noret;
C_noret_decl(f_31672)
static void C_ccall f_31672(C_word c,C_word *av) C_noret;
C_noret_decl(f_31675)
static void C_ccall f_31675(C_word c,C_word *av) C_noret;
C_noret_decl(f_31691)
static void C_ccall f_31691(C_word c,C_word *av) C_noret;
C_noret_decl(f_31697)
static void C_ccall f_31697(C_word c,C_word *av) C_noret;
C_noret_decl(f_31706)
static void C_ccall f_31706(C_word c,C_word *av) C_noret;
C_noret_decl(f_31712)
static void C_ccall f_31712(C_word c,C_word *av) C_noret;
C_noret_decl(f_31719)
static void C_ccall f_31719(C_word c,C_word *av) C_noret;
C_noret_decl(f_31722)
static void C_ccall f_31722(C_word c,C_word *av) C_noret;
C_noret_decl(f_31725)
static void C_ccall f_31725(C_word c,C_word *av) C_noret;
C_noret_decl(f_31734)
static void C_ccall f_31734(C_word c,C_word *av) C_noret;
C_noret_decl(f_31750)
static void C_ccall f_31750(C_word c,C_word *av) C_noret;
C_noret_decl(f_31769)
static void C_ccall f_31769(C_word c,C_word *av) C_noret;
C_noret_decl(f_31775)
static void C_ccall f_31775(C_word c,C_word *av) C_noret;
C_noret_decl(f_31781)
static void C_ccall f_31781(C_word c,C_word *av) C_noret;
C_noret_decl(f_31785)
static void C_ccall f_31785(C_word c,C_word *av) C_noret;
C_noret_decl(f_31788)
static void C_ccall f_31788(C_word c,C_word *av) C_noret;
C_noret_decl(f_31791)
static void C_ccall f_31791(C_word c,C_word *av) C_noret;
C_noret_decl(f_31795)
static void C_ccall f_31795(C_word c,C_word *av) C_noret;
C_noret_decl(f_31799)
static void C_ccall f_31799(C_word c,C_word *av) C_noret;
C_noret_decl(f_31803)
static void C_ccall f_31803(C_word c,C_word *av) C_noret;
C_noret_decl(f_31806)
static void C_ccall f_31806(C_word c,C_word *av) C_noret;
C_noret_decl(f_31809)
static void C_ccall f_31809(C_word c,C_word *av) C_noret;
C_noret_decl(f_31812)
static void C_ccall f_31812(C_word c,C_word *av) C_noret;
C_noret_decl(f_31824)
static void C_ccall f_31824(C_word c,C_word *av) C_noret;
C_noret_decl(f_31830)
static void C_ccall f_31830(C_word c,C_word *av) C_noret;
C_noret_decl(f_31834)
static void C_ccall f_31834(C_word c,C_word *av) C_noret;
C_noret_decl(f_31837)
static void C_ccall f_31837(C_word c,C_word *av) C_noret;
C_noret_decl(f_31840)
static void C_ccall f_31840(C_word c,C_word *av) C_noret;
C_noret_decl(f_31843)
static void C_ccall f_31843(C_word c,C_word *av) C_noret;
C_noret_decl(f_31846)
static void C_ccall f_31846(C_word c,C_word *av) C_noret;
C_noret_decl(f_31849)
static void C_ccall f_31849(C_word c,C_word *av) C_noret;
C_noret_decl(f_31854)
static void C_ccall f_31854(C_word c,C_word *av) C_noret;
C_noret_decl(f_31876)
static void C_ccall f_31876(C_word c,C_word *av) C_noret;
C_noret_decl(f_31882)
static void C_ccall f_31882(C_word c,C_word *av) C_noret;
C_noret_decl(f_31907)
static void C_ccall f_31907(C_word c,C_word *av) C_noret;
C_noret_decl(f_31914)
static void C_ccall f_31914(C_word c,C_word *av) C_noret;
C_noret_decl(f_31916)
static void f_31916(C_word t0,C_word t1) C_noret;
C_noret_decl(f_31923)
static void C_ccall f_31923(C_word c,C_word *av) C_noret;
C_noret_decl(f_31927)
static void f_31927(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_31934)
static void C_ccall f_31934(C_word c,C_word *av) C_noret;
C_noret_decl(f_31950)
static void f_31950(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_31954)
static void C_ccall f_31954(C_word c,C_word *av) C_noret;
C_noret_decl(f_31970)
static void f_31970(C_word t0,C_word t1) C_noret;
C_noret_decl(f_31985)
static void f_31985(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_31995)
static void C_ccall f_31995(C_word c,C_word *av) C_noret;
C_noret_decl(f_32000)
static void C_ccall f_32000(C_word c,C_word *av) C_noret;
C_noret_decl(f_32006)
static void C_ccall f_32006(C_word c,C_word *av) C_noret;
C_noret_decl(f_32020)
static void C_ccall f_32020(C_word c,C_word *av) C_noret;
C_noret_decl(f_32029)
static void C_ccall f_32029(C_word c,C_word *av) C_noret;
C_noret_decl(f_32040)
static void C_ccall f_32040(C_word c,C_word *av) C_noret;
C_noret_decl(f_32046)
static void f_32046(C_word t0,C_word t1) C_noret;
C_noret_decl(f_32049)
static void C_ccall f_32049(C_word c,C_word *av) C_noret;
C_noret_decl(f_32060)
static void C_ccall f_32060(C_word c,C_word *av) C_noret;
C_noret_decl(f_32069)
static void C_ccall f_32069(C_word c,C_word *av) C_noret;
C_noret_decl(f_32074)
static void C_ccall f_32074(C_word c,C_word *av) C_noret;
C_noret_decl(f_32080)
static void C_ccall f_32080(C_word c,C_word *av) C_noret;
C_noret_decl(f_32101)
static void C_ccall f_32101(C_word c,C_word *av) C_noret;
C_noret_decl(f_32104)
static void C_ccall f_32104(C_word c,C_word *av) C_noret;
C_noret_decl(f_32111)
static void C_ccall f_32111(C_word c,C_word *av) C_noret;
C_noret_decl(f_32118)
static void C_ccall f_32118(C_word c,C_word *av) C_noret;
C_noret_decl(f_32127)
static void C_ccall f_32127(C_word c,C_word *av) C_noret;
C_noret_decl(f_32138)
static void C_ccall f_32138(C_word c,C_word *av) C_noret;
C_noret_decl(f_32184)
static void C_ccall f_32184(C_word c,C_word *av) C_noret;
C_noret_decl(f_32188)
static void C_ccall f_32188(C_word c,C_word *av) C_noret;
C_noret_decl(f_32189)
static void f_32189(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_32199)
static void C_ccall f_32199(C_word c,C_word *av) C_noret;
C_noret_decl(f_32204)
static void f_32204(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_32214)
static void C_ccall f_32214(C_word c,C_word *av) C_noret;
C_noret_decl(f_32227)
static void C_ccall f_32227(C_word c,C_word *av) C_noret;
C_noret_decl(f_32238)
static void C_ccall f_32238(C_word c,C_word *av) C_noret;
C_noret_decl(f_32242)
static void C_ccall f_32242(C_word c,C_word *av) C_noret;
C_noret_decl(f_32246)
static void C_ccall f_32246(C_word c,C_word *av) C_noret;
C_noret_decl(f_32268)
static void C_ccall f_32268(C_word c,C_word *av) C_noret;
C_noret_decl(f_32272)
static void C_ccall f_32272(C_word c,C_word *av) C_noret;
C_noret_decl(f_32280)
static void C_ccall f_32280(C_word c,C_word *av) C_noret;
C_noret_decl(f_32296)
static void C_ccall f_32296(C_word c,C_word *av) C_noret;
C_noret_decl(f_32307)
static void f_32307(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_32326)
static void f_32326(C_word t0,C_word t1) C_noret;
C_noret_decl(f_32337)
static void C_ccall f_32337(C_word c,C_word *av) C_noret;
C_noret_decl(f_32348)
static void C_ccall f_32348(C_word c,C_word *av) C_noret;
C_noret_decl(f_32434)
static void C_ccall f_32434(C_word c,C_word *av) C_noret;
C_noret_decl(f_32444)
static void C_ccall f_32444(C_word c,C_word *av) C_noret;
C_noret_decl(f_32445)
static void f_32445(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_32458)
static void C_ccall f_32458(C_word c,C_word *av) C_noret;
C_noret_decl(f_32461)
static void C_ccall f_32461(C_word c,C_word *av) C_noret;
C_noret_decl(f_32464)
static void C_ccall f_32464(C_word c,C_word *av) C_noret;
C_noret_decl(f_32467)
static void C_ccall f_32467(C_word c,C_word *av) C_noret;
C_noret_decl(f_32475)
static void C_ccall f_32475(C_word c,C_word *av) C_noret;
C_noret_decl(f_32482)
static void f_32482(C_word t0,C_word t1) C_noret;
C_noret_decl(f_32485)
static void C_ccall f_32485(C_word c,C_word *av) C_noret;
C_noret_decl(f_32488)
static void C_ccall f_32488(C_word c,C_word *av) C_noret;
C_noret_decl(f_32511)
static void C_ccall f_32511(C_word c,C_word *av) C_noret;
C_noret_decl(f_32516)
static void f_32516(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_32526)
static void C_ccall f_32526(C_word c,C_word *av) C_noret;
C_noret_decl(f_32539)
static void C_ccall f_32539(C_word c,C_word *av) C_noret;
C_noret_decl(f_32580)
static void C_ccall f_32580(C_word c,C_word *av) C_noret;
C_noret_decl(f_32630)
static void C_ccall f_32630(C_word c,C_word *av) C_noret;
C_noret_decl(f_32633)
static void C_ccall f_32633(C_word c,C_word *av) C_noret;
C_noret_decl(f_32652)
static void f_32652(C_word t0) C_noret;
C_noret_decl(f_32657)
static void C_ccall f_32657(C_word c,C_word *av) C_noret;
C_noret_decl(f_32663)
static void C_ccall f_32663(C_word c,C_word *av) C_noret;
C_noret_decl(f_32666)
static void C_ccall f_32666(C_word c,C_word *av) C_noret;
C_noret_decl(f_32675)
static void C_ccall f_32675(C_word c,C_word *av) C_noret;
C_noret_decl(f_32681)
static void C_ccall f_32681(C_word c,C_word *av) C_noret;
C_noret_decl(f_32700)
static void f_32700(C_word t0,C_word t1) C_noret;
C_noret_decl(f_32719)
static void C_ccall f_32719(C_word c,C_word *av) C_noret;
C_noret_decl(f_32724)
static void f_32724(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_32734)
static void C_ccall f_32734(C_word c,C_word *av) C_noret;
C_noret_decl(f_32748)
static void C_ccall f_32748(C_word c,C_word *av) C_noret;
C_noret_decl(f_32755)
static void C_ccall f_32755(C_word c,C_word *av) C_noret;
C_noret_decl(f_32759)
static void C_ccall f_32759(C_word c,C_word *av) C_noret;
C_noret_decl(f_32763)
static void C_ccall f_32763(C_word c,C_word *av) C_noret;
C_noret_decl(f_32765)
static void C_ccall f_32765(C_word c,C_word *av) C_noret;
C_noret_decl(f_32768)
static void C_ccall f_32768(C_word c,C_word *av) C_noret;
C_noret_decl(f_32794)
static void C_ccall f_32794(C_word c,C_word *av) C_noret;
C_noret_decl(f_32797)
static void C_ccall f_32797(C_word c,C_word *av) C_noret;
C_noret_decl(f_32800)
static void C_ccall f_32800(C_word c,C_word *av) C_noret;
C_noret_decl(f_32807)
static void C_ccall f_32807(C_word c,C_word *av) C_noret;
C_noret_decl(f_32811)
static void C_ccall f_32811(C_word c,C_word *av) C_noret;
C_noret_decl(f_32817)
static void C_ccall f_32817(C_word c,C_word *av) C_noret;
C_noret_decl(f_32822)
static void f_32822(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_32832)
static void C_ccall f_32832(C_word c,C_word *av) C_noret;
C_noret_decl(f_32870)
static void f_32870(C_word t0,C_word t1) C_noret;
C_noret_decl(f_32873)
static void f_32873(C_word t0,C_word t1) C_noret;
C_noret_decl(f_32893)
static void f_32893(C_word t0,C_word t1) C_noret;
C_noret_decl(f_32911)
static void C_ccall f_32911(C_word c,C_word *av) C_noret;
C_noret_decl(f_33045)
static void C_ccall f_33045(C_word c,C_word *av) C_noret;
C_noret_decl(f_33062)
static void C_ccall f_33062(C_word c,C_word *av) C_noret;
C_noret_decl(f_33077)
static void C_ccall f_33077(C_word c,C_word *av) C_noret;
C_noret_decl(f_33081)
static void C_ccall f_33081(C_word c,C_word *av) C_noret;
C_noret_decl(f_33094)
static void C_ccall f_33094(C_word c,C_word *av) C_noret;
C_noret_decl(f_33102)
static void C_ccall f_33102(C_word c,C_word *av) C_noret;
C_noret_decl(f_33105)
static void C_ccall f_33105(C_word c,C_word *av) C_noret;
C_noret_decl(f_33109)
static void C_ccall f_33109(C_word c,C_word *av) C_noret;
C_noret_decl(f_33148)
static void C_ccall f_33148(C_word c,C_word *av) C_noret;
C_noret_decl(f_33151)
static void C_ccall f_33151(C_word c,C_word *av) C_noret;
C_noret_decl(f_33158)
static void C_ccall f_33158(C_word c,C_word *av) C_noret;
C_noret_decl(f_33162)
static void C_ccall f_33162(C_word c,C_word *av) C_noret;
C_noret_decl(f_33188)
static void C_ccall f_33188(C_word c,C_word *av) C_noret;
C_noret_decl(f_33219)
static void C_ccall f_33219(C_word c,C_word *av) C_noret;
C_noret_decl(f_33222)
static void C_ccall f_33222(C_word c,C_word *av) C_noret;
C_noret_decl(f_33234)
static void C_ccall f_33234(C_word c,C_word *av) C_noret;
C_noret_decl(f_33237)
static void C_ccall f_33237(C_word c,C_word *av) C_noret;
C_noret_decl(f_33240)
static void C_ccall f_33240(C_word c,C_word *av) C_noret;
C_noret_decl(f_33265)
static void C_ccall f_33265(C_word c,C_word *av) C_noret;
C_noret_decl(f_33271)
static void C_ccall f_33271(C_word c,C_word *av) C_noret;
C_noret_decl(f_33275)
static void C_ccall f_33275(C_word c,C_word *av) C_noret;
C_noret_decl(f_33279)
static void C_ccall f_33279(C_word c,C_word *av) C_noret;
C_noret_decl(f_33292)
static void C_ccall f_33292(C_word c,C_word *av) C_noret;
C_noret_decl(f_33294)
static C_word f_33294(C_word t0,C_word t1);
C_noret_decl(f_33300)
static C_word f_33300(C_word t0);
C_noret_decl(f_33305)
static C_word f_33305(C_word t0);
C_noret_decl(f_33340)
static void f_33340(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_33346)
static void f_33346(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_33362)
static void f_33362(C_word t0,C_word t1) C_noret;
C_noret_decl(f_33384)
static void C_ccall f_33384(C_word c,C_word *av) C_noret;
C_noret_decl(f_33408)
static void C_ccall f_33408(C_word c,C_word *av) C_noret;
C_noret_decl(f_33420)
static void C_ccall f_33420(C_word c,C_word *av) C_noret;
C_noret_decl(f_33422)
static void C_ccall f_33422(C_word c,C_word *av) C_noret;
C_noret_decl(f_33441)
static void C_ccall f_33441(C_word c,C_word *av) C_noret;
C_noret_decl(f_33445)
static void C_ccall f_33445(C_word c,C_word *av) C_noret;
C_noret_decl(f_33457)
static void C_ccall f_33457(C_word c,C_word *av) C_noret;
C_noret_decl(f_33459)
static void f_33459(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_33503)
static void C_ccall f_33503(C_word c,C_word *av) C_noret;
C_noret_decl(f_33505)
static void f_33505(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_33539)
static C_word f_33539(C_word t0);
C_noret_decl(f_33562)
static void C_ccall f_33562(C_word c,C_word *av) C_noret;
C_noret_decl(f_33569)
static void C_ccall f_33569(C_word c,C_word *av) C_noret;
C_noret_decl(f_33579)
static void C_ccall f_33579(C_word c,C_word *av) C_noret;
C_noret_decl(f_33581)
static void f_33581(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_33631)
static void C_ccall f_33631(C_word c,C_word *av) C_noret;
C_noret_decl(f_33633)
static void f_33633(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_33658)
static void C_ccall f_33658(C_word c,C_word *av) C_noret;
C_noret_decl(f_33667)
static void C_ccall f_33667(C_word c,C_word *av) C_noret;
C_noret_decl(f_33673)
static void C_ccall f_33673(C_word c,C_word *av) C_noret;
C_noret_decl(f_33677)
static void C_ccall f_33677(C_word c,C_word *av) C_noret;
C_noret_decl(f_33681)
static void f_33681(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_33689)
static void C_ccall f_33689(C_word c,C_word *av) C_noret;
C_noret_decl(f_33695)
static void f_33695(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_33726)
static void C_ccall f_33726(C_word c,C_word *av) C_noret;
C_noret_decl(f_33751)
static void f_33751(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_33776)
static void C_ccall f_33776(C_word c,C_word *av) C_noret;
C_noret_decl(f_33786)
static void C_ccall f_33786(C_word c,C_word *av) C_noret;
C_noret_decl(f_33791)
static void C_ccall f_33791(C_word c,C_word *av) C_noret;
C_noret_decl(f_33793)
static void C_ccall f_33793(C_word c,C_word *av) C_noret;
C_noret_decl(f_33800)
static void C_ccall f_33800(C_word c,C_word *av) C_noret;
C_noret_decl(f_33812)
static void C_ccall f_33812(C_word c,C_word *av) C_noret;
C_noret_decl(f_33820)
static void C_ccall f_33820(C_word c,C_word *av) C_noret;
C_noret_decl(f_33858)
static void C_ccall f_33858(C_word c,C_word *av) C_noret;
C_noret_decl(f_33862)
static void C_ccall f_33862(C_word c,C_word *av) C_noret;
C_noret_decl(f_33869)
static void C_ccall f_33869(C_word c,C_word *av) C_noret;
C_noret_decl(f_33872)
static void C_ccall f_33872(C_word c,C_word *av) C_noret;
C_noret_decl(f_33875)
static void C_ccall f_33875(C_word c,C_word *av) C_noret;
C_noret_decl(f_33876)
static void f_33876(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_33878)
static void f_33878(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_33882)
static void C_ccall f_33882(C_word c,C_word *av) C_noret;
C_noret_decl(f_33887)
static void C_ccall f_33887(C_word c,C_word *av) C_noret;
C_noret_decl(f_33899)
static void f_33899(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_33909)
static void C_ccall f_33909(C_word c,C_word *av) C_noret;
C_noret_decl(f_33921)
static void C_ccall f_33921(C_word c,C_word *av) C_noret;
C_noret_decl(f_33923)
static void f_33923(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_33930)
static void C_ccall f_33930(C_word c,C_word *av) C_noret;
C_noret_decl(f_33933)
static void C_ccall f_33933(C_word c,C_word *av) C_noret;
C_noret_decl(f_33942)
static void C_ccall f_33942(C_word c,C_word *av) C_noret;
C_noret_decl(f_33945)
static void C_ccall f_33945(C_word c,C_word *av) C_noret;
C_noret_decl(f_33948)
static void C_ccall f_33948(C_word c,C_word *av) C_noret;
C_noret_decl(f_33963)
static void C_ccall f_33963(C_word c,C_word *av) C_noret;
C_noret_decl(f_33969)
static void C_ccall f_33969(C_word c,C_word *av) C_noret;
C_noret_decl(f_33977)
static void f_33977(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_33981)
static void C_ccall f_33981(C_word c,C_word *av) C_noret;
C_noret_decl(f_33984)
static void C_ccall f_33984(C_word c,C_word *av) C_noret;
C_noret_decl(f_33987)
static void C_ccall f_33987(C_word c,C_word *av) C_noret;
C_noret_decl(f_34000)
static void C_ccall f_34000(C_word c,C_word *av) C_noret;
C_noret_decl(f_34004)
static void C_ccall f_34004(C_word c,C_word *av) C_noret;
C_noret_decl(f_34025)
static void C_ccall f_34025(C_word c,C_word *av) C_noret;
C_noret_decl(f_34041)
static void C_ccall f_34041(C_word c,C_word *av) C_noret;
C_noret_decl(f_34044)
static void C_ccall f_34044(C_word c,C_word *av) C_noret;
C_noret_decl(f_34050)
static void C_ccall f_34050(C_word c,C_word *av) C_noret;
C_noret_decl(f_34072)
static void f_34072(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_34077)
static void f_34077(C_word t0,C_word t1) C_noret;
C_noret_decl(f_34112)
static void C_ccall f_34112(C_word c,C_word *av) C_noret;
C_noret_decl(f_34122)
static void C_ccall f_34122(C_word c,C_word *av) C_noret;
C_noret_decl(f_34125)
static void C_ccall f_34125(C_word c,C_word *av) C_noret;
C_noret_decl(f_34128)
static void C_ccall f_34128(C_word c,C_word *av) C_noret;
C_noret_decl(f_34131)
static void C_ccall f_34131(C_word c,C_word *av) C_noret;
C_noret_decl(f_34134)
static void C_ccall f_34134(C_word c,C_word *av) C_noret;
C_noret_decl(f_34137)
static void C_ccall f_34137(C_word c,C_word *av) C_noret;
C_noret_decl(f_34144)
static void C_ccall f_34144(C_word c,C_word *av) C_noret;
C_noret_decl(f_34147)
static void C_ccall f_34147(C_word c,C_word *av) C_noret;
C_noret_decl(f_34150)
static void C_ccall f_34150(C_word c,C_word *av) C_noret;
C_noret_decl(f_34161)
static void C_ccall f_34161(C_word c,C_word *av) C_noret;
C_noret_decl(f_34184)
static void C_ccall f_34184(C_word c,C_word *av) C_noret;
C_noret_decl(f_34195)
static void C_ccall f_34195(C_word c,C_word *av) C_noret;
C_noret_decl(f_34199)
static void C_ccall f_34199(C_word c,C_word *av) C_noret;
C_noret_decl(f_34221)
static void C_ccall f_34221(C_word c,C_word *av) C_noret;
C_noret_decl(f_34232)
static void C_ccall f_34232(C_word c,C_word *av) C_noret;
C_noret_decl(f_34236)
static void C_ccall f_34236(C_word c,C_word *av) C_noret;
C_noret_decl(f_34735)
static void C_ccall f_34735(C_word c,C_word *av) C_noret;
C_noret_decl(f_34746)
static void C_ccall f_34746(C_word c,C_word *av) C_noret;
C_noret_decl(f_34750)
static void C_ccall f_34750(C_word c,C_word *av) C_noret;
C_noret_decl(f_34891)
static void C_ccall f_34891(C_word c,C_word *av) C_noret;
C_noret_decl(f_34893)
static void C_ccall f_34893(C_word c,C_word *av) C_noret;
C_noret_decl(f_34899)
static void C_ccall f_34899(C_word c,C_word *av) C_noret;
C_noret_decl(f_34903)
static void C_ccall f_34903(C_word c,C_word *av) C_noret;
C_noret_decl(f_34906)
static void C_ccall f_34906(C_word c,C_word *av) C_noret;
C_noret_decl(f_34915)
static void C_ccall f_34915(C_word c,C_word *av) C_noret;
C_noret_decl(f_34929)
static void C_ccall f_34929(C_word c,C_word *av) C_noret;
C_noret_decl(f_34937)
static void C_ccall f_34937(C_word c,C_word *av) C_noret;
C_noret_decl(f_34939)
static void C_ccall f_34939(C_word c,C_word *av) C_noret;
C_noret_decl(f_34943)
static void C_ccall f_34943(C_word c,C_word *av) C_noret;
C_noret_decl(f_34951)
static void C_ccall f_34951(C_word c,C_word *av) C_noret;
C_noret_decl(f_34959)
static void C_ccall f_34959(C_word c,C_word *av) C_noret;
C_noret_decl(f_34961)
static void C_ccall f_34961(C_word c,C_word *av) C_noret;
C_noret_decl(f_34971)
static void C_ccall f_34971(C_word c,C_word *av) C_noret;
C_noret_decl(f_34978)
static void C_ccall f_34978(C_word c,C_word *av) C_noret;
C_noret_decl(f_34988)
static void C_ccall f_34988(C_word c,C_word *av) C_noret;
C_noret_decl(f_34992)
static void C_ccall f_34992(C_word c,C_word *av) C_noret;
C_noret_decl(f_34996)
static void C_ccall f_34996(C_word c,C_word *av) C_noret;
C_noret_decl(f_35000)
static void C_ccall f_35000(C_word c,C_word *av) C_noret;
C_noret_decl(f_35002)
static void C_ccall f_35002(C_word c,C_word *av) C_noret;
C_noret_decl(f_35012)
static void C_ccall f_35012(C_word c,C_word *av) C_noret;
C_noret_decl(f_35023)
static void C_ccall f_35023(C_word c,C_word *av) C_noret;
C_noret_decl(f_35027)
static void C_ccall f_35027(C_word c,C_word *av) C_noret;
C_noret_decl(f_35032)
static void C_ccall f_35032(C_word c,C_word *av) C_noret;
C_noret_decl(f_35036)
static void C_ccall f_35036(C_word c,C_word *av) C_noret;
C_noret_decl(f_35041)
static void C_ccall f_35041(C_word c,C_word *av) C_noret;
C_noret_decl(f_35044)
static void C_ccall f_35044(C_word c,C_word *av) C_noret;
C_noret_decl(f_35047)
static void C_ccall f_35047(C_word c,C_word *av) C_noret;
C_noret_decl(f_35050)
static void C_ccall f_35050(C_word c,C_word *av) C_noret;
C_noret_decl(f_35052)
static void C_ccall f_35052(C_word c,C_word *av) C_noret;
C_noret_decl(f_35059)
static void C_ccall f_35059(C_word c,C_word *av) C_noret;
C_noret_decl(f_35062)
static void C_ccall f_35062(C_word c,C_word *av) C_noret;
C_noret_decl(f_35070)
static void C_ccall f_35070(C_word c,C_word *av) C_noret;
C_noret_decl(f_35077)
static void C_ccall f_35077(C_word c,C_word *av) C_noret;
C_noret_decl(f_35082)
static void C_ccall f_35082(C_word c,C_word *av) C_noret;
C_noret_decl(f_35085)
static void C_ccall f_35085(C_word c,C_word *av) C_noret;
C_noret_decl(f_35088)
static void C_ccall f_35088(C_word c,C_word *av) C_noret;
C_noret_decl(f_35091)
static void C_ccall f_35091(C_word c,C_word *av) C_noret;
C_noret_decl(f_35096)
static void C_ccall f_35096(C_word c,C_word *av) C_noret;
C_noret_decl(f_35099)
static void C_ccall f_35099(C_word c,C_word *av) C_noret;
C_noret_decl(f_35102)
static void C_ccall f_35102(C_word c,C_word *av) C_noret;
C_noret_decl(f_35105)
static void C_ccall f_35105(C_word c,C_word *av) C_noret;
C_noret_decl(f_35108)
static void C_ccall f_35108(C_word c,C_word *av) C_noret;
C_noret_decl(f_35111)
static void C_ccall f_35111(C_word c,C_word *av) C_noret;
C_noret_decl(f_35114)
static void C_ccall f_35114(C_word c,C_word *av) C_noret;
C_noret_decl(f_35117)
static void C_ccall f_35117(C_word c,C_word *av) C_noret;
C_noret_decl(f_35141)
static void C_ccall f_35141(C_word c,C_word *av) C_noret;
C_noret_decl(f_35145)
static void C_ccall f_35145(C_word c,C_word *av) C_noret;
C_noret_decl(f_35147)
static void C_ccall f_35147(C_word c,C_word *av) C_noret;
C_noret_decl(f_35155)
static void C_ccall f_35155(C_word c,C_word *av) C_noret;
C_noret_decl(f_35157)
static void C_ccall f_35157(C_word c,C_word *av) C_noret;
C_noret_decl(f_35161)
static void C_ccall f_35161(C_word c,C_word *av) C_noret;
C_noret_decl(f_35163)
static void C_ccall f_35163(C_word c,C_word *av) C_noret;
C_noret_decl(f_35170)
static void C_ccall f_35170(C_word c,C_word *av) C_noret;
C_noret_decl(f_35206)
static void C_ccall f_35206(C_word c,C_word *av) C_noret;
C_noret_decl(f_35209)
static void C_ccall f_35209(C_word c,C_word *av) C_noret;
C_noret_decl(f_35212)
static void C_ccall f_35212(C_word c,C_word *av) C_noret;
C_noret_decl(f_35215)
static void C_ccall f_35215(C_word c,C_word *av) C_noret;
C_noret_decl(f_35218)
static void C_ccall f_35218(C_word c,C_word *av) C_noret;
C_noret_decl(f_35234)
static void C_ccall f_35234(C_word c,C_word *av) C_noret;
C_noret_decl(f_35238)
static void C_ccall f_35238(C_word c,C_word *av) C_noret;
C_noret_decl(f_35247)
static void C_ccall f_35247(C_word c,C_word *av) C_noret;
C_noret_decl(f_35251)
static void C_ccall f_35251(C_word c,C_word *av) C_noret;
C_noret_decl(f_35253)
static void C_ccall f_35253(C_word c,C_word *av) C_noret;
C_noret_decl(f_35257)
static void C_ccall f_35257(C_word c,C_word *av) C_noret;
C_noret_decl(f_35259)
static void C_ccall f_35259(C_word c,C_word *av) C_noret;
C_noret_decl(f_35264)
static void C_ccall f_35264(C_word c,C_word *av) C_noret;
C_noret_decl(f_35266)
static void C_ccall f_35266(C_word c,C_word *av) C_noret;
C_noret_decl(f_35269)
static void C_ccall f_35269(C_word c,C_word *av) C_noret;
C_noret_decl(f_35289)
static void C_ccall f_35289(C_word c,C_word *av) C_noret;
C_noret_decl(f_35295)
static void f_35295(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_35305)
static void C_ccall f_35305(C_word c,C_word *av) C_noret;
C_noret_decl(f_35315)
static void C_ccall f_35315(C_word c,C_word *av) C_noret;
C_noret_decl(f_35350)
static void C_ccall f_35350(C_word c,C_word *av) C_noret;
C_noret_decl(f_35354)
static void C_ccall f_35354(C_word c,C_word *av) C_noret;
C_noret_decl(f_35359)
static void f_35359(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_35369)
static void C_ccall f_35369(C_word c,C_word *av) C_noret;
C_noret_decl(f_35379)
static void C_ccall f_35379(C_word c,C_word *av) C_noret;
C_noret_decl(f_35388)
static void C_ccall f_35388(C_word c,C_word *av) C_noret;
C_noret_decl(f_35391)
static void C_ccall f_35391(C_word c,C_word *av) C_noret;
C_noret_decl(f_35394)
static void C_ccall f_35394(C_word c,C_word *av) C_noret;
C_noret_decl(f_35398)
static void C_ccall f_35398(C_word c,C_word *av) C_noret;
C_noret_decl(f_35400)
static void C_ccall f_35400(C_word c,C_word *av) C_noret;
C_noret_decl(f_35403)
static void C_ccall f_35403(C_word c,C_word *av) C_noret;
C_noret_decl(f_35406)
static void C_ccall f_35406(C_word c,C_word *av) C_noret;
C_noret_decl(f_35409)
static void C_ccall f_35409(C_word c,C_word *av) C_noret;
C_noret_decl(f_35412)
static void C_ccall f_35412(C_word c,C_word *av) C_noret;
C_noret_decl(f_35421)
static void C_ccall f_35421(C_word c,C_word *av) C_noret;
C_noret_decl(f_35424)
static void C_ccall f_35424(C_word c,C_word *av) C_noret;
C_noret_decl(f_35427)
static void C_ccall f_35427(C_word c,C_word *av) C_noret;
C_noret_decl(f_35430)
static void C_ccall f_35430(C_word c,C_word *av) C_noret;
C_noret_decl(f_35433)
static void C_ccall f_35433(C_word c,C_word *av) C_noret;
C_noret_decl(f_35436)
static void C_ccall f_35436(C_word c,C_word *av) C_noret;
C_noret_decl(f_35439)
static void C_ccall f_35439(C_word c,C_word *av) C_noret;
C_noret_decl(f_35442)
static void C_ccall f_35442(C_word c,C_word *av) C_noret;
C_noret_decl(f_35449)
static void C_ccall f_35449(C_word c,C_word *av) C_noret;
C_noret_decl(f_35452)
static void C_ccall f_35452(C_word c,C_word *av) C_noret;
C_noret_decl(f_35468)
static void C_ccall f_35468(C_word c,C_word *av) C_noret;
C_noret_decl(f_35476)
static void C_ccall f_35476(C_word c,C_word *av) C_noret;
C_noret_decl(f_35479)
static void C_ccall f_35479(C_word c,C_word *av) C_noret;
C_noret_decl(f_35485)
static void C_ccall f_35485(C_word c,C_word *av) C_noret;
C_noret_decl(f_35494)
static void C_ccall f_35494(C_word c,C_word *av) C_noret;
C_noret_decl(f_35500)
static void C_ccall f_35500(C_word c,C_word *av) C_noret;
C_noret_decl(f_35509)
static void C_ccall f_35509(C_word c,C_word *av) C_noret;
C_noret_decl(f_35515)
static void C_ccall f_35515(C_word c,C_word *av) C_noret;
C_noret_decl(f_35521)
static void C_ccall f_35521(C_word c,C_word *av) C_noret;
C_noret_decl(f_35524)
static void C_ccall f_35524(C_word c,C_word *av) C_noret;
C_noret_decl(f_35530)
static void C_ccall f_35530(C_word c,C_word *av) C_noret;
C_noret_decl(f_35536)
static void C_ccall f_35536(C_word c,C_word *av) C_noret;
C_noret_decl(f_35539)
static void C_ccall f_35539(C_word c,C_word *av) C_noret;
C_noret_decl(f_35545)
static void C_ccall f_35545(C_word c,C_word *av) C_noret;
C_noret_decl(f_35584)
static void C_ccall f_35584(C_word c,C_word *av) C_noret;
C_noret_decl(f_35627)
static void C_ccall f_35627(C_word c,C_word *av) C_noret;
C_noret_decl(f_35634)
static void C_ccall f_35634(C_word c,C_word *av) C_noret;
C_noret_decl(f_35639)
static void f_35639(C_word t0,C_word t1) C_noret;
C_noret_decl(f_35655)
static void C_ccall f_35655(C_word c,C_word *av) C_noret;
C_noret_decl(f_35681)
static void C_ccall f_35681(C_word c,C_word *av) C_noret;
C_noret_decl(f_35684)
static void C_ccall f_35684(C_word c,C_word *av) C_noret;
C_noret_decl(f_35691)
static void C_ccall f_35691(C_word c,C_word *av) C_noret;
C_noret_decl(f_35696)
static void C_ccall f_35696(C_word c,C_word *av) C_noret;
C_noret_decl(f_35698)
static void C_ccall f_35698(C_word c,C_word *av) C_noret;
C_noret_decl(f_35702)
static void C_ccall f_35702(C_word c,C_word *av) C_noret;
C_noret_decl(f_35729)
static void f_35729(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_35739)
static void C_ccall f_35739(C_word c,C_word *av) C_noret;
C_noret_decl(f_35748)
static void C_ccall f_35748(C_word c,C_word *av) C_noret;
C_noret_decl(f_35755)
static void C_ccall f_35755(C_word c,C_word *av) C_noret;
C_noret_decl(f_35759)
static void C_ccall f_35759(C_word c,C_word *av) C_noret;
C_noret_decl(f_35773)
static void f_35773(C_word t0,C_word t1) C_noret;
C_noret_decl(f_35777)
static void C_ccall f_35777(C_word c,C_word *av) C_noret;
C_noret_decl(f_35784)
static void C_ccall f_35784(C_word c,C_word *av) C_noret;
C_noret_decl(f_35786)
static void f_35786(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_35808)
static void C_ccall f_35808(C_word c,C_word *av) C_noret;
C_noret_decl(f_35815)
static void C_ccall f_35815(C_word c,C_word *av) C_noret;
C_noret_decl(f_35820)
static void f_35820(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_35824)
static void C_ccall f_35824(C_word c,C_word *av) C_noret;
C_noret_decl(f_35827)
static void C_ccall f_35827(C_word c,C_word *av) C_noret;
C_noret_decl(f_35830)
static void C_ccall f_35830(C_word c,C_word *av) C_noret;
C_noret_decl(f_35835)
static void f_35835(C_word t0,C_word t1) C_noret;
C_noret_decl(f_35839)
static void C_ccall f_35839(C_word c,C_word *av) C_noret;
C_noret_decl(f_35865)
static void C_ccall f_35865(C_word c,C_word *av) C_noret;
C_noret_decl(f_35878)
static void C_ccall f_35878(C_word c,C_word *av) C_noret;
C_noret_decl(f_35881)
static void C_ccall f_35881(C_word c,C_word *av) C_noret;
C_noret_decl(f_35890)
static void C_ccall f_35890(C_word c,C_word *av) C_noret;
C_noret_decl(f_35893)
static void C_ccall f_35893(C_word c,C_word *av) C_noret;
C_noret_decl(f_35896)
static void C_ccall f_35896(C_word c,C_word *av) C_noret;
C_noret_decl(f_35902)
static void C_ccall f_35902(C_word c,C_word *av) C_noret;
C_noret_decl(f_35909)
static void C_ccall f_35909(C_word c,C_word *av) C_noret;
C_noret_decl(f_35911)
static void f_35911(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_35924)
static void C_ccall f_35924(C_word c,C_word *av) C_noret;
C_noret_decl(f_35937)
static void C_ccall f_35937(C_word c,C_word *av) C_noret;
C_noret_decl(f_35940)
static void C_ccall f_35940(C_word c,C_word *av) C_noret;
C_noret_decl(f_35943)
static void C_ccall f_35943(C_word c,C_word *av) C_noret;
C_noret_decl(f_35950)
static void C_ccall f_35950(C_word c,C_word *av) C_noret;
C_noret_decl(f_36002)
static void C_ccall f_36002(C_word c,C_word *av) C_noret;
C_noret_decl(f_36005)
static void C_ccall f_36005(C_word c,C_word *av) C_noret;
C_noret_decl(f_36008)
static void C_ccall f_36008(C_word c,C_word *av) C_noret;
C_noret_decl(f_36010)
static void f_36010(C_word t0,C_word t1) C_noret;
C_noret_decl(f_36014)
static void C_ccall f_36014(C_word c,C_word *av) C_noret;
C_noret_decl(f_36018)
static void C_ccall f_36018(C_word c,C_word *av) C_noret;
C_noret_decl(f_36024)
static void C_ccall f_36024(C_word c,C_word *av) C_noret;
C_noret_decl(f_36029)
static void f_36029(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_36033)
static void C_ccall f_36033(C_word c,C_word *av) C_noret;
C_noret_decl(f_36045)
static void C_ccall f_36045(C_word c,C_word *av) C_noret;
C_noret_decl(f_36057)
static void C_ccall f_36057(C_word c,C_word *av) C_noret;
C_noret_decl(f_36064)
static void C_ccall f_36064(C_word c,C_word *av) C_noret;
C_noret_decl(f_36070)
static void f_36070(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_36084)
static void C_ccall f_36084(C_word c,C_word *av) C_noret;
C_noret_decl(f_36123)
static void C_ccall f_36123(C_word c,C_word *av) C_noret;
C_noret_decl(f_36142)
static void C_ccall f_36142(C_word c,C_word *av) C_noret;
C_noret_decl(f_36164)
static void C_ccall f_36164(C_word c,C_word *av) C_noret;
C_noret_decl(f_36173)
static void C_ccall f_36173(C_word c,C_word *av) C_noret;
C_noret_decl(f_36180)
static void C_ccall f_36180(C_word c,C_word *av) C_noret;
C_noret_decl(f_36197)
static void C_ccall f_36197(C_word c,C_word *av) C_noret;
C_noret_decl(f_36205)
static void C_ccall f_36205(C_word c,C_word *av) C_noret;
C_noret_decl(f_36216)
static void C_ccall f_36216(C_word c,C_word *av) C_noret;
C_noret_decl(f_36224)
static void C_ccall f_36224(C_word c,C_word *av) C_noret;
C_noret_decl(f_36231)
static void C_ccall f_36231(C_word c,C_word *av) C_noret;
C_noret_decl(f_36293)
static void C_ccall f_36293(C_word c,C_word *av) C_noret;
C_noret_decl(f_36300)
static void C_ccall f_36300(C_word c,C_word *av) C_noret;
C_noret_decl(f_36303)
static void C_ccall f_36303(C_word c,C_word *av) C_noret;
C_noret_decl(f_36313)
static void C_ccall f_36313(C_word c,C_word *av) C_noret;
C_noret_decl(f_36317)
static void C_ccall f_36317(C_word c,C_word *av) C_noret;
C_noret_decl(f_36321)
static void C_ccall f_36321(C_word c,C_word *av) C_noret;
C_noret_decl(f_36324)
static void C_ccall f_36324(C_word c,C_word *av) C_noret;
C_noret_decl(f_36332)
static void C_ccall f_36332(C_word c,C_word *av) C_noret;
C_noret_decl(f_36341)
static void C_ccall f_36341(C_word c,C_word *av) C_noret;
C_noret_decl(f_36349)
static void C_ccall f_36349(C_word c,C_word *av) C_noret;
C_noret_decl(f_36362)
static void C_ccall f_36362(C_word c,C_word *av) C_noret;
C_noret_decl(f_36370)
static void C_ccall f_36370(C_word c,C_word *av) C_noret;
C_noret_decl(f_36374)
static void C_ccall f_36374(C_word c,C_word *av) C_noret;
C_noret_decl(f_36382)
static void C_ccall f_36382(C_word c,C_word *av) C_noret;
C_noret_decl(f_36390)
static void C_ccall f_36390(C_word c,C_word *av) C_noret;
C_noret_decl(f_36392)
static void C_ccall f_36392(C_word c,C_word *av) C_noret;
C_noret_decl(f_36398)
static void f_36398(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_36402)
static void C_ccall f_36402(C_word c,C_word *av) C_noret;
C_noret_decl(f_36410)
static void f_36410(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_36430)
static void C_ccall f_36430(C_word c,C_word *av) C_noret;
C_noret_decl(f_36438)
static void C_ccall f_36438(C_word c,C_word *av) C_noret;
C_noret_decl(f_36442)
static void C_ccall f_36442(C_word c,C_word *av) C_noret;
C_noret_decl(f_36457)
static void C_ccall f_36457(C_word c,C_word *av) C_noret;
C_noret_decl(f_36464)
static void C_ccall f_36464(C_word c,C_word *av) C_noret;
C_noret_decl(f_36476)
static void C_ccall f_36476(C_word c,C_word *av) C_noret;
C_noret_decl(f_36484)
static void C_ccall f_36484(C_word c,C_word *av) C_noret;
C_noret_decl(f_36490)
static void f_36490(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_36512)
static void C_ccall f_36512(C_word c,C_word *av) C_noret;
C_noret_decl(f_36516)
static void C_ccall f_36516(C_word c,C_word *av) C_noret;
C_noret_decl(f_36520)
static void C_ccall f_36520(C_word c,C_word *av) C_noret;
C_noret_decl(f_36522)
static void C_ccall f_36522(C_word c,C_word *av) C_noret;
C_noret_decl(f_36525)
static void C_ccall f_36525(C_word c,C_word *av) C_noret;
C_noret_decl(f_36528)
static void C_ccall f_36528(C_word c,C_word *av) C_noret;
C_noret_decl(f_36532)
static void C_ccall f_36532(C_word c,C_word *av) C_noret;
C_noret_decl(f_36535)
static void C_ccall f_36535(C_word c,C_word *av) C_noret;
C_noret_decl(f_36557)
static void C_ccall f_36557(C_word c,C_word *av) C_noret;
C_noret_decl(f_36563)
static void C_ccall f_36563(C_word c,C_word *av) C_noret;
C_noret_decl(f_36567)
static void C_ccall f_36567(C_word c,C_word *av) C_noret;
C_noret_decl(f_36584)
static void C_ccall f_36584(C_word c,C_word *av) C_noret;
C_noret_decl(f_36594)
static void C_ccall f_36594(C_word c,C_word *av) C_noret;
C_noret_decl(f_36598)
static void C_ccall f_36598(C_word c,C_word *av) C_noret;
C_noret_decl(f_36602)
static void C_ccall f_36602(C_word c,C_word *av) C_noret;
C_noret_decl(f_36614)
static void C_ccall f_36614(C_word c,C_word *av) C_noret;
C_noret_decl(f_36624)
static void C_ccall f_36624(C_word c,C_word *av) C_noret;
C_noret_decl(f_36633)
static void C_ccall f_36633(C_word c,C_word *av) C_noret;
C_noret_decl(f_36649)
static void C_ccall f_36649(C_word c,C_word *av) C_noret;
C_noret_decl(f_36653)
static void C_ccall f_36653(C_word c,C_word *av) C_noret;
C_noret_decl(f_36655)
static void C_ccall f_36655(C_word c,C_word *av) C_noret;
C_noret_decl(f_36661)
static void C_ccall f_36661(C_word c,C_word *av) C_noret;
C_noret_decl(f_36668)
static void C_ccall f_36668(C_word c,C_word *av) C_noret;
C_noret_decl(f_36673)
static void C_ccall f_36673(C_word c,C_word *av) C_noret;
C_noret_decl(f_36694)
static void C_ccall f_36694(C_word c,C_word *av) C_noret;
C_noret_decl(f_36704)
static void f_36704(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_36714)
static void C_ccall f_36714(C_word c,C_word *av) C_noret;
C_noret_decl(f_36727)
static void C_ccall f_36727(C_word c,C_word *av) C_noret;
C_noret_decl(f_36731)
static void C_ccall f_36731(C_word c,C_word *av) C_noret;
C_noret_decl(f_36734)
static void C_ccall f_36734(C_word c,C_word *av) C_noret;
C_noret_decl(f_36742)
static void f_36742(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_36752)
static void C_ccall f_36752(C_word c,C_word *av) C_noret;
C_noret_decl(f_36774)
static void C_ccall f_36774(C_word c,C_word *av) C_noret;
C_noret_decl(f_36778)
static void C_ccall f_36778(C_word c,C_word *av) C_noret;
C_noret_decl(f_36809)
static void C_ccall f_36809(C_word c,C_word *av) C_noret;
C_noret_decl(f_36812)
static void C_ccall f_36812(C_word c,C_word *av) C_noret;
C_noret_decl(f_36815)
static void C_ccall f_36815(C_word c,C_word *av) C_noret;
C_noret_decl(f_36821)
static void f_36821(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_36834)
static void C_ccall f_36834(C_word c,C_word *av) C_noret;
C_noret_decl(f_36837)
static void C_ccall f_36837(C_word c,C_word *av) C_noret;
C_noret_decl(f_36846)
static void C_ccall f_36846(C_word c,C_word *av) C_noret;
C_noret_decl(f_36852)
static void C_ccall f_36852(C_word c,C_word *av) C_noret;
C_noret_decl(f_36858)
static void C_ccall f_36858(C_word c,C_word *av) C_noret;
C_noret_decl(f_36864)
static void C_ccall f_36864(C_word c,C_word *av) C_noret;
C_noret_decl(f_36870)
static void C_ccall f_36870(C_word c,C_word *av) C_noret;
C_noret_decl(f_36887)
static void C_ccall f_36887(C_word c,C_word *av) C_noret;
C_noret_decl(f_36893)
static void C_ccall f_36893(C_word c,C_word *av) C_noret;
C_noret_decl(f_36908)
static void C_ccall f_36908(C_word c,C_word *av) C_noret;
C_noret_decl(f_36912)
static void C_ccall f_36912(C_word c,C_word *av) C_noret;
C_noret_decl(f_36916)
static void C_ccall f_36916(C_word c,C_word *av) C_noret;
C_noret_decl(f_36920)
static void C_ccall f_36920(C_word c,C_word *av) C_noret;
C_noret_decl(f_36941)
static void C_ccall f_36941(C_word c,C_word *av) C_noret;
C_noret_decl(f_36943)
static void C_ccall f_36943(C_word c,C_word *av) C_noret;
C_noret_decl(f_36949)
static void f_36949(C_word t0,C_word t1) C_noret;
C_noret_decl(f_36953)
static void C_ccall f_36953(C_word c,C_word *av) C_noret;
C_noret_decl(f_36962)
static void C_ccall f_36962(C_word c,C_word *av) C_noret;
C_noret_decl(f_36971)
static void C_ccall f_36971(C_word c,C_word *av) C_noret;
C_noret_decl(f_37014)
static void C_ccall f_37014(C_word c,C_word *av) C_noret;
C_noret_decl(f_37281)
static void C_ccall f_37281(C_word c,C_word *av) C_noret;
C_noret_decl(f_37287)
static void C_ccall f_37287(C_word c,C_word *av) C_noret;
C_noret_decl(f_37306)
static void C_ccall f_37306(C_word c,C_word *av) C_noret;
C_noret_decl(f_37308)
static void C_ccall f_37308(C_word c,C_word *av) C_noret;
C_noret_decl(f_37331)
static C_word f_37331(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_37377)
static void C_ccall f_37377(C_word c,C_word *av) C_noret;
C_noret_decl(f_37379)
static void C_ccall f_37379(C_word c,C_word *av) C_noret;
C_noret_decl(f_37386)
static void f_37386(C_word t0,C_word t1) C_noret;
C_noret_decl(f_37395)
static void f_37395(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_37439)
static void C_ccall f_37439(C_word c,C_word *av) C_noret;
C_noret_decl(f_37454)
static void f_37454(C_word t0,C_word t1) C_noret;
C_noret_decl(f_37462)
static void C_ccall f_37462(C_word c,C_word *av) C_noret;
C_noret_decl(f_37468)
static void f_37468(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_37476)
static void C_ccall f_37476(C_word c,C_word *av) C_noret;
C_noret_decl(f_37480)
static void C_ccall f_37480(C_word c,C_word *av) C_noret;
C_noret_decl(f_37488)
static void C_ccall f_37488(C_word c,C_word *av) C_noret;
C_noret_decl(f_37490)
static void f_37490(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_37500)
static void C_ccall f_37500(C_word c,C_word *av) C_noret;
C_noret_decl(f_37507)
static void C_ccall f_37507(C_word c,C_word *av) C_noret;
C_noret_decl(f_37511)
static void C_ccall f_37511(C_word c,C_word *av) C_noret;
C_noret_decl(f_37522)
static void C_ccall f_37522(C_word c,C_word *av) C_noret;
C_noret_decl(f_37529)
static void C_ccall f_37529(C_word c,C_word *av) C_noret;
C_noret_decl(f_37533)
static void C_ccall f_37533(C_word c,C_word *av) C_noret;
C_noret_decl(f_37544)
static void C_ccall f_37544(C_word c,C_word *av) C_noret;
C_noret_decl(f_37551)
static void C_ccall f_37551(C_word c,C_word *av) C_noret;
C_noret_decl(f_37555)
static void C_ccall f_37555(C_word c,C_word *av) C_noret;
C_noret_decl(f_37560)
static void C_ccall f_37560(C_word c,C_word *av) C_noret;
C_noret_decl(f_37566)
static void C_ccall f_37566(C_word c,C_word *av) C_noret;
C_noret_decl(f_37569)
static void C_ccall f_37569(C_word c,C_word *av) C_noret;
C_noret_decl(f_37572)
static void C_ccall f_37572(C_word c,C_word *av) C_noret;
C_noret_decl(f_37578)
static void C_ccall f_37578(C_word c,C_word *av) C_noret;
C_noret_decl(f_37587)
static void C_ccall f_37587(C_word c,C_word *av) C_noret;
C_noret_decl(f_37596)
static void C_ccall f_37596(C_word c,C_word *av) C_noret;
C_noret_decl(f_37602)
static void C_ccall f_37602(C_word c,C_word *av) C_noret;
C_noret_decl(f_37605)
static void C_ccall f_37605(C_word c,C_word *av) C_noret;
C_noret_decl(f_37608)
static void C_ccall f_37608(C_word c,C_word *av) C_noret;
C_noret_decl(f_37620)
static void C_ccall f_37620(C_word c,C_word *av) C_noret;
C_noret_decl(f_37623)
static void C_ccall f_37623(C_word c,C_word *av) C_noret;
C_noret_decl(f_37626)
static void C_ccall f_37626(C_word c,C_word *av) C_noret;
C_noret_decl(f_37629)
static void C_ccall f_37629(C_word c,C_word *av) C_noret;
C_noret_decl(f_37641)
static void C_ccall f_37641(C_word c,C_word *av) C_noret;
C_noret_decl(f_37644)
static void C_ccall f_37644(C_word c,C_word *av) C_noret;
C_noret_decl(f_37647)
static void C_ccall f_37647(C_word c,C_word *av) C_noret;
C_noret_decl(f_37650)
static void C_ccall f_37650(C_word c,C_word *av) C_noret;
C_noret_decl(f_37659)
static void C_ccall f_37659(C_word c,C_word *av) C_noret;
C_noret_decl(f_37662)
static void C_ccall f_37662(C_word c,C_word *av) C_noret;
C_noret_decl(f_37675)
static void C_ccall f_37675(C_word c,C_word *av) C_noret;
C_noret_decl(f_37676)
static void C_ccall f_37676(C_word c,C_word *av) C_noret;
C_noret_decl(f_37681)
static void C_ccall f_37681(C_word c,C_word *av) C_noret;
C_noret_decl(f_37682)
static void C_ccall f_37682(C_word c,C_word *av) C_noret;
C_noret_decl(f_37687)
static void C_ccall f_37687(C_word c,C_word *av) C_noret;
C_noret_decl(f_37688)
static void C_ccall f_37688(C_word c,C_word *av) C_noret;
C_noret_decl(f_37693)
static void C_ccall f_37693(C_word c,C_word *av) C_noret;
C_noret_decl(f_37694)
static void C_ccall f_37694(C_word c,C_word *av) C_noret;
C_noret_decl(f_37699)
static void C_ccall f_37699(C_word c,C_word *av) C_noret;
C_noret_decl(f_37700)
static void C_ccall f_37700(C_word c,C_word *av) C_noret;
C_noret_decl(f_37705)
static void f_37705(C_word t0,C_word t1) C_noret;
C_noret_decl(f_37707)
static void C_ccall f_37707(C_word c,C_word *av) C_noret;
C_noret_decl(f_37717)
static void C_ccall f_37717(C_word c,C_word *av) C_noret;
C_noret_decl(f_37720)
static void C_ccall f_37720(C_word c,C_word *av) C_noret;
C_noret_decl(f_37723)
static void C_ccall f_37723(C_word c,C_word *av) C_noret;
C_noret_decl(f_37726)
static void C_ccall f_37726(C_word c,C_word *av) C_noret;
C_noret_decl(f_37728)
static void f_37728(C_word t0,C_word t1) C_noret;
C_noret_decl(f_37742)
static void C_ccall f_37742(C_word c,C_word *av) C_noret;
C_noret_decl(f_37750)
static void C_ccall f_37750(C_word c,C_word *av) C_noret;
C_noret_decl(f_37754)
static void C_ccall f_37754(C_word c,C_word *av) C_noret;
C_noret_decl(f_37758)
static void C_ccall f_37758(C_word c,C_word *av) C_noret;
C_noret_decl(f_37762)
static void C_ccall f_37762(C_word c,C_word *av) C_noret;
C_noret_decl(f_37768)
static void C_ccall f_37768(C_word c,C_word *av) C_noret;
C_noret_decl(f_37775)
static void C_ccall f_37775(C_word c,C_word *av) C_noret;
C_noret_decl(f_37779)
static void C_ccall f_37779(C_word c,C_word *av) C_noret;
C_noret_decl(f_37783)
static void C_ccall f_37783(C_word c,C_word *av) C_noret;
C_noret_decl(f_37787)
static void C_ccall f_37787(C_word c,C_word *av) C_noret;
C_noret_decl(f_37805)
static void C_ccall f_37805(C_word c,C_word *av) C_noret;
C_noret_decl(f_37824)
static void C_ccall f_37824(C_word c,C_word *av) C_noret;
C_noret_decl(f_37827)
static void C_ccall f_37827(C_word c,C_word *av) C_noret;
C_noret_decl(f_37830)
static void C_ccall f_37830(C_word c,C_word *av) C_noret;
C_noret_decl(f_37833)
static void C_ccall f_37833(C_word c,C_word *av) C_noret;
C_noret_decl(f_37842)
static void C_ccall f_37842(C_word c,C_word *av) C_noret;
C_noret_decl(f_37848)
static void C_ccall f_37848(C_word c,C_word *av) C_noret;
C_noret_decl(f_37871)
static void C_ccall f_37871(C_word c,C_word *av) C_noret;
C_noret_decl(f_37893)
static void C_ccall f_37893(C_word c,C_word *av) C_noret;
C_noret_decl(f_37899)
static void f_37899(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_37919)
static void C_ccall f_37919(C_word c,C_word *av) C_noret;
C_noret_decl(f_37934)
static void C_ccall f_37934(C_word c,C_word *av) C_noret;
C_noret_decl(f_37938)
static void C_ccall f_37938(C_word c,C_word *av) C_noret;
C_noret_decl(f_37961)
static void C_ccall f_37961(C_word c,C_word *av) C_noret;
C_noret_decl(f_37965)
static void C_ccall f_37965(C_word c,C_word *av) C_noret;
C_noret_decl(f_37967)
static void C_ccall f_37967(C_word c,C_word *av) C_noret;
C_noret_decl(f_37997)
static void C_ccall f_37997(C_word c,C_word *av) C_noret;
C_noret_decl(f_38000)
static void C_ccall f_38000(C_word c,C_word *av) C_noret;
C_noret_decl(f_38002)
static void C_ccall f_38002(C_word c,C_word *av) C_noret;
C_noret_decl(f_38020)
static void C_ccall f_38020(C_word c,C_word *av) C_noret;
C_noret_decl(f_38027)
static void C_ccall f_38027(C_word c,C_word *av) C_noret;
C_noret_decl(f_38049)
static void C_ccall f_38049(C_word c,C_word *av) C_noret;
C_noret_decl(f_38058)
static void f_38058(C_word t0,C_word t1) C_noret;
C_noret_decl(f_38073)
static void C_ccall f_38073(C_word c,C_word *av) C_noret;
C_noret_decl(f_38076)
static void C_ccall f_38076(C_word c,C_word *av) C_noret;
C_noret_decl(f_38079)
static void C_ccall f_38079(C_word c,C_word *av) C_noret;
C_noret_decl(f_38082)
static void C_ccall f_38082(C_word c,C_word *av) C_noret;
C_noret_decl(f_38085)
static void C_ccall f_38085(C_word c,C_word *av) C_noret;
C_noret_decl(f_38088)
static void C_ccall f_38088(C_word c,C_word *av) C_noret;
C_noret_decl(f_38091)
static void f_38091(C_word t0,C_word t1) C_noret;
C_noret_decl(f_38094)
static void f_38094(C_word t0,C_word t1) C_noret;
C_noret_decl(f_38097)
static void f_38097(C_word t0,C_word t1) C_noret;
C_noret_decl(f_38100)
static void f_38100(C_word t0,C_word t1) C_noret;
C_noret_decl(f_38108)
static void C_ccall f_38108(C_word c,C_word *av) C_noret;
C_noret_decl(f_38111)
static void C_ccall f_38111(C_word c,C_word *av) C_noret;
C_noret_decl(f_38116)
static void C_ccall f_38116(C_word c,C_word *av) C_noret;
C_noret_decl(f_38122)
static void C_ccall f_38122(C_word c,C_word *av) C_noret;
C_noret_decl(f_38135)
static void C_ccall f_38135(C_word c,C_word *av) C_noret;
C_noret_decl(f_38137)
static void f_38137(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_38160)
static void C_ccall f_38160(C_word c,C_word *av) C_noret;
C_noret_decl(f_38167)
static void C_ccall f_38167(C_word c,C_word *av) C_noret;
C_noret_decl(f_38171)
static void C_ccall f_38171(C_word c,C_word *av) C_noret;
C_noret_decl(f_38173)
static void f_38173(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_38202)
static void C_ccall f_38202(C_word c,C_word *av) C_noret;
C_noret_decl(f_38204)
static void f_38204(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_38229)
static void C_ccall f_38229(C_word c,C_word *av) C_noret;
C_noret_decl(f_38238)
static void C_ccall f_38238(C_word c,C_word *av) C_noret;
C_noret_decl(f_38244)
static void f_38244(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_38268)
static void C_ccall f_38268(C_word c,C_word *av) C_noret;
C_noret_decl(f_38275)
static void C_ccall f_38275(C_word c,C_word *av) C_noret;
C_noret_decl(f_38279)
static void C_ccall f_38279(C_word c,C_word *av) C_noret;
C_noret_decl(f_38291)
static void C_ccall f_38291(C_word c,C_word *av) C_noret;
C_noret_decl(f_38299)
static void C_ccall f_38299(C_word c,C_word *av) C_noret;
C_noret_decl(f_38303)
static void C_ccall f_38303(C_word c,C_word *av) C_noret;
C_noret_decl(f_38312)
static void C_ccall f_38312(C_word c,C_word *av) C_noret;
C_noret_decl(f_38321)
static void C_ccall f_38321(C_word c,C_word *av) C_noret;
C_noret_decl(f_38329)
static void C_ccall f_38329(C_word c,C_word *av) C_noret;
C_noret_decl(f_38342)
static void C_ccall f_38342(C_word c,C_word *av) C_noret;
C_noret_decl(f_38350)
static void f_38350(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_38375)
static void C_ccall f_38375(C_word c,C_word *av) C_noret;
C_noret_decl(f_38384)
static void C_ccall f_38384(C_word c,C_word *av) C_noret;
C_noret_decl(f_38391)
static void C_ccall f_38391(C_word c,C_word *av) C_noret;
C_noret_decl(f_38394)
static void C_ccall f_38394(C_word c,C_word *av) C_noret;
C_noret_decl(f_38399)
static void f_38399(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_38431)
static void C_ccall f_38431(C_word c,C_word *av) C_noret;
C_noret_decl(f_38435)
static void C_ccall f_38435(C_word c,C_word *av) C_noret;
C_noret_decl(f_38438)
static void C_ccall f_38438(C_word c,C_word *av) C_noret;
C_noret_decl(f_38443)
static void f_38443(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_38456)
static void C_ccall f_38456(C_word c,C_word *av) C_noret;
C_noret_decl(f_38481)
static void C_ccall f_38481(C_word c,C_word *av) C_noret;
C_noret_decl(f_38493)
static void f_38493(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_38518)
static void C_ccall f_38518(C_word c,C_word *av) C_noret;
C_noret_decl(f_38520)
static void C_ccall f_38520(C_word c,C_word *av) C_noret;
C_noret_decl(f_38537)
static void f_38537(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_38544)
static void C_ccall f_38544(C_word c,C_word *av) C_noret;
C_noret_decl(f_38547)
static void C_ccall f_38547(C_word c,C_word *av) C_noret;
C_noret_decl(f_38550)
static void C_ccall f_38550(C_word c,C_word *av) C_noret;
C_noret_decl(f_38555)
static C_word f_38555(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_38622)
static void C_ccall f_38622(C_word c,C_word *av) C_noret;
C_noret_decl(f_38639)
static void f_38639(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_38646)
static void C_ccall f_38646(C_word c,C_word *av) C_noret;
C_noret_decl(f_38649)
static void C_ccall f_38649(C_word c,C_word *av) C_noret;
C_noret_decl(f_38652)
static void C_ccall f_38652(C_word c,C_word *av) C_noret;
C_noret_decl(f_38657)
static void f_38657(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_38732)
static void C_ccall f_38732(C_word c,C_word *av) C_noret;
C_noret_decl(f_38742)
static void C_ccall f_38742(C_word c,C_word *av) C_noret;
C_noret_decl(f_38747)
static void f_38747(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_38760)
static void C_ccall f_38760(C_word c,C_word *av) C_noret;
C_noret_decl(f_38794)
static void C_ccall f_38794(C_word c,C_word *av) C_noret;
C_noret_decl(f_38808)
static void C_ccall f_38808(C_word c,C_word *av) C_noret;
C_noret_decl(f_38817)
static void C_ccall f_38817(C_word c,C_word *av) C_noret;
C_noret_decl(f_38822)
static void f_38822(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_38843)
static void C_ccall f_38843(C_word c,C_word *av) C_noret;
C_noret_decl(f_38848)
static C_word f_38848(C_word t0,C_word t1);
C_noret_decl(f_38855)
static void C_ccall f_38855(C_word c,C_word *av) C_noret;
C_noret_decl(f_38857)
static void f_38857(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_38891)
static C_word f_38891(C_word t0,C_word t1);
C_noret_decl(f_38915)
static void f_38915(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_38949)
static C_word f_38949(C_word t0);
C_noret_decl(f_38972)
static void C_ccall f_38972(C_word c,C_word *av) C_noret;
C_noret_decl(f_38984)
static void f_38984(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_38994)
static void C_ccall f_38994(C_word c,C_word *av) C_noret;
C_noret_decl(f_39020)
static void C_ccall f_39020(C_word c,C_word *av) C_noret;
C_noret_decl(f_39034)
static void C_ccall f_39034(C_word c,C_word *av) C_noret;
C_noret_decl(f_39043)
static void C_ccall f_39043(C_word c,C_word *av) C_noret;
C_noret_decl(f_39048)
static void f_39048(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_39058)
static void C_ccall f_39058(C_word c,C_word *av) C_noret;
C_noret_decl(f_39070)
static C_word f_39070(C_word t0,C_word t1);
C_noret_decl(f_39077)
static void C_ccall f_39077(C_word c,C_word *av) C_noret;
C_noret_decl(f_39079)
static void f_39079(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_39113)
static C_word f_39113(C_word t0,C_word t1);
C_noret_decl(f_39137)
static void f_39137(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_39171)
static C_word f_39171(C_word t0);
C_noret_decl(f_39194)
static void C_ccall f_39194(C_word c,C_word *av) C_noret;
C_noret_decl(f_39204)
static void C_ccall f_39204(C_word c,C_word *av) C_noret;
C_noret_decl(f_39213)
static void C_ccall f_39213(C_word c,C_word *av) C_noret;
C_noret_decl(f_39218)
static void f_39218(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_39239)
static void C_ccall f_39239(C_word c,C_word *av) C_noret;
C_noret_decl(f_39249)
static void C_ccall f_39249(C_word c,C_word *av) C_noret;
C_noret_decl(f_39263)
static void C_ccall f_39263(C_word c,C_word *av) C_noret;
C_noret_decl(f_39272)
static void C_ccall f_39272(C_word c,C_word *av) C_noret;
C_noret_decl(f_39277)
static void f_39277(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_39298)
static void C_ccall f_39298(C_word c,C_word *av) C_noret;
C_noret_decl(f_39303)
static C_word f_39303(C_word t0,C_word t1);
C_noret_decl(f_39310)
static void C_ccall f_39310(C_word c,C_word *av) C_noret;
C_noret_decl(f_39312)
static void f_39312(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_39346)
static C_word f_39346(C_word t0,C_word t1);
C_noret_decl(f_39370)
static void f_39370(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_39404)
static C_word f_39404(C_word t0);
C_noret_decl(f_39427)
static void C_ccall f_39427(C_word c,C_word *av) C_noret;
C_noret_decl(f_39437)
static void C_ccall f_39437(C_word c,C_word *av) C_noret;
C_noret_decl(f_39448)
static void f_39448(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_39458)
static void C_ccall f_39458(C_word c,C_word *av) C_noret;
C_noret_decl(f_39475)
static void C_ccall f_39475(C_word c,C_word *av) C_noret;
C_noret_decl(f_39489)
static void C_ccall f_39489(C_word c,C_word *av) C_noret;
C_noret_decl(f_39498)
static void C_ccall f_39498(C_word c,C_word *av) C_noret;
C_noret_decl(f_39503)
static void f_39503(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_39513)
static void C_ccall f_39513(C_word c,C_word *av) C_noret;
C_noret_decl(f_39525)
static C_word f_39525(C_word t0,C_word t1);
C_noret_decl(f_39532)
static void C_ccall f_39532(C_word c,C_word *av) C_noret;
C_noret_decl(f_39534)
static void f_39534(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_39568)
static C_word f_39568(C_word t0,C_word t1);
C_noret_decl(f_39592)
static void f_39592(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_39626)
static C_word f_39626(C_word t0);
C_noret_decl(f_39649)
static void C_ccall f_39649(C_word c,C_word *av) C_noret;
C_noret_decl(f_39653)
static void C_ccall f_39653(C_word c,C_word *av) C_noret;
C_noret_decl(f_39656)
static void C_ccall f_39656(C_word c,C_word *av) C_noret;
C_noret_decl(f_39659)
static void C_ccall f_39659(C_word c,C_word *av) C_noret;
C_noret_decl(f_39684)
static void C_ccall f_39684(C_word c,C_word *av) C_noret;
C_noret_decl(f_39690)
static void C_ccall f_39690(C_word c,C_word *av) C_noret;
C_noret_decl(f_39696)
static void C_ccall f_39696(C_word c,C_word *av) C_noret;
C_noret_decl(f_39700)
static void C_ccall f_39700(C_word c,C_word *av) C_noret;
C_noret_decl(f_39705)
static void C_ccall f_39705(C_word c,C_word *av) C_noret;
C_noret_decl(f_39708)
static void C_ccall f_39708(C_word c,C_word *av) C_noret;
C_noret_decl(f_39715)
static void C_ccall f_39715(C_word c,C_word *av) C_noret;
C_noret_decl(f_39733)
static void C_ccall f_39733(C_word c,C_word *av) C_noret;
C_noret_decl(f_39736)
static void C_ccall f_39736(C_word c,C_word *av) C_noret;
C_noret_decl(f_39748)
static void C_ccall f_39748(C_word c,C_word *av) C_noret;
C_noret_decl(f_39776)
static void f_39776(C_word t0,C_word t1) C_noret;
C_noret_decl(f_39779)
static void f_39779(C_word t0,C_word t1) C_noret;
C_noret_decl(f_39782)
static void C_ccall f_39782(C_word c,C_word *av) C_noret;
C_noret_decl(f_39852)
static void C_ccall f_39852(C_word c,C_word *av) C_noret;
C_noret_decl(f_39881)
static void C_ccall f_39881(C_word c,C_word *av) C_noret;
C_noret_decl(f_39883)
static void f_39883(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_39903)
static void C_ccall f_39903(C_word c,C_word *av) C_noret;
C_noret_decl(f_39955)
static void C_ccall f_39955(C_word c,C_word *av) C_noret;
C_noret_decl(f_39965)
static void f_39965(C_word t0,C_word t1) C_noret;
C_noret_decl(f_39975)
static void f_39975(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_39988)
static void C_ccall f_39988(C_word c,C_word *av) C_noret;
C_noret_decl(f_39993)
static void f_39993(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_40006)
static void C_ccall f_40006(C_word c,C_word *av) C_noret;
C_noret_decl(f_40039)
static void C_ccall f_40039(C_word c,C_word *av) C_noret;
C_noret_decl(f_40048)
static void C_ccall f_40048(C_word c,C_word *av) C_noret;
C_noret_decl(f_40074)
static void C_ccall f_40074(C_word c,C_word *av) C_noret;
C_noret_decl(f_40082)
static void C_ccall f_40082(C_word c,C_word *av) C_noret;
C_noret_decl(f_40111)
static void C_ccall f_40111(C_word c,C_word *av) C_noret;
C_noret_decl(f_40139)
static void f_40139(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_40152)
static void C_ccall f_40152(C_word c,C_word *av) C_noret;
C_noret_decl(f_40201)
static void C_ccall f_40201(C_word c,C_word *av) C_noret;
C_noret_decl(f_40220)
static void C_ccall f_40220(C_word c,C_word *av) C_noret;
C_noret_decl(f_40240)
static void C_ccall f_40240(C_word c,C_word *av) C_noret;
C_noret_decl(f_40255)
static void f_40255(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_40259)
static void C_ccall f_40259(C_word c,C_word *av) C_noret;
C_noret_decl(f_40315)
static void C_ccall f_40315(C_word c,C_word *av) C_noret;
C_noret_decl(f_40319)
static void C_ccall f_40319(C_word c,C_word *av) C_noret;
C_noret_decl(f_40327)
static void C_ccall f_40327(C_word c,C_word *av) C_noret;
C_noret_decl(f_40330)
static void f_40330(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_40334)
static void C_ccall f_40334(C_word c,C_word *av) C_noret;
C_noret_decl(f_40345)
static void C_ccall f_40345(C_word c,C_word *av) C_noret;
C_noret_decl(f_40348)
static C_word f_40348(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_40354)
static void f_40354(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_40358)
static void C_ccall f_40358(C_word c,C_word *av) C_noret;
C_noret_decl(f_40378)
static void f_40378(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_40403)
static void C_ccall f_40403(C_word c,C_word *av) C_noret;
C_noret_decl(f_40473)
static void C_ccall f_40473(C_word c,C_word *av) C_noret;
C_noret_decl(f_40548)
static void C_ccall f_40548(C_word c,C_word *av) C_noret;
C_noret_decl(f_40633)
static void C_ccall f_40633(C_word c,C_word *av) C_noret;
C_noret_decl(f_40652)
static void C_ccall f_40652(C_word c,C_word *av) C_noret;
C_noret_decl(f_40655)
static void C_ccall f_40655(C_word c,C_word *av) C_noret;
C_noret_decl(f_40669)
static void C_ccall f_40669(C_word c,C_word *av) C_noret;
C_noret_decl(f_40681)
static void C_ccall f_40681(C_word c,C_word *av) C_noret;
C_noret_decl(f_40683)
static void C_ccall f_40683(C_word c,C_word *av) C_noret;
C_noret_decl(f_40691)
static void C_ccall f_40691(C_word c,C_word *av) C_noret;
C_noret_decl(f_40693)
static void f_40693(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_40700)
static void C_ccall f_40700(C_word c,C_word *av) C_noret;
C_noret_decl(f_40712)
static void C_ccall f_40712(C_word c,C_word *av) C_noret;
C_noret_decl(f_40732)
static void C_ccall f_40732(C_word c,C_word *av) C_noret;
C_noret_decl(f_40736)
static void C_ccall f_40736(C_word c,C_word *av) C_noret;
C_noret_decl(f_40739)
static void C_ccall f_40739(C_word c,C_word *av) C_noret;
C_noret_decl(f_40748)
static void C_ccall f_40748(C_word c,C_word *av) C_noret;
C_noret_decl(f_40750)
static void C_ccall f_40750(C_word c,C_word *av) C_noret;
C_noret_decl(f_40801)
static void C_ccall f_40801(C_word c,C_word *av) C_noret;
C_noret_decl(f_40826)
static void C_ccall f_40826(C_word c,C_word *av) C_noret;
C_noret_decl(f_40841)
static void C_ccall f_40841(C_word c,C_word *av) C_noret;
C_noret_decl(f_40851)
static void C_ccall f_40851(C_word c,C_word *av) C_noret;
C_noret_decl(f_40881)
static void C_ccall f_40881(C_word c,C_word *av) C_noret;
C_noret_decl(f_40909)
static void C_ccall f_40909(C_word c,C_word *av) C_noret;
C_noret_decl(f_40919)
static void C_ccall f_40919(C_word c,C_word *av) C_noret;
C_noret_decl(f_40924)
static void f_40924(C_word t0,C_word t1) C_noret;
C_noret_decl(f_40928)
static void C_ccall f_40928(C_word c,C_word *av) C_noret;
C_noret_decl(f_40934)
static void C_ccall f_40934(C_word c,C_word *av) C_noret;
C_noret_decl(f_40937)
static void C_ccall f_40937(C_word c,C_word *av) C_noret;
C_noret_decl(f_40944)
static void C_ccall f_40944(C_word c,C_word *av) C_noret;
C_noret_decl(f_40965)
static void C_ccall f_40965(C_word c,C_word *av) C_noret;
C_noret_decl(f_40975)
static void C_ccall f_40975(C_word c,C_word *av) C_noret;
C_noret_decl(f_40978)
static void C_ccall f_40978(C_word c,C_word *av) C_noret;
C_noret_decl(f_40992)
static void C_ccall f_40992(C_word c,C_word *av) C_noret;
C_noret_decl(f_41005)
static void C_ccall f_41005(C_word c,C_word *av) C_noret;
C_noret_decl(f_41023)
static void C_ccall f_41023(C_word c,C_word *av) C_noret;
C_noret_decl(f_41057)
static void C_ccall f_41057(C_word c,C_word *av) C_noret;
C_noret_decl(f_41060)
static void C_ccall f_41060(C_word c,C_word *av) C_noret;
C_noret_decl(f_41119)
static void C_ccall f_41119(C_word c,C_word *av) C_noret;
C_noret_decl(f_41127)
static void C_ccall f_41127(C_word c,C_word *av) C_noret;
C_noret_decl(f_41131)
static void C_ccall f_41131(C_word c,C_word *av) C_noret;
C_noret_decl(f_41135)
static void C_ccall f_41135(C_word c,C_word *av) C_noret;
C_noret_decl(f_41141)
static void C_ccall f_41141(C_word c,C_word *av) C_noret;
C_noret_decl(f_41145)
static void C_ccall f_41145(C_word c,C_word *av) C_noret;
C_noret_decl(f_41149)
static void C_ccall f_41149(C_word c,C_word *av) C_noret;
C_noret_decl(f_41171)
static void C_ccall f_41171(C_word c,C_word *av) C_noret;
C_noret_decl(f_41175)
static void C_ccall f_41175(C_word c,C_word *av) C_noret;
C_noret_decl(f_41179)
static void C_ccall f_41179(C_word c,C_word *av) C_noret;
C_noret_decl(f_41183)
static void C_ccall f_41183(C_word c,C_word *av) C_noret;
C_noret_decl(f_41187)
static void C_ccall f_41187(C_word c,C_word *av) C_noret;
C_noret_decl(f_41207)
static void C_ccall f_41207(C_word c,C_word *av) C_noret;
C_noret_decl(f_41215)
static void f_41215(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_41240)
static void C_ccall f_41240(C_word c,C_word *av) C_noret;
C_noret_decl(f_41257)
static void C_ccall f_41257(C_word c,C_word *av) C_noret;
C_noret_decl(f_41261)
static void C_ccall f_41261(C_word c,C_word *av) C_noret;
C_noret_decl(f_41264)
static void C_ccall f_41264(C_word c,C_word *av) C_noret;
C_noret_decl(f_41267)
static void C_ccall f_41267(C_word c,C_word *av) C_noret;
C_noret_decl(f_41277)
static void C_ccall f_41277(C_word c,C_word *av) C_noret;
C_noret_decl(f_41280)
static void C_ccall f_41280(C_word c,C_word *av) C_noret;
C_noret_decl(f_41282)
static void C_ccall f_41282(C_word c,C_word *av) C_noret;
C_noret_decl(f_41299)
static C_word f_41299(C_word t0);
C_noret_decl(f_41326)
static void C_ccall f_41326(C_word c,C_word *av) C_noret;
C_noret_decl(f_41335)
static void C_ccall f_41335(C_word c,C_word *av) C_noret;
C_noret_decl(f_41355)
static void C_ccall f_41355(C_word c,C_word *av) C_noret;
C_noret_decl(f_41359)
static void C_ccall f_41359(C_word c,C_word *av) C_noret;
C_noret_decl(f_41363)
static void C_ccall f_41363(C_word c,C_word *av) C_noret;
C_noret_decl(f_41367)
static void C_ccall f_41367(C_word c,C_word *av) C_noret;
C_noret_decl(f_41371)
static void C_ccall f_41371(C_word c,C_word *av) C_noret;
C_noret_decl(f_41375)
static void C_ccall f_41375(C_word c,C_word *av) C_noret;
C_noret_decl(f_41379)
static void C_ccall f_41379(C_word c,C_word *av) C_noret;
C_noret_decl(f_41381)
static void C_ccall f_41381(C_word c,C_word *av) C_noret;
C_noret_decl(f_41390)
static void C_ccall f_41390(C_word c,C_word *av) C_noret;
C_noret_decl(f_41400)
static void C_ccall f_41400(C_word c,C_word *av) C_noret;
C_noret_decl(f_41425)
static void C_ccall f_41425(C_word c,C_word *av) C_noret;
C_noret_decl(f_41428)
static void C_ccall f_41428(C_word c,C_word *av) C_noret;
C_noret_decl(f_41430)
static void C_ccall f_41430(C_word c,C_word *av) C_noret;
C_noret_decl(f_41446)
static void f_41446(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_41481)
static void C_ccall f_41481(C_word c,C_word *av) C_noret;
C_noret_decl(f_41505)
static void C_ccall f_41505(C_word c,C_word *av) C_noret;
C_noret_decl(f_41509)
static void C_ccall f_41509(C_word c,C_word *av) C_noret;
C_noret_decl(f_41511)
static void C_ccall f_41511(C_word c,C_word *av) C_noret;
C_noret_decl(f_41515)
static void C_ccall f_41515(C_word c,C_word *av) C_noret;
C_noret_decl(f_41518)
static void C_ccall f_41518(C_word c,C_word *av) C_noret;
C_noret_decl(f_41531)
static void C_ccall f_41531(C_word c,C_word *av) C_noret;
C_noret_decl(f_41536)
static void C_ccall f_41536(C_word c,C_word *av) C_noret;
C_noret_decl(f_41551)
static void C_ccall f_41551(C_word c,C_word *av) C_noret;
C_noret_decl(f_41555)
static void C_ccall f_41555(C_word c,C_word *av) C_noret;
C_noret_decl(f_41564)
static void C_ccall f_41564(C_word c,C_word *av) C_noret;
C_noret_decl(f_41567)
static void C_ccall f_41567(C_word c,C_word *av) C_noret;
C_noret_decl(f_41570)
static void C_ccall f_41570(C_word c,C_word *av) C_noret;
C_noret_decl(f_41573)
static void C_ccall f_41573(C_word c,C_word *av) C_noret;
C_noret_decl(f_41576)
static void C_ccall f_41576(C_word c,C_word *av) C_noret;
C_noret_decl(f_41578)
static void C_ccall f_41578(C_word c,C_word *av) C_noret;
C_noret_decl(f_41588)
static void C_ccall f_41588(C_word c,C_word *av) C_noret;
C_noret_decl(f_41600)
static void C_ccall f_41600(C_word c,C_word *av) C_noret;
C_noret_decl(f_41608)
static void f_41608(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_41618)
static void C_ccall f_41618(C_word c,C_word *av) C_noret;
C_noret_decl(f_41634)
static void C_ccall f_41634(C_word c,C_word *av) C_noret;
C_noret_decl(f_41640)
static void C_ccall f_41640(C_word c,C_word *av) C_noret;
C_noret_decl(f_41643)
static void C_ccall f_41643(C_word c,C_word *av) C_noret;
C_noret_decl(f_41646)
static void C_ccall f_41646(C_word c,C_word *av) C_noret;
C_noret_decl(f_41647)
static void f_41647(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_41651)
static void C_ccall f_41651(C_word c,C_word *av) C_noret;
C_noret_decl(f_41657)
static void C_ccall f_41657(C_word c,C_word *av) C_noret;
C_noret_decl(f_41661)
static void C_ccall f_41661(C_word c,C_word *av) C_noret;
C_noret_decl(f_41663)
static void f_41663(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_41673)
static void C_ccall f_41673(C_word c,C_word *av) C_noret;
C_noret_decl(f_41690)
static void C_ccall f_41690(C_word c,C_word *av) C_noret;
C_noret_decl(f_41693)
static void C_ccall f_41693(C_word c,C_word *av) C_noret;
C_noret_decl(f_41697)
static void C_ccall f_41697(C_word c,C_word *av) C_noret;
C_noret_decl(f_41702)
static void C_ccall f_41702(C_word c,C_word *av) C_noret;
C_noret_decl(f_41708)
static void C_ccall f_41708(C_word c,C_word *av) C_noret;
C_noret_decl(f_41724)
static void C_ccall f_41724(C_word c,C_word *av) C_noret;
C_noret_decl(f_41732)
static void C_ccall f_41732(C_word c,C_word *av) C_noret;
C_noret_decl(f_41754)
static void C_ccall f_41754(C_word c,C_word *av) C_noret;
C_noret_decl(f_41772)
static void C_ccall f_41772(C_word c,C_word *av) C_noret;
C_noret_decl(f_41776)
static void C_ccall f_41776(C_word c,C_word *av) C_noret;
C_noret_decl(f_41788)
static void C_ccall f_41788(C_word c,C_word *av) C_noret;
C_noret_decl(f_41795)
static void C_ccall f_41795(C_word c,C_word *av) C_noret;
C_noret_decl(f_41810)
static void C_ccall f_41810(C_word c,C_word *av) C_noret;
C_noret_decl(f_41813)
static void C_ccall f_41813(C_word c,C_word *av) C_noret;
C_noret_decl(f_41816)
static void C_ccall f_41816(C_word c,C_word *av) C_noret;
C_noret_decl(f_41829)
static void f_41829(C_word t0,C_word t1) C_noret;
C_noret_decl(f_41852)
static void C_ccall f_41852(C_word c,C_word *av) C_noret;
C_noret_decl(f_41876)
static void C_ccall f_41876(C_word c,C_word *av) C_noret;
C_noret_decl(f_41886)
static void C_ccall f_41886(C_word c,C_word *av) C_noret;
C_noret_decl(f_41895)
static void C_ccall f_41895(C_word c,C_word *av) C_noret;
C_noret_decl(f_41936)
static void C_ccall f_41936(C_word c,C_word *av) C_noret;
C_noret_decl(f_41958)
static void C_ccall f_41958(C_word c,C_word *av) C_noret;
C_noret_decl(f_41967)
static void C_ccall f_41967(C_word c,C_word *av) C_noret;
C_noret_decl(f_41971)
static void C_ccall f_41971(C_word c,C_word *av) C_noret;
C_noret_decl(f_41976)
static void C_ccall f_41976(C_word c,C_word *av) C_noret;
C_noret_decl(f_41986)
static void C_ccall f_41986(C_word c,C_word *av) C_noret;
C_noret_decl(f_41996)
static void C_ccall f_41996(C_word c,C_word *av) C_noret;
C_noret_decl(f_42006)
static void C_ccall f_42006(C_word c,C_word *av) C_noret;
C_noret_decl(f_42016)
static void C_ccall f_42016(C_word c,C_word *av) C_noret;
C_noret_decl(f_42026)
static void C_ccall f_42026(C_word c,C_word *av) C_noret;
C_noret_decl(f_42036)
static void C_ccall f_42036(C_word c,C_word *av) C_noret;
C_noret_decl(f_42046)
static void C_ccall f_42046(C_word c,C_word *av) C_noret;
C_noret_decl(f_42056)
static void C_ccall f_42056(C_word c,C_word *av) C_noret;
C_noret_decl(f_42066)
static void C_ccall f_42066(C_word c,C_word *av) C_noret;
C_noret_decl(f_42076)
static void C_ccall f_42076(C_word c,C_word *av) C_noret;
C_noret_decl(f_42086)
static void C_ccall f_42086(C_word c,C_word *av) C_noret;
C_noret_decl(f_42096)
static void C_ccall f_42096(C_word c,C_word *av) C_noret;
C_noret_decl(f_42106)
static void C_ccall f_42106(C_word c,C_word *av) C_noret;
C_noret_decl(f_42122)
static void C_ccall f_42122(C_word c,C_word *av) C_noret;
C_noret_decl(f_42130)
static void C_ccall f_42130(C_word c,C_word *av) C_noret;
C_noret_decl(f_42146)
static void C_ccall f_42146(C_word c,C_word *av) C_noret;
C_noret_decl(f_42162)
static void C_ccall f_42162(C_word c,C_word *av) C_noret;
C_noret_decl(f_42172)
static void C_ccall f_42172(C_word c,C_word *av) C_noret;
C_noret_decl(f_42182)
static void C_ccall f_42182(C_word c,C_word *av) C_noret;
C_noret_decl(f_42201)
static void C_ccall f_42201(C_word c,C_word *av) C_noret;
C_noret_decl(f_42217)
static void C_ccall f_42217(C_word c,C_word *av) C_noret;
C_noret_decl(f_42230)
static void C_ccall f_42230(C_word c,C_word *av) C_noret;
C_noret_decl(f_42236)
static void C_ccall f_42236(C_word c,C_word *av) C_noret;
C_noret_decl(f_42268)
static void C_ccall f_42268(C_word c,C_word *av) C_noret;
C_noret_decl(f_42284)
static void C_ccall f_42284(C_word c,C_word *av) C_noret;
C_noret_decl(f_42288)
static void C_ccall f_42288(C_word c,C_word *av) C_noret;
C_noret_decl(f_42298)
static void C_ccall f_42298(C_word c,C_word *av) C_noret;
C_noret_decl(f_42304)
static void C_ccall f_42304(C_word c,C_word *av) C_noret;
C_noret_decl(f_42311)
static void C_ccall f_42311(C_word c,C_word *av) C_noret;
C_noret_decl(f_42329)
static void C_ccall f_42329(C_word c,C_word *av) C_noret;
C_noret_decl(f_42333)
static void C_ccall f_42333(C_word c,C_word *av) C_noret;
C_noret_decl(f_42341)
static void C_ccall f_42341(C_word c,C_word *av) C_noret;
C_noret_decl(f_42344)
static void C_ccall f_42344(C_word c,C_word *av) C_noret;
C_noret_decl(f_42357)
static void C_ccall f_42357(C_word c,C_word *av) C_noret;
C_noret_decl(f_42360)
static void C_ccall f_42360(C_word c,C_word *av) C_noret;
C_noret_decl(f_42372)
static void C_ccall f_42372(C_word c,C_word *av) C_noret;
C_noret_decl(f_42386)
static void C_ccall f_42386(C_word c,C_word *av) C_noret;
C_noret_decl(f_42389)
static void C_ccall f_42389(C_word c,C_word *av) C_noret;
C_noret_decl(f_42395)
static void C_ccall f_42395(C_word c,C_word *av) C_noret;
C_noret_decl(f_42398)
static void C_ccall f_42398(C_word c,C_word *av) C_noret;
C_noret_decl(f_42401)
static void C_ccall f_42401(C_word c,C_word *av) C_noret;
C_noret_decl(f_42408)
static void f_42408(C_word t0,C_word t1) C_noret;
C_noret_decl(f_42417)
static void f_42417(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_42433)
static void C_ccall f_42433(C_word c,C_word *av) C_noret;
C_noret_decl(f_42444)
static void C_ccall f_42444(C_word c,C_word *av) C_noret;
C_noret_decl(f_42455)
static void C_ccall f_42455(C_word c,C_word *av) C_noret;
C_noret_decl(f_42459)
static void C_ccall f_42459(C_word c,C_word *av) C_noret;
C_noret_decl(f_42508)
static void C_ccall f_42508(C_word c,C_word *av) C_noret;
C_noret_decl(f_42521)
static void f_42521(C_word t0,C_word t1) C_noret;
C_noret_decl(f_42524)
static void f_42524(C_word t0,C_word t1) C_noret;
C_noret_decl(f_42533)
static void f_42533(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_42556)
static void C_ccall f_42556(C_word c,C_word *av) C_noret;
C_noret_decl(f_42580)
static void C_ccall f_42580(C_word c,C_word *av) C_noret;
C_noret_decl(f_42584)
static void C_ccall f_42584(C_word c,C_word *av) C_noret;
C_noret_decl(f_42601)
static void C_ccall f_42601(C_word c,C_word *av) C_noret;
C_noret_decl(f_42615)
static void C_ccall f_42615(C_word c,C_word *av) C_noret;
C_noret_decl(f_42623)
static void C_ccall f_42623(C_word c,C_word *av) C_noret;
C_noret_decl(f_42627)
static void C_ccall f_42627(C_word c,C_word *av) C_noret;
C_noret_decl(f_42642)
static void C_ccall f_42642(C_word c,C_word *av) C_noret;
C_noret_decl(f_42646)
static void C_ccall f_42646(C_word c,C_word *av) C_noret;
C_noret_decl(f_42660)
static void C_ccall f_42660(C_word c,C_word *av) C_noret;
C_noret_decl(f_42701)
static void C_ccall f_42701(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;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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[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_18793(t0,t1,t2,t3,t4,t5);}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

C_noret_decl(trf_32652)
static void C_ccall trf_32652(C_word c,C_word *av) C_noret;
static void C_ccall trf_32652(C_word c,C_word *av){
C_word t0=av[0];
f_32652(t0);}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

/* f45783 in chicken.base#exit in k12856 in k11643 */
static void C_ccall f45783(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f45783,c,av);}
/* library.scm:963: g929 */
t2=t1;{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_fix(0);
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* f45980 in chicken.base#gensym in k12856 in k11643 */
static void C_ccall f45980(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f45980,c,av);}
/* library.scm:3409: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[757];
av2[3]=t1;
tp(4,av2);}}

/* f45984 in k22732 in chicken.base#gensym in k12856 in k11643 */
static void C_ccall f45984(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f45984,c,av);}
/* library.scm:3409: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* f46116 in k27968 in a27965 in k27920 in k27911 in k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in ... */
static void C_ccall f46116(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f46116,c,av);}
/* library.scm:5179: ##sys#intern-keyword */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[743]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[743]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* f46121 in k27968 in a27965 in k27920 in k27911 in k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in ... */
static void C_ccall f46121(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f46121,c,av);}
/* library.scm:5179: ##sys#intern-keyword */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[743]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[743]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* f46128 in a28092 in r-number in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f46128(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f46128,c,av);}
/* library.scm:5179: ##sys#intern-keyword */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[743]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[743]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* f46137 in a28386 in r-symbol in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f46137(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f46137,c,av);}
/* library.scm:5179: ##sys#intern-keyword */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[743]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[743]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* f46146 in a29494 in a29488 in k29477 in k29474 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in ... */
static void C_ccall f46146(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f46146,c,av);}
/* library.scm:5179: ##sys#intern-keyword */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[743]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[743]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* f49696 in k41423 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f49696(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f49696,c,av);}
t3=C_i_check_list_2(t2,lf[1604]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* f49702 in k41507 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f49702(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f49702,c,av);}
t3=C_i_check_string_2(t2,lf[1607]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* f49708 in k41503 in k41507 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f49708(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f49708,c,av);}
t3=C_i_check_string_2(t2,lf[1607]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k11643 */
static void C_ccall f_11645(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word t44;
C_word t45;
C_word t46;
C_word t47;
C_word t48;
C_word t49;
C_word t50;
C_word t51;
C_word t52;
C_word t53;
C_word t54;
C_word t55;
C_word t56;
C_word t57;
C_word t58;
C_word t59;
C_word t60;
C_word t61;
C_word t62;
C_word t63;
C_word t64;
C_word t65;
C_word t66;
C_word t67;
C_word t68;
C_word t69;
C_word t70;
C_word t71;
C_word t72;
C_word t73;
C_word t74;
C_word t75;
C_word t76;
C_word t77;
C_word t78;
C_word t79;
C_word t80;
C_word t81;
C_word t82;
C_word t83;
C_word t84;
C_word t85;
C_word t86;
C_word t87;
C_word t88;
C_word t89;
C_word t90;
C_word t91;
C_word t92;
C_word t93;
C_word t94;
C_word t95;
C_word t96;
C_word t97;
C_word t98;
C_word t99;
C_word t100;
C_word t101;
C_word t102;
C_word t103;
C_word t104;
C_word t105;
C_word t106;
C_word t107;
C_word t108;
C_word t109;
C_word t110;
C_word t111;
C_word t112;
C_word t113;
C_word t114;
C_word t115;
C_word t116;
C_word t117;
C_word t118;
C_word t119;
C_word t120;
C_word t121;
C_word t122;
C_word t123;
C_word t124;
C_word t125;
C_word t126;
C_word t127;
C_word t128;
C_word t129;
C_word t130;
C_word t131;
C_word t132;
C_word t133;
C_word t134;
C_word t135;
C_word t136;
C_word t137;
C_word t138;
C_word t139;
C_word t140;
C_word t141;
C_word t142;
C_word t143;
C_word t144;
C_word t145;
C_word t146;
C_word t147;
C_word t148;
C_word t149;
C_word t150;
C_word t151;
C_word t152;
C_word t153;
C_word t154;
C_word t155;
C_word t156;
C_word t157;
C_word t158;
C_word t159;
C_word t160;
C_word t161;
C_word t162;
C_word t163;
C_word t164;
C_word t165;
C_word t166;
C_word t167;
C_word t168;
C_word t169;
C_word t170;
C_word t171;
C_word t172;
C_word t173;
C_word t174;
C_word t175;
C_word t176;
C_word t177;
C_word t178;
C_word t179;
C_word t180;
C_word t181;
C_word t182;
C_word t183;
C_word t184;
C_word t185;
C_word t186;
C_word t187;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(406,c,5)))){
C_save_and_reclaim((void *)f_11645,c,av);}
a=C_alloc(406);
t2=C_a_i_provide(&a,1,lf[0]);
t3=C_a_i_provide(&a,1,lf[1]);
t4=C_mutate((C_word*)lf[2]+1 /* (set! scheme#not ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11647,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[3]+1 /* (set! scheme#boolean? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11650,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[4]+1 /* (set! scheme#eq? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11653,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[5]+1 /* (set! scheme#eqv? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11656,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp));
t8=C_mutate((C_word*)lf[6]+1 /* (set! scheme#equal? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11659,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp));
t9=C_mutate((C_word*)lf[7]+1 /* (set! scheme#boolean=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11662,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp));
t10=C_mutate((C_word*)lf[9]+1 /* (set! scheme#symbol=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11707,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp));
t11=C_mutate((C_word*)lf[11]+1 /* (set! scheme#pair? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11752,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp));
t12=C_mutate((C_word*)lf[12]+1 /* (set! scheme#cons ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11755,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp));
t13=C_mutate((C_word*)lf[13]+1 /* (set! scheme#car ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11758,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp));
t14=C_mutate((C_word*)lf[14]+1 /* (set! scheme#cdr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11761,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp));
t15=C_mutate((C_word*)lf[15]+1 /* (set! scheme#set-car! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11764,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp));
t16=C_mutate((C_word*)lf[16]+1 /* (set! scheme#set-cdr! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11767,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp));
t17=C_mutate((C_word*)lf[17]+1 /* (set! scheme#cadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11770,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp));
t18=C_mutate((C_word*)lf[18]+1 /* (set! scheme#caddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11773,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp));
t19=C_mutate((C_word*)lf[19]+1 /* (set! scheme#cadddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11776,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp));
t20=C_mutate((C_word*)lf[20]+1 /* (set! scheme#cddddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11779,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp));
t21=C_mutate((C_word*)lf[21]+1 /* (set! scheme#caar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11782,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp));
t22=C_mutate((C_word*)lf[22]+1 /* (set! scheme#cdar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11785,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp));
t23=C_mutate((C_word*)lf[23]+1 /* (set! scheme#cddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11788,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp));
t24=C_mutate((C_word*)lf[24]+1 /* (set! scheme#caaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11791,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp));
t25=C_mutate((C_word*)lf[25]+1 /* (set! scheme#caadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11805,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp));
t26=C_mutate((C_word*)lf[26]+1 /* (set! scheme#cadar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11812,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp));
t27=C_mutate((C_word*)lf[27]+1 /* (set! scheme#cdaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11819,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp));
t28=C_mutate((C_word*)lf[28]+1 /* (set! scheme#cdadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11833,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp));
t29=C_mutate((C_word*)lf[29]+1 /* (set! scheme#cddar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11840,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp));
t30=C_mutate((C_word*)lf[30]+1 /* (set! scheme#cdddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11854,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp));
t31=C_mutate((C_word*)lf[31]+1 /* (set! scheme#caaaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11868,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp));
t32=C_mutate((C_word*)lf[32]+1 /* (set! scheme#caaadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11886,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp));
t33=C_mutate((C_word*)lf[33]+1 /* (set! scheme#caadar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11897,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp));
t34=C_mutate((C_word*)lf[34]+1 /* (set! scheme#caaddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11908,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp));
t35=C_mutate((C_word*)lf[35]+1 /* (set! scheme#cadaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11915,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp));
t36=C_mutate((C_word*)lf[36]+1 /* (set! scheme#cadadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11926,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp));
t37=C_mutate((C_word*)lf[37]+1 /* (set! scheme#caddar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11930,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp));
t38=C_mutate((C_word*)lf[38]+1 /* (set! scheme#cdaaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11937,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp));
t39=C_mutate((C_word*)lf[39]+1 /* (set! scheme#cdaadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11955,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp));
t40=C_mutate((C_word*)lf[40]+1 /* (set! scheme#cdadar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11966,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp));
t41=C_mutate((C_word*)lf[41]+1 /* (set! scheme#cdaddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11977,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp));
t42=C_mutate((C_word*)lf[42]+1 /* (set! scheme#cddaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11984,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp));
t43=C_mutate((C_word*)lf[43]+1 /* (set! scheme#cddadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12002,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp));
t44=C_mutate((C_word*)lf[44]+1 /* (set! scheme#cdddar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12013,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp));
t45=C_mutate((C_word*)lf[45]+1 /* (set! scheme#null? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12031,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp));
t46=C_mutate((C_word*)lf[46]+1 /* (set! scheme#list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12037,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp));
t47=C_mutate((C_word*)lf[47]+1 /* (set! scheme#length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12040,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp));
t48=C_mutate((C_word*)lf[48]+1 /* (set! scheme#list-tail ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12043,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp));
t49=C_mutate((C_word*)lf[49]+1 /* (set! scheme#list-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12046,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp));
t50=C_mutate((C_word*)lf[50]+1 /* (set! scheme#reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12049,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp));
t51=C_mutate((C_word*)lf[53]+1 /* (set! scheme#memq ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12088,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp));
t52=C_mutate((C_word*)lf[54]+1 /* (set! scheme#memv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12091,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp));
t53=C_mutate((C_word*)lf[55]+1 /* (set! scheme#member ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12094,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp));
t54=C_mutate((C_word*)lf[56]+1 /* (set! scheme#assq ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12138,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp));
t55=C_mutate((C_word*)lf[57]+1 /* (set! scheme#assv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12141,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp));
t56=C_mutate((C_word*)lf[58]+1 /* (set! scheme#assoc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12144,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp));
t57=C_mutate((C_word*)lf[59]+1 /* (set! scheme#list? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12193,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp));
t58=C_mutate((C_word*)lf[60]+1 /* (set! scheme#string? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12196,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp));
t59=C_mutate((C_word*)lf[61]+1 /* (set! scheme#string-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12199,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp));
t60=C_mutate((C_word*)lf[62]+1 /* (set! scheme#string-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12202,a[2]=((C_word)li61),tmp=(C_word)a,a+=3,tmp));
t61=C_mutate((C_word*)lf[63]+1 /* (set! scheme#string-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12205,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp));
t62=C_mutate((C_word*)lf[64]+1 /* (set! scheme#string=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12208,a[2]=((C_word)li64),tmp=(C_word)a,a+=3,tmp));
t63=C_mutate((C_word*)lf[66]+1 /* (set! scheme#string-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12241,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp));
t64=C_set_block_item(lf[68] /* scheme#features */,0,C_SCHEME_UNDEFINED);
t65=C_set_block_item(lf[69] /* scheme#call-with-port */,0,C_SCHEME_UNDEFINED);
t66=C_set_block_item(lf[70] /* scheme#close-port */,0,C_SCHEME_UNDEFINED);
t67=C_set_block_item(lf[71] /* scheme#peek-u8 */,0,C_SCHEME_UNDEFINED);
t68=C_set_block_item(lf[72] /* scheme#string-map */,0,C_SCHEME_UNDEFINED);
t69=C_set_block_item(lf[73] /* scheme#vector-map */,0,C_SCHEME_UNDEFINED);
t70=C_set_block_item(lf[74] /* scheme#string-for-each */,0,C_SCHEME_UNDEFINED);
t71=C_set_block_item(lf[75] /* scheme#vector-for-each */,0,C_SCHEME_UNDEFINED);
t72=C_set_block_item(lf[76] /* scheme#make-list */,0,C_SCHEME_UNDEFINED);
t73=C_set_block_item(lf[77] /* scheme#list-set! */,0,C_SCHEME_UNDEFINED);
t74=C_set_block_item(lf[78] /* scheme#write-string */,0,C_SCHEME_UNDEFINED);
t75=C_set_block_item(lf[79] /* scheme#eof-object */,0,C_SCHEME_UNDEFINED);
t76=C_set_block_item(lf[80] /* scheme#list-copy */,0,C_SCHEME_UNDEFINED);
t77=C_set_block_item(lf[81] /* scheme#string->vector */,0,C_SCHEME_UNDEFINED);
t78=C_set_block_item(lf[82] /* scheme#vector->string */,0,C_SCHEME_UNDEFINED);
t79=C_set_block_item(lf[83] /* scheme#exact */,0,C_SCHEME_UNDEFINED);
t80=C_set_block_item(lf[84] /* scheme#inexact */,0,C_SCHEME_UNDEFINED);
t81=C_set_block_item(lf[85] /* scheme#make-parameter */,0,C_SCHEME_UNDEFINED);
t82=C_mutate((C_word*)lf[86]+1 /* (set! scheme#exact->inexact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12292,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp));
t83=C_mutate((C_word*)lf[87]+1 /* (set! scheme#abs ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12295,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp));
t84=C_mutate((C_word*)lf[88]+1 /* (set! scheme#+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_plus,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp));
t85=C_mutate((C_word*)lf[89]+1 /* (set! scheme#- ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_minus,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp));
t86=C_mutate((C_word*)lf[90]+1 /* (set! scheme#* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_times,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp));
t87=C_mutate((C_word*)lf[91]+1 /* (set! scheme#quotient ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12301,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp));
t88=C_mutate((C_word*)lf[92]+1 /* (set! scheme#remainder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12304,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp));
t89=C_mutate((C_word*)lf[93]+1 /* (set! scheme#modulo ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12307,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp));
t90=C_mutate((C_word*)lf[94]+1 /* (set! scheme#even? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12310,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp));
t91=C_mutate((C_word*)lf[95]+1 /* (set! scheme#odd? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12313,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp));
t92=C_mutate((C_word*)lf[96]+1 /* (set! scheme#= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_nequalp,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp));
t93=C_mutate((C_word*)lf[97]+1 /* (set! scheme#> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_greaterp,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp));
t94=C_mutate((C_word*)lf[98]+1 /* (set! scheme#< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_lessp,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp));
t95=C_mutate((C_word*)lf[99]+1 /* (set! scheme#>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_greater_or_equal_p,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp));
t96=C_mutate((C_word*)lf[100]+1 /* (set! scheme#<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_less_or_equal_p,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp));
t97=C_mutate((C_word*)lf[101]+1 /* (set! scheme#number? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12321,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp));
t98=C_mutate((C_word*)lf[102]+1 /* (set! scheme#complex? ...) */,*((C_word*)lf[101]+1));
t99=C_mutate((C_word*)lf[103]+1 /* (set! scheme#real? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12325,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp));
t100=C_mutate((C_word*)lf[104]+1 /* (set! scheme#rational? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12328,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp));
t101=C_mutate((C_word*)lf[105]+1 /* (set! scheme#integer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12331,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp));
t102=C_mutate((C_word*)lf[106]+1 /* (set! scheme#exact? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12334,a[2]=((C_word)li86),tmp=(C_word)a,a+=3,tmp));
t103=C_mutate((C_word*)lf[107]+1 /* (set! scheme#inexact? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12337,a[2]=((C_word)li87),tmp=(C_word)a,a+=3,tmp));
t104=C_mutate((C_word*)lf[108]+1 /* (set! scheme#zero? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12340,a[2]=((C_word)li88),tmp=(C_word)a,a+=3,tmp));
t105=C_mutate((C_word*)lf[109]+1 /* (set! scheme#positive? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12343,a[2]=((C_word)li89),tmp=(C_word)a,a+=3,tmp));
t106=C_mutate((C_word*)lf[110]+1 /* (set! scheme#negative? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12346,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp));
t107=C_mutate((C_word*)lf[111]+1 /* (set! scheme#exact-integer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12349,a[2]=((C_word)li91),tmp=(C_word)a,a+=3,tmp));
t108=C_mutate((C_word*)lf[112]+1 /* (set! scheme#number->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_number_to_string,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp));
t109=C_mutate((C_word*)lf[113]+1 /* (set! scheme#symbol? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12353,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp));
t110=C_mutate((C_word*)lf[114]+1 /* (set! scheme#vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12356,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp));
t111=C_mutate((C_word*)lf[115]+1 /* (set! scheme#vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12359,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp));
t112=C_mutate((C_word*)lf[116]+1 /* (set! scheme#vector-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12362,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp));
t113=C_mutate((C_word*)lf[117]+1 /* (set! scheme#vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12365,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp));
t114=C_set_block_item(lf[118] /* scheme#make-vector */,0,C_SCHEME_UNDEFINED);
t115=C_set_block_item(lf[119] /* scheme#list->vector */,0,C_SCHEME_UNDEFINED);
t116=C_set_block_item(lf[120] /* scheme#vector->list */,0,C_SCHEME_UNDEFINED);
t117=C_set_block_item(lf[121] /* scheme#vector */,0,C_SCHEME_UNDEFINED);
t118=C_set_block_item(lf[122] /* scheme#vector-fill! */,0,C_SCHEME_UNDEFINED);
t119=C_mutate((C_word*)lf[123]+1 /* (set! scheme#char? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12373,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp));
t120=C_mutate((C_word*)lf[124]+1 /* (set! scheme#char->integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12376,a[2]=((C_word)li99),tmp=(C_word)a,a+=3,tmp));
t121=C_mutate((C_word*)lf[126]+1 /* (set! ##sys#check-char-code ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12383,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp));
t122=C_mutate((C_word*)lf[130]+1 /* (set! scheme#integer->char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12395,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp));
t123=C_mutate((C_word*)lf[132]+1 /* (set! scheme#char=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12410,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp));
t124=C_mutate((C_word*)lf[134]+1 /* (set! scheme#char>? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12449,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp));
t125=C_mutate((C_word*)lf[136]+1 /* (set! scheme#char<? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12488,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp));
t126=C_mutate((C_word*)lf[138]+1 /* (set! scheme#char>=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12527,a[2]=((C_word)li109),tmp=(C_word)a,a+=3,tmp));
t127=C_mutate((C_word*)lf[140]+1 /* (set! scheme#char<=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12566,a[2]=((C_word)li111),tmp=(C_word)a,a+=3,tmp));
t128=C_mutate((C_word*)lf[142]+1 /* (set! scheme#char-upcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12605,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp));
t129=C_mutate((C_word*)lf[144]+1 /* (set! scheme#char-downcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12611,a[2]=((C_word)li113),tmp=(C_word)a,a+=3,tmp));
t130=C_set_block_item(lf[146] /* scheme#char-ci=? */,0,C_SCHEME_UNDEFINED);
t131=C_set_block_item(lf[147] /* scheme#char-ci>? */,0,C_SCHEME_UNDEFINED);
t132=C_set_block_item(lf[148] /* scheme#char-ci<? */,0,C_SCHEME_UNDEFINED);
t133=C_set_block_item(lf[149] /* scheme#char-ci>=? */,0,C_SCHEME_UNDEFINED);
t134=C_set_block_item(lf[150] /* scheme#char-ci<=? */,0,C_SCHEME_UNDEFINED);
t135=C_mutate((C_word*)lf[151]+1 /* (set! scheme#char-upper-case? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12622,a[2]=((C_word)li114),tmp=(C_word)a,a+=3,tmp));
t136=C_mutate((C_word*)lf[153]+1 /* (set! scheme#char-lower-case? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12628,a[2]=((C_word)li115),tmp=(C_word)a,a+=3,tmp));
t137=C_mutate((C_word*)lf[155]+1 /* (set! scheme#char-numeric? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12634,a[2]=((C_word)li116),tmp=(C_word)a,a+=3,tmp));
t138=C_mutate((C_word*)lf[157]+1 /* (set! scheme#char-whitespace? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12640,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp));
t139=C_mutate((C_word*)lf[159]+1 /* (set! scheme#char-alphabetic? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12646,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp));
t140=C_mutate((C_word*)lf[161]+1 /* (set! scheme.char#digit-value ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12652,a[2]=((C_word)li119),tmp=(C_word)a,a+=3,tmp));
t141=C_mutate((C_word*)lf[163]+1 /* (set! scheme#char-foldcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12668,a[2]=((C_word)li120),tmp=(C_word)a,a+=3,tmp));
t142=C_mutate((C_word*)lf[165]+1 /* (set! scheme#string-foldcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12674,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp));
t143=C_mutate((C_word*)lf[169]+1 /* (set! scheme#string-downcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12694,a[2]=((C_word)li122),tmp=(C_word)a,a+=3,tmp));
t144=C_mutate((C_word*)lf[171]+1 /* (set! scheme#string-upcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12714,a[2]=((C_word)li123),tmp=(C_word)a,a+=3,tmp));
t145=C_mutate((C_word*)lf[173]+1 /* (set! scheme#procedure? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12734,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp));
t146=C_mutate((C_word*)lf[174]+1 /* (set! scheme#apply ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_apply,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp));
t147=C_mutate((C_word*)lf[175]+1 /* (set! scheme#values ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_values,a[2]=((C_word)li126),tmp=(C_word)a,a+=3,tmp));
t148=C_mutate((C_word*)lf[176]+1 /* (set! scheme#call-with-values ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_call_with_values,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp));
t149=C_set_block_item(lf[177] /* scheme#call-with-current-continuation */,0,C_SCHEME_UNDEFINED);
t150=C_set_block_item(lf[178] /* scheme#call/cc */,0,C_SCHEME_UNDEFINED);
t151=C_mutate((C_word*)lf[179]+1 /* (set! scheme#input-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12742,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp));
t152=C_mutate((C_word*)lf[180]+1 /* (set! scheme#output-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12748,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp));
t153=C_mutate((C_word*)lf[181]+1 /* (set! scheme#binary-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12754,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp));
t154=C_mutate((C_word*)lf[184]+1 /* (set! scheme#textual-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12770,a[2]=((C_word)li131),tmp=(C_word)a,a+=3,tmp));
t155=C_mutate((C_word*)lf[183]+1 /* (set! scheme#port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12786,a[2]=((C_word)li132),tmp=(C_word)a,a+=3,tmp));
t156=C_mutate((C_word*)lf[186]+1 /* (set! scheme#input-port-open? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12792,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp));
t157=C_mutate((C_word*)lf[188]+1 /* (set! scheme#output-port-open? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12797,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp));
t158=C_set_block_item(lf[190] /* scheme#current-input-port */,0,C_SCHEME_UNDEFINED);
t159=C_set_block_item(lf[191] /* scheme#current-output-port */,0,C_SCHEME_UNDEFINED);
t160=C_set_block_item(lf[192] /* scheme#open-input-file */,0,C_SCHEME_UNDEFINED);
t161=C_set_block_item(lf[193] /* scheme#open-output-file */,0,C_SCHEME_UNDEFINED);
t162=C_set_block_item(lf[194] /* scheme#close-input-port */,0,C_SCHEME_UNDEFINED);
t163=C_set_block_item(lf[195] /* scheme#close-output-port */,0,C_SCHEME_UNDEFINED);
t164=C_set_block_item(lf[196] /* scheme#call-with-input-file */,0,C_SCHEME_UNDEFINED);
t165=C_set_block_item(lf[197] /* scheme#call-with-output-file */,0,C_SCHEME_UNDEFINED);
t166=C_set_block_item(lf[198] /* scheme#with-input-from-file */,0,C_SCHEME_UNDEFINED);
t167=C_set_block_item(lf[199] /* scheme#with-output-to-file */,0,C_SCHEME_UNDEFINED);
t168=C_mutate((C_word*)lf[200]+1 /* (set! scheme#eof-object? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12812,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp));
t169=C_set_block_item(lf[201] /* scheme#char-ready? */,0,C_SCHEME_UNDEFINED);
t170=C_set_block_item(lf[202] /* scheme#u8-ready? */,0,C_SCHEME_UNDEFINED);
t171=C_set_block_item(lf[203] /* scheme#read-char */,0,C_SCHEME_UNDEFINED);
t172=C_set_block_item(lf[204] /* scheme#peek-char */,0,C_SCHEME_UNDEFINED);
t173=C_set_block_item(lf[205] /* scheme#read */,0,C_SCHEME_UNDEFINED);
t174=C_set_block_item(lf[206] /* scheme#write-char */,0,C_SCHEME_UNDEFINED);
t175=C_set_block_item(lf[207] /* scheme#newline */,0,C_SCHEME_UNDEFINED);
t176=C_set_block_item(lf[208] /* scheme#write */,0,C_SCHEME_UNDEFINED);
t177=C_set_block_item(lf[209] /* scheme#display */,0,C_SCHEME_UNDEFINED);
t178=C_mutate((C_word*)lf[210]+1 /* (set! scheme#eval ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12824,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp));
t179=C_mutate((C_word*)lf[214]+1 /* (set! scheme#interaction-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12830,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp));
t180=C_mutate((C_word*)lf[217]+1 /* (set! scheme#scheme-report-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12836,a[2]=((C_word)li138),tmp=(C_word)a,a+=3,tmp));
t181=C_mutate((C_word*)lf[220]+1 /* (set! scheme#null-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12842,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp));
t182=C_mutate((C_word*)lf[223]+1 /* (set! scheme#load ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12848,a[2]=((C_word)li140),tmp=(C_word)a,a+=3,tmp));
t183=C_set_block_item(lf[226] /* scheme#for-each */,0,C_SCHEME_UNDEFINED);
t184=C_set_block_item(lf[227] /* scheme#map */,0,C_SCHEME_UNDEFINED);
t185=C_set_block_item(lf[228] /* scheme#dynamic-wind */,0,C_SCHEME_UNDEFINED);
t186=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12858,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t186;
C_library_toplevel(2,av2);}}

/* scheme#not in k11643 */
static void C_ccall f_11647(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11647,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_not(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#boolean? in k11643 */
static void C_ccall f_11650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11650,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_booleanp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#eq? in k11643 */
static void C_ccall f_11653(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11653,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_eqp(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#eqv? in k11643 */
static void C_ccall f_11656(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11656,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_eqvp(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#equal? in k11643 */
static void C_ccall f_11659(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11659,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_equalp(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#boolean=? in k11643 */
static void C_ccall f_11662(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,3)))){
C_save_and_reclaim((void*)f_11662,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+4);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
t5=C_i_check_boolean_2(t2,lf[8]);
t6=C_i_check_boolean_2(t3,lf[8]);
t7=C_eqp(t2,t3);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11678,a[2]=t3,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp);
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=(
  f_11678(t8,t4,t7)
);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}

/* loop in scheme#boolean=? in k11643 */
static C_word f_11678(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t1))){
return(t2);}
else{
t3=C_slot(t1,C_fix(0));
t4=C_i_check_boolean_2(t3,lf[8]);
t5=C_slot(t1,C_fix(1));
if(C_truep(t2)){
t7=t5;
t8=C_eqp(t3,((C_word*)t0)[2]);
t1=t7;
t2=t8;
goto loop;}
else{
t7=t5;
t8=C_SCHEME_FALSE;
t1=t7;
t2=t8;
goto loop;}}}

/* scheme#symbol=? in k11643 */
static void C_ccall f_11707(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,3)))){
C_save_and_reclaim((void*)f_11707,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+4);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
t5=C_i_check_symbol_2(t2,lf[10]);
t6=C_i_check_symbol_2(t3,lf[10]);
t7=C_eqp(t2,t3);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11723,a[2]=t3,a[3]=((C_word)li7),tmp=(C_word)a,a+=4,tmp);
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=(
  f_11723(t8,t4,t7)
);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}

/* loop in scheme#symbol=? in k11643 */
static C_word f_11723(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t1))){
return(t2);}
else{
t3=C_slot(t1,C_fix(0));
t4=C_i_check_symbol_2(t3,lf[10]);
t5=C_slot(t1,C_fix(1));
if(C_truep(t2)){
t7=t5;
t8=C_eqp(t3,((C_word*)t0)[2]);
t1=t7;
t2=t8;
goto loop;}
else{
t7=t5;
t8=C_SCHEME_FALSE;
t1=t7;
t2=t8;
goto loop;}}}

/* scheme#pair? in k11643 */
static void C_ccall f_11752(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11752,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_pairp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#cons in k11643 */
static void C_ccall f_11755(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_11755,c,av);}
a=C_alloc(3);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#car in k11643 */
static void C_ccall f_11758(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11758,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#cdr in k11643 */
static void C_ccall f_11761(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11761,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cdr(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#set-car! in k11643 */
static void C_ccall f_11764(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11764,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_car(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#set-cdr! in k11643 */
static void C_ccall f_11767(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11767,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_cdr(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#cadr in k11643 */
static void C_ccall f_11770(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11770,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cadr(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#caddr in k11643 */
static void C_ccall f_11773(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11773,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_caddr(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#cadddr in k11643 */
static void C_ccall f_11776(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11776,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cadddr(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#cddddr in k11643 */
static void C_ccall f_11779(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11779,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cddddr(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#caar in k11643 */
static void C_ccall f_11782(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11782,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_caar(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#cdar in k11643 */
static void C_ccall f_11785(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11785,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cdar(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#cddr in k11643 */
static void C_ccall f_11788(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11788,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cddr(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#caaar in k11643 */
static void C_ccall f_11791(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11791,c,av);}
t3=C_i_car(t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_car(C_i_car(t3));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#caadr in k11643 */
static void C_ccall f_11805(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11805,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_car(C_i_cadr(t2));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#cadar in k11643 */
static void C_ccall f_11812(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11812,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cadr(C_i_car(t2));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#cdaar in k11643 */
static void C_ccall f_11819(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11819,c,av);}
t3=C_i_car(t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_cdr(C_i_car(t3));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#cdadr in k11643 */
static void C_ccall f_11833(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11833,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cdr(C_i_cadr(t2));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#cddar in k11643 */
static void C_ccall f_11840(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11840,c,av);}
t3=C_i_car(t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_cdr(C_i_cdr(t3));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#cdddr in k11643 */
static void C_ccall f_11854(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11854,c,av);}
t3=C_i_cdr(t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_cdr(C_i_cdr(t3));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#caaaar in k11643 */
static void C_ccall f_11868(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11868,c,av);}
t3=C_i_car(t2);
t4=C_i_car(t3);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_car(C_i_car(t4));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* scheme#caaadr in k11643 */
static void C_ccall f_11886(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11886,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_car(C_i_car(C_i_cadr(t2)));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#caadar in k11643 */
static void C_ccall f_11897(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11897,c,av);}
t3=C_i_car(t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_car(C_i_cadr(t3));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#caaddr in k11643 */
static void C_ccall f_11908(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11908,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_car(C_i_caddr(t2));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#cadaar in k11643 */
static void C_ccall f_11915(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11915,c,av);}
t3=C_i_car(t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_cadr(C_i_car(t3));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#cadadr in k11643 */
static void C_ccall f_11926(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11926,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cadr(C_i_cadr(t2));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#caddar in k11643 */
static void C_ccall f_11930(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11930,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_caddr(C_i_car(t2));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#cdaaar in k11643 */
static void C_ccall f_11937(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11937,c,av);}
t3=C_i_car(t2);
t4=C_i_car(t3);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_cdr(C_i_car(t4));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* scheme#cdaadr in k11643 */
static void C_ccall f_11955(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11955,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cdr(C_i_car(C_i_cadr(t2)));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#cdadar in k11643 */
static void C_ccall f_11966(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11966,c,av);}
t3=C_i_car(t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_cdr(C_i_cadr(t3));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#cdaddr in k11643 */
static void C_ccall f_11977(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11977,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cdr(C_i_caddr(t2));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#cddaar in k11643 */
static void C_ccall f_11984(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11984,c,av);}
t3=C_i_car(t2);
t4=C_i_car(t3);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_cdr(C_i_cdr(t4));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* scheme#cddadr in k11643 */
static void C_ccall f_12002(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12002,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cdr(C_i_cdr(C_i_cadr(t2)));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#cdddar in k11643 */
static void C_ccall f_12013(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12013,c,av);}
t3=C_i_car(t2);
t4=C_i_cdr(t3);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_cdr(C_i_cdr(t4));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* scheme#null? in k11643 */
static void C_ccall f_12031(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12031,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_eqp(t2,C_SCHEME_END_OF_LIST);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#list in k11643 */
static void C_ccall f_12037(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_12037,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]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#length in k11643 */
static void C_ccall f_12040(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12040,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_length(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#list-tail in k11643 */
static void C_ccall f_12043(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12043,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_list_tail(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#list-ref in k11643 */
static void C_ccall f_12046(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12046,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_list_ref(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#reverse in k11643 */
static void C_ccall f_12049(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_12049,c,av);}
a=C_alloc(7);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12055,a[2]=t4,a[3]=t2,a[4]=((C_word)li48),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_12055(t6,t1,t2,C_SCHEME_END_OF_LIST);}

/* loop in scheme#reverse in k11643 */
static void f_12055(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_12055,4,t0,t1,t2,t3);}
a=C_alloc(3);
t4=C_eqp(t2,C_SCHEME_END_OF_LIST);
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(t2))){
t5=C_slot(t2,C_fix(1));
t6=C_slot(t2,C_fix(0));
t7=C_a_i_cons(&a,2,t6,t3);
/* library.scm:369: loop */
t9=t1;
t10=t5;
t11=t7;
t1=t9;
t2=t10;
t3=t11;
goto loop;}
else{
/* library.scm:370: ##sys#error-not-a-proper-list */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[51]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[52];
tp(4,av2);}}}}

/* scheme#memq in k11643 */
static void C_ccall f_12088(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12088,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_memq(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#memv in k11643 */
static void C_ccall f_12091(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12091,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_memv(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#member in k11643 */
static void C_ccall f_12094(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_12094,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));
if(C_truep(t5)){
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|5,a[1]=(C_word)f_12106,a[2]=t7,a[3]=t5,a[4]=t2,a[5]=((C_word)li52),tmp=(C_word)a,a+=6,tmp));
t9=((C_word*)t7)[1];
f_12106(t9,t1,t3);}
else{
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_i_member(t2,t3);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* loop in scheme#member in k11643 */
static void f_12106(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_12106,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_12119,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* library.scm:379: eq */
t4=((C_word*)t0)[3];{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
av2[3]=C_slot(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t4))(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);}}}

/* k12117 in loop in scheme#member in k11643 */
static void C_ccall f_12119(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12119,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* library.scm:381: loop */
t2=((C_word*)((C_word*)t0)[4])[1];
f_12106(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[3],C_fix(1)));}}

/* scheme#assq in k11643 */
static void C_ccall f_12138(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12138,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_assq(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#assv in k11643 */
static void C_ccall f_12141(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12141,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_assv(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#assoc in k11643 */
static void C_ccall f_12144(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_12144,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));
if(C_truep(t5)){
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|5,a[1]=(C_word)f_12156,a[2]=t7,a[3]=t5,a[4]=t2,a[5]=((C_word)li56),tmp=(C_word)a,a+=6,tmp));
t9=((C_word*)t7)[1];
f_12156(t9,t1,t3);}
else{
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_i_assoc(t2,t3);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* loop in scheme#assoc in k11643 */
static void f_12156(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_12156,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_12169,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
/* library.scm:391: eq */
t5=((C_word*)t0)[3];{
C_word av2[4];
av2[0]=t5;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
av2[3]=C_i_car(t4);
((C_proc)C_fast_retrieve_proc(t5))(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);}}}

/* k12167 in loop in scheme#assoc in k11643 */
static void C_ccall f_12169(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12169,c,av);}
if(C_truep(t1)){
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);}}
else{
/* library.scm:393: loop */
t2=((C_word*)((C_word*)t0)[4])[1];
f_12156(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[3],C_fix(1)));}}

/* scheme#list? in k11643 */
static void C_ccall f_12193(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12193,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_listp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#string? in k11643 */
static void C_ccall f_12196(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12196,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_stringp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#string-length in k11643 */
static void C_ccall f_12199(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12199,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_string_length(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#string-ref in k11643 */
static void C_ccall f_12202(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12202,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_string_ref(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#string-set! in k11643 */
static void C_ccall f_12205(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12205,c,av);}
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_string_set(t2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* scheme#string=? in k11643 */
static void C_ccall f_12208(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,4)))){
C_save_and_reclaim((void*)f_12208,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
t5=C_i_string_equal_p(t2,t3);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12215,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=(
  f_12215(t3,t4,t5)
);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* loop in scheme#string=? in k11643 */
static C_word f_12215(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t2))){
return(t3);}
else{
t4=C_slot(t2,C_fix(0));
t5=C_i_check_string_2(t4,lf[65]);
t6=C_slot(t2,C_fix(1));
if(C_truep(t3)){
t8=t4;
t9=t6;
t10=C_i_string_equal_p(t1,t4);
t1=t8;
t2=t9;
t3=t10;
goto loop;}
else{
t8=t4;
t9=t6;
t10=C_SCHEME_FALSE;
t1=t8;
t2=t9;
t3=t10;
goto loop;}}}

/* scheme#string-ci=? in k11643 */
static void C_ccall f_12241(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,4)))){
C_save_and_reclaim((void*)f_12241,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
t5=C_i_string_ci_equal_p(t2,t3);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12248,a[2]=((C_word)li65),tmp=(C_word)a,a+=3,tmp);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=(
  f_12248(t3,t4,t5)
);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* loop in scheme#string-ci=? in k11643 */
static C_word f_12248(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t2))){
return(t3);}
else{
t4=C_slot(t2,C_fix(0));
t5=C_i_check_string_2(t4,lf[67]);
t6=C_slot(t2,C_fix(1));
if(C_truep(t3)){
t8=t4;
t9=t6;
t10=C_i_string_ci_equal_p(t1,t4);
t1=t8;
t2=t9;
t3=t10;
goto loop;}
else{
t8=t4;
t9=t6;
t10=C_SCHEME_FALSE;
t1=t8;
t2=t9;
t3=t10;
goto loop;}}}

/* scheme#exact->inexact in k11643 */
static void C_ccall f_12292(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_12292,c,av);}
a=C_alloc(12);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_exact_to_inexact(&a,1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#abs in k11643 */
static void C_ccall f_12295(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){
C_save_and_reclaim((void *)f_12295,c,av);}
a=C_alloc(7);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_s_a_i_abs(&a,1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#quotient in k11643 */
static void C_ccall f_12301(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_12301,c,av);}
a=C_alloc(5);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_s_a_i_quotient(&a,2,t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#remainder in k11643 */
static void C_ccall f_12304(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_12304,c,av);}
a=C_alloc(5);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_s_a_i_remainder(&a,2,t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#modulo in k11643 */
static void C_ccall f_12307(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_12307,c,av);}
a=C_alloc(5);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_s_a_i_modulo(&a,2,t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#even? in k11643 */
static void C_ccall f_12310(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12310,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_evenp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#odd? in k11643 */
static void C_ccall f_12313(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12313,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_oddp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#number? in k11643 */
static void C_ccall f_12321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12321,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_numberp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#real? in k11643 */
static void C_ccall f_12325(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12325,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_realp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#rational? in k11643 */
static void C_ccall f_12328(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12328,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_rationalp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#integer? in k11643 */
static void C_ccall f_12331(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12331,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_integerp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#exact? in k11643 */
static void C_ccall f_12334(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12334,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_exactp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#inexact? in k11643 */
static void C_ccall f_12337(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12337,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_inexactp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#zero? in k11643 */
static void C_ccall f_12340(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12340,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_zerop(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#positive? in k11643 */
static void C_ccall f_12343(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12343,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_positivep(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#negative? in k11643 */
static void C_ccall f_12346(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12346,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_negativep(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#exact-integer? in k11643 */
static void C_ccall f_12349(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12349,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_exact_integerp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#symbol? in k11643 */
static void C_ccall f_12353(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12353,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_symbolp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#vector? in k11643 */
static void C_ccall f_12356(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12356,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_vectorp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#vector-length in k11643 */
static void C_ccall f_12359(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12359,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_vector_length(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#vector-ref in k11643 */
static void C_ccall f_12362(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12362,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_vector_ref(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#vector-set! in k11643 */
static void C_ccall f_12365(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12365,c,av);}
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_vector_set(t2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* scheme#char? in k11643 */
static void C_ccall f_12373(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12373,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_charp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#char->integer in k11643 */
static void C_ccall f_12376(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12376,c,av);}
t3=C_i_check_char_2(t2,lf[125]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fix(C_character_code(t2));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#check-char-code in k11643 */
static void C_ccall f_12383(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_12383,c,av);}
t4=C_fixnum_lessp(t2,C_fix(0));
t5=(C_truep(t4)?t4:C_fixnum_greaterp(t2,C_fix(1114111)));
if(C_truep(t5)){
/* library.scm:578: ##sys#signal-hook */
t6=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[128];
av2[3]=t3;
av2[4]=lf[129];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}
else{
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* scheme#integer->char in k11643 */
static void C_ccall f_12395(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_12395,c,av);}
a=C_alloc(4);
t3=C_i_check_fixnum_2(t2,lf[131]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12402,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:587: ##sys#check-char-code */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[126]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[131];
tp(4,av2);}}

/* k12400 in scheme#integer->char in k11643 */
static void C_ccall f_12402(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12402,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_make_character(C_unfix(((C_word*)t0)[3]));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* scheme#char=? in k11643 */
static void C_ccall f_12410(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,4)))){
C_save_and_reclaim((void*)f_12410,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
t5=C_i_check_char_2(t2,lf[133]);
t6=C_i_check_char_2(t3,lf[133]);
t7=C_u_i_char_equalp(t2,t3);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12423,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp);
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=(
  f_12423(t3,t4,t7)
);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}

/* loop in scheme#char=? in k11643 */
static C_word f_12423(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t2))){
return(t3);}
else{
t4=C_slot(t2,C_fix(0));
t5=C_i_check_char_2(t4,lf[133]);
t6=C_slot(t2,C_fix(1));
if(C_truep(t3)){
t8=t4;
t9=t6;
t10=C_u_i_char_equalp(t1,t4);
t1=t8;
t2=t9;
t3=t10;
goto loop;}
else{
t8=t4;
t9=t6;
t10=C_SCHEME_FALSE;
t1=t8;
t2=t9;
t3=t10;
goto loop;}}}

/* scheme#char>? in k11643 */
static void C_ccall f_12449(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,4)))){
C_save_and_reclaim((void*)f_12449,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
t5=C_i_check_char_2(t2,lf[135]);
t6=C_i_check_char_2(t3,lf[135]);
t7=C_u_i_char_greaterp(t2,t3);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12462,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp);
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=(
  f_12462(t3,t4,t7)
);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}

/* loop in scheme#char>? in k11643 */
static C_word f_12462(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t2))){
return(t3);}
else{
t4=C_slot(t2,C_fix(0));
t5=C_i_check_char_2(t4,lf[135]);
t6=C_slot(t2,C_fix(1));
if(C_truep(t3)){
t8=t4;
t9=t6;
t10=C_u_i_char_greaterp(t1,t4);
t1=t8;
t2=t9;
t3=t10;
goto loop;}
else{
t8=t4;
t9=t6;
t10=C_SCHEME_FALSE;
t1=t8;
t2=t9;
t3=t10;
goto loop;}}}

/* scheme#char<? in k11643 */
static void C_ccall f_12488(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,4)))){
C_save_and_reclaim((void*)f_12488,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
t5=C_i_check_char_2(t2,lf[137]);
t6=C_i_check_char_2(t3,lf[137]);
t7=C_u_i_char_lessp(t2,t3);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12501,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp);
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=(
  f_12501(t3,t4,t7)
);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}

/* loop in scheme#char<? in k11643 */
static C_word f_12501(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t2))){
return(t3);}
else{
t4=C_slot(t2,C_fix(0));
t5=C_i_check_char_2(t4,lf[137]);
t6=C_slot(t2,C_fix(1));
if(C_truep(t3)){
t8=t4;
t9=t6;
t10=C_u_i_char_lessp(t1,t4);
t1=t8;
t2=t9;
t3=t10;
goto loop;}
else{
t8=t4;
t9=t6;
t10=C_SCHEME_FALSE;
t1=t8;
t2=t9;
t3=t10;
goto loop;}}}

/* scheme#char>=? in k11643 */
static void C_ccall f_12527(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,4)))){
C_save_and_reclaim((void*)f_12527,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
t5=C_i_check_char_2(t2,lf[139]);
t6=C_i_check_char_2(t3,lf[139]);
t7=C_u_i_char_greater_or_equal_p(t2,t3);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12540,a[2]=((C_word)li108),tmp=(C_word)a,a+=3,tmp);
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=(
  f_12540(t3,t4,t7)
);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}

/* loop in scheme#char>=? in k11643 */
static C_word f_12540(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t2))){
return(t3);}
else{
t4=C_slot(t2,C_fix(0));
t5=C_i_check_char_2(t4,lf[139]);
t6=C_slot(t2,C_fix(1));
if(C_truep(t3)){
t8=t4;
t9=t6;
t10=C_u_i_char_greater_or_equal_p(t1,t4);
t1=t8;
t2=t9;
t3=t10;
goto loop;}
else{
t8=t4;
t9=t6;
t10=C_SCHEME_FALSE;
t1=t8;
t2=t9;
t3=t10;
goto loop;}}}

/* scheme#char<=? in k11643 */
static void C_ccall f_12566(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,4)))){
C_save_and_reclaim((void*)f_12566,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
t5=C_i_check_char_2(t2,lf[141]);
t6=C_i_check_char_2(t3,lf[141]);
t7=C_u_i_char_less_or_equal_p(t2,t3);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12579,a[2]=((C_word)li110),tmp=(C_word)a,a+=3,tmp);
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=(
  f_12579(t3,t4,t7)
);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}

/* loop in scheme#char<=? in k11643 */
static C_word f_12579(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t2))){
return(t3);}
else{
t4=C_slot(t2,C_fix(0));
t5=C_i_check_char_2(t4,lf[141]);
t6=C_slot(t2,C_fix(1));
if(C_truep(t3)){
t8=t4;
t9=t6;
t10=C_u_i_char_less_or_equal_p(t1,t4);
t1=t8;
t2=t9;
t3=t10;
goto loop;}
else{
t8=t4;
t9=t6;
t10=C_SCHEME_FALSE;
t1=t8;
t2=t9;
t3=t10;
goto loop;}}}

/* scheme#char-upcase in k11643 */
static void C_ccall f_12605(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12605,c,av);}
t3=C_i_check_char_2(t2,lf[143]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_u_i_char_upcase(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#char-downcase in k11643 */
static void C_ccall f_12611(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12611,c,av);}
t3=C_i_check_char_2(t2,lf[145]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_u_i_char_downcase(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#char-upper-case? in k11643 */
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=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12622,c,av);}
t3=C_i_check_char_2(t2,lf[152]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_u_i_char_upper_casep(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#char-lower-case? in k11643 */
static void C_ccall f_12628(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12628,c,av);}
t3=C_i_check_char_2(t2,lf[154]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_u_i_char_lower_casep(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#char-numeric? in k11643 */
static void C_ccall f_12634(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12634,c,av);}
t3=C_i_check_char_2(t2,lf[156]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_u_i_char_numericp(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#char-whitespace? in k11643 */
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 t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12640,c,av);}
t3=C_i_check_char_2(t2,lf[158]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_u_i_char_whitespacep(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#char-alphabetic? in k11643 */
static void C_ccall f_12646(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12646,c,av);}
t3=C_i_check_char_2(t2,lf[160]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_u_i_char_alphabeticp(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme.char#digit-value in k11643 */
static void C_ccall f_12652(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12652,c,av);}
t3=C_i_check_char_2(t2,lf[162]);
t4=C_u_i_digit_value(t2);
t5=C_eqp(t4,C_fix(0));
t6=C_i_not(t5);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=(C_truep(t6)?C_fixnum_difference(t4,C_fix(1)):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* scheme#char-foldcase in k11643 */
static void C_ccall f_12668(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12668,c,av);}
t3=C_i_check_char_2(t2,lf[164]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_utf_char_foldcase(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#string-foldcase in k11643 */
static void C_ccall f_12674(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12674,c,av);}
a=C_alloc(5);
t3=C_i_check_string_2(t2,lf[166]);
t4=C_slot(t2,C_fix(0));
t5=C_block_size(t4);
t6=C_fixnum_difference(t5,C_fix(1));
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12688,a[2]=t1,a[3]=t4,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
/* library.scm:700: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t7;
av2[2]=C_fixnum_times(t6,C_fix(2));
tp(3,av2);}}

/* k12686 in scheme#string-foldcase in k11643 */
static void C_ccall f_12688(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12688,c,av);}
/* library.scm:702: ##sys#buffer->string! */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[167]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[167]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_utf_string_foldcase(((C_word*)t0)[3],t1,((C_word*)t0)[4]);
tp(4,av2);}}

/* scheme#string-downcase in k11643 */
static void C_ccall f_12694(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12694,c,av);}
a=C_alloc(5);
t3=C_i_check_string_2(t2,lf[170]);
t4=C_slot(t2,C_fix(0));
t5=C_block_size(t4);
t6=C_fixnum_difference(t5,C_fix(1));
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12708,a[2]=t1,a[3]=t4,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
/* library.scm:708: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t7;
av2[2]=C_fixnum_times(t6,C_fix(2));
tp(3,av2);}}

/* k12706 in scheme#string-downcase in k11643 */
static void C_ccall f_12708(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12708,c,av);}
/* library.scm:710: ##sys#buffer->string! */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[167]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[167]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_utf_string_downcase(((C_word*)t0)[3],t1,((C_word*)t0)[4]);
tp(4,av2);}}

/* scheme#string-upcase in k11643 */
static void C_ccall f_12714(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12714,c,av);}
a=C_alloc(5);
t3=C_i_check_string_2(t2,lf[172]);
t4=C_slot(t2,C_fix(0));
t5=C_block_size(t4);
t6=C_fixnum_difference(t5,C_fix(1));
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12728,a[2]=t1,a[3]=t4,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
/* library.scm:716: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t7;
av2[2]=C_fixnum_times(t6,C_fix(2));
tp(3,av2);}}

/* k12726 in scheme#string-upcase in k11643 */
static void C_ccall f_12728(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12728,c,av);}
/* library.scm:718: ##sys#buffer->string! */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[167]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[167]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_utf_string_upcase(((C_word*)t0)[3],t1,((C_word*)t0)[4]);
tp(4,av2);}}

/* scheme#procedure? in k11643 */
static void C_ccall f_12734(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12734,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_closurep(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#input-port? in k11643 */
static void C_ccall f_12742(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12742,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(C_blockp(t2))?C_input_portp(t2):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#output-port? in k11643 */
static void C_ccall f_12748(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12748,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(C_blockp(t2))?C_output_portp(t2):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#binary-port? in k11643 */
static void C_ccall f_12754(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_12754,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12761,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:740: port? */
t4=*((C_word*)lf[183]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k12759 in scheme#binary-port? in k11643 */
static void C_ccall f_12761(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12761,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?C_eqp(lf[182],C_slot(((C_word*)t0)[3],C_fix(14))):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* scheme#textual-port? in k11643 */
static void C_ccall f_12770(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_12770,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12777,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:744: port? */
t4=*((C_word*)lf[183]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k12775 in scheme#textual-port? in k11643 */
static void C_ccall f_12777(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12777,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?C_eqp(lf[185],C_slot(((C_word*)t0)[3],C_fix(14))):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* scheme#port? in k11643 */
static void C_ccall f_12786(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12786,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(C_blockp(t2))?C_portp(t2):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#input-port-open? in k11643 */
static void C_ccall f_12792(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12792,c,av);}
t3=C_i_check_port(t2,C_fix(1),lf[187]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_input_port_openp(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#output-port-open? in k11643 */
static void C_ccall f_12797(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12797,c,av);}
t3=C_i_check_port(t2,C_fix(2),lf[189]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_output_port_openp(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#eof-object? in k11643 */
static void C_ccall f_12812(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12812,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_eofp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#eval in k11643 */
static void C_ccall f_12824(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12824,c,av);}
/* library.scm:795: ##sys#error */
t3=*((C_word*)lf[211]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[212];
av2[3]=lf[213];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* scheme#interaction-environment in k11643 */
static void C_ccall f_12830(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12830,c,av);}
/* library.scm:798: ##sys#error */
t2=*((C_word*)lf[211]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=lf[215];
av2[3]=lf[216];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* scheme#scheme-report-environment in k11643 */
static void C_ccall f_12836(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12836,c,av);}
/* library.scm:801: ##sys#error */
t3=*((C_word*)lf[211]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[218];
av2[3]=lf[219];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* scheme#null-environment in k11643 */
static void C_ccall f_12842(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12842,c,av);}
/* library.scm:804: ##sys#error */
t2=*((C_word*)lf[211]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=lf[221];
av2[3]=lf[222];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* scheme#load in k11643 */
static void C_ccall f_12848(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12848,c,av);}
/* library.scm:807: ##sys#error */
t3=*((C_word*)lf[211]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[224];
av2[3]=lf[225];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k12856 in k11643 */
static void C_ccall f_12858(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word t44;
C_word t45;
C_word t46;
C_word t47;
C_word t48;
C_word t49;
C_word t50;
C_word t51;
C_word t52;
C_word t53;
C_word t54;
C_word t55;
C_word t56;
C_word t57;
C_word t58;
C_word t59;
C_word t60;
C_word t61;
C_word t62;
C_word t63;
C_word t64;
C_word t65;
C_word t66;
C_word t67;
C_word t68;
C_word t69;
C_word t70;
C_word t71;
C_word t72;
C_word t73;
C_word t74;
C_word t75;
C_word t76;
C_word t77;
C_word t78;
C_word t79;
C_word t80;
C_word t81;
C_word t82;
C_word t83;
C_word t84;
C_word t85;
C_word t86;
C_word t87;
C_word t88;
C_word t89;
C_word t90;
C_word t91;
C_word t92;
C_word t93;
C_word t94;
C_word t95;
C_word t96;
C_word t97;
C_word t98;
C_word t99;
C_word t100;
C_word t101;
C_word t102;
C_word t103;
C_word t104;
C_word t105;
C_word t106;
C_word t107;
C_word t108;
C_word t109;
C_word t110;
C_word t111;
C_word t112;
C_word t113;
C_word t114;
C_word t115;
C_word t116;
C_word t117;
C_word t118;
C_word t119;
C_word t120;
C_word t121;
C_word t122;
C_word t123;
C_word t124;
C_word t125;
C_word t126;
C_word t127;
C_word t128;
C_word t129;
C_word t130;
C_word t131;
C_word t132;
C_word t133;
C_word t134;
C_word t135;
C_word t136;
C_word t137;
C_word t138;
C_word t139;
C_word t140;
C_word t141;
C_word t142;
C_word t143;
C_word t144;
C_word t145;
C_word t146;
C_word t147;
C_word t148;
C_word t149;
C_word t150;
C_word t151;
C_word t152;
C_word t153;
C_word t154;
C_word t155;
C_word t156;
C_word t157;
C_word t158;
C_word t159;
C_word t160;
C_word t161;
C_word t162;
C_word t163;
C_word t164;
C_word t165;
C_word t166;
C_word t167;
C_word t168;
C_word t169;
C_word t170;
C_word t171;
C_word t172;
C_word t173;
C_word t174;
C_word t175;
C_word t176;
C_word t177;
C_word t178;
C_word t179;
C_word t180;
C_word t181;
C_word t182;
C_word t183;
C_word t184;
C_word t185;
C_word t186;
C_word t187;
C_word t188;
C_word t189;
C_word t190;
C_word t191;
C_word t192;
C_word t193;
C_word t194;
C_word t195;
C_word t196;
C_word t197;
C_word t198;
C_word t199;
C_word t200;
C_word t201;
C_word t202;
C_word t203;
C_word t204;
C_word t205;
C_word t206;
C_word t207;
C_word t208;
C_word t209;
C_word t210;
C_word t211;
C_word t212;
C_word t213;
C_word t214;
C_word t215;
C_word t216;
C_word t217;
C_word t218;
C_word t219;
C_word t220;
C_word t221;
C_word t222;
C_word t223;
C_word t224;
C_word t225;
C_word t226;
C_word t227;
C_word t228;
C_word t229;
C_word t230;
C_word t231;
C_word t232;
C_word t233;
C_word t234;
C_word t235;
C_word t236;
C_word t237;
C_word t238;
C_word t239;
C_word t240;
C_word t241;
C_word t242;
C_word t243;
C_word t244;
C_word t245;
C_word t246;
C_word t247;
C_word t248;
C_word t249;
C_word t250;
C_word t251;
C_word t252;
C_word t253;
C_word t254;
C_word t255;
C_word t256;
C_word t257;
C_word t258;
C_word t259;
C_word t260;
C_word t261;
C_word t262;
C_word t263;
C_word t264;
C_word t265;
C_word t266;
C_word t267;
C_word t268;
C_word t269;
C_word t270;
C_word t271;
C_word t272;
C_word t273;
C_word t274;
C_word t275;
C_word t276;
C_word t277;
C_word t278;
C_word t279;
C_word t280;
C_word t281;
C_word t282;
C_word t283;
C_word t284;
C_word t285;
C_word t286;
C_word t287;
C_word t288;
C_word t289;
C_word t290;
C_word t291;
C_word t292;
C_word t293;
C_word t294;
C_word t295;
C_word t296;
C_word t297;
C_word t298;
C_word t299;
C_word t300;
C_word t301;
C_word t302;
C_word t303;
C_word t304;
C_word t305;
C_word t306;
C_word t307;
C_word t308;
C_word t309;
C_word t310;
C_word t311;
C_word t312;
C_word t313;
C_word t314;
C_word t315;
C_word t316;
C_word t317;
C_word t318;
C_word t319;
C_word t320;
C_word t321;
C_word t322;
C_word t323;
C_word t324;
C_word t325;
C_word t326;
C_word t327;
C_word t328;
C_word t329;
C_word t330;
C_word t331;
C_word t332;
C_word t333;
C_word t334;
C_word t335;
C_word t336;
C_word t337;
C_word t338;
C_word t339;
C_word t340;
C_word t341;
C_word t342;
C_word t343;
C_word t344;
C_word t345;
C_word t346;
C_word t347;
C_word t348;
C_word t349;
C_word t350;
C_word t351;
C_word t352;
C_word t353;
C_word t354;
C_word t355;
C_word t356;
C_word t357;
C_word t358;
C_word t359;
C_word t360;
C_word t361;
C_word t362;
C_word t363;
C_word t364;
C_word t365;
C_word t366;
C_word t367;
C_word t368;
C_word t369;
C_word t370;
C_word t371;
C_word t372;
C_word t373;
C_word t374;
C_word t375;
C_word t376;
C_word t377;
C_word t378;
C_word t379;
C_word t380;
C_word t381;
C_word t382;
C_word t383;
C_word t384;
C_word t385;
C_word t386;
C_word t387;
C_word t388;
C_word t389;
C_word t390;
C_word t391;
C_word t392;
C_word t393;
C_word t394;
C_word t395;
C_word t396;
C_word t397;
C_word t398;
C_word t399;
C_word t400;
C_word t401;
C_word t402;
C_word t403;
C_word t404;
C_word t405;
C_word t406;
C_word t407;
C_word t408;
C_word t409;
C_word t410;
C_word t411;
C_word t412;
C_word t413;
C_word t414;
C_word t415;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(1139,c,7)))){
C_save_and_reclaim((void *)f_12858,c,av);}
a=C_alloc(1139);
t2=C_a_i_provide(&a,1,lf[229]);
t3=C_mutate((C_word*)lf[230]+1 /* (set! chicken.base#fixnum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12860,a[2]=((C_word)li141),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[231]+1 /* (set! chicken.base#flonum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12863,a[2]=((C_word)li142),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[232]+1 /* (set! chicken.base#bignum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12866,a[2]=((C_word)li143),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[233]+1 /* (set! chicken.base#ratnum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12869,a[2]=((C_word)li144),tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[234]+1 /* (set! chicken.base#cplxnum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12872,a[2]=((C_word)li145),tmp=(C_word)a,a+=3,tmp));
t8=C_set_block_item(lf[235] /* chicken.base#exact-integer-sqrt */,0,C_SCHEME_UNDEFINED);
t9=C_mutate((C_word*)lf[236]+1 /* (set! chicken.base#quotient&remainder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_quotient_and_remainder,a[2]=((C_word)li146),tmp=(C_word)a,a+=3,tmp));
t10=C_mutate((C_word*)lf[237]+1 /* (set! chicken.base#quotient&modulo ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12877,a[2]=((C_word)li149),tmp=(C_word)a,a+=3,tmp));
t11=C_mutate((C_word*)lf[238]+1 /* (set! chicken.base#finite? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12924,a[2]=((C_word)li150),tmp=(C_word)a,a+=3,tmp));
t12=C_mutate((C_word*)lf[239]+1 /* (set! chicken.base#infinite? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12927,a[2]=((C_word)li151),tmp=(C_word)a,a+=3,tmp));
t13=C_mutate((C_word*)lf[240]+1 /* (set! chicken.base#nan? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12930,a[2]=((C_word)li152),tmp=(C_word)a,a+=3,tmp));
t14=C_mutate((C_word*)lf[241]+1 /* (set! chicken.base#signum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_signum,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp));
t15=C_set_block_item(lf[242] /* chicken.base#get-call-chain */,0,C_SCHEME_UNDEFINED);
t16=C_set_block_item(lf[243] /* chicken.base#print-call-chain */,0,C_SCHEME_UNDEFINED);
t17=C_set_block_item(lf[244] /* chicken.base#print */,0,C_SCHEME_UNDEFINED);
t18=C_set_block_item(lf[245] /* chicken.base#print* */,0,C_SCHEME_UNDEFINED);
t19=C_mutate((C_word*)lf[246]+1 /* (set! chicken.base#add1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12938,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp));
t20=C_mutate((C_word*)lf[247]+1 /* (set! chicken.base#sub1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12944,a[2]=((C_word)li155),tmp=(C_word)a,a+=3,tmp));
t21=C_set_block_item(lf[248] /* chicken.base#current-error-port */,0,C_SCHEME_UNDEFINED);
t22=C_mutate((C_word*)lf[249]+1 /* (set! chicken.base#error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12951,a[2]=((C_word)li156),tmp=(C_word)a,a+=3,tmp));
t23=C_mutate((C_word*)lf[251]+1 /* (set! chicken.base#void ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12966,a[2]=((C_word)li157),tmp=(C_word)a,a+=3,tmp));
t24=C_set_block_item(lf[252] /* chicken.base#sleep */,0,C_SCHEME_UNDEFINED);
t25=C_set_block_item(lf[253] /* chicken.base#char-name */,0,C_SCHEME_UNDEFINED);
t26=C_set_block_item(lf[254] /* chicken.base#getter-with-setter */,0,C_SCHEME_UNDEFINED);
t27=C_set_block_item(lf[255] /* chicken.base#procedure-information */,0,C_SCHEME_UNDEFINED);
t28=C_set_block_item(lf[256] /* chicken.base#setter */,0,C_SCHEME_UNDEFINED);
t29=C_set_block_item(lf[257] /* chicken.base#record-printer */,0,C_SCHEME_UNDEFINED);
t30=C_set_block_item(lf[258] /* chicken.base#set-record-printer! */,0,C_SCHEME_UNDEFINED);
t31=C_set_block_item(lf[259] /* chicken.base#subvector */,0,C_SCHEME_UNDEFINED);
t32=C_set_block_item(lf[260] /* chicken.base#vector-resize */,0,C_SCHEME_UNDEFINED);
t33=C_set_block_item(lf[261] /* chicken.base#port-closed? */,0,C_SCHEME_UNDEFINED);
t34=C_set_block_item(lf[262] /* chicken.base#flush-output */,0,C_SCHEME_UNDEFINED);
t35=C_mutate((C_word*)lf[263]+1 /* (set! chicken.base#promise? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12980,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp));
t36=C_mutate((C_word*)lf[265]+1 /* (set! ##sys#make-promise ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12986,a[2]=((C_word)li159),tmp=(C_word)a,a+=3,tmp));
t37=C_mutate((C_word*)lf[266]+1 /* (set! chicken.base#make-promise ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12992,a[2]=((C_word)li161),tmp=(C_word)a,a+=3,tmp));
t38=C_mutate((C_word*)lf[267]+1 /* (set! chicken.base#foldl ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13007,a[2]=((C_word)li163),tmp=(C_word)a,a+=3,tmp));
t39=C_mutate((C_word*)lf[269]+1 /* (set! chicken.base#foldr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13044,a[2]=((C_word)li165),tmp=(C_word)a,a+=3,tmp));
t40=C_set_block_item(lf[271] /* chicken.base#implicit-exit-handler */,0,C_SCHEME_UNDEFINED);
t41=C_set_block_item(lf[272] /* chicken.base#exit-handler */,0,C_SCHEME_UNDEFINED);
t42=C_set_block_item(lf[273] /* chicken.base#cleanup-tasks */,0,C_SCHEME_END_OF_LIST);
t43=C_mutate((C_word*)lf[274]+1 /* (set! chicken.base#on-exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13084,a[2]=((C_word)li166),tmp=(C_word)a,a+=3,tmp));
t44=C_mutate((C_word*)lf[275]+1 /* (set! chicken.base#exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13091,a[2]=((C_word)li167),tmp=(C_word)a,a+=3,tmp));
t45=C_mutate((C_word*)lf[276]+1 /* (set! chicken.base#emergency-exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13109,a[2]=((C_word)li168),tmp=(C_word)a,a+=3,tmp));
t46=C_set_block_item(lf[278] /* chicken.base#case-sensitive */,0,C_SCHEME_UNDEFINED);
t47=C_set_block_item(lf[279] /* chicken.base#keyword-style */,0,C_SCHEME_UNDEFINED);
t48=C_set_block_item(lf[280] /* chicken.base#parentheses-synonyms */,0,C_SCHEME_UNDEFINED);
t49=C_set_block_item(lf[281] /* chicken.base#symbol-escape */,0,C_SCHEME_UNDEFINED);
t50=C_mutate((C_word*)lf[282]+1 /* (set! chicken.base#identity ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13128,a[2]=((C_word)li169),tmp=(C_word)a,a+=3,tmp));
t51=C_mutate((C_word*)lf[283]+1 /* (set! chicken.base#conjoin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13131,a[2]=((C_word)li172),tmp=(C_word)a,a+=3,tmp));
t52=C_mutate((C_word*)lf[284]+1 /* (set! chicken.base#disjoin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13164,a[2]=((C_word)li175),tmp=(C_word)a,a+=3,tmp));
t53=C_mutate((C_word*)lf[285]+1 /* (set! chicken.base#constantly ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13201,a[2]=((C_word)li178),tmp=(C_word)a,a+=3,tmp));
t54=C_mutate((C_word*)lf[286]+1 /* (set! chicken.base#flip ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13222,a[2]=((C_word)li180),tmp=(C_word)a,a+=3,tmp));
t55=C_mutate((C_word*)lf[287]+1 /* (set! chicken.base#complement ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13230,a[2]=((C_word)li182),tmp=(C_word)a,a+=3,tmp));
t56=C_mutate((C_word*)lf[288]+1 /* (set! chicken.base#compose ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13242,a[2]=((C_word)li186),tmp=(C_word)a,a+=3,tmp));
t57=C_mutate((C_word*)lf[289]+1 /* (set! chicken.base#o ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13278,a[2]=((C_word)li189),tmp=(C_word)a,a+=3,tmp));
t58=C_mutate((C_word*)lf[290]+1 /* (set! chicken.base#list-of? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13317,a[2]=((C_word)li192),tmp=(C_word)a,a+=3,tmp));
t59=C_mutate((C_word*)lf[291]+1 /* (set! chicken.base#each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13361,a[2]=((C_word)li196),tmp=(C_word)a,a+=3,tmp));
t60=C_mutate((C_word*)lf[293]+1 /* (set! chicken.base#bwp-object? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13417,a[2]=((C_word)li197),tmp=(C_word)a,a+=3,tmp));
t61=C_mutate((C_word*)lf[294]+1 /* (set! chicken.base#weak-cons ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13420,a[2]=((C_word)li198),tmp=(C_word)a,a+=3,tmp));
t62=C_mutate((C_word*)lf[295]+1 /* (set! chicken.base#weak-pair? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13423,a[2]=((C_word)li199),tmp=(C_word)a,a+=3,tmp));
t63=C_mutate((C_word*)lf[296]+1 /* (set! chicken.base#atom? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13426,a[2]=((C_word)li200),tmp=(C_word)a,a+=3,tmp));
t64=C_mutate((C_word*)lf[297]+1 /* (set! chicken.base#tail? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13429,a[2]=((C_word)li202),tmp=(C_word)a,a+=3,tmp));
t65=C_mutate((C_word*)lf[299]+1 /* (set! chicken.base#intersperse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13457,a[2]=((C_word)li204),tmp=(C_word)a,a+=3,tmp));
t66=C_mutate((C_word*)lf[300]+1 /* (set! chicken.base#butlast ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13490,a[2]=((C_word)li206),tmp=(C_word)a,a+=3,tmp));
t67=C_mutate((C_word*)lf[302]+1 /* (set! chicken.base#flatten ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13522,a[2]=((C_word)li208),tmp=(C_word)a,a+=3,tmp));
t68=C_mutate((C_word*)lf[303]+1 /* (set! chicken.base#join ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13563,a[2]=((C_word)li210),tmp=(C_word)a,a+=3,tmp));
t69=C_mutate((C_word*)lf[306]+1 /* (set! chicken.base#compress ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13620,a[2]=((C_word)li212),tmp=(C_word)a,a+=3,tmp));
t70=C_mutate((C_word*)lf[310]+1 /* (set! chicken.base#alist-update! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13700,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp));
t71=C_mutate((C_word*)lf[311]+1 /* (set! chicken.base#alist-update ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13786,a[2]=((C_word)li217),tmp=(C_word)a,a+=3,tmp));
t72=C_mutate((C_word*)lf[315]+1 /* (set! chicken.base#alist-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13890,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp));
t73=C_mutate((C_word*)lf[318]+1 /* (set! chicken.base#rassoc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14002,a[2]=((C_word)li222),tmp=(C_word)a,a+=3,tmp));
t74=C_mutate((C_word*)lf[320]+1 /* (set! scheme#open-input-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14050,a[2]=((C_word)li223),tmp=(C_word)a,a+=3,tmp));
t75=C_mutate((C_word*)lf[326]+1 /* (set! scheme#open-output-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14078,a[2]=((C_word)li224),tmp=(C_word)a,a+=3,tmp));
t76=C_mutate((C_word*)lf[328]+1 /* (set! scheme#get-output-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14097,a[2]=((C_word)li225),tmp=(C_word)a,a+=3,tmp));
t77=C_mutate((C_word*)lf[332]+1 /* (set! scheme#open-input-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14131,a[2]=((C_word)li231),tmp=(C_word)a,a+=3,tmp));
t78=C_mutate((C_word*)lf[337]+1 /* (set! scheme#open-output-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14202,a[2]=((C_word)li237),tmp=(C_word)a,a+=3,tmp));
t79=C_mutate((C_word*)lf[339]+1 /* (set! scheme#get-output-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14271,a[2]=((C_word)li239),tmp=(C_word)a,a+=3,tmp));
t80=C_unsigned_long_to_num(&a,C_HEADER_SIZE_MASK);
t81=C_mutate(&lf[343] /* (set! maximal-string-length ...) */,C_s_a_u_i_integer_minus(&a,2,t80,C_fix(1)));
t82=C_a_i_provide(&a,1,lf[344]);
t83=C_set_block_item(lf[345] /* chicken.fixnum#most-positive-fixnum */,0,C_fix((C_word)C_MOST_POSITIVE_FIXNUM));
t84=C_set_block_item(lf[346] /* chicken.fixnum#most-negative-fixnum */,0,C_fix((C_word)C_MOST_NEGATIVE_FIXNUM));
t85=C_set_block_item(lf[347] /* chicken.fixnum#fixnum-bits */,0,C_fix((C_word)(C_WORD_SIZE - 1)));
t86=C_set_block_item(lf[348] /* chicken.fixnum#fixnum-precision */,0,C_fix((C_word)(C_WORD_SIZE - (1 + 1))));
t87=C_mutate((C_word*)lf[349]+1 /* (set! chicken.fixnum#fx+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14318,a[2]=((C_word)li240),tmp=(C_word)a,a+=3,tmp));
t88=C_mutate((C_word*)lf[350]+1 /* (set! chicken.fixnum#fx- ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14321,a[2]=((C_word)li241),tmp=(C_word)a,a+=3,tmp));
t89=C_mutate((C_word*)lf[351]+1 /* (set! chicken.fixnum#fx* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14324,a[2]=((C_word)li242),tmp=(C_word)a,a+=3,tmp));
t90=C_mutate((C_word*)lf[352]+1 /* (set! chicken.fixnum#fx= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14327,a[2]=((C_word)li243),tmp=(C_word)a,a+=3,tmp));
t91=C_mutate((C_word*)lf[353]+1 /* (set! chicken.fixnum#fx> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14333,a[2]=((C_word)li244),tmp=(C_word)a,a+=3,tmp));
t92=C_mutate((C_word*)lf[354]+1 /* (set! chicken.fixnum#fx< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14336,a[2]=((C_word)li245),tmp=(C_word)a,a+=3,tmp));
t93=C_mutate((C_word*)lf[355]+1 /* (set! chicken.fixnum#fx>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14339,a[2]=((C_word)li246),tmp=(C_word)a,a+=3,tmp));
t94=C_mutate((C_word*)lf[356]+1 /* (set! chicken.fixnum#fx<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14342,a[2]=((C_word)li247),tmp=(C_word)a,a+=3,tmp));
t95=C_mutate((C_word*)lf[357]+1 /* (set! chicken.fixnum#fxmin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14345,a[2]=((C_word)li248),tmp=(C_word)a,a+=3,tmp));
t96=C_mutate((C_word*)lf[358]+1 /* (set! chicken.fixnum#fxmax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14348,a[2]=((C_word)li249),tmp=(C_word)a,a+=3,tmp));
t97=C_mutate((C_word*)lf[359]+1 /* (set! chicken.fixnum#fxneg ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14351,a[2]=((C_word)li250),tmp=(C_word)a,a+=3,tmp));
t98=C_mutate((C_word*)lf[360]+1 /* (set! chicken.fixnum#fxand ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14354,a[2]=((C_word)li251),tmp=(C_word)a,a+=3,tmp));
t99=C_mutate((C_word*)lf[361]+1 /* (set! chicken.fixnum#fxior ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14357,a[2]=((C_word)li252),tmp=(C_word)a,a+=3,tmp));
t100=C_mutate((C_word*)lf[362]+1 /* (set! chicken.fixnum#fxxor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14360,a[2]=((C_word)li253),tmp=(C_word)a,a+=3,tmp));
t101=C_mutate((C_word*)lf[363]+1 /* (set! chicken.fixnum#fxnot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14363,a[2]=((C_word)li254),tmp=(C_word)a,a+=3,tmp));
t102=C_mutate((C_word*)lf[364]+1 /* (set! chicken.fixnum#fxshl ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14366,a[2]=((C_word)li255),tmp=(C_word)a,a+=3,tmp));
t103=C_mutate((C_word*)lf[365]+1 /* (set! chicken.fixnum#fxshr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14369,a[2]=((C_word)li256),tmp=(C_word)a,a+=3,tmp));
t104=C_mutate((C_word*)lf[366]+1 /* (set! chicken.fixnum#fxodd? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14372,a[2]=((C_word)li257),tmp=(C_word)a,a+=3,tmp));
t105=C_mutate((C_word*)lf[367]+1 /* (set! chicken.fixnum#fxeven? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14375,a[2]=((C_word)li258),tmp=(C_word)a,a+=3,tmp));
t106=C_mutate((C_word*)lf[368]+1 /* (set! chicken.fixnum#fxlen ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14378,a[2]=((C_word)li259),tmp=(C_word)a,a+=3,tmp));
t107=C_mutate((C_word*)lf[369]+1 /* (set! chicken.fixnum#fx/ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14381,a[2]=((C_word)li260),tmp=(C_word)a,a+=3,tmp));
t108=C_mutate((C_word*)lf[370]+1 /* (set! chicken.fixnum#fxgcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14384,a[2]=((C_word)li261),tmp=(C_word)a,a+=3,tmp));
t109=C_mutate((C_word*)lf[371]+1 /* (set! chicken.fixnum#fxmod ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14387,a[2]=((C_word)li262),tmp=(C_word)a,a+=3,tmp));
t110=C_mutate((C_word*)lf[372]+1 /* (set! chicken.fixnum#fxrem ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14390,a[2]=((C_word)li263),tmp=(C_word)a,a+=3,tmp));
t111=C_mutate((C_word*)lf[373]+1 /* (set! chicken.fixnum#fx+? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14393,a[2]=((C_word)li264),tmp=(C_word)a,a+=3,tmp));
t112=C_mutate((C_word*)lf[374]+1 /* (set! chicken.fixnum#fx-? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14396,a[2]=((C_word)li265),tmp=(C_word)a,a+=3,tmp));
t113=C_mutate((C_word*)lf[375]+1 /* (set! chicken.fixnum#fx*? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14399,a[2]=((C_word)li266),tmp=(C_word)a,a+=3,tmp));
t114=C_mutate((C_word*)lf[376]+1 /* (set! chicken.fixnum#fx/? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14402,a[2]=((C_word)li267),tmp=(C_word)a,a+=3,tmp));
t115=C_mutate((C_word*)lf[377]+1 /* (set! ##sys#debug-mode? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14405,a[2]=((C_word)li268),tmp=(C_word)a,a+=3,tmp));
t116=C_set_block_item(lf[378] /* ##sys#warnings-enabled */,0,C_SCHEME_TRUE);
t117=C_set_block_item(lf[379] /* ##sys#notices-enabled */,0,C_i_debug_modep());
t118=C_mutate((C_word*)lf[380]+1 /* (set! chicken.base#warning ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14410,a[2]=((C_word)li269),tmp=(C_word)a,a+=3,tmp));
t119=C_mutate((C_word*)lf[382]+1 /* (set! chicken.base#notice ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14419,a[2]=((C_word)li270),tmp=(C_word)a,a+=3,tmp));
t120=C_mutate((C_word*)lf[384]+1 /* (set! chicken.base#enable-warnings ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14431,a[2]=((C_word)li271),tmp=(C_word)a,a+=3,tmp));
t121=C_mutate((C_word*)lf[211]+1 /* (set! ##sys#error ...) */,*((C_word*)lf[249]+1));
t122=C_mutate((C_word*)lf[385]+1 /* (set! ##sys#warn ...) */,*((C_word*)lf[380]+1));
t123=C_mutate((C_word*)lf[386]+1 /* (set! ##sys#notice ...) */,*((C_word*)lf[382]+1));
t124=C_mutate((C_word*)lf[387]+1 /* (set! ##sys#error/errno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14445,a[2]=((C_word)li272),tmp=(C_word)a,a+=3,tmp));
t125=C_mutate((C_word*)lf[389]+1 /* (set! ##sys#gc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_gc,a[2]=((C_word)li273),tmp=(C_word)a,a+=3,tmp));
t126=C_mutate((C_word*)lf[390]+1 /* (set! ##sys#setslot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14461,a[2]=((C_word)li274),tmp=(C_word)a,a+=3,tmp));
t127=C_mutate((C_word*)lf[391]+1 /* (set! ##sys#setislot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14464,a[2]=((C_word)li275),tmp=(C_word)a,a+=3,tmp));
t128=C_mutate((C_word*)lf[392]+1 /* (set! ##sys#allocate-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_allocate_vector,a[2]=((C_word)li276),tmp=(C_word)a,a+=3,tmp));
t129=C_mutate((C_word*)lf[393]+1 /* (set! ##sys#allocate-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_allocate_bytevector,a[2]=((C_word)li277),tmp=(C_word)a,a+=3,tmp));
t130=C_mutate((C_word*)lf[394]+1 /* (set! ##sys#make-structure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_structure,a[2]=((C_word)li278),tmp=(C_word)a,a+=3,tmp));
t131=C_mutate((C_word*)lf[395]+1 /* (set! ##sys#ensure-heap-reserve ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_ensure_heap_reserve,a[2]=((C_word)li279),tmp=(C_word)a,a+=3,tmp));
t132=C_mutate((C_word*)lf[396]+1 /* (set! ##sys#symbol-table-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_get_symbol_table_info,a[2]=((C_word)li280),tmp=(C_word)a,a+=3,tmp));
t133=C_mutate((C_word*)lf[397]+1 /* (set! ##sys#memory-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_get_memory_info,a[2]=((C_word)li281),tmp=(C_word)a,a+=3,tmp));
t134=C_mutate((C_word*)lf[398]+1 /* (set! ##sys#start-timer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14473,a[2]=((C_word)li282),tmp=(C_word)a,a+=3,tmp));
t135=C_mutate((C_word*)lf[399]+1 /* (set! ##sys#stop-timer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14479,a[2]=((C_word)li285),tmp=(C_word)a,a+=3,tmp));
t136=C_mutate((C_word*)lf[400]+1 /* (set! ##sys#immediate? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14499,a[2]=((C_word)li286),tmp=(C_word)a,a+=3,tmp));
t137=C_mutate((C_word*)lf[401]+1 /* (set! ##sys#message ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14506,a[2]=((C_word)li287),tmp=(C_word)a,a+=3,tmp));
t138=C_mutate((C_word*)lf[402]+1 /* (set! ##sys#byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14509,a[2]=((C_word)li288),tmp=(C_word)a,a+=3,tmp));
t139=C_mutate((C_word*)lf[403]+1 /* (set! ##sys#void ...) */,*((C_word*)lf[251]+1));
t140=C_set_block_item(lf[292] /* ##sys#undefined-value */,0,C_SCHEME_UNDEFINED);
t141=C_mutate((C_word*)lf[404]+1 /* (set! ##sys#halt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14514,a[2]=((C_word)li289),tmp=(C_word)a,a+=3,tmp));
t142=C_mutate((C_word*)lf[405]+1 /* (set! ##sys#become! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_become,a[2]=((C_word)li290),tmp=(C_word)a,a+=3,tmp));
t143=C_mutate((C_word*)lf[406]+1 /* (set! ##sys#block-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14518,a[2]=((C_word)li291),tmp=(C_word)a,a+=3,tmp));
t144=C_mutate((C_word*)lf[407]+1 /* (set! ##sys#apply-values ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_apply_values,a[2]=((C_word)li292),tmp=(C_word)a,a+=3,tmp));
t145=C_mutate((C_word*)lf[408]+1 /* (set! ##sys#copy-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_copy_closure,a[2]=((C_word)li293),tmp=(C_word)a,a+=3,tmp));
t146=C_mutate((C_word*)lf[409]+1 /* (set! ##sys#block-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14523,a[2]=((C_word)li294),tmp=(C_word)a,a+=3,tmp));
t147=C_a_i_provide(&a,1,lf[411]);
t148=C_mutate((C_word*)lf[412]+1 /* (set! chicken.time#current-process-milliseconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14558,a[2]=((C_word)li295),tmp=(C_word)a,a+=3,tmp));
t149=C_mutate((C_word*)lf[413]+1 /* (set! chicken.time#current-seconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14561,a[2]=((C_word)li296),tmp=(C_word)a,a+=3,tmp));
t150=C_mutate((C_word*)lf[414]+1 /* (set! chicken.time#cpu-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14564,a[2]=((C_word)li297),tmp=(C_word)a,a+=3,tmp));
t151=C_mutate((C_word*)lf[415]+1 /* (set! ##sys#check-structure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14581,a[2]=((C_word)li298),tmp=(C_word)a,a+=3,tmp));
t152=C_mutate((C_word*)lf[416]+1 /* (set! ##sys#check-blob ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14592,a[2]=((C_word)li299),tmp=(C_word)a,a+=3,tmp));
t153=C_mutate((C_word*)lf[417]+1 /* (set! ##sys#check-pair ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14603,a[2]=((C_word)li300),tmp=(C_word)a,a+=3,tmp));
t154=C_mutate((C_word*)lf[418]+1 /* (set! ##sys#check-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14614,a[2]=((C_word)li301),tmp=(C_word)a,a+=3,tmp));
t155=C_mutate((C_word*)lf[419]+1 /* (set! ##sys#check-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14625,a[2]=((C_word)li302),tmp=(C_word)a,a+=3,tmp));
t156=C_mutate((C_word*)lf[420]+1 /* (set! ##sys#check-number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14636,a[2]=((C_word)li303),tmp=(C_word)a,a+=3,tmp));
t157=C_mutate((C_word*)lf[421]+1 /* (set! ##sys#check-fixnum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14647,a[2]=((C_word)li304),tmp=(C_word)a,a+=3,tmp));
t158=C_mutate((C_word*)lf[422]+1 /* (set! ##sys#check-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14658,a[2]=((C_word)li305),tmp=(C_word)a,a+=3,tmp));
t159=C_mutate((C_word*)lf[423]+1 /* (set! ##sys#check-exact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14669,a[2]=((C_word)li306),tmp=(C_word)a,a+=3,tmp));
t160=C_mutate((C_word*)lf[424]+1 /* (set! ##sys#check-inexact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14680,a[2]=((C_word)li307),tmp=(C_word)a,a+=3,tmp));
t161=C_mutate((C_word*)lf[425]+1 /* (set! ##sys#check-symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14691,a[2]=((C_word)li308),tmp=(C_word)a,a+=3,tmp));
t162=C_mutate((C_word*)lf[426]+1 /* (set! ##sys#check-keyword ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14702,a[2]=((C_word)li309),tmp=(C_word)a,a+=3,tmp));
t163=C_mutate((C_word*)lf[427]+1 /* (set! ##sys#check-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14713,a[2]=((C_word)li310),tmp=(C_word)a,a+=3,tmp));
t164=C_mutate((C_word*)lf[428]+1 /* (set! ##sys#check-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14724,a[2]=((C_word)li311),tmp=(C_word)a,a+=3,tmp));
t165=C_mutate((C_word*)lf[429]+1 /* (set! ##sys#check-boolean ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14735,a[2]=((C_word)li312),tmp=(C_word)a,a+=3,tmp));
t166=C_mutate((C_word*)lf[430]+1 /* (set! ##sys#check-locative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14746,a[2]=((C_word)li313),tmp=(C_word)a,a+=3,tmp));
t167=C_mutate((C_word*)lf[431]+1 /* (set! ##sys#check-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14757,a[2]=((C_word)li314),tmp=(C_word)a,a+=3,tmp));
t168=C_mutate((C_word*)lf[433]+1 /* (set! ##sys#check-exact-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14774,a[2]=((C_word)li315),tmp=(C_word)a,a+=3,tmp));
t169=C_mutate((C_word*)lf[435]+1 /* (set! ##sys#check-exact-uinteger ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14791,a[2]=((C_word)li316),tmp=(C_word)a,a+=3,tmp));
t170=C_mutate((C_word*)lf[437]+1 /* (set! ##sys#check-real ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14815,a[2]=((C_word)li317),tmp=(C_word)a,a+=3,tmp));
t171=C_mutate((C_word*)lf[439]+1 /* (set! ##sys#check-range ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14832,a[2]=((C_word)li318),tmp=(C_word)a,a+=3,tmp));
t172=C_mutate((C_word*)lf[440]+1 /* (set! ##sys#check-range/including ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14843,a[2]=((C_word)li319),tmp=(C_word)a,a+=3,tmp));
t173=C_mutate((C_word*)lf[441]+1 /* (set! ##sys#check-special ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14854,a[2]=((C_word)li320),tmp=(C_word)a,a+=3,tmp));
t174=C_mutate((C_word*)lf[443]+1 /* (set! ##sys#check-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14874,a[2]=((C_word)li321),tmp=(C_word)a,a+=3,tmp));
t175=C_mutate((C_word*)lf[444]+1 /* (set! scheme#force ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14885,a[2]=((C_word)li323),tmp=(C_word)a,a+=3,tmp));
t176=C_mutate((C_word*)lf[446]+1 /* (set! ##sys#dload ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_dload,a[2]=((C_word)li324),tmp=(C_word)a,a+=3,tmp));
t177=C_mutate((C_word*)lf[447]+1 /* (set! ##sys#set-dlopen-flags! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_set_dlopen_flags,a[2]=((C_word)li325),tmp=(C_word)a,a+=3,tmp));
t178=C_mutate((C_word*)lf[51]+1 /* (set! ##sys#error-not-a-proper-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15013,a[2]=((C_word)li326),tmp=(C_word)a,a+=3,tmp));
t179=C_mutate((C_word*)lf[449]+1 /* (set! ##sys#error-bad-number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15029,a[2]=((C_word)li327),tmp=(C_word)a,a+=3,tmp));
t180=C_mutate((C_word*)lf[432]+1 /* (set! ##sys#error-bad-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15045,a[2]=((C_word)li328),tmp=(C_word)a,a+=3,tmp));
t181=C_mutate((C_word*)lf[434]+1 /* (set! ##sys#error-bad-exact-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15061,a[2]=((C_word)li329),tmp=(C_word)a,a+=3,tmp));
t182=C_mutate((C_word*)lf[436]+1 /* (set! ##sys#error-bad-exact-uinteger ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15077,a[2]=((C_word)li330),tmp=(C_word)a,a+=3,tmp));
t183=C_mutate((C_word*)lf[450]+1 /* (set! ##sys#error-bad-inexact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15093,a[2]=((C_word)li331),tmp=(C_word)a,a+=3,tmp));
t184=C_mutate((C_word*)lf[438]+1 /* (set! ##sys#error-bad-real ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15109,a[2]=((C_word)li332),tmp=(C_word)a,a+=3,tmp));
t185=C_mutate((C_word*)lf[451]+1 /* (set! ##sys#error-bad-base ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15125,a[2]=((C_word)li333),tmp=(C_word)a,a+=3,tmp));
t186=C_mutate((C_word*)lf[452]+1 /* (set! scheme#append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15141,a[2]=((C_word)li336),tmp=(C_word)a,a+=3,tmp));
t187=C_mutate((C_word*)lf[454]+1 /* (set! ##sys#fast-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15220,a[2]=((C_word)li338),tmp=(C_word)a,a+=3,tmp));
t188=C_mutate((C_word*)lf[168]+1 /* (set! ##sys#make-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15250,a[2]=((C_word)li339),tmp=(C_word)a,a+=3,tmp));
t189=C_mutate((C_word*)lf[455]+1 /* (set! ##sys#make-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15265,a[2]=((C_word)li340),tmp=(C_word)a,a+=3,tmp));
t190=C_mutate((C_word*)lf[167]+1 /* (set! ##sys#buffer->string! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15287,a[2]=((C_word)li341),tmp=(C_word)a,a+=3,tmp));
t191=C_mutate((C_word*)lf[331]+1 /* (set! ##sys#buffer->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15291,a[2]=((C_word)li342),tmp=(C_word)a,a+=3,tmp));
t192=C_mutate((C_word*)lf[456]+1 /* (set! ##sys#utf-decoder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15302,a[2]=((C_word)li343),tmp=(C_word)a,a+=3,tmp));
t193=C_mutate((C_word*)lf[457]+1 /* (set! ##sys#utf-encoder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15308,a[2]=((C_word)li344),tmp=(C_word)a,a+=3,tmp));
t194=C_mutate((C_word*)lf[458]+1 /* (set! ##sys#utf-scanner ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15314,a[2]=((C_word)li345),tmp=(C_word)a,a+=3,tmp));
t195=C_mutate((C_word*)lf[459]+1 /* (set! ##sys#latin-decoder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15338,a[2]=((C_word)li346),tmp=(C_word)a,a+=3,tmp));
t196=C_mutate((C_word*)lf[460]+1 /* (set! ##sys#latin-encoder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15351,a[2]=((C_word)li347),tmp=(C_word)a,a+=3,tmp));
t197=C_mutate((C_word*)lf[461]+1 /* (set! ##sys#latin-scanner ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15364,a[2]=((C_word)li348),tmp=(C_word)a,a+=3,tmp));
t198=C_mutate((C_word*)lf[462]+1 /* (set! ##sys#binary-decoder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15367,a[2]=((C_word)li349),tmp=(C_word)a,a+=3,tmp));
t199=C_mutate((C_word*)lf[463]+1 /* (set! ##sys#binary-encoder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15373,a[2]=((C_word)li350),tmp=(C_word)a,a+=3,tmp));
t200=C_mutate((C_word*)lf[464]+1 /* (set! ##sys#binary-scanner ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15379,a[2]=((C_word)li351),tmp=(C_word)a,a+=3,tmp));
t201=C_mutate((C_word*)lf[465]+1 /* (set! ##sys#encoding-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15382,a[2]=((C_word)li352),tmp=(C_word)a,a+=3,tmp));
t202=C_mutate((C_word*)lf[469]+1 /* (set! ##sys#register-encoding ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15421,a[2]=((C_word)li354),tmp=(C_word)a,a+=3,tmp));
t203=C_mutate((C_word*)lf[470]+1 /* (set! ##sys#buffer->string/encoding ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15451,a[2]=((C_word)li356),tmp=(C_word)a,a+=3,tmp));
t204=C_mutate((C_word*)lf[471]+1 /* (set! ##sys#encode-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15463,a[2]=((C_word)li358),tmp=(C_word)a,a+=3,tmp));
t205=C_mutate((C_word*)lf[472]+1 /* (set! ##sys#decode-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15475,a[2]=((C_word)li360),tmp=(C_word)a,a+=3,tmp));
t206=C_mutate((C_word*)lf[473]+1 /* (set! ##sys#encode-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15487,a[2]=((C_word)li363),tmp=(C_word)a,a+=3,tmp));
t207=C_mutate((C_word*)lf[474]+1 /* (set! ##sys#decode-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15505,a[2]=((C_word)li365),tmp=(C_word)a,a+=3,tmp));
t208=C_mutate((C_word*)lf[475]+1 /* (set! ##sys#read-char/encoding ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15518,a[2]=((C_word)li368),tmp=(C_word)a,a+=3,tmp));
t209=C_mutate((C_word*)lf[479]+1 /* (set! scheme#make-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15582,a[2]=((C_word)li369),tmp=(C_word)a,a+=3,tmp));
t210=C_mutate((C_word*)lf[483]+1 /* (set! scheme#string->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15613,a[2]=((C_word)li371),tmp=(C_word)a,a+=3,tmp));
t211=C_mutate((C_word*)lf[485]+1 /* (set! ##sys#string->list ...) */,*((C_word*)lf[483]+1));
t212=C_mutate((C_word*)lf[486]+1 /* (set! scheme#list->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15704,a[2]=((C_word)li373),tmp=(C_word)a,a+=3,tmp));
t213=C_mutate((C_word*)lf[488]+1 /* (set! ##sys#list->string ...) */,*((C_word*)lf[486]+1));
t214=C_mutate((C_word*)lf[489]+1 /* (set! ##sys#reverse-list->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15766,a[2]=((C_word)li375),tmp=(C_word)a,a+=3,tmp));
t215=C_mutate((C_word*)lf[491]+1 /* (set! scheme#string-fill! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15817,a[2]=((C_word)li377),tmp=(C_word)a,a+=3,tmp));
t216=C_mutate((C_word*)lf[493]+1 /* (set! scheme#string-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15936,a[2]=((C_word)li378),tmp=(C_word)a,a+=3,tmp));
t217=C_mutate((C_word*)lf[496]+1 /* (set! scheme#string-copy! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16012,a[2]=((C_word)li381),tmp=(C_word)a,a+=3,tmp));
t218=C_mutate((C_word*)lf[495]+1 /* (set! ##sys#substring ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16163,a[2]=((C_word)li382),tmp=(C_word)a,a+=3,tmp));
t219=C_mutate((C_word*)lf[498]+1 /* (set! scheme#substring ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16177,a[2]=((C_word)li383),tmp=(C_word)a,a+=3,tmp));
t220=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16222,a[2]=((C_word)li385),tmp=(C_word)a,a+=3,tmp);
t221=C_mutate((C_word*)lf[500]+1 /* (set! scheme#string<? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16283,a[2]=t220,a[3]=((C_word)li387),tmp=(C_word)a,a+=4,tmp));
t222=C_mutate((C_word*)lf[502]+1 /* (set! scheme#string>? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16307,a[2]=t220,a[3]=((C_word)li389),tmp=(C_word)a,a+=4,tmp));
t223=C_mutate((C_word*)lf[504]+1 /* (set! scheme#string<=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16331,a[2]=t220,a[3]=((C_word)li391),tmp=(C_word)a,a+=4,tmp));
t224=C_mutate((C_word*)lf[506]+1 /* (set! scheme#string>=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16352,a[2]=t220,a[3]=((C_word)li393),tmp=(C_word)a,a+=4,tmp));
t225=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16372,a[2]=((C_word)li395),tmp=(C_word)a,a+=3,tmp);
t226=C_mutate((C_word*)lf[508]+1 /* (set! scheme#string-ci<? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16433,a[2]=t225,a[3]=((C_word)li397),tmp=(C_word)a,a+=4,tmp));
t227=C_mutate((C_word*)lf[510]+1 /* (set! scheme#string-ci>? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16457,a[2]=t225,a[3]=((C_word)li399),tmp=(C_word)a,a+=4,tmp));
t228=C_mutate((C_word*)lf[512]+1 /* (set! scheme#string-ci<=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16481,a[2]=t225,a[3]=((C_word)li401),tmp=(C_word)a,a+=4,tmp));
t229=C_mutate((C_word*)lf[514]+1 /* (set! scheme#string-ci>=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16502,a[2]=t225,a[3]=((C_word)li403),tmp=(C_word)a,a+=4,tmp));
t230=C_mutate((C_word*)lf[516]+1 /* (set! ##sys#string-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16523,a[2]=((C_word)li404),tmp=(C_word)a,a+=3,tmp));
t231=C_mutate((C_word*)lf[517]+1 /* (set! scheme#string-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16569,a[2]=((C_word)li406),tmp=(C_word)a,a+=3,tmp));
t232=C_mutate((C_word*)lf[519]+1 /* (set! scheme#string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16627,a[2]=((C_word)li407),tmp=(C_word)a,a+=3,tmp));
t233=C_mutate((C_word*)lf[520]+1 /* (set! ##sys#char->utf8-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16633,a[2]=((C_word)li408),tmp=(C_word)a,a+=3,tmp));
t234=C_mutate((C_word*)lf[521]+1 /* (set! chicken.base#chop ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16639,a[2]=((C_word)li411),tmp=(C_word)a,a+=3,tmp));
t235=C_a_i_provide(&a,1,lf[524]);
t236=C_mutate((C_word*)lf[525]+1 /* (set! chicken.flonum#maximum-flonum ...) */,C_flonum(&a,DBL_MAX));
t237=C_mutate((C_word*)lf[526]+1 /* (set! chicken.flonum#minimum-flonum ...) */,C_flonum(&a,DBL_MIN));
t238=C_set_block_item(lf[527] /* chicken.flonum#flonum-radix */,0,C_fix((C_word)FLT_RADIX));
t239=C_mutate((C_word*)lf[528]+1 /* (set! chicken.flonum#flonum-epsilon ...) */,C_flonum(&a,DBL_EPSILON));
t240=C_set_block_item(lf[529] /* chicken.flonum#flonum-precision */,0,C_fix((C_word)DBL_MANT_DIG));
t241=C_set_block_item(lf[530] /* chicken.flonum#flonum-decimal-precision */,0,C_fix((C_word)DBL_DIG));
t242=C_set_block_item(lf[531] /* chicken.flonum#flonum-maximum-exponent */,0,C_fix((C_word)DBL_MAX_EXP));
t243=C_set_block_item(lf[532] /* chicken.flonum#flonum-minimum-exponent */,0,C_fix((C_word)DBL_MIN_EXP));
t244=C_set_block_item(lf[533] /* chicken.flonum#flonum-maximum-decimal-exponent */,0,C_fix((C_word)DBL_MAX_10_EXP));
t245=C_set_block_item(lf[534] /* chicken.flonum#flonum-minimum-decimal-exponent */,0,C_fix((C_word)DBL_MIN_10_EXP));
t246=C_mutate((C_word*)lf[535]+1 /* (set! chicken.flonum#fp+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16734,a[2]=((C_word)li412),tmp=(C_word)a,a+=3,tmp));
t247=C_mutate((C_word*)lf[537]+1 /* (set! chicken.flonum#fp- ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16758,a[2]=((C_word)li413),tmp=(C_word)a,a+=3,tmp));
t248=C_mutate((C_word*)lf[539]+1 /* (set! chicken.flonum#fp* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16782,a[2]=((C_word)li414),tmp=(C_word)a,a+=3,tmp));
t249=C_mutate((C_word*)lf[541]+1 /* (set! chicken.flonum#fp/ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16806,a[2]=((C_word)li415),tmp=(C_word)a,a+=3,tmp));
t250=C_mutate((C_word*)lf[543]+1 /* (set! chicken.flonum#fp*+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16830,a[2]=((C_word)li416),tmp=(C_word)a,a+=3,tmp));
t251=C_mutate((C_word*)lf[545]+1 /* (set! chicken.flonum#fpgcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16855,a[2]=((C_word)li417),tmp=(C_word)a,a+=3,tmp));
t252=C_mutate((C_word*)lf[547]+1 /* (set! chicken.flonum#fp/? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16879,a[2]=((C_word)li418),tmp=(C_word)a,a+=3,tmp));
t253=C_mutate((C_word*)lf[549]+1 /* (set! chicken.flonum#fp= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16903,a[2]=((C_word)li419),tmp=(C_word)a,a+=3,tmp));
t254=C_mutate((C_word*)lf[551]+1 /* (set! chicken.flonum#fp> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16927,a[2]=((C_word)li420),tmp=(C_word)a,a+=3,tmp));
t255=C_mutate((C_word*)lf[553]+1 /* (set! chicken.flonum#fp< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16951,a[2]=((C_word)li421),tmp=(C_word)a,a+=3,tmp));
t256=C_mutate((C_word*)lf[555]+1 /* (set! chicken.flonum#fp>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16975,a[2]=((C_word)li422),tmp=(C_word)a,a+=3,tmp));
t257=C_mutate((C_word*)lf[557]+1 /* (set! chicken.flonum#fp<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16999,a[2]=((C_word)li423),tmp=(C_word)a,a+=3,tmp));
t258=C_mutate((C_word*)lf[559]+1 /* (set! chicken.flonum#fpneg ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17023,a[2]=((C_word)li424),tmp=(C_word)a,a+=3,tmp));
t259=C_mutate((C_word*)lf[561]+1 /* (set! chicken.flonum#fpmax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17041,a[2]=((C_word)li425),tmp=(C_word)a,a+=3,tmp));
t260=C_mutate((C_word*)lf[563]+1 /* (set! chicken.flonum#fpmin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17065,a[2]=((C_word)li426),tmp=(C_word)a,a+=3,tmp));
t261=C_mutate((C_word*)lf[565]+1 /* (set! chicken.flonum#fpfloor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17089,a[2]=((C_word)li427),tmp=(C_word)a,a+=3,tmp));
t262=C_mutate((C_word*)lf[567]+1 /* (set! chicken.flonum#fptruncate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17107,a[2]=((C_word)li428),tmp=(C_word)a,a+=3,tmp));
t263=C_mutate((C_word*)lf[569]+1 /* (set! chicken.flonum#fpround ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17125,a[2]=((C_word)li429),tmp=(C_word)a,a+=3,tmp));
t264=C_mutate((C_word*)lf[571]+1 /* (set! chicken.flonum#fpceiling ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17143,a[2]=((C_word)li430),tmp=(C_word)a,a+=3,tmp));
t265=C_mutate((C_word*)lf[573]+1 /* (set! chicken.flonum#fpsin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17161,a[2]=((C_word)li431),tmp=(C_word)a,a+=3,tmp));
t266=C_mutate((C_word*)lf[575]+1 /* (set! chicken.flonum#fpcos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17179,a[2]=((C_word)li432),tmp=(C_word)a,a+=3,tmp));
t267=C_mutate((C_word*)lf[577]+1 /* (set! chicken.flonum#fptan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17197,a[2]=((C_word)li433),tmp=(C_word)a,a+=3,tmp));
t268=C_mutate((C_word*)lf[579]+1 /* (set! chicken.flonum#fpasin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17215,a[2]=((C_word)li434),tmp=(C_word)a,a+=3,tmp));
t269=C_mutate((C_word*)lf[581]+1 /* (set! chicken.flonum#fpacos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17233,a[2]=((C_word)li435),tmp=(C_word)a,a+=3,tmp));
t270=C_mutate((C_word*)lf[583]+1 /* (set! chicken.flonum#fpatan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17251,a[2]=((C_word)li436),tmp=(C_word)a,a+=3,tmp));
t271=C_mutate((C_word*)lf[585]+1 /* (set! chicken.flonum#fpatan2 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17269,a[2]=((C_word)li437),tmp=(C_word)a,a+=3,tmp));
t272=C_mutate((C_word*)lf[587]+1 /* (set! chicken.flonum#fpsinh ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17293,a[2]=((C_word)li438),tmp=(C_word)a,a+=3,tmp));
t273=C_mutate((C_word*)lf[589]+1 /* (set! chicken.flonum#fpcosh ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17311,a[2]=((C_word)li439),tmp=(C_word)a,a+=3,tmp));
t274=C_mutate((C_word*)lf[591]+1 /* (set! chicken.flonum#fptanh ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17329,a[2]=((C_word)li440),tmp=(C_word)a,a+=3,tmp));
t275=C_mutate((C_word*)lf[593]+1 /* (set! chicken.flonum#fpasinh ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17347,a[2]=((C_word)li441),tmp=(C_word)a,a+=3,tmp));
t276=C_mutate((C_word*)lf[595]+1 /* (set! chicken.flonum#fpacosh ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17365,a[2]=((C_word)li442),tmp=(C_word)a,a+=3,tmp));
t277=C_mutate((C_word*)lf[597]+1 /* (set! chicken.flonum#fpatanh ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17383,a[2]=((C_word)li443),tmp=(C_word)a,a+=3,tmp));
t278=C_mutate((C_word*)lf[599]+1 /* (set! chicken.flonum#fpexp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17401,a[2]=((C_word)li444),tmp=(C_word)a,a+=3,tmp));
t279=C_mutate((C_word*)lf[601]+1 /* (set! chicken.flonum#fpexpt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17419,a[2]=((C_word)li445),tmp=(C_word)a,a+=3,tmp));
t280=C_mutate((C_word*)lf[603]+1 /* (set! chicken.flonum#fplog ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17443,a[2]=((C_word)li446),tmp=(C_word)a,a+=3,tmp));
t281=C_mutate((C_word*)lf[605]+1 /* (set! chicken.flonum#fpsqrt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17461,a[2]=((C_word)li447),tmp=(C_word)a,a+=3,tmp));
t282=C_mutate((C_word*)lf[607]+1 /* (set! chicken.flonum#fpabs ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17479,a[2]=((C_word)li448),tmp=(C_word)a,a+=3,tmp));
t283=C_mutate((C_word*)lf[609]+1 /* (set! chicken.flonum#fpinteger? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17497,a[2]=((C_word)li449),tmp=(C_word)a,a+=3,tmp));
t284=C_mutate((C_word*)lf[611]+1 /* (set! chicken.flonum#flonum-print-precision ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17515,a[2]=((C_word)li450),tmp=(C_word)a,a+=3,tmp));
t285=C_mutate(&lf[613] /* (set! make-complex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17533,a[2]=((C_word)li451),tmp=(C_word)a,a+=3,tmp));
t286=C_mutate((C_word*)lf[614]+1 /* (set! scheme#make-rectangular ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17560,a[2]=((C_word)li452),tmp=(C_word)a,a+=3,tmp));
t287=C_mutate((C_word*)lf[616]+1 /* (set! scheme#make-polar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17572,a[2]=((C_word)li453),tmp=(C_word)a,a+=3,tmp));
t288=C_mutate((C_word*)lf[618]+1 /* (set! scheme#real-part ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17595,a[2]=((C_word)li454),tmp=(C_word)a,a+=3,tmp));
t289=C_mutate((C_word*)lf[620]+1 /* (set! scheme#imag-part ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17618,a[2]=((C_word)li455),tmp=(C_word)a,a+=3,tmp));
t290=C_mutate((C_word*)lf[622]+1 /* (set! scheme#angle ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17641,a[2]=((C_word)li456),tmp=(C_word)a,a+=3,tmp));
t291=C_mutate((C_word*)lf[624]+1 /* (set! scheme#magnitude ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17657,a[2]=((C_word)li457),tmp=(C_word)a,a+=3,tmp));
t292=C_mutate(&lf[627] /* (set! ratnum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17701,a[2]=((C_word)li458),tmp=(C_word)a,a+=3,tmp));
t293=C_mutate((C_word*)lf[628]+1 /* (set! scheme#numerator ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17747,a[2]=((C_word)li459),tmp=(C_word)a,a+=3,tmp));
t294=C_mutate((C_word*)lf[632]+1 /* (set! scheme#denominator ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17792,a[2]=((C_word)li460),tmp=(C_word)a,a+=3,tmp));
t295=C_mutate((C_word*)lf[636]+1 /* (set! ##sys#extended-signum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17837,a[2]=((C_word)li461),tmp=(C_word)a,a+=3,tmp));
t296=C_mutate((C_word*)lf[630]+1 /* (set! scheme#inexact->exact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17961,a[2]=((C_word)li464),tmp=(C_word)a,a+=3,tmp));
t297=C_a_i_provide(&a,1,lf[643]);
t298=C_mutate((C_word*)lf[644]+1 /* (set! chicken.bitwise#bitwise-and ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_bitwise_and,a[2]=((C_word)li465),tmp=(C_word)a,a+=3,tmp));
t299=C_mutate((C_word*)lf[645]+1 /* (set! chicken.bitwise#bitwise-ior ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_bitwise_ior,a[2]=((C_word)li466),tmp=(C_word)a,a+=3,tmp));
t300=C_mutate((C_word*)lf[646]+1 /* (set! chicken.bitwise#bitwise-xor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_bitwise_xor,a[2]=((C_word)li467),tmp=(C_word)a,a+=3,tmp));
t301=C_mutate((C_word*)lf[647]+1 /* (set! chicken.bitwise#bitwise-not ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18025,a[2]=((C_word)li468),tmp=(C_word)a,a+=3,tmp));
t302=C_mutate((C_word*)lf[648]+1 /* (set! chicken.bitwise#bit->boolean ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18028,a[2]=((C_word)li469),tmp=(C_word)a,a+=3,tmp));
t303=C_mutate((C_word*)lf[649]+1 /* (set! chicken.bitwise#integer-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18031,a[2]=((C_word)li470),tmp=(C_word)a,a+=3,tmp));
t304=C_mutate((C_word*)lf[650]+1 /* (set! chicken.bitwise#arithmetic-shift ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18034,a[2]=((C_word)li471),tmp=(C_word)a,a+=3,tmp));
t305=C_mutate((C_word*)lf[651]+1 /* (set! scheme#/ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18037,a[2]=((C_word)li473),tmp=(C_word)a,a+=3,tmp));
t306=C_mutate((C_word*)lf[638]+1 /* (set! ##sys#/-2 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18088,a[2]=((C_word)li474),tmp=(C_word)a,a+=3,tmp));
t307=C_mutate((C_word*)lf[654]+1 /* (set! scheme#floor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18369,a[2]=((C_word)li475),tmp=(C_word)a,a+=3,tmp));
t308=C_mutate((C_word*)lf[656]+1 /* (set! scheme#ceiling ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18413,a[2]=((C_word)li476),tmp=(C_word)a,a+=3,tmp));
t309=C_mutate((C_word*)lf[658]+1 /* (set! scheme#truncate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18457,a[2]=((C_word)li477),tmp=(C_word)a,a+=3,tmp));
t310=C_mutate((C_word*)lf[660]+1 /* (set! scheme#round ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18493,a[2]=((C_word)li478),tmp=(C_word)a,a+=3,tmp));
t311=C_mutate(&lf[662] /* (set! find-ratio-between ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18536,a[2]=((C_word)li480),tmp=(C_word)a,a+=3,tmp));
t312=C_mutate((C_word*)lf[664]+1 /* (set! scheme#rationalize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18686,a[2]=((C_word)li481),tmp=(C_word)a,a+=3,tmp));
t313=C_mutate((C_word*)lf[665]+1 /* (set! scheme#max ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18711,a[2]=((C_word)li483),tmp=(C_word)a,a+=3,tmp));
t314=C_mutate((C_word*)lf[334]+1 /* (set! scheme#min ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18782,a[2]=((C_word)li485),tmp=(C_word)a,a+=3,tmp));
t315=C_mutate((C_word*)lf[668]+1 /* (set! scheme#exp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18853,a[2]=((C_word)li486),tmp=(C_word)a,a+=3,tmp));
t316=C_mutate((C_word*)lf[670]+1 /* (set! ##sys#log-1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18898,a[2]=((C_word)li487),tmp=(C_word)a,a+=3,tmp));
t317=C_mutate((C_word*)lf[674]+1 /* (set! scheme#log ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18947,a[2]=((C_word)li488),tmp=(C_word)a,a+=3,tmp));
t318=C_mutate((C_word*)lf[675]+1 /* (set! scheme#sin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18976,a[2]=((C_word)li489),tmp=(C_word)a,a+=3,tmp));
t319=C_mutate((C_word*)lf[679]+1 /* (set! scheme#cos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19010,a[2]=((C_word)li490),tmp=(C_word)a,a+=3,tmp));
t320=C_mutate((C_word*)lf[681]+1 /* (set! scheme#tan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19044,a[2]=((C_word)li491),tmp=(C_word)a,a+=3,tmp));
t321=C_mutate((C_word*)lf[683]+1 /* (set! scheme#asin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19069,a[2]=((C_word)li492),tmp=(C_word)a,a+=3,tmp));
t322=C_a_i_asin(&a,1,C_fix(1));
t323=C_mutate((C_word*)lf[688]+1 /* (set! scheme#acos ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19131,a[2]=t322,a[3]=((C_word)li493),tmp=(C_word)a,a+=4,tmp));
t324=C_mutate((C_word*)lf[690]+1 /* (set! scheme#atan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19173,a[2]=((C_word)li494),tmp=(C_word)a,a+=3,tmp));
t325=C_mutate((C_word*)lf[692]+1 /* (set! ##sys#exact-integer-sqrt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19237,a[2]=((C_word)li500),tmp=(C_word)a,a+=3,tmp));
t326=C_mutate((C_word*)lf[694]+1 /* (set! scheme#exact-integer-sqrt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19428,a[2]=((C_word)li501),tmp=(C_word)a,a+=3,tmp));
t327=C_mutate((C_word*)lf[686]+1 /* (set! ##sys#sqrt/loc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19437,a[2]=((C_word)li508),tmp=(C_word)a,a+=3,tmp));
t328=C_mutate((C_word*)lf[625]+1 /* (set! scheme#sqrt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19591,a[2]=((C_word)li509),tmp=(C_word)a,a+=3,tmp));
t329=C_mutate((C_word*)lf[698]+1 /* (set! scheme#truncate/ ...) */,*((C_word*)lf[236]+1));
t330=C_mutate((C_word*)lf[699]+1 /* (set! scheme#floor/ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19598,a[2]=((C_word)li512),tmp=(C_word)a,a+=3,tmp));
t331=C_mutate((C_word*)lf[700]+1 /* (set! scheme#floor-remainder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19653,a[2]=((C_word)li515),tmp=(C_word)a,a+=3,tmp));
t332=C_mutate((C_word*)lf[701]+1 /* (set! scheme#floor-quotient ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19668,a[2]=((C_word)li518),tmp=(C_word)a,a+=3,tmp));
t333=C_mutate((C_word*)lf[702]+1 /* (set! scheme#square ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19683,a[2]=((C_word)li519),tmp=(C_word)a,a+=3,tmp));
t334=C_mutate((C_word*)lf[703]+1 /* (set! chicken.base#exact-integer-nth-root ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19689,a[2]=((C_word)li520),tmp=(C_word)a,a+=3,tmp));
t335=C_mutate((C_word*)lf[704]+1 /* (set! ##sys#exact-integer-nth-root/loc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19701,a[2]=((C_word)li522),tmp=(C_word)a,a+=3,tmp));
t336=C_mutate((C_word*)lf[640]+1 /* (set! ##sys#integer-power ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19827,a[2]=((C_word)li524),tmp=(C_word)a,a+=3,tmp));
t337=C_mutate((C_word*)lf[642]+1 /* (set! scheme#expt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19895,a[2]=((C_word)li529),tmp=(C_word)a,a+=3,tmp));
t338=C_mutate(&lf[652] /* (set! ##sys#internal-gcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20161,a[2]=((C_word)li530),tmp=(C_word)a,a+=3,tmp));
t339=C_mutate((C_word*)lf[708]+1 /* (set! ##sys#gcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20228,a[2]=((C_word)li531),tmp=(C_word)a,a+=3,tmp));
t340=C_mutate((C_word*)lf[710]+1 /* (set! scheme#gcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20234,a[2]=((C_word)li533),tmp=(C_word)a,a+=3,tmp));
t341=C_mutate((C_word*)lf[711]+1 /* (set! ##sys#lcm ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20285,a[2]=((C_word)li534),tmp=(C_word)a,a+=3,tmp));
t342=C_mutate((C_word*)lf[713]+1 /* (set! scheme#lcm ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20299,a[2]=((C_word)li536),tmp=(C_word)a,a+=3,tmp));
t343=C_mutate((C_word*)lf[714]+1 /* (set! ##sys#integer->string/recursive ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20357,a[2]=((C_word)li540),tmp=(C_word)a,a+=3,tmp));
t344=C_mutate((C_word*)lf[716]+1 /* (set! ##sys#extended-number->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20407,a[2]=((C_word)li541),tmp=(C_word)a,a+=3,tmp));
t345=C_mutate(&lf[723] /* (set! round-quotient ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20592,a[2]=((C_word)li542),tmp=(C_word)a,a+=3,tmp));
t346=C_mutate(&lf[724] /* (set! ##sys#string->compnum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20635,a[2]=((C_word)li554),tmp=(C_word)a,a+=3,tmp));
t347=C_mutate((C_word*)lf[733]+1 /* (set! scheme#string->number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22139,a[2]=((C_word)li556),tmp=(C_word)a,a+=3,tmp));
t348=C_mutate((C_word*)lf[735]+1 /* (set! ##sys#string->number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22388,a[2]=((C_word)li557),tmp=(C_word)a,a+=3,tmp));
t349=C_mutate((C_word*)lf[736]+1 /* (set! ##sys#fixnum->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_fixnum_to_string,a[2]=((C_word)li558),tmp=(C_word)a,a+=3,tmp));
t350=C_mutate((C_word*)lf[737]+1 /* (set! ##sys#flonum->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_flonum_to_string,a[2]=((C_word)li559),tmp=(C_word)a,a+=3,tmp));
t351=C_mutate((C_word*)lf[738]+1 /* (set! ##sys#integer->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_integer_to_string,a[2]=((C_word)li560),tmp=(C_word)a,a+=3,tmp));
t352=C_mutate((C_word*)lf[715]+1 /* (set! ##sys#number->string ...) */,*((C_word*)lf[112]+1));
t353=C_mutate((C_word*)lf[739]+1 /* (set! chicken.base#equal=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22434,a[2]=((C_word)li564),tmp=(C_word)a,a+=3,tmp));
t354=C_mutate((C_word*)lf[740]+1 /* (set! ##sys#snafu ...) */,lf[741]);
t355=C_mutate((C_word*)lf[742]+1 /* (set! ##sys#intern-symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_string_to_symbol,a[2]=((C_word)li565),tmp=(C_word)a,a+=3,tmp));
t356=C_mutate((C_word*)lf[743]+1 /* (set! ##sys#intern-keyword ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_string_to_keyword,a[2]=((C_word)li566),tmp=(C_word)a,a+=3,tmp));
t357=C_mutate((C_word*)lf[744]+1 /* (set! ##sys#make-symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_symbol,a[2]=((C_word)li567),tmp=(C_word)a,a+=3,tmp));
t358=C_mutate((C_word*)lf[745]+1 /* (set! ##sys#interned-symbol? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22621,a[2]=((C_word)li568),tmp=(C_word)a,a+=3,tmp));
t359=C_mutate((C_word*)lf[746]+1 /* (set! ##sys#string->symbol-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22624,a[2]=((C_word)li569),tmp=(C_word)a,a+=3,tmp));
t360=C_mutate((C_word*)lf[747]+1 /* (set! ##sys#symbol->string/shared ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22636,a[2]=((C_word)li570),tmp=(C_word)a,a+=3,tmp));
t361=C_mutate((C_word*)lf[748]+1 /* (set! ##sys#symbol->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22642,a[2]=((C_word)li571),tmp=(C_word)a,a+=3,tmp));
t362=C_mutate((C_word*)lf[749]+1 /* (set! ##sys#string->symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22655,a[2]=((C_word)li572),tmp=(C_word)a,a+=3,tmp));
t363=C_mutate((C_word*)lf[750]+1 /* (set! scheme#symbol->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22665,a[2]=((C_word)li573),tmp=(C_word)a,a+=3,tmp));
t364=C_mutate((C_word*)lf[752]+1 /* (set! scheme#string->symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22674,a[2]=((C_word)li574),tmp=(C_word)a,a+=3,tmp));
t365=C_mutate((C_word*)lf[754]+1 /* (set! chicken.base#string->uninterned-symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22683,a[2]=((C_word)li575),tmp=(C_word)a,a+=3,tmp));
t366=C_fix(-1);
t367=(*a=C_VECTOR_TYPE|1,a[1]=t366,tmp=(C_word)a,a+=2,tmp);
t368=C_mutate((C_word*)lf[756]+1 /* (set! chicken.base#gensym ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22696,a[2]=t367,a[3]=((C_word)li576),tmp=(C_word)a,a+=4,tmp));
t369=*((C_word*)lf[517]+1);
t370=C_mutate((C_word*)lf[760]+1 /* (set! chicken.base#symbol-append ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22754,a[2]=t369,a[3]=((C_word)li578),tmp=(C_word)a,a+=4,tmp));
t371=C_a_i_provide(&a,1,lf[762]);
t372=C_mutate((C_word*)lf[763]+1 /* (set! chicken.keyword#keyword? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22813,a[2]=((C_word)li579),tmp=(C_word)a,a+=3,tmp));
t373=C_mutate((C_word*)lf[764]+1 /* (set! chicken.keyword#string->keyword ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22816,a[2]=((C_word)li580),tmp=(C_word)a,a+=3,tmp));
t374=*((C_word*)lf[763]+1);
t375=C_mutate((C_word*)lf[766]+1 /* (set! chicken.keyword#keyword->string ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22829,a[2]=t374,a[3]=((C_word)li581),tmp=(C_word)a,a+=4,tmp));
t376=C_a_i_list1(&a,1,lf[769]);
t377=C_mutate((C_word*)lf[770]+1 /* (set! chicken.keyword#get-keyword ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22847,a[2]=t376,a[3]=((C_word)li582),tmp=(C_word)a,a+=4,tmp));
t378=C_mutate((C_word*)lf[772]+1 /* (set! ##sys#get-keyword ...) */,*((C_word*)lf[770]+1));
t379=C_mutate((C_word*)lf[773]+1 /* (set! ##sys#bytevector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22878,a[2]=((C_word)li584),tmp=(C_word)a,a+=3,tmp));
t380=C_mutate((C_word*)lf[774]+1 /* (set! ##sys#list->bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22912,a[2]=((C_word)li586),tmp=(C_word)a,a+=3,tmp));
t381=C_a_i_provide(&a,1,lf[776]);
t382=C_mutate((C_word*)lf[777]+1 /* (set! chicken.bytevector#make-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22951,a[2]=((C_word)li587),tmp=(C_word)a,a+=3,tmp));
t383=C_mutate((C_word*)lf[779]+1 /* (set! chicken.bytevector#bytevector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22975,a[2]=((C_word)li588),tmp=(C_word)a,a+=3,tmp));
t384=C_mutate((C_word*)lf[780]+1 /* (set! chicken.bytevector#bytevector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22981,a[2]=((C_word)li589),tmp=(C_word)a,a+=3,tmp));
t385=C_mutate((C_word*)lf[782]+1 /* (set! chicken.bytevector#bytevector-u8-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22990,a[2]=((C_word)li590),tmp=(C_word)a,a+=3,tmp));
t386=C_mutate((C_word*)lf[783]+1 /* (set! chicken.bytevector#bytevector-u8-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22993,a[2]=((C_word)li591),tmp=(C_word)a,a+=3,tmp));
t387=C_mutate((C_word*)lf[784]+1 /* (set! chicken.bytevector#string->utf8 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22996,a[2]=((C_word)li592),tmp=(C_word)a,a+=3,tmp));
t388=C_mutate((C_word*)lf[786]+1 /* (set! chicken.bytevector#utf8->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23012,a[2]=((C_word)li593),tmp=(C_word)a,a+=3,tmp));
t389=C_mutate((C_word*)lf[788]+1 /* (set! chicken.bytevector#bytes->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23081,a[2]=((C_word)li594),tmp=(C_word)a,a+=3,tmp));
t390=C_mutate((C_word*)lf[790]+1 /* (set! chicken.bytevector#string->latin1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23139,a[2]=((C_word)li595),tmp=(C_word)a,a+=3,tmp));
t391=C_mutate((C_word*)lf[792]+1 /* (set! chicken.bytevector#latin1->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23158,a[2]=((C_word)li596),tmp=(C_word)a,a+=3,tmp));
t392=C_mutate((C_word*)lf[794]+1 /* (set! chicken.bytevector#bytevector=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23174,a[2]=((C_word)li597),tmp=(C_word)a,a+=3,tmp));
t393=C_mutate((C_word*)lf[796]+1 /* (set! chicken.bytevector#bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23196,a[2]=((C_word)li599),tmp=(C_word)a,a+=3,tmp));
t394=C_mutate((C_word*)lf[798]+1 /* (set! chicken.bytevector#bytevector-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23227,a[2]=((C_word)li600),tmp=(C_word)a,a+=3,tmp));
t395=C_mutate((C_word*)lf[801]+1 /* (set! chicken.bytevector#bytevector-copy! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23308,a[2]=((C_word)li601),tmp=(C_word)a,a+=3,tmp));
t396=C_mutate((C_word*)lf[804]+1 /* (set! chicken.bytevector#bytevector-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23390,a[2]=((C_word)li604),tmp=(C_word)a,a+=3,tmp));
t397=C_mutate((C_word*)lf[118]+1 /* (set! scheme#make-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23448,a[2]=((C_word)li605),tmp=(C_word)a,a+=3,tmp));
t398=C_mutate((C_word*)lf[808]+1 /* (set! ##sys#make-vector ...) */,*((C_word*)lf[118]+1));
t399=C_mutate((C_word*)lf[119]+1 /* (set! scheme#list->vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23477,a[2]=((C_word)li607),tmp=(C_word)a,a+=3,tmp));
t400=C_mutate((C_word*)lf[120]+1 /* (set! scheme#vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23529,a[2]=((C_word)li609),tmp=(C_word)a,a+=3,tmp));
t401=C_mutate((C_word*)lf[121]+1 /* (set! scheme#vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23615,a[2]=((C_word)li610),tmp=(C_word)a,a+=3,tmp));
t402=C_mutate((C_word*)lf[122]+1 /* (set! scheme#vector-fill! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23621,a[2]=((C_word)li612),tmp=(C_word)a,a+=3,tmp));
t403=C_mutate((C_word*)lf[812]+1 /* (set! scheme#vector-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23702,a[2]=((C_word)li615),tmp=(C_word)a,a+=3,tmp));
t404=C_mutate((C_word*)lf[814]+1 /* (set! scheme#vector-copy! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23809,a[2]=((C_word)li619),tmp=(C_word)a,a+=3,tmp));
t405=C_mutate((C_word*)lf[816]+1 /* (set! scheme#vector-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23982,a[2]=((C_word)li624),tmp=(C_word)a,a+=3,tmp));
t406=C_mutate((C_word*)lf[259]+1 /* (set! chicken.base#subvector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24126,a[2]=((C_word)li626),tmp=(C_word)a,a+=3,tmp));
t407=C_mutate((C_word*)lf[260]+1 /* (set! chicken.base#vector-resize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24189,a[2]=((C_word)li627),tmp=(C_word)a,a+=3,tmp));
t408=C_mutate(&lf[820] /* (set! ##sys#vector-resize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24210,a[2]=((C_word)li629),tmp=(C_word)a,a+=3,tmp));
t409=C_mutate((C_word*)lf[146]+1 /* (set! scheme#char-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24249,a[2]=((C_word)li631),tmp=(C_word)a,a+=3,tmp));
t410=C_mutate((C_word*)lf[147]+1 /* (set! scheme#char-ci>? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24298,a[2]=((C_word)li633),tmp=(C_word)a,a+=3,tmp));
t411=C_mutate((C_word*)lf[148]+1 /* (set! scheme#char-ci<? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24341,a[2]=((C_word)li635),tmp=(C_word)a,a+=3,tmp));
t412=C_mutate((C_word*)lf[149]+1 /* (set! scheme#char-ci>=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24384,a[2]=((C_word)li637),tmp=(C_word)a,a+=3,tmp));
t413=C_mutate((C_word*)lf[150]+1 /* (set! scheme#char-ci<=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24427,a[2]=((C_word)li639),tmp=(C_word)a,a+=3,tmp));
t414=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24472,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3848: scheme#make-vector */
t415=*((C_word*)lf[118]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t415;
av2[1]=t414;
av2[2]=C_fix(37);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t415+1)))(4,av2);}}

/* chicken.base#fixnum? in k12856 in k11643 */
static void C_ccall f_12860(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12860,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_fixnump(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#flonum? in k12856 in k11643 */
static void C_ccall f_12863(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12863,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_flonump(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#bignum? in k12856 in k11643 */
static void C_ccall f_12866(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12866,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_bignump(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#ratnum? in k12856 in k11643 */
static void C_ccall f_12869(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12869,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_ratnump(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#cplxnum? in k12856 in k11643 */
static void C_ccall f_12872(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12872,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cplxnump(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#quotient&modulo in k12856 in k11643 */
static void C_ccall f_12877(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_12877,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12883,a[2]=t2,a[3]=t3,a[4]=((C_word)li147),tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12889,a[2]=t3,a[3]=((C_word)li148),tmp=(C_word)a,a+=4,tmp);
/* library.scm:868: scheme#call-with-values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t4;
av2[3]=t5;
C_call_with_values(4,av2);}}

/* a12882 in chicken.base#quotient&modulo in k12856 in k11643 */
static void C_ccall f_12883(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12883,c,av);}
/* library.scm:868: chicken.base#quotient&remainder */
t2=*((C_word*)lf[236]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a12888 in chicken.base#quotient&modulo in k12856 in k11643 */
static void C_ccall f_12889(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_12889,c,av);}
a=C_alloc(29);
if(C_truep(C_i_positivep(((C_word*)t0)[2]))){
if(C_truep(C_i_negativep(t3))){
t4=C_s_a_i_plus(&a,2,t3,((C_word*)t0)[2]);
/* library.scm:872: scheme#values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=t4;
C_values(4,av2);}}
else{
/* library.scm:873: scheme#values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
C_values(4,av2);}}}
else{
if(C_truep(C_i_positivep(t3))){
t4=C_s_a_i_plus(&a,2,t3,((C_word*)t0)[2]);
/* library.scm:875: scheme#values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=t4;
C_values(4,av2);}}
else{
/* library.scm:876: scheme#values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
C_values(4,av2);}}}}

/* chicken.base#finite? in k12856 in k11643 */
static void C_ccall f_12924(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12924,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_finitep(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#infinite? in k12856 in k11643 */
static void C_ccall f_12927(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12927,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_infinitep(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#nan? in k12856 in k11643 */
static void C_ccall f_12930(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12930,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_nanp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#add1 in k12856 in k11643 */
static void C_ccall f_12938(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_12938,c,av);}
a=C_alloc(29);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_s_a_i_plus(&a,2,t2,C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#sub1 in k12856 in k11643 */
static void C_ccall f_12944(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_12944,c,av);}
a=C_alloc(29);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_s_a_i_minus(&a,2,t2,C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#error in k12856 in k11643 */
static void C_ccall f_12951(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,4)))){
C_save_and_reclaim((void*)f_12951,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
t2=C_build_rest(&a,c,2,av);
C_word t3;
if(C_truep(C_i_pairp(t2))){{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[250];
av2[4]=t2;
C_apply(5,av2);}}
else{
/* library.scm:897: ##sys#signal-hook */
t3=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[250];
av2[3]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* chicken.base#void in k12856 in k11643 */
static void C_ccall f_12966(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12966,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.base#promise? in k12856 in k11643 */
static void C_ccall f_12980(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12980,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_structurep(t2,lf[264]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#make-promise in k12856 in k11643 */
static void C_ccall f_12986(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_12986,c,av);}
a=C_alloc(3);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_record2(&a,2,lf[264],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#make-promise in k12856 in k11643 */
static void C_ccall f_12992(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_12992,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12999,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:934: promise? */
t4=*((C_word*)lf[263]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k12997 in chicken.base#make-promise in k12856 in k11643 */
static void C_ccall f_12999(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_12999,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13004,a[2]=((C_word*)t0)[3],a[3]=((C_word)li160),tmp=(C_word)a,a+=4,tmp);
/* library.scm:935: ##sys#make-promise */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[265]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[265]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t2;
tp(3,av2);}}}

/* a13003 in k12997 in chicken.base#make-promise in k12856 in k11643 */
static void C_ccall f_13004(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13004,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.base#foldl in k12856 in k11643 */
static void C_ccall f_13007(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_13007,c,av);}
a=C_alloc(7);
t5=C_i_check_list_2(t4,lf[268]);
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_13016,a[2]=t7,a[3]=t2,a[4]=((C_word)li162),tmp=(C_word)a,a+=5,tmp));
t9=((C_word*)t7)[1];
f_13016(t9,t1,t4,t3);}

/* loop in chicken.base#foldl in k12856 in k11643 */
static void f_13016(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_13016,4,t0,t1,t2,t3);}
a=C_alloc(5);
t4=C_i_pairp(t2);
if(C_truep(C_i_not(t4))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_slot(t2,C_fix(1));
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13034,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
/* library.scm:944: f */
t7=((C_word*)t0)[3];{
C_word av2[4];
av2[0]=t7;
av2[1]=t6;
av2[2]=t3;
av2[3]=C_slot(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}}

/* k13032 in loop in chicken.base#foldl in k12856 in k11643 */
static void C_ccall f_13034(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13034,c,av);}
/* library.scm:944: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_13016(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* chicken.base#foldr in k12856 in k11643 */
static void C_ccall f_13044(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_13044,c,av);}
a=C_alloc(8);
t5=C_i_check_list_2(t4,lf[270]);
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|5,a[1]=(C_word)f_13053,a[2]=t3,a[3]=t2,a[4]=t7,a[5]=((C_word)li164),tmp=(C_word)a,a+=6,tmp));
t9=((C_word*)t7)[1];
f_13053(t9,t1,t4);}

/* loop in chicken.base#foldr in k12856 in k11643 */
static void f_13053(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_13053,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_i_pairp(t2);
if(C_truep(C_i_not(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13071,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
/* library.scm:951: loop */
t7=t5;
t8=C_slot(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}}

/* k13069 in loop in chicken.base#foldr in k12856 in k11643 */
static void C_ccall f_13071(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13071,c,av);}
/* library.scm:951: f */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t1;
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}

/* chicken.base#on-exit in k12856 in k11643 */
static void C_ccall f_13084(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_13084,c,av);}
a=C_alloc(3);
t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[273]+1));
t4=C_mutate((C_word*)lf[273]+1 /* (set! chicken.base#cleanup-tasks ...) */,t3);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* chicken.base#exit in k12856 in k11643 */
static void C_ccall f_13091(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13091,c,av);}
a=C_alloc(4);
if(C_truep(C_rest_nullp(c,2))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f45783,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:964: chicken.base#exit-handler */
t3=*((C_word*)lf[272]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=C_get_rest_arg(c,2,av,2,t0);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13098,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:964: chicken.base#exit-handler */
t4=*((C_word*)lf[272]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k13096 in chicken.base#exit in k12856 in k11643 */
static void C_ccall f_13098(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13098,c,av);}
/* library.scm:963: g929 */
t2=t1;{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* chicken.base#emergency-exit in k12856 in k11643 */
static void C_ccall f_13109(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13109,c,av);}
if(C_truep(C_rest_nullp(c,2))){
t2=C_i_check_fixnum_2(C_fix(0),lf[277]);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_exit_runtime(C_fix(0));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=C_get_rest_arg(c,2,av,2,t0);
t3=C_i_check_fixnum_2(t2,lf[277]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_exit_runtime(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* chicken.base#identity in k12856 in k11643 */
static void C_ccall f_13128(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13128,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#conjoin in k12856 in k11643 */
static void C_ccall f_13131(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){
C_save_and_reclaim((void*)f_13131,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13133,a[2]=t2,a[3]=((C_word)li171),tmp=(C_word)a,a+=4,tmp);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* f_13133 in chicken.base#conjoin in k12856 in k11643 */
static void C_ccall f_13133(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_13133,c,av);}
a=C_alloc(7);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13139,a[2]=t4,a[3]=t2,a[4]=((C_word)li170),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_13139(t6,t1,((C_word*)t0)[2]);}

/* loop */
static void f_13139(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_13139,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=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13155,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:985: g958 */
t6=t4;{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}}

/* k13153 in loop */
static void C_ccall f_13155(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13155,c,av);}
if(C_truep(t1)){
/* library.scm:986: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_13139(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* chicken.base#disjoin in k12856 in k11643 */
static void C_ccall f_13164(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){
C_save_and_reclaim((void*)f_13164,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13166,a[2]=t2,a[3]=((C_word)li174),tmp=(C_word)a,a+=4,tmp);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* f_13166 in chicken.base#disjoin in k12856 in k11643 */
static void C_ccall f_13166(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_13166,c,av);}
a=C_alloc(7);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13172,a[2]=t4,a[3]=t2,a[4]=((C_word)li173),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_13172(t6,t1,((C_word*)t0)[2]);}

/* loop */
static void f_13172(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_13172,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_i_nullp(t2);
if(C_truep(C_i_not(t3))){
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13185,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:992: g970 */
t6=t4;{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k13183 in loop */
static void C_ccall f_13185(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13185,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{
/* library.scm:993: loop */
t2=((C_word*)((C_word*)t0)[3])[1];
f_13172(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[4],C_fix(1)));}}

/* chicken.base#constantly in k12856 in k11643 */
static void C_ccall f_13201(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_13201,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
t3=C_eqp(C_fix(1),C_u_i_length(t2));
if(C_truep(t3)){
t4=C_i_car(t2);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13212,a[2]=t4,a[3]=((C_word)li176),tmp=(C_word)a,a+=4,tmp);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13214,a[2]=t2,a[3]=((C_word)li177),tmp=(C_word)a,a+=4,tmp);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* f_13212 in chicken.base#constantly in k12856 in k11643 */
static void C_ccall f_13212(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13212,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);}}

/* f_13214 in chicken.base#constantly in k12856 in k11643 */
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;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13214,c,av);}{
C_word av2[4];
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[175]+1);
av2[3]=((C_word*)t0)[2];
C_apply(4,av2);}}

/* chicken.base#flip in k12856 in k11643 */
static void C_ccall f_13222(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_13222,c,av);}
a=C_alloc(4);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13224,a[2]=t2,a[3]=((C_word)li179),tmp=(C_word)a,a+=4,tmp);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* f_13224 in chicken.base#flip in k12856 in k11643 */
static void C_ccall f_13224(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13224,c,av);}
/* library.scm:1001: proc */
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
av2[3]=t2;
((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}

/* chicken.base#complement in k12856 in k11643 */
static void C_ccall f_13230(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13230,c,av);}
a=C_alloc(4);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13232,a[2]=t2,a[3]=((C_word)li181),tmp=(C_word)a,a+=4,tmp);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* f_13232 in chicken.base#complement in k12856 in k11643 */
static void C_ccall f_13232(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,3)))){
C_save_and_reclaim((void*)f_13232,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+3);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13240,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
C_apply(4,av2);}}

/* k13238 */
static void C_ccall f_13240(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13240,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);}}

/* chicken.base#compose in k12856 in k11643 */
static void C_ccall f_13242(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){
C_save_and_reclaim((void*)f_13242,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+6);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
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_13245,a[2]=t4,a[3]=((C_word)li185),tmp=(C_word)a,a+=4,tmp));
if(C_truep(C_rest_nullp(c,2))){
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=*((C_word*)lf[175]+1);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t4)[1];
av2[3]=t2;
C_apply(4,av2);}}}

/* rec in chicken.base#compose in k12856 in k11643 */
static void C_ccall f_13245(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,2)))){
C_save_and_reclaim((void*)f_13245,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+6);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13253,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=((C_word)li184),tmp=(C_word)a,a+=6,tmp);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* f_13253 in rec in chicken.base#compose in k12856 in k11643 */
static void C_ccall f_13253(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){
C_save_and_reclaim((void*)f_13253,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+6);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13259,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li183),tmp=(C_word)a,a+=6,tmp);
/* library.scm:1012: scheme#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=t3;
av2[3]=((C_word*)t0)[4];
C_call_with_values(4,av2);}}

/* a13258 */
static void C_ccall f_13259(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_13259,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13267,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=((C_word*)t0)[4];
C_apply(4,av2);}}

/* k13265 in a13258 */
static void C_ccall f_13267(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13267,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]=t1;
av2[3]=((C_word*)t0)[3];
C_apply(4,av2);}}

/* chicken.base#o in k12856 in k11643 */
static void C_ccall f_13278(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){
C_save_and_reclaim((void*)f_13278,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+6);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
if(C_truep(C_rest_nullp(c,2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=*((C_word*)lf[282]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13290,a[2]=t4,a[3]=((C_word)li188),tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_13290(t6,t1,t2);}}

/* loop in chicken.base#o in k12856 in k11643 */
static void f_13290(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_13290,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_slot(t2,C_fix(0));
t4=C_slot(t2,C_fix(1));
if(C_truep(C_i_nullp(t4))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13304,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word)li187),tmp=(C_word)a,a+=6,tmp);
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* f_13304 in loop in chicken.base#o in k12856 in k11643 */
static void C_ccall f_13304(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_13304,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13312,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:1027: loop */
t4=((C_word*)((C_word*)t0)[3])[1];
f_13290(t4,t3,((C_word*)t0)[4]);}

/* k13310 */
static void C_ccall f_13312(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13312,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13315,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:1027: g999 */
t3=t1;{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}

/* k13313 in k13310 */
static void C_ccall f_13315(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13315,c,av);}
/* library.scm:1027: h */
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);}}

/* chicken.base#list-of? in k12856 in k11643 */
static void C_ccall f_13317(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_13317,c,av);}
a=C_alloc(4);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13319,a[2]=t2,a[3]=((C_word)li191),tmp=(C_word)a,a+=4,tmp);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* f_13319 in chicken.base#list-of? in k12856 in k11643 */
static void C_ccall f_13319(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_13319,c,av);}
a=C_alloc(7);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13325,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word)li190),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_13325(t6,t1,t2);}

/* loop */
static void f_13325(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_13325,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_TRUE;
((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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13344,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:1034: pred */
t5=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}}}

/* k13342 in loop */
static void C_ccall f_13344(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13344,c,av);}
if(C_truep(t1)){
/* library.scm:1034: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_13325(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* chicken.base#each in k12856 in k11643 */
static void C_ccall f_13361(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_13361,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
if(C_truep(C_i_nullp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13369,a[2]=((C_word)li193),tmp=(C_word)a,a+=3,tmp);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_slot(t2,C_fix(1));
t4=C_i_nullp(t3);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=(C_truep(t4)?C_slot(t2,C_fix(0)):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13383,a[2]=t2,a[3]=((C_word)li195),tmp=(C_word)a,a+=4,tmp));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* f_13369 in chicken.base#each in k12856 in k11643 */
static void C_ccall f_13369(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13369,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=*((C_word*)lf[292]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* f_13383 in chicken.base#each in k12856 in k11643 */
static void C_ccall f_13383(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +7,c,3)))){
C_save_and_reclaim((void*)f_13383,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+7);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
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_13389,a[2]=t2,a[3]=t4,a[4]=((C_word)li194),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_13389(t6,t1,((C_word*)t0)[2]);}

/* loop */
static void f_13389(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_13389,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_slot(t2,C_fix(0));
t4=C_slot(t2,C_fix(1));
if(C_truep(C_i_nullp(t4))){{
C_word av2[4];
av2[0]=0;
av2[1]=t1;
av2[2]=t3;
av2[3]=((C_word*)t0)[2];
C_apply(4,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13408,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);{
C_word av2[4];
av2[0]=0;
av2[1]=t5;
av2[2]=t3;
av2[3]=((C_word*)t0)[2];
C_apply(4,av2);}}}

/* k13406 in loop */
static void C_ccall f_13408(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13408,c,av);}
/* library.scm:1049: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_13389(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* chicken.base#bwp-object? in k12856 in k11643 */
static void C_ccall f_13417(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13417,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_bwpp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#weak-cons in k12856 in k11643 */
static void C_ccall f_13420(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_13420,c,av);}
a=C_alloc(3);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_weak_cons(&a,2,t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.base#weak-pair? in k12856 in k11643 */
static void C_ccall f_13423(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13423,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_weak_pairp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#atom? in k12856 in k11643 */
static void C_ccall f_13426(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13426,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_not_pair_p(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#tail? in k12856 in k11643 */
static void C_ccall f_13429(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13429,c,av);}
a=C_alloc(4);
t4=C_i_check_list_2(t3,lf[298]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13438,a[2]=t2,a[3]=((C_word)li201),tmp=(C_word)a,a+=4,tmp);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=(
  f_13438(t5,t3)
);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* loop in chicken.base#tail? in k12856 in k11643 */
static C_word f_13438(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_eqp(((C_word*)t0)[2],t1))){
return(C_SCHEME_TRUE);}
else{
t2=(C_truep(C_blockp(t1))?C_pairp(t1):C_SCHEME_FALSE);
if(C_truep(t2)){
t4=C_slot(t1,C_fix(1));
t1=t4;
goto loop;}
else{
return(C_SCHEME_FALSE);}}}

/* chicken.base#intersperse in k12856 in k11643 */
static void C_ccall f_13457(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_13457,c,av);}
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_13463,a[2]=t3,a[3]=t5,a[4]=((C_word)li203),tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_13463(t7,t1,t2);}

/* loop in chicken.base#intersperse in k12856 in k11643 */
static void f_13463(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_13463,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){
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_cdr(t2);
if(C_truep(C_eqp(t3,C_SCHEME_END_OF_LIST))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13488,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
/* library.scm:1078: loop */
t7=t5;
t8=t3;
t1=t7;
t2=t8;
goto loop;}}}

/* k13486 in loop in chicken.base#intersperse in k12856 in k11643 */
static void C_ccall f_13488(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_13488,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,((C_word*)t0)[4],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#butlast in k12856 in k11643 */
static void C_ccall f_13490(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_13490,c,av);}
a=C_alloc(6);
t3=C_i_check_pair_2(t2,lf[301]);
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_13499,a[2]=t5,a[3]=((C_word)li205),tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_13499(t7,t1,t2);}

/* loop in chicken.base#butlast in k12856 in k11643 */
static void f_13499(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_13499,3,t0,t1,t2);}
a=C_alloc(4);
t3=C_slot(t2,C_fix(1));
t4=(C_truep(C_blockp(t3))?C_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=C_slot(t2,C_fix(0));
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13520,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* library.scm:1085: loop */
t8=t6;
t9=t3;
t1=t8;
t2=t9;
goto loop;}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k13518 in loop in chicken.base#butlast in k12856 in k11643 */
static void C_ccall f_13520(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_13520,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.base#flatten in k12856 in k11643 */
static void C_ccall f_13522(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){
C_save_and_reclaim((void*)f_13522,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+6);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
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_13528,a[2]=t4,a[3]=((C_word)li207),tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_13528(t6,t1,t2,C_SCHEME_END_OF_LIST);}

/* loop in chicken.base#flatten in k12856 in k11643 */
static void f_13528(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_13528,4,t0,t1,t2,t3);}
a=C_alloc(5);
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_slot(t2,C_fix(0));
t5=C_slot(t2,C_fix(1));
if(C_truep(C_i_listp(t4))){
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13554,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
/* library.scm:1095: loop */
t8=t6;
t9=t5;
t10=t3;
t1=t8;
t2=t9;
t3=t10;
goto loop;}
else{
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13561,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* library.scm:1096: loop */
t8=t6;
t9=t5;
t10=t3;
t1=t8;
t2=t9;
t3=t10;
goto loop;}}}

/* k13552 in loop in chicken.base#flatten in k12856 in k11643 */
static void C_ccall f_13554(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13554,c,av);}
/* library.scm:1095: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_13528(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k13559 in loop in chicken.base#flatten in k12856 in k11643 */
static void C_ccall f_13561(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_13561,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.base#join in k12856 in k11643 */
static void C_ccall f_13563(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +7,c,3)))){
C_save_and_reclaim((void*)f_13563,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+7);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
t4=C_i_pairp(t3);
t5=(C_truep(t4)?C_get_rest_arg(c,3,av,3,t0):C_SCHEME_END_OF_LIST);
t6=C_i_check_list_2(t5,lf[304]);
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_13575,a[2]=t5,a[3]=t8,a[4]=((C_word)li209),tmp=(C_word)a,a+=5,tmp));
t10=((C_word*)t8)[1];
f_13575(t10,t1,t2);}

/* loop in chicken.base#join in k12856 in k11643 */
static void f_13575(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_13575,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_pairp(t2);
if(C_truep(C_i_not(t3))){
/* library.scm:1106: ##sys#error-not-a-proper-list */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[51]+1);
av2[1]=t1;
av2[2]=t2;
tp(3,av2);}}
else{
t4=C_slot(t2,C_fix(0));
t5=C_slot(t2,C_fix(1));
if(C_truep(C_i_nullp(t5))){
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13610,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* library.scm:1112: loop */
t8=t6;
t9=t5;
t1=t8;
t2=t9;
goto loop;}}}}

/* k13608 in loop in chicken.base#join in k12856 in k11643 */
static void C_ccall f_13610(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_13610,c,av);}
/* library.scm:1112: ##sys#append */
t2=*((C_word*)lf[305]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* chicken.base#compress in k12856 in k11643 */
static void C_ccall f_13620(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_13620,c,av);}
a=C_alloc(7);
t4=lf[307];
t5=C_i_check_list_2(t3,lf[308]);
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_13629,a[2]=t4,a[3]=t7,a[4]=((C_word)li211),tmp=(C_word)a,a+=5,tmp));
t9=((C_word*)t7)[1];
f_13629(t9,t1,t2,t3);}

/* loop in chicken.base#compress in k12856 in k11643 */
static void f_13629(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){
C_save_and_reclaim_args((void *)trf_13629,4,t0,t1,t2,t3);}
a=C_alloc(4);
if(C_truep(C_i_nullp(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_pairp(t2);
if(C_truep(C_i_not(t4))){
/* library.scm:1121: ##sys#signal-hook */
t5=*((C_word*)lf[127]+1);{
C_word av2[6];
av2[0]=t5;
av2[1]=t1;
av2[2]=lf[309];
av2[3]=lf[308];
av2[4]=((C_word*)t0)[2];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}
else{
t5=C_i_pairp(t3);
if(C_truep(C_i_not(t5))){
/* library.scm:1123: ##sys#signal-hook */
t6=*((C_word*)lf[127]+1);{
C_word av2[6];
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[309];
av2[3]=lf[308];
av2[4]=((C_word*)t0)[2];
av2[5]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}
else{
if(C_truep(C_slot(t2,C_fix(0)))){
t6=C_slot(t3,C_fix(0));
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13671,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
/* library.scm:1125: loop */
t9=t7;
t10=C_slot(t2,C_fix(1));
t11=C_slot(t3,C_fix(1));
t1=t9;
t2=t10;
t3=t11;
goto loop;}
else{
/* library.scm:1126: loop */
t9=t1;
t10=C_slot(t2,C_fix(1));
t11=C_slot(t3,C_fix(1));
t1=t9;
t2=t10;
t3=t11;
goto loop;}}}}}

/* k13669 in loop in chicken.base#compress in k12856 in k11643 */
static void C_ccall f_13671(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_13671,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.base#alist-update! in k12856 in k11643 */
static void C_ccall f_13700(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(c<5) C_bad_min_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_13700,c,av);}
a=C_alloc(10);
t5=C_rest_nullp(c,5);
t6=(C_truep(t5)?*((C_word*)lf[5]+1):C_get_rest_arg(c,5,av,5,t0));
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13707,a[2]=t3,a[3]=t1,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t8=C_eqp(*((C_word*)lf[4]+1),t6);
if(C_truep(t8)){
t9=t7;
f_13707(t9,*((C_word*)lf[56]+1));}
else{
t9=C_eqp(*((C_word*)lf[5]+1),t6);
if(C_truep(t9)){
t10=t7;
f_13707(t10,*((C_word*)lf[57]+1));}
else{
t10=C_eqp(*((C_word*)lf[6]+1),t6);
t11=t7;
f_13707(t11,(C_truep(t10)?*((C_word*)lf[58]+1):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13739,a[2]=t6,a[3]=((C_word)li214),tmp=(C_word)a,a+=4,tmp)));}}}

/* k13705 in chicken.base#alist-update! in k12856 in k11643 */
static void f_13707(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_13707,2,t0,t1);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13710,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:1143: aq */
t3=t1;{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k13708 in k13705 in chicken.base#alist-update! in k12856 in k11643 */
static void C_ccall f_13710(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_13710,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_i_setslot(t1,C_fix(1),((C_word*)t2)[2]);
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_a_i_cons(&a,2,((C_word*)t2)[5],((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);}}}

/* f_13739 in chicken.base#alist-update! in k12856 in k11643 */
static void C_ccall f_13739(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_13739,c,av);}
a=C_alloc(8);
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_13745,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word)li213),tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_13745(t7,t1,t3);}

/* loop */
static void f_13745(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_13745,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)f_13761,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_pairp(t3))){
/* library.scm:1140: cmp */
t5=((C_word*)t0)[3];{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
av2[3]=C_slot(t3,C_fix(0));
((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}
else{
/* library.scm:1142: loop */
t6=t1;
t7=C_slot(t2,C_fix(1));
t1=t6;
t2=t7;
goto loop;}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k13759 in loop */
static void C_ccall f_13761(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13761,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* library.scm:1142: loop */
t2=((C_word*)((C_word*)t0)[4])[1];
f_13745(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[5],C_fix(1)));}}

/* chicken.base#alist-update in k12856 in k11643 */
static void C_ccall f_13786(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(c<5) C_bad_min_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_13786,c,av);}
a=C_alloc(9);
t5=C_rest_nullp(c,5);
t6=(C_truep(t5)?*((C_word*)lf[5]+1):C_get_rest_arg(c,5,av,5,t0));
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|6,a[1]=(C_word)f_13795,a[2]=t2,a[3]=t3,a[4]=t8,a[5]=t6,a[6]=((C_word)li216),tmp=(C_word)a,a+=7,tmp));
t10=((C_word*)t8)[1];
f_13795(t10,t1,t4);}

/* loop in chicken.base#alist-update in k12856 in k11643 */
static void f_13795(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_13795,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_nullp(t2))){
t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_a_i_list1(&a,1,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_i_pairp(t2);
if(C_truep(C_i_not(t3))){
/* library.scm:1155: chicken.base#error */
t4=*((C_word*)lf[249]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t1;
av2[2]=lf[312];
av2[3]=lf[313];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t4=C_slot(t2,C_fix(0));
t5=C_i_pairp(t4);
if(C_truep(C_i_not(t5))){
/* library.scm:1159: chicken.base#error */
t6=*((C_word*)lf[249]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[312];
av2[3]=lf[314];
av2[4]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13836,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t1,a[6]=t4,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp);
/* library.scm:1160: cmp */
t7=((C_word*)t0)[5];{
C_word av2[4];
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[2];
av2[3]=C_slot(t4,C_fix(0));
((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}}}}

/* k13834 in loop in chicken.base#alist-update in k12856 in k11643 */
static void C_ccall f_13836(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_13836,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_slot(((C_word*)t0)[4],C_fix(1));
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t2=C_slot(((C_word*)t0)[6],C_fix(0));
t3=C_slot(((C_word*)t0)[6],C_fix(1));
t4=C_a_i_cons(&a,2,t2,t3);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13858,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* library.scm:1164: loop */
t6=((C_word*)((C_word*)t0)[7])[1];
f_13795(t6,t5,C_slot(((C_word*)t0)[4],C_fix(1)));}}

/* k13856 in k13834 in loop in chicken.base#alist-update in k12856 in k11643 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_13858,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.base#alist-ref in k12856 in k11643 */
static void C_ccall f_13890(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_13890,c,av);}
a=C_alloc(10);
t4=C_rest_nullp(c,4);
t5=(C_truep(t4)?*((C_word*)lf[5]+1):C_get_rest_arg(c,4,av,4,t0));
t6=C_rest_nullp(c,4);
t7=C_rest_nullp(c,5);
t8=(C_truep(t7)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,4,t0));
t9=C_rest_nullp(c,5);
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13906,a[2]=t1,a[3]=t8,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t11=C_eqp(*((C_word*)lf[4]+1),t5);
if(C_truep(t11)){
t12=t10;
f_13906(t12,*((C_word*)lf[56]+1));}
else{
t12=C_eqp(*((C_word*)lf[5]+1),t5);
if(C_truep(t12)){
t13=t10;
f_13906(t13,*((C_word*)lf[57]+1));}
else{
t13=C_eqp(*((C_word*)lf[6]+1),t5);
t14=t10;
f_13906(t14,(C_truep(t13)?*((C_word*)lf[58]+1):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13931,a[2]=t5,a[3]=((C_word)li219),tmp=(C_word)a,a+=4,tmp)));}}}

/* k13904 in chicken.base#alist-ref in k12856 in k11643 */
static void f_13906(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_13906,2,t0,t1);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13909,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:1182: aq */
t3=t1;{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k13907 in k13904 in chicken.base#alist-ref in k12856 in k11643 */
static void C_ccall f_13909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13909,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?C_slot(t1,C_fix(1)):((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* f_13931 in chicken.base#alist-ref in k12856 in k11643 */
static void C_ccall f_13931(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=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);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_13931,c,av);}
a=C_alloc(8);
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_13937,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word)li218),tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_13937(t7,t1,t3);}

/* loop */
static void f_13937(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
C_save_and_reclaim_args((void *)trf_13937,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_check_pair_2(t3,lf[316]);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13962,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* library.scm:1178: cmp */
t6=((C_word*)t0)[3];{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
av2[3]=C_slot(t3,C_fix(0));
((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}
else{
/* library.scm:1181: chicken.base#error */
t3=*((C_word*)lf[249]+1);{
C_word av2[5];
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[316];
av2[3]=lf[317];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}}

/* k13960 in loop */
static void C_ccall f_13962(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13962,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* library.scm:1180: loop */
t2=((C_word*)((C_word*)t0)[4])[1];
f_13937(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[5],C_fix(1)));}}

/* chicken.base#rassoc in k12856 in k11643 */
static void C_ccall f_14002(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +8,c,3)))){
C_save_and_reclaim((void*)f_14002,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+8);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
t5=C_i_check_list_2(t3,lf[319]);
t6=C_i_pairp(t4);
t7=(C_truep(t6)?C_get_rest_arg(c,4,av,4,t0):*((C_word*)lf[5]+1));
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_14014,a[2]=t9,a[3]=t7,a[4]=t2,a[5]=((C_word)li221),tmp=(C_word)a,a+=6,tmp));
t11=((C_word*)t9)[1];
f_14014(t11,t1,t3);}

/* loop in chicken.base#rassoc in k12856 in k11643 */
static void f_14014(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_14014,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_check_pair_2(t3,lf[319]);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14033,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* library.scm:1195: tst */
t6=((C_word*)t0)[3];{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
av2[3]=C_slot(t3,C_fix(1));
((C_proc)C_fast_retrieve_proc(t6))(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);}}}

/* k14031 in loop in chicken.base#rassoc in k12856 in k11643 */
static void C_ccall f_14033(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14033,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* library.scm:1197: loop */
t2=((C_word*)((C_word*)t0)[4])[1];
f_14014(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[5],C_fix(1)));}}

/* scheme#open-input-string in k12856 in k11643 */
static void C_ccall f_14050(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_14050,c,av);}
a=C_alloc(4);
t3=C_i_check_string_2(t2,lf[321]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14057,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:1208: ##sys#make-port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[322]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[322]+1);
av2[1]=t4;
av2[2]=C_fix(1);
av2[3]=C_fast_retrieve(lf[323]);
av2[4]=lf[324];
av2[5]=lf[325];
tp(6,av2);}}

/* k14055 in scheme#open-input-string in k12856 in k11643 */
static void C_ccall f_14057(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_14057,c,av);}
a=C_alloc(6);
t2=C_slot(((C_word*)t0)[2],C_fix(0));
t3=C_block_size(t2);
t4=C_fixnum_difference(t3,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14067,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* library.scm:1211: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t5;
av2[2]=t4;
tp(3,av2);}}

/* k14065 in k14055 in scheme#open-input-string in k12856 in k11643 */
static void C_ccall f_14067(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14067,c,av);}
t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_i_set_i_slot(((C_word*)t0)[4],C_fix(10),C_fix(0));
t4=C_i_set_i_slot(((C_word*)t0)[4],C_fix(11),((C_word*)t0)[3]);
t5=C_i_setslot(((C_word*)t0)[4],C_fix(12),t1);
t6=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t6;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* scheme#open-output-string in k12856 in k11643 */
static void C_ccall f_14078(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_14078,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14082,a[2]=C_SCHEME_UNDEFINED,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:1220: ##sys#make-port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[322]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[322]+1);
av2[1]=t2;
av2[2]=C_fix(2);
av2[3]=C_fast_retrieve(lf[323]);
av2[4]=lf[327];
av2[5]=lf[325];
tp(6,av2);}}

/* k14080 in scheme#open-output-string in k12856 in k11643 */
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 t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14082,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),C_fix(0));
t4=C_i_set_i_slot(((C_word*)t0)[2],C_fix(11),C_fix(256));
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14095,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:1223: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t5;
av2[2]=C_fix(256);
tp(3,av2);}}

/* k14093 in k14080 in scheme#open-output-string in k12856 in k11643 */
static void C_ccall f_14095(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14095,c,av);}
t2=((C_word*)t0)[2];
t3=C_i_setslot(((C_word*)t2)[2],C_fix(12),t1);
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#get-output-string in k12856 in k11643 */
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=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_14097,c,av);}
t3=C_i_check_port_2(t2,C_fix(2),C_SCHEME_FALSE,lf[329]);
t4=C_slot(t2,C_fix(7));
t5=C_eqp(lf[325],t4);
if(C_truep(C_i_not(t5))){
/* library.scm:1230: ##sys#signal-hook */
t6=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[309];
av2[3]=lf[329];
av2[4]=lf[330];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}
else{
/* library.scm:1232: ##sys#buffer->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[331]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[331]+1);
av2[1]=t1;
av2[2]=C_slot(t2,C_fix(12));
av2[3]=C_fix(0);
av2[4]=C_slot(t2,C_fix(10));
tp(5,av2);}}}

/* scheme#open-input-bytevector in k12856 in k11643 */
static void C_ccall f_14131(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_14131,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14135,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:1236: ##sys#make-port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[322]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[322]+1);
av2[1]=t3;
av2[2]=C_fix(1);
av2[3]=C_SCHEME_FALSE;
av2[4]=lf[335];
av2[5]=lf[336];
tp(6,av2);}}

/* k14133 in scheme#open-input-bytevector in k12856 in k11643 */
static void C_ccall f_14135(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(40,c,6)))){
C_save_and_reclaim((void *)f_14135,c,av);}
a=C_alloc(40);
t2=C_i_check_bytevector_2(((C_word*)t0)[2],lf[333]);
t3=C_i_setslot(t1,C_fix(14),lf[182]);
t4=C_fix(0);
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_block_size(((C_word*)t0)[2]);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14153,a[2]=t5,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=((C_word)li226),tmp=(C_word)a,a+=6,tmp);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14169,a[2]=t5,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=((C_word)li227),tmp=(C_word)a,a+=6,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14178,a[2]=t1,a[3]=((C_word)li228),tmp=(C_word)a,a+=4,tmp);
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14184,a[2]=t5,a[3]=t6,a[4]=((C_word)li229),tmp=(C_word)a,a+=5,tmp);
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14194,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t6,a[5]=((C_word)li230),tmp=(C_word)a,a+=6,tmp);
t12=C_a_i_vector(&a,10,t7,t8,C_SCHEME_FALSE,C_SCHEME_FALSE,t9,C_SCHEME_FALSE,t10,t11,C_SCHEME_FALSE,C_SCHEME_FALSE);
t13=C_i_setslot(t1,C_fix(2),t12);
t14=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t14;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}

/* a14152 in k14133 in scheme#open-input-bytevector in k12856 in k11643 */
static void C_ccall f_14153(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14153,c,av);}
t3=C_eqp(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]);
if(C_truep(t3)){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_END_OF_FILE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_bytevector_ref(((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],C_fix(1)));
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_make_character(C_unfix(t4));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* a14168 in k14133 in scheme#open-input-bytevector in k12856 in k11643 */
static void C_ccall f_14169(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14169,c,av);}
t3=C_eqp(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_SCHEME_END_OF_FILE:C_i_bytevector_ref(((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a14177 in k14133 in scheme#open-input-bytevector in k12856 in k11643 */
static void C_ccall f_14178(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14178,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_i_slot(((C_word*)t0)[2],C_fix(8),C_SCHEME_TRUE);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a14183 in k14133 in scheme#open-input-bytevector in k12856 in k11643 */
static void C_ccall f_14184(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14184,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_not(C_eqp(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a14193 in k14133 in scheme#open-input-bytevector in k12856 in k11643 */
static void C_ccall f_14194(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_14194,c,av);}
a=C_alloc(7);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14198,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* library.scm:1262: scheme#min */
t7=*((C_word*)lf[334]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t3;
av2[3]=C_fixnum_difference(((C_word*)t0)[4],((C_word*)((C_word*)t0)[3])[1]);
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k14196 in a14193 in k14133 in scheme#open-input-bytevector in k12856 in k11643 */
static void C_ccall f_14198(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14198,c,av);}
t2=C_copy_memory_with_offset(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1],t1);
t3=C_mutate(((C_word *)((C_word*)t0)[5])+1,C_fixnum_plus(((C_word*)((C_word*)t0)[5])[1],t1));
t4=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#open-output-bytevector in k12856 in k11643 */
static void C_ccall f_14202(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_14202,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14206,a[2]=C_SCHEME_UNDEFINED,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:1272: ##sys#make-port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[322]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[322]+1);
av2[1]=t2;
av2[2]=C_fix(2);
av2[3]=C_SCHEME_FALSE;
av2[4]=lf[338];
av2[5]=lf[336];
tp(6,av2);}}

/* k14204 in scheme#open-output-bytevector in k12856 in k11643 */
static void C_ccall f_14206(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14206,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_14209,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:1273: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t3;
av2[2]=C_fix(256);
tp(3,av2);}}

/* k14207 in k14204 in scheme#open-output-bytevector in k12856 in k11643 */
static void C_ccall f_14209(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(42,c,6)))){
C_save_and_reclaim((void *)f_14209,c,av);}
a=C_alloc(42);
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_fix(0);
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_fix(256);
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_SCHEME_UNDEFINED;
t12=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14211,a[2]=t6,a[3]=t4,a[4]=t8,a[5]=((C_word)li232),tmp=(C_word)a,a+=6,tmp));
t13=t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14223,a[2]=t4,a[3]=t6,a[4]=((C_word)li233),tmp=(C_word)a,a+=5,tmp);
t14=C_i_setslot(((C_word*)t2)[2],C_fix(9),t11);
t15=C_i_setslot(((C_word*)t2)[2],C_fix(14),lf[182]);
t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14242,a[2]=t10,a[3]=((C_word)li234),tmp=(C_word)a,a+=4,tmp);
t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14259,a[2]=t10,a[3]=((C_word)li235),tmp=(C_word)a,a+=4,tmp);
t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14265,a[2]=((C_word*)t2)[2],a[3]=((C_word)li236),tmp=(C_word)a,a+=4,tmp);
t19=C_a_i_vector(&a,10,C_SCHEME_FALSE,C_SCHEME_FALSE,t16,t17,t18,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE);
t20=C_i_setslot(((C_word*)t2)[2],C_fix(2),t19);
t21=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t21;
av2[1]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}

/* add in k14207 in k14204 in scheme#open-output-bytevector in k12856 in k11643 */
static void f_14211(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){
C_save_and_reclaim_args((void *)trf_14211,5,t0,t1,t2,t3,t4);}
a=C_alloc(16);
t5=C_fixnum_difference(t4,t3);
t6=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],t5);
t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14215,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t5,a[7]=t6,a[8]=t1,tmp=(C_word)a,a+=9,tmp);
if(C_truep(C_fixnum_greaterp(t6,((C_word*)((C_word*)t0)[4])[1]))){
t8=C_fixnum_times(((C_word*)((C_word*)t0)[4])[1],C_fix(2));
t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14219,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t8,a[6]=t7,tmp=(C_word)a,a+=7,tmp);
/* library.scm:1281: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t9;
av2[2]=t8;
tp(3,av2);}}
else{
t8=t7;
f_14215(t8,C_SCHEME_UNDEFINED);}}

/* k14213 in add in k14207 in k14204 in scheme#open-output-bytevector in k12856 in k11643 */
static void f_14215(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){
C_save_and_reclaim_args((void *)trf_14215,2,t0,t1);}
t2=C_copy_memory_with_offset(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],((C_word*)t0)[6]);
t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[7]);
t4=((C_word*)t0)[8];{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k14217 in add in k14207 in k14204 in scheme#open-output-bytevector in k12856 in k11643 */
static void C_ccall f_14219(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14219,c,av);}
t2=C_copy_memory_with_offset(t1,((C_word*)((C_word*)t0)[2])[1],C_fix(0),C_fix(0),((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t5=((C_word*)t0)[6];
f_14215(t5,t4);}

/* getter in k14207 in k14204 in scheme#open-output-bytevector in k12856 in k11643 */
static void C_ccall f_14223(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_14223,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14227,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:1288: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[3])[1];
tp(3,av2);}}

/* k14225 in getter in k14207 in k14204 in scheme#open-output-bytevector in k12856 in k11643 */
static void C_ccall f_14227(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14227,c,av);}
t2=C_copy_memory_with_offset(t1,((C_word*)((C_word*)t0)[2])[1],C_fix(0),C_fix(0),((C_word*)((C_word*)t0)[3])[1]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a14241 in k14207 in k14204 in scheme#open-output-bytevector in k12856 in k11643 */
static void C_ccall f_14242(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_14242,c,av);}
a=C_alloc(8);
t4=C_a_i_string(&a,1,t3);
t5=C_slot(t4,C_fix(0));
t6=C_block_size(t5);
/* library.scm:1301: add */
t7=((C_word*)((C_word*)t0)[2])[1];
f_14211(t7,t1,t5,C_fix(0),C_fixnum_difference(t6,C_fix(1)));}

/* a14258 in k14207 in k14204 in scheme#open-output-bytevector in k12856 in k11643 */
static void C_ccall f_14259(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_14259,c,av);}
/* library.scm:1303: add */
t6=((C_word*)((C_word*)t0)[2])[1];
f_14211(t6,t1,t3,t4,t5);}

/* a14264 in k14207 in k14204 in scheme#open-output-bytevector in k12856 in k11643 */
static void C_ccall f_14265(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14265,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_i_slot(((C_word*)t0)[2],C_fix(8),C_SCHEME_TRUE);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#get-output-bytevector in k12856 in k11643 */
static void C_ccall f_14271(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_14271,c,av);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14274,a[2]=t2,a[3]=((C_word)li238),tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14281,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:1316: ##sys#check-port */
t5=*((C_word*)lf[342]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[340];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* fail in scheme#get-output-bytevector in k12856 in k11643 */
static void f_14274(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_14274,2,t0,t1);}
/* library.scm:1315: chicken.base#error */
t2=*((C_word*)lf[249]+1);{
C_word av2[5];
av2[0]=t2;
av2[1]=t1;
av2[2]=lf[340];
av2[3]=lf[341];
av2[4]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k14279 in scheme#get-output-bytevector in k12856 in k11643 */
static void C_ccall f_14281(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14281,c,av);}
t2=C_slot(((C_word*)t0)[2],C_fix(7));
t3=C_eqp(t2,lf[336]);
if(C_truep(t3)){
t4=C_slot(((C_word*)t0)[2],C_fix(9));
if(C_truep(C_i_closurep(t4))){
/* library.scm:1320: getter */
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
/* library.scm:1321: fail */
t5=((C_word*)t0)[4];
f_14274(t5,((C_word*)t0)[3]);}}
else{
/* library.scm:1322: fail */
t4=((C_word*)t0)[4];
f_14274(t4,((C_word*)t0)[3]);}}

/* chicken.fixnum#fx+ in k12856 in k11643 */
static void C_ccall f_14318(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14318,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_plus(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fx- in k12856 in k11643 */
static void C_ccall f_14321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14321,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_difference(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fx* in k12856 in k11643 */
static void C_ccall f_14324(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14324,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_times(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fx= in k12856 in k11643 */
static void C_ccall f_14327(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14327,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_eqp(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fx> in k12856 in k11643 */
static void C_ccall f_14333(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14333,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_greaterp(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fx< in k12856 in k11643 */
static void C_ccall f_14336(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14336,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_lessp(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fx>= in k12856 in k11643 */
static void C_ccall f_14339(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14339,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_greater_or_equal_p(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fx<= in k12856 in k11643 */
static void C_ccall f_14342(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14342,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_less_or_equal_p(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fxmin in k12856 in k11643 */
static void C_ccall f_14345(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14345,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_fixnum_min(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fxmax in k12856 in k11643 */
static void C_ccall f_14348(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14348,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_fixnum_max(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fxneg in k12856 in k11643 */
static void C_ccall f_14351(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14351,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_fixnum_negate(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.fixnum#fxand in k12856 in k11643 */
static void C_ccall f_14354(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14354,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_and(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fxior in k12856 in k11643 */
static void C_ccall f_14357(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14357,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_or(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fxxor in k12856 in k11643 */
static void C_ccall f_14360(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14360,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_xor(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fxnot in k12856 in k11643 */
static void C_ccall f_14363(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14363,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_fixnum_not(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.fixnum#fxshl in k12856 in k11643 */
static void C_ccall f_14366(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14366,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_shift_left(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fxshr in k12856 in k11643 */
static void C_ccall f_14369(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14369,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_shift_right(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fxodd? in k12856 in k11643 */
static void C_ccall f_14372(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14372,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_fixnumoddp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.fixnum#fxeven? in k12856 in k11643 */
static void C_ccall f_14375(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14375,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_fixnumevenp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.fixnum#fxlen in k12856 in k11643 */
static void C_ccall f_14378(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14378,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_fixnum_length(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.fixnum#fx/ in k12856 in k11643 */
static void C_ccall f_14381(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14381,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_divide(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fxgcd in k12856 in k11643 */
static void C_ccall f_14384(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14384,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_fixnum_gcd(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fxmod in k12856 in k11643 */
static void C_ccall f_14387(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14387,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_modulo(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fxrem in k12856 in k11643 */
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=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14390,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_fixnum_remainder_checked(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fx+? in k12856 in k11643 */
static void C_ccall f_14393(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14393,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_o_fixnum_plus(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fx-? in k12856 in k11643 */
static void C_ccall f_14396(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14396,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_o_fixnum_difference(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fx*? in k12856 in k11643 */
static void C_ccall f_14399(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14399,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_o_fixnum_times(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.fixnum#fx/? in k12856 in k11643 */
static void C_ccall f_14402(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14402,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_o_fixnum_quotient(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#debug-mode? in k12856 in k11643 */
static void C_ccall f_14405(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14405,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_debug_modep();
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.base#warning in k12856 in k11643 */
static void C_ccall f_14410(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){
C_save_and_reclaim((void*)f_14410,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
if(C_truep(*((C_word*)lf[378]+1))){{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[381];
av2[4]=t2;
av2[5]=t3;
C_apply(6,av2);}}
else{
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* chicken.base#notice in k12856 in k11643 */
static void C_ccall f_14419(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){
C_save_and_reclaim((void*)f_14419,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
t4=(C_truep(*((C_word*)lf[379]+1))?*((C_word*)lf[378]+1):C_SCHEME_FALSE);
if(C_truep(t4)){{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[383];
av2[4]=t2;
av2[5]=t3;
C_apply(6,av2);}}
else{
t5=C_SCHEME_UNDEFINED;
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* chicken.base#enable-warnings in k12856 in k11643 */
static void C_ccall f_14431(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14431,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
if(C_truep(C_i_pairp(t2))){
t3=C_mutate((C_word*)lf[378]+1 /* (set! ##sys#warnings-enabled ...) */,C_get_rest_arg(c,2,av,2,t0));
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=*((C_word*)lf[378]+1);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=*((C_word*)lf[378]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* ##sys#error/errno in k12856 in k11643 */
static void C_ccall f_14445(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,6)))){
C_save_and_reclaim((void*)f_14445,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
if(C_truep(C_i_pairp(t3))){{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=C_fast_retrieve(lf[388]);
av2[3]=lf[250];
av2[4]=t2;
av2[5]=C_SCHEME_FALSE;
av2[6]=t3;
C_apply(7,av2);}}
else{
/* library.scm:1407: ##sys#signal-hook/errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[388]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[388]+1);
av2[1]=t1;
av2[2]=lf[250];
av2[3]=t2;
av2[4]=C_SCHEME_FALSE;
tp(5,av2);}}}

/* ##sys#setslot in k12856 in k11643 */
static void C_ccall f_14461(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14461,c,av);}
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_setslot(t2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#setislot in k12856 in k11643 */
static void C_ccall f_14464(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14464,c,av);}
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_set_i_slot(t2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#start-timer in k12856 in k11643 */
static void C_ccall f_14473(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14473,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14477,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:1422: ##sys#gc */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[389]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[389]+1);
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
tp(3,av2);}}

/* k14475 in ##sys#start-timer in k12856 in k11643 */
static void C_ccall f_14477(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14477,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_start_timer();
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* ##sys#stop-timer in k12856 in k11643 */
static void C_ccall f_14479(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_14479,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_stop_timer,a[2]=((C_word)li283),tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14483,a[2]=C_SCHEME_UNDEFINED,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:1426: g1545 */
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}

/* k14481 in ##sys#stop-timer in k12856 in k11643 */
static void C_ccall f_14483(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14483,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_14486,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:1429: ##sys#gc */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[389]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[389]+1);
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
tp(3,av2);}}

/* k14484 in k14481 in ##sys#stop-timer in k12856 in k11643 */
static void C_ccall f_14486(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_14486,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_stop_timer,a[2]=((C_word)li284),tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14497,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:1430: g1547 */
t5=t3;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)C_fast_retrieve_proc(t5))(2,av2);}}

/* k14495 in k14484 in k14481 in ##sys#stop-timer in k12856 in k11643 */
static void C_ccall f_14497(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14497,c,av);}
t2=((C_word*)t0)[2];
t3=C_slot(t1,C_fix(6));
t4=C_i_setslot(((C_word*)t2)[2],C_fix(6),t3);
t5=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#immediate? in k12856 in k11643 */
static void C_ccall f_14499(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14499,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_not(C_blockp(t2));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#message in k12856 in k11643 */
static void C_ccall f_14506(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14506,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_message(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#byte in k12856 in k11643 */
static void C_ccall f_14509(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14509,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_subbyte(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#halt in k12856 in k11643 */
static void C_ccall f_14514(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14514,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_halt(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#block-ref in k12856 in k11643 */
static void C_ccall f_14518(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14518,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#block-set! in k12856 in k11643 */
static void C_ccall f_14523(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_14523,c,av);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14527,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
t6=C_i_not(C_blockp(t2));
if(C_truep(t6)){
if(C_truep(t6)){
/* library.scm:1448: ##sys#signal-hook */
t7=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t7;
av2[1]=t5;
av2[2]=lf[309];
av2[3]=lf[409];
av2[4]=lf[410];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}
else{
t7=t5;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_UNDEFINED;
f_14527(2,av2);}}}
else{
t7=(C_truep(C_specialp(t2))?C_eqp(t3,C_fix(0)):C_SCHEME_FALSE);
if(C_truep(t7)){
if(C_truep(t7)){
/* library.scm:1448: ##sys#signal-hook */
t8=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t8;
av2[1]=t5;
av2[2]=lf[309];
av2[3]=lf[409];
av2[4]=lf[410];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}}
else{
t8=t5;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
f_14527(2,av2);}}}
else{
if(C_truep(C_byteblockp(t2))){
/* library.scm:1448: ##sys#signal-hook */
t8=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t8;
av2[1]=t5;
av2[2]=lf[309];
av2[3]=lf[409];
av2[4]=lf[410];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}}
else{
t8=t5;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
f_14527(2,av2);}}}}}

/* k14525 in ##sys#block-set! in k12856 in k11643 */
static void C_ccall f_14527(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14527,c,av);}
t2=C_block_size(((C_word*)t0)[2]);
t3=C_i_check_range_2(((C_word*)t0)[3],C_fix(0),t2,lf[409]);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[5]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.time#current-process-milliseconds in k12856 in k11643 */
static void C_ccall f_14558(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){
C_save_and_reclaim((void *)f_14558,c,av);}
a=C_alloc(7);
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_current_process_milliseconds(&a,1,C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.time#current-seconds in k12856 in k11643 */
static void C_ccall f_14561(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){
C_save_and_reclaim((void *)f_14561,c,av);}
a=C_alloc(7);
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_get_current_seconds(&a,1,C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.time#cpu-time in k12856 in k11643 */
static void C_ccall f_14564(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_14564,c,av);}
a=C_alloc(11);
t2=C_a_i_vector2(&a,2,C_SCHEME_FALSE,C_SCHEME_FALSE);
t3=C_a_i_cpu_time(&a,1,t2);
/* library.scm:1477: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=C_slot(t2,C_fix(0));
av2[3]=C_slot(t2,C_fix(1));
C_values(4,av2);}}

/* ##sys#check-structure in k12856 in k11643 */
static void C_ccall f_14581(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14581,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+0);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=C_i_pairp(t4);
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=(C_truep(t5)?C_i_check_structure_2(t2,t3,C_get_rest_arg(c,4,av,4,t0)):C_i_check_structure(t2,t3));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* ##sys#check-blob in k12856 in k11643 */
static void C_ccall f_14592(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14592,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_bytevector_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_bytevector(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-pair in k12856 in k11643 */
static void C_ccall f_14603(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14603,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_pair_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_pair(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-list in k12856 in k11643 */
static void C_ccall f_14614(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14614,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_list_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_list(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-string in k12856 in k11643 */
static void C_ccall f_14625(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14625,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_string_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_string(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-number in k12856 in k11643 */
static void C_ccall f_14636(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14636,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_number_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_number(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-fixnum in k12856 in k11643 */
static void C_ccall f_14647(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14647,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_fixnum_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_fixnum(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-bytevector in k12856 in k11643 */
static void C_ccall f_14658(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14658,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_bytevector_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_bytevector(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-exact in k12856 in k11643 */
static void C_ccall f_14669(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14669,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_exact_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_exact(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-inexact in k12856 in k11643 */
static void C_ccall f_14680(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14680,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_inexact_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_inexact(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-symbol in k12856 in k11643 */
static void C_ccall f_14691(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14691,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_symbol_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_symbol(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-keyword in k12856 in k11643 */
static void C_ccall f_14702(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14702,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_keyword_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_keyword(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-vector in k12856 in k11643 */
static void C_ccall f_14713(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14713,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_vector_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_vector(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-char in k12856 in k11643 */
static void C_ccall f_14724(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14724,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_char_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_char(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-boolean in k12856 in k11643 */
static void C_ccall f_14735(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14735,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_boolean_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_boolean(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-locative in k12856 in k11643 */
static void C_ccall f_14746(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14746,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_locative_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_locative(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-integer in k12856 in k11643 */
static void C_ccall f_14757(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,3)))){
C_save_and_reclaim((void*)f_14757,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
if(C_truep(C_i_integerp(t2))){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(t3))){
/* library.scm:1566: ##sys#error-bad-integer */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[432]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[432]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_get_rest_arg(c,3,av,3,t0);
tp(4,av2);}}
else{
/* library.scm:1566: ##sys#error-bad-integer */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[432]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[432]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_SCHEME_FALSE;
tp(4,av2);}}}}

/* ##sys#check-exact-integer in k12856 in k11643 */
static void C_ccall f_14774(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,3)))){
C_save_and_reclaim((void*)f_14774,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
if(C_truep(C_i_exact_integerp(t2))){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(t3))){
/* library.scm:1570: ##sys#error-bad-exact-integer */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[434]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[434]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_get_rest_arg(c,3,av,3,t0);
tp(4,av2);}}
else{
/* library.scm:1570: ##sys#error-bad-exact-integer */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[434]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[434]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_SCHEME_FALSE;
tp(4,av2);}}}}

/* ##sys#check-exact-uinteger in k12856 in k11643 */
static void C_ccall f_14791(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,3)))){
C_save_and_reclaim((void*)f_14791,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
C_word t7;
t4=C_i_not(C_i_exact_integerp(t2));
t5=(C_truep(t4)?t4:C_i_integer_negativep(t2));
if(C_truep(t5)){
if(C_truep(C_i_pairp(t3))){
/* library.scm:1575: ##sys#error-bad-exact-uinteger */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[436]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[436]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_get_rest_arg(c,3,av,3,t0);
tp(4,av2);}}
else{
/* library.scm:1575: ##sys#error-bad-exact-uinteger */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[436]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[436]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_SCHEME_FALSE;
tp(4,av2);}}}
else{
t6=C_SCHEME_UNDEFINED;
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* ##sys#check-real in k12856 in k11643 */
static void C_ccall f_14815(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,3)))){
C_save_and_reclaim((void*)f_14815,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
if(C_truep(C_i_realp(t2))){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(t3))){
/* library.scm:1579: ##sys#error-bad-real */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[438]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[438]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_get_rest_arg(c,3,av,3,t0);
tp(4,av2);}}
else{
/* library.scm:1579: ##sys#error-bad-real */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[438]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[438]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_SCHEME_FALSE;
tp(4,av2);}}}}

/* ##sys#check-range in k12856 in k11643 */
static void C_ccall f_14832(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c<5) C_bad_min_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14832,c,av);}
a=C_alloc((c-5)*C_SIZEOF_PAIR+0);
t5=C_build_rest(&a,c,5,av);
C_word t6;
C_word t7;
t6=C_i_pairp(t5);
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=(C_truep(t6)?C_i_check_range_2(t2,t3,t4,C_get_rest_arg(c,5,av,5,t0)):C_i_check_range(t2,t3,t4));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* ##sys#check-range/including in k12856 in k11643 */
static void C_ccall f_14843(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c<5) C_bad_min_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14843,c,av);}
a=C_alloc((c-5)*C_SIZEOF_PAIR+0);
t5=C_build_rest(&a,c,5,av);
C_word t6;
C_word t7;
t6=C_i_pairp(t5);
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=(C_truep(t6)?C_i_check_range_including_2(t2,t3,t4,C_get_rest_arg(c,5,av,5,t0)):C_i_check_range_including(t2,t3,t4));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* ##sys#check-special in k12856 in k11643 */
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=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){
C_save_and_reclaim((void*)f_14854,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
t4=(C_truep(C_blockp(t2))?C_specialp(t2):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=C_SCHEME_UNDEFINED;
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(t3))){
/* library.scm:1593: ##sys#signal-hook */
t5=*((C_word*)lf[127]+1);{
C_word av2[6];
av2[0]=t5;
av2[1]=t1;
av2[2]=lf[309];
av2[3]=C_get_rest_arg(c,3,av,3,t0);
av2[4]=lf[442];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}
else{
/* library.scm:1593: ##sys#signal-hook */
t5=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=lf[309];
av2[3]=C_SCHEME_FALSE;
av2[4]=lf[442];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}}}

/* ##sys#check-closure in k12856 in k11643 */
static void C_ccall f_14874(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_14874,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_closure_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_closure(t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* scheme#force in k12856 in k11643 */
static void C_ccall f_14885(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_14885,c,av);}
a=C_alloc(6);
if(C_truep(C_i_structurep(t2,lf[264]))){
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_14897,a[2]=t4,a[3]=((C_word)li322),tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_14897(t6,t1,t2,C_SCHEME_FALSE);}
else{
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* lp in scheme#force in k12856 in k11643 */
static void f_14897(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_14897,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_slot(t2,C_fix(1));
if(C_truep(C_i_nullp(t4))){
/* library.scm:1606: ##sys#values */{
C_word av2[2];
av2[0]=0;
av2[1]=t1;
C_values(2,av2);}}
else{
if(C_truep(C_i_pairp(t4))){{
C_word av2[3];
av2[0]=0;
av2[1]=t1;
av2[2]=t4;
C_apply_values(3,av2);}}
else{
if(C_truep(C_i_closurep(t4))){
t5=(C_truep(t3)?C_i_setslot(t3,C_fix(1),t2):C_SCHEME_UNDEFINED);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14931,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* library.scm:1610: ##sys#call-with-values */{
C_word av2[4];
av2[0]=0;
av2[1]=t6;
av2[2]=t4;
av2[3]=*((C_word*)lf[445]+1);
C_call_with_values(4,av2);}}
else{
if(C_truep(C_i_structurep(t4,lf[264]))){
/* library.scm:1622: lp */
t8=t1;
t9=t4;
t10=t3;
t1=t8;
t2=t9;
t3=t10;
goto loop;}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}}}

/* k14929 in lp in scheme#force in k12856 in k11643 */
static void C_ccall f_14931(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_14931,c,av);}
a=C_alloc(6);
t2=C_slot(((C_word*)t0)[2],C_fix(1));
t3=C_i_closurep(t2);
if(C_truep(C_i_not(t3))){
/* library.scm:1612: lp */
t4=((C_word*)((C_word*)t0)[3])[1];
f_14897(t4,((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[5]);}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14946,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t5=C_i_nullp(t1);
if(C_truep(C_i_not(t5))){
t6=C_i_cdr(t1);
t7=C_i_nullp(t6);
t8=t4;
f_14946(t8,(C_truep(t7)?C_i_structurep(C_slot(t1,C_fix(0)),lf[264]):C_SCHEME_FALSE));}
else{
t6=t4;
f_14946(t6,C_SCHEME_FALSE);}}}

/* k14944 in k14929 in lp in scheme#force in k12856 in k11643 */
static void f_14946(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_14946,2,t0,t1);}
if(C_truep(t1)){
t2=C_slot(((C_word*)t0)[2],C_fix(0));
t3=C_slot(t2,C_fix(1));
t4=C_i_setslot(((C_word*)t0)[3],C_fix(1),t3);
/* library.scm:1617: lp */
t5=((C_word*)((C_word*)t0)[4])[1];
f_14897(t5,((C_word*)t0)[5],((C_word*)t0)[3],t2);}
else{
t2=C_i_setslot(((C_word*)t0)[3],C_fix(1),((C_word*)t0)[2]);{
C_word av2[3];
av2[0]=0;
av2[1]=((C_word*)t0)[5];
av2[2]=((C_word*)t0)[2];
C_apply_values(3,av2);}}}

/* ##sys#error-not-a-proper-list in k12856 in k11643 */
static void C_ccall f_15013(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15013,c,av);}
if(C_truep(C_rest_nullp(c,3))){
t3=C_fix((C_word)C_NOT_A_PROPER_LIST_ERROR);
/* library.scm:1632: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=C_SCHEME_FALSE;
av2[4]=t2;
tp(5,av2);}}
else{
t3=C_get_rest_arg(c,3,av,3,t0);
t4=C_fix((C_word)C_NOT_A_PROPER_LIST_ERROR);
/* library.scm:1632: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t4;
av2[3]=t3;
av2[4]=t2;
tp(5,av2);}}}

/* ##sys#error-bad-number in k12856 in k11643 */
static void C_ccall f_15029(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15029,c,av);}
if(C_truep(C_rest_nullp(c,3))){
t3=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR);
/* library.scm:1636: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=C_SCHEME_FALSE;
av2[4]=t2;
tp(5,av2);}}
else{
t3=C_get_rest_arg(c,3,av,3,t0);
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR);
/* library.scm:1636: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t4;
av2[3]=t3;
av2[4]=t2;
tp(5,av2);}}}

/* ##sys#error-bad-integer in k12856 in k11643 */
static void C_ccall f_15045(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15045,c,av);}
if(C_truep(C_rest_nullp(c,3))){
t3=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR);
/* library.scm:1640: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=C_SCHEME_FALSE;
av2[4]=t2;
tp(5,av2);}}
else{
t3=C_get_rest_arg(c,3,av,3,t0);
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR);
/* library.scm:1640: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t4;
av2[3]=t3;
av2[4]=t2;
tp(5,av2);}}}

/* ##sys#error-bad-exact-integer in k12856 in k11643 */
static void C_ccall f_15061(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15061,c,av);}
if(C_truep(C_rest_nullp(c,3))){
t3=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR);
/* library.scm:1644: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=C_SCHEME_FALSE;
av2[4]=t2;
tp(5,av2);}}
else{
t3=C_get_rest_arg(c,3,av,3,t0);
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR);
/* library.scm:1644: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t4;
av2[3]=t3;
av2[4]=t2;
tp(5,av2);}}}

/* ##sys#error-bad-exact-uinteger in k12856 in k11643 */
static void C_ccall f_15077(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15077,c,av);}
if(C_truep(C_rest_nullp(c,3))){
t3=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR);
/* library.scm:1648: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=C_SCHEME_FALSE;
av2[4]=t2;
tp(5,av2);}}
else{
t3=C_get_rest_arg(c,3,av,3,t0);
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR);
/* library.scm:1648: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t4;
av2[3]=t3;
av2[4]=t2;
tp(5,av2);}}}

/* ##sys#error-bad-inexact in k12856 in k11643 */
static void C_ccall f_15093(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15093,c,av);}
if(C_truep(C_rest_nullp(c,3))){
t3=C_fix((C_word)C_CANT_REPRESENT_INEXACT_ERROR);
/* library.scm:1652: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=C_SCHEME_FALSE;
av2[4]=t2;
tp(5,av2);}}
else{
t3=C_get_rest_arg(c,3,av,3,t0);
t4=C_fix((C_word)C_CANT_REPRESENT_INEXACT_ERROR);
/* library.scm:1652: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t4;
av2[3]=t3;
av2[4]=t2;
tp(5,av2);}}}

/* ##sys#error-bad-real in k12856 in k11643 */
static void C_ccall f_15109(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15109,c,av);}
if(C_truep(C_rest_nullp(c,3))){
t3=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR);
/* library.scm:1656: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=C_SCHEME_FALSE;
av2[4]=t2;
tp(5,av2);}}
else{
t3=C_get_rest_arg(c,3,av,3,t0);
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR);
/* library.scm:1656: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t4;
av2[3]=t3;
av2[4]=t2;
tp(5,av2);}}}

/* ##sys#error-bad-base in k12856 in k11643 */
static void C_ccall f_15125(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15125,c,av);}
if(C_truep(C_rest_nullp(c,3))){
t3=C_fix((C_word)C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR);
/* library.scm:1660: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=C_SCHEME_FALSE;
av2[4]=t2;
tp(5,av2);}}
else{
t3=C_get_rest_arg(c,3,av,3,t0);
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR);
/* library.scm:1660: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t4;
av2[3]=t3;
av2[4]=t2;
tp(5,av2);}}}

/* scheme#append in k12856 in k11643 */
static void C_ccall f_15141(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){
C_save_and_reclaim((void*)f_15141,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+6);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
t3=C_eqp(t2,C_SCHEME_END_OF_LIST);
if(C_truep(t3)){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_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_15153,a[2]=t5,a[3]=((C_word)li335),tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_15153(t7,t1,t2);}}

/* loop in scheme#append in k12856 in k11643 */
static void f_15153(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_15153,3,t0,t1,t2);}
a=C_alloc(8);
t3=C_slot(t2,C_fix(1));
t4=C_eqp(t3,C_SCHEME_END_OF_LIST);
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_slot(t2,C_fix(0));
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|5,a[1]=(C_word)f_15172,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t7,a[5]=((C_word)li334),tmp=(C_word)a,a+=6,tmp));
t9=((C_word*)t7)[1];
f_15172(t9,t1,t5);}}

/* copy in loop in scheme#append in k12856 in k11643 */
static void f_15172(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_15172,3,t0,t1,t2);}
a=C_alloc(4);
t3=C_eqp(t2,C_SCHEME_END_OF_LIST);
if(C_truep(t3)){
/* library.scm:1671: loop */
t4=((C_word*)((C_word*)t0)[2])[1];
f_15153(t4,t1,C_slot(((C_word*)t0)[3],C_fix(1)));}
else{
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15203,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* library.scm:1673: copy */
t7=t5;
t8=C_slot(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}
else{
/* library.scm:1675: ##sys#error-not-a-proper-list */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[51]+1);
av2[1]=t1;
av2[2]=C_slot(((C_word*)t0)[3],C_fix(0));
av2[3]=lf[453];
tp(4,av2);}}}}

/* k15201 in copy in loop in scheme#append in k12856 in k11643 */
static void C_ccall f_15203(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_15203,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* ##sys#fast-reverse in k12856 in k11643 */
static void C_ccall f_15220(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_15220,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_15226,a[2]=t4,a[3]=((C_word)li337),tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_15226(t6,t1,t2,C_SCHEME_END_OF_LIST);}

/* loop in ##sys#fast-reverse in k12856 in k11643 */
static void f_15226(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_15226,4,t0,t1,t2,t3);}
a=C_alloc(3);
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_cons(&a,2,t5,t3);
/* library.scm:1681: loop */
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);}}}

/* ##sys#make-bytevector in k12856 in k11643 */
static void C_ccall f_15250(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15250,c,av);}
if(C_truep(C_rest_nullp(c,3))){
/* library.scm:1688: ##sys#allocate-bytevector */
t3=*((C_word*)lf[393]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
/* library.scm:1688: ##sys#allocate-bytevector */
t3=*((C_word*)lf[393]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_get_rest_arg(c,3,av,3,t0);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* ##sys#make-string in k12856 in k11643 */
static void C_ccall f_15265(C_word c,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_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_15265,c,av);}
a=C_alloc(5);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_make_character(32):C_get_rest_arg(c,3,av,3,t0));
t5=C_utf_bytes(t4);
t6=C_fixnum_times(t5,t2);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15275,a[2]=t4,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:1693: ##sys#allocate-bytevector */
t8=*((C_word*)lf[393]+1);{
C_word av2[4];
av2[0]=t8;
av2[1]=t7;
av2[2]=C_fixnum_plus(t6,C_fix(1));
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}

/* k15273 in ##sys#make-string in k12856 in k11643 */
static void C_ccall f_15275(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_15275,c,av);}
a=C_alloc(5);
t2=C_utf_fill(t1,((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_ustring(&a,2,t1,((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#buffer->string! in k12856 in k11643 */
static void C_ccall f_15287(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_15287,c,av);}
a=C_alloc(5);
t4=C_utf_set_bv_size(t2,t3);
t5=C_utf_range_length(t2,C_fix(0),t3);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_a_ustring(&a,2,t2,t5);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* ##sys#buffer->string in k12856 in k11643 */
static void C_ccall f_15291(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_15291,c,av);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15295,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* library.scm:1703: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t5;
av2[2]=C_fixnum_plus(t4,C_fix(1));
tp(3,av2);}}

/* k15293 in ##sys#buffer->string in k12856 in k11643 */
static void C_ccall f_15295(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_15295,c,av);}
a=C_alloc(5);
t2=C_copy_memory_with_offset(t1,((C_word*)t0)[2],C_fix(0),((C_word*)t0)[3],((C_word*)t0)[4]);
t3=C_utf_range_length(t1,C_fix(0),((C_word*)t0)[4]);
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_ustring(&a,2,t1,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#utf-decoder in k12856 in k11643 */
static void C_ccall f_15302(C_word c,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 *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15302,c,av);}
/* library.scm:1709: k */
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=t4;
((C_proc)C_fast_retrieve_proc(t6))(5,av2);}}

/* ##sys#utf-encoder in k12856 in k11643 */
static void C_ccall f_15308(C_word c,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 *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15308,c,av);}
/* library.scm:1712: k */
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=t4;
((C_proc)C_fast_retrieve_proc(t6))(5,av2);}}

/* ##sys#utf-scanner in k12856 in k11643 */
static void C_ccall f_15314(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15314,c,av);}
if(C_truep(t2)){
t4=C_fixnum_greaterp(t2,C_fix(1));
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=(C_truep(t4)?C_fixnum_difference(t2,C_fix(1)):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=C_utf_bytes_needed(t3);
t5=C_eqp(t4,C_fix(1));
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=(C_truep(t5)?C_SCHEME_FALSE:C_fixnum_difference(t4,C_fix(1)));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* ##sys#latin-decoder in k12856 in k11643 */
static void C_ccall f_15338(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_15338,c,av);}
a=C_alloc(7);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15342,a[2]=t5,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
/* library.scm:1725: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t6;
av2[2]=C_fixnum_times(t4,C_fix(2));
tp(3,av2);}}

/* k15340 in ##sys#latin-decoder in k12856 in k11643 */
static void C_ccall f_15342(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15342,c,av);}
/* library.scm:1727: k */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=C_fix(0);
av2[4]=C_latin_to_utf(((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);
((C_proc)C_fast_retrieve_proc(t2))(5,av2);}}

/* ##sys#latin-encoder in k12856 in k11643 */
static void C_ccall f_15351(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_15351,c,av);}
a=C_alloc(7);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15355,a[2]=t5,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
/* library.scm:1730: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t6;
av2[2]=C_fixnum_plus(t4,C_fix(1));
tp(3,av2);}}

/* k15353 in ##sys#latin-encoder in k12856 in k11643 */
static void C_ccall f_15355(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15355,c,av);}
/* library.scm:1732: k */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=C_fix(0);
av2[4]=C_utf_to_latin(((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);
((C_proc)C_fast_retrieve_proc(t2))(5,av2);}}

/* ##sys#latin-scanner in k12856 in k11643 */
static void C_ccall f_15364(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15364,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#binary-decoder in k12856 in k11643 */
static void C_ccall f_15367(C_word c,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 *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15367,c,av);}
/* library.scm:1737: k */
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=t4;
((C_proc)C_fast_retrieve_proc(t6))(5,av2);}}

/* ##sys#binary-encoder in k12856 in k11643 */
static void C_ccall f_15373(C_word c,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 *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15373,c,av);}
/* library.scm:1740: k */
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=t4;
((C_proc)C_fast_retrieve_proc(t6))(5,av2);}}

/* ##sys#binary-scanner in k12856 in k11643 */
static void C_ccall f_15379(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15379,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#encoding-hook in k12856 in k11643 */
static void C_ccall f_15382(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_15382,c,av);}
t4=C_eqp(t2,lf[182]);
if(C_truep(t4)){
/* library.scm:1747: k */
t5=t3;{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=*((C_word*)lf[462]+1);
av2[3]=*((C_word*)lf[463]+1);
av2[4]=*((C_word*)lf[464]+1);
((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}
else{
t5=C_eqp(t2,lf[466]);
if(C_truep(t5)){
/* library.scm:1748: k */
t6=t3;{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t1;
av2[2]=*((C_word*)lf[456]+1);
av2[3]=*((C_word*)lf[457]+1);
av2[4]=*((C_word*)lf[458]+1);
((C_proc)C_fast_retrieve_proc(t6))(5,av2);}}
else{
t6=C_eqp(t2,lf[467]);
if(C_truep(t6)){
/* library.scm:1749: k */
t7=t3;{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t7;
av2[1]=t1;
av2[2]=*((C_word*)lf[459]+1);
av2[3]=*((C_word*)lf[460]+1);
av2[4]=*((C_word*)lf[461]+1);
((C_proc)C_fast_retrieve_proc(t7))(5,av2);}}
else{
/* library.scm:1750: ##sys#signal-hook */
t7=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t7;
av2[1]=t1;
av2[2]=lf[309];
av2[3]=C_SCHEME_FALSE;
av2[4]=lf[468];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}}}}

/* ##sys#register-encoding in k12856 in k11643 */
static void C_ccall f_15421(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_15421,c,av);}
a=C_alloc(7);
t6=*((C_word*)lf[465]+1);
t7=C_mutate((C_word*)lf[465]+1 /* (set! ##sys#encoding-hook ...) */,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15424,a[2]=t2,a[3]=t3,a[4]=t5,a[5]=t6,a[6]=((C_word)li353),tmp=(C_word)a,a+=7,tmp));
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}

/* ##sys#encoding-hook in ##sys#register-encoding in k12856 in k11643 */
static void C_ccall f_15424(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_15424,c,av);}
a=C_alloc(8);
t4=C_eqp(t2,((C_word*)t0)[2]);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15434,a[2]=t3,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(t4)){
t6=t5;
f_15434(t6,t4);}
else{
t6=C_i_pairp(((C_word*)t0)[2]);
t7=t5;
f_15434(t7,(C_truep(t6)?C_i_memq(t2,((C_word*)t0)[2]):C_SCHEME_FALSE));}}

/* k15432 in ##sys#encoding-hook in ##sys#register-encoding in k12856 in k11643 */
static void f_15434(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_15434,2,t0,t1);}
if(C_truep(t1)){
/* library.scm:1758: k */
t2=((C_word*)t0)[2];{
C_word av2[5];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=((C_word*)t0)[6];
((C_proc)C_fast_retrieve_proc(t2))(5,av2);}}
else{
/* library.scm:1759: old */
t2=((C_word*)t0)[7];{
C_word av2[4];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[2];
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}}

/* ##sys#buffer->string/encoding in k12856 in k11643 */
static void C_ccall f_15451(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_15451,c,av);}
a=C_alloc(6);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15457,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word)li355),tmp=(C_word)a,a+=6,tmp);
/* library.scm:1763: ##sys#encoding-hook */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[465]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[465]+1);
av2[1]=t1;
av2[2]=t5;
av2[3]=t6;
tp(4,av2);}}

/* a15456 in ##sys#buffer->string/encoding in k12856 in k11643 */
static void C_ccall f_15457(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_15457,c,av);}
/* library.scm:1765: decoder */
t5=t2;{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
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*)lf[331]+1);
((C_proc)C_fast_retrieve_proc(t5))(6,av2);}}

/* ##sys#encode-buffer in k12856 in k11643 */
static void C_ccall f_15463(C_word c,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 *a;
if(c!=7) C_bad_argc_2(c,7,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_15463,c,av);}
a=C_alloc(7);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15469,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t6,a[6]=((C_word)li357),tmp=(C_word)a,a+=7,tmp);
/* library.scm:1769: ##sys#encoding-hook */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[465]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[465]+1);
av2[1]=t1;
av2[2]=t5;
av2[3]=t7;
tp(4,av2);}}

/* a15468 in ##sys#encode-buffer in k12856 in k11643 */
static void C_ccall f_15469(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_15469,c,av);}
/* library.scm:1771: encoder */
t5=t3;{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
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];
((C_proc)C_fast_retrieve_proc(t5))(6,av2);}}

/* ##sys#decode-buffer in k12856 in k11643 */
static void C_ccall f_15475(C_word c,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 *a;
if(c!=7) C_bad_argc_2(c,7,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_15475,c,av);}
a=C_alloc(7);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15481,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t6,a[6]=((C_word)li359),tmp=(C_word)a,a+=7,tmp);
/* library.scm:1775: ##sys#encoding-hook */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[465]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[465]+1);
av2[1]=t1;
av2[2]=t5;
av2[3]=t7;
tp(4,av2);}}

/* a15480 in ##sys#decode-buffer in k12856 in k11643 */
static void C_ccall f_15481(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_15481,c,av);}
/* library.scm:1777: decoder */
t5=t2;{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
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];
((C_proc)C_fast_retrieve_proc(t5))(6,av2);}}

/* ##sys#encode-char in k12856 in k11643 */
static void C_ccall f_15487(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_15487,c,av);}
a=C_alloc(5);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15493,a[2]=t2,a[3]=t3,a[4]=((C_word)li362),tmp=(C_word)a,a+=5,tmp);
/* library.scm:1781: ##sys#encoding-hook */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[465]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[465]+1);
av2[1]=t1;
av2[2]=t4;
av2[3]=t5;
tp(4,av2);}}

/* a15492 in ##sys#encode-char in k12856 in k11643 */
static void C_ccall f_15493(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_15493,c,av);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15497,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* library.scm:1784: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t5;
av2[2]=C_fix(4);
tp(3,av2);}}

/* k15495 in a15492 in ##sys#encode-char in k12856 in k11643 */
static void C_ccall f_15497(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_15497,c,av);}
a=C_alloc(4);
t2=C_utf_insert(t1,C_fix(0),((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15502,a[2]=((C_word*)t0)[3],a[3]=((C_word)li361),tmp=(C_word)a,a+=4,tmp);
/* library.scm:1786: encoder */
t4=((C_word*)t0)[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[5];
av2[2]=t1;
av2[3]=C_fix(0);
av2[4]=t2;
av2[5]=t3;
((C_proc)C_fast_retrieve_proc(t4))(6,av2);}}

/* a15501 in k15495 in a15492 in ##sys#encode-char in k12856 in k11643 */
static void C_ccall f_15502(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15502,c,av);}
t5=C_copy_memory_with_offset(((C_word*)t0)[2],t2,C_fix(0),t3,t4);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* ##sys#decode-char in k12856 in k11643 */
static void C_ccall f_15505(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
C_save_and_reclaim((void *)f_15505,c,av);}
a=C_alloc(3);
t5=C_block_size(t2);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15515,a[2]=((C_word)li364),tmp=(C_word)a,a+=3,tmp);
/* library.scm:1792: ##sys#decode-buffer */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[472]+1));
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=*((C_word*)lf[472]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t4;
av2[4]=t5;
av2[5]=t3;
av2[6]=t6;
tp(7,av2);}}

/* a15514 in ##sys#decode-char in k12856 in k11643 */
static void C_ccall f_15515(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15515,c,av);}
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_utf_decode(t2,t3);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#read-char/encoding in k12856 in k11643 */
static void C_ccall f_15518(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_15518,c,av);}
a=C_alloc(5);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15524,a[2]=t2,a[3]=t4,a[4]=((C_word)li367),tmp=(C_word)a,a+=5,tmp);
/* library.scm:1799: ##sys#encoding-hook */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[465]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[465]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t5;
tp(4,av2);}}

/* a15523 in ##sys#read-char/encoding in k12856 in k11643 */
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=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_15524,c,av);}
a=C_alloc(7);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15528,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t4,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* library.scm:1802: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t5;
av2[2]=C_fix(5);
tp(3,av2);}}

/* k15526 in a15523 in ##sys#read-char/encoding in k12856 in k11643 */
static void C_ccall f_15528(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_15528,c,av);}
a=C_alloc(12);
t2=C_slot(((C_word*)t0)[2],C_fix(2));
t3=C_slot(t2,C_fix(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|9,a[1]=(C_word)f_15536,a[2]=t1,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t3,a[8]=((C_word*)t0)[2],a[9]=((C_word)li366),tmp=(C_word)a,a+=10,tmp));
t7=((C_word*)t5)[1];
f_15536(t7,((C_word*)t0)[6],C_SCHEME_FALSE,C_fix(0));}

/* loop in k15526 in a15523 in ##sys#read-char/encoding in k12856 in k11643 */
static void f_15536(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){
C_save_and_reclaim_args((void *)trf_15536,4,t0,t1,t2,t3);}
a=C_alloc(10);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15540,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=t2,tmp=(C_word)a,a+=10,tmp);
/* library.scm:1805: rbv! */
t5=((C_word*)t0)[7];{
C_word av2[6];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[8];
av2[3]=C_fix(1);
av2[4]=((C_word*)t0)[2];
av2[5]=t3;
((C_proc)C_fast_retrieve_proc(t5))(6,av2);}}

/* k15538 in loop in k15526 in a15523 in ##sys#read-char/encoding in k12856 in k11643 */
static void C_ccall f_15540(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,6)))){
C_save_and_reclaim((void *)f_15540,c,av);}
a=C_alloc(8);
t2=C_eqp(C_fix(0),t1);
if(C_truep(t2)){
t3=C_eqp(((C_word*)t0)[2],C_fix(0));
if(C_truep(t3)){
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_END_OF_FILE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* library.scm:1809: ##sys#signal-hook */
t4=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[476];
av2[3]=lf[477];
av2[4]=lf[478];
av2[5]=((C_word*)t0)[4];
av2[6]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}}}
else{
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15558,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
/* library.scm:1810: scan */
t4=((C_word*)t0)[8];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[9];
av2[3]=C_subbyte(((C_word*)t0)[4],((C_word*)t0)[2]);
((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}}

/* k15556 in k15538 in loop in k15526 in a15523 in ##sys#read-char/encoding in k12856 in k11643 */
static void C_ccall f_15558(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_15558,c,av);}
if(C_truep(t1)){
/* library.scm:1812: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_15536(t2,((C_word*)t0)[3],t1,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}
else{
/* library.scm:1813: k */
t2=((C_word*)t0)[5];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[6];
av2[3]=C_fix(0);
av2[4]=C_fixnum_plus(((C_word*)t0)[4],C_fix(1));
av2[5]=((C_word*)t0)[7];
((C_proc)C_fast_retrieve_proc(t2))(6,av2);}}}

/* scheme#make-string in k12856 in k11643 */
static void C_ccall f_15582(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,5)))){
C_save_and_reclaim((void*)f_15582,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+5);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
t4=C_i_check_fixnum_2(t2,lf[480]);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15589,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){
/* library.scm:1819: ##sys#signal-hook */
t6=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[481];
av2[3]=lf[480];
av2[4]=lf[482];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}
else{
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
f_15589(2,av2);}}}

/* k15587 in scheme#make-string in k12856 in k11643 */
static void C_ccall f_15589(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15589,c,av);}
if(C_truep(C_i_nullp(((C_word*)t0)[2]))){
/* library.scm:1820: ##sys#make-string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[455]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[455]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=C_make_character(32);
tp(4,av2);}}
else{
t2=C_i_car(((C_word*)t0)[2]);
t3=C_i_check_char_2(t2,lf[480]);
/* library.scm:1820: ##sys#make-string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[455]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[455]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
tp(4,av2);}}}

/* scheme#string->list in k12856 in k11643 */
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=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 *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
C_save_and_reclaim((void *)f_15613,c,av);}
a=C_alloc(11);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
t5=t4;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_rest_nullp(c,3);
t8=C_rest_nullp(c,4);
t9=(C_truep(t8)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
t10=t9;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_rest_nullp(c,4);
t13=C_i_check_string_2(t2,lf[484]);
t14=C_slot(t2,C_fix(1));
t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15635,a[2]=t11,a[3]=t6,a[4]=t2,a[5]=t1,a[6]=t14,tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)t6)[1])){
/* library.scm:1833: ##sys#check-range/including */
t16=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t16;
av2[1]=t15;
av2[2]=((C_word*)t6)[1];
av2[3]=C_fix(0);
av2[4]=t14;
av2[5]=lf[484];
((C_proc)(void*)(*((C_word*)t16+1)))(6,av2);}}
else{
t16=C_set_block_item(t6,0,C_fix(0));
t17=t15;{
C_word *av2=av;
av2[0]=t17;
av2[1]=t16;
f_15635(2,av2);}}}

/* k15633 in scheme#string->list in k12856 in k11643 */
static void C_ccall f_15635(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_15635,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15638,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
/* library.scm:1836: ##sys#check-range/including */
t3=*((C_word*)lf[440]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[6];
av2[5]=lf[484];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
else{
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[6]);
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_15638(2,av2);}}}

/* k15636 in k15633 in scheme#string->list in k12856 in k11643 */
static void C_ccall f_15638(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_15638,c,av);}
a=C_alloc(8);
t2=C_fixnum_difference(((C_word*)((C_word*)t0)[2])[1],C_fix(1));
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15647,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word)li370),tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_15647(t6,((C_word*)t0)[5],t2,C_SCHEME_END_OF_LIST);}

/* loop in k15636 in k15633 in scheme#string->list in k12856 in k11643 */
static void f_15647(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_15647,4,t0,t1,t2,t3);}
a=C_alloc(3);
if(C_truep(C_fixnum_lessp(t2,((C_word*)((C_word*)t0)[2])[1]))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fixnum_difference(t2,C_fix(1));
t5=C_i_string_ref(((C_word*)t0)[3],t2);
t6=C_a_i_cons(&a,2,t5,t3);
/* library.scm:1841: loop */
t8=t1;
t9=t4;
t10=t6;
t1=t8;
t2=t9;
t3=t10;
goto loop;}}

/* scheme#list->string in k12856 in k11643 */
static void C_ccall f_15704(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_15704,c,av);}
a=C_alloc(4);
t3=C_i_listp(t2);
if(C_truep(C_i_not(t3))){
/* library.scm:1849: ##sys#error-not-a-proper-list */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[51]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[487];
tp(4,av2);}}
else{
t4=C_utf_list_size(t2);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15717,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:1851: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t5;
av2[2]=C_fixnum_plus(C_fix(1),t4);
tp(3,av2);}}}

/* k15715 in scheme#list->string in k12856 in k11643 */
static void C_ccall f_15717(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_15717,c,av);}
a=C_alloc(7);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15722,a[2]=t1,a[3]=t3,a[4]=((C_word)li372),tmp=(C_word)a,a+=5,tmp));
t5=((C_word*)t3)[1];
f_15722(t5,((C_word*)t0)[2],C_fix(0),C_fix(0),((C_word*)t0)[3]);}

/* loop in k15715 in scheme#list->string in k12856 in k11643 */
static void f_15722(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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_15722,5,t0,t1,t2,t3,t4);}
a=C_alloc(5);
t5=C_i_pairp(t4);
if(C_truep(C_i_not(t5))){
t6=C_a_ustring(&a,2,((C_word*)t0)[2],t2);
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t6=C_slot(t4,C_fix(0));
t7=C_i_check_char_2(t6,lf[487]);
t8=C_utf_insert(((C_word*)t0)[2],t3,t6);
/* library.scm:1860: loop */
t10=t1;
t11=C_fixnum_plus(t2,C_fix(1));
t12=C_fixnum_plus(t3,C_utf_bytes(t6));
t13=C_slot(t4,C_fix(1));
t1=t10;
t2=t11;
t3=t12;
t4=t13;
goto loop;}}

/* ##sys#reverse-list->string in k12856 in k11643 */
static void C_ccall f_15766(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_15766,c,av);}
a=C_alloc(5);
t3=C_utf_list_size(t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15770,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:1868: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t4;
av2[2]=C_fixnum_plus(t3,C_fix(1));
tp(3,av2);}}

/* k15768 in ##sys#reverse-list->string in k12856 in k11643 */
static void C_ccall f_15770(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_15770,c,av);}
a=C_alloc(7);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15775,a[2]=t1,a[3]=t3,a[4]=((C_word)li374),tmp=(C_word)a,a+=5,tmp));
t5=((C_word*)t3)[1];
f_15775(t5,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_fix(0));}

/* loop in k15768 in ##sys#reverse-list->string in k12856 in k11643 */
static void f_15775(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_15775,5,t0,t1,t2,t3,t4);}
a=C_alloc(5);
if(C_truep(C_i_nullp(t3))){
t5=C_a_ustring(&a,2,((C_word*)t0)[2],t4);
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(t3))){
t5=C_slot(t3,C_fix(0));
t6=C_i_check_char_2(t5,lf[490]);
t7=C_utf_bytes(t5);
t8=C_fixnum_difference(t2,t7);
t9=C_utf_insert(((C_word*)t0)[2],t8,t5);
/* library.scm:1878: loop */
t11=t1;
t12=t8;
t13=C_slot(t3,C_fix(1));
t14=C_fixnum_plus(t4,C_fix(1));
t1=t11;
t2=t12;
t3=t13;
t4=t14;
goto loop;}
else{
/* library.scm:1879: ##sys#error-not-a-proper-list */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[51]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=lf[490];
tp(4,av2);}}}}

/* scheme#string-fill! in k12856 in k11643 */
static void C_ccall f_15817(C_word c,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 *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_15817,c,av);}
a=C_alloc(11);
t4=C_rest_nullp(c,4);
t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0));
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_rest_nullp(c,4);
t9=C_rest_nullp(c,5);
t10=(C_truep(t9)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,4,t0));
t11=t10;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_rest_nullp(c,5);
t14=C_i_check_string_2(t2,lf[492]);
t15=C_i_check_char_2(t3,lf[492]);
t16=C_u_i_string_length(t2);
t17=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15840,a[2]=t2,a[3]=t12,a[4]=t7,a[5]=t3,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)t7)[1])){
t18=C_i_check_range_2(((C_word*)t7)[1],C_fix(0),t16,lf[492]);
if(C_truep(((C_word*)t12)[1])){
t19=t17;
f_15840(t19,C_i_check_range_2(((C_word*)t12)[1],C_fix(0),t16,lf[492]));}
else{
t19=C_set_block_item(t12,0,t16);
t20=t17;
f_15840(t20,t19);}}
else{
t18=C_set_block_item(t7,0,C_fix(0));
t19=C_set_block_item(t12,0,t16);
t20=t17;
f_15840(t20,t19);}}

/* k15838 in scheme#string-fill! in k12856 in k11643 */
static void f_15840(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_15840,2,t0,t1);}
a=C_alloc(6);
t2=C_slot(((C_word*)t0)[2],C_fix(0));
t3=C_block_size(t2);
t4=C_fixnum_difference(((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]);
t5=C_i_fixnum_max(C_fix(0),t4);
t6=C_fix(C_character_code(((C_word*)t0)[5]));
t7=C_fixnum_difference(t3,C_fix(1));
t8=C_slot(((C_word*)t0)[2],C_fix(1));
t9=C_eqp(t7,t8);
t10=(C_truep(t9)?C_fixnum_lessp(t6,C_fix(128)):C_SCHEME_FALSE);
if(C_truep(t10)){
t11=((C_word*)t0)[6];{
C_word av2[2];
av2[0]=t11;
av2[1]=C_fill_bytevector(t2,t6,((C_word*)((C_word*)t0)[4])[1],t5);
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15863,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word)li376),tmp=(C_word)a,a+=6,tmp);
t12=((C_word*)t0)[6];{
C_word av2[2];
av2[0]=t12;
av2[1]=(
  f_15863(t11,((C_word*)((C_word*)t0)[4])[1])
);
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}

/* doloop2082 in k15838 in scheme#string-fill! in k12856 in k11643 */
static C_word f_15863(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_fixnum_greater_or_equal_p(t1,((C_word*)((C_word*)t0)[2])[1]))){
t2=C_SCHEME_UNDEFINED;
return(t2);}
else{
t2=C_i_string_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]);
t4=C_fixnum_plus(t1,C_fix(1));
t1=t4;
goto loop;}}

/* scheme#string-copy in k12856 in k11643 */
static void C_ccall f_15936(C_word c,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 *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){
C_save_and_reclaim((void *)f_15936,c,av);}
a=C_alloc(17);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
t5=C_rest_nullp(c,3);
t6=C_rest_nullp(c,4);
t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_rest_nullp(c,4);
t11=C_i_check_string_2(t2,lf[494]);
t12=C_u_i_string_length(t2);
t13=C_fix(0);
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15956,a[2]=t9,a[3]=t14,a[4]=t1,a[5]=t4,a[6]=t2,a[7]=t12,tmp=(C_word)a,a+=8,tmp);
if(C_truep(t4)){
t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15985,a[2]=t14,a[3]=t4,a[4]=t15,tmp=(C_word)a,a+=5,tmp);
/* library.scm:1910: ##sys#check-range/including */
t17=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t17;
av2[1]=t16;
av2[2]=t4;
av2[3]=C_fix(0);
av2[4]=t12;
av2[5]=lf[494];
((C_proc)(void*)(*((C_word*)t17+1)))(6,av2);}}
else{
t16=t15;
f_15956(t16,C_SCHEME_UNDEFINED);}}

/* k15954 in scheme#string-copy in k12856 in k11643 */
static void f_15956(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){
C_save_and_reclaim_args((void *)trf_15956,2,t0,t1);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15959,a[2]=((C_word*)t0)[2],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*)((C_word*)t0)[2])[1])){
/* library.scm:1913: ##sys#check-range/including */
t3=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[7];
av2[5]=lf[494];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
else{
t3=C_set_block_item(((C_word*)t0)[2],0,((C_word*)t0)[7]);
t4=t2;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
f_15959(2,av2);}}}

/* k15957 in k15954 in scheme#string-copy in k12856 in k11643 */
static void C_ccall f_15959(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_15959,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15962,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15975,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[5])){
/* library.scm:1915: ##sys#substring */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[495]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[495]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)((C_word*)t0)[3])[1];
av2[4]=((C_word*)((C_word*)t0)[2])[1];
tp(5,av2);}}
else{
t4=t2;
f_15962(t4,C_slot(((C_word*)t0)[6],C_fix(0)));}}

/* k15960 in k15957 in k15954 in scheme#string-copy in k12856 in k11643 */
static void f_15962(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_15962,2,t0,t1);}
a=C_alloc(6);
t2=C_block_size(t1);
t3=C_fixnum_difference(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15971,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* library.scm:1918: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k15969 in k15960 in k15957 in k15954 in scheme#string-copy in k12856 in k11643 */
static void C_ccall f_15971(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_15971,c,av);}
a=C_alloc(5);
t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_ustring(&a,2,t1,((C_word*)t0)[5]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k15973 in k15957 in k15954 in scheme#string-copy in k12856 in k11643 */
static void C_ccall f_15975(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15975,c,av);}
t2=((C_word*)t0)[2];
f_15962(t2,C_slot(t1,C_fix(0)));}

/* k15983 in scheme#string-copy in k12856 in k11643 */
static void C_ccall f_15985(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15985,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];
f_15956(t3,t2);}

/* scheme#string-copy! in k12856 in k11643 */
static void C_ccall f_16012(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word *a;
if(c<5) C_bad_min_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(18,c,5)))){
C_save_and_reclaim((void *)f_16012,c,av);}
a=C_alloc(18);
t5=C_rest_nullp(c,5);
t6=(C_truep(t5)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,5,t0));
t7=t6;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_rest_nullp(c,5);
t10=C_rest_nullp(c,6);
t11=(C_truep(t10)?C_SCHEME_FALSE:C_get_rest_arg(c,6,av,5,t0));
t12=t11;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_rest_nullp(c,6);
t15=C_i_check_string_2(t2,lf[497]);
t16=C_i_check_string_2(t4,lf[497]);
t17=C_u_i_string_length(t2);
t18=C_u_i_string_length(t4);
t19=C_fixnum_difference(((C_word*)t13)[1],((C_word*)t8)[1]);
t20=C_i_check_range_2(t3,C_fix(0),t17,lf[497]);
t21=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16042,a[2]=t2,a[3]=t4,a[4]=t8,a[5]=t3,a[6]=t19,a[7]=t13,a[8]=t1,tmp=(C_word)a,a+=9,tmp);
if(C_truep(((C_word*)t8)[1])){
t22=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16129,a[2]=t13,a[3]=t21,a[4]=t18,tmp=(C_word)a,a+=5,tmp);
/* library.scm:1932: ##sys#check-range/including */
t23=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t23;
av2[1]=t22;
av2[2]=((C_word*)t8)[1];
av2[3]=C_fix(0);
av2[4]=t18;
av2[5]=lf[497];
((C_proc)(void*)(*((C_word*)t23+1)))(6,av2);}}
else{
t22=C_set_block_item(t8,0,C_fix(0));
t23=t21;{
C_word *av2=av;
av2[0]=t23;
av2[1]=t22;
f_16042(2,av2);}}}

/* k16040 in scheme#string-copy! in k12856 in k11643 */
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 *a;
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_eqp(((C_word*)t0)[2],((C_word*)t0)[3]);
t3=(C_truep(t2)?C_fixnum_lessp(((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5]):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[6]);
t5=C_fixnum_difference(t4,C_fix(1));
t6=C_fixnum_difference(((C_word*)((C_word*)t0)[7])[1],C_fix(1));
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16061,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li379),tmp=(C_word)a,a+=6,tmp);
t8=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t8;
av2[1]=(
  f_16061(t7,t5,t6)
);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16095,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li380),tmp=(C_word)a,a+=6,tmp);
t5=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t5;
av2[1]=(
  f_16095(t4,((C_word*)t0)[5],((C_word*)((C_word*)t0)[4])[1])
);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* doloop2140 in k16040 in scheme#string-copy! in k12856 in k11643 */
static C_word f_16061(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;
loop:{}
if(C_truep(C_fixnum_lessp(t2,((C_word*)((C_word*)t0)[2])[1]))){
t3=C_SCHEME_UNDEFINED;
return(t3);}
else{
t3=C_i_string_ref(((C_word*)t0)[3],t2);
t4=C_i_string_set(((C_word*)t0)[4],t1,t3);
t6=C_fixnum_difference(t1,C_fix(1));
t7=C_fixnum_difference(t2,C_fix(1));
t1=t6;
t2=t7;
goto loop;}}

/* doloop2146 in k16040 in scheme#string-copy! in k12856 in k11643 */
static C_word f_16095(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;
loop:{}
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)((C_word*)t0)[2])[1]))){
t3=C_SCHEME_UNDEFINED;
return(t3);}
else{
t3=C_i_string_ref(((C_word*)t0)[3],t2);
t4=C_i_string_set(((C_word*)t0)[4],t1,t3);
t6=C_fixnum_plus(t1,C_fix(1));
t7=C_fixnum_plus(t2,C_fix(1));
t1=t6;
t2=t7;
goto loop;}}

/* k16127 in scheme#string-copy! in k12856 in k11643 */
static void C_ccall f_16129(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_16129,c,av);}
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
/* library.scm:1934: ##sys#check-range/including */
t2=*((C_word*)lf[440]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[4];
av2[5]=lf[497];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
else{
t2=C_set_block_item(((C_word*)t0)[2],0,((C_word*)t0)[4]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_16042(2,av2);}}}

/* ##sys#substring in k12856 in k11643 */
static void C_ccall f_16163(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_16163,c,av);}
a=C_alloc(6);
t5=C_utf_range(t2,t3,t4);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16167,a[2]=t4,a[3]=t3,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* library.scm:1949: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t6;
av2[2]=C_fixnum_plus(t5,C_fix(1));
tp(3,av2);}}

/* k16165 in ##sys#substring in k12856 in k11643 */
static void C_ccall f_16167(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_16167,c,av);}
a=C_alloc(5);
t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_a_ustring(&a,2,t1,t2);
t4=C_utf_copy(((C_word*)t0)[4],t3,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));
t5=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* scheme#substring in k12856 in k11643 */
static void C_ccall f_16177(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,2)))){
C_save_and_reclaim((void*)f_16177,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+6);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
t5=C_i_check_string_2(t2,lf[499]);
t6=C_i_check_fixnum_2(t3,lf[499]);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16187,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_pairp(t4))){
t8=C_get_rest_arg(c,4,av,4,t0);
t9=C_i_check_fixnum_2(t8,lf[499]);
t10=t7;
f_16187(t10,t8);}
else{
t8=t7;
f_16187(t8,C_u_i_string_length(t2));}}

/* k16185 in scheme#substring in k12856 in k11643 */
static void f_16187(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_16187,2,t0,t1);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=C_u_i_string_length(((C_word*)t0)[3]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16194,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[4],((C_word*)t0)[5]))){
t5=C_fixnum_greater_or_equal_p(((C_word*)t0)[4],C_fix(0));
t6=t4;
f_16194(t6,(C_truep(t5)?C_fixnum_less_or_equal_p(((C_word*)t0)[5],t3):C_SCHEME_FALSE));}
else{
t5=t4;
f_16194(t5,C_SCHEME_FALSE);}}

/* k16192 in k16185 in scheme#substring in k12856 in k11643 */
static void f_16194(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_16194,2,t0,t1);}
t2=((C_word*)t0)[2];
if(C_truep(t1)){
/* library.scm:1967: ##sys#substring */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[495]+1));
C_word av2[5];
av2[0]=*((C_word*)lf[495]+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);}}
else{
t3=C_fix((C_word)C_OUT_OF_BOUNDS_ERROR);
/* library.scm:1968: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[6];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=t3;
av2[3]=lf[499];
av2[4]=((C_word*)t2)[3];
av2[5]=((C_word*)t2)[4];
tp(6,av2);}}}

/* compare in k12856 in k11643 */
static void f_16222(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_16222,6,t1,t2,t3,t4,t5,t6);}
a=C_alloc(7);
t7=C_i_check_string_2(t2,t5);
t8=C_i_check_string_2(t3,t5);
t9=C_u_i_string_length(t2);
t10=C_u_i_string_length(t3);
t11=C_fixnum_lessp(t9,t10);
t12=(C_truep(t11)?t9:t10);
t13=C_utf_compare(t2,t3,C_fix(0),C_fix(0),t12);
t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16242,a[2]=t6,a[3]=t1,a[4]=t3,a[5]=t10,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
/* library.scm:1984: cmp */
t15=t6;{
C_word av2[5];
av2[0]=t15;
av2[1]=t14;
av2[2]=t13;
av2[3]=t9;
av2[4]=t10;
((C_proc)C_fast_retrieve_proc(t15))(5,av2);}}

/* k16240 in compare in k12856 in k11643 */
static void C_ccall f_16242(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,6)))){
C_save_and_reclaim((void *)f_16242,c,av);}
a=C_alloc(7);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16244,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li384),tmp=(C_word)a,a+=5,tmp));
t5=((C_word*)t3)[1];
f_16244(t5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);}

/* loop in k16240 in compare in k12856 in k11643 */
static void f_16244(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_16244,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(7);
if(C_truep(t5)){
t6=C_i_nullp(t4);
if(C_truep(t6)){
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_slot(t4,C_fix(0));
t8=C_i_string_length(t7);
t9=C_fixnum_lessp(t3,t8);
t10=(C_truep(t9)?t3:t8);
t11=C_utf_compare(t2,t7,C_fix(0),C_fix(0),t10);
t12=C_slot(t4,C_fix(1));
t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16275,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t7,a[5]=t8,a[6]=t12,tmp=(C_word)a,a+=7,tmp);
/* library.scm:1993: cmp */
t14=((C_word*)t0)[3];{
C_word av2[5];
av2[0]=t14;
av2[1]=t13;
av2[2]=t11;
av2[3]=t3;
av2[4]=t8;
((C_proc)C_fast_retrieve_proc(t14))(5,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);}}}

/* k16273 in loop in k16240 in compare in k12856 in k11643 */
static void C_ccall f_16275(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_16275,c,av);}
/* library.scm:1992: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_16244(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);}

/* scheme#string<? in k12856 in k11643 */
static void C_ccall f_16283(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,6)))){
C_save_and_reclaim((void*)f_16283,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16289,a[2]=((C_word)li386),tmp=(C_word)a,a+=3,tmp);
/* library.scm:1995: compare */
f_16222(t1,t2,t3,t4,lf[501],t5);}

/* a16288 in scheme#string<? in k12856 in k11643 */
static void C_ccall f_16289(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16289,c,av);}
t5=C_fixnum_lessp(t2,C_fix(0));
if(C_truep(t5)){
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_fixnum_lessp(t3,t4);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=(C_truep(t6)?C_eqp(t2,C_fix(0)):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* scheme#string>? in k12856 in k11643 */
static void C_ccall f_16307(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,6)))){
C_save_and_reclaim((void*)f_16307,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16313,a[2]=((C_word)li388),tmp=(C_word)a,a+=3,tmp);
/* library.scm:2002: compare */
f_16222(t1,t2,t3,t4,lf[503],t5);}

/* a16312 in scheme#string>? in k12856 in k11643 */
static void C_ccall f_16313(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16313,c,av);}
t5=C_fixnum_greaterp(t2,C_fix(0));
if(C_truep(t5)){
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_fixnum_greaterp(t3,t4);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=(C_truep(t6)?C_eqp(t2,C_fix(0)):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* scheme#string<=? in k12856 in k11643 */
static void C_ccall f_16331(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,6)))){
C_save_and_reclaim((void*)f_16331,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16337,a[2]=((C_word)li390),tmp=(C_word)a,a+=3,tmp);
/* library.scm:2009: compare */
f_16222(t1,t2,t3,t4,lf[505],t5);}

/* a16336 in scheme#string<=? in k12856 in k11643 */
static void C_ccall f_16337(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16337,c,av);}
t5=C_eqp(t2,C_fix(0));
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=(C_truep(t5)?C_fixnum_less_or_equal_p(t3,t4):C_fixnum_lessp(t2,C_fix(0)));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* scheme#string>=? in k12856 in k11643 */
static void C_ccall f_16352(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,6)))){
C_save_and_reclaim((void*)f_16352,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16358,a[2]=((C_word)li392),tmp=(C_word)a,a+=3,tmp);
/* library.scm:2016: compare */
f_16222(t1,t2,t3,t4,lf[507],t5);}

/* a16357 in scheme#string>=? in k12856 in k11643 */
static void C_ccall f_16358(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16358,c,av);}
t5=C_eqp(t2,C_fix(0));
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=(C_truep(t5)?C_fixnum_greater_or_equal_p(t3,t4):C_fixnum_greaterp(t2,C_fix(0)));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* compare in k12856 in k11643 */
static void f_16372(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_16372,6,t1,t2,t3,t4,t5,t6);}
a=C_alloc(7);
t7=C_i_check_string_2(t2,t5);
t8=C_i_check_string_2(t3,t5);
t9=C_u_i_string_length(t2);
t10=C_u_i_string_length(t3);
t11=C_fixnum_lessp(t9,t10);
t12=(C_truep(t11)?t9:t10);
t13=C_utf_compare_ci(t2,t3,C_fix(0),C_fix(0),t12);
t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16392,a[2]=t6,a[3]=t1,a[4]=t3,a[5]=t10,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
/* library.scm:2035: cmp */
t15=t6;{
C_word av2[5];
av2[0]=t15;
av2[1]=t14;
av2[2]=t13;
av2[3]=t9;
av2[4]=t10;
((C_proc)C_fast_retrieve_proc(t15))(5,av2);}}

/* k16390 in compare in k12856 in k11643 */
static void C_ccall f_16392(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,6)))){
C_save_and_reclaim((void *)f_16392,c,av);}
a=C_alloc(7);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16394,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li394),tmp=(C_word)a,a+=5,tmp));
t5=((C_word*)t3)[1];
f_16394(t5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);}

/* loop in k16390 in compare in k12856 in k11643 */
static void f_16394(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_16394,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(7);
if(C_truep(t5)){
t6=C_i_nullp(t4);
if(C_truep(t6)){
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_slot(t4,C_fix(0));
t8=C_i_string_length(t7);
t9=C_fixnum_lessp(t3,t8);
t10=(C_truep(t9)?t3:t8);
t11=C_utf_compare_ci(t2,t7,C_fix(0),C_fix(0),t10);
t12=C_slot(t4,C_fix(1));
t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16425,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t7,a[5]=t8,a[6]=t12,tmp=(C_word)a,a+=7,tmp);
/* library.scm:2044: cmp */
t14=((C_word*)t0)[3];{
C_word av2[5];
av2[0]=t14;
av2[1]=t13;
av2[2]=t11;
av2[3]=t3;
av2[4]=t8;
((C_proc)C_fast_retrieve_proc(t14))(5,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);}}}

/* k16423 in loop in k16390 in compare in k12856 in k11643 */
static void C_ccall f_16425(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_16425,c,av);}
/* library.scm:2043: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_16394(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);}

/* scheme#string-ci<? in k12856 in k11643 */
static void C_ccall f_16433(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,6)))){
C_save_and_reclaim((void*)f_16433,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16439,a[2]=((C_word)li396),tmp=(C_word)a,a+=3,tmp);
/* library.scm:2046: compare */
f_16372(t1,t2,t3,t4,lf[509],t5);}

/* a16438 in scheme#string-ci<? in k12856 in k11643 */
static void C_ccall f_16439(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16439,c,av);}
t5=C_fixnum_lessp(t2,C_fix(0));
if(C_truep(t5)){
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_fixnum_lessp(t3,t4);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=(C_truep(t6)?C_eqp(t2,C_fix(0)):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* scheme#string-ci>? in k12856 in k11643 */
static void C_ccall f_16457(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,6)))){
C_save_and_reclaim((void*)f_16457,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16463,a[2]=((C_word)li398),tmp=(C_word)a,a+=3,tmp);
/* library.scm:2053: compare */
f_16372(t1,t2,t3,t4,lf[511],t5);}

/* a16462 in scheme#string-ci>? in k12856 in k11643 */
static void C_ccall f_16463(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16463,c,av);}
t5=C_fixnum_greaterp(t2,C_fix(0));
if(C_truep(t5)){
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_fixnum_greaterp(t3,t4);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=(C_truep(t6)?C_eqp(t2,C_fix(0)):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* scheme#string-ci<=? in k12856 in k11643 */
static void C_ccall f_16481(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,6)))){
C_save_and_reclaim((void*)f_16481,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16487,a[2]=((C_word)li400),tmp=(C_word)a,a+=3,tmp);
/* library.scm:2060: compare */
f_16372(t1,t2,t3,t4,lf[513],t5);}

/* a16486 in scheme#string-ci<=? in k12856 in k11643 */
static void C_ccall f_16487(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16487,c,av);}
t5=C_eqp(t2,C_fix(0));
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=(C_truep(t5)?C_fixnum_less_or_equal_p(t3,t4):C_fixnum_lessp(t2,C_fix(0)));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* scheme#string-ci>=? in k12856 in k11643 */
static void C_ccall f_16502(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +3,c,6)))){
C_save_and_reclaim((void*)f_16502,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+3);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16508,a[2]=((C_word)li402),tmp=(C_word)a,a+=3,tmp);
/* library.scm:2067: compare */
f_16372(t1,t2,t3,t4,lf[515],t5);}

/* a16507 in scheme#string-ci>=? in k12856 in k11643 */
static void C_ccall f_16508(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16508,c,av);}
t5=C_eqp(t2,C_fix(0));
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=(C_truep(t5)?C_fixnum_greater_or_equal_p(t3,t4):C_fixnum_greaterp(t2,C_fix(0)));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* ##sys#string-append in k12856 in k11643 */
static void C_ccall f_16523(C_word c,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 *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_16523,c,av);}
a=C_alloc(9);
t4=C_slot(t2,C_fix(0));
t5=C_slot(t3,C_fix(0));
t6=C_block_size(t4);
t7=C_fixnum_difference(t6,C_fix(1));
t8=C_block_size(t5);
t9=C_fixnum_difference(t8,C_fix(1));
t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16539,a[2]=t4,a[3]=t7,a[4]=t5,a[5]=t9,a[6]=t2,a[7]=t3,a[8]=t1,tmp=(C_word)a,a+=9,tmp);
t11=C_fixnum_plus(t9,C_fix(1));
/* library.scm:2079: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t10;
av2[2]=C_fixnum_plus(t7,t11);
av2[3]=C_fix(0);
tp(4,av2);}}

/* k16537 in ##sys#string-append in k12856 in k11643 */
static void C_ccall f_16539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_16539,c,av);}
a=C_alloc(5);
t2=C_copy_memory_with_offset(t1,((C_word*)t0)[2],C_fix(0),C_fix(0),((C_word*)t0)[3]);
t3=C_copy_memory_with_offset(t1,((C_word*)t0)[4],((C_word*)t0)[3],C_fix(0),((C_word*)t0)[5]);
t4=C_slot(((C_word*)t0)[6],C_fix(1));
t5=C_slot(((C_word*)t0)[7],C_fix(1));
t6=C_fixnum_plus(t4,t5);
t7=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_ustring(&a,2,t1,t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* scheme#string-append in k12856 in k11643 */
static void C_ccall f_16569(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +17,c,5)))){
C_save_and_reclaim((void*)f_16569,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+17);
t2=C_build_rest(&a,c,2,av);
C_word 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;
t3=C_SCHEME_FALSE;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_fix(0);
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16573,a[2]=t1,a[3]=t4,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16575,a[2]=t4,a[3]=t6,a[4]=t9,a[5]=((C_word)li405),tmp=(C_word)a,a+=6,tmp));
t11=((C_word*)t9)[1];
f_16575(t11,t7,t2,C_fix(0),C_fix(0));}

/* k16571 in scheme#string-append in k12856 in k11643 */
static void C_ccall f_16573(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_16573,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_ustring(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* loop in scheme#string-append in k12856 in k11643 */
static void f_16575(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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_16575,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
t5=C_eqp(t2,C_SCHEME_END_OF_LIST);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16586,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* library.scm:2091: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t6;
av2[2]=C_fixnum_plus(t3,C_fix(1));
av2[3]=C_fix(0);
tp(4,av2);}}
else{
t6=C_slot(t2,C_fix(0));
t7=C_i_check_string_2(t6,lf[518]);
t8=C_slot(t6,C_fix(0));
t9=C_block_size(t8);
t10=C_fixnum_difference(t9,C_fix(1));
t11=C_slot(t6,C_fix(1));
t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16609,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t8,a[5]=t3,a[6]=t10,tmp=(C_word)a,a+=7,tmp);
/* library.scm:2099: loop */
t14=t12;
t15=C_slot(t2,C_fix(1));
t16=C_fixnum_plus(t3,t10);
t17=C_fixnum_plus(t4,t11);
t1=t14;
t2=t15;
t3=t16;
t4=t17;
goto loop;}}

/* k16584 in loop in scheme#string-append in k12856 in k11643 */
static void C_ccall f_16586(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16586,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)t0)[4]);
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k16607 in loop in scheme#string-append in k12856 in k11643 */
static void C_ccall f_16609(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16609,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_copy_memory_with_offset(((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],((C_word*)t0)[5],C_fix(0),((C_word*)t0)[6]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* scheme#string in k12856 in k11643 */
static void C_ccall f_16627(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){
C_save_and_reclaim((void*)f_16627,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
t2=C_build_rest(&a,c,2,av);
C_word t3;
/* ##sys#list->string */
t3=*((C_word*)lf[488]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* ##sys#char->utf8-string in k12856 in k11643 */
static void C_ccall f_16633(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
C_save_and_reclaim((void *)f_16633,c,av);}
a=C_alloc(8);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_string(&a,1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#chop in k12856 in k11643 */
static void C_ccall f_16639(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_16639,c,av);}
a=C_alloc(5);
t4=C_i_check_fixnum_2(t3,lf[522]);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16646,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(0)))){
/* library.scm:2114: ##sys#error */
t6=*((C_word*)lf[211]+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]=lf[523];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
f_16646(2,av2);}}}

/* k16644 in chicken.base#chop in k12856 in k11643 */
static void C_ccall f_16646(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_16646,c,av);}
a=C_alloc(7);
t2=C_i_length(((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_16654,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word)li410),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_16654(t6,((C_word*)t0)[4],((C_word*)t0)[2],t2);}

/* loop in k16644 in chicken.base#chop in k12856 in k11643 */
static void f_16654(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
C_save_and_reclaim_args((void *)trf_16654,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]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
if(C_truep(C_fixnum_lessp(t3,((C_word*)t0)[2]))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_a_i_list1(&a,1,t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
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_16675,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t5,a[6]=((C_word)li409),tmp=(C_word)a,a+=7,tmp));
t7=((C_word*)t5)[1];
f_16675(t7,t1,C_SCHEME_END_OF_LIST,t2,((C_word*)t0)[2]);}}}

/* doloop2338 in loop in k16644 in chicken.base#chop in k12856 in k11643 */
static void f_16675(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_16675,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
t5=C_eqp(t4,C_fix(0));
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16689,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
/* library.scm:2124: scheme#reverse */
t7=*((C_word*)lf[50]+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_slot(t3,C_fix(0));
t7=C_a_i_cons(&a,2,t6,t2);
t9=t1;
t10=t7;
t11=C_slot(t3,C_fix(1));
t12=C_fixnum_difference(t4,C_fix(1));
t1=t9;
t2=t10;
t3=t11;
t4=t12;
goto loop;}}

/* k16687 in doloop2338 in loop in k16644 in chicken.base#chop in k12856 in k11643 */
static void C_ccall f_16689(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_16689,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16693,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2124: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_16654(t3,t2,((C_word*)t0)[4],C_fixnum_difference(((C_word*)t0)[5],((C_word*)t0)[6]));}

/* k16691 in k16687 in doloop2338 in loop in k16644 in chicken.base#chop in k12856 in k11643 */
static void C_ccall f_16693(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_16693,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.flonum#fp+ in k12856 in k11643 */
static void C_ccall f_16734(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_16734,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16756,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_flonum(&a,C_ub_i_flonum_plus(C_flonum_magnitude(t2),C_flonum_magnitude(t3)));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[536];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k16754 in chicken.flonum#fp+ in k12856 in k11643 */
static void C_ccall f_16756(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_16756,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_ub_i_flonum_plus(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fp- in k12856 in k11643 */
static void C_ccall f_16758(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_16758,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16780,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_flonum(&a,C_ub_i_flonum_difference(C_flonum_magnitude(t2),C_flonum_magnitude(t3)));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[538];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k16778 in chicken.flonum#fp- in k12856 in k11643 */
static void C_ccall f_16780(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_16780,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_ub_i_flonum_difference(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fp* in k12856 in k11643 */
static void C_ccall f_16782(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_16782,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16804,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_flonum(&a,C_ub_i_flonum_times(C_flonum_magnitude(t2),C_flonum_magnitude(t3)));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[540];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k16802 in chicken.flonum#fp* in k12856 in k11643 */
static void C_ccall f_16804(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_16804,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_ub_i_flonum_times(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fp/ in k12856 in k11643 */
static void C_ccall f_16806(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_16806,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16828,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_flonum(&a,C_ub_i_flonum_quotient(C_flonum_magnitude(t2),C_flonum_magnitude(t3)));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[542];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k16826 in chicken.flonum#fp/ in k12856 in k11643 */
static void C_ccall f_16828(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_16828,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_ub_i_flonum_quotient(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fp*+ in k12856 in k11643 */
static void C_ccall f_16830(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_16830,c,av);}
a=C_alloc(13);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16834,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16837,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp);
if(C_truep(C_i_flonump(t2))){
t7=C_i_flonump(t3);
t8=t6;
f_16837(t8,(C_truep(t7)?C_i_flonump(t4):C_SCHEME_FALSE));}
else{
t7=t6;
f_16837(t7,C_SCHEME_FALSE);}}

/* k16832 in chicken.flonum#fp*+ in k12856 in k11643 */
static void C_ccall f_16834(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_16834,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_ub_i_flonum_multiply_add(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]),C_flonum_magnitude(((C_word*)t0)[5])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k16835 in chicken.flonum#fp*+ in k12856 in k11643 */
static void f_16837(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,6)))){
C_save_and_reclaim_args((void *)trf_16837,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_flonum(&a,C_ub_i_flonum_multiply_add(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]),C_flonum_magnitude(((C_word*)t0)[5])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2175: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[7];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=((C_word*)t0)[6];
av2[2]=t2;
av2[3]=lf[544];
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
av2[6]=((C_word*)t0)[5];
tp(7,av2);}}}

/* chicken.flonum#fpgcd in k12856 in k11643 */
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=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_16855,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16877,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_i_flonum_gcd(&a,2,t2,t3);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[546];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k16875 in chicken.flonum#fpgcd in k12856 in k11643 */
static void C_ccall f_16877(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_16877,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_flonum_gcd(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fp/? in k12856 in k11643 */
static void C_ccall f_16879(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_16879,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16901,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_i_flonum_quotient_checked(&a,2,t2,t3);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[548];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k16899 in chicken.flonum#fp/? in k12856 in k11643 */
static void C_ccall f_16901(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_16901,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_flonum_quotient_checked(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fp= in k12856 in k11643 */
static void C_ccall f_16903(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_16903,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16925,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_ub_i_flonum_equalp(C_flonum_magnitude(t2),C_flonum_magnitude(t3));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[550];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k16923 in chicken.flonum#fp= in k12856 in k11643 */
static void C_ccall f_16925(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16925,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_ub_i_flonum_equalp(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fp> in k12856 in k11643 */
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=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_16927,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16949,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_ub_i_flonum_greaterp(C_flonum_magnitude(t2),C_flonum_magnitude(t3));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[552];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k16947 in chicken.flonum#fp> in k12856 in k11643 */
static void C_ccall f_16949(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16949,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_ub_i_flonum_greaterp(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fp< in k12856 in k11643 */
static void C_ccall f_16951(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_16951,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16973,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_ub_i_flonum_lessp(C_flonum_magnitude(t2),C_flonum_magnitude(t3));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[554];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k16971 in chicken.flonum#fp< in k12856 in k11643 */
static void C_ccall f_16973(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16973,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_ub_i_flonum_lessp(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fp>= in k12856 in k11643 */
static void C_ccall f_16975(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_16975,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16997,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_ub_i_flonum_greater_or_equal_p(C_flonum_magnitude(t2),C_flonum_magnitude(t3));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[556];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k16995 in chicken.flonum#fp>= in k12856 in k11643 */
static void C_ccall f_16997(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16997,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_ub_i_flonum_greater_or_equal_p(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fp<= in k12856 in k11643 */
static void C_ccall f_16999(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_16999,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17021,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_ub_i_flonum_less_or_equal_p(C_flonum_magnitude(t2),C_flonum_magnitude(t3));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[558];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k17019 in chicken.flonum#fp<= in k12856 in k11643 */
static void C_ccall f_17021(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17021,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_ub_i_flonum_less_or_equal_p(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpneg in k12856 in k11643 */
static void C_ccall f_17023(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17023,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17039,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_flonum_negate(&a,1,t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[560];
av2[4]=t2;
tp(5,av2);}}}

/* k17037 in chicken.flonum#fpneg in k12856 in k11643 */
static void C_ccall f_17039(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17039,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_flonum_negate(&a,1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpmax in k12856 in k11643 */
static void C_ccall f_17041(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_17041,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17063,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_i_flonum_max(t2,t3);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[562];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k17061 in chicken.flonum#fpmax in k12856 in k11643 */
static void C_ccall f_17063(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17063,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_flonum_max(((C_word*)t0)[3],((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpmin in k12856 in k11643 */
static void C_ccall f_17065(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_17065,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17087,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_i_flonum_min(t2,t3);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[564];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k17085 in chicken.flonum#fpmin in k12856 in k11643 */
static void C_ccall f_17087(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17087,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_flonum_min(((C_word*)t0)[3],((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpfloor in k12856 in k11643 */
static void C_ccall f_17089(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17089,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17105,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_floor(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[566];
av2[4]=t2;
tp(5,av2);}}}

/* k17103 in chicken.flonum#fpfloor in k12856 in k11643 */
static void C_ccall f_17105(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17105,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_floor(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fptruncate in k12856 in k11643 */
static void C_ccall f_17107(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17107,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17123,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_trunc(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[568];
av2[4]=t2;
tp(5,av2);}}}

/* k17121 in chicken.flonum#fptruncate in k12856 in k11643 */
static void C_ccall f_17123(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17123,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_trunc(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpround in k12856 in k11643 */
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=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17125,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17141,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_round(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[570];
av2[4]=t2;
tp(5,av2);}}}

/* k17139 in chicken.flonum#fpround in k12856 in k11643 */
static void C_ccall f_17141(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17141,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_round(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpceiling in k12856 in k11643 */
static void C_ccall f_17143(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17143,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17159,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_ceil(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[572];
av2[4]=t2;
tp(5,av2);}}}

/* k17157 in chicken.flonum#fpceiling in k12856 in k11643 */
static void C_ccall f_17159(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17159,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_ceil(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpsin in k12856 in k11643 */
static void C_ccall f_17161(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17161,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17177,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_sin(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[574];
av2[4]=t2;
tp(5,av2);}}}

/* k17175 in chicken.flonum#fpsin in k12856 in k11643 */
static void C_ccall f_17177(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17177,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_sin(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpcos in k12856 in k11643 */
static void C_ccall f_17179(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17179,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17195,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_cos(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[576];
av2[4]=t2;
tp(5,av2);}}}

/* k17193 in chicken.flonum#fpcos in k12856 in k11643 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17195,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_cos(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fptan in k12856 in k11643 */
static void C_ccall f_17197(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17197,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17213,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_tan(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[578];
av2[4]=t2;
tp(5,av2);}}}

/* k17211 in chicken.flonum#fptan in k12856 in k11643 */
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17213,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_tan(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpasin in k12856 in k11643 */
static void C_ccall f_17215(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17215,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17231,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_asin(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[580];
av2[4]=t2;
tp(5,av2);}}}

/* k17229 in chicken.flonum#fpasin in k12856 in k11643 */
static void C_ccall f_17231(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17231,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_asin(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpacos in k12856 in k11643 */
static void C_ccall f_17233(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17233,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17249,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_acos(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[582];
av2[4]=t2;
tp(5,av2);}}}

/* k17247 in chicken.flonum#fpacos in k12856 in k11643 */
static void C_ccall f_17249(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17249,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_acos(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpatan in k12856 in k11643 */
static void C_ccall f_17251(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17251,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17267,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_atan(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[584];
av2[4]=t2;
tp(5,av2);}}}

/* k17265 in chicken.flonum#fpatan in k12856 in k11643 */
static void C_ccall f_17267(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17267,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_atan(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpatan2 in k12856 in k11643 */
static void C_ccall f_17269(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_17269,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17291,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_flonum(&a,C_atan2(C_flonum_magnitude(t2),C_flonum_magnitude(t3)));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[586];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k17289 in chicken.flonum#fpatan2 in k12856 in k11643 */
static void C_ccall f_17291(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17291,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_atan2(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpsinh in k12856 in k11643 */
static void C_ccall f_17293(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17293,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17309,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_sinh(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[588];
av2[4]=t2;
tp(5,av2);}}}

/* k17307 in chicken.flonum#fpsinh in k12856 in k11643 */
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17309,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_sinh(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpcosh in k12856 in k11643 */
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;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17311,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17327,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_cosh(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[590];
av2[4]=t2;
tp(5,av2);}}}

/* k17325 in chicken.flonum#fpcosh in k12856 in k11643 */
static void C_ccall f_17327(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17327,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_cosh(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fptanh in k12856 in k11643 */
static void C_ccall f_17329(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17329,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17345,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_tanh(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[592];
av2[4]=t2;
tp(5,av2);}}}

/* k17343 in chicken.flonum#fptanh in k12856 in k11643 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17345,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_tanh(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpasinh in k12856 in k11643 */
static void C_ccall f_17347(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17347,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17363,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_asinh(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[594];
av2[4]=t2;
tp(5,av2);}}}

/* k17361 in chicken.flonum#fpasinh in k12856 in k11643 */
static void C_ccall f_17363(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17363,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_asinh(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpacosh in k12856 in k11643 */
static void C_ccall f_17365(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17365,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17381,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_acosh(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[596];
av2[4]=t2;
tp(5,av2);}}}

/* k17379 in chicken.flonum#fpacosh in k12856 in k11643 */
static void C_ccall f_17381(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17381,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_acosh(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpatanh in k12856 in k11643 */
static void C_ccall f_17383(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17383,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17399,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_atanh(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[598];
av2[4]=t2;
tp(5,av2);}}}

/* k17397 in chicken.flonum#fpatanh in k12856 in k11643 */
static void C_ccall f_17399(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17399,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_atanh(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpexp in k12856 in k11643 */
static void C_ccall f_17401(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17401,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17417,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_exp(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[600];
av2[4]=t2;
tp(5,av2);}}}

/* k17415 in chicken.flonum#fpexp in k12856 in k11643 */
static void C_ccall f_17417(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17417,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_exp(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpexpt in k12856 in k11643 */
static void C_ccall f_17419(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_17419,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17441,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_i_flonump(t2);
t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_i_flonum_expt(&a,2,t2,t3);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2155: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t7;
av2[3]=lf[602];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}}

/* k17439 in chicken.flonum#fpexpt in k12856 in k11643 */
static void C_ccall f_17441(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17441,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_flonum_expt(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fplog in k12856 in k11643 */
static void C_ccall f_17443(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17443,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17459,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_log(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[604];
av2[4]=t2;
tp(5,av2);}}}

/* k17457 in chicken.flonum#fplog in k12856 in k11643 */
static void C_ccall f_17459(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17459,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_log(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpsqrt in k12856 in k11643 */
static void C_ccall f_17461(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17461,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17477,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_sqrt(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[606];
av2[4]=t2;
tp(5,av2);}}}

/* k17475 in chicken.flonum#fpsqrt in k12856 in k11643 */
static void C_ccall f_17477(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17477,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_sqrt(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpabs in k12856 in k11643 */
static void C_ccall f_17479(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17479,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17495,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_flonum(&a,C_fabs(C_flonum_magnitude(t2)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[608];
av2[4]=t2;
tp(5,av2);}}}

/* k17493 in chicken.flonum#fpabs in k12856 in k11643 */
static void C_ccall f_17495(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_17495,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_flonum(&a,C_fabs(C_flonum_magnitude(((C_word*)t0)[3])));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#fpinteger? in k12856 in k11643 */
static void C_ccall f_17497(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_17497,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17513,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_u_i_fpintegerp(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
/* library.scm:2151: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[610];
av2[4]=t2;
tp(5,av2);}}}

/* k17511 in chicken.flonum#fpinteger? in k12856 in k11643 */
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;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17513,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_u_i_fpintegerp(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.flonum#flonum-print-precision in k12856 in k11643 */
static void C_ccall f_17515(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17515,c,av);}
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?C_SCHEME_FALSE:C_get_rest_arg(c,2,av,2,t0));
t4=C_get_print_precision();
if(C_truep(t3)){
t5=C_i_check_fixnum_2(t3,lf[612]);
t6=C_set_print_precision(t3);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* make-complex in k12856 in k11643 */
static void f_17533(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_17533,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_eqp(t3,C_fix(0));
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17544,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_inexactp(t3))){
/* library.scm:2332: scheme#exact->inexact */
t6=*((C_word*)lf[86]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t6=t5;{
C_word av2[2];
av2[0]=t6;
av2[1]=t2;
f_17544(2,av2);}}}}

/* k17542 in make-complex in k12856 in k11643 */
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 t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,1)))){
C_save_and_reclaim((void *)f_17544,c,av);}
a=C_alloc(14);
if(C_truep(C_i_inexactp(((C_word*)t0)[2]))){
t2=C_a_i_exact_to_inexact(&a,1,((C_word*)t0)[3]);
t3=C_a_i_cplxnum(&a,2,t1,t2);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t2=C_a_i_cplxnum(&a,2,t1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* scheme#make-rectangular in k12856 in k11643 */
static void C_ccall f_17560(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_17560,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17564,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2337: ##sys#check-real */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[437]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[437]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[615];
tp(4,av2);}}

/* k17562 in scheme#make-rectangular in k12856 in k11643 */
static void C_ccall f_17564(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17564,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17567,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2338: ##sys#check-real */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[437]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[437]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[615];
tp(4,av2);}}

/* k17565 in k17562 in scheme#make-rectangular in k12856 in k11643 */
static void C_ccall f_17567(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17567,c,av);}
t2=((C_word*)t0)[2];
/* library.scm:2339: make-complex */
f_17533(((C_word*)t2)[2],((C_word*)t2)[3],((C_word*)t2)[4]);}

/* scheme#make-polar in k12856 in k11643 */
static void C_ccall f_17572(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_17572,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17576,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2343: ##sys#check-real */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[437]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[437]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[617];
tp(4,av2);}}

/* k17574 in scheme#make-polar in k12856 in k11643 */
static void C_ccall f_17576(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17576,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17579,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2344: ##sys#check-real */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[437]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[437]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[617];
tp(4,av2);}}

/* k17577 in k17574 in scheme#make-polar in k12856 in k11643 */
static void C_ccall f_17579(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17579,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17582,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:2345: scheme#exact->inexact */
t4=*((C_word*)lf[86]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k17580 in k17577 in k17574 in scheme#make-polar in k12856 in k11643 */
static void C_ccall f_17582(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(74,c,3)))){
C_save_and_reclaim((void *)f_17582,c,av);}
a=C_alloc(74);
t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],C_a_i_cos(&a,1,t1));
t3=C_s_a_i_times(&a,2,((C_word*)t0)[2],C_a_i_sin(&a,1,t1));
/* library.scm:2346: make-complex */
f_17533(((C_word*)t0)[3],t2,t3);}

/* scheme#real-part in k12856 in k11643 */
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=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17595,c,av);}
if(C_truep(C_i_cplxnump(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_u_i_cplxnum_real(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_numberp(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* library.scm:2354: ##sys#error-bad-number */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[449]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[449]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[619];
tp(4,av2);}}}}

/* scheme#imag-part in k12856 in k11643 */
static void C_ccall f_17618(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17618,c,av);}
if(C_truep(C_i_cplxnump(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_u_i_cplxnum_imag(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_numberp(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_fix(0);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* library.scm:2360: ##sys#error-bad-number */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[449]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[449]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[621];
tp(4,av2);}}}}

/* scheme#angle in k12856 in k11643 */
static void C_ccall f_17641(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17641,c,av);}
a=C_alloc(4);
t3=C_i_check_number_2(t2,lf[623]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17650,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2366: scheme#imag-part */
t5=*((C_word*)lf[620]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k17648 in scheme#angle in k12856 in k11643 */
static void C_ccall f_17650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_17650,c,av);}
a=C_alloc(15);
t2=C_a_i_exact_to_inexact(&a,1,t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17655,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2367: scheme#real-part */
t4=*((C_word*)lf[618]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k17653 in k17648 in scheme#angle in k12856 in k11643 */
static void C_ccall f_17655(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){
C_save_and_reclaim((void *)f_17655,c,av);}
a=C_alloc(15);
t2=C_a_i_exact_to_inexact(&a,1,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_atan2(&a,2,((C_word*)t0)[3],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#magnitude in k12856 in k11643 */
static void C_ccall f_17657(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(95,c,3)))){
C_save_and_reclaim((void *)f_17657,c,av);}
a=C_alloc(95);
if(C_truep(C_i_cplxnump(t2))){
t3=C_u_i_cplxnum_real(t2);
t4=C_u_i_cplxnum_imag(t2);
t5=C_s_a_i_times(&a,2,t3,t3);
t6=C_s_a_i_times(&a,2,t4,t4);
t7=C_s_a_i_plus(&a,2,t5,t6);
/* library.scm:2374: scheme#sqrt */
t8=*((C_word*)lf[625]+1);{
C_word *av2=av;
av2[0]=t8;
av2[1]=t1;
av2[2]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
if(C_truep(C_i_numberp(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_s_a_i_abs(&a,1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* library.scm:2376: ##sys#error-bad-number */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[449]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[449]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[626];
tp(4,av2);}}}}

/* ratnum in k12856 in k11643 */
static C_word f_17701(C_word *a,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;{}
switch(t2){
case C_fix(1):
return(t1);
case C_fix(-1):
return(C_s_a_u_i_integer_negate(&a,1,t1));
default:
if(C_truep(C_i_negativep(t2))){
t3=C_s_a_u_i_integer_negate(&a,1,t1);
t4=C_s_a_u_i_integer_negate(&a,1,t2);
return(C_a_i_ratnum(&a,2,t3,t4));}
else{
return(C_a_i_ratnum(&a,2,t1,t2));}}}

/* scheme#numerator in k12856 in k11643 */
static void C_ccall f_17747(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_17747,c,av);}
a=C_alloc(6);
if(C_truep(C_i_exact_integerp(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_flonump(t2))){
if(C_truep(C_i_not(C_i_finitep(t2)))){
/* library.scm:2396: ##sys#error-bad-inexact */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[450]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[450]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[629];
tp(4,av2);}}
else{
if(C_truep(C_u_i_fpintegerp(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17770,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17774,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2398: scheme#inexact->exact */
t5=*((C_word*)lf[630]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}}
else{
if(C_truep(C_i_ratnump(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_u_i_ratnum_num(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* library.scm:2400: ##sys#signal-hook */
t3=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[309];
av2[3]=lf[629];
av2[4]=lf[631];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}}}}

/* k17768 in scheme#numerator in k12856 in k11643 */
static void C_ccall f_17770(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
C_save_and_reclaim((void *)f_17770,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_exact_to_inexact(&a,1,t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k17772 in scheme#numerator in k12856 in k11643 */
static void C_ccall f_17774(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17774,c,av);}
/* library.scm:2398: scheme#numerator */
t2=*((C_word*)lf[628]+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);}}

/* scheme#denominator in k12856 in k11643 */
static void C_ccall f_17792(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_17792,c,av);}
a=C_alloc(6);
if(C_truep(C_i_exact_integerp(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_fix(1);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_flonump(t2))){
if(C_truep(C_i_not(C_i_finitep(t2)))){
/* library.scm:2409: ##sys#error-bad-inexact */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[450]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[450]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[633];
tp(4,av2);}}
else{
if(C_truep(C_u_i_fpintegerp(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[634];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17815,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17819,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2411: scheme#inexact->exact */
t5=*((C_word*)lf[630]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}}
else{
if(C_truep(C_i_ratnump(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_u_i_ratnum_denom(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* library.scm:2413: ##sys#signal-hook */
t3=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[309];
av2[3]=lf[629];
av2[4]=lf[635];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}}}}

/* k17813 in scheme#denominator in k12856 in k11643 */
static void C_ccall f_17815(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
C_save_and_reclaim((void *)f_17815,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_exact_to_inexact(&a,1,t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k17817 in scheme#denominator in k12856 in k11643 */
static void C_ccall f_17819(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17819,c,av);}
/* library.scm:2411: scheme#denominator */
t2=*((C_word*)lf[632]+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);}}

/* ##sys#extended-signum in k12856 in k11643 */
static void C_ccall f_17837(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
C_save_and_reclaim((void *)f_17837,c,av);}
a=C_alloc(26);
if(C_truep(C_i_ratnump(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_u_i_integer_signum(C_u_i_ratnum_num(t2));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_cplxnump(t2))){
t3=C_u_i_cplxnum_imag(t2);
t4=C_a_i_exact_to_inexact(&a,1,t3);
t5=C_u_i_cplxnum_real(t2);
t6=C_a_i_exact_to_inexact(&a,1,t5);
t7=C_flonum(&a,C_atan2(C_flonum_magnitude(t4),C_flonum_magnitude(t6)));
/* library.scm:2421: scheme#make-polar */
t8=*((C_word*)lf[616]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t8;
av2[1]=t1;
av2[2]=C_fix(1);
av2[3]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
else{
/* library.scm:2422: ##sys#error-bad-number */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[449]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[449]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[637];
tp(4,av2);}}}}

/* doloop2905 in deliver in scheme#inexact->exact in k12856 in k11643 */
static void f_17878(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_17878,4,t0,t1,t2,t3);}
a=C_alloc(5);
if(C_truep(C_u_i_fpintegerp(t2))){
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_17889,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2430: chicken.flonum#fp* */
t5=*((C_word*)lf[539]+1);{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[641];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}

/* k17887 in doloop2905 in deliver in scheme#inexact->exact in k12856 in k11643 */
static void C_ccall f_17889(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17889,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_17878(t2,((C_word*)t0)[3],t1,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* deliver in scheme#inexact->exact in k12856 in k11643 */
static void f_17895(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,4)))){
C_save_and_reclaim_args((void *)trf_17895,4,t0,t1,t2,t3);}
a=C_alloc(16);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17899,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17930,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17878,a[2]=t7,a[3]=((C_word)li462),tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_17878(t9,t5,t2,C_fix(0));}

/* k17897 in deliver in scheme#inexact->exact in k12856 in k11643 */
static void C_ccall f_17899(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17899,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_17926,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2436: scheme#exact->inexact */
t4=*((C_word*)lf[86]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k17911 in k17924 in k17897 in deliver in scheme#inexact->exact in k12856 in k11643 */
static void C_ccall f_17913(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17913,c,av);}
/* library.scm:2438: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k17924 in k17897 in deliver in scheme#inexact->exact in k12856 in k11643 */
static void C_ccall f_17926(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(42,c,3)))){
C_save_and_reclaim((void *)f_17926,c,av);}
a=C_alloc(42);
t2=((C_word*)t0)[2];
t3=C_s_a_i_times(&a,2,((C_word*)t2)[2],t1);
if(C_truep(C_i_finitep(t3))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17913,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
t5=C_s_a_u_i_flo_to_int(&a,1,t3);
/* library.scm:2438: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t4;
av2[2]=t5;
av2[3]=((C_word*)t2)[5];
tp(4,av2);}}
else{
/* library.scm:2439: ##sys#error-bad-inexact */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[450]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[450]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=((C_word*)t2)[6];
av2[3]=lf[639];
tp(4,av2);}}}

/* k17928 in deliver in scheme#inexact->exact in k12856 in k11643 */
static void C_ccall f_17930(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17930,c,av);}
/* library.scm:2435: ##sys#integer-power */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[640]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[640]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_fix(2);
av2[3]=t1;
tp(4,av2);}}

/* k17945 in k17949 in k17955 in scheme#inexact->exact in k12856 in k11643 */
static void C_ccall f_17947(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17947,c,av);}
/* library.scm:2443: deliver */
t2=((C_word*)t0)[2];
f_17895(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k17949 in k17955 in scheme#inexact->exact in k12856 in k11643 */
static void C_ccall f_17951(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(38,c,3)))){
C_save_and_reclaim((void *)f_17951,c,av);}
a=C_alloc(38);
t2=((C_word*)t0)[2];
t3=C_s_a_i_times(&a,2,((C_word*)t2)[2],t1);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17947,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2446: ##sys#integer-power */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[640]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[640]+1);
av2[1]=t4;
av2[2]=C_fix(2);
av2[3]=*((C_word*)lf[529]+1);
tp(4,av2);}}

/* k17955 in scheme#inexact->exact in k12856 in k11643 */
static void C_ccall f_17957(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17957,c,av);}
a=C_alloc(3);
t2=(C_truep(t1)?C_ub_i_flonum_greaterp(C_flonum_magnitude(((C_word*)t0)[2]),(double)-1.0):C_SCHEME_FALSE);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17951,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2443: scheme#expt */
t4=*((C_word*)lf[642]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[641];
av2[3]=*((C_word*)lf[529]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
/* library.scm:2447: deliver */
t3=((C_word*)t0)[3];
f_17895(t3,((C_word*)t0)[4],((C_word*)t0)[2],C_fix(1));}}

/* scheme#inexact->exact in k12856 in k11643 */
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=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_17961,c,av);}
a=C_alloc(9);
if(C_truep(C_i_exactp(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_flonump(t2))){
if(C_truep(C_u_i_fpintegerp(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_s_a_u_i_flo_to_int(&a,1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_u_i_flonum_finitep(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17895,a[2]=t2,a[3]=((C_word)li463),tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17957,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2441: chicken.flonum#fp< */
t5=*((C_word*)lf[553]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[634];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
/* library.scm:2455: ##sys#error-bad-inexact */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[450]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[450]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[639];
tp(4,av2);}}}}
else{
if(C_truep(C_i_cplxnump(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18001,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2457: scheme#inexact->exact */
t4=*((C_word*)lf[630]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_cplxnum_real(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
/* library.scm:2459: ##sys#error-bad-number */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[449]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[449]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[639];
tp(4,av2);}}}}}

/* k17999 in scheme#inexact->exact in k12856 in k11643 */
static void C_ccall f_18001(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_18001,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18005,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2458: scheme#inexact->exact */
t3=*((C_word*)lf[630]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_cplxnum_imag(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k18003 in k17999 in scheme#inexact->exact in k12856 in k11643 */
static void C_ccall f_18005(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_18005,c,av);}
/* library.scm:2457: make-complex */
f_17533(((C_word*)t0)[2],((C_word*)t0)[3],t1);}

/* chicken.bitwise#bitwise-not in k12856 in k11643 */
static void C_ccall f_18025(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_18025,c,av);}
a=C_alloc(5);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_s_a_i_bitwise_not(&a,1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.bitwise#bit->boolean in k12856 in k11643 */
static void C_ccall f_18028(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18028,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_bit_to_bool(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.bitwise#integer-length in k12856 in k11643 */
static void C_ccall f_18031(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18031,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_integer_length(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.bitwise#arithmetic-shift in k12856 in k11643 */
static void C_ccall f_18034(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_18034,c,av);}
a=C_alloc(5);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_s_a_i_arithmetic_shift(&a,2,t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#/ in k12856 in k11643 */
static void C_ccall f_18037(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,3)))){
C_save_and_reclaim((void*)f_18037,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+4);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
if(C_truep(C_rest_nullp(c,3))){
/* library.scm:2491: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t1;
av2[2]=C_fix(1);
av2[3]=t2;
tp(4,av2);}}
else{
t4=C_slot(t3,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18058,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2493: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t5;
av2[2]=t2;
av2[3]=C_slot(t3,C_fix(0));
tp(4,av2);}}}

/* k18056 in scheme#/ in k12856 in k11643 */
static void C_ccall f_18058(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_18058,c,av);}
a=C_alloc(6);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18060,a[2]=t3,a[3]=((C_word)li472),tmp=(C_word)a,a+=4,tmp));
t5=((C_word*)t3)[1];
f_18060(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1);}

/* loop in k18056 in scheme#/ in k12856 in k11643 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_18060,4,t0,t1,t2,t3);}
a=C_alloc(5);
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_slot(t2,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18078,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2497: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t5;
av2[2]=t3;
av2[3]=C_slot(t2,C_fix(0));
tp(4,av2);}}}

/* k18076 in loop in k18056 in scheme#/ in k12856 in k11643 */
static void C_ccall f_18078(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_18078,c,av);}
/* library.scm:2496: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_18060(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* ##sys#/-2 in k12856 in k11643 */
static void C_ccall f_18088(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_18088,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18092,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t5=C_eqp(t3,C_fix(0));
if(C_truep(t5)){
t6=C_fix((C_word)C_DIVISION_BY_ZERO_ERROR);
/* library.scm:2504: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t4;
av2[2]=t6;
av2[3]=lf[653];
av2[4]=t2;
av2[5]=t3;
tp(6,av2);}}
else{
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
f_18092(2,av2);}}}

/* k18090 in ##sys#/-2 in k12856 in k11643 */
static void C_ccall f_18092(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(117,c,4)))){
C_save_and_reclaim((void *)f_18092,c,av);}
a=C_alloc(117);
t2=(C_truep(C_i_exact_integerp(((C_word*)t0)[2]))?C_i_exact_integerp(((C_word*)t0)[3]):C_SCHEME_FALSE);
if(C_truep(t2)){
t3=C_s_a_u_i_integer_gcd(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t4=C_s_a_u_i_integer_quotient(&a,2,((C_word*)t0)[2],t3);
t5=C_s_a_u_i_integer_quotient(&a,2,((C_word*)t0)[3],t3);
/* library.scm:2508: ratnum */
t6=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t6;
av2[1]=(
/* library.scm:2508: ratnum */
  f_17701(C_a_i(&a,21),t4,t5)
);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t3=C_i_cplxnump(((C_word*)t0)[2]);
t4=(C_truep(t3)?t3:C_i_cplxnump(((C_word*)t0)[3]));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18130,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2511: scheme#real-part */
t6=*((C_word*)lf[618]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=C_i_flonump(((C_word*)t0)[2]);
t6=(C_truep(t5)?t5:C_i_flonump(((C_word*)t0)[3]));
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18196,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:2519: scheme#exact->inexact */
t8=*((C_word*)lf[86]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
if(C_truep(C_i_ratnump(((C_word*)t0)[2]))){
if(C_truep(C_i_ratnump(((C_word*)t0)[3]))){
t7=C_u_i_ratnum_num(((C_word*)t0)[2]);
t8=C_u_i_ratnum_denom(((C_word*)t0)[2]);
t9=C_u_i_ratnum_num(((C_word*)t0)[3]);
t10=C_u_i_ratnum_denom(((C_word*)t0)[3]);
t11=C_s_a_u_i_integer_gcd(&a,2,t7,t9);
t12=C_s_a_u_i_integer_gcd(&a,2,t8,t10);
t13=C_s_a_i_quotient(&a,2,t7,t11);
t14=C_s_a_i_quotient(&a,2,t10,t12);
t15=C_s_a_i_times(&a,2,t13,t14);
t16=C_s_a_i_quotient(&a,2,t8,t12);
t17=C_s_a_i_quotient(&a,2,t9,t11);
t18=C_s_a_i_times(&a,2,t16,t17);
/* library.scm:2529: ratnum */
t19=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t19;
av2[1]=(
/* library.scm:2529: ratnum */
  f_17701(C_a_i(&a,21),t15,t18)
);
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}
else{
t7=C_u_i_ratnum_num(((C_word*)t0)[2]);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18277,a[2]=t7,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);
/* library.scm:2535: ##sys#internal-gcd */
f_20161(t8,lf[653],t7,((C_word*)t0)[3]);}}
else{
if(C_truep(C_i_ratnump(((C_word*)t0)[3]))){
t7=C_u_i_ratnum_num(((C_word*)t0)[3]);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18316,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t7,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* library.scm:2546: ##sys#internal-gcd */
f_20161(t8,lf[653],((C_word*)t0)[2],t7);}
else{
t7=C_i_numberp(((C_word*)t0)[2]);
if(C_truep(C_i_not(t7))){
/* library.scm:2552: ##sys#error-bad-number */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[449]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[449]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[2];
av2[3]=lf[653];
tp(4,av2);}}
else{
/* library.scm:2553: ##sys#error-bad-number */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[449]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[449]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[653];
tp(4,av2);}}}}}}}}

/* k18128 in k18090 in ##sys#/-2 in k12856 in k11643 */
static void C_ccall f_18130(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_18130,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18133,a[2]=((C_word*)t2)[4],a[3]=C_SCHEME_UNDEFINED,a[4]=t1,a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
/* library.scm:2511: scheme#imag-part */
t4=*((C_word*)lf[620]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k18131 in k18128 in k18090 in ##sys#/-2 in k12856 in k11643 */
static void C_ccall f_18133(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_18133,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_18136,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2512: scheme#real-part */
t4=*((C_word*)lf[618]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k18134 in k18131 in k18128 in k18090 in ##sys#/-2 in k12856 in k11643 */
static void C_ccall f_18136(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_18136,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18139,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t1,a[5]=((C_word*)t2)[4],a[6]=C_SCHEME_UNDEFINED,a[7]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=8,tmp);
/* library.scm:2512: scheme#imag-part */
t4=*((C_word*)lf[620]+1);{
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);}}

/* k18137 in k18134 in k18131 in k18128 in k18090 in ##sys#/-2 in k12856 in k11643 */
static void C_ccall f_18139(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(193,c,3)))){
C_save_and_reclaim((void *)f_18139,c,av);}
a=C_alloc(193);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=C_s_a_i_times(&a,2,((C_word*)t0)[4],((C_word*)t0)[4]);
t4=C_s_a_i_times(&a,2,((C_word*)t0)[6],((C_word*)t0)[6]);
t5=C_s_a_i_plus(&a,2,t3,t4);
t6=C_mutate(((C_word *)t0)+7,t5);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18145,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t8=C_s_a_i_times(&a,2,((C_word*)t0)[5],((C_word*)t0)[4]);
t9=C_s_a_i_times(&a,2,((C_word*)t0)[3],((C_word*)t0)[6]);
t10=C_s_a_i_plus(&a,2,t8,t9);
/* library.scm:2514: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t7;
av2[2]=t10;
av2[3]=((C_word*)t0)[7];
tp(4,av2);}}

/* k18143 in k18137 in k18134 in k18131 in k18128 in k18090 in ##sys#/-2 in k12856 in k11643 */
static void C_ccall f_18145(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(99,c,3)))){
C_save_and_reclaim((void *)f_18145,c,av);}
a=C_alloc(99);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18148,a[2]=((C_word*)t2)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=C_s_a_i_times(&a,2,((C_word*)t2)[3],((C_word*)t2)[4]);
t5=C_s_a_i_times(&a,2,((C_word*)t2)[5],((C_word*)t2)[6]);
t6=C_s_a_i_minus(&a,2,t4,t5);
/* library.scm:2515: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t3;
av2[2]=t6;
av2[3]=((C_word*)t2)[7];
tp(4,av2);}}

/* k18146 in k18143 in k18137 in k18134 in k18131 in k18128 in k18090 in ##sys#/-2 in k12856 in k11643 */
static void C_ccall f_18148(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_18148,c,av);}
/* library.scm:2516: make-complex */
f_17533(((C_word*)t0)[2],((C_word*)t0)[3],t1);}

/* k18194 in k18090 in ##sys#/-2 in k12856 in k11643 */
static void C_ccall f_18196(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_18196,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18200,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2519: scheme#exact->inexact */
t3=*((C_word*)lf[86]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k18198 in k18194 in k18090 in ##sys#/-2 in k12856 in k11643 */
static void C_ccall f_18200(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_18200,c,av);}
/* library.scm:2519: chicken.flonum#fp/ */
t2=*((C_word*)lf[541]+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);}}

/* k18275 in k18090 in ##sys#/-2 in k12856 in k11643 */
static void C_ccall f_18277(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(64,c,3)))){
C_save_and_reclaim((void *)f_18277,c,av);}
a=C_alloc(64);
t2=C_s_a_i_quotient(&a,2,((C_word*)t0)[2],t1);
t3=C_u_i_ratnum_denom(((C_word*)t0)[3]);
t4=C_s_a_i_quotient(&a,2,((C_word*)t0)[4],t1);
t5=C_s_a_i_times(&a,2,t3,t4);
if(C_truep(C_i_flonump(t5))){
/* library.scm:2539: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=((C_word*)t0)[5];
av2[2]=t2;
av2[3]=t5;
tp(4,av2);}}
else{
/* library.scm:2540: ratnum */
t6=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t6;
av2[1]=(
/* library.scm:2540: ratnum */
  f_17701(C_a_i(&a,21),t2,t5)
);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k18314 in k18090 in ##sys#/-2 in k12856 in k11643 */
static void C_ccall f_18316(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(64,c,3)))){
C_save_and_reclaim((void *)f_18316,c,av);}
a=C_alloc(64);
t2=C_s_a_i_quotient(&a,2,((C_word*)t0)[2],t1);
t3=C_u_i_ratnum_denom(((C_word*)t0)[3]);
t4=C_s_a_i_times(&a,2,t2,t3);
t5=C_s_a_i_quotient(&a,2,((C_word*)t0)[4],t1);
if(C_truep(C_i_flonump(t5))){
/* library.scm:2550: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=((C_word*)t0)[5];
av2[2]=t4;
av2[3]=t5;
tp(4,av2);}}
else{
/* library.scm:2551: ratnum */
t6=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t6;
av2[1]=(
/* library.scm:2551: ratnum */
  f_17701(C_a_i(&a,21),t4,t5)
);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* scheme#floor in k12856 in k11643 */
static void C_ccall f_18369(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(34,c,3)))){
C_save_and_reclaim((void *)f_18369,c,av);}
a=C_alloc(34);
if(C_truep(C_i_exact_integerp(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_flonump(t2))){
/* library.scm:2558: chicken.flonum#fpfloor */
t3=*((C_word*)lf[565]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
if(C_truep(C_i_ratnump(t2))){
t3=C_u_i_ratnum_num(t2);
t4=C_u_i_ratnum_denom(t2);
t5=C_s_a_i_quotient(&a,2,t3,t4);
t6=C_i_greater_or_equalp(t3,C_fix(0));
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=(C_truep(t6)?t5:C_s_a_i_minus(&a,2,t5,C_fix(1)));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
/* library.scm:2563: ##sys#error-bad-real */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[438]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[438]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[655];
tp(4,av2);}}}}}

/* scheme#ceiling in k12856 in k11643 */
static void C_ccall f_18413(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(34,c,3)))){
C_save_and_reclaim((void *)f_18413,c,av);}
a=C_alloc(34);
if(C_truep(C_i_exact_integerp(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_flonump(t2))){
/* library.scm:2568: chicken.flonum#fpceiling */
t3=*((C_word*)lf[571]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
if(C_truep(C_i_ratnump(t2))){
t3=C_u_i_ratnum_num(t2);
t4=C_u_i_ratnum_denom(t2);
t5=C_s_a_i_quotient(&a,2,t3,t4);
t6=C_i_greater_or_equalp(t3,C_fix(0));
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=(C_truep(t6)?C_s_a_i_plus(&a,2,t5,C_fix(1)):t5);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
/* library.scm:2573: ##sys#error-bad-real */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[438]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[438]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[657];
tp(4,av2);}}}}}

/* scheme#truncate in k12856 in k11643 */
static void C_ccall f_18457(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_18457,c,av);}
a=C_alloc(5);
if(C_truep(C_i_exact_integerp(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_flonump(t2))){
/* library.scm:2578: chicken.flonum#fptruncate */
t3=*((C_word*)lf[567]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
if(C_truep(C_i_ratnump(t2))){
t3=C_u_i_ratnum_num(t2);
t4=C_u_i_ratnum_denom(t2);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_s_a_i_quotient(&a,2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
/* library.scm:2582: ##sys#error-bad-real */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[438]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[438]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[659];
tp(4,av2);}}}}}

/* scheme#round in k12856 in k11643 */
static void C_ccall f_18493(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(36,c,3)))){
C_save_and_reclaim((void *)f_18493,c,av);}
a=C_alloc(36);
if(C_truep(C_i_exact_integerp(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_flonump(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_flonum_round_proper(&a,1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_ratnump(t2))){
t3=C_a_i_ratnum(&a,2,C_fix(1),C_fix(2));
t4=C_s_a_i_plus(&a,2,t2,t3);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18512,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2591: scheme#floor */
t6=*((C_word*)lf[654]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
/* library.scm:2593: ##sys#error-bad-real */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[438]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[438]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[661];
tp(4,av2);}}}}}

/* k18510 in scheme#round in k12856 in k11643 */
static void C_ccall f_18512(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_18512,c,av);}
a=C_alloc(29);
t2=C_i_nequalp(t1,((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?(C_truep(C_i_oddp(t1))?C_s_a_i_minus(&a,2,t1,C_fix(1)):t1):t1);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* find-ratio-between in k12856 in k11643 */
static void f_18536(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(67,0,4)))){
C_save_and_reclaim_args((void *)trf_18536,3,t1,t2,t3);}
a=C_alloc(67);
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_18539,a[2]=t5,a[3]=((C_word)li479),tmp=(C_word)a,a+=4,tmp));
if(C_truep(C_i_lessp(t3,t2))){
/* library.scm:2606: find-ratio-between */
t12=t1;
t13=t3;
t14=t2;
t1=t12;
t2=t13;
t3=t14;
goto loop;}
else{
t7=C_i_lessp(t2,t3);
if(C_truep(C_i_not(t7))){
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_a_i_list2(&a,2,t2,C_fix(1));
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
if(C_truep(C_i_positivep(t2))){
/* library.scm:2608: sr */
t8=((C_word*)t5)[1];
f_18539(t8,t1,t2,t3);}
else{
if(C_truep(C_i_negativep(t3))){
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18650,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t9=C_s_a_i_negate(&a,1,t3);
t10=C_s_a_i_negate(&a,1,t2);
/* library.scm:2609: sr */
t11=((C_word*)t5)[1];
f_18539(t11,t8,t9,t10);}
else{
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=lf[663];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}}}

/* sr in find-ratio-between in k12856 in k11643 */
static void f_18539(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_18539,4,t0,t1,t2,t3);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18543,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18618,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2597: scheme#floor */
t6=*((C_word*)lf[654]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k18541 in sr in find-ratio-between in k12856 in k11643 */
static void C_ccall f_18543(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_18543,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18546,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18614,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2598: scheme#floor */
t4=*((C_word*)lf[654]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k18544 in k18541 in sr in find-ratio-between in k12856 in k11643 */
static void C_ccall f_18546(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){
C_save_and_reclaim((void *)f_18546,c,av);}
a=C_alloc(39);
t2=C_i_lessp(((C_word*)t0)[2],((C_word*)t0)[3]);
if(C_truep(C_i_not(t2))){
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[2],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_nequalp(((C_word*)t0)[2],t1))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18564,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18587,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
t5=C_s_a_i_minus(&a,2,((C_word*)t0)[6],t1);
/* library.scm:2601: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t4;
av2[2]=C_fix(1);
av2[3]=t5;
tp(4,av2);}}
else{
t3=C_s_a_i_plus(&a,2,C_fix(1),((C_word*)t0)[2]);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list2(&a,2,t3,C_fix(1));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}

/* k18562 in k18544 in k18541 in sr in find-ratio-between in k12856 in k11643 */
static void C_ccall f_18564(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(68,c,1)))){
C_save_and_reclaim((void *)f_18564,c,av);}
a=C_alloc(68);
t2=C_i_cadr(t1);
t3=C_u_i_car(t1);
t4=C_s_a_i_times(&a,2,((C_word*)t0)[2],t3);
t5=C_s_a_i_plus(&a,2,t2,t4);
t6=C_u_i_car(t1);
t7=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_i_list2(&a,2,t5,t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* k18585 in k18544 in k18541 in sr in find-ratio-between in k12856 in k11643 */
static void C_ccall f_18587(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(34,c,3)))){
C_save_and_reclaim((void *)f_18587,c,av);}
a=C_alloc(34);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18591,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t3=C_s_a_i_minus(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]);
/* library.scm:2602: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t2;
av2[2]=C_fix(1);
av2[3]=t3;
tp(4,av2);}}

/* k18589 in k18585 in k18544 in k18541 in sr in find-ratio-between in k12856 in k11643 */
static void C_ccall f_18591(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_18591,c,av);}
/* library.scm:2601: sr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_18539(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k18612 in k18541 in sr in find-ratio-between in k12856 in k11643 */
static void C_ccall f_18614(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_18614,c,av);}
/* library.scm:2598: scheme#inexact->exact */
t2=*((C_word*)lf[630]+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);}}

/* k18616 in sr in find-ratio-between in k12856 in k11643 */
static void C_ccall f_18618(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_18618,c,av);}
/* library.scm:2597: scheme#inexact->exact */
t2=*((C_word*)lf[630]+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);}}

/* k18648 in find-ratio-between in k12856 in k11643 */
static void C_ccall f_18650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(35,c,1)))){
C_save_and_reclaim((void *)f_18650,c,av);}
a=C_alloc(35);
t2=C_i_car(t1);
t3=C_s_a_i_negate(&a,1,t2);
t4=C_i_cadr(t1);
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_a_i_list2(&a,2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* scheme#rationalize in k12856 in k11643 */
static void C_ccall f_18686(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(66,c,3)))){
C_save_and_reclaim((void *)f_18686,c,av);}
a=C_alloc(66);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18690,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18709,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=C_s_a_i_minus(&a,2,t2,t3);
t7=C_s_a_i_plus(&a,2,t2,t3);
/* library.scm:2613: find-ratio-between */
f_18536(t5,t6,t7);}

/* k18688 in scheme#rationalize in k12856 in k11643 */
static void C_ccall f_18690(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_18690,c,av);}
t2=C_i_inexactp(((C_word*)t0)[2]);
if(C_truep(t2)){
if(C_truep(t2)){
/* library.scm:2619: scheme#exact->inexact */
t3=*((C_word*)lf[86]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
else{
if(C_truep(C_i_inexactp(((C_word*)t0)[4]))){
/* library.scm:2619: scheme#exact->inexact */
t3=*((C_word*)lf[86]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}

/* k18707 in scheme#rationalize in k12856 in k11643 */
static void C_ccall f_18709(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_18709,c,av);}{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[638]+1);
av2[3]=t1;
C_apply(4,av2);}}

/* scheme#max in k12856 in k11643 */
static void C_ccall f_18711(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,6)))){
C_save_and_reclaim((void*)f_18711,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+6);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
t4=C_i_check_number_2(t2,lf[666]);
t5=C_i_flonump(t2);
t6=C_i_nanp(t2);
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_18722,a[2]=t8,a[3]=((C_word)li482),tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_18722(t10,t1,t5,t2,t3,t6);}

/* loop in scheme#max in k12856 in k11643 */
static void f_18722(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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_18722,6,t0,t1,t2,t3,t4,t5);}
if(C_truep(C_i_nullp(t4))){
if(C_truep(t2)){
/* library.scm:2630: scheme#exact->inexact */
t6=*((C_word*)lf[86]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t1;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t6=C_slot(t4,C_fix(0));
t7=C_i_check_number_2(t6,lf[666]);
t8=C_i_flonump(t6);
t9=C_slot(t4,C_fix(1));
if(C_truep(C_i_nanp(t6))){
/* library.scm:2635: loop */
t11=t1;
t12=t2;
t13=t3;
t14=t9;
t15=t5;
t1=t11;
t2=t12;
t3=t13;
t4=t14;
t5=t15;
goto loop;}
else{
if(C_truep(t5)){
if(C_truep(t2)){
/* library.scm:2636: loop */
t11=t1;
t12=t2;
t13=t6;
t14=t9;
t15=C_SCHEME_FALSE;
t1=t11;
t2=t12;
t3=t13;
t4=t14;
t5=t15;
goto loop;}
else{
/* library.scm:2636: loop */
t11=t1;
t12=t8;
t13=t6;
t14=t9;
t15=C_SCHEME_FALSE;
t1=t11;
t2=t12;
t3=t13;
t4=t14;
t5=t15;
goto loop;}}
else{
if(C_truep(C_i_greaterp(t6,t3))){
if(C_truep(t2)){
/* library.scm:2637: loop */
t11=t1;
t12=t2;
t13=t6;
t14=t9;
t15=C_SCHEME_FALSE;
t1=t11;
t2=t12;
t3=t13;
t4=t14;
t5=t15;
goto loop;}
else{
/* library.scm:2637: loop */
t11=t1;
t12=t8;
t13=t6;
t14=t9;
t15=C_SCHEME_FALSE;
t1=t11;
t2=t12;
t3=t13;
t4=t14;
t5=t15;
goto loop;}}
else{
if(C_truep(t2)){
/* library.scm:2638: loop */
t11=t1;
t12=t2;
t13=t3;
t14=t9;
t15=t5;
t1=t11;
t2=t12;
t3=t13;
t4=t14;
t5=t15;
goto loop;}
else{
/* library.scm:2638: loop */
t11=t1;
t12=t8;
t13=t3;
t14=t9;
t15=t5;
t1=t11;
t2=t12;
t3=t13;
t4=t14;
t5=t15;
goto loop;}}}}}}

/* scheme#min in k12856 in k11643 */
static void C_ccall f_18782(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,6)))){
C_save_and_reclaim((void*)f_18782,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+6);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
t4=C_i_check_number_2(t2,lf[667]);
t5=C_i_flonump(t2);
t6=C_i_nanp(t2);
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_18793,a[2]=t8,a[3]=((C_word)li484),tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_18793(t10,t1,t5,t2,t3,t6);}

/* loop in scheme#min in k12856 in k11643 */
static void f_18793(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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_18793,6,t0,t1,t2,t3,t4,t5);}
if(C_truep(C_i_nullp(t4))){
if(C_truep(t2)){
/* library.scm:2648: scheme#exact->inexact */
t6=*((C_word*)lf[86]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t1;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t6=C_slot(t4,C_fix(0));
t7=C_i_check_number_2(t6,lf[667]);
t8=C_i_flonump(t6);
t9=C_slot(t4,C_fix(1));
if(C_truep(C_i_nanp(t6))){
/* library.scm:2653: loop */
t11=t1;
t12=t2;
t13=t3;
t14=t9;
t15=t5;
t1=t11;
t2=t12;
t3=t13;
t4=t14;
t5=t15;
goto loop;}
else{
if(C_truep(t5)){
if(C_truep(t2)){
/* library.scm:2654: loop */
t11=t1;
t12=t2;
t13=t6;
t14=t9;
t15=C_SCHEME_FALSE;
t1=t11;
t2=t12;
t3=t13;
t4=t14;
t5=t15;
goto loop;}
else{
/* library.scm:2654: loop */
t11=t1;
t12=t8;
t13=t6;
t14=t9;
t15=C_SCHEME_FALSE;
t1=t11;
t2=t12;
t3=t13;
t4=t14;
t5=t15;
goto loop;}}
else{
if(C_truep(C_i_lessp(t6,t3))){
if(C_truep(t2)){
/* library.scm:2655: loop */
t11=t1;
t12=t2;
t13=t6;
t14=t9;
t15=C_SCHEME_FALSE;
t1=t11;
t2=t12;
t3=t13;
t4=t14;
t5=t15;
goto loop;}
else{
/* library.scm:2655: loop */
t11=t1;
t12=t8;
t13=t6;
t14=t9;
t15=C_SCHEME_FALSE;
t1=t11;
t2=t12;
t3=t13;
t4=t14;
t5=t15;
goto loop;}}
else{
if(C_truep(t2)){
/* library.scm:2656: loop */
t11=t1;
t12=t2;
t13=t3;
t14=t9;
t15=t5;
t1=t11;
t2=t12;
t3=t13;
t4=t14;
t5=t15;
goto loop;}
else{
/* library.scm:2656: loop */
t11=t1;
t12=t8;
t13=t3;
t14=t9;
t15=t5;
t1=t11;
t2=t12;
t3=t13;
t4=t14;
t5=t15;
goto loop;}}}}}}

/* scheme#exp in k12856 in k11643 */
static void C_ccall f_18853(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_18853,c,av);}
a=C_alloc(15);
t3=C_i_check_number_2(t2,lf[669]);
if(C_truep(C_i_cplxnump(t2))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18871,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2663: scheme#exact->inexact */
t5=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=C_u_i_cplxnum_real(t2);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=C_a_i_exact_to_inexact(&a,1,t2);
t5=C_flonum(&a,C_exp(C_flonum_magnitude(t4)));
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k18869 in scheme#exp in k12856 in k11643 */
static void C_ccall f_18871(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_18871,c,av);}
a=C_alloc(12);
t2=C_a_i_exp(&a,1,t1);
t3=C_u_i_cplxnum_imag(((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18880,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18885,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2666: scheme#exact->inexact */
t6=*((C_word*)lf[86]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k18878 in k18869 in scheme#exp in k12856 in k11643 */
static void C_ccall f_18880(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){
C_save_and_reclaim((void *)f_18880,c,av);}
a=C_alloc(33);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k18883 in k18869 in scheme#exp in k12856 in k11643 */
static void C_ccall f_18885(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
C_save_and_reclaim((void *)f_18885,c,av);}
a=C_alloc(19);
t2=C_a_i_cos(&a,1,t1);
t3=C_a_i_exact_to_inexact(&a,1,((C_word*)t0)[2]);
t4=C_a_i_sin(&a,1,t3);
/* library.scm:2665: make-complex */
f_17533(((C_word*)t0)[3],t2,t4);}

/* ##sys#log-1 in k12856 in k11643 */
static void C_ccall f_18898(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_18898,c,av);}
a=C_alloc(8);
t3=C_eqp(t2,C_fix(0));
if(C_truep(t3)){
/* library.scm:2673: ##sys#signal-hook */
t4=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=lf[671];
av2[3]=lf[672];
av2[4]=lf[673];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}
else{
t4=C_i_cplxnump(t2);
t5=(C_truep(t4)?t4:C_i_negativep(t2));
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18924,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18940,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2676: scheme#magnitude */
t8=*((C_word*)lf[624]+1);{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18944,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2679: scheme#exact->inexact */
t7=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}

/* k18922 in ##sys#log-1 in k12856 in k11643 */
static void C_ccall f_18924(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_18924,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_18932,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2677: make-complex */
f_17533(t3,C_fix(0),C_fix(1));}

/* k18930 in k18922 in ##sys#log-1 in k12856 in k11643 */
static void C_ccall f_18932(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_18932,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18936,a[2]=t1,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:2677: scheme#angle */
t4=*((C_word*)lf[622]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k18934 in k18930 in k18922 in ##sys#log-1 in k12856 in k11643 */
static void C_ccall f_18936(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(62,c,1)))){
C_save_and_reclaim((void *)f_18936,c,av);}
a=C_alloc(62);
t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_s_a_i_plus(&a,2,((C_word*)t0)[4],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k18938 in ##sys#log-1 in k12856 in k11643 */
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_18940,c,av);}
/* library.scm:2676: ##sys#log-1 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[670]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[670]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k18942 in ##sys#log-1 in k12856 in k11643 */
static void C_ccall f_18944(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_18944,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_log(&a,1,t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* scheme#log in k12856 in k11643 */
static void C_ccall f_18947(C_word c,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_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_18947,c,av);}
a=C_alloc(4);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18961,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2683: ##sys#log-1 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[670]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[670]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}
else{
/* library.scm:2683: ##sys#log-1 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[670]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[670]+1);
av2[1]=t1;
av2[2]=t2;
tp(3,av2);}}}

/* k18959 in scheme#log in k12856 in k11643 */
static void C_ccall f_18961(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_18961,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18965,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2683: ##sys#log-1 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[670]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[670]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k18963 in k18959 in scheme#log in k12856 in k11643 */
static void C_ccall f_18965(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_18965,c,av);}
/* library.scm:2683: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* scheme#sin in k12856 in k11643 */
static void C_ccall f_18976(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(37,c,2)))){
C_save_and_reclaim((void *)f_18976,c,av);}
a=C_alloc(37);
t3=C_i_check_number_2(t2,lf[676]);
if(C_truep(C_i_cplxnump(t2))){
t4=C_s_a_i_times(&a,2,lf[677],t2);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19000,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2690: scheme#exp */
t6=*((C_word*)lf[668]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t4=C_a_i_exact_to_inexact(&a,1,t2);
t5=C_a_i_sin(&a,1,t4);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k18998 in scheme#sin in k12856 in k11643 */
static void C_ccall f_19000(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){
C_save_and_reclaim((void *)f_19000,c,av);}
a=C_alloc(33);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19004,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=C_s_a_i_negate(&a,1,((C_word*)t0)[3]);
/* library.scm:2690: scheme#exp */
t4=*((C_word*)lf[668]+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);}}

/* k19002 in k18998 in scheme#sin in k12856 in k11643 */
static void C_ccall f_19004(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_19004,c,av);}
a=C_alloc(29);
t2=C_s_a_i_minus(&a,2,((C_word*)t0)[2],t1);
/* library.scm:2690: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
av2[3]=lf[678];
tp(4,av2);}}

/* scheme#cos in k12856 in k11643 */
static void C_ccall f_19010(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(37,c,2)))){
C_save_and_reclaim((void *)f_19010,c,av);}
a=C_alloc(37);
t3=C_i_check_number_2(t2,lf[680]);
if(C_truep(C_i_cplxnump(t2))){
t4=C_s_a_i_times(&a,2,lf[677],t2);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19034,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2698: scheme#exp */
t6=*((C_word*)lf[668]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t4=C_a_i_exact_to_inexact(&a,1,t2);
t5=C_a_i_cos(&a,1,t4);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k19032 in scheme#cos in k12856 in k11643 */
static void C_ccall f_19034(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){
C_save_and_reclaim((void *)f_19034,c,av);}
a=C_alloc(33);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19038,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=C_s_a_i_negate(&a,1,((C_word*)t0)[3]);
/* library.scm:2698: scheme#exp */
t4=*((C_word*)lf[668]+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);}}

/* k19036 in k19032 in scheme#cos in k12856 in k11643 */
static void C_ccall f_19038(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_19038,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1);
/* library.scm:2698: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
av2[3]=C_fix(2);
tp(4,av2);}}

/* scheme#tan in k12856 in k11643 */
static void C_ccall f_19044(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_19044,c,av);}
a=C_alloc(15);
t3=C_i_check_number_2(t2,lf[682]);
if(C_truep(C_i_cplxnump(t2))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19061,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2705: scheme#sin */
t5=*((C_word*)lf[675]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=C_a_i_exact_to_inexact(&a,1,t2);
t5=C_a_i_tan(&a,1,t4);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k19059 in scheme#tan in k12856 in k11643 */
static void C_ccall f_19061(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_19061,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19065,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2705: scheme#cos */
t3=*((C_word*)lf[679]+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);}}

/* k19063 in k19059 in scheme#tan in k12856 in k11643 */
static void C_ccall f_19065(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19065,c,av);}
/* library.scm:2705: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* scheme#asin in k12856 in k11643 */
static void C_ccall f_19069(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_19069,c,av);}
a=C_alloc(8);
t3=C_i_check_number_2(t2,lf[684]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19079,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_flonump(t2))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19127,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2712: chicken.flonum#fp>= */
t6=*((C_word*)lf[555]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
av2[3]=lf[687];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t5=t4;
f_19079(t5,C_SCHEME_FALSE);}}

/* k19077 in scheme#asin in k12856 in k11643 */
static void f_19079(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_19079,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=C_a_i_asin(&a,1,((C_word*)t0)[3]);
t3=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19085,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fixnump(((C_word*)t0)[3]))){
t3=C_fixnum_greater_or_equal_p(((C_word*)t0)[3],C_fix(-1));
t4=t2;
f_19085(t4,(C_truep(t3)?C_fixnum_less_or_equal_p(((C_word*)t0)[3],C_fix(1)):C_SCHEME_FALSE));}
else{
t3=t2;
f_19085(t3,C_SCHEME_FALSE);}}}

/* k19083 in k19077 in scheme#asin in k12856 in k11643 */
static void f_19085(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(102,0,3)))){
C_save_and_reclaim_args((void *)trf_19085,2,t0,t1);}
a=C_alloc(102);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_a_i_asin(&a,1,C_a_i_fix_to_flo(&a,1,((C_word*)t2)[3]));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19092,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_s_a_i_times(&a,2,lf[677],((C_word*)t2)[3]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19104,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t6=C_s_a_i_times(&a,2,((C_word*)t2)[3],((C_word*)t2)[3]);
t7=C_s_a_i_minus(&a,2,C_fix(1),t6);
/* library.scm:2721: ##sys#sqrt/loc */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[686]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[686]+1);
av2[1]=t5;
av2[2]=lf[684];
av2[3]=t7;
tp(4,av2);}}}

/* k19090 in k19083 in k19077 in scheme#asin in k12856 in k11643 */
static void C_ccall f_19092(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){
C_save_and_reclaim((void *)f_19092,c,av);}
a=C_alloc(33);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_s_a_i_times(&a,2,lf[685],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k19102 in k19083 in k19077 in scheme#asin in k12856 in k11643 */
static void C_ccall f_19104(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
C_save_and_reclaim((void *)f_19104,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1);
/* library.scm:2719: ##sys#log-1 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[670]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[670]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
tp(3,av2);}}

/* k19125 in scheme#asin in k12856 in k11643 */
static void C_ccall f_19127(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19127,c,av);}
t2=((C_word*)t0)[2];
f_19079(t2,(C_truep(t1)?C_ub_i_flonum_less_or_equal_p(C_flonum_magnitude(((C_word*)t0)[3]),(double)1.0):C_SCHEME_FALSE));}

/* scheme#acos in k12856 in k11643 */
static void C_ccall f_19131(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_19131,c,av);}
a=C_alloc(9);
t3=C_i_check_number_2(t2,lf[689]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19141,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_flonump(t2))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19169,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2729: chicken.flonum#fp>= */
t6=*((C_word*)lf[555]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
av2[3]=lf[687];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t5=t4;
f_19141(t5,C_SCHEME_FALSE);}}

/* k19139 in scheme#acos in k12856 in k11643 */
static void f_19141(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_19141,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=C_a_i_acos(&a,1,((C_word*)t0)[3]);
t3=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19147,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fixnump(((C_word*)t0)[3]))){
t3=C_fixnum_greater_or_equal_p(((C_word*)t0)[3],C_fix(-1));
t4=t2;
f_19147(t4,(C_truep(t3)?C_fixnum_less_or_equal_p(((C_word*)t0)[3],C_fix(1)):C_SCHEME_FALSE));}
else{
t3=t2;
f_19147(t3,C_SCHEME_FALSE);}}}

/* k19145 in k19139 in scheme#acos in k12856 in k11643 */
static void f_19147(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_19147,2,t0,t1);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_a_i_acos(&a,1,C_a_i_fix_to_flo(&a,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_19154,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
/* library.scm:2736: scheme#asin */
t4=*((C_word*)lf[683]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k19152 in k19145 in k19139 in scheme#acos in k12856 in k11643 */
static void C_ccall f_19154(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_19154,c,av);}
a=C_alloc(29);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_s_a_i_minus(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k19167 in scheme#acos in k12856 in k11643 */
static void C_ccall f_19169(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19169,c,av);}
t2=((C_word*)t0)[2];
f_19141(t2,(C_truep(t1)?C_ub_i_flonum_less_or_equal_p(C_flonum_magnitude(((C_word*)t0)[3]),(double)1.0):C_SCHEME_FALSE));}

/* scheme#atan in k12856 in k11643 */
static void C_ccall f_19173(C_word c,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_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(66,c,3)))){
C_save_and_reclaim((void *)f_19173,c,av);}
a=C_alloc(66);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
t5=C_i_check_number_2(t2,lf[691]);
if(C_truep(C_i_cplxnump(t2))){
if(C_truep(t4)){
/* library.scm:2743: ##sys#error-bad-real */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[438]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[438]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[691];
tp(4,av2);}}
else{
t6=C_s_a_i_times(&a,2,lf[677],t2);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19206,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
t8=C_s_a_i_plus(&a,2,C_fix(1),t6);
/* library.scm:2745: ##sys#log-1 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[670]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[670]+1);
av2[1]=t7;
av2[2]=t8;
tp(3,av2);}}}
else{
if(C_truep(t4)){
t6=C_a_i_exact_to_inexact(&a,1,t2);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19227,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2749: scheme#exact->inexact */
t8=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t6=C_a_i_exact_to_inexact(&a,1,t2);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_i_atan(&a,1,t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}

/* k19204 in scheme#atan in k12856 in k11643 */
static void C_ccall f_19206(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){
C_save_and_reclaim((void *)f_19206,c,av);}
a=C_alloc(33);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19210,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=C_s_a_i_minus(&a,2,C_fix(1),((C_word*)t0)[3]);
/* library.scm:2746: ##sys#log-1 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[670]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[670]+1);
av2[1]=t2;
av2[2]=t3;
tp(3,av2);}}

/* k19208 in k19204 in scheme#atan in k12856 in k11643 */
static void C_ccall f_19210(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_19210,c,av);}
a=C_alloc(29);
t2=C_s_a_i_minus(&a,2,((C_word*)t0)[2],t1);
/* library.scm:2745: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
av2[3]=lf[678];
tp(4,av2);}}

/* k19225 in scheme#atan in k12856 in k11643 */
static void C_ccall f_19227(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_19227,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_atan2(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* ##sys#exact-integer-sqrt in k12856 in k11643 */
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=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;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_19237,c,av);}
a=C_alloc(10);
t3=C_fixnump(t2);
t4=(C_truep(t3)?C_fixnum_less_or_equal_p(t2,C_fix(4)):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=C_eqp(t2,C_fix(0));
t6=(C_truep(t5)?t5:C_eqp(t2,C_fix(1)));
if(C_truep(t6)){
/* library.scm:2761: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_fix(0);
C_values(4,av2);}}
else{
switch(t2){
case C_fix(2):
/* library.scm:2762: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=C_fix(1);
av2[3]=C_fix(1);
C_values(4,av2);}
case C_fix(3):
/* library.scm:2763: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=C_fix(1);
av2[3]=C_fix(2);
C_values(4,av2);}
case C_fix(4):
/* library.scm:2764: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=C_fix(2);
av2[3]=C_fix(0);
C_values(4,av2);}
default:
/* library.scm:2765: chicken.base#error */
t7=*((C_word*)lf[249]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t1;
av2[2]=lf[693];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}
else{
t5=C_fixnum_plus(C_i_integer_length(t2),C_fix(1));
t6=C_fixnum_shift_right(t5,C_fix(2));
t7=C_fixnum_shift_left(t6,C_fix(1));
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19310,a[2]=t7,a[3]=t2,a[4]=((C_word)li495),tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19324,a[2]=t6,a[3]=t2,a[4]=((C_word)li499),tmp=(C_word)a,a+=5,tmp);
/* library.scm:2766: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=t8;
av2[3]=t9;
C_call_with_values(4,av2);}}}

/* a19309 in ##sys#exact-integer-sqrt in k12856 in k11643 */
static void C_ccall f_19310(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_19310,c,av);}
a=C_alloc(5);
t2=C_fixnum_negate(((C_word*)t0)[2]);
t3=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[3],t2);
/* library.scm:2769: ##sys#exact-integer-sqrt */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[692]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[692]+1);
av2[1]=t1;
av2[2]=t3;
tp(3,av2);}}

/* a19323 in ##sys#exact-integer-sqrt in k12856 in k11643 */
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;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(38,c,4)))){
C_save_and_reclaim((void *)f_19324,c,av);}
a=C_alloc(38);
t4=C_s_a_i_arithmetic_shift(&a,2,C_fix(1),((C_word*)t0)[2]);
t5=C_s_a_u_i_integer_minus(&a,2,t4,C_fix(1));
t6=C_s_a_i_bitwise_and(&a,2,((C_word*)t0)[3],t5);
t7=C_fixnum_negate(((C_word*)t0)[2]);
t8=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[3],t7);
t9=C_s_a_i_bitwise_and(&a,2,t8,t5);
t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19341,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t9,a[5]=t2,a[6]=((C_word)li497),tmp=(C_word)a,a+=7,tmp);
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19357,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word)li498),tmp=(C_word)a,a+=6,tmp);
/* library.scm:2766: ##sys#call-with-values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t10;
av2[3]=t11;
C_call_with_values(4,av2);}}

/* a19340 in a19323 in ##sys#exact-integer-sqrt in k12856 in k11643 */
static void C_ccall f_19341(C_word c,C_word *av){
C_word tmp;
C_word t0=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);
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_19341,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_u_integer_quotient_and_remainder,a[2]=((C_word)li496),tmp=(C_word)a,a+=3,tmp);
t3=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t4=C_s_a_u_i_integer_plus(&a,2,t3,((C_word*)t0)[4]);
t5=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[5],C_fix(1));
/* library.scm:2766: g3304 */
t6=t2;{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t1;
av2[2]=t4;
av2[3]=t5;
((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}

/* a19356 in a19323 in ##sys#exact-integer-sqrt in k12856 in k11643 */
static void C_ccall f_19357(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(222,c,3)))){
C_save_and_reclaim((void *)f_19357,c,av);}
a=C_alloc(222);
t4=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t5=C_s_a_i_plus(&a,2,t4,t2);
t6=C_s_a_i_arithmetic_shift(&a,2,t3,((C_word*)t0)[3]);
t7=C_s_a_i_times(&a,2,t2,t2);
t8=C_s_a_i_minus(&a,2,((C_word*)t0)[4],t7);
t9=C_s_a_i_plus(&a,2,t6,t8);
if(C_truep(C_i_negativep(t9))){
t10=C_s_a_i_minus(&a,2,t5,C_fix(1));
t11=C_s_a_i_arithmetic_shift(&a,2,t5,C_fix(1));
t12=C_s_a_i_plus(&a,2,t9,t11);
t13=C_s_a_i_minus(&a,2,t12,C_fix(1));
/* library.scm:2780: scheme#values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t10;
av2[3]=t13;
C_values(4,av2);}}
else{
/* library.scm:2782: scheme#values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t5;
av2[3]=t9;
C_values(4,av2);}}}

/* scheme#exact-integer-sqrt in k12856 in k11643 */
static void C_ccall f_19428(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_19428,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19432,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2786: ##sys#check-exact-uinteger */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[435]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[435]+1);
av2[1]=t3;
av2[2]=t2;
av2[3]=lf[695];
tp(4,av2);}}

/* k19430 in scheme#exact-integer-sqrt in k12856 in k11643 */
static void C_ccall f_19432(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19432,c,av);}
/* library.scm:2787: ##sys#exact-integer-sqrt */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[692]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[692]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19437(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){
C_save_and_reclaim((void *)f_19437,c,av);}
a=C_alloc(32);
if(C_truep(C_i_cplxnump(t3))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19447,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=C_u_i_cplxnum_imag(t3);
t6=C_a_i_exact_to_inexact(&a,1,t5);
t7=C_u_i_cplxnum_real(t3);
t8=C_a_i_exact_to_inexact(&a,1,t7);
t9=C_flonum(&a,C_atan2(C_flonum_magnitude(t6),C_flonum_magnitude(t8)));
/* library.scm:2793: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t4;
av2[2]=t9;
av2[3]=C_fix(2);
tp(4,av2);}}
else{
if(C_truep(C_i_negativep(t3))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19487,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t5=C_s_a_i_negate(&a,1,t3);
/* library.scm:2798: scheme#exact->inexact */
t6=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
if(C_truep(C_i_exact_integerp(t3))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19497,a[2]=t3,a[3]=((C_word)li502),tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19503,a[2]=t3,a[3]=((C_word)li503),tmp=(C_word)a,a+=4,tmp);
/* library.scm:2800: ##sys#call-with-values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t4;
av2[3]=t5;
C_call_with_values(4,av2);}}
else{
if(C_truep(C_i_ratnump(t3))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19525,a[2]=t3,a[3]=((C_word)li504),tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19537,a[2]=t3,a[3]=t2,a[4]=((C_word)li507),tmp=(C_word)a,a+=5,tmp);
/* library.scm:2805: ##sys#call-with-values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t4;
av2[3]=t5;
C_call_with_values(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19589,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2813: scheme#exact->inexact */
t5=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}}}}

/* k19445 in ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19447(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_19447,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19451,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2794: scheme#magnitude */
t3=*((C_word*)lf[624]+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);}}

/* k19449 in k19445 in ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19451(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_19451,c,av);}
a=C_alloc(7);
t2=C_a_i_sqrt(&a,1,t1);
t3=C_mutate(((C_word *)t0)+2,t2);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19470,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2795: scheme#cos */
t5=*((C_word*)lf[679]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k19464 in k19468 in k19449 in k19445 in ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19466(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){
C_save_and_reclaim((void *)f_19466,c,av);}
a=C_alloc(33);
t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1);
/* library.scm:2795: make-complex */
f_17533(((C_word*)t0)[3],((C_word*)t0)[4],t2);}

/* k19468 in k19449 in k19445 in ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19470(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(38,c,2)))){
C_save_and_reclaim((void *)f_19470,c,av);}
a=C_alloc(38);
t2=((C_word*)t0)[2];
t3=C_s_a_i_times(&a,2,((C_word*)t2)[2],t1);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19466,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2795: scheme#sin */
t5=*((C_word*)lf[675]+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)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k19485 in ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19487(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_19487,c,av);}
a=C_alloc(4);
t2=C_a_i_sqrt(&a,1,t1);
/* library.scm:2797: make-complex */
f_17533(((C_word*)t0)[2],lf[696],t2);}

/* a19496 in ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19497(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19497,c,av);}
/* library.scm:2800: ##sys#exact-integer-sqrt */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[692]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[692]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* a19502 in ##sys#sqrt/loc in k12856 in k11643 */
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=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_19503,c,av);}
a=C_alloc(3);
t4=C_eqp(C_fix(0),t3);
if(C_truep(t4)){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19514,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2803: scheme#exact->inexact */
t6=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k19512 in a19502 in ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19514(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_19514,c,av);}
a=C_alloc(4);
t2=C_a_i_sqrt(&a,1,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a19524 in ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19525(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19525,c,av);}
/* library.scm:2805: ##sys#exact-integer-sqrt */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[692]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[692]+1);
av2[1]=t1;
av2[2]=C_u_i_ratnum_num(((C_word*)t0)[2]);
tp(3,av2);}}

/* a19536 in ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19537(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_19537,c,av);}
a=C_alloc(10);
t4=C_eqp(t3,C_fix(0));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19549,a[2]=((C_word*)t0)[2],a[3]=((C_word)li505),tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19561,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li506),tmp=(C_word)a,a+=6,tmp);
/* library.scm:2807: ##sys#call-with-values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t5;
av2[3]=t6;
C_call_with_values(4,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19585,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:2812: scheme#exact->inexact */
t6=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* a19548 in a19536 in ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19549(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19549,c,av);}
/* library.scm:2808: ##sys#exact-integer-sqrt */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[692]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[692]+1);
av2[1]=t1;
av2[2]=C_u_i_ratnum_denom(((C_word*)t0)[2]);
tp(3,av2);}}

/* a19560 in a19536 in ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19561(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_19561,c,av);}
a=C_alloc(4);
t4=C_eqp(t3,C_fix(0));
if(C_truep(t4)){
/* library.scm:2810: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
tp(4,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19578,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:2811: scheme#exact->inexact */
t6=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k19576 in a19560 in a19536 in ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19578(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19578,c,av);}
/* library.scm:2811: ##sys#sqrt/loc */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[686]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[686]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k19583 in a19536 in ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19585(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19585,c,av);}
/* library.scm:2812: ##sys#sqrt/loc */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[686]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[686]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k19587 in ##sys#sqrt/loc in k12856 in k11643 */
static void C_ccall f_19589(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_19589,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_sqrt(&a,1,t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* scheme#sqrt in k12856 in k11643 */
static void C_ccall f_19591(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19591,c,av);}
/* library.scm:2815: ##sys#sqrt/loc */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[686]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[686]+1);
av2[1]=t1;
av2[2]=lf[697];
av2[3]=t2;
tp(4,av2);}}

/* scheme#floor/ in k12856 in k11643 */
static void C_ccall f_19598(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_19598,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19604,a[2]=t2,a[3]=t3,a[4]=((C_word)li510),tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19610,a[2]=t3,a[3]=((C_word)li511),tmp=(C_word)a,a+=4,tmp);
/* library.scm:2823: ##sys#call-with-values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t4;
av2[3]=t5;
C_call_with_values(4,av2);}}

/* a19603 in scheme#floor/ in k12856 in k11643 */
static void C_ccall f_19604(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19604,c,av);}
/* library.scm:2823: chicken.base#quotient&remainder */
t2=*((C_word*)lf[236]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a19609 in scheme#floor/ in k12856 in k11643 */
static void C_ccall f_19610(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(58,c,3)))){
C_save_and_reclaim((void *)f_19610,c,av);}
a=C_alloc(58);
if(C_truep(C_i_positivep(((C_word*)t0)[2]))){
if(C_truep(C_i_negativep(t3))){
t4=C_s_a_i_minus(&a,2,t2,C_fix(1));
t5=C_s_a_i_plus(&a,2,t3,((C_word*)t0)[2]);
/* library.scm:2826: scheme#values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t4;
av2[3]=t5;
C_values(4,av2);}}
else{
/* library.scm:2827: scheme#values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
C_values(4,av2);}}}
else{
if(C_truep(C_i_positivep(t3))){
t4=C_s_a_i_minus(&a,2,t2,C_fix(1));
t5=C_s_a_i_plus(&a,2,t3,((C_word*)t0)[2]);
/* library.scm:2829: scheme#values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t4;
av2[3]=t5;
C_values(4,av2);}}
else{
/* library.scm:2830: scheme#values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
C_values(4,av2);}}}}

/* scheme#floor-remainder in k12856 in k11643 */
static void C_ccall f_19653(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_19653,c,av);}
a=C_alloc(8);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19659,a[2]=t2,a[3]=t3,a[4]=((C_word)li513),tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19665,a[2]=((C_word)li514),tmp=(C_word)a,a+=3,tmp);
/* library.scm:2833: ##sys#call-with-values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t4;
av2[3]=t5;
C_call_with_values(4,av2);}}

/* a19658 in scheme#floor-remainder in k12856 in k11643 */
static void C_ccall f_19659(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19659,c,av);}
/* library.scm:2833: scheme#floor/ */
t2=*((C_word*)lf[699]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a19664 in scheme#floor-remainder in k12856 in k11643 */
static void C_ccall f_19665(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19665,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#floor-quotient in k12856 in k11643 */
static void C_ccall f_19668(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_19668,c,av);}
a=C_alloc(8);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19674,a[2]=t2,a[3]=t3,a[4]=((C_word)li516),tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19680,a[2]=((C_word)li517),tmp=(C_word)a,a+=3,tmp);
/* library.scm:2836: ##sys#call-with-values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t4;
av2[3]=t5;
C_call_with_values(4,av2);}}

/* a19673 in scheme#floor-quotient in k12856 in k11643 */
static void C_ccall f_19674(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19674,c,av);}
/* library.scm:2836: scheme#floor/ */
t2=*((C_word*)lf[699]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a19679 in scheme#floor-quotient in k12856 in k11643 */
static void C_ccall f_19680(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19680,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#square in k12856 in k11643 */
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=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){
C_save_and_reclaim((void *)f_19683,c,av);}
a=C_alloc(33);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_s_a_i_times(&a,2,t2,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#exact-integer-nth-root in k12856 in k11643 */
static void C_ccall f_19689(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_19689,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19693,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2842: ##sys#check-exact-uinteger */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[435]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[435]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[705];
tp(4,av2);}}

/* k19691 in chicken.base#exact-integer-nth-root in k12856 in k11643 */
static void C_ccall f_19693(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_19693,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19696,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2843: ##sys#check-exact-uinteger */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[435]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[435]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[705];
tp(4,av2);}}

/* k19694 in k19691 in chicken.base#exact-integer-nth-root in k12856 in k11643 */
static void C_ccall f_19696(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_19696,c,av);}
t2=((C_word*)t0)[2];
/* library.scm:2844: ##sys#exact-integer-nth-root/loc */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[704]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[704]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=lf[705];
av2[3]=((C_word*)t2)[3];
av2[4]=((C_word*)t2)[4];
tp(5,av2);}}

/* ##sys#exact-integer-nth-root/loc in k12856 in k11643 */
static void C_ccall f_19701(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_19701,c,av);}
a=C_alloc(5);
t5=C_eqp(C_fix(0),t3);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19711,a[2]=t1,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
if(C_truep(t5)){
t7=t6;
f_19711(t7,t5);}
else{
t7=C_eqp(C_fix(1),t3);
t8=t6;
f_19711(t8,(C_truep(t7)?t7:C_eqp(C_fix(1),t4)));}}

/* k19709 in ##sys#exact-integer-nth-root/loc in k12856 in k11643 */
static void f_19711(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){
C_save_and_reclaim_args((void *)trf_19711,2,t0,t1);}
a=C_alloc(29);
if(C_truep(t1)){
/* library.scm:2850: scheme#values */{
C_word av2[4];
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_fix(0);
C_values(4,av2);}}
else{
t2=C_i_integer_length(((C_word*)t0)[3]);
if(C_truep(C_i_lessp(t2,((C_word*)t0)[4]))){
t3=C_s_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1));
/* library.scm:2853: scheme#values */{
C_word av2[4];
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=C_fix(1);
av2[3]=t3;
C_values(4,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19731,a[2]=((C_word*)t0)[3],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[4],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[2],a[7]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=8,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19807,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19811,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t5;
av2[2]=C_fixnum_plus(t2,C_fix(1));
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}}}

/* k19729 in k19709 in ##sys#exact-integer-nth-root/loc in k12856 in k11643 */
static void C_ccall f_19731(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(70,c,3)))){
C_save_and_reclaim((void *)f_19731,c,av);}
a=C_alloc(70);
t2=C_s_a_i_arithmetic_shift(&a,2,C_fix(1),t1);
t3=C_mutate(((C_word *)t0)+7,t2);
t4=C_s_a_i_minus(&a,2,((C_word*)t0)[4],C_fix(1));
t5=C_mutate(((C_word *)t0)+5,t4);
t6=C_s_a_i_times(&a,2,((C_word*)t0)[5],((C_word*)t0)[7]);
t7=C_mutate(((C_word *)t0)+3,t6);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19803,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:2861: ##sys#integer-power */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[640]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[640]+1);
av2[1]=t8;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[5];
tp(4,av2);}}

/* lp in k19801 in k19729 in k19709 in ##sys#exact-integer-nth-root/loc in k12856 in k11643 */
static void f_19746(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(41,0,3)))){
C_save_and_reclaim_args((void *)trf_19746,4,t0,t1,t2,t3);}
a=C_alloc(41);
if(C_truep(C_i_lessp(t3,t2))){
t4=C_s_a_i_times(&a,2,((C_word*)t0)[2],t3);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19776,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=t3,tmp=(C_word)a,a+=8,tmp);
/* library.scm:2866: ##sys#integer-power */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[640]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[640]+1);
av2[1]=t5;
av2[2]=t3;
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19787,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2868: ##sys#integer-power */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[640]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[640]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}}

/* k19774 in lp in k19801 in k19729 in k19709 in ##sys#exact-integer-nth-root/loc in k12856 in k11643 */
static void C_ccall f_19776(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){
C_save_and_reclaim((void *)f_19776,c,av);}
a=C_alloc(39);
t2=C_s_a_i_quotient(&a,2,((C_word*)t0)[2],t1);
t3=C_s_a_i_plus(&a,2,((C_word*)t0)[3],t2);
t4=C_s_a_i_quotient(&a,2,t3,((C_word*)t0)[4]);
/* library.scm:2864: lp */
t5=((C_word*)((C_word*)t0)[5])[1];
f_19746(t5,((C_word*)t0)[6],((C_word*)t0)[7],t4);}

/* k19785 in lp in k19801 in k19729 in k19709 in ##sys#exact-integer-nth-root/loc in k12856 in k11643 */
static void C_ccall f_19787(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_19787,c,av);}
a=C_alloc(29);
t2=C_s_a_i_minus(&a,2,((C_word*)t0)[2],t1);
/* library.scm:2868: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
C_values(4,av2);}}

/* k19801 in k19729 in k19709 in ##sys#exact-integer-nth-root/loc in k12856 in k11643 */
static void C_ccall f_19803(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(48,c,4)))){
C_save_and_reclaim((void *)f_19803,c,av);}
a=C_alloc(48);
t2=((C_word*)t0)[2];
t3=C_s_a_i_quotient(&a,2,((C_word*)t2)[2],t1);
t4=C_s_a_i_plus(&a,2,((C_word*)t2)[3],t3);
t5=C_s_a_i_quotient(&a,2,t4,((C_word*)t2)[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|6,a[1]=(C_word)f_19746,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[4],a[5]=t7,a[6]=((C_word)li521),tmp=(C_word)a,a+=7,tmp));
t9=((C_word*)t7)[1];
f_19746(t9,((C_word*)t2)[6],((C_word*)t2)[7],t5);}

/* k19805 in k19709 in ##sys#exact-integer-nth-root/loc in k12856 in k11643 */
static void C_ccall f_19807(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19807,c,av);}
/* library.scm:2855: scheme#inexact->exact */
t2=*((C_word*)lf[630]+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);}}

/* k19809 in k19709 in ##sys#exact-integer-nth-root/loc in k12856 in k11643 */
static void C_ccall f_19811(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19811,c,av);}
/* library.scm:2855: scheme#ceiling */
t2=*((C_word*)lf[656]+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);}}

/* ##sys#integer-power in k12856 in k11643 */
static void C_ccall f_19827(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_19827,c,av);}
a=C_alloc(8);
if(C_truep(C_i_negativep(t3))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19845,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t5=C_s_a_u_i_integer_negate(&a,1,t3);
/* library.scm:2873: ##sys#integer-power */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[640]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[640]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=t5;
tp(4,av2);}}
else{
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_19856,a[2]=t5,a[3]=t2,a[4]=((C_word)li523),tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_19856(t7,t1,C_fix(1),t3);}}

/* k19843 in ##sys#integer-power in k12856 in k11643 */
static void C_ccall f_19845(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19845,c,av);}
/* library.scm:2873: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_fix(1);
av2[3]=t1;
tp(4,av2);}}

/* lp in ##sys#integer-power in k12856 in k11643 */
static void f_19856(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(62,0,3)))){
C_save_and_reclaim_args((void *)trf_19856,4,t0,t1,t2,t3);}
a=C_alloc(62);
t4=C_eqp(t3,C_fix(0));
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
if(C_truep(C_i_evenp(t3))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19878,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t6=C_s_a_i_arithmetic_shift(&a,2,t3,C_fix(-1));
/* library.scm:2878: lp */
t8=t5;
t9=C_fix(1);
t10=t6;
t1=t8;
t2=t9;
t3=t10;
goto loop;}
else{
t5=C_s_a_i_times(&a,2,t2,((C_word*)t0)[3]);
t6=C_s_a_i_minus(&a,2,t3,C_fix(1));
/* library.scm:2880: lp */
t8=t1;
t9=t5;
t10=t6;
t1=t8;
t2=t9;
t3=t10;
goto loop;}}}

/* k19876 in lp in ##sys#integer-power in k12856 in k11643 */
static void C_ccall f_19878(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(66,c,1)))){
C_save_and_reclaim((void *)f_19878,c,av);}
a=C_alloc(66);
t2=C_s_a_i_times(&a,2,t1,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#expt in k12856 in k11643 */
static void C_ccall f_19895(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){
C_save_and_reclaim((void *)f_19895,c,av);}
a=C_alloc(21);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19898,a[2]=((C_word)li525),tmp=(C_word)a,a+=3,tmp));
t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19912,a[2]=((C_word)li526),tmp=(C_word)a,a+=3,tmp));
t10=C_i_numberp(t2);
if(C_truep(C_i_not(t10))){
/* library.scm:2892: ##sys#error-bad-number */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[449]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[449]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[706];
tp(4,av2);}}
else{
t11=C_i_numberp(t3);
if(C_truep(C_i_not(t11))){
/* library.scm:2893: ##sys#error-bad-number */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[449]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[449]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=lf[706];
tp(4,av2);}}
else{
t12=C_i_ratnump(t2);
t13=(C_truep(t12)?C_i_not(C_i_inexactp(t3)):C_SCHEME_FALSE);
if(C_truep(t13)){
t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19964,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2897: scheme#expt */
t15=*((C_word*)lf[642]+1);{
C_word *av2=av;
av2[0]=t15;
av2[1]=t14;
av2[2]=C_u_i_ratnum_num(t2);
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}}
else{
if(C_truep(C_i_ratnump(t3))){
if(C_truep(C_i_exact_integerp(t2))){
if(C_truep(C_i_negativep(t2))){
t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20002,a[2]=t3,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2904: scheme#exact->inexact */
t15=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t15;
av2[1]=t14;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}
else{
t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20009,a[2]=t2,a[3]=t3,a[4]=((C_word)li527),tmp=(C_word)a,a+=5,tmp);
t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20021,a[2]=t3,a[3]=t2,a[4]=((C_word)li528),tmp=(C_word)a,a+=5,tmp);
/* library.scm:2905: ##sys#call-with-values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t14;
av2[3]=t15;
C_call_with_values(4,av2);}}}
else{
if(C_truep(C_i_flonump(t2))){
t14=C_a_i_exact_to_inexact(&a,1,t3);
/* library.scm:2914: log-expt */
f_19898(t1,t2,t14);}
else{
/* library.scm:2915: slow-expt */
f_19912(t1,t2,t3);}}}
else{
t14=C_i_cplxnump(t3);
t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20065,a[2]=t7,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp);
if(C_truep(t14)){
t16=t15;
f_20065(t16,t14);}
else{
t16=C_i_cplxnump(t2);
t17=t15;
f_20065(t17,(C_truep(t16)?C_i_not(C_i_integerp(t3)):C_SCHEME_FALSE));}}}}}}

/* log-expt in scheme#expt in k12856 in k11643 */
static void f_19898(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_19898,3,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19910,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2885: ##sys#log-1 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[670]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[670]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k19908 in log-expt in scheme#expt in k12856 in k11643 */
static void C_ccall f_19910(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){
C_save_and_reclaim((void *)f_19910,c,av);}
a=C_alloc(33);
t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1);
/* library.scm:2885: scheme#exp */
t3=*((C_word*)lf[668]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* slow-expt in scheme#expt in k12856 in k11643 */
static void f_19912(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,6)))){
C_save_and_reclaim_args((void *)trf_19912,3,t1,t2,t3);}
a=C_alloc(4);
t4=C_eqp(C_fix(0),t2);
if(C_truep(t4)){
/* library.scm:2888: ##sys#signal-hook */
t5=*((C_word*)lf[127]+1);{
C_word av2[7];
av2[0]=t5;
av2[1]=t1;
av2[2]=lf[671];
av2[3]=lf[706];
av2[4]=lf[707];
av2[5]=t2;
av2[6]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19933,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2891: ##sys#log-1 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[670]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[670]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}}

/* k19931 in slow-expt in scheme#expt in k12856 in k11643 */
static void C_ccall f_19933(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){
C_save_and_reclaim((void *)f_19933,c,av);}
a=C_alloc(33);
t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1);
/* library.scm:2891: scheme#exp */
t3=*((C_word*)lf[668]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k19962 in scheme#expt in k12856 in k11643 */
static void C_ccall f_19964(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){
C_save_and_reclaim((void *)f_19964,c,av);}
a=C_alloc(33);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19968,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=C_u_i_ratnum_denom(((C_word*)t0)[3]);
t4=C_s_a_i_negate(&a,1,((C_word*)t0)[4]);
/* library.scm:2898: scheme#expt */
t5=*((C_word*)lf[642]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=t3;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k19966 in k19962 in scheme#expt in k12856 in k11643 */
static void C_ccall f_19968(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){
C_save_and_reclaim((void *)f_19968,c,av);}
a=C_alloc(33);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k20000 in scheme#expt in k12856 in k11643 */
static void C_ccall f_20002(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_20002,c,av);}
a=C_alloc(11);
t2=C_a_i_exact_to_inexact(&a,1,((C_word*)t0)[2]);
/* library.scm:2904: log-expt */
f_19898(((C_word*)t0)[4],t1,t2);}

/* a20008 in scheme#expt in k12856 in k11643 */
static void C_ccall f_20009(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_20009,c,av);}
/* library.scm:2906: ##sys#exact-integer-nth-root/loc */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[704]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[704]+1);
av2[1]=t1;
av2[2]=lf[706];
av2[3]=((C_word*)t0)[2];
av2[4]=C_u_i_ratnum_denom(((C_word*)t0)[3]);
tp(5,av2);}}

/* a20020 in scheme#expt in k12856 in k11643 */
static void C_ccall f_20021(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_20021,c,av);}
a=C_alloc(4);
t4=C_eqp(t3,C_fix(0));
if(C_truep(t4)){
/* library.scm:2909: ##sys#integer-power */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[640]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[640]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_u_i_ratnum_num(((C_word*)t0)[2]);
tp(4,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20041,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:2911: scheme#exact->inexact */
t6=*((C_word*)lf[86]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k20039 in a20020 in scheme#expt in k12856 in k11643 */
static void C_ccall f_20041(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_20041,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20045,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:2912: scheme#exact->inexact */
t3=*((C_word*)lf[86]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k20043 in k20039 in a20020 in scheme#expt in k12856 in k11643 */
static void C_ccall f_20045(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_20045,c,av);}
a=C_alloc(4);
t2=C_a_i_flonum_expt(&a,2,((C_word*)t0)[2],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);}}

/* k20063 in scheme#expt in k12856 in k11643 */
static void f_20065(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_20065,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
/* library.scm:2917: slow-expt */
f_19912(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}
else{
t2=(C_truep(C_i_flonump(((C_word*)t0)[5]))?C_i_not(C_u_i_fpintegerp(((C_word*)t0)[5])):C_SCHEME_FALSE);
if(C_truep(t2)){
if(C_truep(C_i_negativep(((C_word*)t0)[4]))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20085,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* library.scm:2921: scheme#exact->inexact */
t4=*((C_word*)lf[86]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20093,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:2923: scheme#exact->inexact */
t4=*((C_word*)lf[86]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
else{
if(C_truep(C_i_flonump(((C_word*)t0)[4]))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20100,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:2925: scheme#exact->inexact */
t4=*((C_word*)lf[86]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=C_i_inexactp(((C_word*)t0)[4]);
t4=(C_truep(t3)?t3:C_i_inexactp(((C_word*)t0)[5]));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20116,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20120,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* library.scm:2929: scheme#inexact->exact */
t7=*((C_word*)lf[630]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
/* library.scm:2930: ##sys#integer-power */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[640]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[640]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
tp(4,av2);}}}}}}

/* k20083 in k20063 in scheme#expt in k12856 in k11643 */
static void C_ccall f_20085(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_20085,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20089,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2921: scheme#exact->inexact */
t3=*((C_word*)lf[86]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k20087 in k20083 in k20063 in scheme#expt in k12856 in k11643 */
static void C_ccall f_20089(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_20089,c,av);}
/* library.scm:2921: log-expt */
f_19898(((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k20091 in k20063 in scheme#expt in k12856 in k11643 */
static void C_ccall f_20093(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_20093,c,av);}
a=C_alloc(4);
t2=C_a_i_flonum_expt(&a,2,t1,((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k20098 in k20063 in scheme#expt in k12856 in k11643 */
static void C_ccall f_20100(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_20100,c,av);}
a=C_alloc(4);
t2=C_a_i_flonum_expt(&a,2,((C_word*)t0)[2],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);}}

/* k20114 in k20063 in scheme#expt in k12856 in k11643 */
static void C_ccall f_20116(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_20116,c,av);}
/* library.scm:2929: scheme#exact->inexact */
t2=*((C_word*)lf[86]+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);}}

/* k20118 in k20063 in scheme#expt in k12856 in k11643 */
static void C_ccall f_20120(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_20120,c,av);}
/* library.scm:2929: ##sys#integer-power */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[640]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[640]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* ##sys#internal-gcd in k12856 in k11643 */
static void f_20161(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_20161,4,t1,t2,t3,t4);}
a=C_alloc(5);
if(C_truep(C_i_exact_integerp(t3))){
if(C_truep(C_i_exact_integerp(t4))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_s_a_u_i_integer_gcd(&a,2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(C_truep(C_i_flonump(t4))?C_u_i_fpintegerp(t4):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20192,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2939: scheme#inexact->exact */
t7=*((C_word*)lf[630]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
/* library.scm:2940: ##sys#error-bad-integer */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[432]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[432]+1);
av2[1]=t1;
av2[2]=t4;
av2[3]=t2;
tp(4,av2);}}}}
else{
t5=(C_truep(C_i_flonump(t3))?C_u_i_fpintegerp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
if(C_truep(C_i_flonump(t4))){
t6=C_a_i_flonum_gcd(&a,2,t3,t4);
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
if(C_truep(C_i_exact_integerp(t4))){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20220,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:2946: scheme#inexact->exact */
t7=*((C_word*)lf[630]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
/* library.scm:2947: ##sys#error-bad-integer */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[432]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[432]+1);
av2[1]=t1;
av2[2]=t4;
av2[3]=t2;
tp(4,av2);}}}}
else{
/* library.scm:2948: ##sys#error-bad-integer */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[432]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[432]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t2;
tp(4,av2);}}}}

/* k20190 in ##sys#internal-gcd in k12856 in k11643 */
static void C_ccall f_20192(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_20192,c,av);}
a=C_alloc(5);
t2=C_s_a_u_i_integer_gcd(&a,2,((C_word*)t0)[2],t1);
/* library.scm:2939: scheme#exact->inexact */
t3=*((C_word*)lf[86]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k20218 in ##sys#internal-gcd in k12856 in k11643 */
static void C_ccall f_20220(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_20220,c,av);}
a=C_alloc(5);
t2=C_s_a_u_i_integer_gcd(&a,2,t1,((C_word*)t0)[2]);
/* library.scm:2946: scheme#exact->inexact */
t3=*((C_word*)lf[86]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* ##sys#gcd in k12856 in k11643 */
static void C_ccall f_20228(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_20228,c,av);}
/* library.scm:2950: ##sys#internal-gcd */
f_20161(t1,lf[709],t2,t3);}

/* scheme#gcd in k12856 in k11643 */
static void C_ccall f_20234(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){
C_save_and_reclaim((void*)f_20234,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+6);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
t3=C_eqp(t2,C_SCHEME_END_OF_LIST);
if(C_truep(t3)){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fix(0);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_slot(t2,C_fix(0));
t5=C_slot(t2,C_fix(1));
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20254,a[2]=t7,a[3]=((C_word)li532),tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_20254(t9,t1,t4,t5);}}

/* loop in scheme#gcd in k12856 in k11643 */
static void f_20254(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_20254,4,t0,t1,t2,t3);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t3))){
if(C_truep(C_i_integerp(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_s_a_i_abs(&a,1,t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* library.scm:2959: ##sys#error-bad-integer */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[432]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[432]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[709];
tp(4,av2);}}}
else{
t4=C_slot(t3,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20279,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2961: ##sys#internal-gcd */
f_20161(t5,lf[709],t2,t4);}}

/* k20277 in loop in scheme#gcd in k12856 in k11643 */
static void C_ccall f_20279(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_20279,c,av);}
/* library.scm:2961: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_20254(t2,((C_word*)t0)[3],t1,C_slot(((C_word*)t0)[4],C_fix(1)));}

/* ##sys#lcm in k12856 in k11643 */
static void C_ccall f_20285(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_20285,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20289,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:2965: ##sys#internal-gcd */
f_20161(t4,lf[712],t2,t3);}

/* k20287 in ##sys#lcm in k12856 in k11643 */
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 t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(45,c,1)))){
C_save_and_reclaim((void *)f_20289,c,av);}
a=C_alloc(45);
t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_s_a_i_quotient(&a,2,t2,t1);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_s_a_i_abs(&a,1,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* scheme#lcm in k12856 in k11643 */
static void C_ccall f_20299(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){
C_save_and_reclaim((void*)f_20299,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+6);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
if(C_truep(C_rest_nullp(c,2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_fix(1);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_slot(t2,C_fix(0));
t4=C_slot(t2,C_fix(1));
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20319,a[2]=t6,a[3]=((C_word)li535),tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_20319(t8,t1,t3,t4);}}

/* loop in scheme#lcm in k12856 in k11643 */
static void f_20319(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_20319,4,t0,t1,t2,t3);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t3))){
if(C_truep(C_i_integerp(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_s_a_i_abs(&a,1,t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* library.scm:2975: ##sys#error-bad-integer */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[432]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[432]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[712];
tp(4,av2);}}}
else{
t4=C_slot(t3,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20340,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
/* library.scm:2977: ##sys#internal-gcd */
f_20161(t5,lf[712],t2,t4);}}

/* k20338 in loop in scheme#lcm in k12856 in k11643 */
static void C_ccall f_20340(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(38,c,3)))){
C_save_and_reclaim((void *)f_20340,c,av);}
a=C_alloc(38);
t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_s_a_i_quotient(&a,2,t2,t1);
/* library.scm:2978: loop */
t4=((C_word*)((C_word*)t0)[4])[1];
f_20319(t4,((C_word*)t0)[5],t3,C_slot(((C_word*)t0)[6],C_fix(1)));}

/* ##sys#integer->string/recursive in k12856 in k11643 */
static void C_ccall f_20357(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_20357,c,av);}
a=C_alloc(6);
t5=C_fixnum_plus(t4,C_fix(1));
t6=C_fixnum_shift_right(t5,C_fix(1));
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20364,a[2]=t2,a[3]=t6,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* library.scm:2985: ##sys#integer-power */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[640]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[640]+1);
av2[1]=t7;
av2[2]=t3;
av2[3]=t6;
tp(4,av2);}}

/* k20362 in ##sys#integer->string/recursive in k12856 in k11643 */
static void C_ccall f_20364(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_20364,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20369,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li538),tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20375,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li539),tmp=(C_word)a,a+=5,tmp);
/* library.scm:2984: ##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);}}

/* a20368 in k20362 in ##sys#integer->string/recursive in k12856 in k11643 */
static void C_ccall f_20369(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_20369,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_u_integer_quotient_and_remainder,a[2]=((C_word)li537),tmp=(C_word)a,a+=3,tmp);
/* library.scm:2984: g3507 */
t3=t2;{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}

/* a20374 in k20362 in ##sys#integer->string/recursive in k12856 in k11643 */
static void C_ccall f_20375(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_20375,c,av);}
a=C_alloc(6);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20379,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k20377 in a20374 in k20362 in ##sys#integer->string/recursive in k12856 in k11643 */
static void C_ccall f_20379(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_20379,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20382,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_s_a_i_abs(&a,1,((C_word*)t0)[4]);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t2;
av2[2]=t3;
av2[3]=((C_word*)t0)[5];
tp(4,av2);}}

/* k20380 in k20377 in a20374 in k20362 in ##sys#integer->string/recursive in k12856 in k11643 */
static void C_ccall f_20382(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_20382,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20389,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* ##sys#make-string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[455]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[455]+1);
av2[1]=t2;
av2[2]=C_fixnum_difference(((C_word*)t0)[4],C_u_i_string_length(t1));
av2[3]=C_make_character(48);
tp(4,av2);}}

/* k20387 in k20380 in k20377 in a20374 in k20362 in ##sys#integer->string/recursive in k12856 in k11643 */
static void C_ccall f_20389(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_20389,c,av);}
/* library.scm:2990: scheme#string-append */
t2=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* ##sys#extended-number->string in k12856 in k11643 */
static void C_ccall f_20407(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_20407,c,av);}
a=C_alloc(6);
if(C_truep(C_i_ratnump(t2))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20421,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t4;
av2[2]=C_u_i_ratnum_num(t2);
av2[3]=t3;
tp(4,av2);}}
else{
if(C_truep(C_i_cplxnump(t2))){
t4=C_u_i_cplxnum_real(t2);
t5=C_u_i_cplxnum_imag(t2);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20462,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t5,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t6;
av2[2]=t4;
av2[3]=t3;
tp(4,av2);}}
else{
/* library.scm:3010: ##sys#error-bad-number */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[449]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[449]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[722];
tp(4,av2);}}}}

/* k20419 in ##sys#extended-number->string in k12856 in k11643 */
static void C_ccall f_20421(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_20421,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20425,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t2;
av2[2]=C_u_i_ratnum_denom(((C_word*)t0)[3]);
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}

/* k20423 in k20419 in ##sys#extended-number->string in k12856 in k11643 */
static void C_ccall f_20425(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_20425,c,av);}
/* library.scm:3000: string-append */
t2=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[717];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k20460 in ##sys#extended-number->string in k12856 in k11643 */
static void C_ccall f_20462(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20462,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_20466,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_finitep(((C_word*)t0)[4]))){
if(C_truep(C_i_greater_or_equalp(((C_word*)t0)[4],C_fix(0)))){
t4=C_i_not(C_i_eqvp(((C_word*)t0)[4],lf[719]));
t5=t3;
f_20466(t5,(C_truep(t4)?lf[720]:lf[721]));}
else{
t4=t3;
f_20466(t4,lf[721]);}}
else{
t4=t3;
f_20466(t4,lf[721]);}}

/* k20464 in k20460 in ##sys#extended-number->string in k12856 in k11643 */
static void f_20466(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_20466,2,t0,t1);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20470,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=((C_word*)t2)[5];
tp(4,av2);}}

/* k20468 in k20464 in k20460 in ##sys#extended-number->string in k12856 in k11643 */
static void C_ccall f_20470(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_20470,c,av);}
/* library.scm:3005: string-append */
t2=*((C_word*)lf[517]+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]=t1;
av2[5]=lf[718];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k20508 in safe-exponent in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_20510(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(44,c,1)))){
C_save_and_reclaim((void *)f_20510,c,av);}
a=C_alloc(44);
t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_exact_to_inexact(&a,1,t2);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k20511 in safe-exponent in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_20513(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_20513,c,av);}
a=C_alloc(13);
t2=C_fixnum_difference(C_i_integer_length(((C_word*)t0)[2]),C_i_integer_length(t1));
t3=C_fixnum_difference(t2,*((C_word*)lf[529]+1));
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
if(C_truep(C_fixnum_lessp(((C_word*)t5)[1],C_fix(0)))){
t6=C_fixnum_negate(((C_word*)t5)[1]);
t7=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],t6);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20528,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t7,tmp=(C_word)a,a+=6,tmp);
/* library.scm:3029: round-quotient */
f_20592(t8,t7,t1);}
else{
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20567,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:3036: ##sys#integer-power */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[640]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[640]+1);
av2[1]=t6;
av2[2]=C_fix(10);
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}}

/* k20526 in k20511 in safe-exponent in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_20528(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(44,c,3)))){
C_save_and_reclaim((void *)f_20528,c,av);}
a=C_alloc(44);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20531,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=((C_word*)t3)[1];
t6=C_i_integer_length(t5);
t7=*((C_word*)lf[529]+1);
if(C_truep(C_fixnum_greaterp(t6,*((C_word*)lf[529]+1)))){
t8=C_fixnum_plus(C_fix(1),((C_word*)((C_word*)t0)[2])[1]);
t9=C_set_block_item(((C_word*)t0)[2],0,t8);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20549,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
t11=C_s_a_i_times(&a,2,((C_word*)t0)[4],C_fix(2));
/* library.scm:3033: round-quotient */
f_20592(t10,((C_word*)t0)[5],t11);}
else{
t8=t4;
f_20531(t8,C_SCHEME_UNDEFINED);}}

/* k20529 in k20526 in k20511 in safe-exponent in ##sys#string->compnum in k12856 in k11643 */
static void f_20531(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_20531,2,t0,t1);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20538,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:3034: scheme#exact->inexact */
t3=*((C_word*)lf[86]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k20536 in k20529 in k20526 in k20511 in safe-exponent in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_20538(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_20538,c,av);}
a=C_alloc(6);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_a_i_bytevector(&a,1,C_fix(4));
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=stub3562(t3,C_i_foreign_flonum_argumentp(t1),C_i_foreign_fixnum_argumentp(t2));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k20547 in k20526 in k20511 in safe-exponent in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_20549(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20549,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)t0)[3];
f_20531(t3,t2);}

/* k20565 in k20511 in safe-exponent in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_20567(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){
C_save_and_reclaim((void *)f_20567,c,av);}
a=C_alloc(33);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* round-quotient in k12856 in k11643 */
static void f_20592(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(63,0,3)))){
C_save_and_reclaim_args((void *)trf_20592,3,t1,t2,t3);}
a=C_alloc(63);
t4=C_s_a_u_i_integer_quotient(&a,2,t2,t3);
t5=(C_truep(C_i_evenp(t4))?*((C_word*)lf[97]+1):*((C_word*)lf[99]+1));
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20607,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
t7=C_s_a_i_remainder(&a,2,t2,t3);
t8=C_s_a_i_abs(&a,1,t7);
t9=C_s_a_i_times(&a,2,t8,C_fix(2));
t10=C_s_a_i_abs(&a,1,t3);
/* library.scm:3043: g3575 */
t11=t5;{
C_word av2[4];
av2[0]=t11;
av2[1]=t6;
av2[2]=t9;
av2[3]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}

/* k20605 in round-quotient in k12856 in k11643 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_20607,c,av);}
a=C_alloc(29);
if(C_truep(t1)){
t2=C_eqp(C_i_negativep(((C_word*)t0)[2]),C_i_negativep(((C_word*)t0)[3]));
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?C_s_a_i_plus(&a,2,((C_word*)t0)[5],C_fix(1)):C_s_a_i_plus(&a,2,((C_word*)t0)[5],C_fix(-1)));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* ##sys#string->compnum in k12856 in k11643 */
static void f_20635(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 t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(88,0,6)))){
C_save_and_reclaim_args((void *)trf_20635,5,t1,t2,t3,t4,t5);}
a=C_alloc(88);
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t8,0,C_SCHEME_FALSE);
t14=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20639,a[2]=t6,a[3]=t8,a[4]=((C_word)li543),tmp=(C_word)a,a+=5,tmp));
t15=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20653,a[2]=t6,a[3]=((C_word)li544),tmp=(C_word)a,a+=4,tmp));
t16=C_i_string_length(t3);
t17=C_fixnum_difference(t2,C_fix(1));
t18=C_fixnum_plus(C_fix(48),t17);
t19=C_unfix(t18);
t20=C_make_character(t19);
t21=C_fixnum_difference(t2,C_fix(11));
t22=C_fixnum_plus(C_fix(97),t21);
t23=C_unfix(t22);
t24=C_make_character(t23);
t25=C_fixnum_difference(t2,C_fix(11));
t26=C_fixnum_plus(C_fix(65),t25);
t27=C_unfix(t26);
t28=C_make_character(t27);
t29=C_SCHEME_FALSE;
t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp);
t31=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20742,a[2]=t16,a[3]=t3,a[4]=t2,a[5]=t20,a[6]=t24,a[7]=t28,a[8]=((C_word)li546),tmp=(C_word)a,a+=9,tmp);
t32=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20895,a[2]=t16,a[3]=t3,a[4]=((C_word)li548),tmp=(C_word)a,a+=5,tmp);
t33=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20943,a[2]=t3,a[3]=t2,a[4]=t30,a[5]=t10,a[6]=t32,a[7]=t31,a[8]=((C_word)li549),tmp=(C_word)a,a+=9,tmp);
t34=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20999,a[2]=t16,a[3]=t3,a[4]=t2,a[5]=t31,a[6]=((C_word)li550),tmp=(C_word)a,a+=7,tmp);
t35=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21052,a[2]=t16,a[3]=t3,a[4]=t12,a[5]=t34,a[6]=t33,a[7]=((C_word)li551),tmp=(C_word)a,a+=8,tmp);
t36=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21264,a[2]=t10,a[3]=t35,a[4]=t3,a[5]=t2,a[6]=t16,a[7]=t12,a[8]=t34,a[9]=t30,a[10]=t6,a[11]=t33,a[12]=((C_word)li552),tmp=(C_word)a,a+=13,tmp);
t37=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21606,a[2]=t16,a[3]=t3,a[4]=t36,a[5]=t2,a[6]=t10,a[7]=((C_word)li553),tmp=(C_word)a,a+=8,tmp);
t38=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21846,a[2]=t6,a[3]=t8,a[4]=t1,a[5]=t3,a[6]=t16,a[7]=t4,a[8]=t30,a[9]=t37,tmp=(C_word)a,a+=10,tmp);
/* library.scm:3246: scan-real */
t39=t37;
f_21606(t39,t38,t4,C_SCHEME_FALSE);}

/* go-inexact! in ##sys#string->compnum in k12856 in k11643 */
static C_word f_20639(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_stack_overflow_check;{}
t2=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[725]);
if(C_truep(t2)){
t3=C_SCHEME_UNDEFINED;
return(t3);}
else{
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[726]);
t4=((C_word*)((C_word*)t0)[3])[1];
if(C_truep(t4)){
t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4);
return(t5);}
else{
t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t1);
return(t5);}}}

/* safe-exponent in ##sys#string->compnum in k12856 in k11643 */
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 t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
C_save_and_reclaim_args((void *)trf_20653,4,t0,t1,t2,t3);}
a=C_alloc(12);
if(C_truep(t3)){
if(C_truep(C_i_not(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_fix(0);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
if(C_truep(C_i_greaterp(t3,C_fix(10000)))){
t4=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[726]);
if(C_truep(t4)){
if(C_truep(C_i_zerop(t2))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[696];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_i_greaterp(t2,lf[696]);
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=(C_truep(t5)?lf[727]:lf[728]);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t4=C_fixnum_negate(C_fix(10000));
if(C_truep(C_i_lessp(t3,t4))){
t5=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[726]);
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=(C_truep(t5)?lf[696]:C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[726]);
if(C_truep(t5)){
if(C_truep(C_i_not(C_i_negativep(t3)))){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20510,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:3022: ##sys#integer-power */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[640]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[640]+1);
av2[1]=t6;
av2[2]=C_fix(10);
av2[3]=t3;
tp(4,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20513,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t7=C_s_a_i_abs(&a,1,t3);
/* library.scm:3023: ##sys#integer-power */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[640]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[640]+1);
av2[1]=t6;
av2[2]=C_fix(10);
av2[3]=t7;
tp(4,av2);}}}
else{
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20713,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:3066: ##sys#integer-power */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[640]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[640]+1);
av2[1]=t6;
av2[2]=C_fix(10);
av2[3]=t3;
tp(4,av2);}}}}}}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k20711 in safe-exponent in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_20713(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){
C_save_and_reclaim((void *)f_20713,c,av);}
a=C_alloc(33);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* scan-digits in ##sys#string->compnum in k12856 in k11643 */
static void f_20742(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){
C_save_and_reclaim_args((void *)trf_20742,4,t0,t1,t2,t3);}
a=C_alloc(14);
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|11,a[1]=(C_word)f_20748,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t5,a[8]=t3,a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word)li545),tmp=(C_word)a,a+=12,tmp));
t7=((C_word*)t5)[1];
f_20748(t7,t1,t2,C_SCHEME_FALSE);}

/* lp in scan-digits in ##sys#string->compnum in k12856 in k11643 */
static void f_20748(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(61,0,3)))){
C_save_and_reclaim_args((void *)trf_20748,4,t0,t1,t2,t3);}
a=C_alloc(61);
t4=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(t4)){
if(C_truep(C_fixnum_greaterp(t2,((C_word*)t0)[3]))){
if(C_truep(t3)){
t5=C_s_a_i_minus(&a,2,t2,C_fix(1));
t6=C_s_a_i_minus(&a,2,t2,C_fix(1));
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=C_a_i_cons(&a,2,t5,t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_a_i_cons(&a,2,t2,C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t5=C_i_string_ref(((C_word*)t0)[4],t2);
if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[5],C_fix(10)))){
t6=(C_truep(C_u_i_char_greater_or_equal_p(t5,C_make_character(48)))?C_i_char_less_or_equal_p(t5,((C_word*)t0)[6]):C_SCHEME_FALSE);
if(C_truep(t6)){
/* library.scm:3100: lp */
t10=t1;
t11=C_fixnum_plus(t2,C_fix(1));
t12=C_SCHEME_FALSE;
t1=t10;
t2=t11;
t3=t12;
goto loop;}
else{
t7=C_fixnum_greaterp(t2,((C_word*)t0)[3]);
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=(C_truep(t7)?C_a_i_cons(&a,2,t2,t2):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
else{
t6=(C_truep(C_u_i_char_greater_or_equal_p(t5,C_make_character(48)))?C_u_i_char_less_or_equal_p(t5,C_make_character(57)):C_SCHEME_FALSE);
t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20819,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[5],a[5]=t5,a[6]=((C_word*)t0)[7],a[7]=t1,a[8]=((C_word*)t0)[3],a[9]=t3,tmp=(C_word)a,a+=10,tmp);
if(C_truep(t6)){
t8=t7;
f_20819(t8,t6);}
else{
t8=(C_truep(C_u_i_char_greater_or_equal_p(t5,C_make_character(97)))?C_i_char_less_or_equal_p(t5,((C_word*)t0)[9]):C_SCHEME_FALSE);
t9=t7;
f_20819(t9,(C_truep(t8)?t8:(C_truep(C_u_i_char_greater_or_equal_p(t5,C_make_character(65)))?C_i_char_less_or_equal_p(t5,((C_word*)t0)[10]):C_SCHEME_FALSE)));}}}}

/* k20817 in lp in scan-digits in ##sys#string->compnum in k12856 in k11643 */
static void f_20819(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){
C_save_and_reclaim_args((void *)trf_20819,2,t0,t1);}
a=C_alloc(13);
if(C_truep(t1)){
t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1));
if(C_truep(((C_word*)t0)[3])){
if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[4],C_fix(19)))){
t3=C_u_i_char_equalp(((C_word*)t0)[5],C_make_character(105));
if(C_truep(t3)){
/* library.scm:3105: lp */
t4=((C_word*)((C_word*)t0)[6])[1];
f_20748(t4,((C_word*)t0)[7],t2,t3);}
else{
/* library.scm:3105: lp */
t4=((C_word*)((C_word*)t0)[6])[1];
f_20748(t4,((C_word*)t0)[7],t2,C_u_i_char_equalp(((C_word*)t0)[5],C_make_character(73)));}}
else{
/* library.scm:3105: lp */
t3=((C_word*)((C_word*)t0)[6])[1];
f_20748(t3,((C_word*)t0)[7],t2,C_SCHEME_FALSE);}}
else{
/* library.scm:3105: lp */
t3=((C_word*)((C_word*)t0)[6])[1];
f_20748(t3,((C_word*)t0)[7],t2,C_SCHEME_FALSE);}}
else{
if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],((C_word*)t0)[8]))){
t2=(C_truep(((C_word*)t0)[9])?C_i_not(C_u_i_char_equalp(((C_word*)t0)[5],C_make_character(47))):C_SCHEME_FALSE);
if(C_truep(t2)){
t3=C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],C_fix(1));
t4=C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],C_fix(1));
t5=((C_word*)t0)[7];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_a_i_cons(&a,2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t3=((C_word*)t0)[7];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
else{
t2=((C_word*)t0)[7];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}

/* scan-hashes in ##sys#string->compnum in k12856 in k11643 */
static void f_20895(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_20895,3,t0,t1,t2);}
a=C_alloc(9);
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_20901,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word)li547),tmp=(C_word)a,a+=7,tmp));
t6=((C_word*)t4)[1];
f_20901(t6,t1,t2);}

/* lp in scan-hashes in ##sys#string->compnum in k12856 in k11643 */
static void f_20901(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_20901,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(t3)){
t4=C_fixnum_greaterp(t2,((C_word*)t0)[3]);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_a_i_cons(&a,2,t2,C_SCHEME_FALSE):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t5+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)){
/* library.scm:3120: lp */
t8=t1;
t9=C_fixnum_plus(t2,C_fix(1));
t1=t8;
t2=t9;
goto loop;}
else{
t6=C_fixnum_greaterp(t2,((C_word*)t0)[3]);
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=(C_truep(t6)?C_a_i_cons(&a,2,t2,t2):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}

/* scan-digits+hashes in ##sys#string->compnum in k12856 in k11643 */
static void f_20943(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_20943,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(11);
t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20947,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t1,a[9]=((C_word*)t0)[6],a[10]=t5,tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[4])[1]))){
/* library.scm:3124: scan-digits */
t7=((C_word*)t0)[7];
f_20742(t7,t6,t2,t4);}
else{
t7=t6;{
C_word av2[2];
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
f_20947(2,av2);}}}

/* k20945 in scan-digits+hashes in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_20947(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_20947,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20950,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
if(C_truep(t1)){
if(C_truep(C_i_cdr(t1))){
/* library.scm:3126: scan-hashes */
t3=((C_word*)t0)[9];
f_20895(t3,t2,C_u_i_cdr(t1));}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_20950(2,av2);}}}
else{
if(C_truep(((C_word*)t0)[10])){
/* library.scm:3127: scan-hashes */
t3=((C_word*)t0)[9];
f_20895(t3,t2,((C_word*)t0)[3]);}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_20950(2,av2);}}}}

/* k20948 in k20945 in scan-digits+hashes in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_20950(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_20950,c,av);}
a=C_alloc(9);
t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
if(C_truep(t2)){
t3=C_i_car(t2);
t4=C_s_a_i_digits_to_integer(&a,5,((C_word*)t0)[3],((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6]);
if(C_truep(t4)){
if(C_truep(t1)){
t5=C_set_block_item(((C_word*)t0)[7],0,C_SCHEME_TRUE);
t6=(
/* library.scm:3135: go-inexact! */
  f_20639(((C_word*)((C_word*)t0)[8])[1],((C_word*)t0)[6])
);
t7=C_u_i_cdr(t2);
t8=((C_word*)t0)[9];{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_a_i_cons(&a,2,t4,t7);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t5=C_u_i_cdr(t2);
t6=((C_word*)t0)[9];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_a_i_cons(&a,2,t4,t5);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t5=((C_word*)t0)[9];{
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)[9];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* scan-exponent in ##sys#string->compnum in k12856 in k11643 */
static void f_20999(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_20999,3,t0,t1,t2);}
a=C_alloc(7);
if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[2]))){
t3=C_i_string_ref(((C_word*)t0)[3],t2);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21012,a[2]=t2,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);
t5=C_eqp(t3,C_make_character(43));
if(C_truep(t5)){
t6=t4;
f_21012(t6,lf[730]);}
else{
t6=C_eqp(t3,C_make_character(45));
t7=t4;
f_21012(t7,(C_truep(t6)?lf[729]:C_SCHEME_FALSE));}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k21010 in scan-exponent in ##sys#string->compnum in k12856 in k11643 */
static void f_21012(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_21012,2,t0,t1);}
a=C_alloc(7);
t2=(C_truep(t1)?C_fixnum_plus(((C_word*)t0)[2],C_fix(1)):((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21018,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* library.scm:3143: scan-digits */
t4=((C_word*)t0)[6];
f_20742(t4,t3,t2,C_SCHEME_FALSE);}

/* k21016 in k21010 in scan-exponent in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21018(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_21018,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=C_i_car(t1);
t3=C_eqp(((C_word*)t0)[2],lf[729]);
t4=C_s_a_i_digits_to_integer(&a,5,((C_word*)t0)[3],((C_word*)t0)[4],t2,((C_word*)t0)[5],t3);
t5=C_u_i_cdr(t1);
t6=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_a_i_cons(&a,2,t4,t5);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t2=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* scan-decimal-tail in ##sys#string->compnum in k12856 in k11643 */
static void f_21052(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,5)))){
C_save_and_reclaim_args((void *)trf_21052,5,t0,t1,t2,t3,t4);}
a=C_alloc(11);
if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[2]))){
t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21062,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=C_SCHEME_UNDEFINED,a[6]=t1,a[7]=((C_word*)t0)[4],a[8]=t2,a[9]=t4,a[10]=((C_word*)t0)[5],tmp=(C_word)a,a+=11,tmp);
/* library.scm:3151: scan-digits+hashes */
t6=((C_word*)t0)[6];
f_20943(t6,t5,t2,t3,C_SCHEME_FALSE,t4);}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k21060 in scan-decimal-tail in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21062(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21062,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(C_truep(((C_word*)t0)[5])?C_i_cdr(((C_word*)t0)[5]):((C_word*)t0)[8]);
t4=C_mutate(((C_word *)t0)+2,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21071,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[9])){
t6=t5;
f_21071(t6,((C_word*)t0)[9]);}
else{
t6=C_i_not(((C_word*)t0)[2]);
t7=t5;
f_21071(t7,(C_truep(t6)?t6:C_fixnum_greaterp(((C_word*)t0)[2],((C_word*)t0)[8])));}}

/* k21069 in k21060 in scan-decimal-tail in ##sys#string->compnum in k12856 in k11643 */
static void f_21071(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_21071,2,t0,t1);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(C_truep(((C_word*)t2)[2])?C_i_string_ref(((C_word*)t2)[3],((C_word*)t2)[2]):C_SCHEME_FALSE);
t4=C_eqp(t3,C_make_character(101));
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21083,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],tmp=(C_word)a,a+=10,tmp);
if(C_truep(t4)){
t6=t5;
f_21083(t6,t4);}
else{
t6=C_eqp(t3,C_make_character(115));
if(C_truep(t6)){
t7=t5;
f_21083(t7,t6);}
else{
t7=C_eqp(t3,C_make_character(102));
if(C_truep(t7)){
t8=t5;
f_21083(t8,t7);}
else{
t8=C_eqp(t3,C_make_character(100));
if(C_truep(t8)){
t9=t5;
f_21083(t9,t8);}
else{
t9=C_eqp(t3,C_make_character(108));
if(C_truep(t9)){
t10=t5;
f_21083(t10,t9);}
else{
t10=C_eqp(t3,C_make_character(69));
if(C_truep(t10)){
t11=t5;
f_21083(t11,t10);}
else{
t11=C_eqp(t3,C_make_character(83));
if(C_truep(t11)){
t12=t5;
f_21083(t12,t11);}
else{
t12=C_eqp(t3,C_make_character(70));
if(C_truep(t12)){
t13=t5;
f_21083(t13,t12);}
else{
t13=C_eqp(t3,C_make_character(68));
t14=t5;
f_21083(t14,(C_truep(t13)?t13:C_eqp(t3,C_make_character(76))));}}}}}}}}}
else{
t3=((C_word*)t2)[6];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k21081 in k21069 in k21060 in scan-decimal-tail in ##sys#string->compnum in k12856 in k11643 */
static void f_21083(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_21083,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],((C_word*)t0)[3]))){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21092,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp);
/* library.scm:3159: scan-exponent */
t3=((C_word*)t0)[9];
f_20999(t3,t2,C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));}
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);}}}
else{
t2=(C_truep(((C_word*)t0)[3])?((C_word*)t0)[3]:((C_word*)t0)[2]);
t3=(C_truep(((C_word*)t0)[4])?C_fixnum_difference(((C_word*)t0)[7],t2):C_SCHEME_FALSE);
t4=(C_truep(((C_word*)t0)[4])?C_i_car(((C_word*)t0)[4]):C_SCHEME_FALSE);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21158,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:3169: safe-exponent */
t6=((C_word*)((C_word*)t0)[6])[1];
f_20653(t6,t5,t4,t3);}}

/* k21090 in k21081 in k21069 in k21060 in scan-decimal-tail in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21092(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_21092,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=C_i_car(t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21104,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
/* library.scm:3161: safe-exponent */
t4=((C_word*)((C_word*)t0)[4])[1];
f_20653(t4,t3,((C_word*)t0)[6],t2);}
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{
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);}}}

/* k21102 in k21090 in k21081 in k21069 in k21060 in scan-decimal-tail in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21104(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_21104,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21110,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)t0)[2])){
t3=C_i_cdr(((C_word*)t0)[2]);
t4=t2;
f_21110(t4,C_fixnum_difference(((C_word*)t0)[6],C_fixnum_difference(t3,((C_word*)t0)[7])));}
else{
t3=t2;
f_21110(t3,C_SCHEME_FALSE);}}
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);}}}

/* k21108 in k21102 in k21090 in k21081 in k21069 in k21060 in scan-decimal-tail in ##sys#string->compnum in k12856 in k11643 */
static void f_21110(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_21110,2,t0,t1);}
a=C_alloc(5);
t2=(C_truep(((C_word*)t0)[2])?C_i_car(((C_word*)t0)[2]):C_SCHEME_FALSE);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21116,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* library.scm:3164: safe-exponent */
t4=((C_word*)((C_word*)t0)[6])[1];
f_20653(t4,t3,t2,t1);}

/* k21114 in k21108 in k21102 in k21090 in k21081 in k21069 in k21060 in scan-decimal-tail in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21116(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){
C_save_and_reclaim((void *)f_21116,c,av);}
a=C_alloc(32);
if(C_truep(t1)){
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1);
t3=C_u_i_cdr(((C_word*)t0)[3]);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t2=C_u_i_cdr(((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[2],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k21156 in k21081 in k21069 in k21060 in scan-decimal-tail in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21158(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){
C_save_and_reclaim((void *)f_21158,c,av);}
a=C_alloc(32);
t2=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[2]:C_fix(0));
if(C_truep(t1)){
t3=C_s_a_i_plus(&a,2,t2,t1);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,t3,((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_a_i_cons(&a,2,t2,((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* scan-ureal in ##sys#string->compnum in k12856 in k11643 */
static void f_21264(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){
C_save_and_reclaim_args((void *)trf_21264,5,t0,t1,t2,t3,t4);}
a=C_alloc(16);
t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_21271,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[11],a[15]=t4,tmp=(C_word)a,a+=16,tmp);
t6=C_fixnum_plus(t2,C_fix(1));
if(C_truep(C_fixnum_greaterp(((C_word*)t0)[6],t6))){
t7=C_eqp(((C_word*)t0)[5],C_fix(10));
t8=t5;
f_21271(t8,(C_truep(t7)?C_eqp(C_i_string_ref(((C_word*)t0)[4],t2),C_make_character(46)):C_SCHEME_FALSE));}
else{
t7=t5;
f_21271(t7,C_SCHEME_FALSE);}}

/* k21269 in scan-ureal in ##sys#string->compnum in k12856 in k11643 */
static void f_21271(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,5)))){
C_save_and_reclaim_args((void *)trf_21271,2,t0,t1);}
a=C_alloc(15);
if(C_truep(t1)){
t2=(
/* library.scm:3177: go-inexact! */
  f_20639(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3])
);
/* library.scm:3178: scan-decimal-tail */
t3=((C_word*)t0)[4];
f_21052(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[6],C_fix(1)),((C_word*)t0)[3],C_SCHEME_FALSE);}
else{
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_21284,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],tmp=(C_word)a,a+=15,tmp);
/* library.scm:3179: scan-digits+hashes */
t3=((C_word*)t0)[14];
f_20943(t3,t2,((C_word*)t0)[6],((C_word*)t0)[3],((C_word*)t0)[15],C_SCHEME_FALSE);}}

/* k21282 in k21269 in scan-ureal in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21284(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_21284,c,av);}
a=C_alloc(15);
if(C_truep(t1)){
t2=C_i_cdr(t1);
t3=(C_truep(t2)?C_i_string_ref(((C_word*)t0)[2],C_u_i_cdr(t1)):C_SCHEME_FALSE);
t4=C_eqp(t3,C_make_character(46));
if(C_truep(t4)){
t5=(
/* library.scm:3182: go-inexact! */
  f_20639(((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4])
);
t6=C_eqp(((C_word*)t0)[5],C_fix(10));
if(C_truep(t6)){
t7=C_fixnum_plus(C_u_i_cdr(t1),C_fix(1));
if(C_truep(C_fixnum_greaterp(((C_word*)t0)[6],t7))){
/* library.scm:3185: scan-decimal-tail */
t8=((C_word*)t0)[7];
f_21052(t8,((C_word*)t0)[8],C_fixnum_plus(C_u_i_cdr(t1),C_fix(1)),((C_word*)t0)[4],C_u_i_car(t1));}
else{
t8=C_u_i_car(t1);
t9=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t9;
av2[1]=C_a_i_cons(&a,2,t8,C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t7=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
else{
t5=C_eqp(t3,C_make_character(101));
t6=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_21342,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]=((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]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp);
if(C_truep(t5)){
t7=t6;
f_21342(t7,t5);}
else{
t7=C_eqp(t3,C_make_character(115));
if(C_truep(t7)){
t8=t6;
f_21342(t8,t7);}
else{
t8=C_eqp(t3,C_make_character(102));
if(C_truep(t8)){
t9=t6;
f_21342(t9,t8);}
else{
t9=C_eqp(t3,C_make_character(100));
if(C_truep(t9)){
t10=t6;
f_21342(t10,t9);}
else{
t10=C_eqp(t3,C_make_character(108));
if(C_truep(t10)){
t11=t6;
f_21342(t11,t10);}
else{
t11=C_eqp(t3,C_make_character(69));
if(C_truep(t11)){
t12=t6;
f_21342(t12,t11);}
else{
t12=C_eqp(t3,C_make_character(83));
if(C_truep(t12)){
t13=t6;
f_21342(t13,t12);}
else{
t13=C_eqp(t3,C_make_character(70));
if(C_truep(t13)){
t14=t6;
f_21342(t14,t13);}
else{
t14=C_eqp(t3,C_make_character(68));
t15=t6;
f_21342(t15,(C_truep(t14)?t14:C_eqp(t3,C_make_character(76))));}}}}}}}}}}
else{
t2=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k21340 in k21282 in k21269 in scan-ureal in ##sys#string->compnum in k12856 in k11643 */
static void f_21342(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){
C_save_and_reclaim_args((void *)trf_21342,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(
/* library.scm:3189: go-inexact! */
  f_20639(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3])
);
t3=C_eqp(((C_word*)t0)[4],C_fix(10));
if(C_truep(t3)){
if(C_truep(C_fixnum_greaterp(((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[6])))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21360,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
/* library.scm:3192: scan-exponent */
t5=((C_word*)t0)[9];
f_20999(t5,t4,C_fixnum_plus(C_u_i_cdr(((C_word*)t0)[6]),C_fix(1)));}
else{
t4=((C_word*)t0)[7];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t4=((C_word*)t0)[7];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t2=C_eqp(((C_word*)t0)[10],C_make_character(47));
if(C_truep(t2)){
t3=C_set_block_item(((C_word*)t0)[11],0,C_SCHEME_FALSE);
if(C_truep(C_fixnum_greaterp(((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[6])))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21406,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[12],tmp=(C_word)a,a+=5,tmp);
/* library.scm:3199: scan-digits+hashes */
t5=((C_word*)t0)[13];
f_20943(t5,t4,C_fixnum_plus(C_u_i_cdr(((C_word*)t0)[6]),C_fix(1)),C_SCHEME_FALSE,((C_word*)t0)[14],C_SCHEME_FALSE);}
else{
t4=((C_word*)t0)[7];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t3=((C_word*)t0)[7];{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}

/* k21358 in k21340 in k21282 in k21269 in scan-ureal in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21360(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_21360,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=C_u_i_car(((C_word*)t0)[2]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21370,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:3194: safe-exponent */
t4=((C_word*)((C_word*)t0)[4])[1];
f_20653(t4,t3,t2,C_i_car(t1));}
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{
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);}}}

/* k21368 in k21358 in k21340 in k21282 in k21269 in scan-ureal in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21370(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_21370,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,t1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k21404 in k21340 in k21282 in k21269 in scan-ureal in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21406(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_21406,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=C_u_i_car(((C_word*)t0)[2]);
if(C_truep(t2)){
t3=C_i_car(t1);
if(C_truep(t3)){
t4=C_eqp(t3,C_fix(0));
if(C_truep(C_i_not(t4))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21432,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:3203: ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t5;
av2[2]=t2;
av2[3]=t3;
tp(4,av2);}}
else{
t5=C_eqp(((C_word*)((C_word*)t0)[4])[1],lf[725]);
if(C_truep(C_i_not(t5))){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21443,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:3207: chicken.base#signum */
t7=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}
else{
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
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{
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);}}}

/* k21430 in k21404 in k21340 in k21282 in k21269 in scan-ureal in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21432(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_21432,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);}}

/* k21441 in k21404 in k21340 in k21282 in k21269 in scan-ureal in ##sys#string->compnum in k12856 in k11643 */
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 t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){
C_save_and_reclaim((void *)f_21443,c,av);}
a=C_alloc(7);
switch(t1){
case C_fix(-1):
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[728],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}
case C_fix(0):
t2=C_flonum(&a,C_ub_i_flonum_quotient((double)0.0,(double)0.0));
t3=C_u_i_cdr(((C_word*)t0)[2]);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}
case C_fix(1):
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[727],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}
default:
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);}}}

/* scan-real in ##sys#string->compnum in k12856 in k11643 */
static void f_21606(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_21606,4,t0,t1,t2,t3);}
a=C_alloc(10);
if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[2]))){
t4=C_i_string_ref(((C_word*)t0)[3],t2);
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21619,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=t3,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
t6=C_eqp(t4,C_make_character(43));
if(C_truep(t6)){
t7=t5;
f_21619(t7,lf[730]);}
else{
t7=C_eqp(t4,C_make_character(45));
t8=t5;
f_21619(t8,(C_truep(t7)?lf[729]:C_SCHEME_FALSE));}}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k21617 in scan-real in ##sys#string->compnum in k12856 in k11643 */
static void f_21619(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){
C_save_and_reclaim_args((void *)trf_21619,2,t0,t1);}
a=C_alloc(17);
t2=(C_truep(t1)?C_fixnum_plus(((C_word*)t0)[2],C_fix(1)):((C_word*)t0)[2]);
if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[3]))){
t3=C_i_string_ref(((C_word*)t0)[4],t2);
t4=C_eqp(t3,C_make_character(105));
t5=(C_truep(t4)?t4:C_eqp(t3,C_make_character(73)));
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21642,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t2,a[5]=t1,a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t1)){
t7=C_fixnum_plus(t2,C_fix(1));
t8=C_eqp(t7,((C_word*)t0)[3]);
t9=(C_truep(t8)?(C_truep(((C_word*)t0)[7])?((C_word*)t0)[7]:C_fixnum_lessp(((C_word*)t0)[8],C_fix(19))):C_SCHEME_FALSE);
if(C_truep(t9)){
t10=C_eqp(t1,lf[729]);
t11=t6;
f_21642(t11,(C_truep(t10)?C_a_i_cons(&a,2,C_fix(-1),t2):C_a_i_cons(&a,2,C_fix(1),t2)));}
else{
t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21674,a[2]=((C_word*)t0)[9],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t6,tmp=(C_word)a,a+=7,tmp);
t11=C_fixnum_plus(t2,C_fix(5));
if(C_truep(C_fixnum_less_or_equal_p(t11,((C_word*)t0)[3]))){
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21712,a[2]=t10,tmp=(C_word)a,a+=3,tmp);
/* library.scm:3229: scheme#substring */
t13=*((C_word*)lf[498]+1);{
C_word av2[5];
av2[0]=t13;
av2[1]=t12;
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
av2[4]=C_fixnum_plus(t2,C_fix(5));
((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}}
else{
t12=t10;
f_21674(t12,C_SCHEME_FALSE);}}}
else{
t7=t6;
f_21642(t7,C_SCHEME_FALSE);}}
else{
t6=C_eqp(t3,C_make_character(110));
t7=(C_truep(t6)?t6:C_eqp(t3,C_make_character(78)));
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21746,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t2,a[5]=t1,a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t1)){
t9=C_fixnum_plus(t2,C_fix(5));
if(C_truep(C_fixnum_less_or_equal_p(t9,((C_word*)t0)[3]))){
t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21769,a[2]=((C_word*)t0)[9],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t8,tmp=(C_word)a,a+=7,tmp);
/* library.scm:3239: scheme#substring */
t11=*((C_word*)lf[498]+1);{
C_word av2[5];
av2[0]=t11;
av2[1]=t10;
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
av2[4]=C_fixnum_plus(t2,C_fix(5));
((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}
else{
t10=t8;
f_21746(t10,C_SCHEME_FALSE);}}
else{
t9=t8;
f_21746(t9,C_SCHEME_FALSE);}}
else{
/* library.scm:3245: scan-ureal */
t8=((C_word*)t0)[6];
f_21264(t8,((C_word*)t0)[5],t2,C_eqp(t1,lf[729]),((C_word*)t0)[7]);}}}
else{
t3=((C_word*)t0)[5];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k21640 in k21617 in scan-real in ##sys#string->compnum in k12856 in k11643 */
static void f_21642(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_21642,2,t0,t1);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* library.scm:3235: scan-ureal */
t2=((C_word*)t0)[3];
f_21264(t2,((C_word*)t0)[2],((C_word*)t0)[4],C_eqp(((C_word*)t0)[5],lf[729]),((C_word*)t0)[6]);}}

/* k21672 in k21617 in scan-real in ##sys#string->compnum in k12856 in k11643 */
static void f_21674(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,1)))){
C_save_and_reclaim_args((void *)trf_21674,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(
/* library.scm:3230: go-inexact! */
  f_20639(((C_word*)((C_word*)t0)[2])[1],C_eqp(((C_word*)t0)[3],lf[729]))
);
t3=C_eqp(((C_word*)t0)[3],lf[729]);
t4=(C_truep(t3)?lf[728]:lf[727]);
t5=C_fixnum_plus(((C_word*)t0)[4],C_fix(5));
if(C_truep(C_fixnum_lessp(t5,((C_word*)t0)[5]))){
t6=C_fixnum_plus(((C_word*)t0)[4],C_fix(5));
t7=((C_word*)t0)[6];
f_21642(t7,C_a_i_cons(&a,2,t4,t6));}
else{
t6=((C_word*)t0)[6];
f_21642(t6,C_a_i_cons(&a,2,t4,C_SCHEME_FALSE));}}
else{
t2=((C_word*)t0)[6];
f_21642(t2,C_SCHEME_FALSE);}}

/* k21710 in k21617 in scan-real in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21712(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21712,c,av);}
t2=((C_word*)t0)[2];
f_21674(t2,C_i_string_ci_equal_p(t1,lf[731]));}

/* k21744 in k21617 in scan-real in ##sys#string->compnum in k12856 in k11643 */
static void f_21746(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_21746,2,t0,t1);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* library.scm:3244: scan-ureal */
t2=((C_word*)t0)[3];
f_21264(t2,((C_word*)t0)[2],((C_word*)t0)[4],C_eqp(((C_word*)t0)[5],lf[729]),((C_word*)t0)[6]);}}

/* k21767 in k21617 in scan-real in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21769(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){
C_save_and_reclaim((void *)f_21769,c,av);}
a=C_alloc(7);
if(C_truep(C_i_string_ci_equal_p(t1,lf[732]))){
t2=(
/* library.scm:3240: go-inexact! */
  f_20639(((C_word*)((C_word*)t0)[2])[1],C_eqp(((C_word*)t0)[3],lf[729]))
);
t3=C_flonum(&a,C_ub_i_flonum_quotient((double)0.0,(double)0.0));
t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(5));
if(C_truep(C_fixnum_lessp(t4,((C_word*)t0)[5]))){
t5=C_fixnum_plus(((C_word*)t0)[4],C_fix(5));
t6=((C_word*)t0)[6];
f_21746(t6,C_a_i_cons(&a,2,t3,t5));}
else{
t5=((C_word*)t0)[6];
f_21746(t5,C_a_i_cons(&a,2,t3,C_SCHEME_FALSE));}}
else{
t2=((C_word*)t0)[6];
f_21746(t2,C_SCHEME_FALSE);}}

/* k21844 in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21846(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_21846,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21849,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21878,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
if(C_truep(t1)){
t4=C_i_car(t1);
if(C_truep(C_i_zerop(t4))){
t5=((C_word*)((C_word*)t0)[3])[1];
t6=t3;
f_21878(t6,t5);}
else{
t5=t3;
f_21878(t5,C_SCHEME_FALSE);}}
else{
t4=t3;
f_21878(t4,C_SCHEME_FALSE);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_21849(2,av2);}}}

/* k21847 in k21844 in ##sys#string->compnum in k12856 in k11643 */
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_21849,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[726]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21861,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* library.scm:3277: scheme#exact->inexact */
t4=*((C_word*)lf[86]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(C_i_finitep(t1))?t1:C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+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);}}}

/* k21859 in k21847 in k21844 in ##sys#string->compnum in k12856 in k11643 */
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21861,c,av);}
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
if(C_truep(C_u_i_zerop2(t1))){
/* library.scm:3280: chicken.flonum#fpneg */
t2=*((C_word*)lf[559]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
else{
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_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k21876 in k21844 in ##sys#string->compnum in k12856 in k11643 */
static void f_21878(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){
C_save_and_reclaim_args((void *)trf_21878,2,t0,t1);}
a=C_alloc(29);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=(C_truep(t2)?C_i_string_ref(((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[2])):C_SCHEME_FALSE);
t4=C_eqp(t3,C_SCHEME_FALSE);
if(C_truep(t4)){
t5=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_u_i_car(((C_word*)t0)[2]);
f_21849(2,av2);}}
else{
t5=C_eqp(t3,C_make_character(105));
t6=(C_truep(t5)?t5:C_eqp(t3,C_make_character(73)));
if(C_truep(t6)){
t7=C_fixnum_plus(C_u_i_cdr(((C_word*)t0)[2]),C_fix(1));
t8=C_eqp(((C_word*)t0)[5],t7);
if(C_truep(t8)){
t9=C_i_string_ref(((C_word*)t0)[3],((C_word*)t0)[6]);
t10=C_eqp(t9,C_make_character(43));
t11=(C_truep(t10)?t10:C_eqp(C_i_string_ref(((C_word*)t0)[3],((C_word*)t0)[6]),C_make_character(45)));
if(C_truep(t11)){
if(C_truep(t1)){
t12=C_u_i_car(((C_word*)t0)[2]);
t13=C_s_a_i_negate(&a,1,t12);
/* library.scm:3253: scheme#make-rectangular */
t14=*((C_word*)lf[614]+1);{
C_word av2[4];
av2[0]=t14;
av2[1]=((C_word*)t0)[4];
av2[2]=C_fix(0);
av2[3]=t13;
((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}
else{
/* library.scm:3253: scheme#make-rectangular */
t12=*((C_word*)lf[614]+1);{
C_word av2[4];
av2[0]=t12;
av2[1]=((C_word*)t0)[4];
av2[2]=C_fix(0);
av2[3]=C_u_i_car(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}}}
else{
t12=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
f_21849(2,av2);}}}
else{
t9=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t9;
av2[1]=C_SCHEME_FALSE;
f_21849(2,av2);}}}
else{
t7=C_eqp(t3,C_make_character(43));
t8=(C_truep(t7)?t7:C_eqp(t3,C_make_character(45)));
if(C_truep(t8)){
t9=C_set_block_item(((C_word*)t0)[7],0,C_SCHEME_FALSE);
t10=C_set_block_item(((C_word*)t0)[8],0,C_SCHEME_FALSE);
t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21952,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp);
/* library.scm:3257: scan-real */
t12=((C_word*)t0)[10];
f_21606(t12,t11,C_u_i_cdr(((C_word*)t0)[2]),C_SCHEME_TRUE);}
else{
t9=C_eqp(t3,C_make_character(64));
if(C_truep(t9)){
t10=C_set_block_item(((C_word*)t0)[7],0,C_SCHEME_FALSE);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22054,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:3272: scan-real */
t12=((C_word*)t0)[10];
f_21606(t12,t11,C_fixnum_plus(C_u_i_cdr(((C_word*)t0)[2]),C_fix(1)),C_SCHEME_FALSE);}
else{
t10=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t10;
av2[1]=C_SCHEME_FALSE;
f_21849(2,av2);}}}}}}

/* k21950 in k21876 in k21844 in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21952(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_21952,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
if(C_truep(C_i_cdr(t1))){
t2=C_fixnum_plus(C_u_i_cdr(t1),C_fix(1));
t3=C_eqp(((C_word*)t0)[2],t2);
if(C_truep(t3)){
t4=C_i_string_ref(((C_word*)t0)[3],C_u_i_cdr(t1));
t5=C_eqp(t4,C_make_character(105));
t6=(C_truep(t5)?t5:C_eqp(C_i_string_ref(((C_word*)t0)[3],C_u_i_cdr(t1)),C_make_character(73)));
if(C_truep(t6)){
t7=C_u_i_car(((C_word*)t0)[4]);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21985,a[2]=((C_word*)t0)[5],a[3]=t7,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
t9=C_i_exactp(C_u_i_car(t1));
t10=(C_truep(t9)?C_eqp(((C_word*)((C_word*)t0)[7])[1],lf[726]):C_SCHEME_FALSE);
if(C_truep(t10)){
/* library.scm:3265: scheme#exact->inexact */
t11=*((C_word*)lf[86]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t11;
av2[1]=t8;
av2[2]=C_u_i_car(t1);
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t11=t8;{
C_word *av2=av;
av2[0]=t11;
av2[1]=C_u_i_car(t1);
f_21985(2,av2);}}}
else{
t7=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
f_21849(2,av2);}}}
else{
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_21849(2,av2);}}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_21849(2,av2);}}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_21849(2,av2);}}}

/* k21983 in k21950 in k21876 in k21844 in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_21985(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_21985,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21991,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_word*)((C_word*)t0)[4])[1])){
t3=C_i_greater_or_equalp(t1,C_fix(0));
t4=t2;
f_21991(t4,(C_truep(t3)?C_i_not(C_i_eqvp(t1,lf[719])):C_SCHEME_FALSE));}
else{
t3=t2;
f_21991(t3,C_SCHEME_FALSE);}}

/* k21989 in k21983 in k21950 in k21876 in k21844 in ##sys#string->compnum in k12856 in k11643 */
static void f_21991(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){
C_save_and_reclaim_args((void *)trf_21991,2,t0,t1);}
a=C_alloc(29);
if(C_truep(t1)){
t2=C_s_a_i_negate(&a,1,((C_word*)t0)[2]);
/* library.scm:3262: scheme#make-rectangular */
t3=*((C_word*)lf[614]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
/* library.scm:3262: scheme#make-rectangular */
t2=*((C_word*)lf[614]+1);{
C_word av2[4];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}

/* k22052 in k21876 in k21844 in ##sys#string->compnum in k12856 in k11643 */
static void C_ccall f_22054(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22054,c,av);}
if(C_truep(t1)){
t2=C_i_cdr(t1);
if(C_truep(C_i_not(t2))){
/* library.scm:3274: scheme#make-polar */
t3=*((C_word*)lf[616]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=C_u_i_car(((C_word*)t0)[3]);
av2[3]=C_u_i_car(t1);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_21849(2,av2);}}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_21849(2,av2);}}}

/* scheme#string->number in k12856 in k11643 */
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=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_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_22139,c,av);}
a=C_alloc(5);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_fix(10):C_get_rest_arg(c,3,av,3,t0));
t5=C_i_check_string_2(t2,lf[734]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22149,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_fixnump(t4))){
if(C_truep(C_fixnum_lessp(C_fix(1),t4))){
if(C_truep(C_fixnum_lessp(t4,C_fix(37)))){
t7=t6;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_UNDEFINED;
f_22149(2,av2);}}
else{
/* library.scm:3289: ##sys#error-bad-base */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[451]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[451]+1);
av2[1]=t6;
av2[2]=t4;
av2[3]=lf[734];
tp(4,av2);}}}
else{
/* library.scm:3289: ##sys#error-bad-base */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[451]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[451]+1);
av2[1]=t6;
av2[2]=t4;
av2[3]=lf[734];
tp(4,av2);}}}
else{
/* library.scm:3289: ##sys#error-bad-base */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[451]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[451]+1);
av2[1]=t6;
av2[2]=t4;
av2[3]=lf[734];
tp(4,av2);}}}

/* k22147 in scheme#string->number in k12856 in k11643 */
static void C_ccall f_22149(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,6)))){
C_save_and_reclaim((void *)f_22149,c,av);}
a=C_alloc(8);
t2=C_u_i_string_length(((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|5,a[1]=(C_word)f_22156,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word)li555),tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_22156(t6,((C_word*)t0)[4],C_fix(0),C_SCHEME_FALSE,C_SCHEME_FALSE,t2);}

/* scan-prefix in k22147 in scheme#string->number in k12856 in k11643 */
static void f_22156(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 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;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_22156,6,t0,t1,t2,t3,t4,t5);}
t6=C_fixnum_plus(t2,C_fix(2));
t7=C_fixnum_lessp(t6,t5);
t8=(C_truep(t7)?C_eqp(C_i_string_ref(((C_word*)t0)[2],t2),C_make_character(35)):C_SCHEME_FALSE);
if(C_truep(t8)){
t9=C_fixnum_plus(t2,C_fix(1));
t10=C_i_string_ref(((C_word*)t0)[2],t9);
t11=C_eqp(t10,C_make_character(105));
t12=(C_truep(t11)?t11:C_eqp(t10,C_make_character(73)));
if(C_truep(t12)){
if(C_truep(C_i_not(t3))){
/* library.scm:3296: scan-prefix */
t24=t1;
t25=C_fixnum_plus(t2,C_fix(2));
t26=lf[726];
t27=t4;
t28=t5;
t1=t24;
t2=t25;
t3=t26;
t4=t27;
t5=t28;
goto loop;}
else{
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(t10,C_make_character(101));
t14=(C_truep(t13)?t13:C_eqp(t10,C_make_character(69)));
if(C_truep(t14)){
if(C_truep(C_i_not(t3))){
/* library.scm:3297: scan-prefix */
t24=t1;
t25=C_fixnum_plus(t2,C_fix(2));
t26=lf[725];
t27=t4;
t28=t5;
t1=t24;
t2=t25;
t3=t26;
t4=t27;
t5=t28;
goto loop;}
else{
t15=t1;{
C_word av2[2];
av2[0]=t15;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}}
else{
t15=C_eqp(t10,C_make_character(98));
t16=(C_truep(t15)?t15:C_eqp(t10,C_make_character(66)));
if(C_truep(t16)){
if(C_truep(C_i_not(t4))){
/* library.scm:3298: scan-prefix */
t24=t1;
t25=C_fixnum_plus(t2,C_fix(2));
t26=t3;
t27=C_fix(2);
t28=t5;
t1=t24;
t2=t25;
t3=t26;
t4=t27;
t5=t28;
goto loop;}
else{
t17=t1;{
C_word av2[2];
av2[0]=t17;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}}
else{
t17=C_eqp(t10,C_make_character(111));
t18=(C_truep(t17)?t17:C_eqp(t10,C_make_character(79)));
if(C_truep(t18)){
if(C_truep(C_i_not(t4))){
/* library.scm:3299: scan-prefix */
t24=t1;
t25=C_fixnum_plus(t2,C_fix(2));
t26=t3;
t27=C_fix(8);
t28=t5;
t1=t24;
t2=t25;
t3=t26;
t4=t27;
t5=t28;
goto loop;}
else{
t19=t1;{
C_word av2[2];
av2[0]=t19;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}}
else{
t19=C_eqp(t10,C_make_character(100));
t20=(C_truep(t19)?t19:C_eqp(t10,C_make_character(68)));
if(C_truep(t20)){
if(C_truep(C_i_not(t4))){
/* library.scm:3300: scan-prefix */
t24=t1;
t25=C_fixnum_plus(t2,C_fix(2));
t26=t3;
t27=C_fix(10);
t28=t5;
t1=t24;
t2=t25;
t3=t26;
t4=t27;
t5=t28;
goto loop;}
else{
t21=t1;{
C_word av2[2];
av2[0]=t21;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}}
else{
t21=C_eqp(t10,C_make_character(120));
t22=(C_truep(t21)?t21:C_eqp(t10,C_make_character(88)));
if(C_truep(t22)){
if(C_truep(C_i_not(t4))){
/* library.scm:3301: scan-prefix */
t24=t1;
t25=C_fixnum_plus(t2,C_fix(2));
t26=t3;
t27=C_fix(16);
t28=t5;
t1=t24;
t2=t25;
t3=t26;
t4=t27;
t5=t28;
goto loop;}
else{
t23=t1;{
C_word av2[2];
av2[0]=t23;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}}
else{
t23=t1;{
C_word av2[2];
av2[0]=t23;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}}}}}}}
else{
if(C_truep(t4)){
/* library.scm:3303: ##sys#string->compnum */
f_20635(t1,t4,((C_word*)t0)[2],t2,t3);}
else{
/* library.scm:3303: ##sys#string->compnum */
f_20635(t1,((C_word*)t0)[4],((C_word*)t0)[2],t2,t3);}}}

/* ##sys#string->number in k12856 in k11643 */
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=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_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_22388,c,av);}
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_fix(10):C_get_rest_arg(c,3,av,3,t0));
t5=C_rest_nullp(c,3);
t6=C_rest_nullp(c,4);
t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
if(C_truep(C_rest_nullp(c,4))){
/* library.scm:3306: ##sys#string->compnum */
f_20635(t1,t4,t2,C_fix(0),t7);}
else{
/* library.scm:3306: ##sys#string->compnum */
f_20635(t1,t4,t2,C_fix(0),t7);}}

/* chicken.base#equal=? in k12856 in k11643 */
static void C_ccall f_22434(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){
C_save_and_reclaim((void *)f_22434,c,av);}
a=C_alloc(13);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22437,a[2]=t7,a[3]=((C_word)li562),tmp=(C_word)a,a+=4,tmp));
t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22505,a[2]=t5,a[3]=t7,a[4]=((C_word)li563),tmp=(C_word)a,a+=5,tmp));
/* library.scm:3351: walk */
t10=((C_word*)t7)[1];
f_22505(t10,t1,t2,t3);}

/* compare-slots in chicken.base#equal=? in k12856 in k11643 */
static void f_22437(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_22437,5,t0,t1,t2,t3,t4);}
a=C_alloc(10);
t5=C_block_size(t2);
t6=C_block_size(t3);
t7=C_eqp(t5,t6);
if(C_truep(t7)){
t8=C_fixnum_less_or_equal_p(t5,t4);
if(C_truep(t8)){
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t9=C_fixnum_difference(t5,C_fix(1));
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|7,a[1]=(C_word)f_22464,a[2]=t9,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,a[6]=t11,a[7]=((C_word)li561),tmp=(C_word)a,a+=8,tmp));
t13=((C_word*)t11)[1];
f_22464(t13,t1,t4);}}
else{
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}

/* loop in compare-slots in chicken.base#equal=? in k12856 in k11643 */
static void f_22464(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_22464,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(t3)){
/* library.scm:3323: walk */
t4=((C_word*)((C_word*)t0)[3])[1];
f_22505(t4,t1,C_slot(((C_word*)t0)[4],t2),C_slot(((C_word*)t0)[5],t2));}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22488,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:3324: walk */
t5=((C_word*)((C_word*)t0)[3])[1];
f_22505(t5,t4,C_slot(((C_word*)t0)[4],t2),C_slot(((C_word*)t0)[5],t2));}}

/* k22486 in loop in compare-slots in chicken.base#equal=? in k12856 in k11643 */
static void C_ccall f_22488(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22488,c,av);}
if(C_truep(t1)){
/* library.scm:3325: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_22464(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* walk in chicken.base#equal=? in k12856 in k11643 */
static void f_22505(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_22505,4,t0,t1,t2,t3);}
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{
if(C_truep(C_i_numberp(t2))){
t5=C_i_numberp(t3);
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=(C_truep(t5)?C_i_nequalp(t2,t3):C_eqp(t2,t3));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
if(C_truep(C_i_not(C_blockp(t2)))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
if(C_truep(C_i_not(C_blockp(t3)))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
if(C_truep(C_i_not(C_sametypep(t2,t3)))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
if(C_truep(C_specialp(t2))){
if(C_truep(C_specialp(t3))){
if(C_truep(C_closurep(t2))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=shallow_equal(t2,t3);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
/* library.scm:3339: compare-slots */
t5=((C_word*)((C_word*)t0)[2])[1];
f_22437(t5,t1,t2,t3,C_fix(1));}}
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{
if(C_truep(C_stringp(t2))){
/* library.scm:3341: walk */
t9=t1;
t10=C_slot(t2,C_fix(0));
t11=C_slot(t3,C_fix(0));
t1=t9;
t2=t10;
t3=t11;
goto loop;}
else{
if(C_truep(C_byteblockp(t2))){
if(C_truep(C_byteblockp(t3))){
t5=C_block_size(t2);
t6=C_block_size(t3);
t7=C_eqp(t5,t6);
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=(C_truep(t7)?C_bv_compare(t2,t3,t5):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t5=C_block_size(t2);
t6=C_block_size(t3);
t7=C_eqp(t5,t6);
if(C_truep(t7)){
/* library.scm:3350: compare-slots */
t8=((C_word*)((C_word*)t0)[2])[1];
f_22437(t8,t1,t2,t3,C_fix(0));}
else{
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}}}}}}}}

/* ##sys#interned-symbol? in k12856 in k11643 */
static void C_ccall f_22621(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22621,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_lookup_symbol(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#string->symbol-name in k12856 in k11643 */
static void C_ccall f_22624(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_22624,c,av);}
a=C_alloc(5);
t3=C_slot(t2,C_fix(0));
t4=C_block_size(t3);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22634,a[2]=t1,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
/* library.scm:3365: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t5;
av2[2]=t4;
tp(3,av2);}}

/* k22632 in ##sys#string->symbol-name in k12856 in k11643 */
static void C_ccall f_22634(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22634,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_copy_bytevector(((C_word*)t0)[3],t1,((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* ##sys#symbol->string/shared in k12856 in k11643 */
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=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_22636,c,av);}
a=C_alloc(5);
t3=C_slot(t2,C_fix(1));
t4=C_utf_length(t3);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_a_ustring(&a,2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#symbol->string in k12856 in k11643 */
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=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_22642,c,av);}
a=C_alloc(5);
t3=C_slot(t2,C_fix(1));
t4=C_block_size(t3);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22652,a[2]=t3,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:3378: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t5;
av2[2]=t4;
tp(3,av2);}}

/* k22650 in ##sys#symbol->string in k12856 in k11643 */
static void C_ccall f_22652(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_22652,c,av);}
a=C_alloc(5);
t2=C_utf_length(((C_word*)t0)[2]);
t3=C_copy_bytevector(((C_word*)t0)[2],t1,((C_word*)t0)[3]);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_ustring(&a,2,t3,t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#string->symbol in k12856 in k11643 */
static void C_ccall f_22655(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22655,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22663,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:3385: ##sys#string->symbol-name */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[746]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[746]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k22661 in ##sys#string->symbol in k12856 in k11643 */
static void C_ccall f_22663(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22663,c,av);}
/* library.scm:3385: ##sys#intern-symbol */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[742]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[742]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* scheme#symbol->string in k12856 in k11643 */
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=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22665,c,av);}
t3=C_i_check_symbol_2(t2,lf[751]);
/* library.scm:3390: ##sys#symbol->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[748]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[748]+1);
av2[1]=t1;
av2[2]=t2;
tp(3,av2);}}

/* scheme#string->symbol in k12856 in k11643 */
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=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22674,c,av);}
t3=C_i_check_string_2(t2,lf[753]);
/* library.scm:3395: ##sys#string->symbol */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[749]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[749]+1);
av2[1]=t1;
av2[2]=t2;
tp(3,av2);}}

/* chicken.base#string->uninterned-symbol in k12856 in k11643 */
static void C_ccall f_22683(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22683,c,av);}
a=C_alloc(3);
t3=C_i_check_string_2(t2,lf[755]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22694,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:3400: ##sys#string->symbol-name */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[746]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[746]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k22692 in chicken.base#string->uninterned-symbol in k12856 in k11643 */
static void C_ccall f_22694(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22694,c,av);}
/* library.scm:3400: ##sys#make-symbol */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[744]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[744]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* chicken.base#gensym in k12856 in k11643 */
static void C_ccall f_22696(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +16,c,5)))){
C_save_and_reclaim((void*)f_22696,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+16);
t2=C_build_rest(&a,c,2,av);
C_word 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;
t3=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],C_fix(1));
t4=C_set_block_item(((C_word*)t0)[2],0,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22713,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22717,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22721,a[2]=t6,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t8=C_eqp(t2,C_SCHEME_END_OF_LIST);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f45980,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* library.scm:3418: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t9;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
tp(3,av2);}}
else{
t9=C_get_rest_arg(c,2,av,2,t0);
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22734,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t7,a[5]=t9,tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_blockp(t9))){
if(C_truep(C_stringp(t9))){
t11=t10;{
C_word *av2=av;
av2[0]=t11;
av2[1]=t9;
f_22734(2,av2);}}
else{
if(C_truep(C_symbolp(t9))){
/* library.scm:3415: ##sys#symbol->string/shared */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[747]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[747]+1);
av2[1]=t10;
av2[2]=t9;
tp(3,av2);}}
else{
/* library.scm:3405: ##sys#signal-hook */
t11=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t11;
av2[1]=t10;
av2[2]=lf[309];
av2[3]=lf[758];
av2[4]=lf[759];
av2[5]=t9;
((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}}}}
else{
t11=t10;{
C_word *av2=av;
av2[0]=t11;
av2[1]=C_SCHEME_FALSE;
f_22734(2,av2);}}}}

/* k22711 in chicken.base#gensym in k12856 in k11643 */
static void C_ccall f_22713(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22713,c,av);}
/* library.scm:3407: ##sys#make-symbol */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[744]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[744]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k22715 in chicken.base#gensym in k12856 in k11643 */
static void C_ccall f_22717(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22717,c,av);}
/* library.scm:3408: ##sys#string->symbol-name */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[746]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[746]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k22719 in chicken.base#gensym in k12856 in k11643 */
static void C_ccall f_22721(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_22721,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22725,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:3418: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[3])[1];
tp(3,av2);}}

/* k22723 in k22719 in chicken.base#gensym in k12856 in k11643 */
static void C_ccall f_22725(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22725,c,av);}
/* library.scm:3409: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k22732 in chicken.base#gensym in k12856 in k11643 */
static void C_ccall f_22734(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_22734,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f45984,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:3418: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[3])[1];
tp(3,av2);}}
else{
/* library.scm:3405: ##sys#signal-hook */
t2=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[309];
av2[3]=lf[758];
av2[4]=lf[759];
av2[5]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}

/* chicken.base#symbol-append in k12856 in k11643 */
static void C_ccall f_22754(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +20,c,3)))){
C_save_and_reclaim((void*)f_22754,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+20);
t2=C_build_rest(&a,c,2,av);
C_word 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;
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22762,a[2]=t1,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22777,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22779,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li577),tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_22779(t12,t8,t2);}

/* k22760 in chicken.base#symbol-append in k12856 in k11643 */
static void C_ccall f_22762(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22762,c,av);}
/* library.scm:3423: ##sys#string->symbol */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[749]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[749]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k22775 in chicken.base#symbol-append in k12856 in k11643 */
static void C_ccall f_22777(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22777,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-loop4095 in chicken.base#symbol-append in k12856 in k11643 */
static void f_22779(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_22779,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_22804,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_i_check_symbol_2(t4,lf[761]);
/* library.scm:3428: ##sys#symbol->string/shared */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[747]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[747]+1);
av2[1]=t3;
av2[2]=t4;
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);}}}

/* k22802 in map-loop4095 in chicken.base#symbol-append in k12856 in k11643 */
static void C_ccall f_22804(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22804,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_22779(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* chicken.keyword#keyword? in k12856 in k11643 */
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=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22813,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_keywordp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.keyword#string->keyword in k12856 in k11643 */
static void C_ccall f_22816(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22816,c,av);}
a=C_alloc(3);
t3=C_i_check_string_2(t2,lf[765]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22827,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:3445: ##sys#string->symbol-name */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[746]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[746]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k22825 in chicken.keyword#string->keyword in k12856 in k11643 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22827,c,av);}
/* library.scm:3445: ##sys#intern-keyword */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[743]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[743]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* chicken.keyword#keyword->string in k12856 in k11643 */
static void C_ccall f_22829(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_22829,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22836,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:3450: keyword? */
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k22834 in chicken.keyword#keyword->string in k12856 in k11643 */
static void C_ccall f_22836(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_22836,c,av);}
if(C_truep(t1)){
/* library.scm:3451: ##sys#symbol->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[748]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[748]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
/* library.scm:3452: ##sys#signal-hook */
t2=*((C_word*)lf[127]+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[309];
av2[3]=lf[767];
av2[4]=lf[768];
av2[5]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}

/* chicken.keyword#get-keyword in k12856 in k11643 */
static void C_ccall f_22847(C_word c,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_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_22847,c,av);}
a=C_alloc(7);
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|6,a[1]=(C_word)f_22854,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t5,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* library.scm:3457: ##sys#check-keyword */
t7=*((C_word*)lf[426]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
av2[3]=lf[771];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k22852 in chicken.keyword#get-keyword in k12856 in k11643 */
static void C_ccall f_22854(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22854,c,av);}
t2=C_i_check_list_2(((C_word*)t0)[2],lf[771]);
t3=C_i_get_keyword(((C_word*)t0)[3],((C_word*)t0)[2],((C_word*)t0)[4]);
t4=C_eqp(t3,((C_word*)t0)[4]);
if(C_truep(t4)){
if(C_truep(((C_word*)t0)[5])){
/* library.scm:3461: thunk */
t5=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t5;
av2[1]=((C_word*)t0)[6];
((C_proc)C_fast_retrieve_proc(t5))(2,av2);}}
else{
t5=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t5=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* ##sys#bytevector->list in k12856 in k11643 */
static void C_ccall f_22878(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_22878,c,av);}
a=C_alloc(7);
t3=C_block_size(t2);
t4=C_fixnum_difference(t3,C_fix(1));
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22891,a[2]=t2,a[3]=t6,a[4]=((C_word)li583),tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_22891(t8,t1,t4,C_SCHEME_END_OF_LIST);}

/* loop in ##sys#bytevector->list in k12856 in k11643 */
static void f_22891(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_22891,4,t0,t1,t2,t3);}
a=C_alloc(3);
if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fixnum_difference(t2,C_fix(1));
t5=C_subbyte(((C_word*)t0)[2],t2);
t6=C_a_i_cons(&a,2,t5,t3);
/* library.scm:3476: loop */
t8=t1;
t9=t4;
t10=t6;
t1=t8;
t2=t9;
t3=t10;
goto loop;}}

/* ##sys#list->bytevector in k12856 in k11643 */
static void C_ccall f_22912(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_22912,c,av);}
a=C_alloc(4);
t3=C_i_length(t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22919,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:3481: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t4;
av2[2]=t3;
tp(3,av2);}}

/* k22917 in ##sys#list->bytevector in k12856 in k11643 */
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 t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_22919,c,av);}
a=C_alloc(8);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22924,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word)li585),tmp=(C_word)a,a+=6,tmp));
t5=((C_word*)t3)[1];
f_22924(t5,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));}

/* loop in k22917 in ##sys#list->bytevector in k12856 in k11643 */
static void f_22924(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
C_save_and_reclaim_args((void *)trf_22924,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_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22937,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_fixnump(t4))){
t6=C_setsubbyte(((C_word*)t0)[2],t3,t4);
/* library.scm:3489: loop */
t8=t1;
t9=C_u_i_cdr(t2);
t10=C_fixnum_plus(t3,C_fix(1));
t1=t8;
t2=t9;
t3=t10;
goto loop;}
else{
/* library.scm:3488: ##sys#signal-hook */
t6=*((C_word*)lf[127]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[309];
av2[3]=lf[775];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}}

/* k22935 in loop in k22917 in ##sys#list->bytevector in k12856 in k11643 */
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22937,c,av);}
/* library.scm:3489: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_22924(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}

/* chicken.bytevector#make-bytevector in k12856 in k11643 */
static void C_ccall f_22951(C_word c,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_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22951,c,av);}
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
t5=C_i_check_fixnum_2(t2,lf[778]);
if(C_truep(t4)){
t6=C_i_check_fixnum_2(t4,lf[778]);
/* library.scm:3503: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t4;
tp(4,av2);}}
else{
/* library.scm:3503: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t4;
tp(4,av2);}}}

/* chicken.bytevector#bytevector? in k12856 in k11643 */
static void C_ccall f_22975(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22975,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(C_blockp(t2))?C_bytevectorp(t2):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.bytevector#bytevector-length in k12856 in k11643 */
static void C_ccall f_22981(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22981,c,av);}
t3=C_i_check_bytevector_2(t2,lf[781]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_block_size(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.bytevector#bytevector-u8-ref in k12856 in k11643 */
static void C_ccall f_22990(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22990,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_bytevector_ref(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.bytevector#bytevector-u8-set! in k12856 in k11643 */
static void C_ccall f_22993(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22993,c,av);}
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_bytevector_set(t2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* chicken.bytevector#string->utf8 in k12856 in k11643 */
static void C_ccall f_22996(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_22996,c,av);}
a=C_alloc(5);
t3=C_i_check_string_2(t2,lf[785]);
t4=C_slot(t2,C_fix(0));
t5=C_block_size(t4);
t6=C_fixnum_difference(t5,C_fix(1));
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23010,a[2]=t4,a[3]=t6,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:3523: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t7;
av2[2]=t6;
tp(3,av2);}}

/* k23008 in chicken.bytevector#string->utf8 in k12856 in k11643 */
static void C_ccall f_23010(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_23010,c,av);}
t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.bytevector#utf8->string in k12856 in k11643 */
static void C_ccall f_23012(C_word c,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 *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_23012,c,av);}
a=C_alloc(7);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_fix(0):C_get_rest_arg(c,3,av,3,t0));
t5=C_rest_nullp(c,3);
t6=C_rest_nullp(c,4);
t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
t8=C_rest_nullp(c,4);
t9=C_i_check_bytevector_2(t2,lf[787]);
t10=C_block_size(t2);
t11=(C_truep(t7)?t7:t10);
t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23037,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=t11,a[6]=t10,tmp=(C_word)a,a+=7,tmp);
if(C_truep(t7)){
/* library.scm:3532: ##sys#check-range/including */
t13=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t13;
av2[1]=t12;
av2[2]=t7;
av2[3]=C_fix(0);
av2[4]=t10;
av2[5]=lf[787];
((C_proc)(void*)(*((C_word*)t13+1)))(6,av2);}}
else{
t13=t12;{
C_word *av2=av;
av2[0]=t13;
av2[1]=C_SCHEME_UNDEFINED;
f_23037(2,av2);}}}

/* k23035 in chicken.bytevector#utf8->string in k12856 in k11643 */
static void C_ccall f_23037(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_23037,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23040,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_not(C_utf_validate(((C_word*)t0)[3],((C_word*)t0)[6],((C_word*)t0)[4],((C_word*)t0)[5])))){
t3=C_fix((C_word)C_DECODING_ERROR);
/* library.scm:3534: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t2;
av2[2]=t3;
av2[3]=lf[787];
av2[4]=((C_word*)t0)[3];
tp(5,av2);}}
else{
/* library.scm:3536: ##sys#buffer->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[331]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[331]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=C_fixnum_difference(((C_word*)t0)[5],((C_word*)t0)[4]);
tp(5,av2);}}}

/* k23038 in k23035 in chicken.bytevector#utf8->string in k12856 in k11643 */
static void C_ccall f_23040(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_23040,c,av);}
/* library.scm:3536: ##sys#buffer->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[331]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[331]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=C_fixnum_difference(((C_word*)t0)[5],((C_word*)t0)[4]);
tp(5,av2);}}

/* chicken.bytevector#bytes->string in k12856 in k11643 */
static void C_ccall f_23081(C_word c,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 *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_23081,c,av);}
a=C_alloc(6);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_fix(0):C_get_rest_arg(c,3,av,3,t0));
t5=C_rest_nullp(c,3);
t6=C_rest_nullp(c,4);
t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
t8=C_rest_nullp(c,4);
t9=C_i_check_bytevector_2(t2,lf[789]);
t10=C_block_size(t2);
t11=(C_truep(t7)?t7:t10);
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23106,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=t7,tmp=(C_word)a,a+=6,tmp);
if(C_truep(t7)){
/* library.scm:3543: ##sys#check-range/including */
t13=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t13;
av2[1]=t12;
av2[2]=t7;
av2[3]=C_fix(0);
av2[4]=t10;
av2[5]=lf[789];
((C_proc)(void*)(*((C_word*)t13+1)))(6,av2);}}
else{
/* library.scm:3544: ##sys#buffer->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[331]+1));
C_word av2[5];
av2[0]=*((C_word*)lf[331]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t4;
av2[4]=C_fixnum_difference(t7,t4);
tp(5,av2);}}}

/* k23104 in chicken.bytevector#bytes->string in k12856 in k11643 */
static void C_ccall f_23106(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_23106,c,av);}
/* library.scm:3544: ##sys#buffer->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[331]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[331]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=C_fixnum_difference(((C_word*)t0)[5],((C_word*)t0)[4]);
tp(5,av2);}}

/* chicken.bytevector#string->latin1 in k12856 in k11643 */
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=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);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_23139,c,av);}
a=C_alloc(5);
t3=C_i_check_string_2(t2,lf[791]);
t4=C_slot(t2,C_fix(0));
t5=C_slot(t2,C_fix(1));
t6=C_block_size(t4);
t7=C_fixnum_difference(t6,C_fix(1));
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23156,a[2]=t4,a[3]=t7,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:3551: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t8;
av2[2]=t5;
tp(3,av2);}}

/* k23154 in chicken.bytevector#string->latin1 in k12856 in k11643 */
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 t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_23156,c,av);}
t2=C_utf_to_latin(((C_word*)t0)[2],t1,C_fix(0),((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.bytevector#latin1->string in k12856 in k11643 */
static void C_ccall f_23158(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_23158,c,av);}
a=C_alloc(5);
t3=C_i_check_bytevector_2(t2,lf[793]);
t4=C_block_size(t2);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23168,a[2]=t1,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
/* library.scm:3558: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t5;
av2[2]=C_fixnum_times(t4,C_fix(2));
tp(3,av2);}}

/* k23166 in chicken.bytevector#latin1->string in k12856 in k11643 */
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;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_23168,c,av);}
/* library.scm:3560: ##sys#buffer->string! */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[167]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[167]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_latin_to_utf(((C_word*)t0)[3],t1,C_fix(0),((C_word*)t0)[4]);
tp(4,av2);}}

/* chicken.bytevector#bytevector=? in k12856 in k11643 */
static void C_ccall f_23174(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_23174,c,av);}
t4=C_i_check_bytevector_2(t2,lf[795]);
t5=C_i_check_bytevector_2(t3,lf[795]);
t6=C_block_size(t2);
t7=C_block_size(t3);
t8=C_eqp(t7,t6);
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=(C_truep(t8)?C_bv_compare(t2,t3,t6):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}

/* chicken.bytevector#bytevector in k12856 in k11643 */
static void C_ccall f_23196(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_23196,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
t3=C_u_i_length(t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23201,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:3571: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t4;
av2[2]=t3;
tp(3,av2);}}

/* k23199 in chicken.bytevector#bytevector in k12856 in k11643 */
static void C_ccall f_23201(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_23201,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23206,a[2]=t1,a[3]=((C_word)li598),tmp=(C_word)a,a+=4,tmp);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
  f_23206(t2,((C_word*)t0)[3],C_fix(0))
);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* loop in k23199 in chicken.bytevector#bytevector in k12856 in k11643 */
static C_word f_23206(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t1))){
return(((C_word*)t0)[2]);}
else{
t3=C_i_car(t1);
t4=C_i_check_fixnum_2(t3,lf[797]);
t5=C_setsubbyte(((C_word*)t0)[2],t2,t3);
t7=C_u_i_cdr(t1);
t8=C_fixnum_plus(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}}

/* chicken.bytevector#bytevector-copy in k12856 in k11643 */
static void C_ccall f_23227(C_word c,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 *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_23227,c,av);}
a=C_alloc(7);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_fix(0):C_get_rest_arg(c,3,av,3,t0));
t5=C_rest_nullp(c,3);
t6=C_rest_nullp(c,4);
t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
t8=C_rest_nullp(c,4);
t9=C_i_check_bytevector_2(t2,lf[799]);
t10=C_block_size(t2);
t11=(C_truep(t7)?t7:t10);
t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23252,a[2]=t1,a[3]=t11,a[4]=t4,a[5]=t2,a[6]=t10,tmp=(C_word)a,a+=7,tmp);
if(C_truep(t7)){
/* library.scm:3585: ##sys#check-range/including */
t13=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t13;
av2[1]=t12;
av2[2]=t7;
av2[3]=C_fix(0);
av2[4]=t10;
av2[5]=lf[800];
((C_proc)(void*)(*((C_word*)t13+1)))(6,av2);}}
else{
t13=t12;{
C_word *av2=av;
av2[0]=t13;
av2[1]=C_SCHEME_UNDEFINED;
f_23252(2,av2);}}}

/* k23250 in chicken.bytevector#bytevector-copy in k12856 in k11643 */
static void C_ccall f_23252(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_23252,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23258,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=C_eqp(((C_word*)t0)[6],C_fix(0));
if(C_truep(t3)){
t4=C_eqp(((C_word*)t0)[4],C_fix(0));
t5=t2;
f_23258(t5,(C_truep(t4)?C_eqp(C_fix(0),((C_word*)t0)[3]):C_SCHEME_FALSE));}
else{
t4=t2;
f_23258(t4,C_SCHEME_FALSE);}}

/* k23256 in k23250 in chicken.bytevector#bytevector-copy in k12856 in k11643 */
static void f_23258(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){
C_save_and_reclaim_args((void *)trf_23258,2,t0,t1);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
/* library.scm:3587: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[168]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=C_fix(0);
tp(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23264,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[2],tmp=(C_word)a,a+=6,tmp);
/* library.scm:3589: ##sys#check-range/including */
t4=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_fix(0);
av2[4]=((C_word*)t2)[6];
av2[5]=lf[800];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}

/* k23262 in k23256 in k23250 in chicken.bytevector#bytevector-copy in k12856 in k11643 */
static void C_ccall f_23264(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_23264,c,av);}
a=C_alloc(6);
t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23267,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* library.scm:3591: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k23265 in k23262 in k23256 in k23250 in chicken.bytevector#bytevector-copy in k12856 in k11643 */
static void C_ccall f_23267(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_23267,c,av);}
t2=C_copy_memory_with_offset(t1,((C_word*)t0)[2],C_fix(0),((C_word*)t0)[3],((C_word*)t0)[4]);
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.bytevector#bytevector-copy! in k12856 in k11643 */
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=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word *a;
if(c<5) C_bad_min_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_23308,c,av);}
a=C_alloc(10);
t5=C_rest_nullp(c,5);
t6=(C_truep(t5)?C_fix(0):C_get_rest_arg(c,5,av,5,t0));
t7=C_rest_nullp(c,5);
t8=C_rest_nullp(c,6);
t9=(C_truep(t8)?C_SCHEME_FALSE:C_get_rest_arg(c,6,av,5,t0));
t10=C_rest_nullp(c,6);
t11=C_i_check_bytevector_2(t2,lf[802]);
t12=C_i_check_bytevector_2(t4,lf[802]);
t13=C_block_size(t2);
t14=C_block_size(t4);
t15=(C_truep(t9)?t9:t14);
t16=C_fixnum_difference(t15,t6);
t17=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23342,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=t3,a[6]=t6,a[7]=t16,a[8]=t13,a[9]=t14,tmp=(C_word)a,a+=10,tmp);
t18=C_eqp(t14,C_fix(0));
if(C_truep(t18)){
t19=C_eqp(t16,C_fix(0));
t20=t17;
f_23342(t20,(C_truep(t19)?C_eqp(t6,C_fix(0)):C_SCHEME_FALSE));}
else{
t19=t17;
f_23342(t19,C_SCHEME_FALSE);}}

/* k23340 in chicken.bytevector#bytevector-copy! in k12856 in k11643 */
static void f_23342(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
C_save_and_reclaim_args((void *)trf_23342,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
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);}}
else{
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23345,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* library.scm:3604: ##sys#check-range/including */
t3=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[9];
av2[5]=lf[803];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}}

/* k23343 in k23340 in chicken.bytevector#bytevector-copy! in k12856 in k11643 */
static void C_ccall f_23345(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_23345,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23348,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:3605: ##sys#check-range/including */
t3=*((C_word*)lf[440]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[8];
av2[5]=lf[803];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k23346 in k23343 in k23340 in chicken.bytevector#bytevector-copy! in k12856 in k11643 */
static void C_ccall f_23348(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_23348,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23351,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);
/* library.scm:3606: ##sys#check-range/including */
t4=*((C_word*)lf[440]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_fixnum_plus(((C_word*)t2)[5],((C_word*)t2)[7]);
av2[3]=C_fix(0);
av2[4]=((C_word*)t2)[8];
av2[5]=lf[803];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}

/* k23349 in k23346 in k23343 in k23340 in chicken.bytevector#bytevector-copy! in k12856 in k11643 */
static void C_ccall f_23351(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_23351,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_copy_memory_with_offset(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.bytevector#bytevector-append in k12856 in k11643 */
static void C_ccall f_23390(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +7,c,4)))){
C_save_and_reclaim((void*)f_23390,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+7);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
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_23396,a[2]=t2,a[3]=t4,a[4]=((C_word)li603),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_23396(t6,t1,t2,C_fix(0));}

/* loop in chicken.bytevector#bytevector-append in k12856 in k11643 */
static void f_23396(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_23396,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_23406,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:3613: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t4;
av2[2]=t3;
tp(3,av2);}}
else{
t4=C_i_car(t2);
t5=C_i_check_bytevector_2(t4,lf[805]);
t6=C_u_i_cdr(t2);
t7=C_block_size(t4);
/* library.scm:3623: loop */
t9=t1;
t10=t6;
t11=C_fixnum_plus(t3,t7);
t1=t9;
t2=t10;
t3=t11;
goto loop;}}

/* k23404 in loop in chicken.bytevector#bytevector-append in k12856 in k11643 */
static void C_ccall f_23406(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_23406,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23411,a[2]=t1,a[3]=((C_word)li602),tmp=(C_word)a,a+=4,tmp);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
  f_23411(t2,((C_word*)t0)[3],C_fix(0))
);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* loop in k23404 in loop in chicken.bytevector#bytevector-append in k12856 in k11643 */
static C_word f_23411(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t1))){
return(((C_word*)t0)[2]);}
else{
t3=C_i_car(t1);
t4=C_block_size(t3);
t5=C_copy_memory_with_offset(((C_word*)t0)[2],t3,t2,C_fix(0),t4);
t7=C_u_i_cdr(t1);
t8=C_fixnum_plus(t2,t4);
t1=t7;
t2=t8;
goto loop;}}

/* scheme#make-vector in k12856 in k11643 */
static void C_ccall f_23448(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,4)))){
C_save_and_reclaim((void*)f_23448,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+5);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
t4=C_i_check_fixnum_2(t2,lf[806]);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23455,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){
/* library.scm:3632: ##sys#error */
t6=*((C_word*)lf[211]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[806];
av2[3]=lf[807];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
f_23455(2,av2);}}}

/* k23453 in scheme#make-vector in k12856 in k11643 */
static void C_ccall f_23455(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_23455,c,av);}
if(C_truep(C_i_nullp(((C_word*)t0)[2]))){
t2=C_SCHEME_UNDEFINED;
/* library.scm:3633: ##sys#allocate-vector */
t3=*((C_word*)lf[392]+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);}}
else{
/* library.scm:3633: ##sys#allocate-vector */
t2=*((C_word*)lf[392]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=C_i_car(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}

/* scheme#list->vector in k12856 in k11643 */
static void C_ccall f_23477(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_23477,c,av);}
a=C_alloc(4);
t3=C_i_listp(t2);
if(C_truep(C_i_not(t3))){
/* library.scm:3644: ##sys#error-not-a-proper-list */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[51]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[809];
tp(4,av2);}}
else{
t4=C_i_length(t2);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23493,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:3646: ##sys#make-vector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[808]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[808]+1);
av2[1]=t5;
av2[2]=t4;
tp(3,av2);}}}

/* k23491 in scheme#list->vector in k12856 in k11643 */
static void C_ccall f_23493(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_23493,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23498,a[2]=t1,a[3]=((C_word)li606),tmp=(C_word)a,a+=4,tmp);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
  f_23498(t2,((C_word*)t0)[3],C_fix(0))
);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* loop in k23491 in scheme#list->vector in k12856 in k11643 */
static C_word f_23498(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t1))){
return(((C_word*)t0)[2]);}
else{
t3=C_slot(t1,C_fix(0));
t4=C_i_setslot(((C_word*)t0)[2],t2,t3);
t6=C_slot(t1,C_fix(1));
t7=C_fixnum_plus(t2,C_fix(1));
t1=t6;
t2=t7;
goto loop;}}

/* scheme#vector->list in k12856 in k11643 */
static void C_ccall f_23529(C_word c,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 *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
C_save_and_reclaim((void *)f_23529,c,av);}
a=C_alloc(11);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
t5=t4;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_rest_nullp(c,3);
t8=C_rest_nullp(c,4);
t9=(C_truep(t8)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
t10=t9;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_rest_nullp(c,4);
t13=C_i_check_vector_2(t2,lf[810]);
t14=C_block_size(t2);
t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23551,a[2]=t11,a[3]=t2,a[4]=t1,a[5]=t6,a[6]=t14,tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)t6)[1])){
/* library.scm:3660: ##sys#check-range/including */
t16=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t16;
av2[1]=t15;
av2[2]=((C_word*)t6)[1];
av2[3]=C_fix(0);
av2[4]=t14;
av2[5]=lf[810];
((C_proc)(void*)(*((C_word*)t16+1)))(6,av2);}}
else{
t16=C_set_block_item(t6,0,C_fix(0));
t17=t15;{
C_word *av2=av;
av2[0]=t17;
av2[1]=t16;
f_23551(2,av2);}}}

/* k23549 in scheme#vector->list in k12856 in k11643 */
static void C_ccall f_23551(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_23551,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23554,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
/* library.scm:3663: ##sys#check-range/including */
t3=*((C_word*)lf[440]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[6];
av2[5]=lf[810];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
else{
t3=C_set_block_item(((C_word*)t0)[2],0,((C_word*)t0)[6]);
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_23554(2,av2);}}}

/* k23552 in k23549 in scheme#vector->list in k12856 in k11643 */
static void C_ccall f_23554(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_23554,c,av);}
a=C_alloc(8);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23559,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word)li608),tmp=(C_word)a,a+=6,tmp));
t5=((C_word*)t3)[1];
f_23559(t5,((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1]);}

/* loop in k23552 in k23549 in scheme#vector->list in k12856 in k11643 */
static void f_23559(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_23559,3,t0,t1,t2);}
a=C_alloc(4);
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)((C_word*)t0)[2])[1]))){
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_slot(((C_word*)t0)[3],t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23577,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* library.scm:3669: loop */
t6=t4;
t7=C_fixnum_plus(t2,C_fix(1));
t1=t6;
t2=t7;
goto loop;}}

/* k23575 in loop in k23552 in k23549 in scheme#vector->list in k12856 in k11643 */
static void C_ccall f_23577(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_23577,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);}}

/* scheme#vector in k12856 in k11643 */
static void C_ccall f_23615(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){
C_save_and_reclaim((void*)f_23615,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
t2=C_build_rest(&a,c,2,av);
C_word t3;
/* library.scm:3671: scheme#list->vector */
t3=*((C_word*)lf[119]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* scheme#vector-fill! in k12856 in k11643 */
static void C_ccall f_23621(C_word c,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 *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){
C_save_and_reclaim((void *)f_23621,c,av);}
a=C_alloc(12);
t4=C_rest_nullp(c,4);
t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0));
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_rest_nullp(c,4);
t9=C_rest_nullp(c,5);
t10=(C_truep(t9)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,4,t0));
t11=t10;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_rest_nullp(c,5);
t14=C_i_check_vector_2(t2,lf[811]);
t15=C_block_size(t2);
t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23643,a[2]=t12,a[3]=t2,a[4]=t3,a[5]=t1,a[6]=t7,a[7]=t15,tmp=(C_word)a,a+=8,tmp);
if(C_truep(((C_word*)t7)[1])){
/* library.scm:3678: ##sys#check-range/including */
t17=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t17;
av2[1]=t16;
av2[2]=((C_word*)t7)[1];
av2[3]=C_fix(0);
av2[4]=t15;
av2[5]=lf[811];
((C_proc)(void*)(*((C_word*)t17+1)))(6,av2);}}
else{
t17=C_set_block_item(t7,0,C_fix(0));
t18=t16;{
C_word *av2=av;
av2[0]=t18;
av2[1]=t17;
f_23643(2,av2);}}}

/* k23641 in scheme#vector-fill! in k12856 in k11643 */
static void C_ccall f_23643(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_23643,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23646,a[2]=((C_word*)t0)[2],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*)((C_word*)t0)[2])[1])){
/* library.scm:3681: ##sys#check-range/including */
t3=*((C_word*)lf[440]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[7];
av2[5]=lf[811];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
else{
t3=C_set_block_item(((C_word*)t0)[2],0,((C_word*)t0)[7]);
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_23646(2,av2);}}}

/* k23644 in k23641 in scheme#vector-fill! in k12856 in k11643 */
static void C_ccall f_23646(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_23646,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23651,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li611),tmp=(C_word)a,a+=6,tmp);
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
  f_23651(t2,((C_word*)((C_word*)t0)[6])[1])
);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* doloop4468 in k23644 in k23641 in scheme#vector-fill! in k12856 in k11643 */
static C_word f_23651(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_fixnum_greater_or_equal_p(t1,((C_word*)((C_word*)t0)[2])[1]))){
t2=C_SCHEME_UNDEFINED;
return(t2);}
else{
t2=C_i_setslot(((C_word*)t0)[3],t1,((C_word*)t0)[4]);
t4=C_fixnum_plus(t1,C_fix(1));
t1=t4;
goto loop;}}

/* scheme#vector-copy in k12856 in k11643 */
static void C_ccall f_23702(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_23702,c,av);}
a=C_alloc(3);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
t5=C_rest_nullp(c,3);
t6=C_rest_nullp(c,4);
t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
t8=C_rest_nullp(c,4);
t9=C_i_check_vector_2(t2,lf[813]);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23719,a[2]=((C_word)li614),tmp=(C_word)a,a+=3,tmp);
if(C_truep(t7)){
/* library.scm:3699: copy */
f_23719(t1,t2,t4,t7);}
else{
t11=(C_truep(t4)?t4:C_fix(0));
/* library.scm:3700: copy */
f_23719(t1,t2,t11,C_block_size(t2));}}

/* copy in scheme#vector-copy in k12856 in k11643 */
static void f_23719(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){
C_save_and_reclaim_args((void *)trf_23719,4,t1,t2,t3,t4);}
a=C_alloc(7);
t5=C_block_size(t2);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23726,a[2]=t4,a[3]=t2,a[4]=t1,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp);
/* library.scm:3691: ##sys#check-range/including */
t7=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t7;
av2[1]=t6;
av2[2]=t3;
av2[3]=C_fix(0);
av2[4]=t4;
av2[5]=lf[813];
((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}

/* k23724 in copy in scheme#vector-copy in k12856 in k11643 */
static void C_ccall f_23726(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_23726,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23729,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);
/* library.scm:3692: ##sys#check-range/including */
t3=*((C_word*)lf[440]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[5];
av2[4]=((C_word*)t0)[6];
av2[5]=lf[813];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k23727 in k23724 in copy in scheme#vector-copy in k12856 in k11643 */
static void C_ccall f_23729(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_23729,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23732,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:3693: ##sys#make-vector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[808]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[808]+1);
av2[1]=t2;
av2[2]=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[5]);
tp(3,av2);}}

/* k23730 in k23727 in k23724 in copy in scheme#vector-copy in k12856 in k11643 */
static void C_ccall f_23732(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_23732,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23737,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],a[5]=((C_word)li613),tmp=(C_word)a,a+=6,tmp);
t4=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(
  f_23737(t3,C_fix(0),((C_word*)t2)[5])
);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* doloop4499 in k23730 in k23727 in k23724 in copy in scheme#vector-copy in k12856 in k11643 */
static C_word f_23737(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;
loop:{}
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
return(((C_word*)t0)[3]);}
else{
t3=C_slot(((C_word*)t0)[4],t2);
t4=C_i_setslot(((C_word*)t0)[3],t1,t3);
t6=C_fixnum_plus(t1,C_fix(1));
t7=C_fixnum_plus(t2,C_fix(1));
t1=t6;
t2=t7;
goto loop;}}

/* scheme#vector-copy! in k12856 in k11643 */
static void C_ccall f_23809(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
if(c<5) C_bad_min_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){
C_save_and_reclaim((void *)f_23809,c,av);}
a=C_alloc(3);
t5=C_rest_nullp(c,5);
t6=(C_truep(t5)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,5,t0));
t7=C_rest_nullp(c,5);
t8=C_rest_nullp(c,6);
t9=(C_truep(t8)?C_SCHEME_FALSE:C_get_rest_arg(c,6,av,5,t0));
t10=C_rest_nullp(c,6);
t11=C_i_check_vector_2(t2,lf[815]);
t12=C_i_check_vector_2(t4,lf[815]);
t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23829,a[2]=((C_word)li618),tmp=(C_word)a,a+=3,tmp);
if(C_truep(t9)){
/* library.scm:3723: copy! */
f_23829(t1,t2,t3,t4,t6,t9);}
else{
t14=(C_truep(t6)?t6:C_fix(0));
/* library.scm:3724: copy! */
f_23829(t1,t2,t3,t4,t14,C_block_size(t4));}}

/* copy! in scheme#vector-copy! in k12856 in k11643 */
static void f_23829(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,5)))){
C_save_and_reclaim_args((void *)trf_23829,6,t1,t2,t3,t4,t5,t6);}
a=C_alloc(11);
t7=C_block_size(t2);
t8=C_block_size(t4);
t9=C_fixnum_difference(t6,t5);
t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23842,a[2]=t2,a[3]=t4,a[4]=t5,a[5]=t3,a[6]=t6,a[7]=t9,a[8]=t1,a[9]=t7,a[10]=t8,tmp=(C_word)a,a+=11,tmp);
/* library.scm:3709: ##sys#check-range/including */
t11=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t11;
av2[1]=t10;
av2[2]=t3;
av2[3]=C_fix(0);
av2[4]=t7;
av2[5]=lf[815];
((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}}

/* k23840 in copy! in scheme#vector-copy! in k12856 in k11643 */
static void C_ccall f_23842(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_23842,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23845,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:3710: ##sys#check-range/including */
t3=*((C_word*)lf[440]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[6];
av2[5]=lf[815];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k23843 in k23840 in copy! in scheme#vector-copy! in k12856 in k11643 */
static void C_ccall f_23845(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
C_save_and_reclaim((void *)f_23845,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23848,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);
/* library.scm:3711: ##sys#check-range/including */
t4=*((C_word*)lf[440]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[6];
av2[3]=((C_word*)t2)[4];
av2[4]=((C_word*)t2)[10];
av2[5]=lf[815];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}

/* k23846 in k23843 in k23840 in copy! in scheme#vector-copy! in k12856 in k11643 */
static void C_ccall f_23848(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_23848,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23851,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* library.scm:3712: ##sys#check-range/including */
t3=*((C_word*)lf[440]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
av2[3]=C_fix(0);
av2[4]=C_fixnum_difference(((C_word*)t0)[9],((C_word*)t0)[5]);
av2[5]=lf[815];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k23849 in k23846 in k23843 in k23840 in copy! in scheme#vector-copy! in k12856 in k11643 */
static void C_ccall f_23851(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_23851,c,av);}
a=C_alloc(6);
t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]);
t3=(C_truep(t2)?C_fixnum_lessp(((C_word*)t0)[4],((C_word*)t0)[5]):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=C_fixnum_difference(((C_word*)t0)[6],C_fix(1));
t5=C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[7]);
t6=C_fixnum_difference(t5,C_fix(1));
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23870,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li616),tmp=(C_word)a,a+=6,tmp);
t8=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t8;
av2[1]=(
  f_23870(t7,t4,t6)
);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23904,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li617),tmp=(C_word)a,a+=6,tmp);
t5=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t5;
av2[1]=(
  f_23904(t4,((C_word*)t0)[4],((C_word*)t0)[5])
);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* doloop4540 in k23849 in k23846 in k23843 in k23840 in copy! in scheme#vector-copy! in k12856 in k11643 */
static C_word f_23870(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;
loop:{}
if(C_truep(C_fixnum_lessp(t1,((C_word*)t0)[2]))){
t3=C_SCHEME_UNDEFINED;
return(t3);}
else{
t3=C_slot(((C_word*)t0)[3],t1);
t4=C_i_setslot(((C_word*)t0)[4],t2,t3);
t6=C_fixnum_difference(t1,C_fix(1));
t7=C_fixnum_difference(t2,C_fix(1));
t1=t6;
t2=t7;
goto loop;}}

/* doloop4546 in k23849 in k23846 in k23843 in k23840 in copy! in scheme#vector-copy! in k12856 in k11643 */
static C_word f_23904(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_stack_overflow_check;
loop:{}
t3=C_eqp(t1,((C_word*)t0)[2]);
if(C_truep(t3)){
t4=C_SCHEME_UNDEFINED;
return(t4);}
else{
t4=C_slot(((C_word*)t0)[3],t1);
t5=C_i_setslot(((C_word*)t0)[4],t2,t4);
t7=C_fixnum_plus(t1,C_fix(1));
t8=C_fixnum_plus(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}}

/* scheme#vector-append in k12856 in k11643 */
static void C_ccall f_23982(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +20,c,3)))){
C_save_and_reclaim((void*)f_23982,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+20);
t2=C_build_rest(&a,c,2,av);
C_word 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;
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24103,a[2]=((C_word)li620),tmp=(C_word)a,a+=3,tmp);
t4=(
  f_24103(t2)
);
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23997,a[2]=t1,a[3]=t2,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_24069,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li623),tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_24069(t13,t9,t2);}

/* k23995 in scheme#vector-append in k12856 in k11643 */
static void C_ccall f_23997(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_23997,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24000,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t3=C_i_check_list_2(t1,lf[268]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24045,a[2]=((C_word)li622),tmp=(C_word)a,a+=3,tmp);
t5=(
  f_24045(t1,C_fix(0))
);
/* library.scm:3729: ##sys#make-vector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[808]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[808]+1);
av2[1]=t2;
av2[2]=t5;
tp(3,av2);}}

/* k23998 in k23995 in scheme#vector-append in k12856 in k11643 */
static void C_ccall f_24000(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_24000,c,av);}
a=C_alloc(7);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24005,a[2]=t1,a[3]=t3,a[4]=((C_word)li621),tmp=(C_word)a,a+=5,tmp));
t5=((C_word*)t3)[1];
f_24005(t5,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_fix(0));}

/* doloop4632 in k23998 in k23995 in scheme#vector-append in k12856 in k11643 */
static void f_24005(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,6)))){
C_save_and_reclaim_args((void *)trf_24005,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t2))){
t5=t1;{
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|6,a[1]=(C_word)f_24015,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
/* library.scm:3734: scheme#vector-copy! */
t6=*((C_word*)lf[814]+1);{
C_word av2[7];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
av2[3]=t4;
av2[4]=C_i_car(t2);
av2[5]=C_fix(0);
av2[6]=C_i_car(t3);
((C_proc)(void*)(*((C_word*)t6+1)))(7,av2);}}}

/* k24013 in doloop4632 in k23998 in k23995 in scheme#vector-append in k12856 in k11643 */
static void C_ccall f_24015(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_24015,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_24005(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]),C_fixnum_plus(((C_word*)t0)[6],C_u_i_car(((C_word*)t0)[5])));}

/* foldl4622 in k23995 in scheme#vector-append in k12856 in k11643 */
static C_word f_24045(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t3=C_slot(t1,C_fix(1));
t4=C_slot(t1,C_fix(0));
t6=t3;
t7=C_fixnum_plus(t2,t4);
t1=t6;
t2=t7;
goto loop;}
else{
return(t2);}}

/* map-loop4591 in scheme#vector-append in k12856 in k11643 */
static void f_24069(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_24069,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_block_size(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);}}}

/* for-each-loop4565 in scheme#vector-append in k12856 in k11643 */
static C_word f_24103(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=C_slot(t1,C_fix(0));
t3=C_i_check_vector_2(t2,lf[817]);
t5=C_slot(t1,C_fix(1));
t1=t5;
goto loop;}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* chicken.base#subvector in k12856 in k11643 */
static void C_ccall f_24126(C_word c,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 *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_24126,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=C_i_check_vector_2(t2,lf[818]);
t7=C_block_size(t2);
t8=(C_truep(t5)?t5:t7);
t9=C_fixnum_difference(t8,t3);
t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24145,a[2]=t9,a[3]=t3,a[4]=t2,a[5]=t1,a[6]=t8,a[7]=t7,tmp=(C_word)a,a+=8,tmp);
/* library.scm:3742: ##sys#check-range/including */
t11=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t11;
av2[1]=t10;
av2[2]=t3;
av2[3]=C_fix(0);
av2[4]=t7;
av2[5]=lf[818];
((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}}

/* k24143 in chicken.base#subvector in k12856 in k11643 */
static void C_ccall f_24145(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_24145,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24148,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);
/* library.scm:3743: ##sys#check-range/including */
t3=*((C_word*)lf[440]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[7];
av2[5]=lf[818];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k24146 in k24143 in chicken.base#subvector in k12856 in k11643 */
static void C_ccall f_24148(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_24148,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24151,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:3744: scheme#make-vector */
t3=*((C_word*)lf[118]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k24149 in k24146 in k24143 in chicken.base#subvector in k12856 in k11643 */
static void C_ccall f_24151(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_24151,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24156,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)li625),tmp=(C_word)a,a+=7,tmp);
t4=((C_word*)t2)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(
  f_24156(t3,C_fix(0))
);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* doloop4659 in k24149 in k24146 in k24143 in chicken.base#subvector in k12856 in k11643 */
static C_word f_24156(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:{}
if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){
return(((C_word*)t0)[3]);}
else{
t2=C_fixnum_plus(t1,((C_word*)t0)[4]);
t3=C_slot(((C_word*)t0)[5],t2);
t4=C_i_setslot(((C_word*)t0)[3],t1,t3);
t6=C_fixnum_plus(t1,C_fix(1));
t1=t6;
goto loop;}}

/* chicken.base#vector-resize in k12856 in k11643 */
static void C_ccall f_24189(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_24189,c,av);}
t4=C_rest_nullp(c,4);
t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0));
t6=C_i_check_vector_2(t2,lf[819]);
t7=C_i_check_fixnum_2(t3,lf[819]);
/* library.scm:3753: ##sys#vector-resize */
f_24210(t1,t2,t3,t5);}

/* ##sys#vector-resize in k12856 in k11643 */
static void f_24210(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_24210,4,t1,t2,t3,t4);}
a=C_alloc(5);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24214,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:3756: ##sys#make-vector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[808]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[808]+1);
av2[1]=t5;
av2[2]=t3;
av2[3]=t4;
tp(4,av2);}}

/* k24212 in ##sys#vector-resize in k12856 in k11643 */
static void C_ccall f_24214(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_24214,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24217,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:3757: scheme#min */
t3=*((C_word*)lf[334]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_block_size(((C_word*)t0)[2]);
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k24215 in k24212 in ##sys#vector-resize in k12856 in k11643 */
static void C_ccall f_24217(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_24217,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24222,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li628),tmp=(C_word)a,a+=6,tmp);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
  f_24222(t2,C_fix(0))
);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* doloop4687 in k24215 in k24212 in ##sys#vector-resize in k12856 in k11643 */
static C_word f_24222(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;
loop:{}
if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){
return(((C_word*)t0)[3]);}
else{
t2=C_slot(((C_word*)t0)[4],t1);
t3=C_i_setslot(((C_word*)t0)[3],t1,t2);
t5=C_fixnum_plus(t1,C_fix(1));
t1=t5;
goto loop;}}

/* scheme#char-ci=? in k12856 in k11643 */
static void C_ccall f_24249(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,5)))){
C_save_and_reclaim((void*)f_24249,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+6);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
t5=C_i_check_char_2(t2,lf[821]);
t6=C_i_check_char_2(t3,lf[821]);
t7=C_utf_char_foldcase(t3);
t8=C_eqp(C_utf_char_foldcase(t2),t7);
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_24265,a[2]=t10,a[3]=((C_word)li630),tmp=(C_word)a,a+=4,tmp));
t12=((C_word*)t10)[1];
f_24265(t12,t1,t7,t4,t8);}

/* loop in scheme#char-ci=? in k12856 in k11643 */
static void f_24265(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_24265,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t3))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_slot(t3,C_fix(0));
t6=C_i_check_char_2(t5,lf[821]);
t7=C_utf_char_foldcase(t5);
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24281,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* library.scm:3775: g4702 */
t9=t7;{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)C_fast_retrieve_proc(t9))(2,av2);}}}

/* k24279 in loop in scheme#char-ci=? in k12856 in k11643 */
static void C_ccall f_24281(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_24281,c,av);}
t2=C_slot(((C_word*)t0)[2],C_fix(1));
if(C_truep(((C_word*)t0)[3])){
/* library.scm:3776: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_24265(t3,((C_word*)t0)[5],t1,t2,C_eqp(((C_word*)t0)[6],t1));}
else{
/* library.scm:3776: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_24265(t3,((C_word*)t0)[5],t1,t2,C_SCHEME_FALSE);}}

/* scheme#char-ci>? in k12856 in k11643 */
static void C_ccall f_24298(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,5)))){
C_save_and_reclaim((void*)f_24298,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+6);
t4=C_build_rest(&a,c,4,av);
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;
t5=C_i_check_char_2(t2,lf[822]);
t6=C_i_check_char_2(t3,lf[822]);
t7=C_utf_char_foldcase(t3);
t8=C_utf_char_foldcase(t2);
t9=C_u_i_char_greaterp(t8,t7);
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_24312,a[2]=t11,a[3]=((C_word)li632),tmp=(C_word)a,a+=4,tmp));
t13=((C_word*)t11)[1];
f_24312(t13,t1,t7,t4,t9);}

/* loop in scheme#char-ci>? in k12856 in k11643 */
static void f_24312(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_24312,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t3))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_slot(t3,C_fix(0));
t6=C_i_check_char_2(t5,lf[822]);
t7=C_utf_char_foldcase(t5);
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24328,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* library.scm:3792: g4719 */
t9=t7;{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)C_fast_retrieve_proc(t9))(2,av2);}}}

/* k24326 in loop in scheme#char-ci>? in k12856 in k11643 */
static void C_ccall f_24328(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_24328,c,av);}
t2=C_slot(((C_word*)t0)[2],C_fix(1));
if(C_truep(((C_word*)t0)[3])){
/* library.scm:3793: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_24312(t3,((C_word*)t0)[5],t1,t2,C_u_i_char_greaterp(((C_word*)t0)[6],t1));}
else{
/* library.scm:3793: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_24312(t3,((C_word*)t0)[5],t1,t2,C_SCHEME_FALSE);}}

/* scheme#char-ci<? in k12856 in k11643 */
static void C_ccall f_24341(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,5)))){
C_save_and_reclaim((void*)f_24341,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+6);
t4=C_build_rest(&a,c,4,av);
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;
t5=C_i_check_char_2(t2,lf[823]);
t6=C_i_check_char_2(t3,lf[823]);
t7=C_utf_char_foldcase(t3);
t8=C_utf_char_foldcase(t2);
t9=C_u_i_char_lessp(t8,t7);
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_24355,a[2]=t11,a[3]=((C_word)li634),tmp=(C_word)a,a+=4,tmp));
t13=((C_word*)t11)[1];
f_24355(t13,t1,t7,t4,t9);}

/* loop in scheme#char-ci<? in k12856 in k11643 */
static void f_24355(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_24355,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t3))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_slot(t3,C_fix(0));
t6=C_i_check_char_2(t5,lf[823]);
t7=C_utf_char_foldcase(t5);
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24371,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* library.scm:3809: g4736 */
t9=t7;{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)C_fast_retrieve_proc(t9))(2,av2);}}}

/* k24369 in loop in scheme#char-ci<? in k12856 in k11643 */
static void C_ccall f_24371(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_24371,c,av);}
t2=C_slot(((C_word*)t0)[2],C_fix(1));
if(C_truep(((C_word*)t0)[3])){
/* library.scm:3810: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_24355(t3,((C_word*)t0)[5],t1,t2,C_u_i_char_lessp(((C_word*)t0)[6],t1));}
else{
/* library.scm:3810: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_24355(t3,((C_word*)t0)[5],t1,t2,C_SCHEME_FALSE);}}

/* scheme#char-ci>=? in k12856 in k11643 */
static void C_ccall f_24384(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,5)))){
C_save_and_reclaim((void*)f_24384,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+6);
t4=C_build_rest(&a,c,4,av);
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;
t5=C_i_check_char_2(t2,lf[824]);
t6=C_i_check_char_2(t3,lf[824]);
t7=C_utf_char_foldcase(t3);
t8=C_utf_char_foldcase(t2);
t9=C_u_i_char_greater_or_equal_p(t8,t7);
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_24398,a[2]=t11,a[3]=((C_word)li636),tmp=(C_word)a,a+=4,tmp));
t13=((C_word*)t11)[1];
f_24398(t13,t1,t7,t4,t9);}

/* loop in scheme#char-ci>=? in k12856 in k11643 */
static void f_24398(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_24398,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t3))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_slot(t3,C_fix(0));
t6=C_i_check_char_2(t5,lf[824]);
t7=C_utf_char_foldcase(t5);
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24414,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* library.scm:3826: g4753 */
t9=t7;{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)C_fast_retrieve_proc(t9))(2,av2);}}}

/* k24412 in loop in scheme#char-ci>=? in k12856 in k11643 */
static void C_ccall f_24414(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_24414,c,av);}
t2=C_slot(((C_word*)t0)[2],C_fix(1));
if(C_truep(((C_word*)t0)[3])){
/* library.scm:3827: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_24398(t3,((C_word*)t0)[5],t1,t2,C_u_i_char_greater_or_equal_p(((C_word*)t0)[6],t1));}
else{
/* library.scm:3827: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_24398(t3,((C_word*)t0)[5],t1,t2,C_SCHEME_FALSE);}}

/* scheme#char-ci<=? in k12856 in k11643 */
static void C_ccall f_24427(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,5)))){
C_save_and_reclaim((void*)f_24427,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+6);
t4=C_build_rest(&a,c,4,av);
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;
t5=C_i_check_char_2(t2,lf[825]);
t6=C_i_check_char_2(t3,lf[825]);
t7=C_utf_char_foldcase(t3);
t8=C_utf_char_foldcase(t2);
t9=C_u_i_char_less_or_equal_p(t8,t7);
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_24441,a[2]=t11,a[3]=((C_word)li638),tmp=(C_word)a,a+=4,tmp));
t13=((C_word*)t11)[1];
f_24441(t13,t1,t7,t4,t9);}

/* loop in scheme#char-ci<=? in k12856 in k11643 */
static void f_24441(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_24441,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t3))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_slot(t3,C_fix(0));
t6=C_i_check_char_2(t5,lf[825]);
t7=C_utf_char_foldcase(t5);
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24457,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* library.scm:3843: g4770 */
t9=t7;{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)C_fast_retrieve_proc(t9))(2,av2);}}}

/* k24455 in loop in scheme#char-ci<=? in k12856 in k11643 */
static void C_ccall f_24457(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_24457,c,av);}
t2=C_slot(((C_word*)t0)[2],C_fix(1));
if(C_truep(((C_word*)t0)[3])){
/* library.scm:3844: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_24441(t3,((C_word*)t0)[5],t1,t2,C_u_i_char_less_or_equal_p(((C_word*)t0)[6],t1));}
else{
/* library.scm:3844: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_24441(t3,((C_word*)t0)[5],t1,t2,C_SCHEME_FALSE);}}

/* k24470 in k12856 in k11643 */
static void C_ccall f_24472(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_24472,c,av);}
a=C_alloc(15);
t2=C_SCHEME_END_OF_LIST;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24474,a[2]=t1,a[3]=((C_word)li641),tmp=(C_word)a,a+=4,tmp);
t5=C_mutate((C_word*)lf[253]+1 /* (set! chicken.base#char-name ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24515,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=((C_word)li642),tmp=(C_word)a,a+=6,tmp));
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24700,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3902: chicken.base#char-name */
t7=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[1643];
av2[3]=C_make_character(32);
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* lookup-char in k24470 in k12856 in k11643 */
static void f_24474(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_24474,3,t0,t1,t2);}
a=C_alloc(4);
t3=C_fix(C_character_code(t2));
t4=C_fixnum_modulo(t3,C_fix(37));
t5=C_slot(((C_word*)t0)[2],t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24487,a[2]=t2,a[3]=((C_word)li640),tmp=(C_word)a,a+=4,tmp);
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=(
  f_24487(t6,t5)
);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* loop in lookup-char in k24470 in k12856 in k11643 */
static C_word f_24487(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:{}
if(C_truep(C_i_pairp(t1))){
t2=C_slot(t1,C_fix(0));
t3=C_slot(t2,C_fix(0));
t4=C_eqp(t3,((C_word*)t0)[2]);
if(C_truep(t4)){
return(t2);}
else{
t6=C_slot(t1,C_fix(1));
t1=t6;
goto loop;}}
else{
return(C_SCHEME_FALSE);}}

/* chicken.base#char-name in k24470 in k12856 in k11643 */
static void C_ccall f_24515(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_24515,c,av);}
a=C_alloc(8);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?lf[826]:C_get_rest_arg(c,3,av,3,t0));
if(C_truep(C_charp(t2))){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24528,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* library.scm:3861: lookup-char */
t6=((C_word*)t0)[3];
f_24474(t6,t5,t2);}
else{
if(C_truep(C_i_symbolp(t2))){
t5=C_i_assq(t2,((C_word*)((C_word*)t0)[2])[1]);
t6=C_eqp(t4,lf[826]);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=(C_truep(t5)?C_slot(t5,C_fix(1)):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(t4,C_SCHEME_FALSE);
if(C_truep(t7)){
if(C_truep(t5)){
t8=C_i_set_i_slot(t5,C_fix(0),C_SCHEME_FALSE);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24607,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:3879: lookup-char */
t10=((C_word*)t0)[3];
f_24474(t10,t9,C_slot(t5,C_fix(1)));}
else{
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
else{
t8=C_i_check_char_2(t4,lf[827]);
t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24617,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
t10=C_slot(t2,C_fix(1));
t11=C_block_size(t10);
if(C_truep(C_fixnum_lessp(t11,C_fix(2)))){
/* library.scm:3884: ##sys#signal-hook */
t12=*((C_word*)lf[127]+1);{
C_word av2[6];
av2[0]=t12;
av2[1]=t9;
av2[2]=lf[309];
av2[3]=lf[827];
av2[4]=lf[829];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t12+1)))(6,av2);}}
else{
t12=t9;{
C_word *av2=av;
av2[0]=t12;
av2[1]=C_SCHEME_UNDEFINED;
f_24617(2,av2);}}}}}
else{
/* library.scm:3898: ##sys#signal-hook */
t5=*((C_word*)lf[127]+1);{
C_word av2[6];
av2[0]=t5;
av2[1]=t1;
av2[2]=lf[309];
av2[3]=lf[827];
av2[4]=lf[830];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}}}

/* k24526 in chicken.base#char-name in k24470 in k12856 in k11643 */
static void C_ccall f_24528(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_24528,c,av);}
if(C_truep(t1)){
t2=C_eqp(((C_word*)t0)[2],lf[826]);
if(C_truep(t2)){
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_slot(t1,C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t0)[2],C_SCHEME_FALSE);
if(C_truep(t3)){
t4=C_i_set_i_slot(t1,C_fix(0),C_SCHEME_FALSE);
t5=C_slot(t1,C_fix(1));
t6=C_i_assq(t5,((C_word*)((C_word*)t0)[4])[1]);
t7=C_i_set_i_slot(t6,C_fix(0),C_SCHEME_FALSE);
t8=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
/* library.scm:3870: ##sys#signal-hook */
t4=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[309];
av2[3]=lf[827];
av2[4]=lf[828];
av2[5]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(6,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);}}}

/* k24605 in chicken.base#char-name in k24470 in k12856 in k11643 */
static void C_ccall f_24607(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_24607,c,av);}
t2=C_i_set_i_slot(t1,C_fix(0),C_SCHEME_FALSE);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k24615 in chicken.base#char-name in k24470 in k12856 in k11643 */
static void C_ccall f_24617(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_24617,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24620,a[2]=((C_word*)t0)[2],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);
/* library.scm:3885: lookup-char */
t3=((C_word*)t0)[7];
f_24474(t3,t2,((C_word*)t0)[5]);}

/* k24618 in k24615 in chicken.base#char-name in k24470 in k12856 in k11643 */
static void C_ccall f_24620(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_24620,c,av);}
a=C_alloc(12);
if(C_truep(t1)){
t2=C_i_assq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);
t3=C_i_setslot(t1,C_fix(1),((C_word*)t0)[2]);
if(C_truep(t2)){
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_i_slot(t2,C_fix(1),((C_word*)t0)[5]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[5]);
t5=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[3])[1]);
t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5);
t7=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
else{
t2=C_fix(C_character_code(((C_word*)t0)[5]));
t3=C_fixnum_modulo(t2,C_fix(37));
t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[5]);
t5=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[3])[1]);
t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5);
t7=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[2]);
t8=C_slot(((C_word*)t0)[6],t3);
t9=C_a_i_cons(&a,2,t7,t8);
t10=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t10;
av2[1]=C_i_setslot(((C_word*)t0)[6],t3,t9);
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}

/* k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24700(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_24700,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24703,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3903: chicken.base#char-name */
t3=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1642];
av2[3]=C_make_character(9);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24703(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_24703,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24706,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3904: chicken.base#char-name */
t3=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1641];
av2[3]=C_make_character(10);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24706(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_24706,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24709,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3905: chicken.base#char-name */
t3=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1640];
av2[3]=C_make_character(10);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24709(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_24709,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24712,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3906: chicken.base#char-name */
t3=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1639];
av2[3]=C_make_character(11);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24712(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_24712,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24715,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3907: chicken.base#char-name */
t3=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1638];
av2[3]=C_make_character(127);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24715(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_24715,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24718,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3908: chicken.base#char-name */
t3=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1637];
av2[3]=C_make_character(27);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24718(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_24718,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24721,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3909: chicken.base#char-name */
t3=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1636];
av2[3]=C_make_character(27);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24721(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_24721,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24724,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3910: chicken.base#char-name */
t3=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1635];
av2[3]=C_make_character(7);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24724(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_24724,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24727,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3911: chicken.base#char-name */
t3=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1634];
av2[3]=C_make_character(0);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24727(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_24727,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24730,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3912: chicken.base#char-name */
t3=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1633];
av2[3]=C_make_character(0);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24730(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_24730,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24733,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3913: chicken.base#char-name */
t3=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1632];
av2[3]=C_make_character(13);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24733(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_24733,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24736,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3914: chicken.base#char-name */
t3=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1631];
av2[3]=C_make_character(12);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24736(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_24736,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24739,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:3915: chicken.base#char-name */
t3=*((C_word*)lf[253]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1630];
av2[3]=C_make_character(8);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24739(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(84,c,6)))){
C_save_and_reclaim((void *)f_24739,c,av);}
a=C_alloc(84);
t2=C_mutate((C_word*)lf[831]+1 /* (set! ##sys#call-with-current-continuation ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_call_cc,a[2]=((C_word)li643),tmp=(C_word)a,a+=3,tmp));
t3=C_mutate((C_word*)lf[832]+1 /* (set! ##sys#call-with-cthulhu ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_call_with_cthulhu,a[2]=((C_word)li644),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[833]+1 /* (set! ##sys#call-with-values ...) */,*((C_word*)lf[176]+1));
t5=C_mutate((C_word*)lf[834]+1 /* (set! ##sys#for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24744,a[2]=((C_word)li646),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[836]+1 /* (set! ##sys#map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24782,a[2]=((C_word)li648),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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24824,a[2]=((C_word)li651),tmp=(C_word)a,a+=3,tmp);
t10=C_set_block_item(t8,0,t9);
t11=C_mutate((C_word*)lf[226]+1 /* (set! scheme#for-each ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24882,a[2]=t8,a[3]=((C_word)li656),tmp=(C_word)a,a+=4,tmp));
t12=C_mutate((C_word*)lf[227]+1 /* (set! scheme#map ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24964,a[2]=t8,a[3]=((C_word)li661),tmp=(C_word)a,a+=4,tmp));
t13=C_set_block_item(lf[838] /* ##sys#dynamic-winds */,0,C_SCHEME_END_OF_LIST);
t14=C_mutate((C_word*)lf[228]+1 /* (set! scheme#dynamic-wind ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25066,a[2]=((C_word)li663),tmp=(C_word)a,a+=3,tmp));
t15=C_mutate((C_word*)lf[839]+1 /* (set! ##sys#dynamic-wind ...) */,*((C_word*)lf[228]+1));
t16=C_mutate((C_word*)lf[177]+1 /* (set! scheme#call-with-current-continuation ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25097,a[2]=((C_word)li666),tmp=(C_word)a,a+=3,tmp));
t17=C_mutate((C_word*)lf[178]+1 /* (set! scheme#call/cc ...) */,*((C_word*)lf[177]+1));
t18=C_mutate(&lf[840] /* (set! ##sys#dynamic-unwind ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25137,a[2]=((C_word)li667),tmp=(C_word)a,a+=3,tmp));
t19=C_mutate((C_word*)lf[261]+1 /* (set! chicken.base#port-closed? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25195,a[2]=((C_word)li668),tmp=(C_word)a,a+=3,tmp));
t20=C_mutate((C_word*)lf[322]+1 /* (set! ##sys#make-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25208,a[2]=((C_word)li669),tmp=(C_word)a,a+=3,tmp));
t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42230,a[2]=((C_word)li673),tmp=(C_word)a,a+=3,tmp);
t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42311,a[2]=((C_word)li676),tmp=(C_word)a,a+=3,tmp);
t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42344,a[2]=((C_word)li677),tmp=(C_word)a,a+=3,tmp);
t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42372,a[2]=((C_word)li679),tmp=(C_word)a,a+=3,tmp);
t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42389,a[2]=((C_word)li680),tmp=(C_word)a,a+=3,tmp);
t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42395,a[2]=((C_word)li681),tmp=(C_word)a,a+=3,tmp);
t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42398,a[2]=((C_word)li682),tmp=(C_word)a,a+=3,tmp);
t28=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42401,a[2]=((C_word)li685),tmp=(C_word)a,a+=3,tmp);
t29=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42508,a[2]=((C_word)li688),tmp=(C_word)a,a+=3,tmp);
t30=C_a_i_vector(&a,10,t21,t22,t23,t24,t25,t26,t27,t28,t29,C_SCHEME_FALSE);
t31=C_mutate((C_word*)lf[851]+1 /* (set! ##sys#stream-port-class ...) */,t30);
t32=C_mutate((C_word*)lf[852]+1 /* (set! ##sys#open-file-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_open_file_port,a[2]=((C_word)li689),tmp=(C_word)a,a+=3,tmp));
t33=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25254,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4233: ##sys#make-port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[322]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[322]+1);
av2[1]=t33;
av2[2]=C_fix(1);
av2[3]=C_fast_retrieve(lf[851]);
av2[4]=lf[1629];
av2[5]=lf[871];
tp(6,av2);}}

/* ##sys#for-each in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24744(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_24744,c,av);}
a=C_alloc(8);
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_24750,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=((C_word)li645),tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_24750(t7,t1,t3);}

/* loop in ##sys#for-each in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void f_24750(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_24750,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_eqp(t2,C_SCHEME_END_OF_LIST);
if(C_truep(t3)){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(t2))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24766,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:3928: p */
t5=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}
else{
/* library.scm:3930: ##sys#error-not-a-proper-list */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[51]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[835];
tp(4,av2);}}}}

/* k24764 in loop in ##sys#for-each in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24766(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_24766,c,av);}
/* library.scm:3929: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_24750(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* ##sys#map in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24782(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_24782,c,av);}
a=C_alloc(8);
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_24788,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=((C_word)li647),tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_24788(t7,t1,t3);}

/* loop in ##sys#map in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void f_24788(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_24788,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_eqp(t2,C_SCHEME_END_OF_LIST);
if(C_truep(t3)){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(t2))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24808,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:3936: p */
t5=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}
else{
/* library.scm:3937: ##sys#error-not-a-proper-list */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[51]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[837];
tp(4,av2);}}}}

/* k24806 in loop in ##sys#map in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24808(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_24808,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24812,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:3936: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_24788(t3,t2,C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k24810 in k24806 in loop in ##sys#map in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24812(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_24812,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);}}

/* mapsafe4855 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24824(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_24824,c,av);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24830,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=((C_word)li650),tmp=(C_word)a,a+=6,tmp);
/* library.scm:3941: scheme#call-with-current-continuation */
t6=*((C_word*)lf[177]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t1;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* a24829 in mapsafe4855 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24830(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_24830,c,av);}
a=C_alloc(9);
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_24836,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li649),tmp=(C_word)a,a+=7,tmp));
t6=((C_word*)t4)[1];
f_24836(t6,t1,((C_word*)t0)[4]);}

/* lp in a24829 in mapsafe4855 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void f_24836(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_24836,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_eqp(t2,C_SCHEME_END_OF_LIST);
if(C_truep(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_slot(t2,C_fix(0));
t5=C_eqp(t4,C_SCHEME_END_OF_LIST);
if(C_truep(t5)){
/* library.scm:3947: empty */
t6=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t6;
av2[1]=t1;
av2[2]=C_SCHEME_END_OF_LIST;
((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}
else{
if(C_truep(C_i_pairp(t4))){
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24868,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:3949: p */
t7=((C_word*)t0)[4];{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t4;
((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}
else{
/* library.scm:3950: ##sys#error-not-a-proper-list */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[51]+1);
av2[1]=t1;
av2[2]=t4;
av2[3]=((C_word*)t0)[5];
tp(4,av2);}}}}}

/* k24866 in lp in a24829 in mapsafe4855 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24868(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_24868,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24872,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:3949: lp */
t3=((C_word*)((C_word*)t0)[3])[1];
f_24836(t3,t2,C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k24870 in k24866 in lp in a24829 in mapsafe4855 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 in ... */
static void C_ccall f_24872(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_24872,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);}}

/* scheme#for-each in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24882(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +11,c,3)))){
C_save_and_reclaim((void*)f_24882,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+11);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
if(C_truep(C_rest_nullp(c,4))){
t5=C_i_check_list_2(t3,lf[835]);
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_24897,a[2]=t7,a[3]=t2,a[4]=((C_word)li652),tmp=(C_word)a,a+=5,tmp));
t9=((C_word*)t7)[1];
f_24897(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|5,a[1]=(C_word)f_24927,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word)li655),tmp=(C_word)a,a+=6,tmp));
t9=((C_word*)t7)[1];
f_24927(t9,t1,t5);}}

/* for-each-loop4875 in scheme#for-each in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void f_24897(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_24897,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_24907,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:3955: g4876 */
t4=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k24905 in for-each-loop4875 in scheme#for-each in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24907(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_24907,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_24897(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* loop in scheme#for-each in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void f_24927(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_24927,3,t0,t1,t2);}
a=C_alloc(10);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24934,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24958,a[2]=((C_word)li654),tmp=(C_word)a,a+=3,tmp);
/* library.scm:3958: mapsafe */
t5=((C_word*)((C_word*)t0)[3])[1];{
C_word av2[5];
av2[0]=t5;
av2[1]=t3;
av2[2]=t4;
av2[3]=t2;
av2[4]=lf[835];
((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}

/* k24932 in loop in scheme#for-each in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24934(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_24934,c,av);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t1))){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24943,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_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=t1;
C_apply(4,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k24941 in k24932 in loop in scheme#for-each in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24943(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_24943,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24950,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24952,a[2]=((C_word)li653),tmp=(C_word)a,a+=3,tmp);
/* library.scm:3961: mapsafe */
t4=((C_word*)((C_word*)t0)[4])[1];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=t3;
av2[3]=((C_word*)t0)[5];
av2[4]=lf[835];
((C_proc)C_fast_retrieve_proc(t4))(5,av2);}}

/* k24948 in k24941 in k24932 in loop in scheme#for-each in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 in ... */
static void C_ccall f_24950(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_24950,c,av);}
/* library.scm:3961: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_24927(t2,((C_word*)t0)[3],t1);}

/* a24951 in k24941 in k24932 in loop in scheme#for-each in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 in ... */
static void C_ccall f_24952(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_24952,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cdr(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a24957 in loop in scheme#for-each in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24958(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_24958,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#map in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_24964(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +14,c,3)))){
C_save_and_reclaim((void*)f_24964,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+14);
t4=C_build_rest(&a,c,4,av);
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;
if(C_truep(C_rest_nullp(c,4))){
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=C_i_check_list_2(t3,lf[837]);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24982,a[2]=t7,a[3]=t11,a[4]=t2,a[5]=t8,a[6]=((C_word)li657),tmp=(C_word)a,a+=7,tmp));
t13=((C_word*)t11)[1];
f_24982(t13,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|5,a[1]=(C_word)f_25023,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word)li660),tmp=(C_word)a,a+=6,tmp));
t9=((C_word*)t7)[1];
f_25023(t9,t1,t5);}}

/* map-loop4903 in scheme#map in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void f_24982(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_24982,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_25007,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);
/* library.scm:3966: g4909 */
t4=((C_word*)t0)[4];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k25005 in map-loop4903 in scheme#map in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25007(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_25007,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_24982(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* loop in scheme#map in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void f_25023(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_25023,3,t0,t1,t2);}
a=C_alloc(10);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_25030,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25059,a[2]=((C_word)li659),tmp=(C_word)a,a+=3,tmp);
/* library.scm:3969: mapsafe */
t5=((C_word*)((C_word*)t0)[3])[1];{
C_word av2[5];
av2[0]=t5;
av2[1]=t3;
av2[2]=t4;
av2[3]=t2;
av2[4]=lf[837];
((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}

/* k25028 in loop in scheme#map in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25030(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_25030,c,av);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t1))){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25043,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_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=t1;
C_apply(4,av2);}}
else{
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);}}}

/* k25041 in k25028 in loop in scheme#map in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25043(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_25043,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25047,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25051,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_25053,a[2]=((C_word)li658),tmp=(C_word)a,a+=3,tmp);
/* library.scm:3972: mapsafe */
t5=((C_word*)((C_word*)t0)[4])[1];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=t4;
av2[3]=((C_word*)t0)[5];
av2[4]=lf[837];
((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}

/* k25045 in k25041 in k25028 in loop in scheme#map in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 in ... */
static void C_ccall f_25047(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_25047,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);}}

/* k25049 in k25041 in k25028 in loop in scheme#map in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 in ... */
static void C_ccall f_25051(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_25051,c,av);}
/* library.scm:3972: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_25023(t2,((C_word*)t0)[3],t1);}

/* a25052 in k25041 in k25028 in loop in scheme#map in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 in ... */
static void C_ccall f_25053(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_25053,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cdr(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a25058 in loop in scheme#map in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25059(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_25059,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#dynamic-wind in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25066(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_25066,c,av);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25070,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* library.scm:3992: before */
t6=t2;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)C_fast_retrieve_proc(t6))(2,av2);}}

/* k25068 in scheme#dynamic-wind in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25070(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_25070,c,av);}
a=C_alloc(10);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_a_i_cons(&a,2,t2,C_fast_retrieve(lf[838]));
t4=C_mutate((C_word*)lf[838]+1 /* (set! ##sys#dynamic-winds ...) */,t3);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25079,a[2]=((C_word*)t0)[3],a[3]=((C_word)li662),tmp=(C_word)a,a+=4,tmp);
/* library.scm:3994: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=t5;
C_call_with_values(4,av2);}}

/* a25078 in k25068 in scheme#dynamic-wind in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25079(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_25079,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
t3=C_slot(C_fast_retrieve(lf[838]),C_fix(1));
t4=C_mutate((C_word*)lf[838]+1 /* (set! ##sys#dynamic-winds ...) */,t3);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25087,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:3998: after */
t6=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)C_fast_retrieve_proc(t6))(2,av2);}}

/* k25085 in a25078 in k25068 in scheme#dynamic-wind in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25087(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_25087,c,av);}{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
C_apply_values(3,av2);}}

/* scheme#call-with-current-continuation in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25097(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_25097,c,av);}
a=C_alloc(5);
t3=C_fast_retrieve(lf[838]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25103,a[2]=t3,a[3]=t2,a[4]=((C_word)li665),tmp=(C_word)a,a+=5,tmp);
/* library.scm:4006: ##sys#call-with-current-continuation */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t4;
C_call_cc(3,av2);}}

/* a25102 in scheme#call-with-current-continuation in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25103(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_25103,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25106,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li664),tmp=(C_word)a,a+=5,tmp);
/* library.scm:4012: proc */
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* continuation in a25102 in scheme#call-with-current-continuation in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25106(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){
C_save_and_reclaim((void*)f_25106,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+5);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25110,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_eqp(C_fast_retrieve(lf[838]),((C_word*)t0)[3]);
if(C_truep(t4)){{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
C_apply(4,av2);}}
else{
t5=C_i_length(C_fast_retrieve(lf[838]));
t6=C_i_length(((C_word*)t0)[3]);
/* library.scm:4010: ##sys#dynamic-unwind */
f_25137(t3,((C_word*)t0)[3],C_fixnum_difference(t5,t6));}}

/* k25108 in continuation in a25102 in scheme#call-with-current-continuation in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25110(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_25110,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]=((C_word*)t0)[4];
C_apply(4,av2);}}

/* ##sys#dynamic-unwind in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void f_25137(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_25137,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_eqp(C_fast_retrieve(lf[838]),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{
if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25153,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4019: ##sys#dynamic-unwind */
t11=t5;
t12=C_slot(t2,C_fix(1));
t13=C_fixnum_plus(t3,C_fix(1));
t1=t11;
t2=t12;
t3=t13;
goto loop;}
else{
t5=C_slot(C_fast_retrieve(lf[838]),C_fix(0));
t6=C_slot(t5,C_fix(1));
t7=C_slot(C_fast_retrieve(lf[838]),C_fix(1));
t8=C_mutate((C_word*)lf[838]+1 /* (set! ##sys#dynamic-winds ...) */,t7);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25182,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4025: after */
t10=t6;{
C_word av2[2];
av2[0]=t10;
av2[1]=t9;
((C_proc)C_fast_retrieve_proc(t10))(2,av2);}}}}

/* k25151 in ##sys#dynamic-unwind in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25153(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_25153,c,av);}
a=C_alloc(3);
t2=C_slot(((C_word*)t0)[2],C_fix(0));
t3=C_slot(t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25159,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:4017: g4963 */
t5=t3;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)C_fast_retrieve_proc(t5))(2,av2);}}

/* k25157 in k25151 in ##sys#dynamic-unwind in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25159(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_25159,c,av);}
t2=((C_word*)t0)[2];
t3=C_mutate((C_word*)lf[838]+1 /* (set! ##sys#dynamic-winds ...) */,((C_word*)t2)[2]);
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k25180 in ##sys#dynamic-unwind in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25182(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_25182,c,av);}
/* library.scm:4026: ##sys#dynamic-unwind */
f_25137(((C_word*)t0)[2],((C_word*)t0)[3],C_fixnum_difference(((C_word*)t0)[4],C_fix(1)));}

/* chicken.base#port-closed? in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25195(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_25195,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25199,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4033: ##sys#check-port */
t4=*((C_word*)lf[342]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
av2[3]=lf[841];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k25197 in chicken.base#port-closed? in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25199(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_25199,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_eqp(C_slot(((C_word*)t0)[3],C_fix(8)),C_fix(0));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* ##sys#make-port in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25208(C_word c,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 t19;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(17,c,1)))){
C_save_and_reclaim((void *)f_25208,c,av);}
a=C_alloc(17);
t6=C_a_i_port(&a,0);
t7=C_i_set_i_slot(t6,C_fix(1),t2);
t8=C_i_setslot(t6,C_fix(2),t3);
t9=C_i_setslot(t6,C_fix(3),t4);
t10=C_i_set_i_slot(t6,C_fix(4),C_fix(1));
t11=C_i_set_i_slot(t6,C_fix(5),C_fix(0));
t12=C_i_set_i_slot(t6,C_fix(6),C_SCHEME_FALSE);
t13=C_i_setslot(t6,C_fix(7),t5);
t14=C_i_setslot(t6,C_fix(8),t2);
t15=C_i_set_i_slot(t6,C_fix(10),C_SCHEME_FALSE);
t16=C_i_set_i_slot(t6,C_fix(13),C_SCHEME_TRUE);
t17=C_i_set_i_slot(t6,C_fix(14),lf[185]);
t18=C_i_setslot(t6,C_fix(15),lf[466]);
t19=t1;{
C_word *av2=av;
av2[0]=t19;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}

/* k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25254(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_25254,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[853]+1 /* (set! ##sys#standard-input ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25258,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4234: ##sys#make-port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[322]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[322]+1);
av2[1]=t3;
av2[2]=C_fix(2);
av2[3]=C_fast_retrieve(lf[851]);
av2[4]=lf[1628];
av2[5]=lf[871];
tp(6,av2);}}

/* k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25258(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_25258,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[854]+1 /* (set! ##sys#standard-output ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25262,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4235: ##sys#make-port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[322]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[322]+1);
av2[1]=t3;
av2[2]=C_fix(2);
av2[3]=C_fast_retrieve(lf[851]);
av2[4]=lf[1627];
av2[5]=lf[871];
tp(6,av2);}}

/* k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25262(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_25262,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[855]+1 /* (set! ##sys#standard-error ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25265,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4237: ##sys#open-file-port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[852]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[852]+1);
av2[1]=t3;
av2[2]=*((C_word*)lf[853]+1);
av2[3]=C_fix(0);
av2[4]=C_SCHEME_FALSE;
tp(5,av2);}}

/* k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_25265(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_25265,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25268,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4238: ##sys#open-file-port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[852]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[852]+1);
av2[1]=t2;
av2[2]=*((C_word*)lf[854]+1);
av2[3]=C_fix(1);
av2[4]=C_SCHEME_FALSE;
tp(5,av2);}}

/* k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 in ... */
static void C_ccall f_25268(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_25268,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25271,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4239: ##sys#open-file-port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[852]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[852]+1);
av2[1]=t2;
av2[2]=*((C_word*)lf[855]+1);
av2[3]=C_fix(2);
av2[4]=C_SCHEME_FALSE;
tp(5,av2);}}

/* k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in ... */
static void C_ccall f_25271(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(119,c,6)))){
C_save_and_reclaim((void *)f_25271,c,av);}
a=C_alloc(119);
t2=C_mutate((C_word*)lf[856]+1 /* (set! ##sys#check-input-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25273,a[2]=((C_word)li690),tmp=(C_word)a,a+=3,tmp));
t3=C_mutate((C_word*)lf[857]+1 /* (set! ##sys#check-output-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25284,a[2]=((C_word)li691),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[342]+1 /* (set! ##sys#check-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25295,a[2]=((C_word)li692),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[858]+1 /* (set! ##sys#check-open-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25306,a[2]=((C_word)li693),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[190]+1 /* (set! scheme#current-input-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25317,a[2]=((C_word)li695),tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[191]+1 /* (set! scheme#current-output-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25378,a[2]=((C_word)li697),tmp=(C_word)a,a+=3,tmp));
t8=C_mutate((C_word*)lf[248]+1 /* (set! chicken.base#current-error-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25439,a[2]=((C_word)li699),tmp=(C_word)a,a+=3,tmp));
t9=C_mutate((C_word*)lf[862]+1 /* (set! ##sys#tty-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25500,a[2]=((C_word)li700),tmp=(C_word)a,a+=3,tmp));
t10=C_mutate((C_word*)lf[864]+1 /* (set! ##sys#port-data ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25514,a[2]=((C_word)li701),tmp=(C_word)a,a+=3,tmp));
t11=C_mutate((C_word*)lf[865]+1 /* (set! ##sys#set-port-data! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25520,a[2]=((C_word)li702),tmp=(C_word)a,a+=3,tmp));
t12=C_set_block_item(lf[866] /* ##sys#default-file-encoding */,0,C_SCHEME_UNDEFINED);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_SCHEME_UNDEFINED;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25527,a[2]=((C_word)li704),tmp=(C_word)a,a+=3,tmp));
t18=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25757,a[2]=((C_word)li705),tmp=(C_word)a,a+=3,tmp));
t19=C_mutate((C_word*)lf[192]+1 /* (set! scheme#open-input-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25794,a[2]=t14,a[3]=((C_word)li706),tmp=(C_word)a,a+=4,tmp));
t20=C_mutate((C_word*)lf[193]+1 /* (set! scheme#open-output-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25800,a[2]=t14,a[3]=((C_word)li707),tmp=(C_word)a,a+=4,tmp));
t21=C_mutate((C_word*)lf[194]+1 /* (set! scheme#close-input-port ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25806,a[2]=t16,a[3]=((C_word)li708),tmp=(C_word)a,a+=4,tmp));
t22=C_mutate((C_word*)lf[195]+1 /* (set! scheme#close-output-port ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25812,a[2]=t16,a[3]=((C_word)li709),tmp=(C_word)a,a+=4,tmp));
t23=*((C_word*)lf[192]+1);
t24=C_mutate((C_word*)lf[196]+1 /* (set! scheme#call-with-input-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25818,a[2]=t23,a[3]=((C_word)li712),tmp=(C_word)a,a+=4,tmp));
t25=*((C_word*)lf[193]+1);
t26=C_mutate((C_word*)lf[197]+1 /* (set! scheme#call-with-output-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25842,a[2]=t25,a[3]=((C_word)li715),tmp=(C_word)a,a+=4,tmp));
t27=*((C_word*)lf[192]+1);
t28=C_mutate((C_word*)lf[198]+1 /* (set! scheme#with-input-from-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25866,a[2]=t27,a[3]=((C_word)li720),tmp=(C_word)a,a+=4,tmp));
t29=*((C_word*)lf[193]+1);
t30=C_mutate((C_word*)lf[199]+1 /* (set! scheme#with-output-to-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25900,a[2]=t29,a[3]=((C_word)li725),tmp=(C_word)a,a+=4,tmp));
t31=C_mutate((C_word*)lf[897]+1 /* (set! ##sys#file-exists? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25934,a[2]=((C_word)li726),tmp=(C_word)a,a+=3,tmp));
t32=C_mutate((C_word*)lf[900]+1 /* (set! ##sys#flush-output ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25960,a[2]=((C_word)li727),tmp=(C_word)a,a+=3,tmp));
t33=C_mutate((C_word*)lf[262]+1 /* (set! chicken.base#flush-output ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25973,a[2]=((C_word)li728),tmp=(C_word)a,a+=3,tmp));
t34=C_mutate((C_word*)lf[902]+1 /* (set! ##sys#port-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25991,a[2]=((C_word)li729),tmp=(C_word)a,a+=3,tmp));
t35=C_mutate((C_word*)lf[903]+1 /* (set! ##sys#decorate-lambda ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26000,a[2]=((C_word)li732),tmp=(C_word)a,a+=3,tmp));
t36=C_mutate((C_word*)lf[904]+1 /* (set! ##sys#lambda-decoration ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26075,a[2]=((C_word)li734),tmp=(C_word)a,a+=3,tmp));
t37=C_mutate((C_word*)lf[905]+1 /* (set! ##sys#make-lambda-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26114,a[2]=((C_word)li735),tmp=(C_word)a,a+=3,tmp));
t38=C_mutate((C_word*)lf[906]+1 /* (set! ##sys#lambda-info? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26130,a[2]=((C_word)li736),tmp=(C_word)a,a+=3,tmp));
t39=C_mutate((C_word*)lf[907]+1 /* (set! ##sys#lambda-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26143,a[2]=((C_word)li737),tmp=(C_word)a,a+=3,tmp));
t40=C_mutate((C_word*)lf[908]+1 /* (set! ##sys#lambda-info->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26149,a[2]=((C_word)li738),tmp=(C_word)a,a+=3,tmp));
t41=C_mutate((C_word*)lf[255]+1 /* (set! chicken.base#procedure-information ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26163,a[2]=((C_word)li739),tmp=(C_word)a,a+=3,tmp));
t42=C_a_i_vector1(&a,1,lf[911]);
t43=C_mutate(&lf[912] /* (set! setter-tag ...) */,t42);
t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26192,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42106,a[2]=((C_word)li1256),tmp=(C_word)a,a+=3,tmp);
t46=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42146,a[2]=((C_word)li1257),tmp=(C_word)a,a+=3,tmp);
t47=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42162,a[2]=((C_word)li1261),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4485: ##sys#decorate-lambda */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[903]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[903]+1);
av2[1]=t44;
av2[2]=t45;
av2[3]=t46;
av2[4]=t47;
tp(5,av2);}}

/* ##sys#check-input-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25273(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_25273,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+0);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=C_i_pairp(t4);
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=(C_truep(t5)?C_i_check_port_2(t2,C_fix(1),t3,C_get_rest_arg(c,4,av,4,t0)):C_i_check_port(t2,C_fix(1),t3));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* ##sys#check-output-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25284(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_25284,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+0);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=C_i_pairp(t4);
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=(C_truep(t5)?C_i_check_port_2(t2,C_fix(2),t3,C_get_rest_arg(c,4,av,4,t0)):C_i_check_port(t2,C_fix(2),t3));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* ##sys#check-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25295(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_25295,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_port_2(t2,C_fix(0),C_SCHEME_FALSE,C_get_rest_arg(c,3,av,3,t0)):C_i_check_port(t2,C_fix(0),C_SCHEME_FALSE));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#check-open-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25306(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_25306,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=C_i_pairp(t3);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_i_check_port_2(t2,C_fix(0),C_SCHEME_TRUE,C_get_rest_arg(c,3,av,3,t0)):C_i_check_port(t2,C_fix(0),C_SCHEME_TRUE));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* scheme#current-input-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25317(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){
C_save_and_reclaim((void*)f_25317,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+5);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
if(C_truep(C_i_nullp(t2))){
t3=*((C_word*)lf[853]+1);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=*((C_word*)lf[853]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25330,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4266: ##sys#check-port */
t5=*((C_word*)lf[342]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
av2[3]=lf[859];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}

/* k25328 in scheme#current-input-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_25330(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_25330,c,av);}
a=C_alloc(10);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25332,a[2]=((C_word*)t0)[3],a[3]=((C_word)li694),tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25338,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25343,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_nullp(t2))){
t6=(
/* library.scm:4267: def-convert?5127 */
  f_25343(t5)
);
t7=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t7;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t6=C_i_car(t2);
t7=C_u_i_cdr(t2);
if(C_truep(C_i_nullp(t7))){
t8=(
/* library.scm:4267: def-set?5128 */
  f_25338(t4)
);
t9=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t9;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t8=C_i_car(t7);
t9=C_u_i_cdr(t7);
t10=(
/* library.scm:4267: body5125 */
  f_25332(t3,t8)
);
t11=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t11;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}

/* body5125 in k25328 in scheme#current-input-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static C_word f_25332(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_stack_overflow_check;{}
if(C_truep(t1)){
t2=C_mutate((C_word*)lf[853]+1 /* (set! ##sys#standard-input ...) */,((C_word*)t0)[2]);
return(t2);}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* def-set?5128 in k25328 in scheme#current-input-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static C_word f_25338(C_word t0){
C_word tmp;
C_word t1;
C_stack_overflow_check;{}
return((
/* library.scm:4267: body5125 */
  f_25332(((C_word*)t0)[2],C_SCHEME_TRUE)
));}

/* def-convert?5127 in k25328 in scheme#current-input-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static C_word f_25343(C_word t0){
C_word tmp;
C_word t1;
C_stack_overflow_check;{}
return((
/* library.scm:4267: def-set?5128 */
  f_25338(((C_word*)t0)[2])
));}

/* scheme#current-output-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25378(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){
C_save_and_reclaim((void*)f_25378,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+5);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
if(C_truep(C_i_nullp(t2))){
t3=*((C_word*)lf[854]+1);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=*((C_word*)lf[854]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25391,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4276: ##sys#check-port */
t5=*((C_word*)lf[342]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
av2[3]=lf[860];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}

/* k25389 in scheme#current-output-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_25391(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_25391,c,av);}
a=C_alloc(10);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25393,a[2]=((C_word*)t0)[3],a[3]=((C_word)li696),tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25399,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25404,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_nullp(t2))){
t6=(
/* library.scm:4277: def-convert?5152 */
  f_25404(t5)
);
t7=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t7;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t6=C_i_car(t2);
t7=C_u_i_cdr(t2);
if(C_truep(C_i_nullp(t7))){
t8=(
/* library.scm:4277: def-set?5153 */
  f_25399(t4)
);
t9=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t9;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t8=C_i_car(t7);
t9=C_u_i_cdr(t7);
t10=(
/* library.scm:4277: body5150 */
  f_25393(t3,t8)
);
t11=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t11;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}

/* body5150 in k25389 in scheme#current-output-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static C_word f_25393(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_stack_overflow_check;{}
if(C_truep(t1)){
t2=C_mutate((C_word*)lf[854]+1 /* (set! ##sys#standard-output ...) */,((C_word*)t0)[2]);
return(t2);}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* def-set?5153 in k25389 in scheme#current-output-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static C_word f_25399(C_word t0){
C_word tmp;
C_word t1;
C_stack_overflow_check;{}
return((
/* library.scm:4277: body5150 */
  f_25393(((C_word*)t0)[2],C_SCHEME_TRUE)
));}

/* def-convert?5152 in k25389 in scheme#current-output-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static C_word f_25404(C_word t0){
C_word tmp;
C_word t1;
C_stack_overflow_check;{}
return((
/* library.scm:4277: def-set?5153 */
  f_25399(((C_word*)t0)[2])
));}

/* chicken.base#current-error-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25439(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){
C_save_and_reclaim((void*)f_25439,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+5);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
if(C_truep(C_i_nullp(t2))){
t3=*((C_word*)lf[855]+1);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25452,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4286: ##sys#check-port */
t5=*((C_word*)lf[342]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
av2[3]=lf[861];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}

/* k25450 in chicken.base#current-error-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_25452(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_25452,c,av);}
a=C_alloc(10);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25454,a[2]=((C_word*)t0)[3],a[3]=((C_word)li698),tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25460,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25465,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_nullp(t2))){
t6=(
/* library.scm:4287: def-convert?5177 */
  f_25465(t5)
);
t7=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t7;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t6=C_i_car(t2);
t7=C_u_i_cdr(t2);
if(C_truep(C_i_nullp(t7))){
t8=(
/* library.scm:4287: def-set?5178 */
  f_25460(t4)
);
t9=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t9;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t8=C_i_car(t7);
t9=C_u_i_cdr(t7);
t10=(
/* library.scm:4287: body5175 */
  f_25454(t3,t8)
);
t11=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t11;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}

/* body5175 in k25450 in chicken.base#current-error-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static C_word f_25454(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_stack_overflow_check;{}
if(C_truep(t1)){
t2=C_mutate((C_word*)lf[855]+1 /* (set! ##sys#standard-error ...) */,((C_word*)t0)[2]);
return(t2);}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* def-set?5178 in k25450 in chicken.base#current-error-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static C_word f_25460(C_word t0){
C_word tmp;
C_word t1;
C_stack_overflow_check;{}
return((
/* library.scm:4287: body5175 */
  f_25454(((C_word*)t0)[2],C_SCHEME_TRUE)
));}

/* def-convert?5177 in k25450 in chicken.base#current-error-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static C_word f_25465(C_word t0){
C_word tmp;
C_word t1;
C_stack_overflow_check;{}
return((
/* library.scm:4287: def-set?5178 */
  f_25460(((C_word*)t0)[2])
));}

/* ##sys#tty-port? in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25500(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_25500,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25512,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4292: ##sys#peek-unsigned-integer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[863]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[863]+1);
av2[1]=t3;
av2[2]=t2;
av2[3]=C_fix(0);
tp(4,av2);}}

/* k25510 in ##sys#tty-port? in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_25512(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_25512,c,av);}
t2=C_i_not(C_i_zerop(t1));
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?C_tty_portp(((C_word*)t0)[3]):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#port-data in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25514(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_25514,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_slot(t2,C_fix(9));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#set-port-data! in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25520(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_25520,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_setslot(t2,C_fix(9),t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* open in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void f_25527(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){
C_save_and_reclaim_args((void *)trf_25527,5,t1,t2,t3,t4,t5);}
a=C_alloc(13);
t6=C_i_check_string_2(t2,t5);
t7=(C_truep(t3)?lf[867]:lf[868]);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=lf[869];
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25537,a[2]=t1,a[3]=t5,a[4]=t2,a[5]=t9,a[6]=t11,a[7]=t3,a[8]=t4,tmp=(C_word)a,a+=9,tmp);
/* library.scm:4305: ##sys#default-file-encoding */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[866]);
C_word av2[2];
av2[0]=*((C_word*)lf[866]+1);
av2[1]=t12;
tp(2,av2);}}

/* k25535 in open in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_25537(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_25537,c,av);}
a=C_alloc(22);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25540,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
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|8,a[1]=(C_word)f_25577,a[2]=t6,a[3]=((C_word*)t0)[6],a[4]=t3,a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[5],a[8]=((C_word)li703),tmp=(C_word)a,a+=9,tmp));
t8=((C_word*)t6)[1];
f_25577(t8,t4,((C_word*)t0)[8]);}

/* k25538 in k25535 in open in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_25540(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_25540,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25543,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
if(C_truep(((C_word*)t0)[8])){
/* library.scm:4327: ##sys#make-port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[322]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[322]+1);
av2[1]=t2;
av2[2]=C_fix(1);
av2[3]=C_fast_retrieve(lf[851]);
av2[4]=((C_word*)t0)[5];
av2[5]=lf[871];
tp(6,av2);}}
else{
/* library.scm:4327: ##sys#make-port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[322]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[322]+1);
av2[1]=t2;
av2[2]=C_fix(2);
av2[3]=C_fast_retrieve(lf[851]);
av2[4]=((C_word*)t0)[5];
av2[5]=lf[871];
tp(6,av2);}}}

/* k25541 in k25538 in k25535 in open in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in ... */
static void C_ccall f_25543(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_25543,c,av);}
a=C_alloc(16);
t2=C_i_setslot(t1,C_fix(15),((C_word*)((C_word*)t0)[2])[1]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25549,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_25552,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25571,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4329: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=t5;
av2[2]=((C_word*)((C_word*)t0)[6])[1];
av2[3]=((C_word*)((C_word*)t0)[7])[1];
tp(4,av2);}}

/* k25547 in k25541 in k25538 in k25535 in open in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in ... */
static void C_ccall f_25549(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_25549,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);}}

/* k25550 in k25541 in k25538 in k25535 in open in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in ... */
static void C_ccall f_25552(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_25552,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25559,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4330: ##sys#update-errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[845]);
C_word *av2=av;
av2[0]=*((C_word*)lf[845]+1);
av2[1]=t2;
tp(2,av2);}}}

/* k25557 in k25550 in k25541 in k25538 in k25535 in open in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in ... */
static void C_ccall f_25559(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_25559,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25563,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25567,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* ##sys#peek-c-string */
t4=*((C_word*)lf[844]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_mpointer(&a,(void*)strerror(errno));
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k25561 in k25557 in k25550 in k25541 in k25538 in k25535 in open in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in ... */
static void C_ccall f_25563(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_25563,c,av);}
/* library.scm:4330: ##sys#signal-hook/errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[388]);
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=*((C_word*)lf[388]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[476];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
av2[5]=t1;
av2[6]=((C_word*)t0)[5];
tp(7,av2);}}

/* k25565 in k25557 in k25550 in k25541 in k25538 in k25535 in open in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in ... */
static void C_ccall f_25567(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_25567,c,av);}
/* library.scm:4331: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[870];
av2[3]=t1;
tp(4,av2);}}

/* k25569 in k25541 in k25538 in k25535 in open in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in ... */
static void C_ccall f_25571(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_25571,c,av);}
/* library.scm:4329: ##sys#open-file-port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[852]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[852]+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);}}

/* doloop5214 in k25535 in open in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void f_25577(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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(17,0,2)))){
C_save_and_reclaim_args((void *)trf_25577,3,t0,t1,t2);}
a=C_alloc(17);
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_slot(t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25590,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t5=C_eqp(t3,lf[872]);
t6=(C_truep(t5)?t5:C_eqp(t3,lf[182]));
if(C_truep(t6)){
t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[873]);
t8=C_mutate(((C_word *)((C_word*)t0)[4])+1,lf[182]);
t16=t1;
t17=C_slot(t2,C_fix(1));
t1=t16;
t2=t17;
goto loop;}
else{
t7=C_eqp(t3,lf[874]);
t8=(C_truep(t7)?t7:C_eqp(t3,lf[875]));
if(C_truep(t8)){
t9=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[876]);
t16=t1;
t17=C_slot(t2,C_fix(1));
t1=t16;
t2=t17;
goto loop;}
else{
t9=C_eqp(t3,lf[877]);
t10=(C_truep(t9)?t9:C_eqp(t3,lf[466]));
if(C_truep(t10)){
t11=C_mutate(((C_word *)((C_word*)t0)[4])+1,lf[466]);
t16=t1;
t17=C_slot(t2,C_fix(1));
t1=t16;
t2=t17;
goto loop;}
else{
t11=C_eqp(t3,lf[878]);
t12=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25634,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[5],a[9]=t4,a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp);
if(C_truep(t11)){
t13=t12;
f_25634(t13,t11);}
else{
t13=C_eqp(t3,lf[467]);
if(C_truep(t13)){
t14=t12;
f_25634(t14,t13);}
else{
t14=C_eqp(t3,lf[891]);
t15=t12;
f_25634(t15,(C_truep(t14)?t14:C_eqp(t3,lf[892])));}}}}}}}

/* k25588 in doloop5214 in k25535 in open in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in ... */
static void C_ccall f_25590(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_25590,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_25577(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k25632 in doloop5214 in k25535 in open in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in ... */
static void f_25634(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_25634,2,t0,t1);}
a=C_alloc(11);
if(C_truep(t1)){
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[467]);
t3=((C_word*)((C_word*)t0)[3])[1];
f_25577(t3,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
else{
t2=C_eqp(((C_word*)t0)[6],lf[879]);
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25644,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp);
if(C_truep(t2)){
t4=t3;
f_25644(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[6],lf[888]);
if(C_truep(t4)){
t5=t3;
f_25644(t5,t4);}
else{
t5=C_eqp(((C_word*)t0)[6],lf[889]);
t6=t3;
f_25644(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[6],lf[890])));}}}}

/* k25642 in k25632 in doloop5214 in k25535 in open in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in ... */
static void f_25644(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_25644,2,t0,t1);}
if(C_truep(t1)){
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[880]);
t3=((C_word*)((C_word*)t0)[3])[1];
f_25577(t3,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
else{
t2=C_eqp(((C_word*)t0)[6],lf[881]);
t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],lf[882]));
if(C_truep(t3)){
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[883]);
t5=((C_word*)((C_word*)t0)[3])[1];
f_25577(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
else{
t4=C_eqp(((C_word*)t0)[6],lf[884]);
t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[6],lf[453]));
if(C_truep(t5)){
if(C_truep(((C_word*)t0)[7])){
/* library.scm:4324: ##sys#error */
t6=*((C_word*)lf[211]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=((C_word*)t0)[8];
av2[2]=((C_word*)t0)[9];
av2[3]=lf[885];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t6=C_mutate(((C_word *)((C_word*)t0)[10])+1,lf[886]);
t7=((C_word*)((C_word*)t0)[3])[1];
f_25577(t7,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}}
else{
/* library.scm:4326: ##sys#error */
t6=*((C_word*)lf[211]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=((C_word*)t0)[8];
av2[2]=((C_word*)t0)[9];
av2[3]=lf[887];
av2[4]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}}}

/* close in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void f_25757(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_25757,4,t1,t2,t3,t4);}
a=C_alloc(5);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25761,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4336: ##sys#check-port */
t6=*((C_word*)lf[342]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}

/* k25759 in close in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_25761(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_25761,c,av);}
t2=(C_truep(((C_word*)t0)[2])?C_fix(1):C_fix(2));
if(C_truep(C_port_openp(((C_word*)t0)[3],t2))){
t3=C_slot(((C_word*)t0)[3],C_fix(8));
t4=C_fixnum_not(t2);
t5=C_fixnum_and(t3,t4);
t6=C_i_set_i_slot(((C_word*)t0)[3],C_fix(8),t5);
t7=C_slot(((C_word*)t0)[3],C_fix(2));
/* library.scm:4339: g5269 */
t8=C_slot(t7,C_fix(4));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t8;
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
((C_proc)C_fast_retrieve_proc(t8))(4,av2);}}
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);}}}

/* scheme#open-input-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25794(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){
C_save_and_reclaim((void*)f_25794,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
/* library.scm:4343: open */
f_25527(t1,t2,C_SCHEME_TRUE,t3,lf[893]);}

/* scheme#open-output-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25800(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){
C_save_and_reclaim((void*)f_25800,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+0);
t3=C_build_rest(&a,c,3,av);
C_word t4;
/* library.scm:4344: open */
f_25527(t1,t2,C_SCHEME_FALSE,t3,lf[894]);}

/* scheme#close-input-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25806(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_25806,c,av);}
/* library.scm:4345: close */
f_25757(t1,t2,C_SCHEME_TRUE,lf[895]);}

/* scheme#close-output-port in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25812(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_25812,c,av);}
/* library.scm:4346: close */
f_25757(t1,t2,C_SCHEME_FALSE,lf[896]);}

/* scheme#call-with-input-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25818(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){
C_save_and_reclaim((void*)f_25818,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+4);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25822,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=t4;
C_apply(5,av2);}}

/* k25820 in scheme#call-with-input-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_25822(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_25822,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25827,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li710),tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25833,a[2]=t1,a[3]=((C_word)li711),tmp=(C_word)a,a+=4,tmp);
/* library.scm:4353: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}

/* a25826 in k25820 in scheme#call-with-input-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_25827(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_25827,c,av);}
/* library.scm:4354: p */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* a25832 in k25820 in scheme#call-with-input-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_25833(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_25833,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25837,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4356: close-input-port */
t4=*((C_word*)lf[194]+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);}}

/* k25835 in a25832 in k25820 in scheme#call-with-input-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in ... */
static void C_ccall f_25837(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_25837,c,av);}{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
C_apply_values(3,av2);}}

/* scheme#call-with-output-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25842(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){
C_save_and_reclaim((void*)f_25842,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+4);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25846,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=t4;
C_apply(5,av2);}}

/* k25844 in scheme#call-with-output-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_25846(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_25846,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25851,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li713),tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25857,a[2]=t1,a[3]=((C_word)li714),tmp=(C_word)a,a+=4,tmp);
/* library.scm:4364: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}

/* a25850 in k25844 in scheme#call-with-output-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_25851(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_25851,c,av);}
/* library.scm:4365: p */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* a25856 in k25844 in scheme#call-with-output-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_25857(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_25857,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25861,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4367: close-output-port */
t4=*((C_word*)lf[195]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k25859 in a25856 in k25844 in scheme#call-with-output-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in ... */
static void C_ccall f_25861(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_25861,c,av);}{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
C_apply_values(3,av2);}}

/* scheme#with-input-from-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25866(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){
C_save_and_reclaim((void*)f_25866,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+4);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25870,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=t4;
C_apply(5,av2);}}

/* k25868 in scheme#with-input-from-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_25870(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){
C_save_and_reclaim((void *)f_25870,c,av);}
a=C_alloc(19);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25875,a[2]=t5,a[3]=t3,a[4]=((C_word)li716),tmp=(C_word)a,a+=5,tmp);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25880,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word)li718),tmp=(C_word)a,a+=5,tmp);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25895,a[2]=t3,a[3]=t5,a[4]=((C_word)li719),tmp=(C_word)a,a+=5,tmp);
/* library.scm:4375: ##sys#dynamic-wind */
t9=*((C_word*)lf[839]+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);}}

/* a25874 in k25868 in scheme#with-input-from-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_25875(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_25875,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[853]+1));
t3=C_mutate((C_word*)lf[853]+1 /* (set! ##sys#standard-input ...) */,((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);}}

/* a25879 in k25868 in scheme#with-input-from-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_25880(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_25880,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25886,a[2]=((C_word*)t0)[2],a[3]=((C_word)li717),tmp=(C_word)a,a+=4,tmp);
/* library.scm:4376: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
C_call_with_values(4,av2);}}

/* a25885 in a25879 in k25868 in scheme#with-input-from-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in ... */
static void C_ccall f_25886(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_25886,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25890,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4378: close-input-port */
t4=*((C_word*)lf[194]+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);}}

/* k25888 in a25885 in a25879 in k25868 in scheme#with-input-from-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in ... */
static void C_ccall f_25890(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_25890,c,av);}{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
C_apply_values(3,av2);}}

/* a25894 in k25868 in scheme#with-input-from-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_25895(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_25895,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[853]+1));
t3=C_mutate((C_word*)lf[853]+1 /* (set! ##sys#standard-input ...) */,((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);}}

/* scheme#with-output-to-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25900(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){
C_save_and_reclaim((void*)f_25900,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+4);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25904,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=t4;
C_apply(5,av2);}}

/* k25902 in scheme#with-output-to-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_25904(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){
C_save_and_reclaim((void *)f_25904,c,av);}
a=C_alloc(19);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25909,a[2]=t5,a[3]=t3,a[4]=((C_word)li721),tmp=(C_word)a,a+=5,tmp);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25914,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word)li723),tmp=(C_word)a,a+=5,tmp);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25929,a[2]=t3,a[3]=t5,a[4]=((C_word)li724),tmp=(C_word)a,a+=5,tmp);
/* library.scm:4386: ##sys#dynamic-wind */
t9=*((C_word*)lf[839]+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);}}

/* a25908 in k25902 in scheme#with-output-to-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_25909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_25909,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[854]+1));
t3=C_mutate((C_word*)lf[854]+1 /* (set! ##sys#standard-output ...) */,((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);}}

/* a25913 in k25902 in scheme#with-output-to-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_25914(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_25914,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25920,a[2]=((C_word*)t0)[2],a[3]=((C_word)li722),tmp=(C_word)a,a+=4,tmp);
/* library.scm:4387: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
C_call_with_values(4,av2);}}

/* a25919 in a25913 in k25902 in scheme#with-output-to-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in ... */
static void C_ccall f_25920(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_25920,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25924,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4389: close-output-port */
t4=*((C_word*)lf[195]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k25922 in a25919 in a25913 in k25902 in scheme#with-output-to-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in ... */
static void C_ccall f_25924(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_25924,c,av);}{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
C_apply_values(3,av2);}}

/* a25928 in k25902 in scheme#with-output-to-file in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_25929(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_25929,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[854]+1));
t3=C_mutate((C_word*)lf[854]+1 /* (set! ##sys#standard-output ...) */,((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);}}

/* ##sys#file-exists? in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25934(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_25934,c,av);}
a=C_alloc(7);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_25939,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t5,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* library.scm:4393: ##sys#make-c-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[899]);
C_word *av2=av;
av2[0]=*((C_word*)lf[899]+1);
av2[1]=t6;
av2[2]=t2;
av2[3]=t5;
tp(4,av2);}}

/* k25937 in ##sys#file-exists? in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_25939(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_25939,c,av);}
t2=C_i_file_exists_p(t1,((C_word*)t0)[2],((C_word*)t0)[3]);
switch(t2){
case C_SCHEME_FALSE:
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}
case C_SCHEME_TRUE:
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}
default:
/* library.scm:4397: ##sys#signal-hook */
t3=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[476];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[898];
av2[5]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}}

/* ##sys#flush-output in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25960(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_25960,c,av);}
a=C_alloc(3);
t3=C_slot(t2,C_fix(2));
t4=C_slot(t3,C_fix(5));
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25967,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:4401: g5349 */
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}

/* k25965 in ##sys#flush-output in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_25967(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_25967,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.base#flush-output in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25973(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_25973,c,av);}
if(C_truep(C_rest_nullp(c,2))){
t2=*((C_word*)lf[854]+1);
t3=C_i_check_port_2(*((C_word*)lf[854]+1),C_fix(2),C_SCHEME_TRUE,lf[901]);
/* library.scm:4408: ##sys#flush-output */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[900]);
C_word av2[3];
av2[0]=*((C_word*)lf[900]+1);
av2[1]=t1;
av2[2]=*((C_word*)lf[854]+1);
tp(3,av2);}}
else{
t2=C_get_rest_arg(c,2,av,2,t0);
t3=C_i_check_port_2(t2,C_fix(2),C_SCHEME_TRUE,lf[901]);
/* library.scm:4408: ##sys#flush-output */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[900]);
C_word av2[3];
av2[0]=*((C_word*)lf[900]+1);
av2[1]=t1;
av2[2]=t2;
tp(3,av2);}}}

/* ##sys#port-line in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_25991(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_25991,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(C_input_portp(t2))?C_slot(t2,C_fix(4)):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#decorate-lambda in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_26000(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_26000,c,av);}
a=C_alloc(10);
t5=C_block_size(t2);
t6=C_fixnum_difference(t5,C_fix(1));
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_26013,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=t8,a[6]=t3,a[7]=((C_word)li731),tmp=(C_word)a,a+=8,tmp));
t10=((C_word*)t8)[1];
f_26013(t10,t1,t6);}

/* loop in ##sys#decorate-lambda in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void f_26013(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_26013,3,t0,t1,t2);}
a=C_alloc(7);
if(C_truep(C_i_zerop(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26021,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);
/* library.scm:4422: scheme#make-vector */
t4=*((C_word*)lf[118]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_fixnum_plus(((C_word*)t0)[2],C_fix(1));
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=C_slot(((C_word*)t0)[3],t2);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26063,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* library.scm:4431: pred */
t5=((C_word*)t0)[6];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}}

/* k26019 in loop in ##sys#decorate-lambda in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_26021(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_26021,c,av);}
a=C_alloc(10);
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|7,a[1]=(C_word)f_26026,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=((C_word)li730),tmp=(C_word)a,a+=8,tmp));
t5=((C_word*)t3)[1];
f_26026(t5,((C_word*)t0)[5],C_fix(1));}

/* doloop5378 in k26019 in loop in ##sys#decorate-lambda in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in ... */
static void f_26026(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_26026,3,t0,t1,t2);}
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
t3=C_vector_to_closure(((C_word*)t0)[3]);
t4=C_copy_pointer(((C_word*)t0)[4],((C_word*)t0)[3]);
/* library.scm:4427: decorator */
t5=((C_word*)t0)[5];{
C_word av2[4];
av2[0]=t5;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}
else{
t3=C_slot(((C_word*)t0)[4],t2);
t4=C_i_setslot(((C_word*)t0)[3],t2,t3);
t6=t1;
t7=C_fixnum_plus(t2,C_fix(1));
t1=t6;
t2=t7;
goto loop;}}

/* k26061 in loop in ##sys#decorate-lambda in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_26063(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_26063,c,av);}
if(C_truep(t1)){
/* library.scm:4432: decorator */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}
else{
/* library.scm:4433: loop */
t2=((C_word*)((C_word*)t0)[6])[1];
f_26013(t2,((C_word*)t0)[3],C_fixnum_difference(((C_word*)t0)[5],C_fix(1)));}}

/* ##sys#lambda-decoration in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_26075(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_26075,c,av);}
a=C_alloc(8);
t4=C_block_size(t2);
t5=C_fixnum_difference(t4,C_fix(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|5,a[1]=(C_word)f_26085,a[2]=t2,a[3]=t7,a[4]=t3,a[5]=((C_word)li733),tmp=(C_word)a,a+=6,tmp));
t9=((C_word*)t7)[1];
f_26085(t9,t1,t5);}

/* loop in ##sys#lambda-decoration in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void f_26085(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_26085,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){
t3=C_slot(((C_word*)t0)[2],t2);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26101,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* library.scm:4439: pred */
t5=((C_word*)t0)[4];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t5))(3,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);}}}

/* k26099 in loop in ##sys#lambda-decoration in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_26101(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_26101,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* library.scm:4441: loop */
t2=((C_word*)((C_word*)t0)[4])[1];
f_26085(t2,((C_word*)t0)[2],C_fixnum_difference(((C_word*)t0)[5],C_fix(1)));}}

/* ##sys#make-lambda-info in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_26114(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_26114,c,av);}
a=C_alloc(5);
t3=C_slot(t2,C_fix(0));
t4=C_block_size(t3);
t5=C_fixnum_difference(t4,C_fix(1));
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26124,a[2]=t3,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4449: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t6;
av2[2]=t5;
tp(3,av2);}}

/* k26122 in ##sys#make-lambda-info in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_26124(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_26124,c,av);}
t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_bytevector_to_lambdainfo(t1);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#lambda-info? in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_26130(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_26130,c,av);}
t3=C_immp(t2);
t4=C_i_not(t3);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=(C_truep(t4)?C_lambdainfop(t2):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#lambda-info in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_26143(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_26143,c,av);}
/* library.scm:4461: ##sys#lambda-decoration */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[904]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_fast_retrieve(lf[906]);
tp(4,av2);}}

/* ##sys#lambda-info->string in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_26149(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_26149,c,av);}
a=C_alloc(5);
t3=C_block_size(t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26156,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4465: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t4;
av2[2]=C_fixnum_plus(t3,C_fix(1));
tp(3,av2);}}

/* k26154 in ##sys#lambda-info->string in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_26156(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_26156,c,av);}
a=C_alloc(5);
t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_utf_length(t1);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_ustring(&a,2,t1,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.base#procedure-information in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_26163(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_26163,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26167,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4472: ##sys#check-closure */
t4=*((C_word*)lf[443]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
av2[3]=lf[910];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k26165 in chicken.base#procedure-information in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_26167(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_26167,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26170,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4473: ##sys#lambda-info */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[907]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[907]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k26168 in k26165 in chicken.base#procedure-information in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_26170(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_26170,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26180,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26184,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:4474: ##sys#lambda-info->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[908]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[908]+1);
av2[1]=t3;
av2[2]=t1;
tp(3,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k26178 in k26168 in k26165 in chicken.base#procedure-information in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in ... */
static void C_ccall f_26180(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_26180,c,av);}
/* library.scm:4474: ##sys#read */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[909]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[909]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
tp(4,av2);}}

/* k26182 in k26168 in k26165 in chicken.base#procedure-information in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in ... */
static void C_ccall f_26184(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_26184,c,av);}
/* library.scm:4474: scheme#open-input-string */
t2=*((C_word*)lf[320]+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);}}

/* k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_26192(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_26192,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[256]+1 /* (set! chicken.base#setter ...) */,t1);
t3=C_mutate((C_word*)lf[913]+1 /* (set! ##sys#setter ...) */,*((C_word*)lf[256]+1));
t4=C_mutate((C_word*)lf[254]+1 /* (set! chicken.base#getter-with-setter ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26195,a[2]=((C_word)li743),tmp=(C_word)a,a+=3,tmp));
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26272,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4534: chicken.base#getter-with-setter */
t6=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=*((C_word*)lf[13]+1);
av2[3]=*((C_word*)lf[15]+1);
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}

/* chicken.base#getter-with-setter in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_26195(C_word c,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_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_26195,c,av);}
a=C_alloc(6);
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|5,a[1]=(C_word)f_26202,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
/* library.scm:4513: ##sys#check-closure */
t7=*((C_word*)lf[443]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
av2[3]=lf[914];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k26200 in chicken.base#getter-with-setter in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_26202(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_26202,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26205,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:4514: ##sys#check-closure */
t3=*((C_word*)lf[443]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[914];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k26203 in k26200 in chicken.base#getter-with-setter in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in ... */
static void C_ccall f_26205(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_26205,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26208,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t2)[5])){
t4=C_i_check_string_2(((C_word*)t2)[5],lf[914]);
/* library.scm:4517: ##sys#make-lambda-info */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[905]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[905]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
tp(3,av2);}}
else{
/* library.scm:4518: ##sys#lambda-info */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[907]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[907]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}}

/* k26206 in k26203 in k26200 in chicken.base#getter-with-setter in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in ... */
static void C_ccall f_26208(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_26208,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26211,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26227,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4520: ##sys#copy-closure */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[408]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[408]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k26209 in k26206 in k26203 in k26200 in chicken.base#getter-with-setter in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in ... */
static void C_ccall f_26211(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_26211,c,av);}
a=C_alloc(4);
if(C_truep(((C_word*)t0)[2])){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26219,a[2]=((C_word*)t0)[2],a[3]=((C_word)li740),tmp=(C_word)a,a+=4,tmp);
/* library.scm:4526: ##sys#decorate-lambda */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[903]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[903]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=C_fast_retrieve(lf[906]);
av2[4]=t2;
tp(5,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* a26218 in k26209 in k26206 in k26203 in k26200 in chicken.base#getter-with-setter in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in ... */
static void C_ccall f_26219(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_26219,c,av);}
t4=C_i_setslot(t2,t3,((C_word*)t0)[2]);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k26225 in k26206 in k26203 in k26200 in chicken.base#getter-with-setter in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in ... */
static void C_ccall f_26227(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_26227,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26229,a[2]=((C_word)li741),tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26245,a[2]=((C_word*)t0)[2],a[3]=((C_word)li742),tmp=(C_word)a,a+=4,tmp);
/* library.scm:4519: ##sys#decorate-lambda */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[903]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[903]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=t2;
av2[4]=t3;
tp(5,av2);}}

/* a26228 in k26225 in k26206 in k26203 in k26200 in chicken.base#getter-with-setter in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in ... */
static void C_ccall f_26229(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_26229,c,av);}
t3=C_i_pairp(t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_eqp(C_retrieve2(lf[912],C_text("setter-tag")),C_slot(t2,C_fix(0))):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a26244 in k26225 in k26206 in k26203 in k26200 in chicken.base#getter-with-setter in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in ... */
static void C_ccall f_26245(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_26245,c,av);}
a=C_alloc(3);
t4=C_a_i_cons(&a,2,C_retrieve2(lf[912],C_text("setter-tag")),((C_word*)t0)[2]);
t5=C_i_setslot(t2,t3,t4);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_26272(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_26272,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[13]+1 /* (set! scheme#car ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26276,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4535: chicken.base#getter-with-setter */
t4=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=*((C_word*)lf[14]+1);
av2[3]=*((C_word*)lf[16]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_26276(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_26276,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[14]+1 /* (set! scheme#cdr ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26280,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42096,a[2]=((C_word)li1254),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4536: chicken.base#getter-with-setter */
t5=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=*((C_word*)lf[21]+1);
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in ... */
static void C_ccall f_26280(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_26280,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[21]+1 /* (set! scheme#caar ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26284,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42086,a[2]=((C_word)li1253),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4537: chicken.base#getter-with-setter */
t5=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=*((C_word*)lf[17]+1);
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in ... */
static void C_ccall f_26284(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_26284,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[17]+1 /* (set! scheme#cadr ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26288,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42076,a[2]=((C_word)li1252),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4538: chicken.base#getter-with-setter */
t5=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=*((C_word*)lf[22]+1);
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in ... */
static void C_ccall f_26288(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_26288,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[22]+1 /* (set! scheme#cdar ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26292,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42066,a[2]=((C_word)li1251),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4539: chicken.base#getter-with-setter */
t5=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=*((C_word*)lf[23]+1);
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in ... */
static void C_ccall f_26292(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_26292,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[23]+1 /* (set! scheme#cddr ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26296,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42056,a[2]=((C_word)li1250),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4540: chicken.base#getter-with-setter */
t5=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=*((C_word*)lf[24]+1);
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in ... */
static void C_ccall f_26296(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_26296,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[24]+1 /* (set! scheme#caaar ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26300,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42046,a[2]=((C_word)li1249),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4541: chicken.base#getter-with-setter */
t5=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=*((C_word*)lf[25]+1);
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in ... */
static void C_ccall f_26300(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_26300,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[25]+1 /* (set! scheme#caadr ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26304,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42036,a[2]=((C_word)li1248),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4542: chicken.base#getter-with-setter */
t5=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=*((C_word*)lf[26]+1);
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in ... */
static void C_ccall f_26304(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_26304,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[26]+1 /* (set! scheme#cadar ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26308,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42026,a[2]=((C_word)li1247),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4543: chicken.base#getter-with-setter */
t5=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=*((C_word*)lf[18]+1);
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in ... */
static void C_ccall f_26308(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_26308,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[18]+1 /* (set! scheme#caddr ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26312,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42016,a[2]=((C_word)li1246),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4544: chicken.base#getter-with-setter */
t5=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=*((C_word*)lf[27]+1);
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in ... */
static void C_ccall f_26312(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_26312,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[27]+1 /* (set! scheme#cdaar ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26316,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42006,a[2]=((C_word)li1245),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4545: chicken.base#getter-with-setter */
t5=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=*((C_word*)lf[28]+1);
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in ... */
static void C_ccall f_26316(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_26316,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[28]+1 /* (set! scheme#cdadr ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26320,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41996,a[2]=((C_word)li1244),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4546: chicken.base#getter-with-setter */
t5=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=*((C_word*)lf[29]+1);
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in ... */
static void C_ccall f_26320(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_26320,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[29]+1 /* (set! scheme#cddar ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26324,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41986,a[2]=((C_word)li1243),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4547: chicken.base#getter-with-setter */
t5=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=*((C_word*)lf[30]+1);
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in ... */
static void C_ccall f_26324(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_26324,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[30]+1 /* (set! scheme#cdddr ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26328,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4548: chicken.base#getter-with-setter */
t4=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=*((C_word*)lf[62]+1);
av2[3]=*((C_word*)lf[63]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in ... */
static void C_ccall f_26328(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_26328,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[62]+1 /* (set! scheme#string-ref ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26332,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4549: chicken.base#getter-with-setter */
t4=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=*((C_word*)lf[116]+1);
av2[3]=*((C_word*)lf[117]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in ... */
static void C_ccall f_26332(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_26332,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[116]+1 /* (set! scheme#vector-ref ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26336,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41976,a[2]=((C_word)li1242),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4552: chicken.base#getter-with-setter */
t5=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=*((C_word*)lf[49]+1);
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in ... */
static void C_ccall f_26336(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_26336,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[49]+1 /* (set! scheme#list-ref ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26340,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4557: chicken.base#getter-with-setter */
t4=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_fast_retrieve(lf[782]);
av2[3]=C_fast_retrieve(lf[783]);
av2[4]=lf[1624];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in ... */
static void C_ccall f_26340(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(56,c,3)))){
C_save_and_reclaim((void *)f_26340,c,av);}
a=C_alloc(56);
t2=C_mutate((C_word*)lf[782]+1 /* (set! chicken.bytevector#bytevector-u8-ref ...) */,t1);
t3=C_SCHEME_UNDEFINED;
t4=C_a_i_vector(&a,16,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3);
t5=C_mutate(&lf[915] /* (set! ##sys#default-parameter-vector ...) */,t4);
t6=C_mutate((C_word*)lf[916]+1 /* (set! ##sys#current-parameter-vector ...) */,lf[917]);
t7=C_fix(0);
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_mutate((C_word*)lf[85]+1 /* (set! scheme#make-parameter ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26347,a[2]=t8,a[3]=((C_word)li751),tmp=(C_word)a,a+=4,tmp));
t10=C_mutate((C_word*)lf[201]+1 /* (set! scheme#char-ready? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26511,a[2]=((C_word)li752),tmp=(C_word)a,a+=3,tmp));
t11=C_mutate((C_word*)lf[202]+1 /* (set! scheme#u8-ready? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26536,a[2]=((C_word)li753),tmp=(C_word)a,a+=3,tmp));
t12=C_mutate((C_word*)lf[203]+1 /* (set! scheme#read-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26561,a[2]=((C_word)li754),tmp=(C_word)a,a+=3,tmp));
t13=C_mutate((C_word*)lf[920]+1 /* (set! ##sys#read-char-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26579,a[2]=((C_word)li755),tmp=(C_word)a,a+=3,tmp));
t14=C_mutate((C_word*)lf[921]+1 /* (set! ##sys#read-char/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26639,a[2]=((C_word)li756),tmp=(C_word)a,a+=3,tmp));
t15=C_mutate((C_word*)lf[922]+1 /* (set! ##sys#peek-char-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26648,a[2]=((C_word)li757),tmp=(C_word)a,a+=3,tmp));
t16=C_mutate((C_word*)lf[204]+1 /* (set! scheme#peek-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26673,a[2]=((C_word)li758),tmp=(C_word)a,a+=3,tmp));
t17=C_mutate((C_word*)lf[205]+1 /* (set! scheme#read ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26691,a[2]=((C_word)li759),tmp=(C_word)a,a+=3,tmp));
t18=C_set_block_item(lf[925] /* ##sys#default-read-info-hook */,0,C_SCHEME_FALSE);
t19=C_set_block_item(lf[926] /* ##sys#read-error-with-line-number */,0,C_SCHEME_FALSE);
t20=C_mutate((C_word*)lf[927]+1 /* (set! ##sys#read-prompt-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26711,a[2]=((C_word)li760),tmp=(C_word)a,a+=3,tmp));
t21=C_mutate((C_word*)lf[928]+1 /* (set! ##sys#infix-list-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26714,a[2]=((C_word)li761),tmp=(C_word)a,a+=3,tmp));
t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26719,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4668: scheme#make-parameter */
t23=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t23;
av2[1]=t22;
av2[2]=lf[466];
((C_proc)(void*)(*((C_word*)t23+1)))(3,av2);}}

/* scheme#make-parameter in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in ... */
static void C_ccall f_26347(C_word c,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_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_26347,c,av);}
a=C_alloc(8);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26505,a[2]=((C_word)li744),tmp=(C_word)a,a+=3,tmp):C_get_rest_arg(c,3,av,3,t0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26354,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4570: guard */
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}

/* k26352 in scheme#make-parameter in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in ... */
static void C_ccall f_26354(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,6)))){
C_save_and_reclaim((void *)f_26354,c,av);}
a=C_alloc(14);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26355,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li745),tmp=(C_word)a,a+=5,tmp);
t4=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],C_fix(1));
t5=C_set_block_item(((C_word*)t0)[2],0,t4);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26389,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t7=C_block_size(C_retrieve2(lf[915],C_text("##sys#default-parameter-vector")));
if(C_truep(C_fixnum_greater_or_equal_p(t2,t7))){
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26493,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* library.scm:4587: ##sys#vector-resize */
f_24210(t8,C_retrieve2(lf[915],C_text("##sys#default-parameter-vector")),C_fixnum_plus(t2,C_fix(1)),C_SCHEME_UNDEFINED);}
else{
t8=t6;
f_26389(t8,C_SCHEME_UNDEFINED);}}

/* assign in k26352 in scheme#make-parameter in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in ... */
static void f_26355(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
C_save_and_reclaim_args((void *)trf_26355,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(11);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_26359,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,a[6]=((C_word*)t0)[3],a[7]=t2,tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],t3))){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26378,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* library.scm:4575: ##sys#vector-resize */
f_24210(t7,C_fast_retrieve(lf[916]),C_fixnum_plus(((C_word*)t0)[2],C_fix(1)),*((C_word*)lf[740]+1));}
else{
t7=t6;
f_26359(t7,C_SCHEME_UNDEFINED);}}

/* k26357 in assign in k26352 in scheme#make-parameter in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in ... */
static void f_26359(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_26359,2,t0,t1);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26362,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t0)[5])){
/* library.scm:4579: guard */
t3=((C_word*)t0)[6];{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
else{
t3=t2;{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t0)[7];
f_26362(2,av2);}}}

/* k26360 in k26357 in assign in k26352 in scheme#make-parameter in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in ... */
static void C_ccall f_26362(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_26362,c,av);}
if(C_truep(((C_word*)t0)[2])){
t2=C_i_setslot(C_fast_retrieve(lf[916]),((C_word*)t0)[3],t1);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k26376 in assign in k26352 in scheme#make-parameter in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in ... */
static void C_ccall f_26378(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_26378,c,av);}
t2=C_mutate((C_word*)lf[916]+1 /* (set! ##sys#current-parameter-vector ...) */,t1);
t3=((C_word*)t0)[2];
f_26359(t3,t2);}

/* k26387 in k26352 in scheme#make-parameter in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in ... */
static void f_26389(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_26389,2,t0,t1);}
a=C_alloc(9);
t2=C_i_setslot(C_retrieve2(lf[915],C_text("##sys#default-parameter-vector")),((C_word*)t0)[2],((C_word*)t0)[3]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26397,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word)li749),tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26479,a[2]=((C_word*)t0)[4],a[3]=((C_word)li750),tmp=(C_word)a,a+=4,tmp);
/* library.scm:4592: chicken.base#getter-with-setter */
t5=*((C_word*)lf[254]+1);{
C_word av2[4];
av2[0]=t5;
av2[1]=((C_word*)t0)[5];
av2[2]=t3;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* a26396 in k26387 in k26352 in scheme#make-parameter in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in ... */
static void C_ccall f_26397(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +14,c,4)))){
C_save_and_reclaim((void*)f_26397,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+14);
t2=C_build_rest(&a,c,2,av);
C_word 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;
t3=C_block_size(C_fast_retrieve(lf[916]));
if(C_truep(C_i_pairp(t2))){
t4=C_u_i_cdr(t2);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26409,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word)li746),tmp=(C_word)a,a+=6,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26418,a[2]=t5,a[3]=((C_word)li747),tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26423,a[2]=t6,a[3]=((C_word)li748),tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_nullp(t4))){
/* library.scm:4596: def-convert?5532 */
t8=t7;
f_26423(t8,t1);}
else{
t8=C_i_car(t4);
t9=C_u_i_cdr(t4);
if(C_truep(C_i_nullp(t9))){
/* library.scm:4596: def-set?5533 */
t10=t6;
f_26418(t10,t1,t8);}
else{
t10=C_i_car(t9);
t11=C_u_i_cdr(t9);
/* library.scm:4596: body5530 */
t12=t5;
f_26409(t12,t1,t8,t10);}}}
else{
if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[3],t3))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_slot(C_retrieve2(lf[915],C_text("##sys#default-parameter-vector")),((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_slot(C_fast_retrieve(lf[916]),((C_word*)t0)[3]);
t5=C_eqp(t4,*((C_word*)lf[740]+1));
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=(C_truep(t5)?C_slot(C_retrieve2(lf[915],C_text("##sys#default-parameter-vector")),((C_word*)t0)[3]):t4);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}

/* body5530 in a26396 in k26387 in k26352 in scheme#make-parameter in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in ... */
static void f_26409(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_26409,4,t0,t1,t2,t3);}
/* library.scm:4598: assign */
t4=((C_word*)t0)[2];
f_26355(t4,t1,C_i_car(((C_word*)t0)[3]),((C_word*)t0)[4],t2,t3);}

/* def-set?5533 in a26396 in k26387 in k26352 in scheme#make-parameter in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in ... */
static void f_26418(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_26418,3,t0,t1,t2);}
/* library.scm:4596: body5530 */
t3=((C_word*)t0)[2];
f_26409(t3,t1,t2,C_SCHEME_TRUE);}

/* def-convert?5532 in a26396 in k26387 in k26352 in scheme#make-parameter in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in ... */
static void f_26423(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
C_save_and_reclaim_args((void *)trf_26423,2,t0,t1);}
/* library.scm:4596: def-set?5533 */
t2=((C_word*)t0)[2];
f_26418(t2,t1,C_SCHEME_TRUE);}

/* a26478 in k26387 in k26352 in scheme#make-parameter in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in ... */
static void C_ccall f_26479(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_26479,c,av);}
/* library.scm:4608: assign */
t3=((C_word*)t0)[2];
f_26355(t3,t1,t2,C_block_size(C_fast_retrieve(lf[916])),C_SCHEME_FALSE,C_SCHEME_TRUE);}

/* k26491 in k26352 in scheme#make-parameter in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in ... */
static void C_ccall f_26493(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_26493,c,av);}
t2=C_mutate(&lf[915] /* (set! ##sys#default-parameter-vector ...) */,t1);
t3=((C_word*)t0)[2];
f_26389(t3,t2);}

/* f_26505 in scheme#make-parameter in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in ... */
static void C_ccall f_26505(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_26505,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#char-ready? in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in ... */
static void C_ccall f_26511(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_26511,c,av);}
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?*((C_word*)lf[853]+1):C_get_rest_arg(c,2,av,2,t0));
t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[918]);
t5=C_slot(t3,C_fix(2));
/* library.scm:4614: g5565 */
t6=C_slot(t5,C_fix(6));{
C_word av2[3];
av2[0]=t6;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}

/* scheme#u8-ready? in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in ... */
static void C_ccall f_26536(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_26536,c,av);}
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?*((C_word*)lf[853]+1):C_get_rest_arg(c,2,av,2,t0));
t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[919]);
t5=C_slot(t3,C_fix(2));
/* library.scm:4619: g5578 */
t6=C_slot(t5,C_fix(6));{
C_word av2[3];
av2[0]=t6;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}

/* scheme#read-char in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in ... */
static void C_ccall f_26561(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_26561,c,av);}
if(C_truep(C_rest_nullp(c,2))){
t2=*((C_word*)lf[853]+1);
t3=C_i_check_port_2(*((C_word*)lf[853]+1),C_fix(1),C_SCHEME_TRUE,lf[477]);
/* library.scm:4626: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t1;
av2[2]=*((C_word*)lf[853]+1);
tp(3,av2);}}
else{
t2=C_get_rest_arg(c,2,av,2,t0);
t3=C_i_check_port_2(t2,C_fix(1),C_SCHEME_TRUE,lf[477]);
/* library.scm:4626: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t1;
av2[2]=t2;
tp(3,av2);}}}

/* ##sys#read-char-0 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in ... */
static void C_ccall f_26579(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_26579,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26583,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_slot(t2,C_fix(6)))){
t4=C_i_set_i_slot(t2,C_fix(6),C_SCHEME_FALSE);
t5=t3;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_END_OF_FILE;
f_26583(2,av2);}}
else{
t4=C_slot(t2,C_fix(2));
/* library.scm:4629: g5596 */
t5=C_slot(t4,C_fix(0));{
C_word *av2=av;
av2[0]=t5;
av2[1]=t3;
av2[2]=t2;
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}}

/* k26581 in ##sys#read-char-0 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in ... */
static void C_ccall f_26583(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_26583,c,av);}
t2=C_eqp(t1,C_make_character(10));
if(C_truep(t2)){
t3=C_slot(((C_word*)t0)[2],C_fix(4));
t4=C_fixnum_plus(t3,C_fix(1));
t5=C_i_set_i_slot(((C_word*)t0)[2],C_fix(4),t4);
t6=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),C_fix(0));
t7=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
if(C_truep(C_i_not(C_eofp(t1)))){
t3=C_slot(((C_word*)t0)[2],C_fix(5));
t4=C_fixnum_plus(t3,C_fix(1));
t5=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),t4);
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}

/* ##sys#read-char/port in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in ... */
static void C_ccall f_26639(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_26639,c,av);}
t3=C_i_check_port_2(t2,C_fix(1),C_SCHEME_TRUE,lf[477]);
/* library.scm:4643: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2=av;
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t1;
av2[2]=t2;
tp(3,av2);}}

/* ##sys#peek-char-0 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in ... */
static void C_ccall f_26648(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_26648,c,av);}
a=C_alloc(4);
if(C_truep(C_slot(t2,C_fix(6)))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_FILE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_slot(t2,C_fix(2));
t4=C_slot(t3,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26661,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4648: g5610 */
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}}

/* k26659 in ##sys#peek-char-0 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in ... */
static void C_ccall f_26661(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_26661,c,av);}
if(C_truep(C_eofp(t1))){
t2=C_i_set_i_slot(((C_word*)t0)[2],C_fix(6),C_SCHEME_TRUE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=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]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* scheme#peek-char in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in ... */
static void C_ccall f_26673(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_26673,c,av);}
if(C_truep(C_rest_nullp(c,2))){
t2=*((C_word*)lf[853]+1);
t3=C_i_check_port_2(*((C_word*)lf[853]+1),C_fix(1),C_SCHEME_TRUE,lf[923]);
/* library.scm:4656: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word av2[3];
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t1;
av2[2]=*((C_word*)lf[853]+1);
tp(3,av2);}}
else{
t2=C_get_rest_arg(c,2,av,2,t0);
t3=C_i_check_port_2(t2,C_fix(1),C_SCHEME_TRUE,lf[923]);
/* library.scm:4656: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word av2[3];
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t1;
av2[2]=t2;
tp(3,av2);}}}

/* scheme#read in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in ... */
static void C_ccall f_26691(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_26691,c,av);}
if(C_truep(C_rest_nullp(c,2))){
t2=*((C_word*)lf[853]+1);
t3=C_i_check_port_2(*((C_word*)lf[853]+1),C_fix(1),C_SCHEME_TRUE,lf[924]);
/* library.scm:4661: ##sys#read */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[909]);
C_word av2[4];
av2[0]=*((C_word*)lf[909]+1);
av2[1]=t1;
av2[2]=*((C_word*)lf[853]+1);
av2[3]=C_fast_retrieve(lf[925]);
tp(4,av2);}}
else{
t2=C_get_rest_arg(c,2,av,2,t0);
t3=C_i_check_port_2(t2,C_fix(1),C_SCHEME_TRUE,lf[924]);
/* library.scm:4661: ##sys#read */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[909]);
C_word av2[4];
av2[0]=*((C_word*)lf[909]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_fast_retrieve(lf[925]);
tp(4,av2);}}}

/* ##sys#read-prompt-hook in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in ... */
static void C_ccall f_26711(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_26711,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);}}

/* ##sys#infix-list-hook in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in ... */
static void C_ccall f_26714(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_26714,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in ... */
static void C_ccall f_26719(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_26719,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[866]+1 /* (set! ##sys#default-file-encoding ...) */,t1);
t3=C_mutate((C_word*)lf[929]+1 /* (set! ##sys#sharp-number-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26721,a[2]=((C_word)li762),tmp=(C_word)a,a+=3,tmp));
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26729,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4673: scheme#make-parameter */
t5=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* ##sys#sharp-number-hook in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in ... */
static void C_ccall f_26721(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_26721,c,av);}
/* library.scm:4671: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[931];
av2[4]=t3;
tp(5,av2);}}

/* k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in ... */
static void C_ccall f_26729(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_26729,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[278]+1 /* (set! chicken.base#case-sensitive ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26733,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4674: scheme#make-parameter */
t4=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in ... */
static void C_ccall f_26733(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_26733,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[280]+1 /* (set! chicken.base#parentheses-synonyms ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26737,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:4675: scheme#make-parameter */
t4=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in ... */
static void C_ccall f_26737(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_26737,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[281]+1 /* (set! chicken.base#symbol-escape ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26741,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41967,a[2]=((C_word)li1241),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4678: scheme#make-parameter */
t5=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[964];
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in ... */
static void C_ccall f_26741(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_26741,c,av);}
a=C_alloc(8);
t2=C_mutate((C_word*)lf[279]+1 /* (set! chicken.base#keyword-style ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26745,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_a_i_record4(&a,4,lf[1622],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);
/* library.scm:4680: scheme#make-parameter */
t5=*((C_word*)lf[85]+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);}}

/* k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in ... */
static void C_ccall f_26745(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(50,c,4)))){
C_save_and_reclaim((void *)f_26745,c,av);}
a=C_alloc(50);
t2=C_mutate((C_word*)lf[932]+1 /* (set! ##sys#current-read-table ...) */,t1);
t3=C_mutate((C_word*)lf[933]+1 /* (set! ##sys#read-warning ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26747,a[2]=((C_word)li763),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[930]+1 /* (set! ##sys#read-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26770,a[2]=((C_word)li764),tmp=(C_word)a,a+=3,tmp));
t5=*((C_word*)lf[279]+1);
t6=*((C_word*)lf[280]+1);
t7=*((C_word*)lf[278]+1);
t8=*((C_word*)lf[281]+1);
t9=C_fast_retrieve(lf[932]);
t10=C_mutate((C_word*)lf[909]+1 /* (set! ##sys#read ...) */,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_26793,a[2]=t9,a[3]=t8,a[4]=t6,a[5]=t5,a[6]=t7,a[7]=((C_word)li827),tmp=(C_word)a,a+=8,tmp));
t11=C_mutate((C_word*)lf[1010]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29927,a[2]=((C_word)li829),tmp=(C_word)a,a+=3,tmp));
t12=C_mutate((C_word*)lf[1021]+1 /* (set! ##sys#read-numvector-data ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30048,a[2]=((C_word)li830),tmp=(C_word)a,a+=3,tmp));
t13=C_mutate((C_word*)lf[1020]+1 /* (set! ##sys#canonicalize-number-list! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30079,a[2]=((C_word)li834),tmp=(C_word)a,a+=3,tmp));
t14=C_set_block_item(lf[1008] /* ##sys#read-marks */,0,C_SCHEME_END_OF_LIST);
t15=C_mutate((C_word*)lf[1023]+1 /* (set! ##sys#write-char-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30207,a[2]=((C_word)li835),tmp=(C_word)a,a+=3,tmp));
t16=C_mutate((C_word*)lf[1024]+1 /* (set! ##sys#write-char/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30223,a[2]=((C_word)li836),tmp=(C_word)a,a+=3,tmp));
t17=C_mutate((C_word*)lf[206]+1 /* (set! scheme#write-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30235,a[2]=((C_word)li837),tmp=(C_word)a,a+=3,tmp));
t18=C_mutate((C_word*)lf[207]+1 /* (set! scheme#newline ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30256,a[2]=((C_word)li838),tmp=(C_word)a,a+=3,tmp));
t19=C_mutate((C_word*)lf[208]+1 /* (set! scheme#write ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30271,a[2]=((C_word)li839),tmp=(C_word)a,a+=3,tmp));
t20=C_mutate((C_word*)lf[209]+1 /* (set! scheme#display ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30289,a[2]=((C_word)li840),tmp=(C_word)a,a+=3,tmp));
t21=C_mutate((C_word*)lf[244]+1 /* (set! chicken.base#print ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30307,a[2]=((C_word)li842),tmp=(C_word)a,a+=3,tmp));
t22=C_mutate((C_word*)lf[245]+1 /* (set! chicken.base#print* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30358,a[2]=((C_word)li844),tmp=(C_word)a,a+=3,tmp));
t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30411,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5476: scheme#make-parameter */
t24=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t24;
av2[1]=t23;
av2[2]=C_fix(0);
((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}}

/* ##sys#read-warning in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_26747(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +5,c,2)))){
C_save_and_reclaim((void*)f_26747,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+5);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26755,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4687: ##sys#port-line */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[902]);
C_word *av2=av;
av2[0]=*((C_word*)lf[902]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}

/* k26753 in ##sys#read-warning in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in ... */
static void C_ccall f_26755(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_26755,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26758,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(C_truep(C_fast_retrieve(lf[926]))?t1:C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26768,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* library.scm:4689: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t4;
av2[2]=t1;
tp(3,av2);}}
else{{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[385]+1);
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[3];
C_apply(5,av2);}}}

/* k26756 in k26753 in ##sys#read-warning in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in ... */
static void C_ccall f_26758(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_26758,c,av);}{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[385]+1);
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
C_apply(5,av2);}}

/* k26766 in k26753 in ##sys#read-warning in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in ... */
static void C_ccall f_26768(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_26768,c,av);}
/* library.scm:4689: string-append */
t2=*((C_word*)lf[517]+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[934];
av2[3]=t1;
av2[4]=lf[935];
av2[5]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* ##sys#read-error in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_26770(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +5,c,2)))){
C_save_and_reclaim((void*)f_26770,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+5);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26778,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4699: ##sys#port-line */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[902]);
C_word *av2=av;
av2[0]=*((C_word*)lf[902]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}

/* k26776 in ##sys#read-error in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in ... */
static void C_ccall f_26778(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_26778,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26781,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(C_truep(C_fast_retrieve(lf[926]))?t1:C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26791,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* library.scm:4701: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t4;
av2[2]=t1;
tp(3,av2);}}
else{{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[936];
av2[4]=((C_word*)t0)[4];
av2[5]=((C_word*)t0)[3];
C_apply(6,av2);}}}

/* k26779 in k26776 in ##sys#read-error in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in ... */
static void C_ccall f_26781(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_26781,c,av);}{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[936];
av2[4]=t1;
av2[5]=((C_word*)t0)[3];
C_apply(6,av2);}}

/* k26789 in k26776 in ##sys#read-error in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in ... */
static void C_ccall f_26791(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_26791,c,av);}
/* library.scm:4701: string-append */
t2=*((C_word*)lf[517]+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[937];
av2[3]=t1;
av2[4]=lf[938];
av2[5]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_26793(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_26793,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_29922,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp);
/* library.scm:4714: case-sensitive */
t5=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in ... */
static void C_ccall f_26800(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_26800,c,av);}
a=C_alloc(11);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_26803,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* library.scm:4716: parentheses-synonyms */
t5=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in ... */
static void C_ccall f_26803(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_26803,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_26806,a[2]=((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);
/* library.scm:4717: symbol-escape */
t3=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_26806(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_26806,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_26809,a[2]=((C_word*)t0)[2],a[3]=((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);
/* library.scm:4718: current-read-table */
t3=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_26809(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(85,c,5)))){
C_save_and_reclaim((void *)f_26809,c,av);}
a=C_alloc(85);
t2=C_SCHEME_FALSE;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_END_OF_LIST;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=lf[939];
t7=C_SCHEME_FALSE;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_SCHEME_UNDEFINED;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_SCHEME_UNDEFINED;
t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp);
t19=C_SCHEME_UNDEFINED;
t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp);
t21=C_SCHEME_UNDEFINED;
t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp);
t23=C_SCHEME_UNDEFINED;
t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp);
t25=C_SCHEME_UNDEFINED;
t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp);
t27=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26811,a[2]=((C_word*)t0)[2],a[3]=((C_word)li765),tmp=(C_word)a,a+=4,tmp));
t28=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26817,a[2]=((C_word*)t0)[3],a[3]=((C_word)li766),tmp=(C_word)a,a+=4,tmp));
t29=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26826,a[2]=((C_word*)t0)[2],a[3]=((C_word)li768),tmp=(C_word)a,a+=4,tmp));
t30=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26863,a[2]=((C_word*)t0)[2],a[3]=((C_word)li769),tmp=(C_word)a,a+=4,tmp));
t31=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26872,a[2]=t8,a[3]=t16,a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word)li770),tmp=(C_word)a,a+=6,tmp));
t32=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26887,a[2]=t5,a[3]=((C_word)li771),tmp=(C_word)a,a+=4,tmp));
t33=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26898,a[2]=t22,a[3]=((C_word)li772),tmp=(C_word)a,a+=4,tmp));
t34=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26926,a[2]=t22,a[3]=((C_word)li775),tmp=(C_word)a,a+=4,tmp));
t35=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_27046,a[2]=((C_word*)t0)[2],a[3]=t14,a[4]=t3,a[5]=t10,a[6]=t12,a[7]=t26,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=t18,a[11]=t6,a[12]=t8,a[13]=t16,a[14]=t1,a[15]=t20,a[16]=t5,a[17]=((C_word*)t0)[6],a[18]=((C_word*)t0)[7],a[19]=((C_word)li825),tmp=(C_word)a,a+=20,tmp));
t36=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29898,a[2]=((C_word*)t0)[8],a[3]=t5,a[4]=t24,a[5]=t3,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
/* library.scm:5350: readrec */
t37=((C_word*)t26)[1];
f_27046(t37,t36);}

/* f_26811 in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_26811(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_26811,c,av);}
/* library.scm:4726: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[940];
av2[4]=t2;
tp(5,av2);}}

/* info in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_26817(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_26817,5,t0,t1,t2,t3,t4);}
if(C_truep(((C_word*)t0)[2])){
/* library.scm:4730: infohandler */
t5=((C_word*)t0)[2];{
C_word av2[5];
av2[0]=t5;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=t4;
((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* skip-to-eol in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_26826(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_26826,2,t0,t1);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26834,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4734: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k26832 in skip-to-eol in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_26834(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_26834,c,av);}
a=C_alloc(7);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26836,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li767),tmp=(C_word)a,a+=5,tmp));
t5=((C_word*)t3)[1];
f_26836(t5,((C_word*)t0)[3],t1);}

/* skip in k26832 in skip-to-eol in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_26836(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_26836,3,t0,t1,t2);}
a=C_alloc(4);
t3=C_i_not(C_eofp(t2));
t4=(C_truep(t3)?C_i_not(C_eqp(C_make_character(10),t2)):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26850,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4736: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
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);}}}

/* k26848 in skip in k26832 in skip-to-eol in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_26850(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_26850,c,av);}
/* library.scm:4736: skip */
t2=((C_word*)((C_word*)t0)[2])[1];
f_26836(t2,((C_word*)t0)[3],t1);}

/* reserved-character in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_26863(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_26863,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26867,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4739: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k26865 in reserved-character in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_26867(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_26867,c,av);}
/* library.scm:4740: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[941];
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}

/* read-unreserved-char-0 in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_26872(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_26872,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+4,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26876,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:4743: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k26874 in read-unreserved-char-0 in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_26876(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_26876,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(C_i_memq(t1,((C_word*)((C_word*)t2)[2])[1]))){
/* library.scm:4745: reserved-character */
t3=((C_word*)((C_word*)t2)[3])[1];
f_26863(t3,((C_word*)t2)[4],t1);}
else{
t3=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* register-shared! in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static C_word f_26887(C_word *a,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_stack_overflow_check;{}
t3=C_a_i_cons(&a,2,t1,t2);
t4=C_a_i_cons(&a,2,t3,((C_word*)((C_word*)t0)[2])[1]);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4);
return(t5);}

/* unthunk in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_26898(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_26898,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26902,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
/* library.scm:4752: o */
t5=t2;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)C_fast_retrieve_proc(t5))(2,av2);}}

/* k26900 in unthunk in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_26902(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_26902,c,av);}
t2=C_i_closurep(t1);
if(C_truep(C_i_not(t2))){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(t1,((C_word*)t0)[3]);
if(C_truep(t3)){
/* library.scm:4755: fail */
t4=((C_word*)t0)[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[942];
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
/* library.scm:4757: unthunk */
t4=((C_word*)((C_word*)t0)[5])[1];
f_26898(t4,((C_word*)t0)[2],t1,((C_word*)t0)[4]);}}}

/* unthunkify! in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_26926(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_26926,4,t0,t1,t2,t3);}
a=C_alloc(8);
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_26932,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word)li774),tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_26932(t7,t1,t2);}

/* loop! in unthunkify! in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_26932(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_26932,3,t0,t1,t2);}
a=C_alloc(11);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26942,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
t4=C_i_closurep(C_u_i_car(t2));
if(C_truep(C_i_not(t4))){
/* library.scm:4764: loop! */
t8=t3;
t9=C_u_i_car(t2);
t1=t8;
t2=t9;
goto loop;}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26985,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4765: unthunk */
t6=((C_word*)((C_word*)t0)[3])[1];
f_26898(t6,t5,C_u_i_car(t2),((C_word*)t0)[4]);}}
else{
if(C_truep(C_i_vectorp(t2))){
t3=C_block_size(t2);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27007,a[2]=t3,a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word)li773),tmp=(C_word)a,a+=9,tmp));
t7=((C_word*)t5)[1];
f_27007(t7,t1,C_fix(0));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}

/* k26940 in loop! in unthunkify! in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_26942(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_26942,c,av);}
a=C_alloc(4);
t2=C_i_closurep(C_u_i_cdr(((C_word*)t0)[2]));
if(C_truep(C_i_not(t2))){
/* library.scm:4767: loop! */
t3=((C_word*)((C_word*)t0)[3])[1];
f_26932(t3,((C_word*)t0)[4],C_u_i_cdr(((C_word*)t0)[2]));}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26961,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:4768: unthunk */
t4=((C_word*)((C_word*)t0)[5])[1];
f_26898(t4,t3,C_u_i_cdr(((C_word*)t0)[2]),((C_word*)t0)[6]);}}

/* k26959 in k26940 in loop! in unthunkify! in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_26961(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_26961,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_setslot(((C_word*)t0)[3],C_fix(1),t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k26983 in loop! in unthunkify! in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_26985(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_26985,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_setslot(((C_word*)t0)[3],C_fix(0),t1);
f_26942(2,av2);}}

/* doloop5720 in loop! in unthunkify! in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_27007(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_27007,3,t0,t1,t2);}
a=C_alloc(11);
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(t3)){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=C_slot(((C_word*)t0)[3],t2);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27020,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t6=C_i_closurep(t4);
if(C_truep(C_i_not(t6))){
/* library.scm:4775: loop! */
t7=((C_word*)((C_word*)t0)[5])[1];
f_26932(t7,t5,t4);}
else{
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27040,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* library.scm:4776: unthunk */
t8=((C_word*)((C_word*)t0)[6])[1];
f_26898(t8,t7,t4,((C_word*)t0)[7]);}}}

/* k27018 in doloop5720 in loop! in unthunkify! in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_27020(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_27020,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_27007(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* k27038 in doloop5720 in loop! in unthunkify! in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_27040(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_27040,c,av);}
t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1);
t3=((C_word*)((C_word*)t0)[4])[1];
f_27007(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));}

/* readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_27046(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word t44;
C_word t45;
C_word t46;
C_word t47;
C_word t48;
C_word t49;
C_word t50;
C_word t51;
C_word t52;
C_word t53;
C_word t54;
C_word t55;
C_word t56;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(164,0,5)))){
C_save_and_reclaim_args((void *)trf_27046,2,t0,t1);}
a=C_alloc(164);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_SCHEME_UNDEFINED;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_SCHEME_UNDEFINED;
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=C_SCHEME_UNDEFINED;
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=C_SCHEME_UNDEFINED;
t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
t22=C_SCHEME_UNDEFINED;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=C_SCHEME_UNDEFINED;
t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp);
t26=C_SCHEME_UNDEFINED;
t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp);
t28=C_SCHEME_UNDEFINED;
t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp);
t30=C_SCHEME_UNDEFINED;
t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp);
t32=C_SCHEME_UNDEFINED;
t33=(*a=C_VECTOR_TYPE|1,a[1]=t32,tmp=(C_word)a,a+=2,tmp);
t34=C_SCHEME_UNDEFINED;
t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp);
t36=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27049,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li777),tmp=(C_word)a,a+=5,tmp));
t37=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27097,a[2]=((C_word*)t0)[2],a[3]=((C_word)li779),tmp=(C_word)a,a+=4,tmp));
t38=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27157,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word)li783),tmp=(C_word)a,a+=5,tmp));
t39=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27297,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=t5,a[5]=((C_word)li786),tmp=(C_word)a,a+=6,tmp));
t40=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27808,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t27,a[9]=((C_word)li792),tmp=(C_word)a,a+=10,tmp));
t41=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28069,a[2]=((C_word*)t0)[2],a[3]=t11,a[4]=((C_word)li793),tmp=(C_word)a,a+=5,tmp));
t42=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28087,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=t27,a[5]=((C_word)li795),tmp=(C_word)a,a+=6,tmp));
t43=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28156,a[2]=((C_word*)t0)[2],a[3]=t15,a[4]=((C_word)li796),tmp=(C_word)a,a+=5,tmp));
t44=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28207,a[2]=((C_word*)t0)[2],a[3]=t15,a[4]=((C_word)li797),tmp=(C_word)a,a+=5,tmp));
t45=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28274,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word)li799),tmp=(C_word)a,a+=7,tmp));
t46=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28335,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word)li801),tmp=(C_word)a,a+=5,tmp));
t47=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28381,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=t27,a[5]=((C_word)li803),tmp=(C_word)a,a+=6,tmp));
t48=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_28406,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[13],a[5]=t9,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[11],a[9]=((C_word)li805),tmp=(C_word)a,a+=10,tmp));
t49=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28654,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[11],a[5]=t21,a[6]=((C_word)li806),tmp=(C_word)a,a+=7,tmp));
t50=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28871,a[2]=((C_word*)t0)[2],a[3]=((C_word)li808),tmp=(C_word)a,a+=4,tmp));
t51=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28958,a[2]=t21,a[3]=((C_word)li809),tmp=(C_word)a,a+=4,tmp));
t52=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28971,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[2],a[5]=((C_word)li810),tmp=(C_word)a,a+=6,tmp));
t53=(*a=C_CLOSURE_TYPE|29,a[1]=(C_word)f_29006,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=t1,a[7]=t35,a[8]=((C_word*)t0)[15],a[9]=((C_word*)t0)[16],a[10]=t23,a[11]=t17,a[12]=t19,a[13]=t13,a[14]=t29,a[15]=t31,a[16]=t33,a[17]=((C_word*)t0)[8],a[18]=t27,a[19]=((C_word*)t0)[6],a[20]=((C_word*)t0)[3],a[21]=((C_word*)t0)[9],a[22]=t21,a[23]=t11,a[24]=((C_word*)t0)[5],a[25]=t9,a[26]=t15,a[27]=((C_word*)t0)[13],a[28]=t25,a[29]=t3,tmp=(C_word)a,a+=30,tmp);
t54=C_i_not(((C_word*)t0)[17]);
t55=(C_truep(t54)?lf[1011]:C_SCHEME_END_OF_LIST);
if(C_truep(C_i_not(((C_word*)t0)[18]))){
/* library.scm:5183: scheme#append */
t56=*((C_word*)lf[452]+1);{
C_word av2[4];
av2[0]=t56;
av2[1]=t53;
av2[2]=t55;
av2[3]=lf[1012];
((C_proc)(void*)(*((C_word*)t56+1)))(4,av2);}}
else{
/* library.scm:5183: scheme#append */
t56=*((C_word*)lf[452]+1);{
C_word av2[4];
av2[0]=t56;
av2[1]=t53;
av2[2]=t55;
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t56+1)))(4,av2);}}}

/* r-spaces in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_27049(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_27049,2,t0,t1);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27057,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4781: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word av2[3];
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k27055 in r-spaces in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_27057(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_27057,c,av);}
a=C_alloc(8);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27059,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li776),tmp=(C_word)a,a+=6,tmp));
t5=((C_word*)t3)[1];
f_27059(t5,((C_word*)t0)[4],t1);}

/* loop in k27055 in r-spaces in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void f_27059(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_27059,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_eofp(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=C_eqp(C_make_character(59),t2);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27072,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4784: skip-to-eol */
t6=((C_word*)((C_word*)t0)[4])[1];
f_26826(t6,t5);}
else{
if(C_truep(C_u_i_char_whitespacep(t2))){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27088,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4787: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
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);}}}}}

/* k27070 in loop in k27055 in r-spaces in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_27072(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_27072,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27079,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:4785: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k27077 in k27070 in loop in k27055 in r-spaces in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27079(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_27079,c,av);}
/* library.scm:4785: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27059(t2,((C_word*)t0)[3],t1);}

/* k27086 in loop in k27055 in r-spaces in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_27088(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_27088,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27095,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:4788: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k27093 in k27086 in loop in k27055 in r-spaces in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27095(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_27095,c,av);}
/* library.scm:4788: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27059(t2,((C_word*)t0)[3],t1);}

/* r-usequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_27097(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_27097,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_27103,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=t6,a[6]=((C_word)li778),tmp=(C_word)a,a+=7,tmp));
t8=((C_word*)t6)[1];
f_27103(t8,t1,C_SCHEME_END_OF_LIST,t3);}

/* loop in r-usequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_27103(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_27103,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=C_eqp(t3,C_fix(0));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27113,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* library.scm:4793: ##sys#reverse-list->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[489]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[489]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27129,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=t3,tmp=(C_word)a,a+=7,tmp);
/* library.scm:4800: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}}

/* k27111 in loop in r-usequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_27113(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_27113,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27116,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);
/* library.scm:4794: scheme#string->number */
t3=*((C_word*)lf[733]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k27114 in k27111 in loop in r-usequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_27116(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_27116,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27126,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:4798: string-append */
t3=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[943];
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
av2[5]=lf[944];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}}

/* k27124 in k27114 in k27111 in loop in r-usequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27126(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_27126,c,av);}
/* library.scm:4796: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k27127 in loop in r-usequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_27129(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27129,c,av);}
a=C_alloc(3);
t2=C_eofp(t1);
t3=(C_truep(t2)?t2:C_i_char_equalp(C_make_character(34),t1));
if(C_truep(t3)){
/* library.scm:4802: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[945];
tp(4,av2);}}
else{
t4=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]);
/* library.scm:4803: loop */
t5=((C_word*)((C_word*)t0)[5])[1];
f_27103(t5,((C_word*)t0)[2],t4,C_fixnum_difference(((C_word*)t0)[6],C_fix(1)));}}

/* r-xsequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_27157(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(28,0,3)))){
C_save_and_reclaim_args((void *)trf_27157,3,t0,t1,t2);}
a=C_alloc(28);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27160,a[2]=((C_word*)t0)[2],a[3]=((C_word)li780),tmp=(C_word)a,a+=4,tmp));
t10=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27179,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp));
t11=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27183,a[2]=((C_word*)t0)[2],a[3]=((C_word)li781),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|8,a[1]=(C_word)f_27192,a[2]=t8,a[3]=t2,a[4]=t6,a[5]=t4,a[6]=((C_word*)t0)[2],a[7]=t13,a[8]=((C_word)li782),tmp=(C_word)a,a+=9,tmp));
t15=((C_word*)t13)[1];
f_27192(t15,t1,C_SCHEME_END_OF_LIST);}

/* parse in r-xsequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_27160(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_27160,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27164,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4807: ##sys#reverse-list->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[489]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[489]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k27162 in parse in r-xsequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_27164(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27164,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_27167,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:4808: scheme#string->number */
t4=*((C_word*)lf[733]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
av2[3]=C_fix(16);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k27165 in k27162 in parse in r-xsequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_27167(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_27167,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]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27177,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:4811: string-append */
t4=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[946];
av2[3]=((C_word*)t2)[4];
av2[4]=lf[947];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}

/* k27175 in k27165 in k27162 in parse in r-xsequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27177(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_27177,c,av);}
/* library.scm:4810: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* complain in r-xsequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static C_word f_27179(C_word t0){
C_word tmp;
C_word t1;
C_word t2;
C_stack_overflow_check;{}
t1=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[948]);
return(t1);}

/* abort in r-xsequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_27183(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_27183,2,t0,t1);}
/* library.scm:4816: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word av2[4];
av2[0]=*((C_word*)lf[930]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[949];
tp(4,av2);}}

/* loop in r-xsequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_27192(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_27192,3,t0,t1,t2);}
a=C_alloc(10);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27196,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]=t2,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
/* library.scm:4818: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word av2[3];
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k27194 in loop in r-xsequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_27196(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_27196,c,av);}
a=C_alloc(9);
if(C_truep(C_eofp(t1))){
/* library.scm:4819: abort */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27183(t2,((C_word*)t0)[3]);}
else{
t2=C_eqp(((C_word*)t0)[4],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27214,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4821: parse */
t4=((C_word*)((C_word*)t0)[6])[1];
f_27160(t4,t3,((C_word*)t0)[7]);}
else{
t3=C_eqp(C_make_character(59),t1);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27235,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4826: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}
else{
t4=C_i_char_greater_or_equal_p(t1,C_make_character(48));
t5=(C_truep(t4)?C_u_i_char_less_or_equal_p(t1,C_make_character(57)):C_SCHEME_FALSE);
t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27247,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
if(C_truep(t5)){
t7=t6;
f_27247(t7,t5);}
else{
t7=(C_truep(C_u_i_char_greater_or_equal_p(t1,C_make_character(97)))?C_u_i_char_less_or_equal_p(t1,C_make_character(102)):C_SCHEME_FALSE);
t8=t6;
f_27247(t8,(C_truep(t7)?t7:(C_truep(C_u_i_char_greater_or_equal_p(t1,C_make_character(65)))?C_u_i_char_less_or_equal_p(t1,C_make_character(70)):C_SCHEME_FALSE)));}}}}}

/* k27212 in k27194 in loop in r-xsequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_27214(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_27214,c,av);}
if(C_truep(C_fixnum_greaterp(t1,C_fix(131071)))){
/* library.scm:4823: abort */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27183(t2,((C_word*)t0)[3]);}
else{
t2=(
/* library.scm:4824: complain */
  f_27179(((C_word*)((C_word*)t0)[4])[1])
);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k27233 in k27194 in loop in r-xsequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_27235(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_27235,c,av);}
/* library.scm:4827: parse */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27160(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k27245 in k27194 in loop in r-xsequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void f_27247(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_27247,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27258,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);
/* library.scm:4831: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27261,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4833: parse */
t3=((C_word*)((C_word*)t0)[8])[1];
f_27160(t3,t2,((C_word*)t0)[2]);}}

/* k27256 in k27245 in k27194 in loop in r-xsequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27258(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_27258,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
/* library.scm:4831: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_27192(t3,((C_word*)t0)[4],t2);}

/* k27259 in k27245 in k27194 in loop in r-xsequence in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27261(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_27261,c,av);}
if(C_truep(C_fixnum_greaterp(t1,C_fix(131071)))){
/* library.scm:4835: abort */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27183(t2,((C_word*)t0)[3]);}
else{
t2=(
/* library.scm:4836: complain */
  f_27179(((C_word*)((C_word*)t0)[4])[1])
);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_27297(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_27297,3,t0,t1,t2);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27305,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* library.scm:4839: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_27305(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_27305,c,av);}
a=C_alloc(10);
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|7,a[1]=(C_word)f_27307,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li785),tmp=(C_word)a,a+=8,tmp));
t5=((C_word*)t3)[1];
f_27307(t5,((C_word*)t0)[6],t1,C_SCHEME_END_OF_LIST);}

/* loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void f_27307(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
C_save_and_reclaim_args((void *)trf_27307,4,t0,t1,t2,t3);}
a=C_alloc(12);
t4=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
if(C_truep(C_eofp(((C_word*)t4)[1]))){
/* library.scm:4841: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word av2[4];
av2[0]=*((C_word*)lf[930]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[950];
tp(4,av2);}}
else{
t5=C_eqp(C_make_character(92),((C_word*)t4)[1]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27324,a[2]=t4,a[3]=t3,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);
/* library.scm:4843: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}
else{
t6=C_eqp(((C_word*)t0)[5],((C_word*)t4)[1]);
if(C_truep(t6)){
/* library.scm:4904: ##sys#reverse-list->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[489]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[489]+1);
av2[1]=t1;
av2[2]=t3;
tp(3,av2);}}
else{
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27802,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* library.scm:4905: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}}}}

/* k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_27324(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_27324,c,av);}
a=C_alloc(9);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)((C_word*)t0)[2])[1];
switch(t3){
case C_make_character(116):
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27337,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4845: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}
case C_make_character(114):
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27354,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4846: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}
case C_make_character(98):
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27371,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4847: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}
case C_make_character(110):
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27388,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4848: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}
case C_make_character(97):
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27405,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4849: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}
case C_make_character(118):
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27426,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4850: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}
case C_make_character(102):
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27447,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4851: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}
case C_make_character(120):
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27464,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);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27479,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* library.scm:4853: r-xsequence */
t6=((C_word*)((C_word*)t0)[7])[1];
f_27157(t6,t5,((C_word*)t0)[8]);
case C_make_character(117):
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27488,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);
/* library.scm:4856: r-usequence */
t5=((C_word*)((C_word*)t0)[9])[1];
f_27097(t5,t4,lf[951],C_fix(4),C_fix(16));
case C_make_character(85):
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27512,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);
/* library.scm:4860: r-usequence */
t5=((C_word*)((C_word*)t0)[9])[1];
f_27097(t5,t4,lf[952],C_fix(8),C_fix(16));
default:
t4=C_eqp(t3,C_make_character(92));
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27536,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t3,a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp);
if(C_truep(t4)){
t6=t5;
f_27536(t6,t4);}
else{
t6=C_eqp(t3,C_make_character(39));
if(C_truep(t6)){
t7=t5;
f_27536(t7,t6);}
else{
t7=C_eqp(t3,C_make_character(34));
t8=t5;
f_27536(t8,(C_truep(t7)?t7:C_eqp(t3,C_make_character(124))));}}}}

/* k27335 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27337(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27337,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,C_make_character(9),((C_word*)t0)[2]);
/* library.scm:4845: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_27307(t3,((C_word*)t0)[4],t1,t2);}

/* k27352 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27354(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27354,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,C_make_character(13),((C_word*)t0)[2]);
/* library.scm:4846: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_27307(t3,((C_word*)t0)[4],t1,t2);}

/* k27369 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27371(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27371,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,C_make_character(8),((C_word*)t0)[2]);
/* library.scm:4847: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_27307(t3,((C_word*)t0)[4],t1,t2);}

/* k27386 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27388(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27388,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,C_make_character(10),((C_word*)t0)[2]);
/* library.scm:4848: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_27307(t3,((C_word*)t0)[4],t1,t2);}

/* k27403 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27405(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27405,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,C_make_character(7),((C_word*)t0)[2]);
/* library.scm:4849: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_27307(t3,((C_word*)t0)[4],t1,t2);}

/* k27424 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27426(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27426,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,C_make_character(11),((C_word*)t0)[2]);
/* library.scm:4850: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_27307(t3,((C_word*)t0)[4],t1,t2);}

/* k27445 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27447(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27447,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,C_make_character(12),((C_word*)t0)[2]);
/* library.scm:4851: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_27307(t3,((C_word*)t0)[4],t1,t2);}

/* k27462 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27464(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_27464,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27471,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* library.scm:4854: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k27469 in k27462 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_27471(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27471,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
/* library.scm:4854: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_27307(t3,((C_word*)t0)[5],t1,t2);}

/* k27477 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27479(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_27479,c,av);}
/* library.scm:4853: integer->char */
t2=*((C_word*)lf[130]+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);}}

/* k27486 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27488(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_27488,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27495,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);
/* library.scm:4857: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k27493 in k27486 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_27495(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_27495,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27503,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);
/* library.scm:4858: integer->char */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k27501 in k27493 in k27486 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_27503(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27503,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
/* library.scm:4857: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_27307(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* k27510 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27512(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_27512,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27519,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);
/* library.scm:4861: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k27517 in k27510 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_27519(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_27519,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27527,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);
/* library.scm:4862: integer->char */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k27525 in k27517 in k27510 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_27527(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27527,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
/* library.scm:4861: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_27307(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void f_27536(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_27536,2,t0,t1);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27543,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);
/* library.scm:4864: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}
else{
t2=C_eqp(((C_word*)t0)[7],C_make_character(10));
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27556,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t2)){
t4=t3;
f_27556(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[7],C_make_character(13));
if(C_truep(t4)){
t5=t3;
f_27556(t5,t4);}
else{
t5=C_eqp(((C_word*)t0)[7],C_make_character(32));
t6=t3;
f_27556(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[7],C_make_character(9))));}}}}

/* k27541 in k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_27543(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27543,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]);
/* library.scm:4864: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_27307(t3,((C_word*)t0)[5],t1,t2);}

/* k27554 in k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void f_27556(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_27556,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
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_27561,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)li784),tmp=(C_word)a,a+=7,tmp));
t5=((C_word*)t3)[1];
f_27561(t5,((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1],C_SCHEME_FALSE);}
else{
if(C_truep(C_eofp(((C_word*)((C_word*)t0)[6])[1]))){
/* library.scm:4890: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word av2[4];
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[5];
av2[2]=((C_word*)t0)[2];
av2[3]=lf[954];
tp(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27660,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_u_i_char_numericp(((C_word*)((C_word*)t0)[6])[1]))){
t3=C_i_char_greater_or_equal_p(((C_word*)((C_word*)t0)[6])[1],C_make_character(48));
t4=t2;
f_27660(t4,(C_truep(t3)?C_i_char_less_or_equal_p(((C_word*)((C_word*)t0)[6])[1],C_make_character(55)):C_SCHEME_FALSE));}
else{
t3=t2;
f_27660(t3,C_SCHEME_FALSE);}}}}

/* eat-ws in k27554 in k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void f_27561(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_27561,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_eqp(t2,C_make_character(32));
t5=(C_truep(t4)?t4:C_eqp(t2,C_make_character(9)));
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27578,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4870: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
switch(t2){
case C_make_character(13):
if(C_truep(t3)){
/* library.scm:4873: loop */
t6=((C_word*)((C_word*)t0)[4])[1];
f_27307(t6,t1,t2,((C_word*)t0)[5]);}
else{
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27593,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4874: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
case C_make_character(10):
if(C_truep(t3)){
/* library.scm:4880: loop */
t6=((C_word*)((C_word*)t0)[4])[1];
f_27307(t6,t1,t2,((C_word*)t0)[5]);}
else{
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27628,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4881: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
default:
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27631,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(t3)){
/* library.scm:4887: loop */
t7=((C_word*)((C_word*)t0)[4])[1];
f_27307(t7,t1,t2,((C_word*)t0)[5]);}
else{
/* library.scm:4884: ##sys#read-warning */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[933]);
C_word av2[4];
av2[0]=*((C_word*)lf[933]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[953];
tp(4,av2);}}}}}

/* k27576 in eat-ws in k27554 in k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_27578(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_27578,c,av);}
/* library.scm:4870: eat-ws */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27561(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);}

/* k27591 in eat-ws in k27554 in k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_27593(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_27593,c,av);}
a=C_alloc(4);
t2=C_eqp(t1,C_make_character(10));
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27606,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:4876: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
/* library.scm:4877: eat-ws */
t3=((C_word*)((C_word*)t0)[2])[1];
f_27561(t3,((C_word*)t0)[3],t1,C_SCHEME_TRUE);}}

/* k27604 in k27591 in eat-ws in k27554 in k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_27606(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_27606,c,av);}
/* library.scm:4876: eat-ws */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27561(t2,((C_word*)t0)[3],t1,C_SCHEME_TRUE);}

/* k27626 in eat-ws in k27554 in k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_27628(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_27628,c,av);}
/* library.scm:4881: eat-ws */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27561(t2,((C_word*)t0)[3],t1,C_SCHEME_TRUE);}

/* k27629 in eat-ws in k27554 in k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_27631(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_27631,c,av);}
/* library.scm:4887: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27307(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k27658 in k27554 in k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void f_27660(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_27660,2,t0,t1);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27663,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[2],tmp=(C_word)a,a+=6,tmp);
t4=C_fix(C_character_code(((C_word*)((C_word*)t2)[6])[1]));
t5=C_fixnum_difference(t4,C_fix(48));
t6=C_fixnum_times(t5,C_fix(64));
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27686,a[2]=t3,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4896: r-usequence */
t8=((C_word*)((C_word*)t2)[7])[1];
f_27097(t8,t7,lf[955],C_fix(2),C_fix(8));}
else{
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27697,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[2],tmp=(C_word)a,a+=7,tmp);
/* library.scm:4899: ##sys#read-warning */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[933]);
C_word av2[5];
av2[0]=*((C_word*)lf[933]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[2];
av2[3]=lf[956];
av2[4]=((C_word*)((C_word*)t2)[6])[1];
tp(5,av2);}}}

/* k27661 in k27658 in k27554 in k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_27663(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_27663,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27670,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* library.scm:4897: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k27668 in k27661 in k27658 in k27554 in k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_27670(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27670,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
/* library.scm:4897: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_27307(t3,((C_word*)t0)[5],t1,t2);}

/* k27684 in k27658 in k27554 in k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_27686(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_27686,c,av);}
/* library.scm:4894: integer->char */
t2=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_fixnum_plus(((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k27695 in k27658 in k27554 in k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_27697(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_27697,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27704,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);
/* library.scm:4903: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k27702 in k27695 in k27658 in k27554 in k27534 in k27322 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_27704(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27704,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]);
/* library.scm:4903: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_27307(t3,((C_word*)t0)[5],t1,t2);}

/* k27800 in loop in k27303 in r-string in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_27802(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_27802,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]);
/* library.scm:4905: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_27307(t3,((C_word*)t0)[5],t1,t2);}

/* r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_27808(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
C_save_and_reclaim_args((void *)trf_27808,4,t0,t1,t2,t3);}
a=C_alloc(12);
t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_28067,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t3,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp);
/* library.scm:4908: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* starting-line in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void f_27817(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_27817,3,t0,t1,t2);}
a=C_alloc(4);
t3=(C_truep(((C_word*)((C_word*)t0)[2])[1])?C_fast_retrieve(lf[926]):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27831,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4916: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
tp(3,av2);}}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k27829 in starting-line in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_27831(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_27831,c,av);}
/* library.scm:4914: string-append */
t2=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[957];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k27832 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_27834(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_27834,c,av);}
a=C_alloc(5);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
if(C_truep(((C_word*)((C_word*)t0)[4])[1])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27845,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4983: ##sys#infix-list-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[928]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[928]+1);
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
tp(3,av2);}}
else{
t3=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k27843 in k27832 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_27845(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_27845,c,av);}
/* library.scm:4983: info */
t2=((C_word*)((C_word*)t0)[2])[1];
f_26817(t2,((C_word*)t0)[3],lf[958],t1,((C_word*)((C_word*)t0)[4])[1]);}

/* a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_27847(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_27847,c,av);}
a=C_alloc(22);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27850,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li788),tmp=(C_word)a,a+=7,tmp));
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27872,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t5,a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word)li790),tmp=(C_word)a,a+=13,tmp));
t7=((C_word*)t5)[1];
f_27872(t7,t1,C_SCHEME_END_OF_LIST);}

/* f_27850 in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_27850(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_27850,c,av);}
a=C_alloc(6);
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(t3)){
/* library.scm:4923: return */
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27867,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
/* library.scm:4926: starting-line */
t5=((C_word*)t0)[5];
f_27817(t5,t4,lf[959]);}}

/* k27865 */
static void C_ccall f_27867(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_27867,c,av);}
/* library.scm:4924: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=((C_word*)t0)[4];
av2[5]=((C_word*)t0)[5];
tp(6,av2);}}

/* loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void f_27872(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){
C_save_and_reclaim_args((void *)trf_27872,3,t0,t1,t2);}
a=C_alloc(14);
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_27876,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,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],tmp=(C_word)a,a+=14,tmp);
/* library.scm:4929: r-spaces */
t4=((C_word*)((C_word*)t0)[5])[1];
f_27049(t4,t3);}

/* k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_27876(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_27876,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27879,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
if(C_truep(((C_word*)((C_word*)t0)[9])[1])){
t3=t2;
f_27879(t3,C_SCHEME_UNDEFINED);}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28060,a[2]=((C_word*)t0)[13],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4930: ##sys#port-line */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[902]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[902]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void f_27879(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_27879,2,t0,t1);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27882,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:4931: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word av2[3];
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_27882(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_27882,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
if(C_truep(C_eofp(t1))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27892,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:4935: starting-line */
t4=((C_word*)t2)[4];
f_27817(t4,t3,lf[960]);}
else{
t3=C_eqp(t1,((C_word*)t2)[5]);
if(C_truep(t3)){
/* library.scm:4937: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}
else{
t4=C_eqp(t1,C_make_character(46));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_27910,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[4],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]=((C_word*)t2)[11],a[12]=C_SCHEME_UNDEFINED,a[13]=((C_word*)t2)[12],tmp=(C_word)a,a+=14,tmp);
/* library.scm:4939: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28056,a[2]=((C_word*)t2)[9],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[10],a[5]=((C_word*)t2)[2],tmp=(C_word)a,a+=6,tmp);
/* library.scm:4976: readrec */
t6=((C_word*)((C_word*)t2)[8])[1];
f_27046(t6,t5);}}}}

/* k27890 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_27892(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_27892,c,av);}
/* library.scm:4933: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_27910(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_27910,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27913,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:4940: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k27911 in k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_27913(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_27913,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+12,t1);
t4=C_u_i_char_whitespacep(((C_word*)t2)[12]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27922,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t4)){
t6=t5;
f_27922(t6,t4);}
else{
t6=C_eqp(((C_word*)t2)[12],C_make_character(40));
if(C_truep(t6)){
t7=t5;
f_27922(t7,t6);}
else{
t7=C_eqp(((C_word*)t2)[12],C_make_character(41));
if(C_truep(t7)){
t8=t5;
f_27922(t8,t7);}
else{
t8=C_eqp(((C_word*)t2)[12],C_make_character(34));
t9=t5;
f_27922(t9,(C_truep(t8)?t8:C_eqp(((C_word*)t2)[12],C_make_character(59))));}}}}

/* k27920 in k27911 in k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in ... */
static void f_27922(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_27922,2,t0,t1);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27925,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);
if(C_truep(C_i_pairp(((C_word*)t2)[2]))){
t4=t3;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_27925(2,av2);}}
else{
/* library.scm:4947: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word av2[4];
av2[0]=*((C_word*)lf[930]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=lf[962];
tp(4,av2);}}}
else{
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27966,a[2]=((C_word*)t2)[9],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[10],a[5]=((C_word*)t2)[11],a[6]=((C_word*)t2)[12],a[7]=((C_word)li789),tmp=(C_word)a,a+=8,tmp);
/* library.scm:4957: r-xtoken */
t4=((C_word*)((C_word*)t2)[13])[1];
f_28406(t4,((C_word*)t2)[4],t3);}}

/* k27923 in k27920 in k27911 in k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in ... */
static void C_ccall f_27925(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_27925,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27928,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:4948: r-spaces */
t3=((C_word*)((C_word*)t0)[7])[1];
f_27049(t3,t2);}

/* k27926 in k27923 in k27920 in k27911 in k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in ... */
static void C_ccall f_27928(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_27928,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27955,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);
/* library.scm:4949: readrec */
t4=((C_word*)((C_word*)t2)[8])[1];
f_27046(t4,t3);}

/* k27932 in k27953 in k27926 in k27923 in k27920 in k27911 in k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in ... */
static void C_ccall f_27934(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_27934,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27951,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:4951: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k27945 in k27949 in k27932 in k27953 in k27926 in k27923 in k27920 in k27911 in k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ... */
static void C_ccall f_27947(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_27947,c,av);}
/* library.scm:4952: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}

/* k27949 in k27932 in k27953 in k27926 in k27923 in k27920 in k27911 in k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in ... */
static void C_ccall f_27951(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_27951,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=C_eqp(t1,((C_word*)t2)[2]);
if(C_truep(t3)){
t4=C_SCHEME_UNDEFINED;
t5=((C_word*)t2)[3];{
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_27947,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[2],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4954: starting-line */
t5=((C_word*)t2)[5];
f_27817(t5,t4,lf[961]);}}

/* k27953 in k27926 in k27923 in k27920 in k27911 in k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in ... */
static void C_ccall f_27955(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_27955,c,av);}
a=C_alloc(6);
t2=C_i_setslot(((C_word*)t0)[2],C_fix(1),t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27934,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);
/* library.scm:4950: r-spaces */
t4=((C_word*)((C_word*)t0)[7])[1];
f_27049(t4,t3);}

/* a27965 in k27920 in k27911 in k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in ... */
static void C_ccall f_27966(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_27966,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27970,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]=t3,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
/* library.scm:4959: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[516]+1);
av2[1]=t4;
av2[2]=lf[966];
av2[3]=t2;
tp(4,av2);}}

/* k27968 in a27965 in k27920 in k27911 in k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in ... */
static void C_ccall f_27970(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_27970,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27973,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(C_truep(C_i_string_equal_p(t1,lf[963]))?C_eqp(((C_word*)((C_word*)t0)[6])[1],lf[964]):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f46116,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5179: ##sys#string->symbol-name */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[746]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[746]+1);
av2[1]=t4;
av2[2]=lf[965];
tp(3,av2);}}
else{
if(C_truep(((C_word*)t0)[7])){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f46121,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5179: ##sys#string->symbol-name */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[746]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[746]+1);
av2[1]=t4;
av2[2]=t1;
tp(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28001,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_u_i_char_numericp(((C_word*)t0)[8]))){
/* library.scm:4968: ##sys#string->number */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[735]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[735]+1);
av2[1]=t4;
av2[2]=t1;
tp(3,av2);}}
else{
/* library.scm:5176: ##sys#string->symbol */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[749]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[749]+1);
av2[1]=t2;
av2[2]=t1;
tp(3,av2);}}}}}

/* k27971 in k27968 in a27965 in k27920 in k27911 in k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in ... */
static void C_ccall f_27973(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_27973,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t3=C_i_setslot(((C_word*)t0)[3],C_fix(1),t2);
/* library.scm:4974: loop */
t4=((C_word*)((C_word*)t0)[4])[1];
f_27872(t4,((C_word*)t0)[5],t2);}
else{
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
/* library.scm:4974: loop */
t4=((C_word*)((C_word*)t0)[4])[1];
f_27872(t4,((C_word*)t0)[5],t2);}}

/* k27999 in k27968 in a27965 in k27920 in k27911 in k27908 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in ... */
static void C_ccall f_28001(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_28001,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
f_27973(2,av2);}}
else{
/* library.scm:5176: ##sys#string->symbol */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[749]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[749]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* k28054 in k27880 in k27877 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_28056(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_28056,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t3=C_i_setslot(((C_word*)t0)[3],C_fix(1),t2);
/* library.scm:4980: loop */
t4=((C_word*)((C_word*)t0)[4])[1];
f_27872(t4,((C_word*)t0)[5],t2);}
else{
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
/* library.scm:4980: loop */
t4=((C_word*)((C_word*)t0)[4])[1];
f_27872(t4,((C_word*)t0)[5],t2);}}

/* k28058 in k27874 in loop in a27846 in k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_28060(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_28060,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)t0)[3];
f_27879(t3,t2);}

/* k28065 in r-list in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_28067(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_28067,c,av);}
a=C_alloc(29);
t2=C_eqp(t1,((C_word*)t0)[2]);
if(C_truep(t2)){
t3=C_SCHEME_FALSE;
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_word*)((C_word*)t0)[3])[1];
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27817,a[2]=t6,a[3]=((C_word)li787),tmp=(C_word)a,a+=4,tmp);
t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27834,a[2]=((C_word*)t0)[3],a[3]=t7,a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t6,tmp=(C_word)a,a+=8,tmp);
t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27847,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t8,a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=t4,a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=t6,a[12]=((C_word)li791),tmp=(C_word)a,a+=13,tmp);
/* library.scm:4918: ##sys#call-with-current-continuation */{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=t9;
av2[2]=t10;
C_call_cc(3,av2);}}
else{
/* library.scm:4985: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[5];
av2[2]=((C_word*)t0)[7];
av2[3]=lf[967];
av2[4]=((C_word*)t0)[2];
tp(5,av2);}}}

/* r-vector in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_28069(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_28069,2,t0,t1);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28073,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:4988: r-list */
t3=((C_word*)((C_word*)t0)[3])[1];
f_27808(t3,t2,C_make_character(40),C_make_character(41));}

/* k28071 in r-vector in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_28073(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_28073,c,av);}
if(C_truep(C_i_listp(t1))){
/* library.scm:4990: ##sys#list->vector */
t2=*((C_word*)lf[968]+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);}}
else{
/* library.scm:4991: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[969];
av2[4]=t1;
tp(5,av2);}}}

/* r-number in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_28087(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_28087,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28093,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word)li794),tmp=(C_word)a,a+=7,tmp);
/* library.scm:4994: r-xtoken */
t5=((C_word*)((C_word*)t0)[4])[1];
f_28406(t5,t1,t4);}

/* a28092 in r-number in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_28093(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_28093,c,av);}
a=C_alloc(8);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28100,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f46128,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5179: ##sys#string->symbol-name */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[746]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[746]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}
else{
if(C_truep(C_i_string_equal_p(t2,lf[971]))){
/* library.scm:5000: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2=av;
av2[0]=*((C_word*)lf[930]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[972];
tp(4,av2);}}
else{
t4=C_i_string_length(t2);
t5=C_fixnum_greaterp(t4,C_fix(0));
t6=(C_truep(t5)?C_u_i_char_equalp(C_i_string_ref(t2,C_fix(0)),C_make_character(35)):C_SCHEME_FALSE);
if(C_truep(t6)){
/* library.scm:5002: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[973];
av2[4]=t2;
tp(5,av2);}}
else{
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28127,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)t0)[4])){
/* library.scm:5003: ##sys#string->number */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[735]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[735]+1);
av2[1]=t7;
av2[2]=t2;
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
tp(5,av2);}}
else{
/* library.scm:5003: ##sys#string->number */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[735]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[735]+1);
av2[1]=t7;
av2[2]=t2;
av2[3]=C_fix(10);
av2[4]=((C_word*)t0)[5];
tp(5,av2);}}}}}}

/* k28098 in a28092 in r-number in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_28100(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_28100,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28107,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4998: ##sys#port-line */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[902]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[902]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k28105 in k28098 in a28092 in r-number in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_28107(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_28107,c,av);}
/* library.scm:4998: info */
t2=((C_word*)((C_word*)t0)[2])[1];
f_26817(t2,((C_word*)t0)[3],lf[970],((C_word*)t0)[4],t1);}

/* k28125 in a28092 in r-number in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_28127(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_28127,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{
if(C_truep(((C_word*)t0)[3])){
/* library.scm:5004: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[4];
av2[3]=lf[974];
av2[4]=((C_word*)t0)[5];
tp(5,av2);}}
else{
/* library.scm:5176: ##sys#string->symbol */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[749]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[749]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}}}

/* r-number-with-exactness in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_28156(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_28156,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28205,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* library.scm:5008: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word av2[3];
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k28164 in k28203 in r-number-with-exactness in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_28166(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_28166,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28169,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5010: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}

/* k28167 in k28164 in k28203 in r-number-with-exactness in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_28169(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_28169,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(C_eofp(t1))){
/* library.scm:5012: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=lf[975];
tp(4,av2);}}
else{
if(C_truep(C_i_char_equalp(t1,C_make_character(105)))){
/* library.scm:5013: r-number */
t3=((C_word*)((C_word*)t2)[4])[1];
f_28087(t3,((C_word*)t2)[2],((C_word*)t2)[5],lf[726]);}
else{
if(C_truep(C_u_i_char_equalp(t1,C_make_character(101)))){
/* library.scm:5014: r-number */
t3=((C_word*)((C_word*)t2)[4])[1];
f_28087(t3,((C_word*)t2)[2],((C_word*)t2)[5],lf[725]);}
else{
/* library.scm:5016: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=lf[976];
av2[4]=t1;
tp(5,av2);}}}}}

/* k28203 in r-number-with-exactness in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_28205(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_28205,c,av);}
a=C_alloc(3);
t2=C_eqp(C_make_character(35),t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28166,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5009: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
/* library.scm:5019: r-number */
t3=((C_word*)((C_word*)t0)[4])[1];
f_28087(t3,((C_word*)t0)[2],((C_word*)t0)[5],C_SCHEME_FALSE);}}

/* r-number-with-radix in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_28207(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_28207,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28272,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* library.scm:5022: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word av2[3];
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k28215 in k28270 in r-number-with-radix in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_28217(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_28217,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28220,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5024: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}

/* k28218 in k28215 in k28270 in r-number-with-radix in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_28220(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_28220,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(C_eofp(t1))){
/* library.scm:5025: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=lf[977];
tp(4,av2);}}
else{
if(C_truep(C_i_char_equalp(t1,C_make_character(120)))){
/* library.scm:5026: r-number */
t3=((C_word*)((C_word*)t2)[4])[1];
f_28087(t3,((C_word*)t2)[2],C_fix(16),((C_word*)t2)[5]);}
else{
if(C_truep(C_u_i_char_equalp(t1,C_make_character(100)))){
/* library.scm:5027: r-number */
t3=((C_word*)((C_word*)t2)[4])[1];
f_28087(t3,((C_word*)t2)[2],C_fix(10),((C_word*)t2)[5]);}
else{
if(C_truep(C_u_i_char_equalp(t1,C_make_character(111)))){
/* library.scm:5028: r-number */
t3=((C_word*)((C_word*)t2)[4])[1];
f_28087(t3,((C_word*)t2)[2],C_fix(8),((C_word*)t2)[5]);}
else{
if(C_truep(C_u_i_char_equalp(t1,C_make_character(98)))){
/* library.scm:5029: r-number */
t3=((C_word*)((C_word*)t2)[4])[1];
f_28087(t3,((C_word*)t2)[2],C_fix(2),((C_word*)t2)[5]);}
else{
/* library.scm:5030: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=lf[978];
av2[4]=t1;
tp(5,av2);}}}}}}}

/* k28270 in r-number-with-radix in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_28272(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_28272,c,av);}
a=C_alloc(3);
t2=C_eqp(C_make_character(35),t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28217,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5023: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
/* library.scm:5031: r-number */
t3=((C_word*)((C_word*)t0)[4])[1];
f_28087(t3,((C_word*)t0)[2],C_fix(10),((C_word*)t0)[5]);}}

/* r-token in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_28274(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_28274,2,t0,t1);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28282,a[2]=((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);
/* library.scm:5034: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word av2[3];
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k28280 in r-token in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_28282(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_28282,c,av);}
a=C_alloc(10);
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|7,a[1]=(C_word)f_28284,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li798),tmp=(C_word)a,a+=8,tmp));
t5=((C_word*)t3)[1];
f_28284(t5,((C_word*)t0)[6],t1,C_SCHEME_END_OF_LIST);}

/* loop in k28280 in r-token in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void f_28284(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_28284,4,t0,t1,t2,t3);}
a=C_alloc(9);
t4=C_eofp(t2);
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_28294,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp);
if(C_truep(t4)){
t6=t5;
f_28294(t6,t4);}
else{
t6=C_u_i_char_whitespacep(t2);
t7=t5;
f_28294(t7,(C_truep(t6)?t6:C_i_memq(t2,((C_word*)t0)[6])));}}

/* k28292 in loop in k28280 in r-token in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void f_28294(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_28294,2,t0,t1);}
a=C_alloc(8);
if(C_truep(t1)){
/* library.scm:5038: ##sys#reverse-list->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[489]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[489]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
if(C_truep(C_i_char_equalp(((C_word*)t0)[4],C_make_character(0)))){
/* library.scm:5040: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word av2[4];
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[5];
av2[3]=lf[979];
tp(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28309,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
/* library.scm:5042: read-unreserved-char-0 */
t3=((C_word*)((C_word*)t0)[8])[1];
f_26872(t3,t2,((C_word*)t0)[5]);}}}

/* k28307 in k28292 in loop in k28280 in r-token in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_28309(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_28309,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28316,a[2]=((C_word*)t0)[2],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);
/* library.scm:5043: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}

/* k28314 in k28307 in k28292 in loop in k28280 in r-token in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_28316(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_28316,c,av);}
a=C_alloc(3);
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t2=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
/* library.scm:5043: loop */
t3=((C_word*)((C_word*)t0)[5])[1];
f_28284(t3,((C_word*)t0)[6],t1,t2);}
else{
t2=C_utf_char_foldcase(((C_word*)t0)[3]);
t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]);
/* library.scm:5043: loop */
t4=((C_word*)((C_word*)t0)[5])[1];
f_28284(t4,((C_word*)t0)[6],t1,t3);}}

/* r-digits in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_28335(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_28335,2,t0,t1);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28343,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5050: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word av2[3];
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k28341 in r-digits in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_28343(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_28343,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28345,a[2]=t4,a[3]=((C_word*)t2)[2],a[4]=((C_word)li800),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_28345(t6,((C_word*)t2)[3],t1,C_SCHEME_END_OF_LIST);}

/* loop in k28341 in r-digits in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void f_28345(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_28345,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=C_eofp(t2);
t5=(C_truep(t4)?t4:C_i_not(C_u_i_char_numericp(t2)));
if(C_truep(t5)){
/* library.scm:5052: ##sys#reverse-list->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[489]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[489]+1);
av2[1]=t1;
av2[2]=t3;
tp(3,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28361,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
/* library.scm:5054: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* k28359 in loop in k28341 in r-digits in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_28361(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_28361,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28368,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);
/* library.scm:5055: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k28366 in k28359 in loop in k28341 in r-digits in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_28368(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_28368,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
/* library.scm:5055: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_28345(t3,((C_word*)t0)[5],t1,t2);}

/* r-symbol in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_28381(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_28381,2,t0,t1);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28387,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li802),tmp=(C_word)a,a+=5,tmp);
/* library.scm:5058: r-xtoken */
t3=((C_word*)((C_word*)t0)[4])[1];
f_28406(t3,t1,t2);}

/* a28386 in r-symbol in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_28387(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_28387,c,av);}
a=C_alloc(8);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28391,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t3)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f46137,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5179: ##sys#string->symbol-name */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[746]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[746]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}
else{
/* library.scm:5176: ##sys#string->symbol */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[749]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[749]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}}

/* k28389 in a28386 in r-symbol in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_28391(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_28391,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28398,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:5061: ##sys#port-line */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[902]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[902]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k28396 in k28389 in a28386 in r-symbol in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_28398(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_28398,c,av);}
/* library.scm:5061: info */
t2=((C_word*)((C_word*)t0)[2])[1];
f_26817(t2,((C_word*)t0)[3],lf[970],((C_word*)t0)[4],t1);}

/* r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_28406(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){
C_save_and_reclaim_args((void *)trf_28406,3,t0,t1,t2);}
a=C_alloc(18);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_28411,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=t1,tmp=(C_word)a,a+=12,tmp);
t6=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[983]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28652,a[2]=t5,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5066: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word av2[3];
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t7;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}
else{
t7=t5;
f_28411(t7,C_SCHEME_FALSE);}}

/* k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_28411(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,5)))){
C_save_and_reclaim_args((void *)trf_28411,2,t0,t1);}
a=C_alloc(15);
t2=C_set_block_item(((C_word*)t0)[2],0,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|12,a[1]=(C_word)f_28416,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t4,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)li804),tmp=(C_word)a,a+=13,tmp));
t6=((C_word*)t4)[1];
f_28416(t6,((C_word*)t0)[11],C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,C_SCHEME_FALSE);}

/* loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void f_28416(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){
C_save_and_reclaim_args((void *)trf_28416,5,t0,t1,t2,t3,t4);}
a=C_alloc(16);
t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_28420,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t4,a[7]=t3,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[10],a[15]=((C_word*)t0)[11],tmp=(C_word)a,a+=16,tmp);
/* library.scm:5069: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word av2[3];
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[9];
tp(3,av2);}}

/* k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_28420(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_28420,c,av);}
a=C_alloc(16);
t2=C_eofp(t1);
t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_28429,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp);
if(C_truep(t2)){
t4=t3;
f_28429(t4,t2);}
else{
t4=C_u_i_char_whitespacep(t1);
t5=t3;
f_28429(t5,(C_truep(t4)?t4:C_i_memq(t1,((C_word*)t0)[15])));}}

/* k28427 in k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void f_28429(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_28429,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28435,a[2]=((C_word*)t0)[2],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_eqp(((C_word*)((C_word*)t0)[8])[1],lf[964]);
if(C_truep(t3)){
if(C_truep(((C_word*)t0)[6])){
t4=t2;
f_28435(t4,((C_word*)t0)[6]);}
else{
t4=C_i_cdr(((C_word*)t0)[4]);
t5=t2;
f_28435(t5,C_i_not(C_i_nullp(t4)));}}
else{
t4=t2;
f_28435(t4,C_SCHEME_FALSE);}}
else{
t3=t2;
f_28435(t3,C_SCHEME_FALSE);}}
else{
if(C_truep(C_i_memq(((C_word*)t0)[9],((C_word*)((C_word*)t0)[10])[1]))){
/* library.scm:5086: reserved-character */
t2=((C_word*)((C_word*)t0)[11])[1];
f_26863(t2,((C_word*)t0)[3],((C_word*)t0)[9]);}
else{
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_28526,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[13],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[14],a[8]=((C_word*)t0)[15],tmp=(C_word)a,a+=9,tmp);
/* library.scm:5088: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[14];
tp(3,av2);}}}}

/* k28433 in k28427 in k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void f_28435(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_28435,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28442,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5078: ##sys#reverse-list->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[489]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[489]+1);
av2[1]=t2;
av2[2]=C_i_cdr(((C_word*)t0)[4]);
tp(3,av2);}}
else{
t2=(C_truep(((C_word*)((C_word*)t0)[5])[1])?(C_truep(((C_word*)t0)[6])?((C_word*)t0)[6]:C_i_not(C_i_nullp(((C_word*)t0)[4]))):C_SCHEME_FALSE);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28459,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5080: ##sys#reverse-list->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[489]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[489]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28465,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
t4=C_i_not(((C_word*)t0)[6]);
t5=t3;
f_28465(t5,(C_truep(t4)?C_i_nullp(((C_word*)t0)[4]):C_SCHEME_FALSE));}
else{
t4=t3;
f_28465(t4,C_SCHEME_FALSE);}}}}

/* k28440 in k28433 in k28427 in k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_28442(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_28442,c,av);}
/* library.scm:5078: k */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}

/* k28457 in k28433 in k28427 in k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_28459(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_28459,c,av);}
/* library.scm:5080: k */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}

/* k28463 in k28433 in k28427 in k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void f_28465(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_28465,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
/* library.scm:5082: k */
t2=((C_word*)t0)[2];{
C_word av2[4];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[980];
av2[3]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28475,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5084: ##sys#reverse-list->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[489]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[489]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}}

/* k28473 in k28463 in k28433 in k28427 in k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_28475(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_28475,c,av);}
/* library.scm:5084: k */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}

/* k28524 in k28427 in k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_28526(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_28526,c,av);}
a=C_alloc(10);
switch(t1){
case C_make_character(124):
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28535,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);
/* library.scm:5091: r-string */
t3=((C_word*)((C_word*)t0)[5])[1];
f_27297(t3,t2,C_make_character(124));
case C_make_character(10):
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28559,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28570,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5097: ##sys#reverse-list->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[489]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[489]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}
case C_make_character(58):
t2=C_a_i_cons(&a,2,C_make_character(58),((C_word*)t0)[4]);
/* library.scm:5100: loop */
t3=((C_word*)((C_word*)t0)[2])[1];
f_28416(t3,((C_word*)t0)[3],t2,C_SCHEME_TRUE,((C_word*)t0)[6]);
case C_make_character(92):
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28592,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* library.scm:5102: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}
default:
if(C_truep(((C_word*)((C_word*)t0)[8])[1])){
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]);
/* library.scm:5109: loop */
t3=((C_word*)((C_word*)t0)[2])[1];
f_28416(t3,((C_word*)t0)[3],t2,C_SCHEME_FALSE,((C_word*)t0)[6]);}
else{
t2=C_utf_char_foldcase(t1);
t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]);
/* library.scm:5109: loop */
t4=((C_word*)((C_word*)t0)[2])[1];
f_28416(t4,((C_word*)t0)[3],t3,C_SCHEME_FALSE,((C_word*)t0)[6]);}}}

/* k28533 in k28524 in k28427 in k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_28535(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_28535,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28542,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28546,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28550,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5092: ##sys#string->list */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[485]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[485]+1);
av2[1]=t4;
av2[2]=t1;
tp(3,av2);}}

/* k28540 in k28533 in k28524 in k28427 in k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_28542(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_28542,c,av);}
/* library.scm:5092: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_28416(t2,((C_word*)t0)[3],t1,C_SCHEME_FALSE,C_SCHEME_TRUE);}

/* k28544 in k28533 in k28524 in k28427 in k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_28546(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_28546,c,av);}
/* library.scm:5092: scheme#append */
t2=*((C_word*)lf[452]+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);}}

/* k28548 in k28533 in k28524 in k28427 in k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_28550(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_28550,c,av);}
/* library.scm:5092: ##sys#fast-reverse */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[454]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[454]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k28557 in k28524 in k28427 in k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_28559(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_28559,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,C_make_character(10),((C_word*)t0)[2]);
/* library.scm:5098: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_28416(t3,((C_word*)t0)[4],t2,C_SCHEME_FALSE,((C_word*)t0)[5]);}

/* k28568 in k28524 in k28427 in k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_28570(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_28570,c,av);}
/* library.scm:5095: ##sys#read-warning */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[933]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[933]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[981];
av2[4]=t1;
tp(5,av2);}}

/* k28590 in k28524 in k28427 in k28418 in loop in k28409 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_28592(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_28592,c,av);}
a=C_alloc(3);
if(C_truep(C_eofp(t1))){
/* library.scm:5104: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[982];
tp(4,av2);}}
else{
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]);
/* library.scm:5107: loop */
t3=((C_word*)((C_word*)t0)[5])[1];
f_28416(t3,((C_word*)t0)[2],t2,C_SCHEME_FALSE,((C_word*)t0)[6]);}}

/* k28646 in k28650 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_28648(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_28648,c,av);}
t2=((C_word*)t0)[2];
f_28411(t2,C_SCHEME_TRUE);}

/* k28650 in r-xtoken in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_28652(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_28652,c,av);}
a=C_alloc(3);
t2=C_eqp(C_make_character(58),t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28648,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5067: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
t3=((C_word*)t0)[2];
f_28411(t3,C_SCHEME_FALSE);}}

/* r-char in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_28654(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_28654,2,t0,t1);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28658,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5118: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word av2[3];
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k28656 in r-char in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_28658(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_28658,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28661,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t1,a[5]=((C_word*)t2)[4],tmp=(C_word)a,a+=6,tmp);
/* library.scm:5119: r-token */
t4=((C_word*)((C_word*)t2)[5])[1];
f_28274(t4,t3);}

/* k28659 in k28656 in r-char in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_28661(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_28661,c,av);}
a=C_alloc(11);
t2=C_i_string_length(t1);
if(C_truep(C_fixnum_greaterp(t2,C_fix(1)))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28673,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=C_i_char_equalp(C_make_character(120),((C_word*)t0)[4]);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28846,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(t4)){
t6=t5;
f_28846(t6,t4);}
else{
t6=C_u_i_char_equalp(C_make_character(117),((C_word*)t0)[4]);
t7=t5;
f_28846(t7,(C_truep(t6)?t6:C_u_i_char_equalp(C_make_character(85),((C_word*)t0)[4])));}}
else{
if(C_truep(C_i_memq(((C_word*)t0)[4],((C_word*)t0)[5]))){
/* library.scm:5149: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=((C_word*)t0)[2];
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_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}

/* k28671 in k28659 in k28656 in r-char in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_28673(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_28673,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
/* library.scm:5124: integer->char */
t2=*((C_word*)lf[130]+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);}}
else{
t2=C_i_string_ref(((C_word*)t0)[3],C_fix(0));
t3=C_fix(C_character_code(t2));
t4=C_fixnum_less_or_equal_p(C_fix(192),t3);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28693,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t4)){
if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(247)))){
t6=C_fixnum_shift_right(t3,C_fix(4));
t7=C_fixnum_and(t6,C_fix(3));
t8=C_fixnum_shift_right(t7,C_fix(1));
t9=C_fixnum_or(t7,t8);
t10=C_fixnum_difference(t7,C_fix(1));
t11=C_fixnum_and(t9,t10);
t12=C_fixnum_plus(C_fix(2),t11);
t13=C_eqp(((C_word*)t0)[5],t12);
if(C_truep(t13)){
t14=C_fixnum_difference(C_fix(8),t12);
t15=C_fixnum_shift_left(C_fix(1),t14);
t16=C_fixnum_difference(t15,C_fix(1));
t17=C_fixnum_and(t3,t16);
t18=C_fixnum_shift_left(t17,C_fix(6));
t19=C_i_string_ref(((C_word*)t0)[3],C_fix(1));
t20=C_fix(C_character_code(t19));
t21=C_fixnum_and(t20,C_fix(63));
t22=C_fixnum_plus(t18,t21);
t23=t22;
if(C_truep(t23)){
if(C_truep(C_fixnum_greater_or_equal_p(t12,C_fix(3)))){
t24=C_fixnum_shift_left(t23,C_fix(6));
t25=C_i_string_ref(((C_word*)t0)[3],C_fix(2));
t26=C_fix(C_character_code(t25));
t27=C_fixnum_and(t26,C_fix(63));
t28=C_fixnum_plus(t24,t27);
t29=t23=t28;
t30=C_eqp(t12,C_fix(4));
if(C_truep(t30)){
t31=C_fixnum_shift_left(t23,C_fix(6));
t32=C_i_string_ref(((C_word*)t0)[3],C_fix(3));
t33=C_fix(C_character_code(t32));
t34=C_fixnum_and(t33,C_fix(63));
t35=C_fixnum_plus(t31,t34);
t36=t23=t35;
/* library.scm:5146: integer->char */
t37=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t37;
av2[1]=t5;
av2[2]=t23;
((C_proc)(void*)(*((C_word*)t37+1)))(3,av2);}}
else{
/* library.scm:5146: integer->char */
t31=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t31;
av2[1]=t5;
av2[2]=t23;
((C_proc)(void*)(*((C_word*)t31+1)))(3,av2);}}}
else{
/* library.scm:5146: integer->char */
t24=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t24;
av2[1]=t5;
av2[2]=t23;
((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}}}
else{
t24=t5;{
C_word *av2=av;
av2[0]=t24;
av2[1]=C_SCHEME_FALSE;
f_28693(2,av2);}}}
else{
t14=t5;{
C_word *av2=av;
av2[0]=t14;
av2[1]=C_SCHEME_FALSE;
f_28693(2,av2);}}}
else{
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_28693(2,av2);}}}
else{
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_28693(2,av2);}}}}

/* k28691 in k28671 in k28659 in k28656 in r-char in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_28693(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_28693,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28699,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28709,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5147: ##sys#string->symbol */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[749]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[749]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}}

/* k28697 in k28691 in k28671 in k28659 in k28656 in r-char in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_28699(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_28699,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{
/* library.scm:5148: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=lf[984];
av2[4]=((C_word*)t2)[4];
tp(5,av2);}}}

/* k28707 in k28691 in k28671 in k28659 in k28656 in r-char in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_28709(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_28709,c,av);}
/* library.scm:5147: chicken.base#char-name */
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);}}

/* k28844 in k28659 in k28656 in r-char in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void f_28846(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
C_save_and_reclaim_args((void *)trf_28846,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28853,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5123: ##sys#substring */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[495]+1));
C_word av2[5];
av2[0]=*((C_word*)lf[495]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=C_fix(1);
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_28673(2,av2);}}}

/* k28851 in k28844 in k28659 in k28656 in r-char in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_28853(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_28853,c,av);}
/* library.scm:5123: ##sys#string->number */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[735]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[735]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_fix(16);
tp(4,av2);}}

/* r-comment in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_28871(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_28871,2,t0,t1);}
a=C_alloc(7);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28877,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li807),tmp=(C_word)a,a+=5,tmp));
t5=((C_word*)t3)[1];
f_28877(t5,t1,C_fix(0));}

/* loop in r-comment in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_28877(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_28877,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28881,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* library.scm:5154: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k28879 in loop in r-comment in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_28881(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_28881,c,av);}
a=C_alloc(5);
switch(t1){
case C_make_character(124):
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28917,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);
/* library.scm:5156: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}
case C_make_character(35):
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28940,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);
/* library.scm:5160: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}
default:
if(C_truep(C_eofp(t1))){
/* library.scm:5164: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=lf[985];
tp(4,av2);}}
else{
/* library.scm:5165: loop */
t2=((C_word*)((C_word*)t0)[3])[1];
f_28877(t2,((C_word*)t0)[4],((C_word*)t0)[2]);}}}

/* k28915 in k28879 in loop in r-comment in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_28917(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_28917,c,av);}
t2=C_eqp(C_make_character(35),t1);
if(C_truep(t2)){
t3=C_eqp(((C_word*)t0)[2],C_fix(0));
if(C_truep(C_i_not(t3))){
/* library.scm:5158: loop */
t4=((C_word*)((C_word*)t0)[3])[1];
f_28877(t4,((C_word*)t0)[4],C_fixnum_difference(((C_word*)t0)[2],C_fix(1)));}
else{
t4=C_SCHEME_UNDEFINED;
t5=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
/* library.scm:5159: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_28877(t3,((C_word*)t0)[4],((C_word*)t0)[2]);}}

/* k28938 in k28879 in loop in r-comment in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_28940(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_28940,c,av);}
t2=C_eqp(C_make_character(124),t1);
if(C_truep(t2)){
/* library.scm:5160: loop */
t3=((C_word*)((C_word*)t0)[2])[1];
f_28877(t3,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}
else{
/* library.scm:5160: loop */
t3=((C_word*)((C_word*)t0)[2])[1];
f_28877(t3,((C_word*)t0)[3],((C_word*)t0)[4]);}}

/* r-ext-symbol in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_28958(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_28958,2,t0,t1);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28962,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5168: r-token */
t3=((C_word*)((C_word*)t0)[2])[1];
f_28274(t3,t2);}

/* k28960 in r-ext-symbol in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_28962(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_28962,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28969,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5169: string-append */
t3=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[986];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k28967 in k28960 in r-ext-symbol in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_28969(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_28969,c,av);}
/* library.scm:5176: ##sys#string->symbol */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[749]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[749]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* r-quote in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_28971(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_28971,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28975,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* library.scm:5172: ##sys#port-line */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[902]);
C_word av2[3];
av2[0]=*((C_word*)lf[902]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k28973 in r-quote in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_28975(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_28975,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28986,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);
/* library.scm:5173: readrec */
t3=((C_word*)((C_word*)t0)[5])[1];
f_27046(t3,t2);}

/* k28984 in k28973 in r-quote in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_28986(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_28986,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* library.scm:5173: info */
t3=((C_word*)((C_word*)t0)[3])[1];
f_26817(t3,((C_word*)t0)[4],lf[958],t2,((C_word*)t0)[5]);}

/* k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_29006(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
C_save_and_reclaim((void *)f_29006,c,av);}
a=C_alloc(29);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|28,a[1]=(C_word)f_29009,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[2],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],tmp=(C_word)a,a+=29,tmp);
/* library.scm:5185: r-spaces */
t4=((C_word*)((C_word*)t0)[29])[1];
f_27049(t4,t3);}

/* k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_29009(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_29009,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29012,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5186: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_29012(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
C_save_and_reclaim((void *)f_29012,c,av);}
a=C_alloc(23);
t2=((C_word*)t0)[2];
t3=C_slot(((C_word*)t2)[2],C_fix(1));
t4=C_eofp(t1);
t5=C_i_not(t4);
t6=(C_truep(t5)?C_i_assq(t1,t3):C_SCHEME_FALSE);
t7=(C_truep(t6)?C_slot(t6,C_fix(1)):C_SCHEME_FALSE);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29029,a[2]=t6,a[3]=t1,a[4]=((C_word*)t2)[3],a[5]=((C_word)li811),tmp=(C_word)a,a+=6,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29038,a[2]=((C_word*)t2)[4],a[3]=((C_word)li812),tmp=(C_word)a,a+=4,tmp);
/* library.scm:5192: ##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)[5];
av2[2]=t8;
av2[3]=t9;
C_call_with_values(4,av2);}}
else{
switch(t1){
case C_make_character(39):
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29060,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5198: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(96):
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29072,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5201: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(44):
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29084,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5204: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(35):
t8=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_29112,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[2],a[5]=t1,a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[4],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[12],a[13]=((C_word*)t2)[13],a[14]=((C_word*)t2)[14],a[15]=((C_word*)t2)[15],a[16]=((C_word*)t2)[6],a[17]=((C_word*)t2)[16],a[18]=((C_word*)t2)[17],a[19]=((C_word*)t2)[18],a[20]=((C_word*)t2)[19],a[21]=((C_word*)t2)[20],a[22]=((C_word*)t2)[21],tmp=(C_word)a,a+=23,tmp);
/* library.scm:5210: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(40):
/* library.scm:5333: r-list */
t8=((C_word*)((C_word*)t2)[22])[1];
f_27808(t8,((C_word*)t2)[5],C_make_character(40),C_make_character(41));
case C_make_character(41):
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29738,a[2]=((C_word*)t2)[23],a[3]=((C_word*)t2)[5],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:5334: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(34):
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29750,a[2]=((C_word*)t2)[24],a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5335: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(46):
/* library.scm:5336: r-number */
t8=((C_word*)((C_word*)t2)[25])[1];
f_28087(t8,((C_word*)t2)[5],C_SCHEME_FALSE,C_SCHEME_FALSE);
default:
t8=C_eqp(t1,C_make_character(45));
t9=(C_truep(t8)?t8:C_eqp(t1,C_make_character(43)));
if(C_truep(t9)){
/* library.scm:5337: r-number */
t10=((C_word*)((C_word*)t2)[25])[1];
f_28087(t10,((C_word*)t2)[5],C_SCHEME_FALSE,C_SCHEME_FALSE);}
else{
if(C_truep(C_eofp(t1))){
t10=((C_word*)t2)[5];{
C_word *av2=av;
av2[0]=t10;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
if(C_truep(C_u_i_char_numericp(t1))){
/* library.scm:5340: r-number */
t10=((C_word*)((C_word*)t2)[25])[1];
f_28087(t10,((C_word*)t2)[5],C_SCHEME_FALSE,C_SCHEME_FALSE);}
else{
if(C_truep(C_i_memq(t1,((C_word*)((C_word*)t2)[26])[1]))){
/* library.scm:5342: reserved-character */
t10=((C_word*)((C_word*)t2)[27])[1];
f_26863(t10,((C_word*)t2)[5],t1);}
else{
switch(t1){
case C_make_character(91):
/* library.scm:5345: r-list */
t10=((C_word*)((C_word*)t2)[22])[1];
f_27808(t10,((C_word*)t2)[5],C_make_character(91),C_make_character(93));
case C_make_character(123):
/* library.scm:5346: r-list */
t10=((C_word*)((C_word*)t2)[22])[1];
f_27808(t10,((C_word*)t2)[5],C_make_character(123),C_make_character(125));
default:
t10=C_eqp(t1,C_make_character(93));
t11=(C_truep(t10)?t10:C_eqp(t1,C_make_character(125)));
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29828,a[2]=((C_word*)t2)[23],a[3]=((C_word*)t2)[5],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:5347: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t12;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}
else{
/* library.scm:5348: r-symbol */
t12=((C_word*)((C_word*)t2)[28])[1];
f_28381(t12,((C_word*)t2)[5]);}}}}}}}}}

/* a29028 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_29029(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_29029,c,av);}
/* library.scm:5193: g6117 */
t2=C_slot(((C_word*)t0)[2],C_fix(1));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}

/* a29037 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_29038(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_29038,c,av);}
if(C_truep(C_rest_nullp(c,2))){
/* library.scm:5194: readrec */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27046(t2,t1);}
else{
t2=t1;{
C_word av2[2];
av2[0]=t2;
av2[1]=C_get_rest_arg(c,2,av,2,t0);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k29058 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_29060(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29060,c,av);}
/* library.scm:5199: r-quote */
t2=((C_word*)((C_word*)t0)[2])[1];
f_28971(t2,((C_word*)t0)[3],lf[987]);}

/* k29070 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_29072(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29072,c,av);}
/* library.scm:5202: r-quote */
t2=((C_word*)((C_word*)t0)[2])[1];
f_28971(t2,((C_word*)t0)[3],lf[988]);}

/* k29082 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_29084(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_29084,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29103,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5205: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k29091 in k29101 in k29082 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29093(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29093,c,av);}
/* library.scm:5207: r-quote */
t2=((C_word*)((C_word*)t0)[2])[1];
f_28971(t2,((C_word*)t0)[3],lf[989]);}

/* k29101 in k29082 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_29103(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_29103,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=C_eqp(t1,C_make_character(64));
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29093,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5206: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}
else{
/* library.scm:5208: r-quote */
t4=((C_word*)((C_word*)t2)[2])[1];
f_28971(t4,((C_word*)t2)[3],lf[990]);}}

/* k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_29112(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_29112,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29115,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5211: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_29115(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_29115,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
if(C_truep(C_eofp(t1))){
/* library.scm:5214: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=lf[991];
tp(4,av2);}}
else{
if(C_truep(C_u_i_char_numericp(t1))){
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_29133,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[5],a[6]=C_SCHEME_UNDEFINED,a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],tmp=(C_word)a,a+=10,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29266,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5217: r-digits */
t5=((C_word*)((C_word*)t2)[9])[1];
f_28335(t5,t4);}
else{
t3=C_slot(((C_word*)t2)[4],C_fix(2));
t4=C_i_assq(t1,t3);
t5=(C_truep(t4)?C_slot(t4,C_fix(1)):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29283,a[2]=t4,a[3]=t1,a[4]=((C_word*)t2)[3],a[5]=((C_word)li817),tmp=(C_word)a,a+=6,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29292,a[2]=((C_word*)t2)[7],a[3]=((C_word)li818),tmp=(C_word)a,a+=4,tmp);
/* library.scm:5256: ##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)[2];
av2[2]=t6;
av2[3]=t7;
C_call_with_values(4,av2);}}
else{
t6=C_u_i_char_downcase(t1);
switch(t6){
case C_make_character(120):
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29317,a[2]=((C_word*)t2)[10],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5261: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(100):
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29329,a[2]=((C_word*)t2)[10],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5262: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(111):
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29341,a[2]=((C_word*)t2)[10],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5263: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(98):
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29353,a[2]=((C_word*)t2)[10],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5264: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(105):
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29365,a[2]=((C_word*)t2)[11],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5265: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(101):
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29377,a[2]=((C_word*)t2)[11],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5266: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(40):
/* library.scm:5267: r-vector */
t7=((C_word*)((C_word*)t2)[12])[1];
f_28069(t7,((C_word*)t2)[2]);
case C_make_character(92):
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29398,a[2]=((C_word*)t2)[13],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5268: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(124):
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29410,a[2]=((C_word*)t2)[7],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[14],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5270: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(35):
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29425,a[2]=((C_word*)t2)[15],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5273: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(59):
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29437,a[2]=((C_word*)t2)[7],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5276: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(96):
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29452,a[2]=((C_word*)t2)[16],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5279: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(36):
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29464,a[2]=((C_word*)t2)[16],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5282: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(58):
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29476,a[2]=((C_word*)t2)[17],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[18],a[5]=((C_word*)t2)[2],tmp=(C_word)a,a+=6,tmp);
/* library.scm:5286: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(43):
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29536,a[2]=((C_word*)t2)[19],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[7],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
/* library.scm:5296: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
case C_make_character(33):
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_29566,a[2]=((C_word*)t2)[7],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[20],a[5]=((C_word*)t2)[21],a[6]=((C_word*)t2)[3],a[7]=((C_word*)t2)[22],tmp=(C_word)a,a+=8,tmp);
/* library.scm:5303: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}
default:
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29666,a[2]=t1,a[3]=((C_word*)t2)[3],a[4]=((C_word)li823),tmp=(C_word)a,a+=5,tmp);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29672,a[2]=((C_word*)t2)[7],a[3]=((C_word)li824),tmp=(C_word)a,a+=4,tmp);
/* library.scm:5331: ##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)[2];
av2[2]=t7;
av2[3]=t8;
C_call_with_values(4,av2);}}}}}}

/* k29131 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29133(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_29133,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_29136,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5218: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k29134 in k29131 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_29136(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_29136,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=C_slot(((C_word*)t2)[2],C_fix(3));
if(C_truep(C_eofp(t1))){
/* library.scm:5221: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=((C_word*)t2)[4];
av2[3]=lf[992];
av2[4]=((C_word*)t2)[5];
av2[5]=((C_word*)t2)[6];
tp(6,av2);}}
else{
t4=C_eqp(C_make_character(61),t1);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29157,a[2]=((C_word*)t2)[7],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[8],tmp=(C_word)a,a+=6,tmp);
/* library.scm:5226: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}
else{
t5=C_eqp(C_make_character(35),t1);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29176,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[9],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],tmp=(C_word)a,a+=6,tmp);
/* library.scm:5233: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t6;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_29191,a[2]=t1,a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[8],a[6]=((C_word*)t2)[3],a[7]=((C_word*)t2)[5],tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_charp(t1))){
t7=C_i_assq(t1,t3);
if(C_truep(t7)){
t8=C_slot(t7,C_fix(1));
t9=t6;
f_29191(t9,(C_truep(t8)?t7:C_SCHEME_FALSE));}
else{
t8=t6;
f_29191(t8,C_SCHEME_FALSE);}}
else{
t7=t6;
f_29191(t7,C_SCHEME_FALSE);}}}}}

/* k29155 in k29134 in k29131 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_29157(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_29157,c,av);}
a=C_alloc(16);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29166,a[2]=t3,a[3]=((C_word)li813),tmp=(C_word)a,a+=4,tmp);
t5=(
/* library.scm:5228: register-shared! */
  f_26887(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],t4)
);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29163,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5229: readrec */
t7=((C_word*)((C_word*)t0)[5])[1];
f_27046(t7,t6);}

/* k29161 in k29155 in k29134 in k29131 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_29163(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_29163,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
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);}}

/* a29165 in k29155 in k29134 in k29131 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_29166(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_29166,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k29174 in k29134 in k29131 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_29176(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_29176,c,av);}
t2=C_i_assq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);
if(C_truep(t2)){
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cdr(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* library.scm:5235: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=lf[993];
av2[4]=((C_word*)t0)[2];
tp(5,av2);}}}

/* k29189 in k29134 in k29131 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void f_29191(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_29191,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29195,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li816),tmp=(C_word)a,a+=7,tmp);
/* library.scm:5220: g6165 */
t3=t2;
f_29195(t3,((C_word*)t0)[6],t1);}
else{
t2=C_eqp(((C_word*)t0)[2],C_make_character(41));
t3=(C_truep(t2)?t2:C_u_i_char_whitespacep(((C_word*)t0)[2]));
if(C_truep(t3)){
/* library.scm:5246: ##sys#sharp-number-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[929]);
C_word av2[4];
av2[0]=*((C_word*)lf[929]+1);
av2[1]=((C_word*)t0)[6];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29241,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
/* library.scm:5247: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}}

/* g6165 in k29189 in k29134 in k29131 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void f_29195(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_29195,3,t0,t1,t2);}
a=C_alloc(11);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29201,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)li814),tmp=(C_word)a,a+=7,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29210,a[2]=((C_word*)t0)[5],a[3]=((C_word)li815),tmp=(C_word)a,a+=4,tmp);
/* library.scm:5241: ##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);}}

/* a29200 in g6165 in k29189 in k29134 in k29131 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in ... */
static void C_ccall f_29201(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_29201,c,av);}
/* library.scm:5242: g6168 */
t2=C_slot(((C_word*)t0)[2],C_fix(1));{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
((C_proc)C_fast_retrieve_proc(t2))(5,av2);}}

/* a29209 in g6165 in k29189 in k29134 in k29131 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in ... */
static void C_ccall f_29210(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_29210,c,av);}
if(C_truep(C_rest_nullp(c,2))){
/* library.scm:5243: readrec */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27046(t2,t1);}
else{
t2=t1;{
C_word av2[2];
av2[0]=t2;
av2[1]=C_get_rest_arg(c,2,av,2,t0);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k29239 in k29189 in k29134 in k29131 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_29241(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_29241,c,av);}
/* library.scm:5248: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[994];
av2[4]=((C_word*)t0)[4];
av2[5]=((C_word*)t0)[5];
av2[6]=((C_word*)t0)[6];
tp(7,av2);}}

/* k29264 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29266(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29266,c,av);}
/* library.scm:5217: scheme#string->number */
t2=*((C_word*)lf[733]+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);}}

/* a29282 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29283(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_29283,c,av);}
/* library.scm:5257: g6178 */
t2=C_slot(((C_word*)t0)[2],C_fix(1));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}

/* a29291 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29292(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_29292,c,av);}
if(C_truep(C_rest_nullp(c,2))){
/* library.scm:5258: readrec */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27046(t2,t1);}
else{
t2=t1;{
C_word av2[2];
av2[0]=t2;
av2[1]=C_get_rest_arg(c,2,av,2,t0);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k29315 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29317(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29317,c,av);}
/* library.scm:5261: r-number-with-exactness */
t2=((C_word*)((C_word*)t0)[2])[1];
f_28156(t2,((C_word*)t0)[3],C_fix(16));}

/* k29327 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29329(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29329,c,av);}
/* library.scm:5262: r-number-with-exactness */
t2=((C_word*)((C_word*)t0)[2])[1];
f_28156(t2,((C_word*)t0)[3],C_fix(10));}

/* k29339 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29341(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29341,c,av);}
/* library.scm:5263: r-number-with-exactness */
t2=((C_word*)((C_word*)t0)[2])[1];
f_28156(t2,((C_word*)t0)[3],C_fix(8));}

/* k29351 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29353(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29353,c,av);}
/* library.scm:5264: r-number-with-exactness */
t2=((C_word*)((C_word*)t0)[2])[1];
f_28156(t2,((C_word*)t0)[3],C_fix(2));}

/* k29363 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29365(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29365,c,av);}
/* library.scm:5265: r-number-with-radix */
t2=((C_word*)((C_word*)t0)[2])[1];
f_28207(t2,((C_word*)t0)[3],lf[726]);}

/* k29375 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29377(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29377,c,av);}
/* library.scm:5266: r-number-with-radix */
t2=((C_word*)((C_word*)t0)[2])[1];
f_28207(t2,((C_word*)t0)[3],lf[725]);}

/* k29396 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29398(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_29398,c,av);}
/* library.scm:5268: r-char */
t2=((C_word*)((C_word*)t0)[2])[1];
f_28654(t2,((C_word*)t0)[3]);}

/* k29408 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29410(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_29410,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29413,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5271: r-comment */
t3=((C_word*)((C_word*)t0)[4])[1];
f_28871(t3,t2);}

/* k29411 in k29408 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_29413(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_29413,c,av);}
/* library.scm:5271: readrec */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27046(t2,((C_word*)t0)[3]);}

/* k29423 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29425(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_29425,c,av);}
/* library.scm:5274: r-ext-symbol */
t2=((C_word*)((C_word*)t0)[2])[1];
f_28958(t2,((C_word*)t0)[3]);}

/* k29435 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29437(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_29437,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29440,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5277: readrec */
t3=((C_word*)((C_word*)t0)[2])[1];
f_27046(t3,t2);}

/* k29438 in k29435 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_29440(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_29440,c,av);}
t2=((C_word*)t0)[2];
/* library.scm:5277: readrec */
t3=((C_word*)((C_word*)t2)[2])[1];
f_27046(t3,((C_word*)t2)[3]);}

/* k29450 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29452(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29452,c,av);}
/* library.scm:5280: r-quote */
t2=((C_word*)((C_word*)t0)[2])[1];
f_28971(t2,((C_word*)t0)[3],lf[995]);}

/* k29462 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29464(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29464,c,av);}
/* library.scm:5284: r-quote */
t2=((C_word*)((C_word*)t0)[2])[1];
f_28971(t2,((C_word*)t0)[3],lf[996]);}

/* k29474 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29476(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_29476,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29479,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5287: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k29477 in k29474 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_29479(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_29479,c,av);}
a=C_alloc(22);
t2=((C_word*)t0)[2];
t3=C_SCHEME_FALSE;
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|5,a[1]=(C_word)f_29484,a[2]=t6,a[3]=((C_word*)t2)[2],a[4]=t4,a[5]=((C_word)li819),tmp=(C_word)a,a+=6,tmp);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29489,a[2]=t1,a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word)li821),tmp=(C_word)a,a+=6,tmp);
t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29524,a[2]=t4,a[3]=((C_word*)t2)[2],a[4]=t6,a[5]=((C_word)li822),tmp=(C_word)a,a+=6,tmp);
/* library.scm:5288: ##sys#dynamic-wind */
t10=*((C_word*)lf[839]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t10;
av2[1]=((C_word*)t2)[5];
av2[2]=t7;
av2[3]=t8;
av2[4]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}

/* a29483 in k29477 in k29474 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_29484(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_29484,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);}}

/* a29488 in k29477 in k29474 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_29489(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_29489,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29495,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li820),tmp=(C_word)a,a+=5,tmp);
/* library.scm:5289: r-xtoken */
t3=((C_word*)((C_word*)t0)[4])[1];
f_28406(t3,t1,t2);}

/* a29494 in a29488 in k29477 in k29474 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_29495(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_29495,c,av);}
a=C_alloc(3);
t4=C_i_string_length(t2);
t5=C_eqp(C_fix(0),t4);
t6=(C_truep(t5)?C_i_not(C_i_char_equalp(((C_word*)t0)[2],C_make_character(124))):C_SCHEME_FALSE);
if(C_truep(t6)){
/* library.scm:5293: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2=av;
av2[0]=*((C_word*)lf[930]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[997];
tp(4,av2);}}
else{
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f46146,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5179: ##sys#string->symbol-name */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[746]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[746]+1);
av2[1]=t7;
av2[2]=t2;
tp(3,av2);}}}

/* a29523 in k29477 in k29474 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_29524(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_29524,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);}}

/* k29534 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29536(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_29536,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29539,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);
/* library.scm:5297: ##sys#port-line */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[902]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[902]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k29537 in k29534 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_29539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_29539,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_29542,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5298: readrec */
t4=((C_word*)((C_word*)t0)[5])[1];
f_27046(t4,t3);}

/* k29540 in k29537 in k29534 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_29542(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_29542,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29557,a[2]=t1,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],tmp=(C_word)a,a+=6,tmp);
/* library.scm:5300: readrec */
t4=((C_word*)((C_word*)t2)[5])[1];
f_27046(t4,t3);}

/* k29555 in k29540 in k29537 in k29534 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_29557(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_29557,c,av);}
a=C_alloc(15);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_list3(&a,3,lf[998],t2,lf[999]);
/* library.scm:5299: info */
t4=((C_word*)((C_word*)t0)[3])[1];
f_26817(t4,((C_word*)t0)[4],lf[958],t3,((C_word*)t0)[5]);}

/* k29564 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29566(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_29566,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29569,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5304: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k29567 in k29564 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_29569(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_29569,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29575,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_charp(t1))){
t4=C_u_i_char_whitespacep(t1);
t5=t3;
f_29575(t5,(C_truep(t4)?t4:C_u_i_char_equalp(C_make_character(47),t1)));}
else{
t4=t3;
f_29575(t4,C_SCHEME_FALSE);}}

/* k29573 in k29567 in k29564 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void f_29575(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_29575,2,t0,t1);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29578,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5307: skip-to-eol */
t4=((C_word*)((C_word*)t2)[4])[1];
f_26826(t4,t3);}
else{
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29584,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[2],tmp=(C_word)a,a+=6,tmp);
/* library.scm:5310: r-token */
t4=((C_word*)((C_word*)t2)[7])[1];
f_28274(t4,t3);}}

/* k29576 in k29573 in k29567 in k29564 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_29578(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_29578,c,av);}
/* library.scm:5308: readrec */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27046(t2,((C_word*)t0)[3]);}

/* k29582 in k29573 in k29567 in k29564 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_29584(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_29584,c,av);}
a=C_alloc(5);
if(C_truep(C_i_string_equal_p(lf[1000],t1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_END_OF_FILE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_string_equal_p(lf[1001],t1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_BROKEN_WEAK_PTR;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_string_equal_p(lf[1002],t1))){
t2=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_FALSE);
t3=C_i_set_i_slot(((C_word*)t0)[4],C_fix(13),((C_word*)((C_word*)t0)[3])[1]);
/* library.scm:5316: readrec */
t4=((C_word*)((C_word*)t0)[5])[1];
f_27046(t4,((C_word*)t0)[2]);}
else{
if(C_truep(C_i_string_equal_p(lf[1003],t1))){
t2=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE);
t3=C_i_set_i_slot(((C_word*)t0)[4],C_fix(13),((C_word*)((C_word*)t0)[3])[1]);
/* library.scm:5320: readrec */
t4=((C_word*)((C_word*)t0)[5])[1];
f_27046(t4,((C_word*)t0)[2]);}
else{
if(C_truep((C_truep(C_i_equalp(t1,lf[1004]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t1,lf[1005]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t1,lf[1006]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29631,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5322: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=t2;
av2[2]=lf[1007];
av2[3]=t1;
tp(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29650,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:5324: scheme#string->symbol */
t3=*((C_word*)lf[752]+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);}}}}}}}

/* k29629 in k29582 in k29573 in k29567 in k29564 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in ... */
static void C_ccall f_29631(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29631,c,av);}
/* library.scm:5176: ##sys#string->symbol */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[749]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[749]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k29648 in k29582 in k29573 in k29567 in k29564 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in ... */
static void C_ccall f_29650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_29650,c,av);}
t2=C_i_assq(t1,C_fast_retrieve(lf[1008]));
if(C_truep(t2)){
/* library.scm:5325: g6239 */
t3=C_slot(t2,C_fix(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]=((C_word*)t0)[3];
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
else{
/* library.scm:5327: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[1009];
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}}

/* a29665 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29666(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_29666,c,av);}
/* library.scm:5331: ##sys#user-read-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1010]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1010]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* a29671 in k29113 in k29110 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_29672(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_29672,c,av);}
if(C_truep(C_rest_nullp(c,2))){
/* library.scm:5332: readrec */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27046(t2,t1);}
else{
t2=t1;{
C_word av2[2];
av2[0]=t2;
av2[1]=C_get_rest_arg(c,2,av,2,t0);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k29736 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_29738(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29738,c,av);}
/* library.scm:5334: container */
t2=((C_word*)((C_word*)t0)[2])[1];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* k29748 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_29750(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29750,c,av);}
/* library.scm:5335: r-string */
t2=((C_word*)((C_word*)t0)[2])[1];
f_27297(t2,((C_word*)t0)[3],C_make_character(34));}

/* k29826 in k29010 in k29007 in k29004 in readrec in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_29828(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29828,c,av);}
/* library.scm:5347: container */
t2=((C_word*)((C_word*)t0)[2])[1];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* k29896 in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_29898(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_29898,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29901,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);
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
/* library.scm:5351: ##sys#read-warning */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[933]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[933]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)((C_word*)t0)[5])[1];
tp(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_29901(2,av2);}}}

/* k29899 in k29896 in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_29901(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_29901,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29904,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[4])[1]))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29912,a[2]=((C_word)li826),tmp=(C_word)a,a+=3,tmp);
/* library.scm:5353: unthunkify! */
t4=((C_word*)((C_word*)t0)[5])[1];
f_26926(t4,t2,((C_word*)t0)[3],t3);}
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);}}}

/* k29902 in k29899 in k29896 in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_29904(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_29904,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);}}

/* a29911 in k29899 in k29896 in k26807 in k26804 in k26801 in k26798 in k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_29912(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,4)))){
C_save_and_reclaim((void*)f_29912,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
t2=C_build_rest(&a,c,2,av);
C_word t3;{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=t1;
av2[2]=C_fast_retrieve(lf[930]);
av2[3]=C_fast_retrieve(lf[1013]);
av2[4]=t2;
C_apply(5,av2);}}

/* k29920 in ##sys#read in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in ... */
static void C_ccall f_29922(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_29922,c,av);}
a=C_alloc(11);
t2=(C_truep(t1)?C_slot(((C_word*)t0)[2],C_fix(13)):C_SCHEME_FALSE);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_26800,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* library.scm:4715: keyword-style */
t6=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* ##sys#user-read-hook in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_29927(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_29927,c,av);}
a=C_alloc(10);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29930,a[2]=t3,a[3]=((C_word)li828),tmp=(C_word)a,a+=4,tmp);
t5=C_eqp(t2,C_make_character(102));
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29943,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
if(C_truep(t5)){
t7=t6;
f_29943(t7,t5);}
else{
t7=C_eqp(t2,C_make_character(116));
t8=t6;
f_29943(t8,(C_truep(t7)?t7:C_eqp(t2,C_make_character(117))));}}

/* fail in ##sys#user-read-hook in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in ... */
static void f_29930(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_29930,3,t0,t1,t2);}
/* library.scm:5363: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word av2[5];
av2[0]=*((C_word*)lf[930]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[1014];
av2[4]=t2;
tp(5,av2);}}

/* k29941 in ##sys#user-read-hook in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in ... */
static void f_29943(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_29943,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29946,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5366: ##sys#read */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[909]);
C_word av2[4];
av2[0]=*((C_word*)lf[909]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_fast_retrieve(lf[925]);
tp(4,av2);}}
else{
/* library.scm:5381: fail */
t2=((C_word*)t0)[2];
f_29930(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}}

/* k29944 in k29941 in ##sys#user-read-hook in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in ... */
static void C_ccall f_29946(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_29946,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_i_symbolp(t1);
if(C_truep(C_i_not(t3))){
/* library.scm:5368: fail */
t4=((C_word*)t2)[2];
f_29930(t4,((C_word*)t2)[3],((C_word*)t2)[4]);}
else{
t4=C_eqp(t1,lf[1015]);
t5=(C_truep(t4)?t4:C_eqp(t1,lf[1016]));
if(C_truep(t5)){
t6=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_eqp(t1,lf[1017]);
t7=(C_truep(t6)?t6:C_eqp(t1,lf[1018]));
if(C_truep(t7)){
t8=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=C_eqp(t1,lf[1019]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29982,a[2]=((C_word*)t2)[3],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5375: ##sys#read-numvector-data */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1021]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[1021]+1);
av2[1]=t9;
av2[2]=((C_word*)t2)[5];
tp(3,av2);}}
else{
/* library.scm:5380: fail */
t9=((C_word*)t2)[2];
f_29930(t9,((C_word*)t2)[3],t1);}}}}}

/* k29980 in k29944 in k29941 in ##sys#user-read-hook in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in ... */
static void C_ccall f_29982(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_29982,c,av);}
a=C_alloc(3);
t2=C_i_nullp(t1);
t3=(C_truep(t2)?t2:C_i_pairp(t1));
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29998,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5377: ##sys#canonicalize-number-list! */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1020]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[1020]+1);
av2[1]=t4;
av2[2]=t1;
tp(3,av2);}}
else{
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_chop_bv(C_slot(t1,C_fix(0)));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k29996 in k29980 in k29944 in k29941 in ##sys#user-read-hook in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_29998(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_29998,c,av);}
/* library.scm:5377: ##sys#list->bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[774]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[774]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* ##sys#read-numvector-data in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_30048(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_30048,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30052,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:5384: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2=av;
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k30050 in ##sys#read-numvector-data in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in ... */
static void C_ccall f_30052(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_30052,c,av);}
switch(t1){
case C_make_character(40):
/* library.scm:5386: ##sys#read */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[909]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[909]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_fast_retrieve(lf[925]);
tp(4,av2);}
case C_make_character(34):
/* library.scm:5387: ##sys#read */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[909]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[909]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_fast_retrieve(lf[925]);
tp(4,av2);}
default:
/* library.scm:5388: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[1022];
av2[4]=t1;
tp(5,av2);}}}

/* ##sys#canonicalize-number-list! in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_30079(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_30079,c,av);}
a=C_alloc(9);
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|4,a[1]=(C_word)f_30085,a[2]=t5,a[3]=t3,a[4]=((C_word)li833),tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_30085(t7,t1,((C_word*)t3)[1],C_SCHEME_FALSE);}

/* loop in ##sys#canonicalize-number-list! in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in ... */
static void f_30085(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_30085,4,t0,t1,t2,t3);}
a=C_alloc(10);
t4=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=C_slot(t2,C_fix(0));
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_30101,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=((C_word)li832),tmp=(C_word)a,a+=8,tmp));
t9=((C_word*)t7)[1];
f_30101(t9,t1,t5);}
else{
if(C_truep(t3)){
t5=C_i_set_i_slot(t3,C_fix(1),C_SCHEME_END_OF_LIST);
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=((C_word*)((C_word*)t0)[3])[1];
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}

/* retry in loop in ##sys#canonicalize-number-list! in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in ... */
static void f_30101(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_30101,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_charp(t2))){
t3=C_a_i_string(&a,1,t2);
/* library.scm:5400: retry */
t6=t1;
t7=t3;
t1=t6;
t2=t7;
goto loop;}
else{
if(C_truep(C_i_stringp(t2))){
t3=C_eqp(C_u_i_string_length(t2),C_fix(0));
if(C_truep(t3)){
/* library.scm:5403: loop */
t4=((C_word*)((C_word*)t0)[3])[1];
f_30085(t4,t1,C_slot(((C_word*)t0)[4],C_fix(1)),((C_word*)t0)[5]);}
else{
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_30141,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* ##sys#string->list */
t5=*((C_word*)lf[485]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}
else{
/* library.scm:5414: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_30085(t3,t1,C_slot(((C_word*)t0)[4],C_fix(1)),((C_word*)t0)[4]);}}}

/* k30139 in retry in loop in ##sys#canonicalize-number-list! in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in ... */
static void C_ccall f_30141(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_30141,c,av);}
a=C_alloc(9);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_30143,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)li831),tmp=(C_word)a,a+=7,tmp));
t5=((C_word*)t3)[1];
f_30143(t5,((C_word*)t0)[5],t1,((C_word*)t0)[6]);}

/* loop2 in k30139 in retry in loop in ##sys#canonicalize-number-list! in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void f_30143(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_30143,4,t0,t1,t2,t3);}
a=C_alloc(11);
t4=C_slot(t2,C_fix(0));
t5=C_fix(C_character_code(t4));
t6=C_slot(((C_word*)t0)[2],C_fix(1));
t7=C_a_i_cons(&a,2,t5,t6);
t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30150,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=t7,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t3)){
t9=t8;
f_30150(t9,C_i_setslot(t3,C_fix(1),t7));}
else{
t9=C_mutate(((C_word *)((C_word*)t0)[5])+1,t7);
t10=t8;
f_30150(t10,t9);}}

/* k30148 in loop2 in k30139 in retry in loop in ##sys#canonicalize-number-list! in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void f_30150(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_30150,2,t0,t1);}
t2=C_slot(((C_word*)t0)[2],C_fix(1));
if(C_truep(C_i_nullp(t2))){
/* library.scm:5412: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_30085(t3,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),((C_word*)t0)[6]);}
else{
/* library.scm:5413: loop2 */
t3=((C_word*)((C_word*)t0)[7])[1];
f_30143(t3,((C_word*)t0)[4],C_slot(((C_word*)t0)[2],C_fix(1)),((C_word*)t0)[6]);}}

/* ##sys#write-char-0 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_30207(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_30207,c,av);}
a=C_alloc(3);
t4=C_slot(t3,C_fix(2));
t5=C_slot(t4,C_fix(2));
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30214,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5430: g6370 */
t7=t5;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t3;
av2[3]=t2;
((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}

/* k30212 in ##sys#write-char-0 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in ... */
static void C_ccall f_30214(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_30214,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=*((C_word*)lf[292]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* ##sys#write-char/port in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_30223(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_30223,c,av);}
t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[1025]);
t5=C_i_check_char_2(t2,lf[1025]);
/* library.scm:5437: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
tp(4,av2);}}

/* scheme#write-char in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_30235(C_word c,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_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_30235,c,av);}
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?*((C_word*)lf[854]+1):C_get_rest_arg(c,3,av,3,t0));
t5=C_i_check_char_2(t2,lf[1025]);
t6=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[1025]);
/* library.scm:5443: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word av2[4];
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t4;
tp(4,av2);}}

/* scheme#newline in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_30256(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_30256,c,av);}
if(C_truep(C_rest_nullp(c,2))){
t2=*((C_word*)lf[854]+1);
t3=*((C_word*)lf[854]+1);
/* library.scm:5447: ##sys#write-char/port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1024]);
C_word av2[4];
av2[0]=*((C_word*)lf[1024]+1);
av2[1]=t1;
av2[2]=C_make_character(10);
av2[3]=*((C_word*)lf[854]+1);
tp(4,av2);}}
else{
/* library.scm:5447: ##sys#write-char/port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1024]);
C_word av2[4];
av2[0]=*((C_word*)lf[1024]+1);
av2[1]=t1;
av2[2]=C_make_character(10);
av2[3]=C_get_rest_arg(c,2,av,2,t0);
tp(4,av2);}}}

/* scheme#write in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_30271(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_30271,c,av);}
if(C_truep(C_rest_nullp(c,3))){
t3=*((C_word*)lf[854]+1);
t4=C_i_check_port_2(*((C_word*)lf[854]+1),C_fix(2),C_SCHEME_TRUE,lf[1026]);
/* library.scm:5452: ##sys#print */
t5=*((C_word*)lf[1027]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_SCHEME_TRUE;
av2[4]=*((C_word*)lf[854]+1);
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t3=C_get_rest_arg(c,3,av,3,t0);
t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[1026]);
/* library.scm:5452: ##sys#print */
t5=*((C_word*)lf[1027]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_SCHEME_TRUE;
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}

/* scheme#display in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_30289(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_30289,c,av);}
if(C_truep(C_rest_nullp(c,3))){
t3=*((C_word*)lf[854]+1);
t4=C_i_check_port_2(*((C_word*)lf[854]+1),C_fix(2),C_SCHEME_TRUE,lf[1028]);
/* library.scm:5457: ##sys#print */
t5=*((C_word*)lf[1027]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[854]+1);
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t3=C_get_rest_arg(c,3,av,3,t0);
t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[1028]);
/* library.scm:5457: ##sys#print */
t5=*((C_word*)lf[1027]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_SCHEME_FALSE;
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}

/* chicken.base#print in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_30307(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +9,c,3)))){
C_save_and_reclaim((void*)f_30307,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+9);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
t3=*((C_word*)lf[854]+1);
t4=C_i_check_port_2(*((C_word*)lf[854]+1),C_fix(2),C_SCHEME_TRUE,lf[1029]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30350,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t6=C_i_check_list_2(t2,lf[835]);
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_30326,a[2]=t8,a[3]=((C_word)li841),tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_30326(t10,t5,t2);}

/* for-each-loop6431 in chicken.base#print in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in ... */
static void f_30326(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_30326,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_30336,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[1027]+1);
/* library.scm:5460: g6447 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1027]+1));
C_word av2[5];
av2[0]=*((C_word*)lf[1027]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[854]+1);
tp(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);}}}

/* k30334 in for-each-loop6431 in chicken.base#print in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in ... */
static void C_ccall f_30336(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_30336,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_30326(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k30348 in chicken.base#print in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in ... */
static void C_ccall f_30350(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_30350,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30353,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5466: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=t2;
av2[2]=C_make_character(10);
av2[3]=*((C_word*)lf[854]+1);
tp(4,av2);}}

/* k30351 in k30348 in chicken.base#print in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in ... */
static void C_ccall f_30353(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_30353,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=*((C_word*)lf[292]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.base#print* in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_30358(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +9,c,3)))){
C_save_and_reclaim((void*)f_30358,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+9);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
t3=*((C_word*)lf[854]+1);
t4=C_i_check_port_2(*((C_word*)lf[854]+1),C_fix(2),C_SCHEME_TRUE,lf[1029]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30401,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t6=C_i_check_list_2(t2,lf[835]);
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_30377,a[2]=t8,a[3]=((C_word)li843),tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_30377(t10,t5,t2);}

/* for-each-loop6463 in chicken.base#print* in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in ... */
static void f_30377(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_30377,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_30387,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[1027]+1);
/* library.scm:5460: g6479 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1027]+1));
C_word av2[5];
av2[0]=*((C_word*)lf[1027]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[854]+1);
tp(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);}}}

/* k30385 in for-each-loop6463 in chicken.base#print* in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in ... */
static void C_ccall f_30387(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_30387,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_30377(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k30399 in chicken.base#print* in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in ... */
static void C_ccall f_30401(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_30401,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30404,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5473: ##sys#flush-output */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[900]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[900]+1);
av2[1]=t2;
av2[2]=*((C_word*)lf[854]+1);
tp(3,av2);}}

/* k30402 in k30399 in chicken.base#print* in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in ... */
static void C_ccall f_30404(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_30404,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=*((C_word*)lf[292]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in ... */
static void C_ccall f_30411(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_30411,c,av);}
a=C_alloc(3);
t2=C_mutate(&lf[1030] /* (set! current-print-length ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30415,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5477: scheme#make-parameter */
t4=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in ... */
static void C_ccall f_30415(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_30415,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[1031]+1 /* (set! ##sys#print-length-limit ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30419,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5478: scheme#make-parameter */
t4=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in ... */
static void C_ccall f_30419(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,5)))){
C_save_and_reclaim((void *)f_30419,c,av);}
a=C_alloc(18);
t2=C_mutate(&lf[1032] /* (set! ##sys#print-exit ...) */,t1);
t3=*((C_word*)lf[278]+1);
t4=*((C_word*)lf[281]+1);
t5=*((C_word*)lf[279]+1);
t6=C_mutate((C_word*)lf[1027]+1 /* (set! ##sys#print ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30421,a[2]=t4,a[3]=t5,a[4]=t3,a[5]=((C_word)li858),tmp=(C_word)a,a+=6,tmp));
t7=C_mutate((C_word*)lf[1055]+1 /* (set! ##sys#procedure->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31560,a[2]=((C_word)li859),tmp=(C_word)a,a+=3,tmp));
t8=C_set_block_item(lf[1068] /* ##sys#record-printers */,0,C_SCHEME_END_OF_LIST);
t9=C_mutate((C_word*)lf[257]+1 /* (set! chicken.base#record-printer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31577,a[2]=((C_word)li860),tmp=(C_word)a,a+=3,tmp));
t10=C_mutate((C_word*)lf[258]+1 /* (set! chicken.base#set-record-printer! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31589,a[2]=((C_word)li861),tmp=(C_word)a,a+=3,tmp));
t11=C_mutate((C_word*)lf[1070]+1 /* (set! ##sys#register-record-printer ...) */,*((C_word*)lf[258]+1));
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31615,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5726: chicken.base#getter-with-setter */
t13=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t13;
av2[1]=t12;
av2[2]=*((C_word*)lf[257]+1);
av2[3]=*((C_word*)lf[258]+1);
((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}}

/* ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in ... */
static void C_ccall f_30421(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_30421,c,av);}
a=C_alloc(8);
t5=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,C_SCHEME_FALSE);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30428,a[2]=t3,a[3]=t1,a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
/* library.scm:5486: case-sensitive */
t7=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_30428(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_30428,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30431,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);
/* library.scm:5487: keyword-style */
t3=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_30431(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_30431,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_30434,a[2]=C_SCHEME_UNDEFINED,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],tmp=(C_word)a,a+=9,tmp);
/* library.scm:5488: symbol-escape */
t3=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_30434(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_30434,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_30437,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5489: ##sys#print-length-limit */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1031]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1031]+1);
av2[1]=t3;
tp(2,av2);}}

/* k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_30437(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(61,c,4)))){
C_save_and_reclaim((void *)f_30437,c,av);}
a=C_alloc(61);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30439,a[2]=t1,a[3]=t6,a[4]=((C_word)li845),tmp=(C_word)a,a+=5,tmp));
t16=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30498,a[2]=((C_word)li846),tmp=(C_word)a,a+=3,tmp));
t17=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30522,a[2]=t1,a[3]=t6,a[4]=((C_word)li847),tmp=(C_word)a,a+=5,tmp));
t18=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30582,a[2]=((C_word*)t2)[2],a[3]=t4,a[4]=t12,a[5]=((C_word*)t2)[3],a[6]=t14,a[7]=((C_word)li848),tmp=(C_word)a,a+=8,tmp));
t19=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_30612,a[2]=C_SCHEME_UNDEFINED,a[3]=t8,a[4]=C_SCHEME_UNDEFINED,a[5]=C_SCHEME_UNDEFINED,a[6]=t4,a[7]=C_SCHEME_UNDEFINED,a[8]=((C_word)li850),tmp=(C_word)a,a+=9,tmp));
t20=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30697,a[2]=((C_word*)t2)[4],a[3]=((C_word)li852),tmp=(C_word)a,a+=4,tmp));
t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30923,a[2]=((C_word*)t2)[5],tmp=(C_word)a,a+=3,tmp);
t22=C_SCHEME_UNDEFINED;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_30928,a[2]=t4,a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[3],a[5]=t8,a[6]=((C_word*)t2)[7],a[7]=t10,a[8]=t23,a[9]=((C_word)li857),tmp=(C_word)a,a+=10,tmp));
t25=((C_word*)t23)[1];
f_30928(t25,t21,((C_word*)t2)[8]);}

/* outstr in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_30439(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_30439,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(((C_word*)t0)[2])){
t4=C_i_string_length(t3);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30449,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp);
/* library.scm:5495: current-print-length */
t6=C_retrieve2(lf[1030],C_text("current-print-length"));{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
/* library.scm:5504: outstr0 */
f_30498(t1,t2,t3);}}

/* k30447 in outstr in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_30449(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_30449,c,av);}
a=C_alloc(14);
t2=C_fixnum_plus(t1,((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30455,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_fixnum_greaterp(t2,((C_word*)t0)[4]))){
t4=C_fixnum_difference(((C_word*)t0)[4],t1);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30467,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_fixnum_greaterp(t4,C_fix(0)))){
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30490,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5499: ##sys#substring */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[495]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[495]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[7];
av2[3]=C_fix(0);
av2[4]=t4;
tp(5,av2);}}
else{
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
f_30467(2,av2);}}}
else{
/* library.scm:5502: outstr0 */
f_30498(t3,((C_word*)t0)[6],((C_word*)t0)[7]);}}

/* k30453 in k30447 in outstr in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_30455(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_30455,c,av);}
/* library.scm:5503: current-print-length */
t2=C_retrieve2(lf[1030],C_text("current-print-length"));{
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);}}

/* k30465 in k30447 in outstr in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_30467(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_30467,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30470,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5500: outstr0 */
f_30498(t2,((C_word*)t0)[4],lf[1033]);}

/* k30468 in k30465 in k30447 in outstr in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_30470(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_30470,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30473,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5501: ##sys#print-exit */
t3=C_retrieve2(lf[1032],C_text("##sys#print-exit"));{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k30471 in k30468 in k30465 in k30447 in outstr in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_30473(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_30473,c,av);}
t2=*((C_word*)lf[292]+1);
/* library.scm:5498: g6517 */
t3=t1;{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[292]+1);
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}

/* k30488 in k30447 in outstr in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_30490(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_30490,c,av);}
/* library.scm:5499: outstr0 */
f_30498(((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* outstr0 in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_30498(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_30498,3,t1,t2,t3);}
t4=C_slot(t3,C_fix(0));
t5=C_slot(t2,C_fix(2));
t6=C_slot(t5,C_fix(3));
t7=C_block_size(t4);
/* library.scm:5507: g6525 */
t8=t6;{
C_word av2[6];
av2[0]=t8;
av2[1]=t1;
av2[2]=t2;
av2[3]=t4;
av2[4]=C_fix(0);
av2[5]=C_fixnum_difference(t7,C_fix(1));
((C_proc)C_fast_retrieve_proc(t8))(6,av2);}}

/* outchr in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_30522(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_30522,4,t0,t1,t2,t3);}
a=C_alloc(14);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30526,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t0)[2])){
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_30539,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=t1,a[8]=t3,tmp=(C_word)a,a+=9,tmp);
/* library.scm:5512: current-print-length */
t6=C_retrieve2(lf[1030],C_text("current-print-length"));{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=C_slot(t2,C_fix(2));
/* g65346535 */
t6=C_slot(t5,C_fix(2));{
C_word av2[4];
av2[0]=t6;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}}

/* k30524 in outchr in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_30526(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_30526,c,av);}
t2=C_slot(((C_word*)t0)[2],C_fix(2));
/* g65346535 */
t3=C_slot(t2,C_fix(2));{
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)[2];
av2[3]=((C_word*)t0)[4];
((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}

/* k30537 in outchr in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_30539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_30539,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_30542,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5513: current-print-length */
t4=C_retrieve2(lf[1030],C_text("current-print-length"));{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_fixnum_plus(((C_word*)t0)[2],C_fix(1));
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k30540 in k30537 in outchr in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_30542(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_30542,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t2)[2],((C_word*)t2)[3]))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30551,a[2]=((C_word*)t2)[4],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5515: outstr0 */
f_30498(t3,((C_word*)t2)[6],lf[1034]);}
else{
t3=C_slot(((C_word*)t2)[6],C_fix(2));
/* g65346535 */
t4=C_slot(t3,C_fix(2));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t2)[7];
av2[2]=((C_word*)t2)[6];
av2[3]=((C_word*)t2)[8];
((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}}

/* k30549 in k30540 in k30537 in outchr in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_30551(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_30551,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30554,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5516: ##sys#print-exit */
t3=C_retrieve2(lf[1032],C_text("##sys#print-exit"));{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k30552 in k30549 in k30540 in k30537 in outchr in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_30554(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_30554,c,av);}
t2=*((C_word*)lf[292]+1);
/* library.scm:5514: g6530 */
t3=t1;{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[292]+1);
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}

/* outsym in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_30582(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_30582,4,t0,t1,t2,t3);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_30586,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,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);
/* library.scm:5525: ##sys#symbol->string/shared */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[747]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[747]+1);
av2[1]=t4;
av2[2]=t3;
tp(3,av2);}}

/* k30584 in outsym in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_30586(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_30586,c,av);}
a=C_alloc(7);
t2=C_i_not(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_30595,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t2)){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t2;
f_30595(2,av2);}}
else{
t4=C_i_not(((C_word*)t0)[7]);
if(C_truep(t4)){
t5=t3;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
f_30595(2,av2);}}
else{
/* library.scm:5526: sym-is-readable? */
t5=((C_word*)((C_word*)t0)[8])[1];
f_30697(t5,t3,t1);}}}

/* k30593 in k30584 in outsym in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_30595(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_30595,c,av);}
if(C_truep(t1)){
/* library.scm:5527: outstr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30439(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}
else{
/* library.scm:5528: outreadablesym */
t2=((C_word*)((C_word*)t0)[6])[1];
f_30612(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}}

/* outreadablesym in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_30612(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_30612,4,t0,t1,t2,t3);}
a=C_alloc(3);
t4=C_mutate(((C_word *)t0)+5,t3);
t5=C_mutate(((C_word *)t0)+4,t2);
t6=C_mutate(((C_word *)t0)+7,t1);
t7=C_i_string_length(((C_word*)t0)[5]);
t8=C_mutate(((C_word *)t0)+2,t7);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30619,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5532: outchr */
t10=((C_word*)((C_word*)t0)[3])[1];
f_30522(t10,t9,((C_word*)t0)[4],C_make_character(124));}

/* k30617 in outreadablesym in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_30619(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_30619,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_30624,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]=t4,a[7]=((C_word*)t2)[6],a[8]=((C_word)li849),tmp=(C_word)a,a+=9,tmp));
t6=((C_word*)t4)[1];
f_30624(t6,((C_word*)t2)[7],C_fix(0));}

/* loop in k30617 in outreadablesym in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void f_30624(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_30624,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
/* library.scm:5535: outchr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_30522(t3,t1,((C_word*)t0)[4],C_make_character(124));}
else{
t3=C_i_string_ref(((C_word*)t0)[5],t2);
t4=C_u_i_char_lessp(t3,C_make_character(32));
t5=(C_truep(t4)?t4:C_u_i_char_greaterp(t3,C_make_character(126)));
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_30648,a[2]=t3,a[3]=((C_word*)t0)[6],a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* library.scm:5538: outstr */
t7=((C_word*)((C_word*)t0)[7])[1];
f_30439(t7,t6,((C_word*)t0)[4],lf[1035]);}
else{
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30671,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t3,tmp=(C_word)a,a+=8,tmp);
t7=C_eqp(t3,C_make_character(124));
if(C_truep(t7)){
if(C_truep(t7)){
/* library.scm:5544: outchr */
t8=((C_word*)((C_word*)t0)[3])[1];
f_30522(t8,t6,((C_word*)t0)[4],C_make_character(92));}
else{
t8=t6;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
f_30671(2,av2);}}}
else{
t8=C_eqp(t3,C_make_character(92));
if(C_truep(t8)){
/* library.scm:5544: outchr */
t9=((C_word*)((C_word*)t0)[3])[1];
f_30522(t9,t6,((C_word*)t0)[4],C_make_character(92));}
else{
t9=t6;{
C_word av2[2];
av2[0]=t9;
av2[1]=C_SCHEME_UNDEFINED;
f_30671(2,av2);}}}}}}

/* k30646 in loop in k30617 in outreadablesym in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_30648(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_30648,c,av);}
a=C_alloc(12);
t2=C_fix(C_character_code(((C_word*)t0)[2]));
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_30654,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|4,a[1]=(C_word)f_30668,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5540: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=C_fix(16);
tp(4,av2);}}

/* k30652 in k30646 in loop in k30617 in outreadablesym in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_30654(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_30654,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30657,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);
/* library.scm:5541: outchr */
t3=((C_word*)((C_word*)t0)[5])[1];
f_30522(t3,t2,((C_word*)t0)[6],C_make_character(59));}

/* k30655 in k30652 in k30646 in loop in k30617 in outreadablesym in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_30657(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_30657,c,av);}
/* library.scm:5542: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30624(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* k30666 in k30646 in loop in k30617 in outreadablesym in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_30668(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_30668,c,av);}
/* library.scm:5540: outstr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30439(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k30669 in loop in k30617 in outreadablesym in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_30671(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_30671,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30674,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);
/* library.scm:5545: outchr */
t3=((C_word*)((C_word*)t0)[5])[1];
f_30522(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k30672 in k30669 in loop in k30617 in outreadablesym in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_30674(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_30674,c,av);}
/* library.scm:5546: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30624(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* sym-is-readable? in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_30697(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_30697,3,t0,t1,t2);}
a=C_alloc(9);
t3=C_i_string_length(t2);
switch(t3){
case C_fix(0):
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}
case C_fix(1):
t4=C_i_string_ref(t2,C_fix(0));
t5=C_eqp(C_make_character(35),t4);
t6=(C_truep(t5)?t5:C_eqp(C_make_character(46),t4));
if(C_truep(t6)){
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_fix(C_character_code(t4));
t8=C_fixnum_less_or_equal_p(t7,C_fix(32));
t9=(C_truep(t8)?t8:C_i_memq(t4,lf[1036]));
if(C_truep(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=C_u_i_char_numericp(t4);
t11=t1;{
C_word av2[2];
av2[0]=t11;
av2[1]=(C_truep(t10)?C_SCHEME_FALSE:C_SCHEME_TRUE);
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}
default:
t4=C_fixnum_difference(t3,C_fix(1));
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_30748,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t6,a[6]=((C_word)li851),tmp=(C_word)a,a+=7,tmp));
t8=((C_word*)t6)[1];
f_30748(t8,t1,t4);}}

/* loop in sym-is-readable? in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void f_30748(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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_30748,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_eqp(t2,C_fix(0));
if(C_truep(t3)){
t4=C_i_string_ref(((C_word*)t0)[2],C_fix(0));
if(C_truep(C_u_i_char_numericp(t4))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(t4,C_make_character(43));
t6=(C_truep(t5)?t5:C_eqp(t4,C_make_character(45)));
if(C_truep(t6)){
t7=C_eqp(((C_word*)t0)[3],C_fix(1));
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=(C_truep(t7)?t7:C_i_not(C_u_i_char_numericp(C_i_string_ref(((C_word*)t0)[2],C_fix(1)))));
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
switch(t4){
case C_make_character(46):
t7=C_fixnum_greaterp(((C_word*)t0)[3],C_fix(1));
t8=t1;{
C_word av2[2];
av2[0]=t8;
av2[1]=(C_truep(t7)?C_i_not(C_u_i_char_numericp(C_i_string_ref(((C_word*)t0)[2],C_fix(1)))):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}
case C_make_character(58):
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}
default:
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30823,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t8=C_eqp(t4,C_make_character(35));
if(C_truep(t8)){
if(C_truep(C_fixnum_greaterp(((C_word*)t0)[3],C_fix(2)))){
t9=C_eqp(C_i_string_ref(((C_word*)t0)[2],C_fix(1)),C_make_character(35));
if(C_truep(t9)){
t10=C_eqp(C_i_string_ref(((C_word*)t0)[2],C_fix(2)),C_make_character(35));
t11=t7;
f_30823(t11,C_i_not(C_i_not(t10)));}
else{
t10=t7;
f_30823(t10,C_SCHEME_TRUE);}}
else{
t9=t7;
f_30823(t9,C_SCHEME_TRUE);}}
else{
t9=t7;
f_30823(t9,C_SCHEME_FALSE);}}}}}
else{
t4=C_i_string_ref(((C_word*)t0)[2],t2);
t5=(C_truep(((C_word*)t0)[4])?((C_word*)t0)[4]:C_i_not(C_u_i_char_upper_casep(t4)));
if(C_truep(t5)){
t6=C_fix(C_character_code(t4));
t7=C_fixnum_less_or_equal_p(t6,C_fix(32));
t8=(C_truep(t7)?t7:C_i_memq(t4,lf[1036]));
if(C_truep(C_i_not(t8))){
t9=C_eqp(t4,C_make_character(58));
t10=C_i_not(t9);
t11=(C_truep(t10)?t10:C_fixnum_lessp(t2,C_fixnum_difference(((C_word*)t0)[3],C_fix(1))));
if(C_truep(t11)){
/* library.scm:5583: loop */
t13=t1;
t14=C_fixnum_difference(t2,C_fix(1));
t1=t13;
t2=t14;
goto loop;}
else{
t12=t1;{
C_word av2[2];
av2[0]=t12;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}
else{
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t9+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);}}}}

/* k30821 in loop in sym-is-readable? in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void f_30823(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){
C_save_and_reclaim_args((void *)trf_30823,2,t0,t1);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_i_member(((C_word*)t0)[3],lf[1037]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_fix(C_character_code(((C_word*)t0)[4]));
t3=C_fixnum_less_or_equal_p(t2,C_fix(32));
t4=(C_truep(t3)?t3:C_i_memq(((C_word*)t0)[4],lf[1036]));
t5=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?C_SCHEME_FALSE:C_SCHEME_TRUE);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k30921 in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_30923(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_30923,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=*((C_word*)lf[292]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_30928(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_30928,3,t0,t1,t2);}
a=C_alloc(8);
switch(t2){
case C_SCHEME_END_OF_LIST:
/* library.scm:5586: outstr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_30439(t3,t1,((C_word*)t0)[3],lf[1038]);
case C_SCHEME_TRUE:
/* library.scm:5587: outstr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_30439(t3,t1,((C_word*)t0)[3],lf[1039]);
case C_SCHEME_FALSE:
/* library.scm:5588: outstr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_30439(t3,t1,((C_word*)t0)[3],lf[1040]);
default:
if(C_truep(C_eofp(t2))){
/* library.scm:5589: outstr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_30439(t3,t1,((C_word*)t0)[3],lf[1041]);}
else{
if(C_truep(C_undefinedp(t2))){
/* library.scm:5590: outstr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_30439(t3,t1,((C_word*)t0)[3],lf[1042]);}
else{
if(C_truep(C_bwpp(t2))){
/* library.scm:5591: outstr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_30439(t3,t1,((C_word*)t0)[3],lf[1043]);}
else{
if(C_truep(C_charp(t2))){
if(C_truep(((C_word*)t0)[4])){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30983,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[5],a[7]=t2,tmp=(C_word)a,a+=8,tmp);
/* library.scm:5594: outstr */
t4=((C_word*)((C_word*)t0)[2])[1];
f_30439(t4,t3,((C_word*)t0)[3],lf[1044]);}
else{
/* library.scm:5603: outchr */
t3=((C_word*)((C_word*)t0)[5])[1];
f_30522(t3,t1,((C_word*)t0)[3],t2);}}
else{
if(C_truep(C_fixnump(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31042,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5604: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}
else{
if(C_truep(C_unboundvaluep(t2))){
/* library.scm:5605: outstr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_30439(t3,t1,((C_word*)t0)[3],lf[1045]);}
else{
if(C_truep(C_i_not(C_blockp(t2)))){
/* library.scm:5606: outstr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_30439(t3,t1,((C_word*)t0)[3],lf[1046]);}
else{
if(C_truep(C_forwardedp(t2))){
/* library.scm:5607: outstr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_30439(t3,t1,((C_word*)t0)[3],lf[1047]);}
else{
if(C_truep(C_i_keywordp(t2))){
t3=C_i_not(((C_word*)t0)[4]);
t4=(C_truep(t3)?((C_word*)t0)[6]:C_SCHEME_FALSE);
t5=C_eqp(t4,lf[983]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31078,a[2]=((C_word*)t0)[7],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* library.scm:5612: outchr */
t7=((C_word*)((C_word*)t0)[5])[1];
f_30522(t7,t6,((C_word*)t0)[3],C_make_character(58));}
else{
t6=C_eqp(t4,lf[964]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31090,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5615: outsym */
t8=((C_word*)((C_word*)t0)[7])[1];
f_30582(t8,t7,((C_word*)t0)[3],t2);}
else{
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31096,a[2]=((C_word*)t0)[7],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* library.scm:5618: outstr */
t8=((C_word*)((C_word*)t0)[2])[1];
f_30439(t8,t7,((C_word*)t0)[3],lf[1048]);}}}
else{
if(C_truep(C_i_symbolp(t2))){
/* library.scm:5620: outsym */
t3=((C_word*)((C_word*)t0)[7])[1];
f_30582(t3,t1,((C_word*)t0)[3],t2);}
else{
if(C_truep(C_i_numberp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31125,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5621: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}
else{
if(C_truep(C_anypointerp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31135,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5622: ##sys#pointer->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1049]);
C_word av2[3];
av2[0]=*((C_word*)lf[1049]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}
else{
if(C_truep(C_stringp(t2))){
if(C_truep(((C_word*)t0)[4])){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31144,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* library.scm:5625: outchr */
t4=((C_word*)((C_word*)t0)[5])[1];
f_30522(t4,t3,((C_word*)t0)[3],C_make_character(34));}
else{
/* library.scm:5652: outstr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_30439(t3,t1,((C_word*)t0)[3],t2);}}
else{
if(C_truep(C_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_31330,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[2],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
/* library.scm:5654: outchr */
t4=((C_word*)((C_word*)t0)[5])[1];
f_30522(t4,t3,((C_word*)t0)[3],C_make_character(40));}
else{
if(C_truep(C_bytevectorp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31403,a[2]=((C_word*)t0)[8],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:5666: outstr */
t4=((C_word*)((C_word*)t0)[2])[1];
f_30439(t4,t3,((C_word*)t0)[3],lf[1053]);}
else{
if(C_truep(C_structurep(t2))){
/* library.scm:5668: ##sys#user-print-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1054]);
C_word av2[5];
av2[0]=*((C_word*)lf[1054]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[3];
tp(5,av2);}}
else{
if(C_truep(C_closurep(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31426,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5669: ##sys#procedure->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1055]);
C_word av2[3];
av2[0]=*((C_word*)lf[1055]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}
else{
if(C_truep(C_locativep(t2))){
/* library.scm:5670: outstr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_30439(t3,t1,((C_word*)t0)[3],lf[1056]);}
else{
if(C_truep(C_lambdainfop(t2))){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31438,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* library.scm:5672: outstr */
t4=((C_word*)((C_word*)t0)[2])[1];
f_30439(t4,t3,((C_word*)t0)[3],lf[1057]);}
else{
if(C_truep(C_portp(t2))){
t3=C_slot(t2,C_fix(1));
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31457,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
switch(t3){
case C_fix(1):
/* library.scm:5677: outstr */
t5=((C_word*)((C_word*)t0)[2])[1];
f_30439(t5,t4,((C_word*)t0)[3],lf[1059]);
case C_fix(2):
/* library.scm:5678: outstr */
t5=((C_word*)((C_word*)t0)[2])[1];
f_30439(t5,t4,((C_word*)t0)[3],lf[1060]);
default:
/* library.scm:5679: outstr */
t5=((C_word*)((C_word*)t0)[2])[1];
f_30439(t5,t4,((C_word*)t0)[3],lf[1061]);}}
else{
if(C_truep(C_vectorp(t2))){
t3=C_block_size(t2);
t4=C_eqp(C_fix(0),t3);
if(C_truep(t4)){
/* library.scm:5685: outstr */
t5=((C_word*)((C_word*)t0)[2])[1];
f_30439(t5,t1,((C_word*)t0)[3],lf[1062]);}
else{
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_31507,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=t2,a[7]=t1,tmp=(C_word)a,a+=8,tmp);
/* library.scm:5687: outstr */
t6=((C_word*)((C_word*)t0)[2])[1];
f_30439(t6,t5,((C_word*)t0)[3],lf[1063]);}}
else{
/* library.scm:5695: ##sys#error */
t3=*((C_word*)lf[211]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[1064];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}}}}}}}}}}}}}}}}}}}}}}

/* k30981 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_30983(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_30983,c,av);}
a=C_alloc(3);
t2=C_fix(C_character_code(((C_word*)t0)[7]));
t3=C_mutate(((C_word *)t0)+5,t2);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30989,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5596: chicken.base#char-name */
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*)t0)[7];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k30987 in k30981 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_30989(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_30989,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30993,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],a[5]=((C_word)li853),tmp=(C_word)a,a+=6,tmp);
/* library.scm:5596: g6633 */
t4=t3;
f_30993(t4,((C_word*)t2)[4],t1);}
else{
t3=C_fixnum_lessp(((C_word*)t2)[5],C_fix(32));
t4=(C_truep(t3)?t3:C_fixnum_greaterp(((C_word*)t2)[5],C_fix(131071)));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31016,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
/* library.scm:5600: outchr */
t6=((C_word*)((C_word*)t2)[6])[1];
f_30522(t6,t5,((C_word*)t2)[3],C_make_character(120));}
else{
/* library.scm:5602: outchr */
t5=((C_word*)((C_word*)t2)[6])[1];
f_30522(t5,((C_word*)t2)[4],((C_word*)t2)[3],((C_word*)t2)[7]);}}}

/* g6633 in k30987 in k30981 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void f_30993(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_30993,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+3,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31001,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5598: ##sys#symbol->string/shared */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[747]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[747]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k30999 in g6633 in k30987 in k30981 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_31001(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31001,c,av);}
t2=((C_word*)t0)[2];
/* library.scm:5598: outstr */
t3=((C_word*)((C_word*)t2)[2])[1];
f_30439(t3,((C_word*)t2)[3],((C_word*)t2)[4],t1);}

/* k31014 in k30987 in k30981 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_31016(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_31016,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31023,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);
/* library.scm:5601: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_fix(16);
tp(4,av2);}}

/* k31021 in k31014 in k30987 in k30981 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_31023(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31023,c,av);}
/* library.scm:5601: outstr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30439(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k31040 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31042(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31042,c,av);}
/* library.scm:5604: outstr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30439(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k31076 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31078(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31078,c,av);}
/* library.scm:5613: outsym */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30582(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k31088 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31090(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31090,c,av);}
/* library.scm:5616: outchr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30522(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(58));}

/* k31094 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31096(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31096,c,av);}
/* library.scm:5619: outsym */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30582(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k31123 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31125(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31125,c,av);}
/* library.scm:5621: outstr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30439(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k31133 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31135(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31135,c,av);}
/* library.scm:5622: outstr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30439(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k31142 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31144(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_31144,c,av);}
a=C_alloc(10);
t2=C_i_string_length(((C_word*)t0)[2]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_31153,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=t4,a[6]=((C_word*)t0)[5],a[7]=((C_word)li854),tmp=(C_word)a,a+=8,tmp));
t6=((C_word*)t4)[1];
f_31153(t6,((C_word*)t0)[6],C_fix(0),t2);}

/* doloop6654 in k31142 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void f_31153(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){
C_save_and_reclaim_args((void *)trf_31153,4,t0,t1,t2,t3);}
a=C_alloc(13);
t4=C_eqp(t3,C_fix(0));
if(C_truep(t4)){
/* library.scm:5629: outchr */
t5=((C_word*)((C_word*)t0)[2])[1];
f_30522(t5,t1,((C_word*)t0)[3],C_make_character(34));}
else{
t5=C_i_string_ref(((C_word*)t0)[4],t2);
t6=C_fix(C_character_code(t5));
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31169,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
switch(t6){
case C_fix(34):
/* library.scm:5632: outstr */
t8=((C_word*)((C_word*)t0)[6])[1];
f_30439(t8,t7,((C_word*)t0)[3],lf[1050]);
case C_fix(92):
/* library.scm:5633: outstr */
t8=((C_word*)((C_word*)t0)[6])[1];
f_30439(t8,t7,((C_word*)t0)[3],lf[1051]);
default:
t8=C_fixnum_lessp(t6,C_fix(32));
t9=(C_truep(t8)?t8:C_eqp(t6,C_fix(131071)));
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31207,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=t6,tmp=(C_word)a,a+=7,tmp);
/* library.scm:5637: outchr */
t11=((C_word*)((C_word*)t0)[2])[1];
f_30522(t11,t10,((C_word*)t0)[3],C_make_character(92));}
else{
/* library.scm:5651: outchr */
t10=((C_word*)((C_word*)t0)[2])[1];
f_30522(t10,t7,((C_word*)t0)[3],C_fix_to_char(t6));}}}}

/* k31167 in doloop6654 in k31142 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_31169(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31169,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_31153(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)),C_fixnum_difference(((C_word*)t0)[5],C_fix(1)));}

/* k31205 in doloop6654 in k31142 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_31207(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_31207,c,av);}
a=C_alloc(3);
switch(((C_word*)t0)[6]){
case C_fix(7):
/* library.scm:5639: outchr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30522(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(97));
case C_fix(8):
/* library.scm:5640: outchr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30522(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(98));
case C_fix(9):
/* library.scm:5641: outchr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30522(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(116));
case C_fix(10):
/* library.scm:5642: outchr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30522(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(110));
case C_fix(11):
/* library.scm:5643: outchr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30522(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(118));
case C_fix(12):
/* library.scm:5644: outchr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30522(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(102));
case C_fix(13):
/* library.scm:5645: outchr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30522(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(114));
default:
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31273,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5647: outchr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_30522(t3,t2,((C_word*)t0)[4],C_make_character(120));}}

/* k31271 in k31205 in doloop6654 in k31142 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_31273(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_31273,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31276,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fixnum_lessp(((C_word*)t2)[6],C_fix(16)))){
/* library.scm:5648: outchr */
t4=((C_word*)((C_word*)t2)[2])[1];
f_30522(t4,t3,((C_word*)t2)[4],C_make_character(48));}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_31276(2,av2);}}}

/* k31274 in k31271 in k31205 in doloop6654 in k31142 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_31276(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_31276,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31279,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|4,a[1]=(C_word)f_31286,a[2]=((C_word*)t2)[5],a[3]=t3,a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5649: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[6];
av2[3]=C_fix(16);
tp(4,av2);}}

/* k31277 in k31274 in k31271 in k31205 in doloop6654 in k31142 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_31279(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31279,c,av);}
/* library.scm:5650: outchr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30522(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(59));}

/* k31284 in k31274 in k31271 in k31205 in doloop6654 in k31142 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_31286(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31286,c,av);}
/* library.scm:5649: outstr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30439(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k31328 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31330(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_31330,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31333,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5655: out */
t3=((C_word*)((C_word*)t0)[5])[1];
f_30928(t3,t2,C_slot(((C_word*)t0)[2],C_fix(0)));}

/* k31331 in k31328 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_31333(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_31333,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=C_slot(((C_word*)t2)[2],C_fix(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|7,a[1]=(C_word)f_31342,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=t5,a[7]=((C_word)li855),tmp=(C_word)a,a+=8,tmp));
t7=((C_word*)t5)[1];
f_31342(t7,((C_word*)t2)[7],t3);}

/* doloop6685 in k31331 in k31328 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void f_31342(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_31342,3,t0,t1,t2);}
a=C_alloc(10);
t3=C_i_not(C_blockp(t2));
t4=(C_truep(t3)?t3:C_i_not(C_pairp(t2)));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31355,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t6=C_eqp(t2,C_SCHEME_END_OF_LIST);
if(C_truep(C_i_not(t6))){
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31364,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:5660: outstr */
t8=((C_word*)((C_word*)t0)[5])[1];
f_30439(t8,t7,((C_word*)t0)[3],lf[1052]);}
else{
/* library.scm:5662: outchr */
t7=((C_word*)((C_word*)t0)[2])[1];
f_30522(t7,t1,((C_word*)t0)[3],C_make_character(41));}}
else{
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31374,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* library.scm:5663: outchr */
t6=((C_word*)((C_word*)t0)[2])[1];
f_30522(t6,t5,((C_word*)t0)[3],C_make_character(32));}}

/* k31353 in doloop6685 in k31331 in k31328 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_31355(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31355,c,av);}
/* library.scm:5662: outchr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30522(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(41));}

/* k31362 in doloop6685 in k31331 in k31328 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_31364(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_31364,c,av);}
/* library.scm:5661: out */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30928(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k31372 in doloop6685 in k31331 in k31328 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_31374(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_31374,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31377,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);
/* library.scm:5664: out */
t3=((C_word*)((C_word*)t0)[5])[1];
f_30928(t3,t2,C_slot(((C_word*)t0)[4],C_fix(0)));}

/* k31375 in k31372 in doloop6685 in k31331 in k31328 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_31377(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_31377,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_31342(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k31401 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31403(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_31403,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31410,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5667: ##sys#bytevector->list */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[773]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[773]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k31408 in k31401 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_31410(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_31410,c,av);}
/* library.scm:5667: out */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30928(t2,((C_word*)t0)[3],t1);}

/* k31424 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31426(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31426,c,av);}
/* library.scm:5669: outstr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30439(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k31436 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31438(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_31438,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31441,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31448,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5673: ##sys#lambda-info->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[908]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[908]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k31439 in k31436 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_31441(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31441,c,av);}
/* library.scm:5674: outchr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30522(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(62));}

/* k31446 in k31436 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_31448(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31448,c,av);}
/* library.scm:5673: outstr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30439(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k31455 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31457(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_31457,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31460,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);
/* library.scm:5680: outstr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_30439(t3,t2,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(3)));}

/* k31458 in k31455 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_31460(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31460,c,av);}
/* library.scm:5681: outstr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_30439(t2,((C_word*)t0)[3],((C_word*)t0)[4],lf[1058]);}

/* k31505 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31507(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_31507,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31510,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5688: out */
t3=((C_word*)((C_word*)t0)[5])[1];
f_30928(t3,t2,C_slot(((C_word*)t0)[6],C_fix(0)));}

/* k31508 in k31505 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_31510(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_31510,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=C_fixnum_difference(((C_word*)t2)[2],C_fix(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|7,a[1]=(C_word)f_31519,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=t5,a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word)li856),tmp=(C_word)a,a+=8,tmp));
t7=((C_word*)t5)[1];
f_31519(t7,((C_word*)t2)[7],C_fix(1),t3);}

/* doloop6714 in k31508 in k31505 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void f_31519(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_31519,4,t0,t1,t2,t3);}
a=C_alloc(8);
t4=C_eqp(t3,C_fix(0));
if(C_truep(t4)){
/* library.scm:5692: outchr */
t5=((C_word*)((C_word*)t0)[2])[1];
f_30522(t5,t1,((C_word*)t0)[3],C_make_character(41));}
else{
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_31532,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* library.scm:5693: outchr */
t6=((C_word*)((C_word*)t0)[2])[1];
f_30522(t6,t5,((C_word*)t0)[3],C_make_character(32));}}

/* k31530 in doloop6714 in k31508 in k31505 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_31532(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_31532,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31535,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);
/* library.scm:5694: out */
t3=((C_word*)((C_word*)t0)[6])[1];
f_30928(t3,t2,C_slot(((C_word*)t0)[7],((C_word*)t0)[4]));}

/* k31533 in k31530 in doloop6714 in k31508 in k31505 in out in k30435 in k30432 in k30429 in k30426 in ##sys#print in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_31535(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31535,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_31519(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)),C_fixnum_difference(((C_word*)t0)[5],C_fix(1)));}

/* ##sys#procedure->string in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in ... */
static void C_ccall f_31560(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_31560,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31564,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5701: ##sys#lambda-info */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[907]);
C_word *av2=av;
av2[0]=*((C_word*)lf[907]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k31562 in ##sys#procedure->string in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_31564(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_31564,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31574,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:5703: ##sys#lambda-info->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[908]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[908]+1);
av2[1]=t2;
av2[2]=t1;
tp(3,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[1067];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k31572 in k31562 in ##sys#procedure->string in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_31574(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_31574,c,av);}
/* library.scm:5703: string-append */
t2=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1065];
av2[3]=t1;
av2[4]=lf[1066];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* chicken.base#record-printer in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in ... */
static void C_ccall f_31577(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_31577,c,av);}
t3=C_i_assq(t2,C_fast_retrieve(lf[1068]));
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_i_cdr(t3):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.base#set-record-printer! in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in ... */
static void C_ccall f_31589(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_31589,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31593,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:5715: ##sys#check-closure */
t5=*((C_word*)lf[443]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
av2[3]=lf[1069];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k31591 in chicken.base#set-record-printer! in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_31593(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_31593,c,av);}
a=C_alloc(6);
t2=C_i_assq(((C_word*)t0)[2],C_fast_retrieve(lf[1068]));
if(C_truep(t2)){
t3=C_i_setslot(t2,C_fix(1),((C_word*)t0)[3]);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t4=C_a_i_cons(&a,2,t3,C_fast_retrieve(lf[1068]));
t5=C_mutate((C_word*)lf[1068]+1 /* (set! ##sys#record-printers ...) */,t4);
t6=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in ... */
static void C_ccall f_31615(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(84,c,6)))){
C_save_and_reclaim((void *)f_31615,c,av);}
a=C_alloc(84);
t2=C_mutate((C_word*)lf[257]+1 /* (set! chicken.base#record-printer ...) */,t1);
t3=C_mutate((C_word*)lf[1054]+1 /* (set! ##sys#user-print-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31617,a[2]=((C_word)li869),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[1081]+1 /* (set! ##sys#with-print-length-limit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31769,a[2]=((C_word)li874),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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31854,a[2]=t6,a[3]=((C_word)li875),tmp=(C_word)a,a+=4,tmp);
t8=C_set_block_item(t6,0,t7);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41732,a[2]=((C_word)li876),tmp=(C_word)a,a+=3,tmp);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41754,a[2]=((C_word)li877),tmp=(C_word)a,a+=3,tmp);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41772,a[2]=t6,a[3]=((C_word)li878),tmp=(C_word)a,a+=4,tmp);
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41788,a[2]=t6,a[3]=((C_word)li879),tmp=(C_word)a,a+=4,tmp);
t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41810,a[2]=((C_word)li880),tmp=(C_word)a,a+=3,tmp);
t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41813,a[2]=((C_word)li881),tmp=(C_word)a,a+=3,tmp);
t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41816,a[2]=((C_word)li882),tmp=(C_word)a,a+=3,tmp);
t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41852,a[2]=((C_word)li886),tmp=(C_word)a,a+=3,tmp);
t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41936,a[2]=((C_word)li887),tmp=(C_word)a,a+=3,tmp);
t18=C_a_i_vector(&a,10,t9,t10,t11,t12,*((C_word*)lf[251]+1),t13,t14,t15,t16,t17);
t19=C_mutate((C_word*)lf[323]+1 /* (set! ##sys#string-port-class ...) */,t18);
t20=C_mutate((C_word*)lf[1083]+1 /* (set! ##sys#scan-buffer-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31907,a[2]=((C_word)li897),tmp=(C_word)a,a+=3,tmp));
t21=*((C_word*)lf[328]+1);
t22=*((C_word*)lf[326]+1);
t23=C_mutate((C_word*)lf[1086]+1 /* (set! ##sys#print-to-string ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32184,a[2]=t21,a[3]=t22,a[4]=((C_word)li900),tmp=(C_word)a,a+=5,tmp));
t24=C_mutate((C_word*)lf[1049]+1 /* (set! ##sys#pointer->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32227,a[2]=((C_word)li901),tmp=(C_word)a,a+=3,tmp));
t25=C_mutate((C_word*)lf[242]+1 /* (set! chicken.base#get-call-chain ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32280,a[2]=((C_word)li903),tmp=(C_word)a,a+=3,tmp));
t26=C_mutate((C_word*)lf[1095]+1 /* (set! ##sys#really-print-call-chain ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32434,a[2]=((C_word)li907),tmp=(C_word)a,a+=3,tmp));
t27=C_mutate((C_word*)lf[243]+1 /* (set! chicken.base#print-call-chain ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32539,a[2]=((C_word)li908),tmp=(C_word)a,a+=3,tmp));
t28=C_mutate((C_word*)lf[1103]+1 /* (set! ##sys#user-interrupt-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32630,a[2]=((C_word)li910),tmp=(C_word)a,a+=3,tmp));
t29=lf[1106] /* exit-in-progress */ =C_SCHEME_FALSE;;
t30=C_mutate(&lf[1107] /* (set! cleanup-before-exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32652,a[2]=((C_word)li913),tmp=(C_word)a,a+=3,tmp));
t31=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32755,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t32=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41708,a[2]=((C_word)li1240),tmp=(C_word)a,a+=3,tmp);
/* library.scm:6062: scheme#make-parameter */
t33=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t33;
av2[1]=t31;
av2[2]=t32;
((C_proc)(void*)(*((C_word*)t33+1)))(3,av2);}}

/* ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_31617(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_31617,c,av);}
a=C_alloc(10);
t5=C_slot(t2,C_fix(0));
t6=C_i_assq(t5,C_fast_retrieve(lf[1068]));
t7=C_i_vectorp(t5);
t8=(C_truep(t7)?C_slot(t5,C_fix(0)):t5);
if(C_truep(t6)){
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31633,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31638,a[2]=t4,a[3]=t8,a[4]=t6,a[5]=t2,a[6]=((C_word)li868),tmp=(C_word)a,a+=7,tmp);
/* library.scm:5732: scheme#call-with-current-continuation */
t11=*((C_word*)lf[177]+1);{
C_word *av2=av;
av2[0]=t11;
av2[1]=t9;
av2[2]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31719,a[2]=t1,a[3]=t4,a[4]=t5,a[5]=t2,a[6]=t8,tmp=(C_word)a,a+=7,tmp);
/* library.scm:5744: ##sys#print */
t10=*((C_word*)lf[1027]+1);{
C_word *av2=av;
av2[0]=t10;
av2[1]=t9;
av2[2]=lf[1080];
av2[3]=C_SCHEME_FALSE;
av2[4]=t4;
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}

/* k31631 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_31633(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_31633,c,av);}
/* library.scm:5732: g6759 */
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)C_fast_retrieve_proc(t2))(2,av2);}}

/* a31637 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_31638(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_31638,c,av);}
a=C_alloc(13);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31644,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li863),tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31691,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word)li867),tmp=(C_word)a,a+=7,tmp);
/* library.scm:5732: chicken.condition#with-exception-handler */
t5=C_fast_retrieve(lf[1076]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* a31643 in a31637 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_31644(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_31644,c,av);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31650,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li862),tmp=(C_word)a,a+=6,tmp);
/* library.scm:5732: k6756 */
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a31649 in a31643 in a31637 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_31650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_31650,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31654,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);
/* library.scm:5734: ##sys#print */
t3=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1075];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k31652 in a31649 in a31643 in a31637 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_31654(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_31654,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31657,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);
/* library.scm:5735: ##sys#print */
t3=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k31655 in k31652 in a31649 in a31643 in a31637 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31657(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_31657,c,av);}
a=C_alloc(5);
if(C_truep(C_i_structurep(((C_word*)t0)[2],lf[1071]))){
t2=C_slot(((C_word*)t0)[2],C_fix(2));
t3=C_i_member(lf[1072],t2);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31672,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:5738: ##sys#print */
t5=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[1073];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
/* library.scm:5741: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[1074];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}

/* k31670 in k31655 in k31652 in a31649 in a31643 in a31637 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_31672(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_31672,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31675,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5739: ##sys#print */
t3=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k31673 in k31670 in k31655 in k31652 in a31649 in a31643 in a31637 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_31675(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31675,c,av);}
/* library.scm:5740: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(62);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* a31690 in a31637 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_31691(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_31691,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31697,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li864),tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31706,a[2]=((C_word*)t0)[5],a[3]=((C_word)li866),tmp=(C_word)a,a+=4,tmp);
/* library.scm:5732: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}

/* a31696 in a31690 in a31637 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_31697(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31697,c,av);}
/* library.scm:5732: g6769 */
t2=C_slot(((C_word*)t0)[2],C_fix(1));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}

/* a31705 in a31690 in a31637 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_31706(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_31706,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31712,a[2]=t2,a[3]=((C_word)li865),tmp=(C_word)a,a+=4,tmp);
/* library.scm:5732: k6756 */
t4=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a31711 in a31705 in a31690 in a31637 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_31712(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_31712,c,av);}{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
C_apply_values(3,av2);}}

/* k31717 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_31719(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_31719,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31722,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);
/* library.scm:5745: ##sys#print */
t3=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k31720 in k31717 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_31722(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_31722,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31725,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_eqp(((C_word*)t0)[4],lf[1071]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31734,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5748: ##sys#print */
t5=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[1077];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t4=C_eqp(((C_word*)t0)[4],lf[1078]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31750,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5751: ##sys#print */
t6=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[1079];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
/* library.scm:5753: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(62);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}}}

/* k31723 in k31720 in k31717 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_31725(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31725,c,av);}
/* library.scm:5753: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(62);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k31732 in k31720 in k31717 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_31734(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_31734,c,av);}
/* library.scm:5749: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_slot(((C_word*)t0)[3],C_fix(1));
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k31748 in k31720 in k31717 in ##sys#user-print-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_31750(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_31750,c,av);}
/* library.scm:5752: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_slot(((C_word*)t0)[3],C_fix(6));
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_31769(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_31769,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31775,a[2]=t2,a[3]=t3,a[4]=((C_word)li873),tmp=(C_word)a,a+=5,tmp);
/* library.scm:5758: call-with-current-continuation */
t5=*((C_word*)lf[177]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t1;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_31775(C_word c,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 *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){
C_save_and_reclaim((void *)f_31775,c,av);}
a=C_alloc(27);
t3=C_fast_retrieve(lf[1031]);
t4=C_retrieve2(lf[1032],C_text("##sys#print-exit"));
t5=C_retrieve2(lf[1030],C_text("current-print-length"));
t6=((C_word*)t0)[2];
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=t2;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_fix(0);
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_SCHEME_TRUE;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_31781,a[2]=t7,a[3]=t9,a[4]=t11,a[5]=t13,a[6]=t3,a[7]=((C_word)li870),tmp=(C_word)a,a+=8,tmp);
t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31824,a[2]=((C_word*)t0)[3],a[3]=((C_word)li871),tmp=(C_word)a,a+=4,tmp);
t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31830,a[2]=t7,a[3]=t9,a[4]=t11,a[5]=t3,a[6]=((C_word)li872),tmp=(C_word)a,a+=7,tmp);
/* library.scm:5760: ##sys#dynamic-wind */
t17=*((C_word*)lf[839]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t17;
av2[1]=t1;
av2[2]=t14;
av2[3]=t15;
av2[4]=t16;
((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}}

/* a31780 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_31781(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_31781,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_31785,a[2]=((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_SCHEME_UNDEFINED,a[8]=C_SCHEME_UNDEFINED,a[9]=((C_word*)t0)[6],a[10]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=11,tmp);
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
/* library.scm:5760: ##sys#print-length-limit6789 */
t3=((C_word*)t0)[6];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_31785(2,av2);}}}

/* k31783 in a31780 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_31785(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_31785,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_31788,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
/* library.scm:5760: ##sys#print-exit6790 */
t4=C_retrieve2(lf[1032],C_text("##sys#print-exit"));{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)((C_word*)t0)[3])[1];
f_31788(2,av2);}}}

/* k31786 in k31783 in a31780 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_31788(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_31788,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_31791,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)((C_word*)t2)[5])[1])){
/* library.scm:5760: current-print-length67916792 */
t5=C_retrieve2(lf[1030],C_text("current-print-length"));{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t2)[4])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=((C_word*)((C_word*)t2)[4])[1];
f_31791(2,av2);}}}

/* k31789 in k31786 in k31783 in a31780 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31791(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_31791,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_31795,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5760: ##sys#print-length-limit6789 */
t5=((C_word*)t2)[9];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)C_fast_retrieve_proc(t5))(2,av2);}}

/* k31793 in k31789 in k31786 in k31783 in a31780 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_31795(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_31795,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_31799,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[10],tmp=(C_word)a,a+=10,tmp);
/* library.scm:5760: ##sys#print-exit6790 */
t5=C_retrieve2(lf[1032],C_text("##sys#print-exit"));{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k31797 in k31793 in k31789 in k31786 in k31783 in a31780 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_31799(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_31799,c,av);}
a=C_alloc(9);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_31803,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp);
/* library.scm:5760: current-print-length67916792 */
t4=C_retrieve2(lf[1030],C_text("current-print-length"));{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k31801 in k31797 in k31793 in k31789 in k31786 in k31783 in a31780 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_31803(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_31803,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_31806,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);
/* library.scm:5760: ##sys#print-length-limit6789 */
t4=((C_word*)t0)[7];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t4))(5,av2);}}

/* k31804 in k31801 in k31797 in k31793 in k31789 in k31786 in k31783 in a31780 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_31806(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_31806,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31809,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);
/* library.scm:5760: ##sys#print-exit6790 */
t3=C_retrieve2(lf[1032],C_text("##sys#print-exit"));{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k31807 in k31804 in k31801 in k31797 in k31793 in k31789 in k31786 in k31783 in a31780 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_31809(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_31809,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31812,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5760: current-print-length67916792 */
t3=C_retrieve2(lf[1030],C_text("current-print-length"));{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k31810 in k31807 in k31804 in k31801 in k31797 in k31793 in k31789 in k31786 in k31783 in a31780 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_31812(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_31812,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a31823 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_31824(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_31824,c,av);}
/* library.scm:5763: thunk */
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)C_fast_retrieve_proc(t2))(2,av2);}}

/* a31829 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_31830(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_31830,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_31834,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[4],a[7]=t1,a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp);
/* library.scm:5760: ##sys#print-length-limit6789 */
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* k31832 in a31829 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_31834(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_31834,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_31837,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5760: ##sys#print-exit6790 */
t4=C_retrieve2(lf[1032],C_text("##sys#print-exit"));{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k31835 in k31832 in a31829 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_31837(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_31837,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_31840,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5760: current-print-length67916792 */
t5=C_retrieve2(lf[1030],C_text("current-print-length"));{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k31838 in k31835 in k31832 in a31829 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_31840(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_31840,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_31843,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],tmp=(C_word)a,a+=9,tmp);
/* library.scm:5760: ##sys#print-length-limit6789 */
t4=((C_word*)t2)[8];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t2)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t4))(5,av2);}}

/* k31841 in k31838 in k31835 in k31832 in a31829 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_31843(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_31843,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31846,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5760: ##sys#print-exit6790 */
t3=C_retrieve2(lf[1032],C_text("##sys#print-exit"));{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k31844 in k31841 in k31838 in k31835 in k31832 in a31829 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_31846(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_31846,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31849,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5760: current-print-length67916792 */
t4=C_retrieve2(lf[1030],C_text("current-print-length"));{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t2)[6])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k31847 in k31844 in k31841 in k31838 in k31835 in k31832 in a31829 in a31774 in ##sys#with-print-length-limit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_31849(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_31849,c,av);}
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,((C_word*)t2)[3]);
t4=C_mutate(((C_word *)((C_word*)t2)[4])+1,((C_word*)t2)[5]);
t5=C_mutate(((C_word *)((C_word*)t2)[6])+1,((C_word*)t2)[7]);
t6=((C_word*)t2)[8];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* check6833 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_31854(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_31854,c,av);}
a=C_alloc(9);
t4=C_slot(t2,C_fix(10));
t5=C_slot(t2,C_fix(11));
t6=C_slot(t2,C_fix(12));
t7=C_fixnum_plus(t4,t3);
if(C_truep(C_fixnum_greater_or_equal_p(t7,t5))){
t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_31876,a[2]=t5,a[3]=t6,a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=t1,a[8]=t3,tmp=(C_word)a,a+=9,tmp);
if(C_truep(C_fixnum_greater_or_equal_p(t7,lf[343]))){
/* library.scm:5791: ##sys#error */
t9=*((C_word*)lf[211]+1);{
C_word *av2=av;
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[1082];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}
else{
t9=t8;{
C_word *av2=av;
av2[0]=t9;
av2[1]=C_SCHEME_UNDEFINED;
f_31876(2,av2);}}}
else{
t8=C_SCHEME_UNDEFINED;
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}

/* k31874 in check6833 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_31876(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_31876,c,av);}
a=C_alloc(9);
t2=C_fixnum_plus(((C_word*)t0)[2],((C_word*)t0)[2]);
t3=C_i_fixnum_min(lf[343],t2);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_31882,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
/* library.scm:5793: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t4;
av2[2]=t3;
tp(3,av2);}}

/* k31880 in k31874 in check6833 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_31882(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_31882,c,av);}
t2=C_copy_memory_with_offset(t1,((C_word*)t0)[2],C_fix(0),C_fix(0),((C_word*)t0)[3]);
t3=C_i_setslot(((C_word*)t0)[4],C_fix(12),t1);
t4=C_i_set_i_slot(((C_word*)t0)[4],C_fix(11),((C_word*)t0)[5]);
/* library.scm:5797: check */
t5=((C_word*)((C_word*)t0)[6])[1];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[7];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[8];
((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}

/* ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_31907(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(c<6) C_bad_min_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_31907,c,av);}
a=C_alloc(14);
t6=C_rest_nullp(c,6);
t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,6,av,6,t0));
t8=C_fix(1024);
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|9,a[1]=(C_word)f_31914,a[2]=t9,a[3]=t11,a[4]=t7,a[5]=t5,a[6]=t1,a[7]=t2,a[8]=t4,a[9]=t3,tmp=(C_word)a,a+=10,tmp);
/* library.scm:5876: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t12;
av2[2]=((C_word*)t9)[1];
tp(3,av2);}}

/* k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_31914(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(46,c,6)))){
C_save_and_reclaim((void *)f_31914,c,av);}
a=C_alloc(46);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31916,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li888),tmp=(C_word)a,a+=6,tmp));
t13=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31927,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t5,a[6]=((C_word)li889),tmp=(C_word)a,a+=7,tmp));
t14=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31950,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t5,a[6]=((C_word)li890),tmp=(C_word)a,a+=7,tmp));
t15=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31970,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li891),tmp=(C_word)a,a+=6,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|7,a[1]=(C_word)f_31985,a[2]=((C_word*)t0)[5],a[3]=t17,a[4]=t11,a[5]=t7,a[6]=t9,a[7]=((C_word)li896),tmp=(C_word)a,a+=8,tmp));
t19=((C_word*)t17)[1];
f_31985(t19,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* grow in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_31916(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_31916,2,t0,t1);}
a=C_alloc(7);
t2=C_fixnum_times(((C_word*)((C_word*)t0)[2])[1],C_fix(2));
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31923,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* library.scm:5879: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k31921 in grow in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_31923(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_31923,c,av);}
t2=C_copy_memory(t1,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t4=C_set_block_item(((C_word*)t0)[4],0,((C_word*)t0)[5]);
t5=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* conc in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_31927(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_31927,5,t0,t1,t2,t3,t4);}
a=C_alloc(8);
t5=C_fixnum_difference(t4,t3);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_31934,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t5,a[7]=t1,tmp=(C_word)a,a+=8,tmp);
t7=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],t5);
if(C_truep(C_fixnum_greater_or_equal_p(t7,((C_word*)((C_word*)t0)[4])[1]))){
/* library.scm:5885: grow */
t8=((C_word*)((C_word*)t0)[5])[1];
f_31916(t8,t6);}
else{
t8=t6;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
f_31934(2,av2);}}}

/* k31932 in conc in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_31934(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_31934,c,av);}
t2=C_copy_memory_with_offset(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],((C_word*)t0)[6]);
t3=C_fixnum_plus(((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[6]);
t4=C_set_block_item(((C_word*)t0)[4],0,t3);
t5=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* conc1 in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_31950(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_31950,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31954,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
t4=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],C_fix(1));
if(C_truep(C_fixnum_greater_or_equal_p(t4,((C_word*)((C_word*)t0)[4])[1]))){
/* library.scm:5889: grow */
t5=((C_word*)((C_word*)t0)[5])[1];
f_31916(t5,t3);}
else{
t5=t3;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_31954(2,av2);}}}

/* k31952 in conc1 in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_31954(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_31954,c,av);}
t2=C_setsubbyte(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4]);
t3=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],C_fix(1));
t4=C_set_block_item(((C_word*)t0)[3],0,t3);
t5=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* getline in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_31970(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_31970,2,t0,t1);}
if(C_truep(((C_word*)t0)[2])){
/* library.scm:5894: ##sys#buffer->string/encoding */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[470]+1));
C_word av2[6];
av2[0]=*((C_word*)lf[470]+1);
av2[1]=t1;
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=C_fix(0);
av2[4]=((C_word*)((C_word*)t0)[4])[1];
av2[5]=((C_word*)t0)[2];
tp(6,av2);}}
else{
/* library.scm:5895: ##sys#buffer->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[331]+1));
C_word av2[5];
av2[0]=*((C_word*)lf[331]+1);
av2[1]=t1;
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=C_fix(0);
av2[4]=((C_word*)((C_word*)t0)[4])[1];
tp(5,av2);}}}

/* loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_31985(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,4)))){
C_save_and_reclaim_args((void *)trf_31985,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(13);
t6=C_eqp(t4,t5);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31995,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* library.scm:5901: conc */
t8=((C_word*)((C_word*)t0)[5])[1];
f_31927(t8,t7,t2,t3,t4);}
else{
t7=C_subbyte(t2,t4);
t8=C_eqp(t7,C_fix(10));
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32029,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5909: conc */
t10=((C_word*)((C_word*)t0)[5])[1];
f_31927(t10,t9,t2,t3,t4);}
else{
t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_32046,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=t3,a[8]=t7,a[9]=t5,a[10]=((C_word*)t0)[2],a[11]=((C_word*)t0)[3],a[12]=((C_word*)t0)[6],tmp=(C_word)a,a+=13,tmp);
t10=C_eqp(t7,C_fix(13));
if(C_truep(t10)){
t11=C_fixnum_plus(t4,C_fix(1));
if(C_truep(C_fixnum_greaterp(t5,t11))){
t12=C_fixnum_plus(t4,C_fix(1));
t13=t9;
f_32046(t13,C_eqp(C_subbyte(t2,t12),C_fix(10)));}
else{
t12=t9;
f_32046(t12,C_SCHEME_FALSE);}}
else{
t11=t9;
f_32046(t11,C_SCHEME_FALSE);}}}}

/* k31993 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_31995(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
C_save_and_reclaim((void *)f_31995,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32000,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li892),tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32006,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word)li893),tmp=(C_word)a,a+=5,tmp);
/* library.scm:5902: ##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)[6];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}

/* a31999 in k31993 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_32000(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_32000,c,av);}
/* library.scm:5902: eos-handler */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* a32005 in k31993 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_32006(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_32006,c,av);}
a=C_alloc(4);
if(C_truep(t2)){
/* library.scm:5904: loop */
t5=((C_word*)((C_word*)t0)[2])[1];
f_31985(t5,t1,t2,t3,t3,t4);}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32020,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* library.scm:5905: getline */
t6=((C_word*)((C_word*)t0)[3])[1];
f_31970(t6,t5);}}

/* k32018 in a32005 in k31993 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_32020(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_32020,c,av);}
/* library.scm:5905: scheme#values */{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=C_SCHEME_FALSE;
C_values(5,av2);}}

/* k32027 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_32029(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_32029,c,av);}
a=C_alloc(4);
t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1));
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32040,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:5910: getline */
t4=((C_word*)((C_word*)t0)[4])[1];
f_31970(t4,t3);}

/* k32038 in k32027 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_32040(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_32040,c,av);}
/* library.scm:5910: scheme#values */{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=C_SCHEME_TRUE;
C_values(5,av2);}}

/* k32044 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_32046(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){
C_save_and_reclaim_args((void *)trf_32046,2,t0,t1);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32049,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);
/* library.scm:5914: conc */
t3=((C_word*)((C_word*)t0)[5])[1];
f_31927(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[2]);}
else{
t2=C_eqp(((C_word*)t0)[8],C_fix(13));
t3=(C_truep(t2)?C_eqp(((C_word*)t0)[9],C_fixnum_plus(((C_word*)t0)[2],C_fix(1))):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_32069,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
/* library.scm:5918: conc */
t5=((C_word*)((C_word*)t0)[5])[1];
f_31927(t5,t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[2]);}
else{
t4=C_eqp(((C_word*)t0)[8],C_fix(13));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32127,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);
/* library.scm:5932: conc */
t6=((C_word*)((C_word*)t0)[5])[1];
f_31927(t6,t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[2]);}
else{
/* library.scm:5934: loop */
t5=((C_word*)((C_word*)t0)[11])[1];
f_31985(t5,((C_word*)t0)[3],((C_word*)t0)[6],((C_word*)t0)[7],C_fixnum_plus(((C_word*)t0)[2],C_fix(1)),((C_word*)t0)[9]);}}}}

/* k32047 in k32044 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_32049(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_32049,c,av);}
a=C_alloc(4);
t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(2));
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32060,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:5915: getline */
t4=((C_word*)((C_word*)t0)[4])[1];
f_31970(t4,t3);}

/* k32058 in k32047 in k32044 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_32060(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_32060,c,av);}
/* library.scm:5915: scheme#values */{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=C_SCHEME_TRUE;
C_values(5,av2);}}

/* k32067 in k32044 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_32069(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
C_save_and_reclaim((void *)f_32069,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32074,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li894),tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_32080,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li895),tmp=(C_word)a,a+=6,tmp);
/* library.scm:5919: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[7];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}

/* a32073 in k32067 in k32044 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_32074(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_32074,c,av);}
/* library.scm:5919: eos-handler */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* a32079 in k32067 in k32044 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_32080(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_32080,c,av);}
a=C_alloc(7);
if(C_truep(t2)){
t5=C_eqp(C_subbyte(t2,t3),C_fix(10));
if(C_truep(t5)){
t6=C_fixnum_plus(t3,C_fix(1));
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32101,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
/* library.scm:5922: getline */
t8=((C_word*)((C_word*)t0)[2])[1];
f_31970(t8,t7);}
else{
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_32104,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
/* library.scm:5925: conc1 */
t7=((C_word*)((C_word*)t0)[4])[1];
f_31950(t7,t6,C_fix(13));}}
else{
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32111,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* library.scm:5929: conc1 */
t6=((C_word*)((C_word*)t0)[4])[1];
f_31950(t6,t5,C_fix(13));}}

/* k32099 in a32079 in k32067 in k32044 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_32101(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_32101,c,av);}
/* library.scm:5922: scheme#values */{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=C_SCHEME_TRUE;
C_values(5,av2);}}

/* k32102 in a32079 in k32067 in k32044 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_32104(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_32104,c,av);}
/* library.scm:5926: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_31985(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[5],((C_word*)t0)[6]);}

/* k32109 in a32079 in k32067 in k32044 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_32111(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_32111,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32118,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:5930: getline */
t3=((C_word*)((C_word*)t0)[4])[1];
f_31970(t3,t2);}

/* k32116 in k32109 in a32079 in k32067 in k32044 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_32118(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_32118,c,av);}
/* library.scm:5930: scheme#values */{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=C_SCHEME_TRUE;
C_values(5,av2);}}

/* k32125 in k32044 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_32127(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_32127,c,av);}
a=C_alloc(4);
t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1));
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32138,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:5933: getline */
t4=((C_word*)((C_word*)t0)[4])[1];
f_31970(t4,t3);}

/* k32136 in k32125 in k32044 in loop in k31912 in ##sys#scan-buffer-line in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_32138(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_32138,c,av);}
/* library.scm:5933: scheme#values */{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=C_SCHEME_TRUE;
C_values(5,av2);}}

/* ##sys#print-to-string in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_32184(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_32184,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32188,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:5940: open-output-string */
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k32186 in ##sys#print-to-string in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_32188(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_32188,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32189,a[2]=t1,a[3]=((C_word)li898),tmp=(C_word)a,a+=4,tmp);
t3=C_i_check_list_2(((C_word*)t0)[2],lf[835]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32199,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32204,a[2]=t6,a[3]=t2,a[4]=((C_word)li899),tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_32204(t8,t4,((C_word*)t0)[2]);}

/* g6986 in k32186 in ##sys#print-to-string in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_32189(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_32189,3,t0,t1,t2);}
/* library.scm:5941: ##sys#print */
t3=*((C_word*)lf[1027]+1);{
C_word av2[5];
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k32197 in k32186 in ##sys#print-to-string in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_32199(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_32199,c,av);}
/* library.scm:5942: get-output-string */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* for-each-loop6985 in k32186 in ##sys#print-to-string in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_32204(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_32204,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_32214,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:5941: g6986 */
t4=((C_word*)t0)[3];
f_32189(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);}}}

/* k32212 in for-each-loop6985 in k32186 in ##sys#print-to-string in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_32214(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_32214,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_32204(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* ##sys#pointer->string in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_32227(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_32227,c,av);}
a=C_alloc(7);
if(C_truep(C_taggedpointerp(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32238,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=C_slot(t2,C_fix(1));
if(C_truep(C_i_pairp(t4))){
t5=C_u_i_car(t4);
t6=C_a_i_list1(&a,1,t5);
/* library.scm:5950: ##sys#print-to-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1086]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1086]+1);
av2[1]=t3;
av2[2]=t6;
tp(3,av2);}}
else{
t5=C_a_i_list1(&a,1,t4);
/* library.scm:5950: ##sys#print-to-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1086]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1086]+1);
av2[1]=t3;
av2[2]=t5;
tp(3,av2);}}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32268,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32272,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5956: ##sys#pointer->address */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1090]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1090]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}}

/* k32236 in ##sys#pointer->string in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_32238(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_32238,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32242,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32246,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5954: ##sys#pointer->address */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1090]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[1090]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k32240 in k32236 in ##sys#pointer->string in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_32242(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_32242,c,av);}
/* library.scm:5948: string-append */
t2=*((C_word*)lf[517]+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[1087];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[1088];
av2[5]=t1;
av2[6]=lf[1089];
((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}

/* k32244 in k32236 in ##sys#pointer->string in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_32246(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_32246,c,av);}
/* library.scm:5954: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_fix(16);
tp(4,av2);}}

/* k32266 in ##sys#pointer->string in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_32268(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_32268,c,av);}
/* library.scm:5956: string-append */
t2=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1091];
av2[3]=t1;
av2[4]=lf[1092];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k32270 in ##sys#pointer->string in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_32272(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_32272,c,av);}
/* library.scm:5956: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_fix(16);
tp(4,av2);}}

/* chicken.base#get-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_32280(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_32280,c,av);}
a=C_alloc(6);
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?C_fix(0):C_get_rest_arg(c,2,av,2,t0));
t4=C_rest_nullp(c,2);
t5=C_rest_nullp(c,3);
t6=(C_truep(t5)?C_fast_retrieve(lf[1093]):C_get_rest_arg(c,3,av,2,t0));
t7=C_rest_nullp(c,3);
t8=C_fix((C_word)C_trace_buffer_size);
t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_32296,a[2]=t3,a[3]=t8,a[4]=t6,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* library.scm:5970: ##sys#make-vector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[808]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[808]+1);
av2[1]=t9;
av2[2]=C_fixnum_times(C_fix(5),t8);
av2[3]=C_SCHEME_FALSE;
tp(4,av2);}}

/* k32294 in chicken.base#get-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_32296(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_32296,c,av);}
a=C_alloc(10);
t2=C_fetch_trace(((C_word*)t0)[2],t1);
t3=C_fixnump(t2);
t4=(C_truep(t3)?t2:C_fixnum_times(C_fix(5),((C_word*)t0)[3]));
t5=(C_truep(((C_word*)t0)[4])?C_slot(((C_word*)t0)[4],C_fix(14)):C_SCHEME_FALSE);
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_32307,a[2]=t4,a[3]=t1,a[4]=t7,a[5]=((C_word*)t0)[4],a[6]=t5,a[7]=((C_word)li902),tmp=(C_word)a,a+=8,tmp));
t9=((C_word*)t7)[1];
f_32307(t9,((C_word*)t0)[5],C_fix(0));}

/* loop in k32294 in chicken.base#get-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_32307(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_32307,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_fixnum_plus(t2,C_fix(4));
t4=C_slot(((C_word*)t0)[3],t3);
t5=C_i_not(t4);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_32326,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(t5)){
t7=t6;
f_32326(t7,t5);}
else{
t7=C_i_not(((C_word*)t0)[5]);
t8=t6;
f_32326(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[6],t4)));}}}

/* k32324 in loop in k32294 in chicken.base#get-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_32326(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_32326,2,t0,t1);}
a=C_alloc(8);
if(C_truep(t1)){
t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1));
t3=C_slot(((C_word*)t0)[3],t2);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32348,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=t3;
f_32348(2,av2);}}
else{
t5=C_slot(((C_word*)t0)[3],((C_word*)t0)[2]);
t6=C_a_i_bytevector(&a,1,C_fix(3));
/* library.scm:5965: ##sys#peek-nonnull-c-string */
t7=*((C_word*)lf[1094]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=t4;
av2[2]=stub7008(t6,t5);
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}
else{
/* library.scm:5985: loop */
t2=((C_word*)((C_word*)t0)[5])[1];
f_32307(t2,((C_word*)t0)[4],C_fixnum_plus(((C_word*)t0)[2],C_fix(5)));}}

/* k32335 in k32346 in k32324 in loop in k32294 in chicken.base#get-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_32337(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_32337,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);}}

/* k32346 in k32324 in loop in k32294 in chicken.base#get-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_32348(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_32348,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=C_fixnum_plus(((C_word*)t2)[2],C_fix(2));
t4=C_slot(((C_word*)t2)[3],t3);
t5=C_fixnum_plus(((C_word*)t2)[2],C_fix(3));
t6=C_slot(((C_word*)t2)[3],t5);
t7=C_a_i_vector3(&a,3,t1,t4,t6);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32337,a[2]=((C_word*)t2)[4],a[3]=t7,tmp=(C_word)a,a+=4,tmp);
/* library.scm:5984: loop */
t9=((C_word*)((C_word*)t2)[5])[1];
f_32307(t9,t8,C_fixnum_plus(((C_word*)t2)[2],C_fix(5)));}

/* ##sys#really-print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_32434(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_32434,c,av);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t3))){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32444,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:5989: ##sys#print */
t6=*((C_word*)lf[1027]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t4;
av2[3]=C_SCHEME_FALSE;
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t5=C_SCHEME_UNDEFINED;
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k32442 in ##sys#really-print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_32444(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
C_save_and_reclaim((void *)f_32444,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_32445,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=C_SCHEME_UNDEFINED,a[5]=C_SCHEME_UNDEFINED,a[6]=C_SCHEME_UNDEFINED,a[7]=C_SCHEME_UNDEFINED,a[8]=((C_word)li905),tmp=(C_word)a,a+=9,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32511,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32516,a[2]=t5,a[3]=t2,a[4]=((C_word)li906),tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_32516(t7,t3,((C_word*)t0)[4]);}

/* g7055 in k32442 in ##sys#really-print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_32445(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
C_save_and_reclaim_args((void *)trf_32445,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+7,t2);
t4=C_mutate(((C_word *)t0)+4,t1);
t5=C_slot(((C_word*)t0)[7],C_fix(1));
t6=C_mutate(((C_word *)t0)+2,t5);
t7=C_slot(((C_word*)t0)[7],C_fix(2));
t8=C_mutate(((C_word *)t0)+6,t7);
t9=C_i_structurep(((C_word*)t0)[6],lf[1096]);
t10=C_mutate(((C_word *)t0)+5,t9);
t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32458,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5995: ##sys#print */
t12=*((C_word*)lf[1027]+1);{
C_word av2[5];
av2[0]=t12;
av2[1]=t11;
av2[2]=lf[1099];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}

/* k32456 in g7055 in k32442 in ##sys#really-print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_32458(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_32458,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_32461,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);
/* library.scm:5996: ##sys#print */
t4=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(((C_word*)t2)[7],C_fix(0));
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k32459 in k32456 in g7055 in k32442 in ##sys#really-print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_32461(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_32461,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32464,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5997: ##sys#print */
t3=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1098];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k32462 in k32459 in k32456 in g7055 in k32442 in ##sys#really-print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_32464(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_32464,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32467,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|5,a[1]=(C_word)f_32482,a[2]=t3,a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)t2)[6])){
if(C_truep(((C_word*)t2)[5])){
t5=t4;
f_32482(t5,C_slot(((C_word*)t2)[6],C_fix(1)));}
else{
t5=C_SCHEME_UNDEFINED;
t6=t4;
f_32482(t6,t5);}}
else{
t5=t4;
f_32482(t5,C_SCHEME_FALSE);}}

/* k32465 in k32462 in k32459 in k32456 in g7055 in k32442 in ##sys#really-print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_32467(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_32467,c,av);}
a=C_alloc(5);
if(C_truep(((C_word*)t0)[2])){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32475,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li904),tmp=(C_word)a,a+=5,tmp);
/* library.scm:6007: ##sys#with-print-length-limit */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1081]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1081]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=C_fix(100);
av2[3]=t2;
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);}}}

/* a32474 in k32465 in k32462 in k32459 in k32456 in g7055 in k32442 in ##sys#really-print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_32475(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_32475,c,av);}
/* library.scm:6010: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k32480 in k32462 in k32459 in k32456 in g7055 in k32442 in ##sys#really-print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void f_32482(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_32482,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32485,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:5999: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word av2[4];
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=t2;
av2[2]=C_make_character(91);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_32467(2,av2);}}}

/* k32483 in k32480 in k32462 in k32459 in k32456 in g7055 in k32442 in ##sys#really-print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_32485(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_32485,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32488,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t2)[4])){
/* library.scm:6000: ##sys#print */
t4=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(((C_word*)t2)[5],C_fix(1));
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
/* library.scm:6000: ##sys#print */
t4=*((C_word*)lf[1027]+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);}}}

/* k32486 in k32483 in k32480 in k32462 in k32459 in k32456 in g7055 in k32442 in ##sys#really-print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_32488(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_32488,c,av);}
/* library.scm:6005: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1097];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k32509 in k32442 in ##sys#really-print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_32511(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_32511,c,av);}
/* library.scm:6012: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1100];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* for-each-loop7054 in k32442 in ##sys#really-print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_32516(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_32516,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_32526,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:5990: g7055 */
t4=((C_word*)t0)[3];
f_32445(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);}}}

/* k32524 in for-each-loop7054 in k32442 in ##sys#really-print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_32526(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_32526,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_32516(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.base#print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_32539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_32539,c,av);}
a=C_alloc(5);
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?*((C_word*)lf[854]+1):C_get_rest_arg(c,2,av,2,t0));
t4=C_rest_nullp(c,2);
t5=C_rest_nullp(c,3);
t6=(C_truep(t5)?C_fix(0):C_get_rest_arg(c,3,av,2,t0));
t7=C_rest_nullp(c,3);
t8=C_rest_nullp(c,4);
t9=(C_truep(t8)?C_fast_retrieve(lf[1093]):C_get_rest_arg(c,4,av,2,t0));
t10=C_rest_nullp(c,4);
t11=C_rest_nullp(c,5);
t12=(C_truep(t11)?lf[1101]:C_get_rest_arg(c,5,av,2,t0));
t13=C_rest_nullp(c,5);
t14=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[1102]);
t15=C_i_check_fixnum_2(t6,lf[1102]);
t16=C_i_check_string_2(t12,lf[1102]);
t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32580,a[2]=t1,a[3]=t3,a[4]=t12,tmp=(C_word)a,a+=5,tmp);
/* library.scm:6021: chicken.base#get-call-chain */
t18=*((C_word*)lf[242]+1);{
C_word av2[4];
av2[0]=t18;
av2[1]=t17;
av2[2]=t6;
av2[3]=t9;
((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}}

/* k32578 in chicken.base#print-call-chain in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_32580(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_32580,c,av);}
/* library.scm:6021: ##sys#really-print-call-chain */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1095]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[1095]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}

/* ##sys#user-interrupt-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_32630(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_32630,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32633,a[2]=((C_word)li909),tmp=(C_word)a,a+=3,tmp);
t3=C_eqp(C_fast_retrieve(lf[1093]),C_fast_retrieve(lf[1105]));
if(C_truep(t3)){
/* library.scm:6027: ##sys#signal-hook */
t4=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=lf[1104];
av2[3]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_setslot(C_fast_retrieve(lf[1105]),C_fix(1),t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* break in ##sys#user-interrupt-hook in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_32633(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_32633,c,av);}
/* library.scm:6027: ##sys#signal-hook */
t2=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=lf[1104];
av2[3]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* cleanup-before-exit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void f_32652(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
C_save_and_reclaim_args((void *)trf_32652,1,t1);}
a=C_alloc(6);
t2=lf[1106] /* exit-in-progress */ =C_SCHEME_TRUE;;
t3=C_flush_all_files(C_SCHEME_FALSE);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32657,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_dump_heap_on_exitp())){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32748,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6043: ##sys#print */
t6=*((C_word*)lf[1027]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[1114];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_32657(2,av2);}}}

/* k32655 in cleanup-before-exit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_32657(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_32657,c,av);}
a=C_alloc(9);
t2=(C_truep(C_i_profilingp())?C_i_dump_statistical_profile():C_SCHEME_UNDEFINED);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32663,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_32700,a[2]=t5,a[3]=((C_word)li912),tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_32700(t7,t3);}

/* k32661 in k32655 in cleanup-before-exit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_32663(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_32663,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32666,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_slot(C_fast_retrieve(lf[1111]),C_fix(0));
if(C_truep(C_fixnum_greaterp(t3,C_fix(0)))){
/* library.scm:6054: ##sys#run-pending-finalizers */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1112]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[1112]+1);
av2[1]=t2;
av2[2]=C_SCHEME_FALSE;
tp(3,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_32666(2,av2);}}}

/* k32664 in k32661 in k32655 in cleanup-before-exit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_32666(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_32666,c,av);}
a=C_alloc(3);
if(C_truep(C_fixnum_greaterp(C_i_live_finalizer_count(),C_fix(0)))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32675,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_debug_modep())){
/* library.scm:6057: ##sys#print */
t3=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1110];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_32675(2,av2);}}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k32673 in k32664 in k32661 in k32655 in cleanup-before-exit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_32675(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_32675,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32681,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:6058: chicken.gc#force-finalizers */
t3=C_fast_retrieve(lf[1109]);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k32679 in k32673 in k32664 in k32661 in k32655 in cleanup-before-exit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_32681(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_32681,c,av);}
if(C_truep(t1)){
/* library.scm:6059: ##sys#force-finalizers */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1108]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1108]+1);
av2[1]=((C_word*)t0)[2];
tp(2,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* loop in k32655 in cleanup-before-exit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void f_32700(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_32700,2,t0,t1);}
a=C_alloc(10);
t2=*((C_word*)lf[273]+1);
t3=C_set_block_item(lf[273] /* chicken.base#cleanup-tasks */,0,C_SCHEME_END_OF_LIST);
if(C_truep(C_i_nullp(t2))){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=C_i_check_list_2(t2,lf[835]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32719,a[2]=((C_word*)t0)[2],a[3]=t1,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_32724,a[2]=t7,a[3]=((C_word)li911),tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_32724(t9,t5,t2);}}

/* k32717 in loop in k32655 in cleanup-before-exit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_32719(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_32719,c,av);}
/* library.scm:6052: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_32700(t2,((C_word*)t0)[3]);}

/* for-each-loop7114 in loop in k32655 in cleanup-before-exit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void f_32724(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_32724,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_32734,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:6051: t */
t4=C_slot(t2,C_fix(0));{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)C_fast_retrieve_proc(t4))(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);}}}

/* k32732 in for-each-loop7114 in loop in k32655 in cleanup-before-exit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_32734(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_32734,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_32724(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k32746 in cleanup-before-exit in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_32748(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_32748,c,av);}
/* library.scm:6044: ##sys#dump-heap-state */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1113]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1113]+1);
av2[1]=((C_word*)t0)[2];
tp(2,av2);}}

/* k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_32755(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_32755,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[272]+1 /* (set! chicken.base#exit-handler ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32759,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41702,a[2]=((C_word)li1239),tmp=(C_word)a,a+=3,tmp);
/* library.scm:6072: scheme#make-parameter */
t5=*((C_word*)lf[85]+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);}}

/* k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_32759(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_32759,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[271]+1 /* (set! chicken.base#implicit-exit-handler ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32763,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41693,a[2]=((C_word)li1238),tmp=(C_word)a,a+=3,tmp);
/* library.scm:6077: scheme#make-parameter */
t5=*((C_word*)lf[85]+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);}}

/* k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_32763(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,5)))){
C_save_and_reclaim((void *)f_32763,c,av);}
a=C_alloc(29);
t2=C_mutate((C_word*)lf[1115]+1 /* (set! ##sys#reset-handler ...) */,t1);
t3=C_mutate((C_word*)lf[1116]+1 /* (set! ##sys#dbg-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32765,a[2]=((C_word)li914),tmp=(C_word)a,a+=3,tmp));
t4=C_a_i_provide(&a,1,lf[1117]);
t5=C_mutate((C_word*)lf[388]+1 /* (set! ##sys#signal-hook/errno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32768,a[2]=((C_word)li917),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[127]+1 /* (set! ##sys#signal-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33062,a[2]=((C_word)li918),tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[1119]+1 /* (set! chicken.condition#abort ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33077,a[2]=((C_word)li919),tmp=(C_word)a,a+=3,tmp));
t8=C_mutate((C_word*)lf[1157]+1 /* (set! chicken.condition#signal ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33094,a[2]=((C_word)li920),tmp=(C_word)a,a+=3,tmp));
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33102,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41551,a[2]=((C_word)li1237),tmp=(C_word)a,a+=3,tmp);
/* library.scm:6186: scheme#make-parameter */
t11=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t11;
av2[1]=t9;
av2[2]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}

/* ##sys#dbg-hook in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_32765(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_32765,c,av);}
t2=C_dbg_hook(C_SCHEME_FALSE);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#signal-hook/errno in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_32768(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c<5) C_bad_min_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +13,c,4)))){
C_save_and_reclaim((void*)f_32768,c,av);}
a=C_alloc((c-5)*C_SIZEOF_PAIR+13);
t5=C_build_rest(&a,c,5,av);
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t7=C_dbg_hook(C_SCHEME_FALSE);
t8=signal_debug_event(t2,((C_word*)t6)[1],t5);
t9=C_eqp(t2,lf[1104]);
if(C_truep(t9)){
t10=C_a_i_record3(&a,3,lf[1071],lf[1118],C_SCHEME_END_OF_LIST);
/* library.scm:6110: abort */
t11=C_fast_retrieve(lf[1119]);{
C_word *av2=av;
av2[0]=t11;
av2[1]=t1;
av2[2]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t10=C_eqp(t2,lf[381]);
t11=(C_truep(t10)?t10:C_eqp(t2,lf[383]));
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32794,a[2]=t1,a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
t13=C_eqp(t2,lf[381]);
if(C_truep(t13)){
/* library.scm:6116: ##sys#print */
t14=*((C_word*)lf[1027]+1);{
C_word *av2=av;
av2[0]=t14;
av2[1]=t12;
av2[2]=lf[1121];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}
else{
/* library.scm:6116: ##sys#print */
t14=*((C_word*)lf[1027]+1);{
C_word *av2=av;
av2[0]=t14;
av2[1]=t12;
av2[2]=lf[1122];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}}
else{
t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_32870,a[2]=t6,a[3]=t5,a[4]=t3,a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
t13=C_i_symbolp(((C_word*)t6)[1]);
t14=(C_truep(t13)?C_i_nullp(t5):C_SCHEME_FALSE);
if(C_truep(t14)){
t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33045,a[2]=t6,a[3]=t12,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6134: scheme#symbol->string */
t16=*((C_word*)lf[750]+1);{
C_word *av2=av;
av2[0]=t16;
av2[1]=t15;
av2[2]=((C_word*)t6)[1];
((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}
else{
t15=t12;
f_32870(t15,C_SCHEME_UNDEFINED);}}}}

/* k32792 in ##sys#signal-hook/errno in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_32794(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_32794,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32797,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:6119: ##sys#print */
t3=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k32795 in k32792 in ##sys#signal-hook/errno in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_32797(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_32797,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32800,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=C_i_nullp(((C_word*)t0)[3]);
t4=(C_truep(t3)?t3:C_fixnum_greaterp(C_u_i_length(((C_word*)t0)[3]),C_fix(1)));
if(C_truep(t4)){
/* library.scm:6121: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=t2;
av2[2]=C_make_character(10);
av2[3]=*((C_word*)lf[855]+1);
tp(4,av2);}}
else{
/* library.scm:6122: ##sys#print */
t5=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=lf[1120];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}

/* k32798 in k32795 in k32792 in ##sys#signal-hook/errno in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_32800(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_32800,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32817,a[2]=((C_word*)t2)[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_32822,a[2]=t5,a[3]=((C_word)li916),tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_32822(t7,t3,((C_word*)t2)[3]);}

/* a32806 in for-each-loop7194 in k32798 in k32795 in k32792 in ##sys#signal-hook/errno in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_32807(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_32807,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32811,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6128: ##sys#print */
t3=*((C_word*)lf[1027]+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)[2];
av2[3]=C_SCHEME_TRUE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k32809 in a32806 in for-each-loop7194 in k32798 in k32795 in k32792 in ##sys#signal-hook/errno in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_32811(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_32811,c,av);}
/* library.scm:6129: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(10);
av2[3]=*((C_word*)lf[855]+1);
tp(4,av2);}}

/* k32815 in k32798 in k32795 in k32792 in ##sys#signal-hook/errno in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_32817(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_32817,c,av);}
/* library.scm:6131: ##sys#flush-output */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[900]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[900]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[855]+1);
tp(3,av2);}}

/* for-each-loop7194 in k32798 in k32795 in k32792 in ##sys#signal-hook/errno in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void f_32822(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_32822,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32832,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32807,a[2]=t4,a[3]=((C_word)li915),tmp=(C_word)a,a+=4,tmp);
/* library.scm:6125: ##sys#with-print-length-limit */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1081]);
C_word av2[4];
av2[0]=*((C_word*)lf[1081]+1);
av2[1]=t3;
av2[2]=C_fix(400);
av2[3]=t5;
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);}}}

/* k32830 in for-each-loop7194 in k32798 in k32795 in k32792 in ##sys#signal-hook/errno in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_32832(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_32832,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_32822(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k32868 in ##sys#signal-hook/errno in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_32870(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_32870,2,t0,t1);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32873,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=C_i_not(((C_word*)((C_word*)t0)[2])[1]);
if(C_truep(t3)){
t4=t2;
f_32873(t4,(C_truep(t3)?C_i_pairp(((C_word*)t0)[3]):C_SCHEME_FALSE));}
else{
t4=C_i_symbolp(((C_word*)((C_word*)t0)[2])[1]);
t5=t2;
f_32873(t5,(C_truep(t4)?C_i_pairp(((C_word*)t0)[3]):C_SCHEME_FALSE));}}

/* k32871 in k32868 in ##sys#signal-hook/errno in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void f_32873(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_32873,2,t0,t1);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(C_truep(t1)?((C_word*)((C_word*)t2)[2])[1]:C_SCHEME_FALSE);
t4=(C_truep(t1)?C_slot(((C_word*)t2)[3],C_fix(0)):((C_word*)((C_word*)t2)[2])[1]);
t5=(C_truep(t1)?C_slot(((C_word*)t2)[3],C_fix(1)):((C_word*)t2)[3]);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_32893,a[2]=t4,a[3]=t5,a[4]=t3,a[5]=((C_word*)t2)[4],a[6]=C_SCHEME_UNDEFINED,a[7]=((C_word*)t2)[5],tmp=(C_word)a,a+=8,tmp);
t7=C_eqp(((C_word*)t2)[6],lf[309]);
if(C_truep(t7)){
t8=t6;
f_32893(t8,lf[1128]);}
else{
t8=C_eqp(((C_word*)t2)[6],lf[936]);
if(C_truep(t8)){
t9=t6;
f_32893(t9,lf[1129]);}
else{
t9=C_eqp(((C_word*)t2)[6],lf[481]);
if(C_truep(t9)){
t10=t6;
f_32893(t10,lf[1130]);}
else{
t10=C_eqp(((C_word*)t2)[6],lf[671]);
if(C_truep(t10)){
t11=t6;
f_32893(t11,lf[1131]);}
else{
t11=C_eqp(((C_word*)t2)[6],lf[476]);
if(C_truep(t11)){
t12=t6;
f_32893(t12,lf[1132]);}
else{
t12=C_eqp(((C_word*)t2)[6],lf[1133]);
if(C_truep(t12)){
t13=t6;
f_32893(t13,lf[1134]);}
else{
t13=C_eqp(((C_word*)t2)[6],lf[1135]);
if(C_truep(t13)){
t14=t6;
f_32893(t14,lf[1136]);}
else{
t14=C_eqp(((C_word*)t2)[6],lf[1137]);
if(C_truep(t14)){
t15=t6;
f_32893(t15,lf[1138]);}
else{
t15=C_eqp(((C_word*)t2)[6],lf[1139]);
if(C_truep(t15)){
t16=t6;
f_32893(t16,lf[1140]);}
else{
t16=C_eqp(((C_word*)t2)[6],lf[1141]);
if(C_truep(t16)){
t17=t6;
f_32893(t17,lf[1142]);}
else{
t17=C_eqp(((C_word*)t2)[6],lf[1143]);
if(C_truep(t17)){
t18=t6;
f_32893(t18,lf[1144]);}
else{
t18=C_eqp(((C_word*)t2)[6],lf[1145]);
if(C_truep(t18)){
t19=t6;
f_32893(t19,lf[1146]);}
else{
t19=C_eqp(((C_word*)t2)[6],lf[128]);
if(C_truep(t19)){
t20=t6;
f_32893(t20,lf[1147]);}
else{
t20=C_eqp(((C_word*)t2)[6],lf[1148]);
t21=t6;
f_32893(t21,(C_truep(t20)?lf[1149]:lf[1150]));}}}}}}}}}}}}}}

/* k32891 in k32871 in k32868 in ##sys#signal-hook/errno in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void f_32893(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_32893,2,t0,t1);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32911,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6161: chicken.base#get-call-chain */
t4=*((C_word*)lf[242]+1);{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k32909 in k32891 in k32871 in k32868 in ##sys#signal-hook/errno in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_32911(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(34,c,2)))){
C_save_and_reclaim((void *)f_32911,c,av);}
a=C_alloc(34);
t2=((C_word*)t0)[2];
t3=C_a_i_list8(&a,8,lf[1123],((C_word*)t2)[2],lf[1124],((C_word*)t2)[3],lf[1125],t1,lf[1126],((C_word*)t2)[4]);
if(C_truep(((C_word*)t2)[5])){
t4=C_a_i_cons(&a,2,((C_word*)t2)[5],t3);
t5=C_a_i_cons(&a,2,lf[1127],t4);
t6=C_a_i_record3(&a,3,lf[1071],((C_word*)t2)[6],t5);
/* library.scm:6139: abort */
t7=C_fast_retrieve(lf[1119]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=((C_word*)t2)[7];
av2[2]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t4=C_a_i_record3(&a,3,lf[1071],((C_word*)t2)[6],t3);
/* library.scm:6139: abort */
t5=C_fast_retrieve(lf[1119]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=((C_word*)t2)[7];
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k33043 in ##sys#signal-hook/errno in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_33045(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_33045,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)t0)[3];
f_32870(t3,t2);}

/* ##sys#signal-hook in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_33062(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,6)))){
C_save_and_reclaim((void*)f_33062,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+0);
t4=C_build_rest(&a,c,4,av);
C_word t5;
if(C_truep(C_i_pairp(t4))){{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=C_fast_retrieve(lf[388]);
av2[3]=t2;
av2[4]=C_SCHEME_FALSE;
av2[5]=t3;
av2[6]=t4;
C_apply(7,av2);}}
else{
/* library.scm:6170: ##sys#signal-hook/errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[388]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[388]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_SCHEME_FALSE;
av2[4]=t3;
tp(5,av2);}}}

/* chicken.condition#abort in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_33077(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_33077,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33081,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6173: ##sys#current-exception-handler */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1156]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1156]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k33079 in chicken.condition#abort in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_33081(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){
C_save_and_reclaim((void *)f_33081,c,av);}
a=C_alloc(22);
t2=C_a_i_list6(&a,6,lf[1151],lf[1152],lf[1153],C_SCHEME_END_OF_LIST,lf[1154],C_SCHEME_FALSE);
t3=C_a_i_record3(&a,3,lf[1071],lf[1155],t2);
/* library.scm:6174: abort */
t4=C_fast_retrieve(lf[1119]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* chicken.condition#signal in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_33094(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_33094,c,av);}
/* library.scm:6183: ##sys#current-exception-handler */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1156]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1156]+1);
av2[1]=t1;
av2[2]=t2;
tp(3,av2);}}

/* k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_33102(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(41,c,5)))){
C_save_and_reclaim((void *)f_33102,c,av);}
a=C_alloc(41);
t2=C_mutate((C_word*)lf[1158]+1 /* (set! ##sys#error-handler ...) */,t1);
t3=C_set_block_item(lf[1159] /* ##sys#last-exception */,0,C_SCHEME_FALSE);
t4=C_mutate((C_word*)lf[1156]+1 /* (set! ##sys#current-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33105,a[2]=((C_word)li921),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[1076]+1 /* (set! chicken.condition#with-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33265,a[2]=((C_word)li924),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[1175]+1 /* (set! chicken.condition#current-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33279,a[2]=((C_word)li926),tmp=(C_word)a,a+=3,tmp));
t7=C_mutate(&lf[1177] /* (set! chicken.condition#prop-list->kind-prefixed-prop-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33340,a[2]=((C_word)li928),tmp=(C_word)a,a+=3,tmp));
t8=C_mutate((C_word*)lf[1179]+1 /* (set! chicken.condition#make-property-condition ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33408,a[2]=((C_word)li929),tmp=(C_word)a,a+=3,tmp));
t9=C_mutate((C_word*)lf[1181]+1 /* (set! chicken.condition#make-composite-condition ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33422,a[2]=((C_word)li933),tmp=(C_word)a,a+=3,tmp));
t10=C_mutate((C_word*)lf[1183]+1 /* (set! chicken.condition#condition ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33562,a[2]=((C_word)li936),tmp=(C_word)a,a+=3,tmp));
t11=C_mutate((C_word*)lf[1184]+1 /* (set! chicken.condition#condition? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33667,a[2]=((C_word)li937),tmp=(C_word)a,a+=3,tmp));
t12=C_mutate((C_word*)lf[1185]+1 /* (set! chicken.condition#condition->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33673,a[2]=((C_word)li941),tmp=(C_word)a,a+=3,tmp));
t13=C_mutate((C_word*)lf[1188]+1 /* (set! chicken.condition#condition-predicate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33791,a[2]=((C_word)li943),tmp=(C_word)a,a+=3,tmp));
t14=C_mutate((C_word*)lf[1189]+1 /* (set! chicken.condition#condition-property-accessor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33812,a[2]=((C_word)li945),tmp=(C_word)a,a+=3,tmp));
t15=C_mutate((C_word*)lf[1192]+1 /* (set! chicken.condition#get-condition-property ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33858,a[2]=((C_word)li946),tmp=(C_word)a,a+=3,tmp));
t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33869,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* library.scm:6364: chicken.condition#condition-property-accessor */
t17=C_fast_retrieve(lf[1189]);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t17;
av2[1]=t16;
av2[2]=lf[1162];
av2[3]=lf[1274];
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}}

/* ##sys#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_33105(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_33105,c,av);}
a=C_alloc(14);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33109,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_structurep(t2,lf[1071]))){
t4=C_mutate((C_word*)lf[1159]+1 /* (set! ##sys#last-exception ...) */,t2);
t5=C_slot(t2,C_fix(1));
if(C_truep(C_i_memq(lf[1162],t5))){
t6=C_slot(t2,C_fix(2));
t7=C_i_member(lf[1163],t6);
t8=C_i_member(lf[1164],t6);
t9=C_i_member(lf[1165],t6);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33148,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_33158,a[2]=t8,a[3]=t10,a[4]=t7,a[5]=t9,tmp=(C_word)a,a+=6,tmp);
/* library.scm:6233: ##sys#error-handler */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1158]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1158]+1);
av2[1]=t11;
tp(2,av2);}}
else{
t6=C_slot(t5,C_fix(0));
t7=C_eqp(lf[1170],t6);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33219,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6251: ##sys#print */
t9=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[1171];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
else{
t8=C_slot(t5,C_fix(0));
t9=C_eqp(lf[1172],t8);
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33234,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6254: ##sys#error-handler */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1158]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1158]+1);
av2[1]=t10;
tp(2,av2);}}
else{
t10=C_a_i_list2(&a,2,lf[1160],t2);
t11=C_a_i_record3(&a,3,lf[1071],lf[1161],t10);
/* library.scm:6258: abort */
t12=C_fast_retrieve(lf[1119]);{
C_word *av2=av;
av2[0]=t12;
av2[1]=t1;
av2[2]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}}}}
else{
t4=C_a_i_list2(&a,2,lf[1160],t2);
t5=C_a_i_record3(&a,3,lf[1071],lf[1161],t4);
/* library.scm:6258: abort */
t6=C_fast_retrieve(lf[1119]);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t1;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k33107 in ##sys#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33109(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_33109,c,av);}
a=C_alloc(10);
t2=C_a_i_list2(&a,2,lf[1160],((C_word*)t0)[2]);
t3=C_a_i_record3(&a,3,lf[1071],lf[1161],t2);
/* library.scm:6258: abort */
t4=C_fast_retrieve(lf[1119]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k33146 in ##sys#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33148(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_33148,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33151,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:6249: ##sys#reset-handler */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1115]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1115]+1);
av2[1]=t2;
tp(2,av2);}}

/* k33149 in k33146 in ##sys#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_33151(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_33151,c,av);}
/* library.scm:6228: g7329 */
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)C_fast_retrieve_proc(t2))(2,av2);}}

/* k33156 in ##sys#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33158(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_33158,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33162,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t0)[4])){
t3=C_i_cadr(((C_word*)t0)[4]);
t4=(C_truep(((C_word*)t0)[5])?C_i_cadr(((C_word*)t0)[5]):C_SCHEME_FALSE);
t5=(C_truep(t4)?C_i_symbolp(t4):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33188,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6239: ##sys#symbol->string/shared */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[747]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[747]+1);
av2[1]=t6;
av2[2]=t4;
tp(3,av2);}}
else{
t6=t2;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t3;
f_33162(2,av2);}}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[1169];
f_33162(2,av2);}}}

/* k33160 in k33156 in ##sys#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_33162(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_33162,c,av);}
if(C_truep(((C_word*)t0)[2])){{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t1;
av2[4]=C_i_cadr(((C_word*)t0)[2]);
C_apply(5,av2);}}
else{
t2=((C_word*)t0)[4];{
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);}}}

/* k33186 in k33156 in ##sys#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_33188(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_33188,c,av);}
if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){
/* library.scm:6238: string-append */
t2=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[1166];
av2[3]=t1;
av2[4]=lf[1167];
av2[5]=C_slot(((C_word*)t0)[2],C_fix(1));
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
else{
if(C_truep(C_i_stringp(((C_word*)t0)[2]))){
/* library.scm:6238: string-append */
t2=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[1166];
av2[3]=t1;
av2[4]=lf[1167];
av2[5]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
else{
/* library.scm:6238: string-append */
t2=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[1166];
av2[3]=t1;
av2[4]=lf[1167];
av2[5]=lf[1168];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}}

/* k33217 in ##sys#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33219(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_33219,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33222,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:6252: ##sys#reset-handler */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1115]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1115]+1);
av2[1]=t2;
tp(2,av2);}}

/* k33220 in k33217 in ##sys#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_33222(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_33222,c,av);}
/* library.scm:6227: g7332 */
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)C_fast_retrieve_proc(t2))(2,av2);}}

/* k33232 in ##sys#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33234(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_33234,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33237,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_slot(((C_word*)t0)[3],C_fix(2));
t4=C_i_member(lf[1173],t3);
/* library.scm:6227: g7335 */
t5=t1;{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=lf[1174];
av2[3]=C_i_cadr(t4);
((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}

/* k33235 in k33232 in ##sys#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_33237(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_33237,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33240,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:6257: ##sys#reset-handler */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1115]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1115]+1);
av2[1]=t2;
tp(2,av2);}}

/* k33238 in k33235 in k33232 in ##sys#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_33240(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_33240,c,av);}
/* library.scm:6227: g7337 */
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)C_fast_retrieve_proc(t2))(2,av2);}}

/* chicken.condition#with-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_33265(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_33265,c,av);}
a=C_alloc(8);
t4=C_fast_retrieve(lf[1156]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33271,a[2]=t2,a[3]=((C_word)li922),tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33275,a[2]=t4,a[3]=((C_word)li923),tmp=(C_word)a,a+=4,tmp);
/* library.scm:6266: ##sys#dynamic-wind */
t7=*((C_word*)lf[839]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t7;
av2[1]=t1;
av2[2]=t5;
av2[3]=t3;
av2[4]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}

/* a33270 in chicken.condition#with-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33271(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_33271,c,av);}
t2=C_mutate((C_word*)lf[1156]+1 /* (set! ##sys#current-exception-handler ...) */,((C_word*)t0)[2]);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a33274 in chicken.condition#with-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33275(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_33275,c,av);}
t2=C_mutate((C_word*)lf[1156]+1 /* (set! ##sys#current-exception-handler ...) */,((C_word*)t0)[2]);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.condition#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_33279(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){
C_save_and_reclaim((void*)f_33279,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+5);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
if(C_truep(C_i_nullp(t2))){
t3=C_fast_retrieve(lf[1156]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fast_retrieve(lf[1156]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33292,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:6276: ##sys#check-closure */
t5=*((C_word*)lf[443]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
av2[3]=lf[1176];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}

/* k33290 in chicken.condition#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33292(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_33292,c,av);}
a=C_alloc(10);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33294,a[2]=((C_word*)t0)[3],a[3]=((C_word)li925),tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33300,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33305,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_nullp(t2))){
t6=(
/* library.scm:6277: def-convert?7353 */
  f_33305(t5)
);
t7=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t7;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t6=C_i_car(t2);
t7=C_u_i_cdr(t2);
if(C_truep(C_i_nullp(t7))){
t8=(
/* library.scm:6277: def-set?7354 */
  f_33300(t4)
);
t9=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t9;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t8=C_i_car(t7);
t9=C_u_i_cdr(t7);
t10=(
/* library.scm:6277: body7351 */
  f_33294(t3,t8)
);
t11=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t11;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}

/* body7351 in k33290 in chicken.condition#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static C_word f_33294(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_stack_overflow_check;{}
if(C_truep(t1)){
t2=C_mutate((C_word*)lf[1156]+1 /* (set! ##sys#current-exception-handler ...) */,((C_word*)t0)[2]);
return(t2);}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* def-set?7354 in k33290 in chicken.condition#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static C_word f_33300(C_word t0){
C_word tmp;
C_word t1;
C_stack_overflow_check;{}
return((
/* library.scm:6277: body7351 */
  f_33294(((C_word*)t0)[2],C_SCHEME_TRUE)
));}

/* def-convert?7353 in k33290 in chicken.condition#current-exception-handler in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static C_word f_33305(C_word t0){
C_word tmp;
C_word t1;
C_stack_overflow_check;{}
return((
/* library.scm:6277: def-set?7354 */
  f_33300(((C_word*)t0)[2])
));}

/* chicken.condition#prop-list->kind-prefixed-prop-list in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void f_33340(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_33340,4,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_33346,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=t6,a[6]=((C_word)li927),tmp=(C_word)a,a+=7,tmp));
t8=((C_word*)t6)[1];
f_33346(t8,t1,t4);}

/* loop in chicken.condition#prop-list->kind-prefixed-prop-list in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void f_33346(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_33346,3,t0,t1,t2);}
a=C_alloc(8);
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_pairp(t2);
t4=C_i_not(t3);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_33362,a[2]=t1,a[3]=((C_word*)t0)[2],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(t4)){
t6=t5;
f_33362(t6,t4);}
else{
t6=C_i_cdr(t2);
t7=t5;
f_33362(t7,C_i_not(C_i_pairp(t6)));}}}

/* k33360 in loop in chicken.condition#prop-list->kind-prefixed-prop-list in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void f_33362(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){
C_save_and_reclaim_args((void *)trf_33362,2,t0,t1);}
a=C_alloc(8);
if(C_truep(t1)){
/* library.scm:6287: ##sys#signal-hook */
t2=*((C_word*)lf[127]+1);{
C_word av2[6];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[309];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[1178];
av2[5]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
else{
t2=C_i_car(((C_word*)t0)[5]);
t3=C_a_i_cons(&a,2,((C_word*)t0)[6],t2);
t4=C_i_cadr(((C_word*)t0)[5]);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33384,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t6=C_u_i_cdr(((C_word*)t0)[5]);
/* library.scm:6291: loop */
t7=((C_word*)((C_word*)t0)[7])[1];
f_33346(t7,t5,C_u_i_cdr(t6));}}

/* k33382 in k33360 in loop in chicken.condition#prop-list->kind-prefixed-prop-list in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_33384(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_33384,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,((C_word*)t0)[4],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.condition#make-property-condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_33408(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +7,c,4)))){
C_save_and_reclaim((void*)f_33408,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+7);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
t4=C_a_i_list1(&a,1,t2);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33420,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6296: prop-list->kind-prefixed-prop-list */
f_33340(t5,lf[1180],t2,t3);}

/* k33418 in chicken.condition#make-property-condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33420(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_33420,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record3(&a,3,lf[1071],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.condition#make-composite-condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_33422(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +26,c,3)))){
C_save_and_reclaim((void*)f_33422,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+26);
t3=C_build_rest(&a,c,3,av);
C_word 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;
t4=C_a_i_cons(&a,2,t2,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33539,a[2]=((C_word)li930),tmp=(C_word)a,a+=3,tmp);
t6=(
  f_33539(t4)
);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33441,a[2]=t1,a[3]=t4,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|2,a[1]=(C_word)f_33503,a[2]=t7,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_33505,a[2]=t10,a[3]=t14,a[4]=t11,a[5]=((C_word)li932),tmp=(C_word)a,a+=6,tmp));
t16=((C_word*)t14)[1];
f_33505(t16,t12,t4);}

/* k33439 in chicken.condition#make-composite-condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33441(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
C_save_and_reclaim((void *)f_33441,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33445,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|2,a[1]=(C_word)f_33457,a[2]=t2,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_33459,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li931),tmp=(C_word)a,a+=6,tmp));
t11=((C_word*)t9)[1];
f_33459(t11,t7,((C_word*)t0)[3]);}

/* k33443 in k33439 in chicken.condition#make-composite-condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_33445(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_33445,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record3(&a,3,lf[1071],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k33455 in k33439 in chicken.condition#make-composite-condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_33457(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_33457,c,av);}{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[305]+1);
av2[3]=t1;
C_apply(4,av2);}}

/* map-loop7440 in k33439 in chicken.condition#make-composite-condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void f_33459(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_33459,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_slot(t3,C_fix(2));
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);}}}

/* k33501 in chicken.condition#make-composite-condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33503(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_33503,c,av);}{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[305]+1);
av2[3]=t1;
C_apply(4,av2);}}

/* map-loop7413 in chicken.condition#make-composite-condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void f_33505(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_33505,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_slot(t3,C_fix(1));
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);}}}

/* for-each-loop7395 in chicken.condition#make-composite-condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static C_word f_33539(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=C_slot(t1,C_fix(0));
t3=C_i_check_structure_2(t2,lf[1071],lf[1182]);
t5=C_slot(t1,C_fix(1));
t1=t5;
goto loop;}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* chicken.condition#condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_33562(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +23,c,3)))){
C_save_and_reclaim((void*)f_33562,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+23);
t3=C_build_rest(&a,c,3,av);
C_word 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;
t4=C_a_i_cons(&a,2,t2,t3);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33569,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
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|2,a[1]=(C_word)f_33631,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_33633,a[2]=t8,a[3]=t12,a[4]=t9,a[5]=((C_word)li935),tmp=(C_word)a,a+=6,tmp));
t14=((C_word*)t12)[1];
f_33633(t14,t10,t4);}

/* k33567 in chicken.condition#condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33569(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_33569,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_33579,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_33581,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li934),tmp=(C_word)a,a+=6,tmp));
t10=((C_word*)t8)[1];
f_33581(t10,t6,((C_word*)t0)[3]);}

/* k33577 in k33567 in chicken.condition#condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_33579(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_33579,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record3(&a,3,lf[1071],t1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop7500 in k33567 in chicken.condition#condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void f_33581(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_33581,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);}}}

/* k33629 in chicken.condition#condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33631(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_33631,c,av);}{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[305]+1);
av2[3]=t1;
C_apply(4,av2);}}

/* map-loop7473 in chicken.condition#condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void f_33633(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
C_save_and_reclaim_args((void *)trf_33633,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_33658,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));
/* library.scm:6311: prop-list->kind-prefixed-prop-list */
f_33340(t3,lf[1071],C_i_car(t4),C_u_i_cdr(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);}}}

/* k33656 in map-loop7473 in chicken.condition#condition in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_33658(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_33658,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_33633(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* chicken.condition#condition? in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_33667(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_33667,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_structurep(t2,lf[1071]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.condition#condition->list in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_33673(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_33673,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33677,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33786,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6319: condition? */
t5=C_fast_retrieve(lf[1184]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k33675 in chicken.condition#condition->list in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33677(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_33677,c,av);}
a=C_alloc(18);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33681,a[2]=((C_word*)t0)[2],a[3]=((C_word)li939),tmp=(C_word)a,a+=4,tmp);
t7=C_slot(((C_word*)t0)[2],C_fix(1));
t8=C_i_check_list_2(t7,lf[837]);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_33751,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li940),tmp=(C_word)a,a+=7,tmp));
t12=((C_word*)t10)[1];
f_33751(t12,((C_word*)t0)[3],t7);}

/* g7536 in k33675 in chicken.condition#condition->list in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void f_33681(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_33681,3,t0,t1,t2);}
a=C_alloc(11);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33689,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=C_slot(((C_word*)t0)[2],C_fix(2));
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_33695,a[2]=t2,a[3]=t6,a[4]=((C_word)li938),tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_33695(t8,t3,t4);}

/* k33687 in g7536 in k33675 in chicken.condition#condition->list in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_33689(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_33689,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 g7536 in k33675 in chicken.condition#condition->list in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void f_33695(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_33695,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_caar(t2);
t4=C_eqp(t3,((C_word*)t0)[2]);
if(C_truep(t4)){
t5=C_u_i_car(t2);
t6=C_u_i_cdr(t5);
t7=C_i_cadr(t2);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33726,a[2]=t7,a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
t9=C_u_i_cdr(t2);
/* library.scm:6329: loop */
t11=t8;
t12=C_u_i_cdr(t9);
t1=t11;
t2=t12;
goto loop;}
else{
/* library.scm:6331: loop */
t11=t1;
t12=C_i_cddr(t2);
t1=t11;
t2=t12;
goto loop;}}}

/* k33724 in loop in g7536 in k33675 in chicken.condition#condition->list in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_33726(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_33726,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,((C_word*)t0)[4],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* map-loop7530 in k33675 in chicken.condition#condition->list in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void f_33751(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_33751,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_33776,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);
/* library.scm:6323: g7536 */
t4=((C_word*)t0)[4];
f_33681(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);}}}

/* k33774 in map-loop7530 in k33675 in chicken.condition#condition->list in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_33776(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_33776,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_33751(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k33784 in chicken.condition#condition->list in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33786(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_33786,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_33677(2,av2);}}
else{
/* library.scm:6320: ##sys#signal-hook */
t2=*((C_word*)lf[127]+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[309];
av2[3]=lf[1186];
av2[4]=lf[1187];
av2[5]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}

/* chicken.condition#condition-predicate in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_33791(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_33791,c,av);}
a=C_alloc(4);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33793,a[2]=t2,a[3]=((C_word)li942),tmp=(C_word)a,a+=4,tmp);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* f_33793 in chicken.condition#condition-predicate in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33793(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_33793,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33800,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:6336: condition? */
t4=C_fast_retrieve(lf[1184]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k33798 */
static void C_ccall f_33800(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_33800,c,av);}
if(C_truep(t1)){
t2=C_slot(((C_word*)t0)[2],C_fix(1));
t3=C_i_memv(((C_word*)t0)[3],t2);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_SCHEME_TRUE: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);}}}

/* chicken.condition#condition-property-accessor in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_33812(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +11,c,3)))){
C_save_and_reclaim((void*)f_33812,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+11);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
t5=C_i_nullp(t4);
t6=C_a_i_cons(&a,2,t2,t3);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_33820,a[2]=t2,a[3]=t6,a[4]=t5,a[5]=t3,a[6]=t4,a[7]=((C_word)li944),tmp=(C_word)a,a+=8,tmp);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* f_33820 in chicken.condition#condition-property-accessor in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33820(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_33820,c,av);}
t3=C_i_check_structure(t2,lf[1071]);
t4=C_slot(t2,C_fix(1));
if(C_truep(C_i_memv(((C_word*)t0)[2],t4))){
t5=C_slot(t2,C_fix(2));
t6=C_i_member(((C_word*)t0)[3],t5);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_i_cadr(t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
if(C_truep(((C_word*)t0)[4])){
/* library.scm:6347: ##sys#signal-hook */
t7=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t7;
av2[1]=t1;
av2[2]=lf[309];
av2[3]=lf[1190];
av2[4]=lf[1191];
av2[5]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}
else{
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_i_car(((C_word*)t0)[6]);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}
else{
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* chicken.condition#get-condition-property in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_33858(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c<5) C_bad_min_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +4,c,5)))){
C_save_and_reclaim((void*)f_33858,c,av);}
a=C_alloc((c-5)*C_SIZEOF_PAIR+4);
t5=C_build_rest(&a,c,5,av);
C_word t6;
C_word t7;
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33862,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=0;
av2[1]=t6;
av2[2]=C_fast_retrieve(lf[1189]);
av2[3]=t3;
av2[4]=t4;
av2[5]=t5;
C_apply(6,av2);}}

/* k33860 in chicken.condition#get-condition-property in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33862(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_33862,c,av);}
/* library.scm:6353: g7585 */
t2=t1;{
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)C_fast_retrieve_proc(t2))(3,av2);}}

/* k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_33869(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_33869,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_33872,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6365: chicken.condition#condition-property-accessor */
t4=C_fast_retrieve(lf[1189]);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[1162];
av2[3]=lf[996];
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_33872(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_33872,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_33875,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6366: chicken.condition#condition-property-accessor */
t5=C_fast_retrieve(lf[1189]);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[1162];
av2[3]=lf[1276];
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_33875(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,4)))){
C_save_and_reclaim((void *)f_33875,c,av);}
a=C_alloc(26);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33876,a[2]=((C_word)li950),tmp=(C_word)a,a+=3,tmp);
t4=C_mutate((C_word*)lf[1193]+1 /* (set! chicken.condition#print-error-message ...) */,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_33921,a[2]=t3,a[3]=t1,a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[3],a[6]=((C_word)li955),tmp=(C_word)a,a+=7,tmp));
t5=C_fast_retrieve(lf[1193]);
t6=*((C_word*)lf[243]+1);
t7=*((C_word*)lf[326]+1);
t8=*((C_word*)lf[328]+1);
t9=C_mutate((C_word*)lf[1205]+1 /* (set! ##sys#show-exception-warning ...) */,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_34112,a[2]=t6,a[3]=t5,a[4]=t8,a[5]=t7,a[6]=((C_word)li956),tmp=(C_word)a,a+=7,tmp));
t10=C_mutate((C_word*)lf[448]+1 /* (set! ##sys#error-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34161,a[2]=((C_word)li957),tmp=(C_word)a,a+=3,tmp));
t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34891,a[2]=((C_word*)t2)[4],tmp=(C_word)a,a+=3,tmp);
t12=C_a_i_list1(&a,1,C_fast_retrieve(lf[1156]));
t13=C_i_setslot(t12,C_fix(1),t12);
/* library.scm:6534: scheme#make-parameter */
t14=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t14;
av2[1]=t11;
av2[2]=t12;
((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}}

/* writeargs in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void f_33876(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_33876,3,t1,t2,t3);}
a=C_alloc(11);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33878,a[2]=t3,a[3]=((C_word)li948),tmp=(C_word)a,a+=4,tmp);
t5=C_i_check_list_2(t2,lf[835]);
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_33899,a[2]=t7,a[3]=t4,a[4]=((C_word)li949),tmp=(C_word)a,a+=5,tmp));
t9=((C_word*)t7)[1];
f_33899(t9,t1,t2);}

/* g7601 in writeargs in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void f_33878(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_33878,3,t0,t1,t2);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33882,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33887,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li947),tmp=(C_word)a,a+=5,tmp);
/* library.scm:6371: ##sys#with-print-length-limit */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1081]);
C_word av2[4];
av2[0]=*((C_word*)lf[1081]+1);
av2[1]=t3;
av2[2]=C_fix(80);
av2[3]=t4;
tp(4,av2);}}

/* k33880 in g7601 in writeargs in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_33882(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_33882,c,av);}
/* library.scm:6372: newline */
t2=*((C_word*)lf[207]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* a33886 in g7601 in writeargs in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_33887(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_33887,c,av);}
/* library.scm:6371: write */
t2=*((C_word*)lf[208]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* for-each-loop7600 in writeargs in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void f_33899(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_33899,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_33909,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:6369: g7601 */
t4=((C_word*)t0)[3];
f_33878(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);}}}

/* k33907 in for-each-loop7600 in writeargs in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_33909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_33909,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_33899(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_33921(C_word c,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_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_33921,c,av);}
a=C_alloc(16);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_33923,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li952),tmp=(C_word)a,a+=8,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34072,a[2]=t3,a[3]=((C_word)li953),tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34077,a[2]=t4,a[3]=((C_word)li954),tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_rest_nullp(c,3))){
/* library.scm:6375: def-port7623 */
t6=t5;
f_34077(t6,t1);}
else{
t6=C_get_rest_arg(c,3,av,3,t0);
if(C_truep(C_rest_nullp(c,4))){
/* library.scm:6375: def-header7624 */
t7=t4;
f_34072(t7,t1,t6);}
else{
t7=C_get_rest_arg(c,4,av,3,t0);
/* library.scm:6375: body7621 */
t8=t3;
f_33923(t8,t1,t6,t7);}}}

/* body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void f_33923(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_33923,4,t0,t1,t2,t3);}
a=C_alloc(10);
t4=C_i_check_port_2(t2,C_fix(2),C_SCHEME_TRUE,lf[1194]);
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_33930,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],a[8]=((C_word*)t0)[6],a[9]=t3,tmp=(C_word)a,a+=10,tmp);
/* library.scm:6378: newline */
t6=*((C_word*)lf[207]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_33930(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_33930,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_33933,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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);
/* library.scm:6379: display */
t3=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_33933(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_33933,c,av);}
a=C_alloc(8);
t2=C_immp(((C_word*)t0)[2]);
t3=C_i_not(t2);
t4=(C_truep(t3)?C_eqp(lf[1071],C_slot(((C_word*)t0)[2],C_fix(0))):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_33942,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
/* library.scm:6381: errmsg */
t6=((C_word*)t0)[8];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
if(C_truep(C_i_stringp(((C_word*)t0)[2]))){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34041,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);
/* library.scm:6405: display */
t6=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[1202];
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_34050,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* library.scm:6409: display */
t6=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[1203];
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}

/* k33940 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_33942(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_33942,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_33945,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_33977,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[6],a[7]=((C_word)li951),tmp=(C_word)a,a+=8,tmp);
/* library.scm:6381: g7644 */
t4=t3;
f_33977(t4,t2,t1);}
else{
t3=C_slot(((C_word*)t0)[6],C_fix(1));
if(C_truep(C_i_equalp(lf[1199],t3))){
/* library.scm:6391: display */
t4=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[1200];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34025,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* library.scm:6393: display */
t5=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[1201];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}}

/* k33943 in k33940 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in ... */
static void C_ccall f_33945(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_33945,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33948,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);
/* library.scm:6395: errargs */
t3=((C_word*)t0)[5];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k33946 in k33943 in k33940 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in ... */
static void C_ccall f_33948(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_33948,c,av);}
a=C_alloc(6);
t2=C_i_not(t1);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_length(t1);
t4=C_eqp(C_fix(1),t3);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_33963,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* library.scm:6399: display */
t6=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[1195];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_33969,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* library.scm:6402: newline */
t6=*((C_word*)lf[207]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}

/* k33961 in k33946 in k33943 in k33940 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_33963(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_33963,c,av);}
/* library.scm:6400: writeargs */
f_33876(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k33967 in k33946 in k33943 in k33940 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_33969(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_33969,c,av);}
/* library.scm:6403: writeargs */
f_33876(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}

/* g7644 in k33940 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in ... */
static void f_33977(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_33977,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+3,t2);
t4=C_mutate(((C_word *)t0)+2,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33981,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6383: display */
t6=*((C_word*)lf[209]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[1198];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}

/* k33979 in g7644 in k33940 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in ... */
static void C_ccall f_33981(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_33981,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33984,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);
/* library.scm:6384: errloc */
t4=((C_word*)t2)[5];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[6];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k33982 in k33979 in g7644 in k33940 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_33984(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_33984,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33987,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=(C_truep(t1)?C_i_symbolp(t1):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34000,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34004,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6386: ##sys#symbol->string/shared */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[747]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[747]+1);
av2[1]=t5;
av2[2]=t1;
tp(3,av2);}}
else{
/* library.scm:6387: display */
t4=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k33985 in k33982 in k33979 in g7644 in k33940 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_33987(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_33987,c,av);}
t2=((C_word*)t0)[2];
/* library.scm:6387: display */
t3=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k33998 in k33982 in k33979 in g7644 in k33940 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_34000(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_34000,c,av);}
/* library.scm:6386: display */
t2=*((C_word*)lf[209]+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);}}

/* k34002 in k33982 in k33979 in g7644 in k33940 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_34004(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_34004,c,av);}
/* library.scm:6386: string-append */
t2=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1196];
av2[3]=t1;
av2[4]=lf[1197];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k34023 in k33940 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in ... */
static void C_ccall f_34025(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_34025,c,av);}
/* library.scm:6394: display */
t2=*((C_word*)lf[209]+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_slot(((C_word*)t0)[3],C_fix(1));
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k34039 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_34041(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_34041,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34044,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:6406: display */
t3=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k34042 in k34039 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in ... */
static void C_ccall f_34044(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_34044,c,av);}
/* library.scm:6407: newline */
t2=*((C_word*)lf[207]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k34048 in k33931 in k33928 in body7621 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_34050(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_34050,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
/* library.scm:6410: writeargs */
f_33876(((C_word*)t0)[4],t2,((C_word*)t0)[5]);}

/* def-header7624 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void f_34072(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_34072,3,t0,t1,t2);}
/* library.scm:6375: body7621 */
t3=((C_word*)t0)[2];
f_33923(t3,t1,t2,lf[1204]);}

/* def-port7623 in chicken.condition#print-error-message in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void f_34077(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
C_save_and_reclaim_args((void *)trf_34077,2,t0,t1);}
/* library.scm:6375: def-header7624 */
t2=((C_word*)t0)[2];
f_34072(t2,t1,*((C_word*)lf[854]+1));}

/* ##sys#show-exception-warning in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_34112(C_word c,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_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_34112,c,av);}
a=C_alloc(10);
t4=C_rest_nullp(c,4);
t5=(C_truep(t4)?C_fast_retrieve(lf[1093]):C_get_rest_arg(c,4,av,4,t0));
if(C_truep(*((C_word*)lf[378]+1))){
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_34122,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=((C_word*)t0)[4],a[8]=C_SCHEME_UNDEFINED,a[9]=t3,tmp=(C_word)a,a+=10,tmp);
/* library.scm:6425: open-output-string */
t7=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t6=C_SCHEME_UNDEFINED;
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k34120 in ##sys#show-exception-warning in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_34122(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_34122,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_34125,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6426: display */
t4=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[1208];
av2[3]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k34123 in k34120 in ##sys#show-exception-warning in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_34125(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_34125,c,av);}
a=C_alloc(15);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_34128,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(((C_word*)t2)[4])){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34147,a[2]=t3,a[3]=((C_word*)t2)[8],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
/* library.scm:6428: display */
t5=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[1207];
av2[3]=((C_word*)t2)[8];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_34128(2,av2);}}}

/* k34126 in k34123 in k34120 in ##sys#show-exception-warning in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_34128(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_34128,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34131,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6431: display */
t3=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1206];
av2[3]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k34129 in k34126 in k34123 in k34120 in ##sys#show-exception-warning in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_34131(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_34131,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_34134,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);
/* library.scm:6432: display */
t4=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[9];
av2[3]=((C_word*)t2)[8];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k34132 in k34129 in k34126 in k34123 in k34120 in ##sys#show-exception-warning in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in ... */
static void C_ccall f_34134(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_34134,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34137,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34144,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* library.scm:6433: get-output-string */
t4=((C_word*)t0)[7];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k34135 in k34132 in k34129 in k34126 in k34123 in k34120 in ##sys#show-exception-warning in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in ... */
static void C_ccall f_34137(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_34137,c,av);}
/* library.scm:6434: print-call-chain */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=*((C_word*)lf[855]+1);
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k34142 in k34132 in k34129 in k34126 in k34123 in k34120 in ##sys#show-exception-warning in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in ... */
static void C_ccall f_34144(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_34144,c,av);}
/* library.scm:6433: print-error-message */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=*((C_word*)lf[855]+1);
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k34145 in k34123 in k34120 in ##sys#show-exception-warning in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_34147(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_34147,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34150,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:6429: display */
t3=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k34148 in k34145 in k34123 in k34120 in ##sys#show-exception-warning in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_34150(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_34150,c,av);}
/* ##sys#write-char/port */
t2=C_fast_retrieve(lf[1024]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(41);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* ##sys#error-hook in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_34161(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +9,c,6)))){
C_save_and_reclaim((void*)f_34161,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+9);
t4=C_build_rest(&a,c,4,av);
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;
switch(t2){
case C_fix(1):
t5=C_get_rest_arg(c,4,av,4,t0);
t6=C_i_cadr(t4);
t7=C_i_caddr(t4);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34184,a[2]=t7,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34195,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6449: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t9;
av2[2]=t6;
tp(3,av2);}
case C_fix(2):
t5=C_get_rest_arg(c,4,av,4,t0);
t6=C_i_cadr(t4);
t7=C_i_caddr(t4);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34221,a[2]=t7,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34232,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6458: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t9;
av2[2]=t6;
tp(3,av2);}
case C_fix(3):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1213];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(4):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[1133];
av2[4]=t3;
av2[5]=lf[1214];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(5):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1215];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(6):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[1141];
av2[4]=t3;
av2[5]=lf[1216];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(7):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[671];
av2[4]=t3;
av2[5]=lf[1217];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(8):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[481];
av2[4]=t3;
av2[5]=lf[1218];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(9):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1219];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(10):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[1143];
av2[4]=t3;
av2[5]=lf[1220];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(11):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1221];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(12):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[1141];
av2[4]=t3;
av2[5]=lf[1222];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(13):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1223];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(14):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1224];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(15):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1225];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(16):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1226];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(17):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1227];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(18):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1228];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(19):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1229];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(20):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1230];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(21):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1231];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(22):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1232];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(23):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[1141];
av2[4]=t3;
av2[5]=lf[1233];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(24):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1234];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(25):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1235];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(26):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1236];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(27):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1237];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(28):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1238];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(29):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1239];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(30):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1240];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(31):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1241];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(32):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1242];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(33):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1243];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(34):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1244];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(35):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1245];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(36):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[1141];
av2[4]=t3;
av2[5]=lf[1246];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(37):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1247];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(38):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1248];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(39):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1249];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(40):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1250];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(41):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1251];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(42):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1252];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(43):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[476];
av2[4]=t3;
av2[5]=lf[1253];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(44):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1254];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(45):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[1148];
av2[4]=t3;
av2[5]=lf[1255];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(46):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[671];
av2[4]=t3;
av2[5]=lf[1256];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(47):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[1133];
av2[4]=t3;
av2[5]=lf[1257];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(48):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[1148];
av2[4]=t3;
av2[5]=lf[1258];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(49):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1259];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(50):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1260];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(51):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1261];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(52):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1262];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(53):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1263];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(54):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1264];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(55):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1265];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(56):
t5=C_get_rest_arg(c,4,av,4,t0);
t6=C_i_cadr(t4);
t7=C_i_caddr(t4);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34735,a[2]=t7,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34746,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6520: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t9;
av2[2]=t6;
tp(3,av2);}
case C_fix(57):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1268];
av2[6]=t4;
C_apply(7,av2);}
case C_fix(58):{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=t3;
av2[5]=lf[1269];
av2[6]=t4;
C_apply(7,av2);}
default:{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=t1;
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[1133];
av2[4]=t3;
av2[5]=lf[1270];
av2[6]=t4;
C_apply(7,av2);}}}

/* k34182 in ##sys#error-hook in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_34184(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
C_save_and_reclaim((void *)f_34184,c,av);}
a=C_alloc(3);
if(C_truep(((C_word*)t0)[2])){
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[1143];
av2[4]=((C_word*)t0)[4];
av2[5]=t1;
av2[6]=t2;
C_apply(7,av2);}}
else{
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[127]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[127]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[1143];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
tp(5,av2);}}}

/* k34193 in ##sys#error-hook in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_34195(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_34195,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34199,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6450: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k34197 in k34193 in ##sys#error-hook in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_34199(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_34199,c,av);}
/* library.scm:6449: string-append */
t2=*((C_word*)lf[517]+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[1209];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[1210];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k34219 in ##sys#error-hook in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_34221(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
C_save_and_reclaim((void *)f_34221,c,av);}
a=C_alloc(3);
if(C_truep(((C_word*)t0)[2])){
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[1143];
av2[4]=((C_word*)t0)[4];
av2[5]=t1;
av2[6]=t2;
C_apply(7,av2);}}
else{
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[127]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[127]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[1143];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
tp(5,av2);}}}

/* k34230 in ##sys#error-hook in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_34232(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_34232,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34236,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6459: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k34234 in k34230 in ##sys#error-hook in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_34236(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_34236,c,av);}
/* library.scm:6458: string-append */
t2=*((C_word*)lf[517]+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[1211];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[1212];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k34733 in ##sys#error-hook in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_34735(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
C_save_and_reclaim((void *)f_34735,c,av);}
a=C_alloc(3);
if(C_truep(((C_word*)t0)[2])){
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[481];
av2[4]=((C_word*)t0)[4];
av2[5]=t1;
av2[6]=t2;
C_apply(7,av2);}}
else{
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[127]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[127]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[481];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
tp(5,av2);}}}

/* k34744 in ##sys#error-hook in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_34746(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_34746,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34750,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6521: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k34748 in k34744 in ##sys#error-hook in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_34750(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_34750,c,av);}
/* library.scm:6520: string-append */
t2=*((C_word*)lf[517]+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[1266];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[1267];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_34891(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_34891,c,av);}
a=C_alloc(12);
t2=C_mutate(&lf[1271] /* (set! ##sys#r7rs-exn-handlers ...) */,t1);
t3=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));
t4=C_mutate((C_word*)lf[1272]+1 /* (set! scheme#with-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34893,a[2]=((C_word)li960),tmp=(C_word)a,a+=3,tmp));
t5=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));
t6=C_mutate((C_word*)lf[1273]+1 /* (set! scheme#raise ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34961,a[2]=((C_word)li962),tmp=(C_word)a,a+=3,tmp));
t7=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));
t8=C_mutate((C_word*)lf[1277]+1 /* (set! scheme#raise-continuable ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35002,a[2]=((C_word)li964),tmp=(C_word)a,a+=3,tmp));
t9=C_mutate((C_word*)lf[1278]+1 /* (set! scheme#error-object? ...) */,C_fast_retrieve(lf[1184]));
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35032,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:6578: chicken.condition#condition-property-accessor */
t11=C_fast_retrieve(lf[1189]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t11;
av2[1]=t10;
av2[2]=lf[1162];
av2[3]=lf[1274];
((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}

/* scheme#with-exception-handler in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_34893(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_34893,c,av);}
a=C_alloc(7);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34899,a[2]=t2,a[3]=((C_word)li958),tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34939,a[2]=((C_word)li959),tmp=(C_word)a,a+=3,tmp);
/* library.scm:6542: scheme#dynamic-wind */
t6=*((C_word*)lf[228]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t1;
av2[2]=t4;
av2[3]=t3;
av2[4]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* a34898 in scheme#with-exception-handler in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_34899(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_34899,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34903,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34937,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6546: eh */
t4=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k34901 in a34898 in scheme#with-exception-handler in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_34903(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_34903,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34906,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34915,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6548: eh */
t4=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k34904 in k34901 in a34898 in scheme#with-exception-handler in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_34906(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_34906,c,av);}
t2=((C_word*)t0)[2];
t3=C_mutate((C_word*)lf[1156]+1 /* (set! ##sys#current-exception-handler ...) */,((C_word*)t2)[2]);
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k34913 in k34901 in a34898 in scheme#with-exception-handler in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_34915(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_34915,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
/* library.scm:6548: eh */
t3=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k34927 in k34935 in a34898 in scheme#with-exception-handler in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_34929(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_34929,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,C_fast_retrieve(lf[1156]),t1);
/* library.scm:6547: eh */
t3=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));{
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);}}

/* k34935 in a34898 in scheme#with-exception-handler in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_34937(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_34937,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_eqp(t2,C_fast_retrieve(lf[1156]));
if(C_truep(t3)){
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_34903(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34929,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:6547: eh */
t5=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* a34938 in scheme#with-exception-handler in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_34939(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_34939,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34943,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34959,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6552: eh */
t4=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k34941 in a34938 in scheme#with-exception-handler in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_34943(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_34943,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34951,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:6553: eh */
t3=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k34949 in k34941 in a34938 in scheme#with-exception-handler in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_34951(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_34951,c,av);}
t2=C_i_car(t1);
t3=C_mutate((C_word*)lf[1156]+1 /* (set! ##sys#current-exception-handler ...) */,t2);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k34957 in a34938 in scheme#with-exception-handler in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_34959(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_34959,c,av);}
/* library.scm:6552: eh */
t2=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_i_cdr(t1);
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* scheme#raise in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_34961(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_34961,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35000,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6559: eh */
t4=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a34970 in k34998 in scheme#raise in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_34971(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_34971,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34996,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:6561: eh */
t3=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k34976 in k34994 in a34970 in k34998 in scheme#raise in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in ... */
static void C_ccall f_34978(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_34978,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34992,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:6562: eh */
t3=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k34986 in k34990 in k34976 in k34994 in a34970 in k34998 in scheme#raise in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_34988(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_34988,c,av);}
t2=((C_word*)t0)[2];
/* library.scm:6560: g7766 */
t3=((C_word*)t2)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
av2[2]=t1;
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}

/* k34990 in k34976 in k34994 in a34970 in k34998 in scheme#raise in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in ... */
static void C_ccall f_34992(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){
C_save_and_reclaim((void *)f_34992,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_mutate(((C_word *)t0)+2,t2);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34988,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6563: chicken.condition#make-property-condition */
t5=C_fast_retrieve(lf[1179]);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[1162];
av2[3]=lf[1274];
av2[4]=lf[1275];
av2[5]=lf[1276];
av2[6]=C_SCHEME_END_OF_LIST;
av2[7]=lf[996];
av2[8]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(9,av2);}}

/* k34994 in a34970 in k34998 in scheme#raise in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_34996(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_34996,c,av);}
a=C_alloc(3);
t2=C_i_cadr(t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34978,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:6560: g7764 */
t4=t2;{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* k34998 in scheme#raise in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_35000(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_35000,c,av);}
a=C_alloc(4);
t2=C_i_cadr(t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34971,a[2]=((C_word*)t0)[2],a[3]=((C_word)li961),tmp=(C_word)a,a+=4,tmp);
/* library.scm:6558: scheme#with-exception-handler */
t4=C_fast_retrieve(lf[1272]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* scheme#raise-continuable in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_35002(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_35002,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35027,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6573: eh */
t4=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a35011 in k35025 in scheme#raise-continuable in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_35012(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_35012,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35023,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:6575: eh */
t3=C_retrieve2(lf[1271],C_text("##sys#r7rs-exn-handlers"));{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k35021 in a35011 in k35025 in scheme#raise-continuable in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_35023(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_35023,c,av);}
/* library.scm:6574: g7772 */
t2=C_i_cadr(t1);{
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)C_fast_retrieve_proc(t2))(3,av2);}}

/* k35025 in scheme#raise-continuable in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_35027(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_35027,c,av);}
a=C_alloc(4);
t2=C_i_cadr(t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35012,a[2]=((C_word*)t0)[2],a[3]=((C_word)li963),tmp=(C_word)a,a+=4,tmp);
/* library.scm:6572: scheme#with-exception-handler */
t4=C_fast_retrieve(lf[1272]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_35032(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_35032,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[1279]+1 /* (set! scheme#error-object-message ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35036,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:6579: chicken.condition#condition-property-accessor */
t4=C_fast_retrieve(lf[1189]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[1162];
av2[3]=lf[1276];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_35036(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_35036,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[1280]+1 /* (set! scheme#error-object-irritants ...) */,t1);
t3=C_set_block_item(lf[1281] /* scheme#read-error? */,0,C_SCHEME_UNDEFINED);
t4=C_set_block_item(lf[1282] /* scheme#file-error? */,0,C_SCHEME_UNDEFINED);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35041,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
/* library.scm:6584: chicken.condition#condition-predicate */
t6=C_fast_retrieve(lf[1188]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[1162];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in ... */
static void C_ccall f_35041(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_35041,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_35044,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6585: chicken.condition#condition-predicate */
t4=C_fast_retrieve(lf[1188]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[1616];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in ... */
static void C_ccall f_35044(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_35044,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_35047,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6586: chicken.condition#condition-predicate */
t5=C_fast_retrieve(lf[1188]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[1615];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in ... */
static void C_ccall f_35047(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_35047,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+4,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35050,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6587: chicken.condition#condition-predicate */
t5=C_fast_retrieve(lf[1188]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[1614];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in ... */
static void C_ccall f_35050(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word t44;
C_word t45;
C_word t46;
C_word t47;
C_word t48;
C_word t49;
C_word t50;
C_word t51;
C_word t52;
C_word t53;
C_word t54;
C_word t55;
C_word t56;
C_word t57;
C_word t58;
C_word t59;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(170,c,6)))){
C_save_and_reclaim((void *)f_35050,c,av);}
a=C_alloc(170);
t2=((C_word*)t0)[2];
t3=C_mutate((C_word*)lf[1281]+1 /* (set! scheme#read-error? ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35052,a[2]=t1,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],a[5]=((C_word)li965),tmp=(C_word)a,a+=6,tmp));
t4=C_mutate((C_word*)lf[1282]+1 /* (set! scheme#file-error? ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35070,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[3],a[4]=((C_word)li966),tmp=(C_word)a,a+=5,tmp));
t5=C_mutate((C_word*)lf[1283]+1 /* (set! ##sys#structure? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35082,a[2]=((C_word)li967),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[1284]+1 /* (set! ##sys#generic-structure? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35085,a[2]=((C_word)li968),tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[1285]+1 /* (set! ##sys#slot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35088,a[2]=((C_word)li969),tmp=(C_word)a,a+=3,tmp));
t8=C_mutate((C_word*)lf[1286]+1 /* (set! ##sys#size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35091,a[2]=((C_word)li970),tmp=(C_word)a,a+=3,tmp));
t9=C_mutate((C_word*)lf[1287]+1 /* (set! ##sys#make-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_pointer,a[2]=((C_word)li971),tmp=(C_word)a,a+=3,tmp));
t10=C_mutate((C_word*)lf[1288]+1 /* (set! ##sys#make-tagged-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_tagged_pointer,a[2]=((C_word)li972),tmp=(C_word)a,a+=3,tmp));
t11=C_mutate((C_word*)lf[1289]+1 /* (set! ##sys#pointer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35096,a[2]=((C_word)li973),tmp=(C_word)a,a+=3,tmp));
t12=C_mutate((C_word*)lf[1290]+1 /* (set! ##sys#set-pointer-address! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35099,a[2]=((C_word)li974),tmp=(C_word)a,a+=3,tmp));
t13=C_mutate((C_word*)lf[1291]+1 /* (set! ##sys#bytevector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35102,a[2]=((C_word)li975),tmp=(C_word)a,a+=3,tmp));
t14=C_mutate((C_word*)lf[1292]+1 /* (set! ##sys#string->pbytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35105,a[2]=((C_word)li976),tmp=(C_word)a,a+=3,tmp));
t15=C_mutate((C_word*)lf[1293]+1 /* (set! ##sys#permanent? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35108,a[2]=((C_word)li977),tmp=(C_word)a,a+=3,tmp));
t16=C_mutate((C_word*)lf[1294]+1 /* (set! ##sys#block-address ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35111,a[2]=((C_word)li978),tmp=(C_word)a,a+=3,tmp));
t17=C_mutate((C_word*)lf[1295]+1 /* (set! ##sys#locative? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35114,a[2]=((C_word)li979),tmp=(C_word)a,a+=3,tmp));
t18=C_mutate((C_word*)lf[1296]+1 /* (set! ##sys#srfi-4-vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35117,a[2]=((C_word)li980),tmp=(C_word)a,a+=3,tmp));
t19=C_mutate((C_word*)lf[1299]+1 /* (set! ##sys#null-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35141,a[2]=((C_word)li981),tmp=(C_word)a,a+=3,tmp));
t20=C_mutate((C_word*)lf[1300]+1 /* (set! ##sys#null-pointer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35147,a[2]=((C_word)li982),tmp=(C_word)a,a+=3,tmp));
t21=C_mutate((C_word*)lf[1301]+1 /* (set! ##sys#address->pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35157,a[2]=((C_word)li983),tmp=(C_word)a,a+=3,tmp));
t22=C_mutate((C_word*)lf[1090]+1 /* (set! ##sys#pointer->address ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35163,a[2]=((C_word)li984),tmp=(C_word)a,a+=3,tmp));
t23=C_mutate((C_word*)lf[899]+1 /* (set! ##sys#make-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35170,a[2]=((C_word)li985),tmp=(C_word)a,a+=3,tmp));
t24=C_mutate((C_word*)lf[1302]+1 /* (set! ##sys#peek-signed-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_peek_signed_integer,a[2]=((C_word)li986),tmp=(C_word)a,a+=3,tmp));
t25=C_mutate((C_word*)lf[863]+1 /* (set! ##sys#peek-unsigned-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_peek_unsigned_integer,a[2]=((C_word)li987),tmp=(C_word)a,a+=3,tmp));
t26=C_mutate((C_word*)lf[1303]+1 /* (set! ##sys#peek-fixnum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35206,a[2]=((C_word)li988),tmp=(C_word)a,a+=3,tmp));
t27=C_mutate((C_word*)lf[1304]+1 /* (set! ##sys#peek-byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35209,a[2]=((C_word)li989),tmp=(C_word)a,a+=3,tmp));
t28=C_mutate((C_word*)lf[1305]+1 /* (set! ##sys#vector->structure! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35212,a[2]=((C_word)li990),tmp=(C_word)a,a+=3,tmp));
t29=C_mutate((C_word*)lf[1306]+1 /* (set! ##sys#peek-double ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35215,a[2]=((C_word)li991),tmp=(C_word)a,a+=3,tmp));
t30=C_mutate((C_word*)lf[844]+1 /* (set! ##sys#peek-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35218,a[2]=((C_word)li992),tmp=(C_word)a,a+=3,tmp));
t31=C_mutate((C_word*)lf[1094]+1 /* (set! ##sys#peek-nonnull-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35234,a[2]=((C_word)li993),tmp=(C_word)a,a+=3,tmp));
t32=C_mutate((C_word*)lf[1307]+1 /* (set! ##sys#peek-and-free-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35247,a[2]=((C_word)li994),tmp=(C_word)a,a+=3,tmp));
t33=C_mutate((C_word*)lf[1308]+1 /* (set! ##sys#peek-and-free-nonnull-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35253,a[2]=((C_word)li995),tmp=(C_word)a,a+=3,tmp));
t34=C_mutate((C_word*)lf[1309]+1 /* (set! ##sys#poke-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35259,a[2]=((C_word)li996),tmp=(C_word)a,a+=3,tmp));
t35=C_mutate((C_word*)lf[1310]+1 /* (set! ##sys#poke-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35266,a[2]=((C_word)li997),tmp=(C_word)a,a+=3,tmp));
t36=C_mutate((C_word*)lf[1311]+1 /* (set! ##sys#poke-double ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35269,a[2]=((C_word)li998),tmp=(C_word)a,a+=3,tmp));
t37=C_mutate((C_word*)lf[1312]+1 /* (set! ##sys#peek-c-string-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35289,a[2]=((C_word)li1000),tmp=(C_word)a,a+=3,tmp));
t38=C_mutate((C_word*)lf[1313]+1 /* (set! ##sys#peek-and-free-c-string-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35350,a[2]=((C_word)li1002),tmp=(C_word)a,a+=3,tmp));
t39=C_mutate((C_word*)lf[1314]+1 /* (set! ##sys#vector->closure! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35388,a[2]=((C_word)li1003),tmp=(C_word)a,a+=3,tmp));
t40=C_mutate((C_word*)lf[1315]+1 /* (set! ##sys#symbol-has-toplevel-binding? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35391,a[2]=((C_word)li1004),tmp=(C_word)a,a+=3,tmp));
t41=C_mutate((C_word*)lf[1316]+1 /* (set! ##sys#block-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35394,a[2]=((C_word)li1005),tmp=(C_word)a,a+=3,tmp));
t42=C_mutate((C_word*)lf[1317]+1 /* (set! ##sys#foreign-char-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35400,a[2]=((C_word)li1006),tmp=(C_word)a,a+=3,tmp));
t43=C_mutate((C_word*)lf[1318]+1 /* (set! ##sys#foreign-fixnum-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35403,a[2]=((C_word)li1007),tmp=(C_word)a,a+=3,tmp));
t44=C_mutate((C_word*)lf[1319]+1 /* (set! ##sys#foreign-flonum-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35406,a[2]=((C_word)li1008),tmp=(C_word)a,a+=3,tmp));
t45=C_mutate((C_word*)lf[1320]+1 /* (set! ##sys#foreign-block-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35409,a[2]=((C_word)li1009),tmp=(C_word)a,a+=3,tmp));
t46=C_mutate((C_word*)lf[1321]+1 /* (set! ##sys#foreign-cplxnum-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35412,a[2]=((C_word)li1010),tmp=(C_word)a,a+=3,tmp));
t47=C_mutate((C_word*)lf[1323]+1 /* (set! ##sys#foreign-struct-wrapper-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35421,a[2]=((C_word)li1011),tmp=(C_word)a,a+=3,tmp));
t48=C_mutate((C_word*)lf[1324]+1 /* (set! ##sys#foreign-string-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35424,a[2]=((C_word)li1012),tmp=(C_word)a,a+=3,tmp));
t49=C_mutate((C_word*)lf[1325]+1 /* (set! ##sys#foreign-symbol-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35427,a[2]=((C_word)li1013),tmp=(C_word)a,a+=3,tmp));
t50=C_mutate((C_word*)lf[1326]+1 /* (set! ##sys#foreign-pointer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35430,a[2]=((C_word)li1014),tmp=(C_word)a,a+=3,tmp));
t51=C_mutate((C_word*)lf[1327]+1 /* (set! ##sys#foreign-tagged-pointer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35433,a[2]=((C_word)li1015),tmp=(C_word)a,a+=3,tmp));
t52=C_mutate((C_word*)lf[1328]+1 /* (set! ##sys#foreign-ranged-integer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35436,a[2]=((C_word)li1016),tmp=(C_word)a,a+=3,tmp));
t53=C_mutate((C_word*)lf[1329]+1 /* (set! ##sys#foreign-unsigned-ranged-integer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35439,a[2]=((C_word)li1017),tmp=(C_word)a,a+=3,tmp));
t54=C_mutate((C_word*)lf[1330]+1 /* (set! ##sys#wrap-struct ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35442,a[2]=((C_word)li1018),tmp=(C_word)a,a+=3,tmp));
t55=C_set_block_item(lf[1331] /* ##sys#default-thread-quantum */,0,C_fix(10000));
t56=C_mutate((C_word*)lf[1332]+1 /* (set! ##sys#default-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35449,a[2]=((C_word)li1019),tmp=(C_word)a,a+=3,tmp));
t57=C_mutate((C_word*)lf[1334]+1 /* (set! ##sys#make-thread ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35452,a[2]=((C_word)li1020),tmp=(C_word)a,a+=3,tmp));
t58=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35476,a[2]=((C_word*)t2)[5],tmp=(C_word)a,a+=3,tmp);
/* library.scm:6785: ##sys#make-thread */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1334]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[1334]+1);
av2[1]=t58;
av2[2]=C_SCHEME_FALSE;
av2[3]=lf[1612];
av2[4]=lf[1613];
av2[5]=C_fast_retrieve(lf[1331]);
tp(6,av2);}}

/* scheme#read-error? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35052(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_35052,c,av);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35059,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);
/* library.scm:6590: exn? */
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k35057 in scheme#read-error? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35059(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_35059,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35062,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);
/* library.scm:6591: i/o? */
t3=((C_word*)t0)[5];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k35060 in k35057 in scheme#read-error? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_35062(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_35062,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{
/* library.scm:6592: syntax? */
t2=((C_word*)t0)[3];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}

/* scheme#file-error? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35070(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_35070,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35077,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:6595: exn? */
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k35075 in scheme#file-error? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35077(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_35077,c,av);}
if(C_truep(t1)){
/* library.scm:6596: file? */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
else{
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);}}}

/* ##sys#structure? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35082(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35082,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_structurep(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#generic-structure? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35085(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35085,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_structurep(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#slot in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35088(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35088,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_slot(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#size in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35091(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35091,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_block_size(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#pointer? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35096(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35096,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_anypointerp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#set-pointer-address! in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35099(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35099,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_update_pointer(t3,t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#bytevector? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35102(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35102,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_bytevectorp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#string->pbytevector in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35105(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35105,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_string_to_pbytevector(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#permanent? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35108(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35108,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_permanentp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#block-address in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35111(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_35111,c,av);}
a=C_alloc(6);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_block_address(&a,1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#locative? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35114(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35114,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_locativep(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#srfi-4-vector? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35117(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35117,c,av);}
t3=C_i_srfi_4_vectorp(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_blockp(t2))){
if(C_truep(C_structurep(t2))){
t4=C_slot(t2,C_fix(0));
t5=C_eqp(t4,lf[1297]);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=(C_truep(t5)?t5:C_eqp(t4,lf[1298]));
((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);}}}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}

/* ##sys#null-pointer in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35141(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_35141,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35145,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6623: ##sys#make-pointer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1287]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1287]+1);
av2[1]=t2;
tp(2,av2);}}

/* k35143 in ##sys#null-pointer in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35145(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35145,c,av);}
t2=C_update_pointer(C_fix(0),t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#null-pointer? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35147(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_35147,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35155,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6628: ##sys#pointer->address */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1090]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1090]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k35153 in ##sys#null-pointer? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35155(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35155,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_eqp(C_fix(0),t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* ##sys#address->pointer in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35157(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_35157,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35161,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6631: ##sys#make-pointer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1287]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1287]+1);
av2[1]=t3;
tp(2,av2);}}

/* k35159 in ##sys#address->pointer in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35161(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35161,c,av);}
t2=C_update_pointer(((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#pointer->address in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35163(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_35163,c,av);}
a=C_alloc(6);
t3=C_slot(t2,C_fix(0));
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_unsigned_int_to_num(&a,1,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#make-c-string in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35170(C_word c,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_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_35170,c,av);}
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
t5=C_slot(t2,C_fix(0));
t6=C_asciiz_strlen(t5);
t7=C_block_size(t5);
t8=C_fixnum_difference(t7,C_fix(1));
t9=C_eqp(t6,t8);
if(C_truep(t9)){
t10=t1;{
C_word *av2=av;
av2[0]=t10;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t10=C_fix((C_word)C_ASCIIZ_REPRESENTATION_ERROR);
/* library.scm:6643: ##sys#error-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[448]);
C_word av2[5];
av2[0]=*((C_word*)lf[448]+1);
av2[1]=t1;
av2[2]=t10;
av2[3]=t4;
av2[4]=t2;
tp(5,av2);}}}

/* ##sys#peek-fixnum in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35206(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35206,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_peek_fixnum(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#peek-byte in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35209(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35209,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_peek_byte(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#vector->structure! in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35212(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35212,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_vector_to_structure(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#peek-double in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35215(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_35215,c,av);}
a=C_alloc(4);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_f64peek(&a,2,t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#peek-c-string in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35218(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_35218,c,av);}
t4=C_null_pointerp(t2);
if(C_truep(C_i_not(t4))){
/* library.scm:6658: ##sys#peek-nonnull-c-string */
t5=*((C_word*)lf[1094]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* ##sys#peek-nonnull-c-string in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35234(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_35234,c,av);}
a=C_alloc(6);
t4=C_fetch_c_strlen(t2,t3);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35238,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* library.scm:6662: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t5;
av2[2]=C_fixnum_plus(t4,C_fix(1));
av2[3]=C_fix(0);
tp(4,av2);}}

/* k35236 in ##sys#peek-nonnull-c-string in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35238(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_35238,c,av);}
t2=C_peek_c_string(((C_word*)t0)[2],((C_word*)t0)[3],t1,((C_word*)t0)[4]);
/* library.scm:6664: ##sys#buffer->string! */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[167]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[167]+1);
av2[1]=((C_word*)t0)[5];
av2[2]=t1;
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}

/* ##sys#peek-and-free-c-string in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35247(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_35247,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35251,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:6667: ##sys#peek-c-string */
t5=*((C_word*)lf[844]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k35249 in ##sys#peek-and-free-c-string in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35251(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35251,c,av);}
t2=C_free_mptr(((C_word*)t0)[2],((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#peek-and-free-nonnull-c-string in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35253(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_35253,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35257,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:6672: ##sys#peek-nonnull-c-string */
t5=*((C_word*)lf[1094]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k35255 in ##sys#peek-and-free-nonnull-c-string in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35257(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35257,c,av);}
t2=C_free_mptr(((C_word*)t0)[2],((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#poke-c-string in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35259(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_35259,c,av);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35264,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
/* library.scm:6677: ##sys#make-c-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[899]);
C_word *av2=av;
av2[0]=*((C_word*)lf[899]+1);
av2[1]=t5;
av2[2]=t4;
tp(3,av2);}}

/* k35262 in ##sys#poke-c-string in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35264(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35264,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_poke_c_string(((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* ##sys#poke-integer in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35266(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35266,c,av);}
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_poke_integer(t2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#poke-double in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35269(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35269,c,av);}
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_poke_double(t2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#peek-c-string-list in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35289(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_35289,c,av);}
a=C_alloc(8);
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_35295,a[2]=t3,a[3]=t5,a[4]=t2,a[5]=((C_word)li999),tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_35295(t7,t1,C_fix(0));}

/* loop in ##sys#peek-c-string-list in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void f_35295(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_35295,3,t0,t1,t2);}
a=C_alloc(10);
t3=(C_truep(((C_word*)t0)[2])?C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]):C_SCHEME_FALSE);
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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35305,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t5=C_a_i_bytevector(&a,1,C_fix(3));
t6=(C_truep(((C_word*)t0)[4])?C_i_foreign_pointer_argumentp(((C_word*)t0)[4]):C_SCHEME_FALSE);
t7=C_i_foreign_fixnum_argumentp(t2);
/* library.scm:6683: ##sys#peek-c-string */
t8=*((C_word*)lf[844]+1);{
C_word av2[4];
av2[0]=t8;
av2[1]=t4;
av2[2]=stub7903(t5,t6,t7);
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}

/* k35303 in loop in ##sys#peek-c-string-list in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_35305(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_35305,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35315,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6690: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_35295(t3,t2,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}
else{
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);}}}

/* k35313 in k35303 in loop in ##sys#peek-c-string-list in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_35315(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_35315,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* ##sys#peek-and-free-c-string-list in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35350(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_35350,c,av);}
a=C_alloc(12);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35354,a[2]=t2,a[3]=t1,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_35359,a[2]=t3,a[3]=t2,a[4]=t6,a[5]=((C_word)li1001),tmp=(C_word)a,a+=6,tmp));
t8=((C_word*)t6)[1];
f_35359(t8,t4,C_fix(0));}

/* k35352 in ##sys#peek-and-free-c-string-list in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35354(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35354,c,av);}
if(C_truep(((C_word*)t0)[2])){
t2=C_i_foreign_pointer_argumentp(((C_word*)t0)[2]);
t3=stub7930(C_SCHEME_UNDEFINED,t2);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t2=stub7930(C_SCHEME_UNDEFINED,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* loop in ##sys#peek-and-free-c-string-list in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void f_35359(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_35359,3,t0,t1,t2);}
a=C_alloc(11);
t3=(C_truep(((C_word*)t0)[2])?C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]):C_SCHEME_FALSE);
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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35369,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t5=C_a_i_bytevector(&a,1,C_fix(3));
t6=(C_truep(((C_word*)t0)[3])?C_i_foreign_pointer_argumentp(((C_word*)t0)[3]):C_SCHEME_FALSE);
t7=C_i_foreign_fixnum_argumentp(t2);
/* library.scm:6694: ##sys#peek-c-string */
t8=*((C_word*)lf[844]+1);{
C_word av2[4];
av2[0]=t8;
av2[1]=t4;
av2[2]=stub7922(t5,t6,t7);
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}

/* k35367 in loop in ##sys#peek-and-free-c-string-list in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_35369(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_35369,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=C_free_sptr(((C_word*)t0)[2],((C_word*)t0)[3]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35379,a[2]=((C_word*)t0)[4],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6703: loop */
t4=((C_word*)((C_word*)t0)[5])[1];
f_35359(t4,t3,C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k35377 in k35367 in loop in ##sys#peek-and-free-c-string-list in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_35379(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_35379,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* ##sys#vector->closure! in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35388(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35388,c,av);}
t4=C_vector_to_closure(t2);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_update_pointer(t3,t2);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#symbol-has-toplevel-binding? in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35391(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35391,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_boundp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#block-pointer in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35394(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_35394,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35398,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6716: ##sys#make-pointer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1287]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1287]+1);
av2[1]=t3;
tp(2,av2);}}

/* k35396 in ##sys#block-pointer in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35398(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35398,c,av);}
t2=C_pointer_to_block(t1,((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#foreign-char-argument in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35400(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35400,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_foreign_char_argumentp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#foreign-fixnum-argument in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35403(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35403,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_foreign_fixnum_argumentp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#foreign-flonum-argument in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35406(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35406,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_foreign_flonum_argumentp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#foreign-block-argument in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35409(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35409,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_foreign_block_argumentp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#foreign-cplxnum-argument in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35412(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){
C_save_and_reclaim((void *)f_35412,c,av);}
a=C_alloc(12);
if(C_truep(C_i_numberp(t2))){
t3=C_a_i_exact_to_inexact(&a,1,t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* library.scm:6731: ##sys#signal-hook */
t3=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[309];
av2[3]=C_SCHEME_FALSE;
av2[4]=lf[1322];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}}

/* ##sys#foreign-struct-wrapper-argument in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35421(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35421,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_foreign_struct_wrapper_argumentp(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#foreign-string-argument in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35424(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35424,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_foreign_string_argumentp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#foreign-symbol-argument in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35427(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35427,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_foreign_symbol_argumentp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#foreign-pointer-argument in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35430(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35430,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_foreign_pointer_argumentp(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#foreign-tagged-pointer-argument in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35433(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35433,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_foreign_tagged_pointer_argumentp(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#foreign-ranged-integer-argument in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35436(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35436,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_foreign_ranged_integer_argumentp(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#foreign-unsigned-ranged-integer-argument in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35439(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35439,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_foreign_unsigned_ranged_integer_argumentp(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#wrap-struct in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35442(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35442,c,av);}
t4=C_i_setslot(t3,C_fix(0),t2);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* ##sys#default-exception-handler in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35449(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35449,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_halt(lf[1333]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#make-thread in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35452(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_35452,c,av);}
a=C_alloc(7);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_35468,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp);
/* library.scm:6772: ##sys#vector-resize */
f_24210(t6,C_fast_retrieve(lf[916]),C_block_size(C_fast_retrieve(lf[916])),C_SCHEME_FALSE);}

/* k35466 in ##sys#make-thread in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35468(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,1)))){
C_save_and_reclaim((void *)f_35468,c,av);}
a=C_alloc(26);
t2=C_a_i_vector6(&a,6,C_fast_retrieve(lf[838]),*((C_word*)lf[853]+1),*((C_word*)lf[854]+1),*((C_word*)lf[855]+1),C_fast_retrieve(lf[1332]),t1);
t3=C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_FALSE);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_record(&a,15,lf[1078],((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4],C_SCHEME_FALSE,t2,((C_word*)t0)[5],C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST,((C_word*)t0)[6],C_SCHEME_UNDEFINED,C_SCHEME_FALSE,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in ... */
static void C_ccall f_35476(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(45,c,4)))){
C_save_and_reclaim((void *)f_35476,c,av);}
a=C_alloc(45);
t2=C_mutate((C_word*)lf[1105]+1 /* (set! ##sys#primordial-thread ...) */,t1);
t3=C_mutate((C_word*)lf[1093]+1 /* (set! ##sys#current-thread ...) */,C_fast_retrieve(lf[1105]));
t4=C_mutate((C_word*)lf[1335]+1 /* (set! ##sys#make-mutex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35479,a[2]=((C_word)li1021),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[1337]+1 /* (set! ##sys#schedule ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35485,a[2]=((C_word)li1022),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[1338]+1 /* (set! ##sys#thread-yield! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35494,a[2]=((C_word)li1025),tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[1339]+1 /* (set! ##sys#kill-other-threads ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35515,a[2]=((C_word)li1026),tmp=(C_word)a,a+=3,tmp));
t8=C_mutate((C_word*)lf[1340]+1 /* (set! ##sys#resume-thread-on-event ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35521,a[2]=((C_word)li1027),tmp=(C_word)a,a+=3,tmp));
t9=C_mutate((C_word*)lf[1341]+1 /* (set! ##sys#suspend-thread-on-event ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35524,a[2]=((C_word)li1028),tmp=(C_word)a,a+=3,tmp));
t10=C_mutate((C_word*)lf[1342]+1 /* (set! ##sys#sleep-until-interrupt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35530,a[2]=((C_word)li1030),tmp=(C_word)a,a+=3,tmp));
t11=C_mutate((C_word*)lf[1343]+1 /* (set! ##sys#make-event-queue ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35539,a[2]=((C_word)li1031),tmp=(C_word)a,a+=3,tmp));
t12=C_mutate((C_word*)lf[1345]+1 /* (set! ##sys#add-event-to-queue! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35545,a[2]=((C_word)li1032),tmp=(C_word)a,a+=3,tmp));
t13=C_mutate((C_word*)lf[1346]+1 /* (set! ##sys#get-next-event ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35584,a[2]=((C_word)li1033),tmp=(C_word)a,a+=3,tmp));
t14=C_mutate((C_word*)lf[1347]+1 /* (set! ##sys#wait-for-next-event ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35627,a[2]=((C_word)li1035),tmp=(C_word)a,a+=3,tmp));
t15=C_mutate((C_word*)lf[1349]+1 /* (set! chicken.base#sleep-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35681,a[2]=((C_word)li1036),tmp=(C_word)a,a+=3,tmp));
t16=C_mutate((C_word*)lf[252]+1 /* (set! chicken.base#sleep ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35684,a[2]=((C_word)li1037),tmp=(C_word)a,a+=3,tmp));
t17=C_mutate((C_word*)lf[1351]+1 /* (set! ##sys#context-switch ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_context_switch,a[2]=((C_word)li1038),tmp=(C_word)a,a+=3,tmp));
t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35696,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:6890: scheme#make-vector */
t19=*((C_word*)lf[118]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t19;
av2[1]=t18;
av2[2]=C_fix(256);
av2[3]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t19+1)))(4,av2);}}

/* ##sys#make-mutex in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35479(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
C_save_and_reclaim((void *)f_35479,c,av);}
a=C_alloc(8);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_record7(&a,7,lf[1336],t2,t3,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_UNDEFINED);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* ##sys#schedule in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35485(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35485,c,av);}
/* library.scm:6799: g8004 */
t2=C_slot(C_fast_retrieve(lf[1093]),C_fix(1));{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)C_fast_retrieve_proc(t2))(2,av2);}}

/* ##sys#thread-yield! in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35494(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_35494,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35500,a[2]=((C_word)li1024),tmp=(C_word)a,a+=3,tmp);
/* library.scm:6802: ##sys#call-with-current-continuation */{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
C_call_cc(3,av2);}}

/* a35499 in ##sys#thread-yield! in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_35500(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_35500,c,av);}
a=C_alloc(4);
t3=C_fast_retrieve(lf[1093]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35509,a[2]=t2,a[3]=((C_word)li1023),tmp=(C_word)a,a+=4,tmp);
t5=C_i_setslot(C_fast_retrieve(lf[1093]),C_fix(1),t4);
/* library.scm:6806: ##sys#schedule */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1337]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1337]+1);
av2[1]=t1;
tp(2,av2);}}

/* a35508 in a35499 in ##sys#thread-yield! in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_35509(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_35509,c,av);}
/* library.scm:6805: return */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=C_SCHEME_UNDEFINED;
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* ##sys#kill-other-threads in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35515(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35515,c,av);}
/* library.scm:6809: thunk */
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* ##sys#resume-thread-on-event in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35521(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35521,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* ##sys#suspend-thread-on-event in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35524(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35524,c,av);}
/* library.scm:6817: ##sys#sleep-until-interrupt */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1342]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1342]+1);
av2[1]=t1;
tp(2,av2);}}

/* ##sys#sleep-until-interrupt in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35530(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_35530,c,av);}
a=C_alloc(3);
t2=C_i_sleep_until_interrupt(C_fix(100));
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35536,a[2]=((C_word)li1029),tmp=(C_word)a,a+=3,tmp);
/* library.scm:6821: ##sys#dispatch-interrupt */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[842]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[842]+1);
av2[1]=t1;
av2[2]=t3;
tp(3,av2);}}

/* a35535 in ##sys#sleep-until-interrupt in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_35536(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35536,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);}}

/* ##sys#make-event-queue in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_35539,c,av);}
a=C_alloc(5);
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[1344],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* ##sys#add-event-to-queue! in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35545(C_word c,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 *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_35545,c,av);}
a=C_alloc(3);
t4=C_slot(t2,C_fix(1));
t5=C_slot(t2,C_fix(2));
t6=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
t7=C_i_nullp(t4);
t8=(C_truep(t7)?C_i_setslot(t2,C_fix(1),t6):C_i_setslot(t5,C_fix(1),t6));
t9=C_i_setslot(t2,C_fix(2),t6);
t10=C_slot(t2,C_fix(3));
if(C_truep(t10)){
t11=C_i_set_i_slot(t2,C_fix(3),C_SCHEME_FALSE);
/* library.scm:6843: ##sys#resume-thread-on-event */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1340]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1340]+1);
av2[1]=t1;
av2[2]=t10;
tp(3,av2);}}
else{
t11=C_SCHEME_UNDEFINED;
t12=t1;{
C_word *av2=av;
av2[0]=t12;
av2[1]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}

/* ##sys#get-next-event in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35584(C_word c,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;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35584,c,av);}
t3=C_slot(t2,C_fix(3));
if(C_truep(C_i_not(t3))){
t4=C_slot(t2,C_fix(1));
t5=C_i_nullp(t4);
if(C_truep(C_i_not(t5))){
t6=C_slot(t4,C_fix(0));
t7=C_slot(t4,C_fix(1));
t8=C_i_setslot(t2,C_fix(1),t7);
if(C_truep(C_i_nullp(t7))){
t9=C_i_set_i_slot(t2,C_fix(2),C_SCHEME_END_OF_LIST);
t10=t1;{
C_word *av2=av;
av2[0]=t10;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
((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);}}}

/* ##sys#wait-for-next-event in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35627(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_35627,c,av);}
a=C_alloc(4);
t3=C_slot(t2,C_fix(3));
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35634,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(t3)){
/* library.scm:6859: ##sys#signal-hook */
t5=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[1133];
av2[3]=C_SCHEME_FALSE;
av2[4]=lf[1348];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_35634(2,av2);}}}

/* k35632 in ##sys#wait-for-next-event in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_35634(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_35634,c,av);}
a=C_alloc(7);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35639,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li1034),tmp=(C_word)a,a+=5,tmp));
t5=((C_word*)t3)[1];
f_35639(t5,((C_word*)t0)[3]);}

/* again in k35632 in ##sys#wait-for-next-event in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void f_35639(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_35639,2,t0,t1);}
a=C_alloc(4);
t2=C_slot(((C_word*)t0)[2],C_fix(1));
if(C_truep(C_i_nullp(t2))){
t3=C_i_setslot(((C_word*)t0)[2],C_fix(3),C_fast_retrieve(lf[1093]));
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35655,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6864: ##sys#suspend-thread-on-event */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1341]);
C_word av2[3];
av2[0]=*((C_word*)lf[1341]+1);
av2[1]=t4;
av2[2]=C_fast_retrieve(lf[1093]);
tp(3,av2);}}
else{
t3=C_slot(t2,C_fix(0));
t4=C_slot(t2,C_fix(1));
t5=C_i_setslot(((C_word*)t0)[2],C_fix(1),t4);
if(C_truep(C_i_nullp(t4))){
t6=C_i_set_i_slot(((C_word*)t0)[2],C_fix(2),C_SCHEME_END_OF_LIST);
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}

/* k35653 in again in k35632 in ##sys#wait-for-next-event in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_35655(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35655,c,av);}
/* library.scm:6865: again */
t2=((C_word*)((C_word*)t0)[2])[1];
f_35639(t2,((C_word*)t0)[3]);}

/* chicken.base#sleep-hook in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35681(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35681,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_process_sleep(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.base#sleep in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35684(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_35684,c,av);}
a=C_alloc(3);
t3=C_i_check_fixnum_2(t2,lf[1350]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35691,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6882: chicken.base#sleep-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1349]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1349]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k35689 in chicken.base#sleep in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_35691(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35691,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in ... */
static void C_ccall f_35696(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(55,c,4)))){
C_save_and_reclaim((void *)f_35696,c,av);}
a=C_alloc(55);
t2=C_mutate((C_word*)lf[1352]+1 /* (set! ##sys#signal-vector ...) */,t1);
t3=C_mutate((C_word*)lf[1353]+1 /* (set! ##sys#interrupt-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35698,a[2]=((C_word)li1040),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[842]+1 /* (set! ##sys#dispatch-interrupt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35748,a[2]=((C_word)li1041),tmp=(C_word)a,a+=3,tmp));
t5=C_fix(0);
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_mutate((C_word*)lf[845]+1 /* (set! ##sys#update-errno ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35755,a[2]=t6,a[3]=((C_word)li1042),tmp=(C_word)a,a+=4,tmp));
t8=C_mutate((C_word*)lf[1354]+1 /* (set! ##sys#errno ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35759,a[2]=t6,a[3]=((C_word)li1043),tmp=(C_word)a,a+=4,tmp));
t9=C_fast_retrieve(lf[1010]);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35773,a[2]=((C_word)li1045),tmp=(C_word)a,a+=3,tmp));
t15=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35820,a[2]=((C_word)li1047),tmp=(C_word)a,a+=3,tmp));
t16=C_mutate((C_word*)lf[1010]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35865,a[2]=t9,a[3]=t11,a[4]=t13,a[5]=((C_word)li1052),tmp=(C_word)a,a+=6,tmp));
t17=C_a_i_provide(&a,1,lf[1365]);
t18=C_mutate((C_word*)lf[1366]+1 /* (set! chicken.process-context#change-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36293,a[2]=((C_word)li1053),tmp=(C_word)a,a+=3,tmp));
t19=C_mutate((C_word*)lf[1369]+1 /* (set! ##sys#change-directory-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36324,a[2]=((C_word)li1054),tmp=(C_word)a,a+=3,tmp));
t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36332,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41511,a[2]=((C_word)li1230),tmp=(C_word)a,a+=3,tmp);
t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41536,a[2]=((C_word)li1231),tmp=(C_word)a,a+=3,tmp);
/* library.scm:7094: chicken.base#getter-with-setter */
t23=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t23;
av2[1]=t20;
av2[2]=t21;
av2[3]=t22;
av2[4]=lf[1611];
((C_proc)(void*)(*((C_word*)t23+1)))(5,av2);}}

/* ##sys#interrupt-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_35698(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_35698,c,av);}
a=C_alloc(10);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35702,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35729,a[2]=t6,a[3]=((C_word)li1039),tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_35729(t8,t4,t2);}

/* k35700 in ##sys#interrupt-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_35702(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_35702,c,av);}
t2=C_slot(C_fast_retrieve(lf[1111]),C_fix(0));
if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){
/* library.scm:6900: ##sys#run-pending-finalizers */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1112]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[1112]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
if(C_truep(C_i_closurep(((C_word*)t0)[3]))){
/* library.scm:6901: state */
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* library.scm:6902: ##sys#context-switch */{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
C_context_switch(3,av2);}}}}

/* loop in ##sys#interrupt-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void f_35729(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_35729,3,t0,t1,t2);}
a=C_alloc(4);
if(C_truep(t2)){
t3=C_slot(C_fast_retrieve(lf[1352]),t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35739,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(t3)){
/* library.scm:6897: handler */
t5=t3;{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}
else{
/* library.scm:6898: loop */
t6=t1;
t7=C_i_pending_interrupt(C_SCHEME_FALSE);
t1=t6;
t2=t7;
goto loop;}}
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);}}}

/* k35737 in loop in ##sys#interrupt-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_35739(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_35739,c,av);}
/* library.scm:6898: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_35729(t2,((C_word*)t0)[3],C_i_pending_interrupt(C_SCHEME_FALSE));}

/* ##sys#dispatch-interrupt in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_35748(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_35748,c,av);}
/* library.scm:6905: ##sys#interrupt-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1353]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1353]+1);
av2[1]=t1;
av2[2]=C_i_pending_interrupt(C_SCHEME_FALSE);
av2[3]=t2;
tp(4,av2);}}

/* ##sys#update-errno in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_35755(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35755,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_fix((C_word)errno));
t3=t1;{
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);}}

/* ##sys#errno in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_35759(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35759,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* readln in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void f_35773(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_35773,2,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35777,a[2]=C_SCHEME_UNDEFINED,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:6934: scheme#open-output-string */
t4=*((C_word*)lf[326]+1);{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k35775 in readln in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_35777(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_35777,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_35784,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6935: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k35782 in k35775 in readln in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_35784(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_35784,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35786,a[2]=((C_word*)t2)[2],a[3]=t4,a[4]=((C_word*)t2)[3],a[5]=((C_word)li1044),tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_35786(t6,((C_word*)t2)[4],t1);}

/* doloop8096 in k35782 in k35775 in readln in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void f_35786(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_35786,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_eofp(t2);
t4=(C_truep(t3)?t3:C_i_char_equalp(C_make_character(10),t2));
if(C_truep(t4)){
if(C_truep(C_eofp(t2))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
/* library.scm:6937: scheme#get-output-string */
t5=*((C_word*)lf[328]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}
else{
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35808,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* library.scm:6938: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word av2[4];
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=t5;
av2[2]=t2;
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}}

/* k35806 in doloop8096 in k35782 in k35775 in readln in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in ... */
static void C_ccall f_35808(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_35808,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35815,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:6935: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k35813 in k35806 in doloop8096 in k35782 in k35775 in readln in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_35815(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_35815,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_35786(t2,((C_word*)t0)[3],t1);}

/* read-escaped-sexp in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void f_35820(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_35820,3,t1,t2,t3);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35824,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(t3)){
/* library.scm:6940: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_35824(2,av2);}}}

/* k35822 in read-escaped-sexp in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_35824(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_35824,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35827,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6941: read */
t3=*((C_word*)lf[205]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k35825 in k35822 in read-escaped-sexp in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_35827(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_35827,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35830,a[2]=((C_word*)t2)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t2)[3])){
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35835,a[2]=((C_word*)t2)[4],a[3]=t5,a[4]=((C_word)li1046),tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_35835(t7,t3);}
else{
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k35828 in k35825 in k35822 in read-escaped-sexp in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f_35830(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_35830,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);}}

/* loop in k35825 in k35822 in read-escaped-sexp in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void f_35835(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_35835,2,t0,t1);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35839,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:6945: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k35837 in loop in k35825 in k35822 in read-escaped-sexp in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in ... */
static void C_ccall f_35839(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_35839,c,av);}
if(C_truep(C_eofp(t1))){
/* library.scm:6947: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[1355];
tp(4,av2);}}
else{
t2=C_i_char_equalp(C_make_character(125),t1);
if(C_truep(C_i_not(t2))){
/* library.scm:6948: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_35835(t3,((C_word*)t0)[2]);}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}

/* ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_35865(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_35865,c,av);}
a=C_alloc(6);
t4=C_i_char_equalp(C_make_character(60),t2);
if(C_truep(C_i_not(t4))){
/* library.scm:6951: old */
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35878,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* ##sys#read-char/port */
t6=C_fast_retrieve(lf[921]);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_35878(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_35878,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35881,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6954: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_35881(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_35881,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
switch(t1){
case C_make_character(60):
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_35890,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[3],a[6]=C_SCHEME_UNDEFINED,a[7]=((C_word*)t2)[4],tmp=(C_word)a,a+=8,tmp);
/* library.scm:6956: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[2];
tp(3,av2);}
case C_make_character(35):
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_36002,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
/* library.scm:6981: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[2];
tp(3,av2);}
default:
/* library.scm:7035: ##sys#read-error */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[930]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[930]+1);
av2[1]=((C_word*)t2)[4];
av2[2]=((C_word*)t2)[2];
av2[3]=lf[1364];
tp(4,av2);}}}

/* k35888 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f_35890(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_35890,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35893,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6957: scheme#open-output-string */
t3=*((C_word*)lf[326]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k35891 in k35888 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in ... */
static void C_ccall f_35893(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_35893,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_35896,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6958: readln */
f_35773(t4,((C_word*)t2)[4]);}

/* k35894 in k35891 in k35888 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_35896(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_35896,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+2,t1);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_mutate(((C_word *)t2)+6,t5);
t7=C_eofp(((C_word*)t2)[2]);
t8=(C_truep(t7)?C_fix(0):C_i_string_length(((C_word*)t2)[2]));
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35902,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t10=C_eqp(t8,C_fix(0));
if(C_truep(t10)){
/* library.scm:6963: ##sys#read-warning */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[933]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[933]+1);
av2[1]=t9;
av2[2]=((C_word*)t2)[4];
av2[3]=lf[1358];
tp(4,av2);}}
else{
t11=C_fixnum_difference(t8,C_fix(1));
t12=C_i_string_ref(((C_word*)t2)[2],t11);
t13=C_u_i_char_equalp(t12,C_make_character(32));
if(C_truep(t13)){
if(C_truep(t13)){
/* library.scm:6967: ##sys#read-warning */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[933]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[933]+1);
av2[1]=t9;
av2[2]=((C_word*)t2)[4];
av2[3]=lf[1359];
tp(4,av2);}}
else{
t14=C_SCHEME_UNDEFINED;
t15=t9;{
C_word *av2=av;
av2[0]=t15;
av2[1]=t14;
f_35902(2,av2);}}}
else{
t14=C_fixnum_difference(t8,C_fix(1));
t15=C_i_string_ref(((C_word*)t2)[2],t14);
if(C_truep(C_u_i_char_equalp(t15,C_make_character(9)))){
/* library.scm:6967: ##sys#read-warning */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[933]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[933]+1);
av2[1]=t9;
av2[2]=((C_word*)t2)[4];
av2[3]=lf[1359];
tp(4,av2);}}
else{
t16=C_SCHEME_UNDEFINED;
t17=t9;{
C_word *av2=av;
av2[0]=t17;
av2[1]=t16;
f_35902(2,av2);}}}}}

/* k35900 in k35894 in k35891 in k35888 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_35902(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_35902,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35909,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6970: readln */
f_35773(t3,((C_word*)t2)[4]);}

/* k35907 in k35900 in k35894 in k35891 in k35888 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_35909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_35909,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_35911,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t4,a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word)li1048),tmp=(C_word)a,a+=9,tmp));
t6=((C_word*)t4)[1];
f_35911(t6,((C_word*)t2)[7],t1);}

/* doloop8131 in k35907 in k35900 in k35894 in k35891 in k35888 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void f_35911(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){
C_save_and_reclaim_args((void *)trf_35911,3,t0,t1,t2);}
a=C_alloc(17);
t3=C_eofp(t2);
t4=(C_truep(t3)?t3:C_i_string_equal_p(((C_word*)t0)[2],t2));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35924,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_eofp(t2))){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35937,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t7=C_a_i_list(&a,3,lf[1356],((C_word*)t0)[2],lf[1357]);
/* library.scm:6925: ##sys#print-to-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1086]);
C_word av2[3];
av2[0]=*((C_word*)lf[1086]+1);
av2[1]=t6;
av2[2]=t7;
tp(3,av2);}}
else{
/* library.scm:6975: scheme#get-output-string */
t6=*((C_word*)lf[328]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}
else{
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_35940,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
if(C_truep(((C_word*)((C_word*)t0)[7])[1])){
/* library.scm:6977: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word av2[4];
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=t5;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}
else{
t6=C_set_block_item(((C_word*)t0)[7],0,C_SCHEME_TRUE);
t7=t5;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
f_35940(2,av2);}}}}

/* k35922 in doloop8131 in k35907 in k35900 in k35894 in k35891 in k35888 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_35924(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_35924,c,av);}
/* library.scm:6975: scheme#get-output-string */
t2=*((C_word*)lf[328]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k35935 in doloop8131 in k35907 in k35900 in k35894 in k35891 in k35888 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_35937(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_35937,c,av);}
/* library.scm:6973: ##sys#read-warning */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[933]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[933]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k35938 in doloop8131 in k35907 in k35900 in k35894 in k35891 in k35888 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_35940(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_35940,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35943,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);
/* library.scm:6979: display */
t3=*((C_word*)lf[209]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k35941 in k35938 in doloop8131 in k35907 in k35900 in k35894 in k35891 in k35888 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in ... */
static void C_ccall f_35943(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_35943,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35950,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:6970: readln */
f_35773(t2,((C_word*)t0)[5]);}

/* k35948 in k35941 in k35938 in doloop8131 in k35907 in k35900 in k35894 in k35891 in k35888 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in ... */
static void C_ccall f_35950(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_35950,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_35911(t2,((C_word*)t0)[3],t1);}

/* k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f_36002(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_36002,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_36005,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);
/* library.scm:6982: readln */
f_35773(t2,((C_word*)t0)[2]);}

/* k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in ... */
static void C_ccall f_36005(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_36005,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_36008,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6983: scheme#open-output-string */
t4=*((C_word*)lf[326]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36008(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_36008,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=t1;
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_36010,a[2]=t4,a[3]=((C_word)li1049),tmp=(C_word)a,a+=4,tmp);
t6=C_eofp(((C_word*)t2)[2]);
t7=(C_truep(t6)?C_fix(0):C_i_string_length(((C_word*)t2)[2]));
t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_36024,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t5,a[5]=t4,a[6]=((C_word*)t2)[4],a[7]=((C_word*)t2)[5],tmp=(C_word)a,a+=8,tmp);
t9=C_eqp(t7,C_fix(0));
if(C_truep(t9)){
/* library.scm:6992: ##sys#read-warning */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[933]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[933]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[3];
av2[3]=lf[1362];
tp(4,av2);}}
else{
t10=C_fixnum_difference(t7,C_fix(1));
t11=C_i_string_ref(((C_word*)t2)[2],t10);
t12=C_u_i_char_equalp(t11,C_make_character(32));
if(C_truep(t12)){
if(C_truep(t12)){
/* library.scm:6996: ##sys#read-warning */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[933]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[933]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[3];
av2[3]=lf[1363];
tp(4,av2);}}
else{
t13=C_SCHEME_UNDEFINED;
t14=t8;{
C_word *av2=av;
av2[0]=t14;
av2[1]=t13;
f_36024(2,av2);}}}
else{
t13=C_fixnum_difference(t7,C_fix(1));
t14=C_i_string_ref(((C_word*)t2)[2],t13);
if(C_truep(C_u_i_char_equalp(t14,C_make_character(9)))){
/* library.scm:6996: ##sys#read-warning */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[933]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[933]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[3];
av2[3]=lf[1363];
tp(4,av2);}}
else{
t15=C_SCHEME_UNDEFINED;
t16=t8;{
C_word *av2=av;
av2[0]=t16;
av2[1]=t15;
f_36024(2,av2);}}}}}

/* get/clear-str in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void f_36010(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_36010,2,t0,t1);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36014,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=5,tmp);
/* library.scm:6985: scheme#get-output-string */
t3=*((C_word*)lf[328]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k36012 in get/clear-str in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_36014(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_36014,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_36018,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6986: scheme#open-output-string */
t4=*((C_word*)lf[326]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k36016 in k36012 in get/clear-str in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void C_ccall f_36018(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_36018,c,av);}
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
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);}}

/* k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_36024(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_36024,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_36029,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word)li1051),tmp=(C_word)a,a+=9,tmp));
t5=((C_word*)t3)[1];
f_36029(t5,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);}

/* loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void f_36029(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_36029,3,t0,t1,t2);}
a=C_alloc(10);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_36033,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
/* library.scm:7001: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void C_ccall f_36033(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_36033,c,av);}
a=C_alloc(9);
t2=C_eqp(t1,C_make_character(10));
t3=(C_truep(t2)?t2:C_eqp(t1,C_SCHEME_END_OF_FILE));
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_36045,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* library.scm:7004: get/clear-str */
t5=((C_word*)t0)[7];
f_36010(t5,t4);}
else{
t4=C_eqp(t1,C_make_character(35));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_36164,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp);
/* library.scm:7023: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36231,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* library.scm:7033: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=t5;
av2[2]=t1;
av2[3]=((C_word*)((C_word*)t0)[8])[1];
tp(4,av2);}}}}

/* k36043 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_36045(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_36045,c,av);}
a=C_alloc(17);
t2=C_eofp(((C_word*)t0)[2]);
t3=(C_truep(t2)?t2:C_i_string_equal_p(((C_word*)t0)[3],t1));
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36057,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_eofp(((C_word*)t0)[2]))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36142,a[2]=t4,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t6=C_a_i_list(&a,3,lf[1356],((C_word*)t0)[3],lf[1357]);
/* library.scm:6925: ##sys#print-to-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1086]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[1086]+1);
av2[1]=t5;
av2[2]=t6;
tp(3,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_36057(2,av2);}}}
else{
t4=C_a_i_cons(&a,2,t1,((C_word*)t0)[5]);
t5=C_a_i_cons(&a,2,C_make_character(10),t4);
/* library.scm:7021: loop */
t6=((C_word*)((C_word*)t0)[7])[1];
f_36029(t6,((C_word*)t0)[4],t5);}}

/* k36055 in k36043 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in ... */
static void C_ccall f_36057(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_36057,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36064,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_i_cdr(((C_word*)t0)[3]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36070,a[2]=t5,a[3]=((C_word)li1050),tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_36070(t7,t2,t3,C_SCHEME_END_OF_LIST,lf[1361]);}

/* k36062 in k36055 in k36043 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in ... */
static void C_ccall f_36064(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_36064,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[1086],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* loop2 in k36055 in k36043 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in ... */
static void f_36070(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_36070,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t2))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36084,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7013: ##sys#print-to-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1086]);
C_word av2[3];
av2[0]=*((C_word*)lf[1086]+1);
av2[1]=t5;
av2[2]=t3;
tp(3,av2);}}
else{
t5=C_i_car(t2);
t6=C_i_stringp(t5);
t7=(C_truep(t6)?t6:C_charp(C_u_i_car(t2)));
if(C_truep(t7)){
t8=C_u_i_cdr(t2);
t9=C_u_i_car(t2);
t10=C_a_i_cons(&a,2,t9,t3);
/* library.scm:7015: loop2 */
t12=t1;
t13=t8;
t14=t10;
t15=t4;
t1=t12;
t2=t13;
t3=t14;
t4=t15;
goto loop;}
else{
t8=C_u_i_cdr(t2);
t9=C_u_i_car(t2);
t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_36123,a[2]=t4,a[3]=t9,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t8,tmp=(C_word)a,a+=7,tmp);
/* library.scm:7020: ##sys#print-to-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1086]);
C_word av2[3];
av2[0]=*((C_word*)lf[1086]+1);
av2[1]=t10;
av2[2]=t3;
tp(3,av2);}}}}

/* k36082 in loop2 in k36055 in k36043 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in ... */
static void C_ccall f_36084(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_36084,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[1360],t1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k36121 in loop2 in k36055 in k36043 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in ... */
static void C_ccall f_36123(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){
C_save_and_reclaim((void *)f_36123,c,av);}
a=C_alloc(18);
t2=C_a_i_list(&a,3,lf[1360],t1,((C_word*)t0)[2]);
t3=C_a_i_list(&a,3,lf[1360],((C_word*)t0)[3],t2);
/* library.scm:7017: loop2 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_36070(t4,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,t3);}

/* k36140 in k36043 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in ... */
static void C_ccall f_36142(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_36142,c,av);}
/* library.scm:7007: ##sys#read-warning */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[933]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[933]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k36162 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_36164(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_36164,c,av);}
a=C_alloc(9);
switch(t1){
case C_make_character(35):
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36173,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36180,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
/* library.scm:7026: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}
case C_make_character(123):
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_36197,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
/* library.scm:7028: read-escaped-sexp */
f_35820(t2,((C_word*)t0)[6],C_SCHEME_TRUE);
default:
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_36216,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
/* library.scm:7030: read-escaped-sexp */
f_35820(t2,((C_word*)t0)[6],C_SCHEME_FALSE);}}

/* k36171 in k36162 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in ... */
static void C_ccall f_36173(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_36173,c,av);}
/* library.scm:7027: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_36029(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k36178 in k36162 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in ... */
static void C_ccall f_36180(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_36180,c,av);}
/* library.scm:7026: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)((C_word*)t0)[3])[1];
tp(4,av2);}}

/* k36195 in k36162 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in ... */
static void C_ccall f_36197(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_36197,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_36205,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);
/* library.scm:7029: get/clear-str */
t3=((C_word*)t0)[5];
f_36010(t3,t2);}

/* k36203 in k36195 in k36162 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in ... */
static void C_ccall f_36205(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_36205,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
/* library.scm:7028: loop */
t4=((C_word*)((C_word*)t0)[4])[1];
f_36029(t4,((C_word*)t0)[5],t3);}

/* k36214 in k36162 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in ... */
static void C_ccall f_36216(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_36216,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_36224,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);
/* library.scm:7031: get/clear-str */
t3=((C_word*)t0)[5];
f_36010(t3,t2);}

/* k36222 in k36214 in k36162 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in ... */
static void C_ccall f_36224(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_36224,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
/* library.scm:7030: loop */
t4=((C_word*)((C_word*)t0)[4])[1];
f_36029(t4,((C_word*)t0)[5],t3);}

/* k36229 in k36031 in loop in k36022 in k36006 in k36003 in k36000 in k35879 in k35876 in ##sys#user-read-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_36231(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_36231,c,av);}
/* library.scm:7034: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_36029(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* chicken.process-context#change-directory in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_36293(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_36293,c,av);}
a=C_alloc(4);
t3=C_i_check_string_2(t2,lf[1367]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36300,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7084: ##sys#make-c-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[899]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[899]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[1367];
tp(4,av2);}}

/* k36298 in chicken.process-context#change-directory in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_36300(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_36300,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36303,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=C_eqp(C_chdir(t1),C_fix(0));
if(C_truep(t3)){
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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36313,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* library.scm:7086: ##sys#update-errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[845]);
C_word *av2=av;
av2[0]=*((C_word*)lf[845]+1);
av2[1]=t4;
tp(2,av2);}}}

/* k36301 in k36298 in chicken.process-context#change-directory in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_36303(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_36303,c,av);}
t2=((C_word*)t0)[2];
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);}}

/* k36311 in k36298 in chicken.process-context#change-directory in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_36313(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_36313,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36317,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36321,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* ##sys#peek-c-string */
t4=*((C_word*)lf[844]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_mpointer(&a,(void*)strerror(errno));
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k36315 in k36311 in k36298 in chicken.process-context#change-directory in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f_36317(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_36317,c,av);}
/* library.scm:7086: ##sys#signal-hook/errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[388]);
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=*((C_word*)lf[388]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[476];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[1367];
av2[5]=t1;
av2[6]=((C_word*)t0)[4];
tp(7,av2);}}

/* k36319 in k36311 in k36298 in chicken.process-context#change-directory in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f_36321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_36321,c,av);}
/* library.scm:7087: scheme#string-append */
t2=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1368];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* ##sys#change-directory-hook in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_36324(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_36324,c,av);}
/* library.scm:7091: change-directory */
t3=C_fast_retrieve(lf[1366]);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_36332(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(30,c,4)))){
C_save_and_reclaim((void *)f_36332,c,av);}
a=C_alloc(30);
t2=C_mutate((C_word*)lf[1370]+1 /* (set! chicken.process-context#current-directory ...) */,t1);
t3=C_mutate((C_word*)lf[1371]+1 /* (set! chicken.process-context#get-environment-variable ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36341,a[2]=((C_word)li1055),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[1373]+1 /* (set! chicken.process-context#set-environment-variable! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36362,a[2]=((C_word)li1056),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[1375]+1 /* (set! chicken.process-context#unset-environment-variable! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36382,a[2]=((C_word)li1057),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[1377]+1 /* (set! chicken.process-context#get-environment-variables ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36392,a[2]=((C_word)li1060),tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[1378]+1 /* (set! chicken.process-context#executable-pathname ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36457,a[2]=((C_word)li1061),tmp=(C_word)a,a+=3,tmp));
t8=C_mutate((C_word*)lf[1379]+1 /* (set! chicken.process-context#argc+argv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36464,a[2]=((C_word)li1062),tmp=(C_word)a,a+=3,tmp));
t9=C_SCHEME_FALSE;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_mutate((C_word*)lf[1380]+1 /* (set! chicken.process-context#argv ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36476,a[2]=t10,a[3]=((C_word)li1064),tmp=(C_word)a,a+=4,tmp));
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36516,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41509,a[2]=t12,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7178: argv */
t14=C_fast_retrieve(lf[1380]);{
C_word *av2=av;
av2[0]=t14;
av2[1]=t13;
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}

/* chicken.process-context#get-environment-variable in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_36341(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_36341,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36349,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7118: ##sys#make-c-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[899]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[899]+1);
av2[1]=t3;
av2[2]=t2;
av2[3]=lf[1372];
tp(4,av2);}}

/* k36347 in chicken.process-context#get-environment-variable in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_36349(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_36349,c,av);}
a=C_alloc(5);
t2=C_a_i_bytevector(&a,1,C_fix(3));
/* library.scm:7115: ##sys#peek-c-string */
t3=*((C_word*)lf[844]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=stub8255(t2,t1);
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* chicken.process-context#set-environment-variable! in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_36362(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_36362,c,av);}
a=C_alloc(4);
t4=C_i_check_string_2(t2,lf[1374]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36370,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7126: ##sys#make-c-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[899]);
C_word *av2=av;
av2[0]=*((C_word*)lf[899]+1);
av2[1]=t5;
av2[2]=t2;
av2[3]=lf[1374];
tp(4,av2);}}

/* k36368 in chicken.process-context#set-environment-variable! in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_36370(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_36370,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36374,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[3])){
t3=C_i_check_string_2(((C_word*)t0)[3],lf[1374]);
/* library.scm:7130: ##sys#make-c-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[899]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[899]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[1374];
tp(4,av2);}}
else{
t3=C_i_setenv(t1,C_SCHEME_FALSE);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k36372 in k36368 in chicken.process-context#set-environment-variable! in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f_36374(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_36374,c,av);}
t2=C_i_setenv(((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.process-context#unset-environment-variable! in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_36382(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_36382,c,av);}
a=C_alloc(3);
t3=C_i_check_string_2(t2,lf[1376]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36390,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7136: ##sys#make-c-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[899]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[899]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[1376];
tp(4,av2);}}

/* k36388 in chicken.process-context#unset-environment-variable! in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_36390(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_36390,c,av);}
t2=C_i_setenv(t1,C_SCHEME_FALSE);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.process-context#get-environment-variables in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_36392(C_word c,C_word *av){
C_word tmp;
C_word t0=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);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_36392,c,av);}
a=C_alloc(6);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36398,a[2]=t3,a[3]=((C_word)li1059),tmp=(C_word)a,a+=4,tmp));
t5=((C_word*)t3)[1];
f_36398(t5,t1,C_fix(0));}

/* loop in chicken.process-context#get-environment-variables in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void f_36398(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_36398,3,t0,t1,t2);}
a=C_alloc(10);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36402,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t4=C_a_i_bytevector(&a,1,C_fix(3));
t5=C_i_foreign_fixnum_argumentp(t2);
/* library.scm:7121: ##sys#peek-and-free-c-string */
t6=*((C_word*)lf[1307]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t3;
av2[2]=stub8263(t4,t5);
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}

/* k36400 in loop in chicken.process-context#get-environment-variables in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f_36402(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_36402,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
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_36410,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word)li1058),tmp=(C_word)a,a+=7,tmp));
t5=((C_word*)t3)[1];
f_36410(t5,((C_word*)t0)[4],C_fix(0));}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* scan in k36400 in loop in chicken.process-context#get-environment-variables in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in ... */
static void f_36410(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_36410,3,t0,t1,t2);}
a=C_alloc(7);
t3=C_i_string_ref(((C_word*)t0)[2],t2);
if(C_truep(C_u_i_char_equalp(C_make_character(61),t3))){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_36438,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* library.scm:7147: ##sys#substring */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[495]+1));
C_word av2[5];
av2[0]=*((C_word*)lf[495]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[2];
av2[3]=C_fix(0);
av2[4]=t2;
tp(5,av2);}}
else{
/* library.scm:7150: scan */
t6=t1;
t7=C_fixnum_plus(t2,C_fix(1));
t1=t6;
t2=t7;
goto loop;}}

/* k36428 in k36440 in k36436 in scan in k36400 in loop in chicken.process-context#get-environment-variables in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_36430(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_36430,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);}}

/* k36436 in scan in k36400 in loop in chicken.process-context#get-environment-variables in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36438(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_36438,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_36442,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* library.scm:7148: ##sys#substring */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[495]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[495]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_fixnum_plus(((C_word*)t0)[6],C_fix(1));
av2[4]=C_u_i_string_length(((C_word*)t0)[5]);
tp(5,av2);}}

/* k36440 in k36436 in scan in k36400 in loop in chicken.process-context#get-environment-variables in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_36442(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_36442,c,av);}
a=C_alloc(7);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36430,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7149: loop */
t4=((C_word*)((C_word*)t0)[4])[1];
f_36398(t4,t3,C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}

/* chicken.process-context#executable-pathname in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_36457(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_36457,c,av);}
a=C_alloc(5);
t2=C_a_i_bytevector(&a,1,C_fix(3));
/* library.scm:7160: ##sys#peek-and-free-c-string */
t3=*((C_word*)lf[1307]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=stub8287(t2);
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* chicken.process-context#argc+argv in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_36464(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_36464,c,av);}
a=C_alloc(3);
/* library.scm:7163: ##sys#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=C_fix((C_word)C_main_argc);
av2[3]=C_mpointer_or_false(&a,(void*)C_main_argv);
C_values(4,av2);}}

/* chicken.process-context#argv in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_36476(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_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);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_36476,c,av);}
a=C_alloc(10);
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36484,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=C_fixnum_difference(C_fix((C_word)C_main_argc),C_fix(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_36490,a[2]=t5,a[3]=((C_word)li1063),tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_36490(t7,t2,t3,C_SCHEME_END_OF_LIST);}}

/* k36482 in chicken.process-context#argv in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_36484(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_36484,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_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* doloop8299 in chicken.process-context#argv in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void f_36490(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_36490,4,t0,t1,t2,t3);}
a=C_alloc(11);
if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_fixnum_difference(t2,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_36512,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
t6=C_a_i_bytevector(&a,1,C_fix(3));
/* library.scm:7167: ##sys#peek-c-string */
t7=*((C_word*)lf[844]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=t5;
av2[2]=stub8295(t6,t2);
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}

/* k36510 in doloop8299 in chicken.process-context#argv in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f_36512(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_36512,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
t3=((C_word*)((C_word*)t0)[3])[1];
f_36490(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_36516(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_36516,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[1381]+1 /* (set! chicken.process-context#program-name ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36520,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41425,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7187: argv */
t5=C_fast_retrieve(lf[1380]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_36520(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
C_save_and_reclaim((void *)f_36520,c,av);}
a=C_alloc(20);
t2=C_mutate((C_word*)lf[1382]+1 /* (set! chicken.process-context#command-line-arguments ...) */,t1);
t3=C_a_i_provide(&a,1,lf[1383]);
t4=C_mutate((C_word*)lf[1384]+1 /* (set! chicken.gc#current-gc-milliseconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36522,a[2]=((C_word)li1065),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[1385]+1 /* (set! chicken.gc#set-gc-report! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36525,a[2]=((C_word)li1066),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[1386]+1 /* (set! chicken.gc#memory-statistics ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36528,a[2]=((C_word)li1067),tmp=(C_word)a,a+=3,tmp));
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36557,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t8=C_fixnum_times(C_fix(2),C_fix((C_word)C_max_pending_finalizers));
/* library.scm:7243: ##sys#make-vector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[808]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[808]+1);
av2[1]=t7;
av2[2]=C_fixnum_plus(t8,C_fix(1));
av2[3]=C_SCHEME_UNDEFINED;
tp(4,av2);}}

/* chicken.gc#current-gc-milliseconds in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f_36522(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_36522,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_accumulated_gc_time();
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.gc#set-gc-report! in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f_36525(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_36525,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_set_gc_report(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.gc#memory-statistics in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f_36528(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_36528,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36532,a[2]=C_SCHEME_UNDEFINED,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7233: ##sys#gc */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[389]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[389]+1);
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
tp(3,av2);}}

/* k36530 in chicken.gc#memory-statistics in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in ... */
static void C_ccall f_36532(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_36532,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_36535,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7234: ##sys#memory-info */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[397]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[397]+1);
av2[1]=t3;
tp(2,av2);}}

/* k36533 in k36530 in chicken.gc#memory-statistics in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36535(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
C_save_and_reclaim((void *)f_36535,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=C_slot(t1,C_fix(0));
t4=C_fixnum_divide(t3,C_fix(2));
t5=C_fixnum_difference(t4,((C_word*)t2)[2]);
t6=C_slot(t1,C_fix(1));
t7=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_i_vector3(&a,3,t4,t5,t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f_36557(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,4)))){
C_save_and_reclaim((void *)f_36557,c,av);}
a=C_alloc(26);
t2=C_mutate((C_word*)lf[1111]+1 /* (set! ##sys#pending-finalizers ...) */,t1);
t3=C_i_set_i_slot(C_fast_retrieve(lf[1111]),C_fix(0),C_fix(0));
t4=C_mutate((C_word*)lf[1387]+1 /* (set! ##sys#set-finalizer! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_register_finalizer,a[2]=((C_word)li1068),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[1388]+1 /* (set! ##sys#init-finalizer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36563,a[2]=((C_word)li1069),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[1394]+1 /* (set! chicken.gc#set-finalizer! ...) */,C_fast_retrieve(lf[1388]));
t7=C_a_i_vector1(&a,1,lf[1395]);
t8=C_mutate(&lf[1396] /* (set! chicken.gc#finalizer-tag ...) */,t7);
t9=C_mutate(&lf[1397] /* (set! chicken.gc#finalizer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36633,a[2]=((C_word)li1070),tmp=(C_word)a,a+=3,tmp));
t10=C_mutate((C_word*)lf[1398]+1 /* (set! chicken.gc#make-finalizer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36649,a[2]=((C_word)li1076),tmp=(C_word)a,a+=3,tmp));
t11=C_mutate((C_word*)lf[1399]+1 /* (set! chicken.gc#add-to-finalizer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36727,a[2]=((C_word)li1078),tmp=(C_word)a,a+=3,tmp));
t12=C_SCHEME_FALSE;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_mutate((C_word*)lf[1112]+1 /* (set! ##sys#run-pending-finalizers ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36774,a[2]=t13,a[3]=((C_word)li1087),tmp=(C_word)a,a+=4,tmp));
t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36941,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7351: scheme#make-parameter */
t16=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t16;
av2[1]=t15;
av2[2]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}

/* ##sys#init-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in ... */
static void C_ccall f_36563(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_36563,c,av);}
a=C_alloc(11);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36567,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_fixnum_greater_or_equal_p(C_i_live_finalizer_count(),C_fix((C_word)C_max_pending_finalizers)))){
t5=C_fixnum_times(C_fix(2),C_fix((C_word)C_max_pending_finalizers));
if(C_truep(C_resize_pending_finalizers(t5))){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_36584,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t7=C_fixnum_times(C_fix(2),C_fix((C_word)C_max_pending_finalizers));
/* library.scm:7255: ##sys#vector-resize */
f_24210(t6,C_fast_retrieve(lf[1111]),C_fixnum_plus(t7,C_fix(1)),C_SCHEME_UNDEFINED);}
else{
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36614,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_debug_modep())){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36624,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7271: string-append */
t8=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=lf[1392];
av2[3]=C_i_live_finalizer_count();
av2[4]=lf[1393];
((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}
else{
/* library.scm:7276: ##sys#force-finalizers */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1108]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1108]+1);
av2[1]=t4;
tp(2,av2);}}}}
else{
/* library.scm:7277: ##sys#set-finalizer! */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1387]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1387]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
tp(4,av2);}}}

/* k36565 in ##sys#init-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36567(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_36567,c,av);}
/* library.scm:7277: ##sys#set-finalizer! */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1387]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1387]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}

/* k36582 in ##sys#init-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36584(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_36584,c,av);}
a=C_alloc(7);
t2=C_mutate((C_word*)lf[1111]+1 /* (set! ##sys#pending-finalizers ...) */,t1);
if(C_truep(C_i_debug_modep())){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36594,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36598,a[2]=t3,a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7262: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t4;
av2[2]=C_i_live_finalizer_count();
tp(3,av2);}}
else{
/* library.scm:7277: ##sys#set-finalizer! */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1387]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1387]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
tp(4,av2);}}}

/* k36592 in k36582 in ##sys#init-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_36594(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_36594,c,av);}
/* library.scm:7259: ##sys#print */
t2=*((C_word*)lf[1027]+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*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k36596 in k36582 in ##sys#init-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_36598(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_36598,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_36602,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7265: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t3;
av2[2]=C_fix((C_word)C_max_pending_finalizers);
tp(3,av2);}}

/* k36600 in k36596 in k36582 in ##sys#init-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_36602(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_36602,c,av);}
t2=((C_word*)t0)[2];
/* library.scm:7260: string-append */
t3=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=lf[1389];
av2[3]=((C_word*)t2)[3];
av2[4]=lf[1390];
av2[5]=t1;
av2[6]=lf[1391];
((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}}

/* k36612 in ##sys#init-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36614(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_36614,c,av);}
/* library.scm:7276: ##sys#force-finalizers */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1108]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1108]+1);
av2[1]=((C_word*)t0)[2];
tp(2,av2);}}

/* k36622 in ##sys#init-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36624(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_36624,c,av);}
/* library.scm:7270: ##sys#print */
t2=*((C_word*)lf[1027]+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*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* chicken.gc#finalizer? in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in ... */
static void C_ccall f_36633(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_36633,c,av);}
t3=C_i_pairp(t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_eqp(C_retrieve2(lf[1396],C_text("chicken.gc#finalizer-tag")),C_slot(t2,C_fix(0))):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.gc#make-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in ... */
static void C_ccall f_36649(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_36649,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36653,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7287: ##sys#make-event-queue */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1343]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1343]+1);
av2[1]=t3;
tp(2,av2);}}

/* k36651 in chicken.gc#make-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36653(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
C_save_and_reclaim((void *)f_36653,c,av);}
a=C_alloc(24);
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|3,a[1]=(C_word)f_36655,a[2]=t1,a[3]=((C_word)li1071),tmp=(C_word)a,a+=4,tmp));
t7=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36661,a[2]=t3,a[3]=((C_word)li1072),tmp=(C_word)a,a+=4,tmp));
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36668,a[2]=t1,a[3]=t5,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_36704,a[2]=t10,a[3]=t5,a[4]=((C_word)li1075),tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_36704(t12,t8,((C_word*)t0)[3]);}

/* handler in k36651 in chicken.gc#make-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_36655(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_36655,c,av);}
/* library.scm:7288: ##sys#add-event-to-queue! */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1345]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1345]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
tp(4,av2);}}

/* handle in k36651 in chicken.gc#make-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_36661(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_36661,c,av);}
/* library.scm:7289: ##sys#init-finalizer */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1388]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1388]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)((C_word*)t0)[2])[1];
tp(4,av2);}}

/* k36666 in k36651 in chicken.gc#make-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_36668(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_36668,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36673,a[2]=((C_word*)t0)[2],a[3]=((C_word)li1073),tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36694,a[2]=((C_word*)t0)[3],a[3]=((C_word)li1074),tmp=(C_word)a,a+=4,tmp);
/* library.scm:7291: ##sys#decorate-lambda */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[903]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[903]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=t2;
av2[3]=C_retrieve2(lf[1397],C_text("chicken.gc#finalizer?"));
av2[4]=t3;
tp(5,av2);}}

/* a36672 in k36666 in k36651 in chicken.gc#make-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_36673(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_36673,c,av);}
if(C_truep(C_rest_nullp(c,2))){
/* library.scm:7295: ##sys#get-next-event */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1346]);
C_word av2[3];
av2[0]=*((C_word*)lf[1346]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}
else{
if(C_truep(C_get_rest_arg(c,2,av,2,t0))){
/* library.scm:7294: ##sys#wait-for-next-event */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1347]);
C_word av2[3];
av2[0]=*((C_word*)lf[1347]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}
else{
/* library.scm:7295: ##sys#get-next-event */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1346]);
C_word av2[3];
av2[0]=*((C_word*)lf[1346]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}}}

/* a36693 in k36666 in k36651 in chicken.gc#make-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_36694(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_36694,c,av);}
a=C_alloc(3);
t4=C_a_i_cons(&a,2,C_retrieve2(lf[1396],C_text("chicken.gc#finalizer-tag")),((C_word*)((C_word*)t0)[2])[1]);
t5=C_i_setslot(t2,t3,t4);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* for-each-loop8386 in k36651 in chicken.gc#make-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void f_36704(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_36704,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_36714,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7290: g8387 */
t4=((C_word*)((C_word*)t0)[3])[1];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
f_36661(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k36712 in for-each-loop8386 in k36651 in chicken.gc#make-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_36714(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_36714,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_36704(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.gc#add-to-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in ... */
static void C_ccall f_36727(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,3)))){
C_save_and_reclaim((void*)f_36727,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+5);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36731,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_closurep(t2))){
/* library.scm:7303: ##sys#lambda-decoration */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[904]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=C_retrieve2(lf[1397],C_text("chicken.gc#finalizer?"));
tp(4,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_36731(2,av2);}}}

/* k36729 in chicken.gc#add-to-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36731(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_36731,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36734,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t1)){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_36734(2,av2);}}
else{
/* library.scm:7305: chicken.base#error */
t3=*((C_word*)lf[249]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1400];
av2[3]=lf[1401];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k36732 in k36729 in chicken.gc#add-to-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_36734(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_36734,c,av);}
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_36742,a[2]=t4,a[3]=t2,a[4]=((C_word)li1077),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_36742(t6,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* for-each-loop8428 in k36732 in k36729 in chicken.gc#add-to-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void f_36742(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_36742,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_36752,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7307: g8429 */
t4=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k36750 in for-each-loop8428 in k36732 in k36729 in chicken.gc#add-to-finalizer in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void C_ccall f_36752(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_36752,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_36742(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in ... */
static void C_ccall f_36774(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){
C_save_and_reclaim((void *)f_36774,c,av);}
a=C_alloc(17);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36778,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[2])[1]))){
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[1093]));
t5=C_slot(C_fast_retrieve(lf[1111]),C_fix(0));
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36809,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_debug_modep())){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36908,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36912,a[2]=t7,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7320: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t8;
av2[2]=t5;
tp(3,av2);}}
else{
t7=t6;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_UNDEFINED;
f_36809(2,av2);}}}
else{
if(C_truep(t2)){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t2;
f_36778(2,av2);}}
else{
t4=C_eqp(((C_word*)((C_word*)t0)[2])[1],C_fast_retrieve(lf[1093]));
if(C_truep(t4)){
/* library.scm:7341: ##sys#signal-hook */
t5=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[250];
av2[3]=lf[1112];
av2[4]=lf[1407];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
/* library.scm:7346: ##sys#thread-yield! */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1338]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1338]+1);
av2[1]=t3;
tp(2,av2);}}}}}

/* k36776 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36778(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_36778,c,av);}
t2=C_i_not(((C_word*)t0)[2]);
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{
if(C_truep(C_i_closurep(((C_word*)t0)[2]))){
/* library.scm:7348: state */
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{
if(C_truep(((C_word*)t0)[2])){
/* library.scm:7349: ##sys#context-switch */{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[2];
C_context_switch(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}}

/* k36807 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36809(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_36809,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36812,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|4,a[1]=(C_word)f_36821,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word)li1086),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_36821(t6,t2,C_fix(0));}

/* k36810 in k36807 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_36812(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_36812,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36815,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7336: vector-fill! */
t3=*((C_word*)lf[122]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_fast_retrieve(lf[1111]);
av2[3]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k36813 in k36810 in k36807 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_36815(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_36815,c,av);}
t2=((C_word*)t0)[2];
t3=C_i_set_i_slot(C_fast_retrieve(lf[1111]),C_fix(0),C_fix(0));
t4=C_set_block_item(((C_word*)t2)[2],0,C_SCHEME_FALSE);
t5=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
f_36778(2,av2);}}

/* doloop8460 in k36807 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void f_36821(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_36821,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
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_fixnum_times(t2,C_fix(2));
t4=C_fixnum_plus(C_fix(1),t3);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36834,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36846,a[2]=t4,a[3]=((C_word)li1085),tmp=(C_word)a,a+=4,tmp);
/* library.scm:7332: scheme#call-with-current-continuation */
t7=*((C_word*)lf[177]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t5;
av2[2]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}

/* k36832 in doloop8460 in k36807 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_36834(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_36834,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36837,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7331: g8467 */
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* k36835 in k36832 in doloop8460 in k36807 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void C_ccall f_36837(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_36837,c,av);}
t2=((C_word*)t0)[2];
t3=((C_word*)((C_word*)t2)[2])[1];
f_36821(t3,((C_word*)t2)[3],C_fixnum_plus(((C_word*)t2)[4],C_fix(1)));}

/* a36845 in doloop8460 in k36807 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_36846(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_36846,c,av);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36852,a[2]=t2,a[3]=((C_word)li1080),tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36864,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li1084),tmp=(C_word)a,a+=5,tmp);
/* library.scm:7332: chicken.condition#with-exception-handler */
t5=C_fast_retrieve(lf[1076]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* a36851 in a36845 in doloop8460 in k36807 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void C_ccall f_36852(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_36852,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36858,a[2]=t2,a[3]=((C_word)li1079),tmp=(C_word)a,a+=4,tmp);
/* library.scm:7332: k8464 */
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a36857 in a36851 in a36845 in doloop8460 in k36807 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_36858(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_36858,c,av);}
/* library.scm:7333: ##sys#show-exception-warning */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1205]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[1205]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[1402];
av2[4]=C_SCHEME_FALSE;
tp(5,av2);}}

/* a36863 in a36845 in doloop8460 in k36807 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void C_ccall f_36864(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_36864,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36870,a[2]=((C_word*)t0)[2],a[3]=((C_word)li1081),tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36887,a[2]=((C_word*)t0)[3],a[3]=((C_word)li1083),tmp=(C_word)a,a+=4,tmp);
/* library.scm:7332: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}

/* a36869 in a36863 in a36845 in doloop8460 in k36807 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_36870(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_36870,c,av);}
t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1));
/* library.scm:7332: g8471 */
t3=C_slot(C_fast_retrieve(lf[1111]),t2);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=C_slot(C_fast_retrieve(lf[1111]),((C_word*)t0)[2]);
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}

/* a36886 in a36863 in a36845 in doloop8460 in k36807 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_36887(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_36887,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36893,a[2]=t2,a[3]=((C_word)li1082),tmp=(C_word)a,a+=4,tmp);
/* library.scm:7332: k8464 */
t4=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a36892 in a36886 in a36863 in a36845 in doloop8460 in k36807 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in ... */
static void C_ccall f_36893(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_36893,c,av);}{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
C_apply_values(3,av2);}}

/* k36906 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36908(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_36908,c,av);}
/* library.scm:7319: ##sys#print */
t2=*((C_word*)lf[1027]+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*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k36910 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36912(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_36912,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_36916,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7322: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t3;
av2[2]=C_i_live_finalizer_count();
tp(3,av2);}}

/* k36914 in k36910 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_36916(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_36916,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+4,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36920,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7325: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t4;
av2[2]=C_i_allocated_finalizer_count();
tp(3,av2);}}

/* k36918 in k36914 in k36910 in ##sys#run-pending-finalizers in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_36920(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_36920,c,av);}
t2=((C_word*)t0)[2];
/* library.scm:7320: string-append */
t3=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=lf[1403];
av2[3]=((C_word*)t2)[3];
av2[4]=lf[1404];
av2[5]=((C_word*)t2)[4];
av2[6]=lf[1405];
av2[7]=t1;
av2[8]=lf[1406];
((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}}

/* k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in ... */
static void C_ccall f_36941(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,6)))){
C_save_and_reclaim((void *)f_36941,c,av);}
a=C_alloc(26);
t2=C_mutate((C_word*)lf[1109]+1 /* (set! chicken.gc#force-finalizers ...) */,t1);
t3=C_mutate((C_word*)lf[1108]+1 /* (set! ##sys#force-finalizers ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36943,a[2]=((C_word)li1089),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[1408]+1 /* (set! chicken.gc#gc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36971,a[2]=((C_word)li1090),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[968]+1 /* (set! ##sys#list->vector ...) */,*((C_word*)lf[119]+1));
t6=C_mutate((C_word*)lf[445]+1 /* (set! ##sys#list ...) */,*((C_word*)lf[46]+1));
t7=C_mutate((C_word*)lf[1409]+1 /* (set! ##sys#length ...) */,*((C_word*)lf[47]+1));
t8=C_mutate((C_word*)lf[1410]+1 /* (set! ##sys#cons ...) */,*((C_word*)lf[12]+1));
t9=C_mutate((C_word*)lf[305]+1 /* (set! ##sys#append ...) */,*((C_word*)lf[452]+1));
t10=C_mutate((C_word*)lf[1411]+1 /* (set! ##sys#vector ...) */,*((C_word*)lf[121]+1));
t11=C_mutate((C_word*)lf[1412]+1 /* (set! ##sys#apply ...) */,*((C_word*)lf[174]+1));
t12=C_mutate((C_word*)lf[1413]+1 /* (set! ##sys#values ...) */,*((C_word*)lf[175]+1));
t13=C_mutate((C_word*)lf[1414]+1 /* (set! ##sys#equal? ...) */,*((C_word*)lf[6]+1));
t14=C_mutate((C_word*)lf[1415]+1 /* (set! ##sys#car ...) */,*((C_word*)lf[13]+1));
t15=C_mutate((C_word*)lf[1416]+1 /* (set! ##sys#cdr ...) */,*((C_word*)lf[14]+1));
t16=C_mutate((C_word*)lf[1417]+1 /* (set! ##sys#pair? ...) */,*((C_word*)lf[11]+1));
t17=C_mutate((C_word*)lf[1418]+1 /* (set! ##sys#vector? ...) */,*((C_word*)lf[114]+1));
t18=C_mutate((C_word*)lf[1419]+1 /* (set! ##sys#vector->list ...) */,*((C_word*)lf[120]+1));
t19=C_mutate((C_word*)lf[1420]+1 /* (set! ##sys#vector-length ...) */,*((C_word*)lf[115]+1));
t20=C_mutate((C_word*)lf[1421]+1 /* (set! ##sys#vector-ref ...) */,*((C_word*)lf[116]+1));
t21=C_mutate((C_word*)lf[1422]+1 /* (set! ##sys#>= ...) */,*((C_word*)lf[99]+1));
t22=C_mutate((C_word*)lf[1423]+1 /* (set! ##sys#= ...) */,*((C_word*)lf[96]+1));
t23=C_mutate((C_word*)lf[1424]+1 /* (set! ##sys#+ ...) */,*((C_word*)lf[88]+1));
t24=C_mutate((C_word*)lf[1425]+1 /* (set! ##sys#eq? ...) */,*((C_word*)lf[4]+1));
t25=C_mutate((C_word*)lf[1426]+1 /* (set! ##sys#eqv? ...) */,*((C_word*)lf[5]+1));
t26=C_mutate((C_word*)lf[1427]+1 /* (set! ##sys#list? ...) */,*((C_word*)lf[59]+1));
t27=C_mutate((C_word*)lf[1428]+1 /* (set! ##sys#null? ...) */,*((C_word*)lf[45]+1));
t28=C_mutate((C_word*)lf[1429]+1 /* (set! ##sys#map-n ...) */,*((C_word*)lf[227]+1));
t29=C_mutate((C_word*)lf[1430]+1 /* (set! ##sys#make-locative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37014,a[2]=((C_word)li1091),tmp=(C_word)a,a+=3,tmp));
t30=C_a_i_provide(&a,1,lf[1443]);
t31=C_mutate((C_word*)lf[1444]+1 /* (set! chicken.plist#put! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37281,a[2]=((C_word)li1092),tmp=(C_word)a,a+=3,tmp));
t32=C_mutate((C_word*)lf[1446]+1 /* (set! chicken.plist#get ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37287,a[2]=((C_word)li1093),tmp=(C_word)a,a+=3,tmp));
t33=C_mutate((C_word*)lf[1448]+1 /* (set! ##sys#put! ...) */,C_fast_retrieve(lf[1444]));
t34=C_mutate((C_word*)lf[1449]+1 /* (set! ##sys#get ...) */,C_fast_retrieve(lf[1446]));
t35=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37306,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7484: chicken.base#getter-with-setter */
t36=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t36;
av2[1]=t35;
av2[2]=C_fast_retrieve(lf[1446]);
av2[3]=C_fast_retrieve(lf[1444]);
((C_proc)(void*)(*((C_word*)t36+1)))(4,av2);}}

/* ##sys#force-finalizers in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36943(C_word c,C_word *av){
C_word tmp;
C_word t0=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);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_36943,c,av);}
a=C_alloc(6);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36949,a[2]=t3,a[3]=((C_word)li1088),tmp=(C_word)a,a+=4,tmp));
t5=((C_word*)t3)[1];
f_36949(t5,t1);}

/* loop in ##sys#force-finalizers in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void f_36949(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_36949,2,t0,t1);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36953,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7355: ##sys#gc */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[389]+1));
C_word av2[2];
av2[0]=*((C_word*)lf[389]+1);
av2[1]=t2;
tp(2,av2);}}

/* k36951 in loop in ##sys#force-finalizers in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_36953(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_36953,c,av);}
a=C_alloc(3);
t2=C_slot(C_fast_retrieve(lf[1111]),C_fix(0));
if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36962,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7357: ##sys#run-pending-finalizers */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1112]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[1112]+1);
av2[1]=t3;
av2[2]=C_SCHEME_FALSE;
tp(3,av2);}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k36960 in k36951 in loop in ##sys#force-finalizers in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void C_ccall f_36962(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_36962,c,av);}
t2=((C_word*)t0)[2];
/* library.scm:7358: loop */
t3=((C_word*)((C_word*)t2)[2])[1];
f_36949(t3,((C_word*)t2)[3]);}

/* chicken.gc#gc in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_36971(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){
C_save_and_reclaim((void*)f_36971,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
if(C_truep(C_i_pairp(t2))){
t3=C_get_rest_arg(c,2,av,2,t0);
if(C_truep(t3)){
/* library.scm:7364: ##sys#force-finalizers */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1108]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1108]+1);
av2[1]=t1;
tp(2,av2);}}
else{
/* library.scm:7365: ##sys#gc */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[389]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[389]+1);
av2[1]=t1;
av2[2]=t3;
tp(3,av2);}}}
else{
/* library.scm:7365: ##sys#gc */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[389]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[389]+1);
av2[1]=t1;
av2[2]=C_SCHEME_FALSE;
tp(3,av2);}}}

/* ##sys#make-locative in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_37014(C_word c,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 t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_37014,c,av);}
a=C_alloc(5);
if(C_truep(C_immp(t2))){
/* library.scm:7398: ##sys#signal-hook */
t6=*((C_word*)lf[127]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[309];
av2[3]=t5;
av2[4]=lf[1431];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}
else{
t6=C_i_vectorp(t2);
t7=(C_truep(t6)?t6:C_i_pairp(t2));
if(C_truep(t7)){
t8=C_block_size(t2);
t9=C_i_check_range_2(t3,C_fix(0),t8,t5);
t10=t1;{
C_word *av2=av;
av2[0]=t10;
av2[1]=C_a_i_make_locative(&a,4,C_fix(0),t2,t3,t4);
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t8=(C_truep(C_blockp(t2))?C_bytevectorp(t2):C_SCHEME_FALSE);
if(C_truep(t8)){
t9=C_block_size(t2);
t10=C_i_check_range_2(t3,C_fix(0),t9,t5);
t11=C_a_i_make_locative(&a,4,C_fix(2),t2,t3,t4);
t12=t1;{
C_word *av2=av;
av2[0]=t12;
av2[1]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
if(C_truep(C_structurep(t2))){
t9=C_slot(t2,C_fix(0));
t10=C_eqp(t9,lf[1432]);
if(C_truep(t10)){
t11=C_slot(t2,C_fix(1));
t12=C_block_size(t11);
t13=C_i_check_range_2(t3,C_fix(0),t12,t5);
t14=C_a_i_make_locative(&a,4,C_fix(2),t11,t3,t4);
t15=t1;{
C_word *av2=av;
av2[0]=t15;
av2[1]=t14;
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
else{
t11=C_eqp(t9,lf[1433]);
if(C_truep(t11)){
t12=C_slot(t2,C_fix(1));
t13=C_block_size(t12);
t14=C_i_check_range_2(t3,C_fix(0),t13,t5);
t15=t1;{
C_word *av2=av;
av2[0]=t15;
av2[1]=C_a_i_make_locative(&a,4,C_fix(3),t12,t3,t4);
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
else{
t12=C_eqp(t9,lf[1434]);
if(C_truep(t12)){
t13=C_slot(t2,C_fix(1));
t14=C_block_size(t13);
t15=C_i_check_range_2(t3,C_fix(0),t14,t5);
t16=C_a_i_make_locative(&a,4,C_fix(4),t13,t3,t4);
t17=t1;{
C_word *av2=av;
av2[0]=t17;
av2[1]=t16;
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}
else{
t13=C_eqp(t9,lf[1435]);
if(C_truep(t13)){
t14=C_slot(t2,C_fix(1));
t15=C_block_size(t14);
t16=C_i_check_range_2(t3,C_fix(0),t15,t5);
t17=t1;{
C_word *av2=av;
av2[0]=t17;
av2[1]=C_a_i_make_locative(&a,4,C_fix(5),t14,t3,t4);
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}
else{
t14=C_eqp(t9,lf[1436]);
if(C_truep(t14)){
t15=C_slot(t2,C_fix(1));
t16=C_block_size(t15);
t17=C_i_check_range_2(t3,C_fix(0),t16,t5);
t18=C_a_i_make_locative(&a,4,C_fix(6),t15,t3,t4);
t19=t1;{
C_word *av2=av;
av2[0]=t19;
av2[1]=t18;
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}
else{
t15=C_eqp(t9,lf[1437]);
if(C_truep(t15)){
t16=C_slot(t2,C_fix(1));
t17=C_block_size(t16);
t18=C_i_check_range_2(t3,C_fix(0),t17,t5);
t19=t1;{
C_word *av2=av;
av2[0]=t19;
av2[1]=C_a_i_make_locative(&a,4,C_fix(7),t16,t3,t4);
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}
else{
t16=C_eqp(t9,lf[1438]);
if(C_truep(t16)){
t17=C_slot(t2,C_fix(1));
t18=C_block_size(t17);
t19=C_i_check_range_2(t3,C_fix(0),t18,t5);
t20=C_a_i_make_locative(&a,4,C_fix(8),t17,t3,t4);
t21=t1;{
C_word *av2=av;
av2[0]=t21;
av2[1]=t20;
((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}
else{
t17=C_eqp(t9,lf[1439]);
if(C_truep(t17)){
t18=C_slot(t2,C_fix(1));
t19=C_block_size(t18);
t20=C_i_check_range_2(t3,C_fix(0),t19,t5);
t21=t1;{
C_word *av2=av;
av2[0]=t21;
av2[1]=C_a_i_make_locative(&a,4,C_fix(9),t18,t3,t4);
((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}
else{
t18=C_eqp(t9,lf[1440]);
if(C_truep(t18)){
t19=C_slot(t2,C_fix(1));
t20=C_block_size(t19);
t21=C_i_check_range_2(t3,C_fix(0),t20,t5);
t22=C_a_i_make_locative(&a,4,C_fix(10),t19,t3,t4);
t23=t1;{
C_word *av2=av;
av2[0]=t23;
av2[1]=t22;
((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}
else{
t19=C_eqp(t9,lf[1441]);
if(C_truep(t19)){
t20=C_slot(t2,C_fix(1));
t21=C_block_size(t20);
t22=C_i_check_range_2(t3,C_fix(0),t21,t5);
t23=t1;{
C_word *av2=av;
av2[0]=t23;
av2[1]=C_a_i_make_locative(&a,4,C_fix(11),t20,t3,t4);
((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}
else{
t20=C_block_size(t2);
t21=C_fixnum_difference(t20,C_fix(1));
t22=C_i_check_range_2(t3,C_fix(0),t21,t5);
t23=C_fixnum_plus(t3,C_fix(1));
t24=t1;{
C_word *av2=av;
av2[0]=t24;
av2[1]=C_a_i_make_locative(&a,4,C_fix(0),t2,t23,t4);
((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}}}}}}}}}}}}
else{
if(C_truep(C_i_stringp(t2))){
t9=C_slot(t2,C_fix(0));
t10=C_utf_position(t2,t3);
t11=C_slot(t2,C_fix(1));
t12=C_i_check_range_2(t3,C_fix(0),t11,t5);
t13=C_a_i_make_locative(&a,4,C_fix(1),t9,t10,t4);
t14=t1;{
C_word *av2=av;
av2[0]=t14;
av2[1]=t13;
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
else{
/* library.scm:7458: ##sys#signal-hook */
t9=*((C_word*)lf[127]+1);{
C_word *av2=av;
av2[0]=t9;
av2[1]=t1;
av2[2]=lf[309];
av2[3]=t5;
av2[4]=lf[1442];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}}}}}}}

/* chicken.plist#put! in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_37281(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
C_save_and_reclaim((void *)f_37281,c,av);}
a=C_alloc(8);
t5=C_i_check_symbol_2(t2,lf[1445]);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_a_i_putprop(&a,3,t2,t3,t4);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* chicken.plist#get in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_37287(C_word c,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_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_37287,c,av);}
t4=C_rest_nullp(c,4);
t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0));
t6=C_i_check_symbol_2(t2,lf[1447]);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_i_getprop(t2,t3,t5);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in ... */
static void C_ccall f_37306(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_37306,c,av);}
a=C_alloc(12);
t2=C_mutate((C_word*)lf[1446]+1 /* (set! chicken.plist#get ...) */,t1);
t3=C_mutate((C_word*)lf[1450]+1 /* (set! chicken.plist#remprop! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37308,a[2]=((C_word)li1095),tmp=(C_word)a,a+=3,tmp));
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37377,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41381,a[2]=((C_word)li1223),tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41390,a[2]=((C_word)li1224),tmp=(C_word)a,a+=3,tmp);
/* library.scm:7504: chicken.base#getter-with-setter */
t7=*((C_word*)lf[254]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t7;
av2[1]=t4;
av2[2]=t5;
av2[3]=t6;
av2[4]=lf[1603];
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}

/* chicken.plist#remprop! in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_37308(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_37308,c,av);}
a=C_alloc(5);
t4=C_i_check_symbol_2(t2,lf[1451]);
t5=C_slot(t2,C_fix(2));
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37331,a[2]=t3,a[3]=t2,a[4]=((C_word)li1094),tmp=(C_word)a,a+=5,tmp);
t7=(
  f_37331(t6,t5,C_SCHEME_FALSE)
);
t8=C_slot(t2,C_fix(2));
if(C_truep(C_i_nullp(t8))){
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=C_i_unpersist_symbol(t2);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
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);}}}

/* loop in chicken.plist#remprop! in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static C_word f_37331(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_stack_overflow_check;
loop:{}
t3=C_i_nullp(t1);
if(C_truep(C_i_not(t3))){
t4=C_slot(t1,C_fix(1));
t5=C_slot(t4,C_fix(1));
t6=C_slot(t1,C_fix(0));
t7=C_eqp(t6,((C_word*)t0)[2]);
if(C_truep(t7)){
t8=(C_truep(t2)?C_i_setslot(t2,C_fix(1),t5):C_i_setslot(((C_word*)t0)[3],C_fix(2),t5));
return(C_SCHEME_TRUE);}
else{
t10=t5;
t11=t4;
t1=t10;
t2=t11;
goto loop;}}
else{
return(C_SCHEME_FALSE);}}

/* k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_37377(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_37377,c,av);}
a=C_alloc(29);
t2=C_mutate((C_word*)lf[1452]+1 /* (set! chicken.plist#symbol-plist ...) */,t1);
t3=C_mutate((C_word*)lf[1453]+1 /* (set! chicken.plist#get-properties ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37379,a[2]=((C_word)li1097),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[1455]+1 /* (set! ##sys#display-times ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37439,a[2]=((C_word)li1101),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[1113]+1 /* (set! ##sys#dump-heap-state ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_dump_heap_state,a[2]=((C_word)li1102),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[1471]+1 /* (set! ##sys#filter-heap-objects ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_filter_heap_objects,a[2]=((C_word)li1103),tmp=(C_word)a,a+=3,tmp));
t7=C_a_i_provide(&a,1,lf[1472]);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37675,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_software_type,a[2]=((C_word)li1222),tmp=(C_word)a,a+=3,tmp);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41379,a[2]=t8,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7609: g8742 */
t11=t9;{
C_word *av2=av;
av2[0]=t11;
av2[1]=t10;
((C_proc)C_fast_retrieve_proc(t11))(2,av2);}}

/* chicken.plist#get-properties in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_37379(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_37379,c,av);}
a=C_alloc(10);
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_i_check_symbol_2(t2,lf[1454]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37386,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_pairp(((C_word*)t4)[1]))){
t7=t6;
f_37386(t7,C_SCHEME_UNDEFINED);}
else{
t7=C_a_i_list1(&a,1,((C_word*)t4)[1]);
t8=C_set_block_item(t4,0,t7);
t9=t6;
f_37386(t9,t8);}}

/* k37384 in chicken.plist#get-properties in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void f_37386(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_37386,2,t0,t1);}
a=C_alloc(7);
t2=C_slot(((C_word*)t0)[2],C_fix(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_37395,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word)li1096),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_37395(t6,((C_word*)t0)[4],t2);}

/* loop in k37384 in chicken.plist#get-properties in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void f_37395(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_37395,3,t0,t1,t2);}
if(C_truep(C_i_nullp(t2))){
/* library.scm:7527: scheme#values */{
C_word av2[5];
av2[0]=0;
av2[1]=t1;
av2[2]=C_SCHEME_FALSE;
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_FALSE;
C_values(5,av2);}}
else{
t3=C_slot(t2,C_fix(0));
t4=C_slot(t2,C_fix(1));
t5=C_slot(t4,C_fix(1));
if(C_truep(C_i_memq(t3,((C_word*)((C_word*)t0)[2])[1]))){
/* library.scm:7532: scheme#values */{
C_word av2[5];
av2[0]=0;
av2[1]=t1;
av2[2]=t3;
av2[3]=C_slot(t4,C_fix(0));
av2[4]=t5;
C_values(5,av2);}}
else{
/* library.scm:7533: loop */
t7=t1;
t8=t5;
t1=t7;
t2=t8;
goto loop;}}}

/* ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_37439(C_word c,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 *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){
C_save_and_reclaim((void *)f_37439,c,av);}
a=C_alloc(23);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37454,a[2]=((C_word)li1098),tmp=(C_word)a,a+=3,tmp));
t10=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37468,a[2]=((C_word)li1099),tmp=(C_word)a,a+=3,tmp));
t11=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37490,a[2]=t4,a[3]=t6,a[4]=((C_word)li1100),tmp=(C_word)a,a+=5,tmp));
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37566,a[2]=t2,a[3]=t1,a[4]=t8,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
/* library.scm:7555: ##sys#flush-output */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[900]);
C_word *av2=av;
av2[0]=*((C_word*)lf[900]+1);
av2[1]=t12;
av2[2]=*((C_word*)lf[854]+1);
tp(3,av2);}}

/* pnum in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void f_37454(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
C_save_and_reclaim_args((void *)trf_37454,2,t1,t2);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37462,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_zerop(t2))){
/* library.scm:7544: ##sys#print */
t4=*((C_word*)lf[1027]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t1;
av2[2]=lf[1456];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
/* library.scm:7544: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}}

/* k37460 in pnum in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37462(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_37462,c,av);}
/* library.scm:7544: ##sys#print */
t2=*((C_word*)lf[1027]+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*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* round-to in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void f_37468(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_37468,3,t1,t2,t3);}
a=C_alloc(8);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37476,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37488,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7546: scheme#expt */
t6=*((C_word*)lf[642]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_fix(10);
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}

/* k37474 in round-to in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37476(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_37476,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37480,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7546: scheme#expt */
t3=*((C_word*)lf[642]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1457];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k37478 in k37474 in round-to in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in ... */
static void C_ccall f_37480(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_37480,c,av);}
/* ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[638]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k37486 in round-to in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37488(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){
C_save_and_reclaim((void *)f_37488,c,av);}
a=C_alloc(33);
t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1);
/* library.scm:7546: scheme#round */
t3=*((C_word*)lf[660]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* pmem in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void f_37490(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_37490,3,t0,t1,t2);}
a=C_alloc(11);
if(C_truep(C_i_greaterp(t2,lf[1458]))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37500,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37507,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37511,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t5;
av2[2]=t2;
av2[3]=lf[1458];
tp(4,av2);}}
else{
if(C_truep(C_i_greaterp(t2,C_fix(1048576)))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37522,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37529,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37533,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t5;
av2[2]=t2;
av2[3]=C_fix(1048576);
tp(4,av2);}}
else{
if(C_truep(C_i_greaterp(t2,C_fix(1024)))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37544,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37551,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37555,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* ##sys#/-2 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[638]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[638]+1);
av2[1]=t5;
av2[2]=t2;
av2[3]=C_fix(1024);
tp(4,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37560,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7554: pnum */
f_37454(t3,t2);}}}}

/* k37498 in pmem in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37500(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_37500,c,av);}
/* library.scm:7541: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1459];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k37505 in pmem in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37507(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_37507,c,av);}
/* library.scm:7549: pnum */
f_37454(((C_word*)t0)[3],t1);}

/* k37509 in pmem in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37511(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_37511,c,av);}
/* library.scm:7549: round-to */
f_37468(((C_word*)t0)[3],t1,C_fix(2));}

/* k37520 in pmem in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37522(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_37522,c,av);}
/* library.scm:7541: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1460];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k37527 in pmem in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37529(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_37529,c,av);}
/* library.scm:7551: pnum */
f_37454(((C_word*)t0)[3],t1);}

/* k37531 in pmem in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37533(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_37533,c,av);}
/* library.scm:7551: round-to */
f_37468(((C_word*)t0)[3],t1,C_fix(2));}

/* k37542 in pmem in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37544(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_37544,c,av);}
/* library.scm:7541: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1461];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k37549 in pmem in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37551(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_37551,c,av);}
/* library.scm:7553: pnum */
f_37454(((C_word*)t0)[3],t1);}

/* k37553 in pmem in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_37555,c,av);}
/* library.scm:7553: round-to */
f_37468(((C_word*)t0)[3],t1,C_fix(2));}

/* k37558 in pmem in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37560(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_37560,c,av);}
/* library.scm:7541: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1462];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void C_ccall f_37566(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_37566,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37569,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7556: pnum */
f_37454(t2,C_slot(((C_word*)t0)[2],C_fix(0)));}

/* k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37569(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_37569,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37572,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7541: ##sys#print */
t4=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[1470];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in ... */
static void C_ccall f_37572(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_37572,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=C_slot(((C_word*)t2)[2],C_fix(1));
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37578,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);
if(C_truep(C_i_greaterp(t3,C_fix(0)))){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37659,a[2]=t4,a[3]=((C_word*)t2)[5],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7541: ##sys#print */
t6=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[1469];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_37578(2,av2);}}}

/* k37576 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in ... */
static void C_ccall f_37578(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_37578,c,av);}
a=C_alloc(9);
t2=C_slot(((C_word*)t0)[2],C_fix(2));
t3=C_slot(((C_word*)t0)[2],C_fix(3));
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37587,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37641,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* library.scm:7541: ##sys#print */
t6=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[1467];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_37587(2,av2);}}}

/* k37585 in k37576 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in ... */
static void C_ccall f_37587(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_37587,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=C_slot(((C_word*)t2)[2],C_fix(4));
t4=C_slot(((C_word*)t2)[2],C_fix(5));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37596,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);
t6=C_fixnum_greaterp(t3,C_fix(0));
t7=(C_truep(t6)?t6:C_fixnum_greaterp(t4,C_fix(0)));
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37620,a[2]=t5,a[3]=((C_word*)t2)[5],a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
/* library.scm:7541: ##sys#print */
t9=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[1465];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
else{
t8=t5;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
f_37596(2,av2);}}}

/* k37594 in k37585 in k37576 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in ... */
static void C_ccall f_37596(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_37596,c,av);}
a=C_alloc(5);
t2=C_slot(((C_word*)t0)[2],C_fix(6));
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37602,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7541: ##sys#print */
t4=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[1463];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k37600 in k37594 in k37585 in k37576 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in ... */
static void C_ccall f_37602(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_37602,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37605,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7581: pmem */
t3=((C_word*)((C_word*)t0)[3])[1];
f_37490(t3,t2,((C_word*)t0)[4]);}

/* k37603 in k37600 in k37594 in k37585 in k37576 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in ... */
static void C_ccall f_37605(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_37605,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37608,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7582: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=t2;
av2[2]=C_make_character(10);
av2[3]=*((C_word*)lf[855]+1);
tp(4,av2);}}

/* k37606 in k37603 in k37600 in k37594 in k37585 in k37576 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in ... */
static void C_ccall f_37608(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_37608,c,av);}
/* library.scm:7583: ##sys#flush-output */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[900]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[900]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[855]+1);
tp(3,av2);}}

/* k37618 in k37585 in k37576 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in ... */
static void C_ccall f_37620(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_37620,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37623,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);
/* library.scm:7575: pnum */
f_37454(t2,((C_word*)t0)[5]);}

/* k37621 in k37618 in k37585 in k37576 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in ... */
static void C_ccall f_37623(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_37623,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37626,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7542: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=t2;
av2[2]=C_make_character(47);
av2[3]=*((C_word*)lf[855]+1);
tp(4,av2);}}

/* k37624 in k37621 in k37618 in k37585 in k37576 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in ... */
static void C_ccall f_37626(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_37626,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37629,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7577: pnum */
f_37454(t3,((C_word*)t2)[4]);}

/* k37627 in k37624 in k37621 in k37618 in k37585 in k37576 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in ... */
static void C_ccall f_37629(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_37629,c,av);}
/* library.scm:7541: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1464];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k37639 in k37576 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in ... */
static void C_ccall f_37641(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_37641,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37644,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);
/* library.scm:7567: pnum */
f_37454(t2,((C_word*)t0)[5]);}

/* k37642 in k37639 in k37576 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in ... */
static void C_ccall f_37644(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_37644,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37647,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7542: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=t2;
av2[2]=C_make_character(47);
av2[3]=*((C_word*)lf[855]+1);
tp(4,av2);}}

/* k37645 in k37642 in k37639 in k37576 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in ... */
static void C_ccall f_37647(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_37647,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37650,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7569: pnum */
f_37454(t3,((C_word*)t2)[4]);}

/* k37648 in k37645 in k37642 in k37639 in k37576 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in ... */
static void C_ccall f_37650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_37650,c,av);}
/* library.scm:7541: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1466];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k37657 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in ... */
static void C_ccall f_37659(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_37659,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37662,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7561: pnum */
f_37454(t2,((C_word*)t0)[4]);}

/* k37660 in k37657 in k37570 in k37567 in k37564 in ##sys#display-times in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in ... */
static void C_ccall f_37662(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_37662,c,av);}
/* library.scm:7541: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1468];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_37675(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_37675,c,av);}
a=C_alloc(13);
t2=C_mutate((C_word*)lf[1473]+1 /* (set! chicken.platform#software-type ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37676,a[2]=t1,a[3]=((C_word)li1104),tmp=(C_word)a,a+=4,tmp));
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37681,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_machine_type,a[2]=((C_word)li1221),tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41375,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7613: g8746 */
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)C_fast_retrieve_proc(t6))(2,av2);}}

/* chicken.platform#software-type in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void C_ccall f_37676(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_37676,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);}}

/* k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void C_ccall f_37681(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_37681,c,av);}
a=C_alloc(13);
t2=C_mutate((C_word*)lf[1474]+1 /* (set! chicken.platform#machine-type ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37682,a[2]=t1,a[3]=((C_word)li1105),tmp=(C_word)a,a+=4,tmp));
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37687,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_machine_byte_order,a[2]=((C_word)li1220),tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41371,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7617: g8750 */
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)C_fast_retrieve_proc(t6))(2,av2);}}

/* chicken.platform#machine-type in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37682(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_37682,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);}}

/* k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_37687(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_37687,c,av);}
a=C_alloc(13);
t2=C_mutate((C_word*)lf[1475]+1 /* (set! chicken.platform#machine-byte-order ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37688,a[2]=t1,a[3]=((C_word)li1106),tmp=(C_word)a,a+=4,tmp));
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37693,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_software_version,a[2]=((C_word)li1219),tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41367,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7621: g8754 */
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)C_fast_retrieve_proc(t6))(2,av2);}}

/* chicken.platform#machine-byte-order in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in ... */
static void C_ccall f_37688(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_37688,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);}}

/* k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in ... */
static void C_ccall f_37693(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_37693,c,av);}
a=C_alloc(13);
t2=C_mutate((C_word*)lf[1476]+1 /* (set! chicken.platform#software-version ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37694,a[2]=t1,a[3]=((C_word)li1107),tmp=(C_word)a,a+=4,tmp));
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37699,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_build_platform,a[2]=((C_word)li1218),tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41363,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7625: g8758 */
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)C_fast_retrieve_proc(t6))(2,av2);}}

/* chicken.platform#software-version in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in ... */
static void C_ccall f_37694(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_37694,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);}}

/* k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in ... */
static void C_ccall f_37699(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_37699,c,av);}
a=C_alloc(10);
t2=C_mutate((C_word*)lf[1477]+1 /* (set! chicken.platform#build-platform ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37700,a[2]=t1,a[3]=((C_word)li1108),tmp=(C_word)a,a+=4,tmp));
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37705,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41359,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7629: software-type */
t5=C_fast_retrieve(lf[1473]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* chicken.platform#build-platform in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in ... */
static void C_ccall f_37700(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_37700,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);}}

/* k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in ... */
static void f_37705(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(24,0,3)))){
C_save_and_reclaim_args((void *)trf_37705,2,t0,t1);}
a=C_alloc(24);
t2=C_set_block_item(lf[1478] /* ##sys#windows-platform */,0,t1);
t3=C_mutate((C_word*)lf[1479]+1 /* (set! chicken.platform#chicken-version ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37707,a[2]=((C_word)li1110),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[1512]+1 /* (set! chicken.platform#chicken-home ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37842,a[2]=((C_word)li1111),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[1513]+1 /* (set! chicken.platform#include-path ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37848,a[2]=((C_word)li1112),tmp=(C_word)a,a+=3,tmp));
t6=(C_truep(C_fast_retrieve(lf[1478]))?C_make_character(59):C_make_character(58));
t7=lf[1517] /* chicken.platform#path-list-separator */ =t6;;
t8=lf[1518];
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_mutate((C_word*)lf[1519]+1 /* (set! ##sys#split-path ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37871,a[2]=t9,a[3]=((C_word)li1114),tmp=(C_word)a,a+=4,tmp));
t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37961,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41277,a[2]=t11,tmp=(C_word)a,a+=3,tmp);
/* ##sys#peek-c-string */
t13=*((C_word*)lf[844]+1);{
C_word av2[4];
av2[0]=t13;
av2[1]=t12;
av2[2]=C_mpointer(&a,(void*)C_private_repository_path());
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}}

/* chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in ... */
static void C_ccall f_37707(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_37707,c,av);}
a=C_alloc(12);
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?C_SCHEME_FALSE:C_get_rest_arg(c,2,av,2,t0));
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37768,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_37805,a[2]=t4,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=C_SCHEME_UNDEFINED,a[6]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=7,tmp);
t6=C_fix((C_word)C_WORD_SIZE);
/* ##sys#fixnum->string */
t7=*((C_word*)lf[736]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=t5;
av2[2]=t6;
av2[3]=C_fix(10);
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
t4=C_fast_retrieve(lf[1481]);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_fast_retrieve(lf[1481]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k37715 in k37777 in k37773 in k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in ... */
static void C_ccall f_37717(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_37717,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_37720,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7636: software-type */
t4=C_fast_retrieve(lf[1473]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k37718 in k37715 in k37777 in k37773 in k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in ... */
static void C_ccall f_37720(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_37720,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+4,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37723,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7637: software-version */
t5=C_fast_retrieve(lf[1476]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k37721 in k37718 in k37715 in k37777 in k37773 in k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in ... */
static void C_ccall f_37723(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_37723,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_37726,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7638: machine-type */
t5=C_fast_retrieve(lf[1474]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k37724 in k37721 in k37718 in k37715 in k37777 in k37773 in k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in ... */
static void C_ccall f_37726(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_37726,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37728,a[2]=((C_word)li1109),tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_37750,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[4],tmp=(C_word)a,a+=7,tmp);
/* library.scm:7643: str */
f_37728(t4,((C_word*)t2)[5]);}

/* str in k37724 in k37721 in k37718 in k37715 in k37777 in k37773 in k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in ... */
static void f_37728(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_37728,2,t1,t2);}
a=C_alloc(3);
t3=C_eqp(lf[1486],t2);
if(C_truep(t3)){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=lf[1487];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37742,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7642: scheme#symbol->string */
t5=*((C_word*)lf[750]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k37740 in str in k37724 in k37721 in k37718 in k37715 in k37777 in k37773 in k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in ... */
static void C_ccall f_37742(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_37742,c,av);}
/* ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[1488];
tp(4,av2);}}

/* k37748 in k37724 in k37721 in k37718 in k37715 in k37777 in k37773 in k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in ... */
static void C_ccall f_37750(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_37750,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_37754,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* library.scm:7643: str */
f_37728(t2,((C_word*)t0)[6]);}

/* k37752 in k37748 in k37724 in k37721 in k37718 in k37715 in k37777 in k37773 in k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in ... */
static void C_ccall f_37754(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_37754,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37758,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* library.scm:7643: str */
f_37728(t2,((C_word*)t0)[6]);}

/* k37756 in k37752 in k37748 in k37724 in k37721 in k37718 in k37715 in k37777 in k37773 in k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in ... */
static void C_ccall f_37758(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_37758,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37762,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);
/* library.scm:7643: ##sys#symbol->string/shared */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[747]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[747]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k37760 in k37756 in k37752 in k37748 in k37724 in k37721 in k37718 in k37715 in k37777 in k37773 in k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in ... */
static void C_ccall f_37762(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_37762,c,av);}
/* library.scm:7643: scheme#string-append */
t2=*((C_word*)lf[517]+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);}}

/* k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in ... */
static void C_ccall f_37768(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_37768,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_37775,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fast_retrieve(lf[1493]))){
/* library.scm:7653: scheme#string-append */
t4=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[1494];
av2[3]=C_fast_retrieve(lf[1493]);
av2[4]=lf[1495];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[1496];
f_37775(2,av2);}}}

/* k37773 in k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in ... */
static void C_ccall f_37775(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_37775,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_37779,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fast_retrieve(lf[1489]))){
/* library.scm:7654: scheme#string-append */
t5=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[1490];
av2[3]=C_fast_retrieve(lf[1489]);
av2[4]=lf[1491];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=lf[1492];
f_37779(2,av2);}}}

/* k37777 in k37773 in k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in ... */
static void C_ccall f_37779(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_37779,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37783,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t1,a[5]=((C_word*)t2)[4],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37717,a[2]=t3,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=6,tmp);
/* library.scm:7635: build-platform */
t5=C_fast_retrieve(lf[1477]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k37781 in k37777 in k37773 in k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in ... */
static void C_ccall f_37783(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,8)))){
C_save_and_reclaim((void *)f_37783,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37787,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
t3=C_eqp(C_u_i_string_length(((C_word*)t0)[5]),C_fix(0));
if(C_truep(t3)){
/* library.scm:7651: scheme#string-append */
t4=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1480];
av2[3]=C_fast_retrieve(lf[1481]);
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
av2[6]=lf[1482];
av2[7]=t1;
av2[8]=lf[1483];
((C_proc)(void*)(*((C_word*)t4+1)))(9,av2);}}
else{
/* library.scm:7659: scheme#string-append */
t4=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[1484];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[1485];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}

/* k37785 in k37781 in k37777 in k37773 in k37766 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in ... */
static void C_ccall f_37787(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_37787,c,av);}
/* library.scm:7651: scheme#string-append */
t2=*((C_word*)lf[517]+1);{
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[1480];
av2[3]=C_fast_retrieve(lf[1481]);
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
av2[6]=lf[1482];
av2[7]=((C_word*)t0)[5];
av2[8]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}}

/* k37803 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in ... */
static void C_ccall f_37805(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_37805,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_37833,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7647: feature? */
t4=C_fast_retrieve(lf[1507]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[1511];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k37822 in k37825 in k37828 in k37831 in k37803 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in ... */
static void C_ccall f_37824(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_37824,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(t1)){
/* library.scm:7645: scheme#string-append */
t3=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=lf[1503];
av2[3]=((C_word*)t2)[3];
av2[4]=lf[1504];
av2[5]=((C_word*)t2)[4];
av2[6]=((C_word*)t2)[5];
av2[7]=((C_word*)t2)[6];
av2[8]=lf[1505];
((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}}
else{
/* library.scm:7645: scheme#string-append */
t3=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=lf[1503];
av2[3]=((C_word*)t2)[3];
av2[4]=lf[1504];
av2[5]=((C_word*)t2)[4];
av2[6]=((C_word*)t2)[5];
av2[7]=((C_word*)t2)[6];
av2[8]=lf[1506];
((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}}}

/* k37825 in k37828 in k37831 in k37803 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in ... */
static void C_ccall f_37827(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_37827,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(C_truep(t1)?lf[1501]:lf[1502]);
t4=C_mutate(((C_word *)t2)+6,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37824,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7650: feature? */
t6=C_fast_retrieve(lf[1507]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[1508];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k37828 in k37831 in k37803 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in ... */
static void C_ccall f_37830(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_37830,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(C_truep(t1)?lf[1499]:lf[1500]);
t4=C_mutate(((C_word *)t2)+5,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37827,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7649: feature? */
t6=C_fast_retrieve(lf[1507]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[1509];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k37831 in k37803 in chicken.platform#chicken-version in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in ... */
static void C_ccall f_37833(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_37833,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(C_truep(t1)?lf[1497]:lf[1498]);
t4=C_mutate(((C_word *)t2)+4,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37830,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7648: feature? */
t6=C_fast_retrieve(lf[1507]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[1510];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* chicken.platform#chicken-home in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in ... */
static void C_ccall f_37842(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_37842,c,av);}
a=C_alloc(3);
/* ##sys#peek-c-string */
t2=*((C_word*)lf[844]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=C_mpointer(&a,(void*)C_INSTALL_SHARE_HOME);
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* chicken.platform#include-path in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in ... */
static void C_ccall f_37848(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_37848,c,av);}
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?C_SCHEME_FALSE:C_get_rest_arg(c,2,av,2,t0));
if(C_truep(t3)){
t4=C_i_check_list_2(t3,lf[1514]);
t5=C_mutate((C_word*)lf[1515]+1 /* (set! ##sys#include-pathnames ...) */,t3);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_fast_retrieve(lf[1516]);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fast_retrieve(lf[1516]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* ##sys#split-path in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in ... */
static void C_ccall f_37871(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_37871,c,av);}
a=C_alloc(13);
if(C_truep(C_i_not(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]);
if(C_truep(C_i_equalp(t2,t3))){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_string_length(t2);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37893,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,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|5,a[1]=(C_word)f_37899,a[2]=t4,a[3]=t2,a[4]=t7,a[5]=((C_word)li1113),tmp=(C_word)a,a+=6,tmp));
t9=((C_word*)t7)[1];
f_37899(t9,t5,C_fix(0),C_fix(0));}}}

/* k37891 in ##sys#split-path in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in ... */
static void C_ccall f_37893(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_37893,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* loop in ##sys#split-path in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in ... */
static void f_37899(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_37899,4,t0,t1,t2,t3);}
a=C_alloc(5);
if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[2]))){
t4=C_eqp(t3,t2);
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37919,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7692: scheme#substring */
t6=*((C_word*)lf[498]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}
else{
t4=C_i_string_ref(((C_word*)t0)[3],t3);
t5=C_retrieve2(lf[1517],C_text("chicken.platform#path-list-separator"));
if(C_truep(C_u_i_char_equalp(t4,C_retrieve2(lf[1517],C_text("chicken.platform#path-list-separator"))))){
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37934,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7695: scheme#substring */
t7=*((C_word*)lf[498]+1);{
C_word av2[5];
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
else{
/* library.scm:7699: loop */
t8=t1;
t9=t2;
t10=C_fixnum_plus(t3,C_fix(1));
t1=t8;
t2=t9;
t3=t10;
goto loop;}}}

/* k37917 in loop in ##sys#split-path in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in ... */
static void C_ccall f_37919(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_37919,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);}}

/* k37932 in loop in ##sys#split-path in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in ... */
static void C_ccall f_37934(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_37934,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37938,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7696: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_37899(t3,t2,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)),C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* k37936 in k37932 in loop in ##sys#split-path in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in ... */
static void C_ccall f_37938(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_37938,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);}}

/* k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in ... */
static void C_ccall f_37961(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_37961,c,av);}
a=C_alloc(9);
t2=C_mutate((C_word*)lf[1520]+1 /* (set! chicken.platform#repository-path ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37965,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41261,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* ##sys#peek-c-string */
t5=*((C_word*)lf[844]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_mpointer(&a,(void*)C_private_repository_path());
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in ... */
static void C_ccall f_37965(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_37965,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[1521]+1 /* (set! chicken.platform#installation-repository ...) */,t1);
t3=C_mutate(&lf[1522] /* (set! chicken.platform#chop-separator ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37967,a[2]=((C_word)li1115),tmp=(C_word)a,a+=3,tmp));
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37997,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7733: chicken.process-context#get-environment-variable */
t5=C_fast_retrieve(lf[1371]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[1594];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* chicken.platform#chop-separator in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in ... */
static void C_ccall f_37967(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_37967,c,av);}
t3=C_i_string_length(t2);
t4=C_fixnum_difference(t3,C_fix(1));
if(C_truep(C_fixnum_greaterp(t4,C_fix(0)))){
t5=C_i_string_ref(t2,t4);
if(C_truep((C_truep(C_eqp(t5,C_make_character(92)))?C_SCHEME_TRUE:(C_truep(C_eqp(t5,C_make_character(47)))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
/* library.scm:7729: scheme#substring */
t6=*((C_word*)lf[498]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_fix(0);
av2[4]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in ... */
static void C_ccall f_37997(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_37997,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38000,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
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_retrieve2(lf[1522],C_text("chicken.platform#chop-separator"));
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41207,a[2]=t5,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7735: ##sys#split-path */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[1519]+1);
av2[1]=t8;
av2[2]=t1;
tp(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41257,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* ##sys#peek-c-string */
t4=*((C_word*)lf[844]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_mpointer(&a,(void*)C_INSTALL_SHARE_HOME);
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in ... */
static void C_ccall f_38000(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_38000,c,av);}
a=C_alloc(29);
t2=C_mutate((C_word*)lf[1515]+1 /* (set! ##sys#include-pathnames ...) */,t1);
t3=C_mutate((C_word*)lf[1513]+1 /* (set! chicken.platform#include-path ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38002,a[2]=((C_word)li1116),tmp=(C_word)a,a+=3,tmp));
t4=C_mutate(&lf[1523] /* (set! chicken.platform#->feature-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38020,a[2]=((C_word)li1117),tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[1525]+1 /* (set! ##sys#features ...) */,lf[1526]);
t6=C_a_i_cons(&a,2,lf[1527],C_fast_retrieve(lf[1525]));
t7=C_a_i_cons(&a,2,lf[1528],t6);
t8=C_a_i_cons(&a,2,lf[1529],t7);
t9=C_a_i_cons(&a,2,lf[1530],t8);
t10=C_mutate((C_word*)lf[1525]+1 /* (set! ##sys#features ...) */,t9);
t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38058,a[2]=((C_word)li1118),tmp=(C_word)a,a+=3,tmp);
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_38076,a[2]=((C_word*)t0)[2],a[3]=t11,tmp=(C_word)a,a+=4,tmp);
t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41187,a[2]=t11,a[3]=t12,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7768: software-type */
t14=C_fast_retrieve(lf[1473]);{
C_word *av2=av;
av2[0]=t14;
av2[1]=t13;
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}

/* chicken.platform#include-path in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in ... */
static void C_ccall f_38002(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_38002,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_fast_retrieve(lf[1515]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.platform#->feature-id in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in ... */
static void C_ccall f_38020(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_38020,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_38027,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7750: chicken.keyword#keyword? */
t4=*((C_word*)lf[763]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k38025 in chicken.platform#->feature-id in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in ... */
static void C_ccall f_38027(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_38027,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_stringp(((C_word*)t0)[3]))){
/* library.scm:7751: chicken.keyword#string->keyword */
t2=*((C_word*)lf[764]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
else{
if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38049,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7752: ##sys#symbol->string/shared */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[747]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[747]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
t2=C_a_i_list(&a,1,((C_word*)t0)[3]);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[127]+1);
av2[3]=lf[309];
av2[4]=lf[1524];
av2[5]=t2;
C_apply(6,av2);}}}}}

/* k38047 in k38025 in chicken.platform#->feature-id in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in ... */
static void C_ccall f_38049(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_38049,c,av);}
/* library.scm:7752: chicken.keyword#string->keyword */
t2=*((C_word*)lf[764]+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);}}

/* check in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in ... */
static void f_38058(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_38058,2,t1,t2);}
a=C_alloc(3);
t3=C_eqp(lf[1486],t2);
if(C_truep(t3)){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38073,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7767: ->feature-id */
t5=C_retrieve2(lf[1523],C_text("chicken.platform#->feature-id"));{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
f_38020(3,av2);}}}

/* k38071 in check in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in ... */
static void C_ccall f_38073(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_38073,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_fast_retrieve(lf[1525]));
t3=C_mutate((C_word*)lf[1525]+1 /* (set! ##sys#features ...) */,t2);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in ... */
static void C_ccall f_38076(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_38076,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38079,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41183,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7769: software-version */
t4=C_fast_retrieve(lf[1476]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in ... */
static void C_ccall f_38079(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_38079,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38082,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41179,a[2]=((C_word*)t2)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7770: build-platform */
t5=C_fast_retrieve(lf[1477]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in ... */
static void C_ccall f_38082(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_38082,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38085,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41175,a[2]=((C_word*)t2)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7771: machine-type */
t5=C_fast_retrieve(lf[1474]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in ... */
static void C_ccall f_38085(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_38085,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38088,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41171,a[2]=((C_word*)t2)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7772: machine-byte-order */
t5=C_fast_retrieve(lf[1475]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in ... */
static void C_ccall f_38088(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_38088,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38091,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_mk_bool(HAVE_DLOAD))){
t3=C_a_i_cons(&a,2,lf[1511],C_fast_retrieve(lf[1525]));
t4=C_mutate((C_word*)lf[1525]+1 /* (set! ##sys#features ...) */,t3);
t5=t2;
f_38091(t5,t4);}
else{
t3=t2;
f_38091(t3,C_SCHEME_UNDEFINED);}}

/* k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in ... */
static void f_38091(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_38091,2,t0,t1);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38094,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_mk_bool(HAVE_PTABLES))){
t3=C_a_i_cons(&a,2,lf[1510],C_fast_retrieve(lf[1525]));
t4=C_mutate((C_word*)lf[1525]+1 /* (set! ##sys#features ...) */,t3);
t5=t2;
f_38094(t5,t4);}
else{
t3=t2;
f_38094(t3,C_SCHEME_UNDEFINED);}}

/* k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in ... */
static void f_38094(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_38094,2,t0,t1);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38097,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_mk_bool(HAVE_GCHOOKS))){
t3=C_a_i_cons(&a,2,lf[1509],C_fast_retrieve(lf[1525]));
t4=C_mutate((C_word*)lf[1525]+1 /* (set! ##sys#features ...) */,t3);
t5=t2;
f_38097(t5,t4);}
else{
t3=t2;
f_38097(t3,C_SCHEME_UNDEFINED);}}

/* k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in ... */
static void f_38097(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_38097,2,t0,t1);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38100,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_mk_bool(IS_CROSS_CHICKEN))){
t3=C_a_i_cons(&a,2,lf[1508],C_fast_retrieve(lf[1525]));
t4=C_mutate((C_word*)lf[1525]+1 /* (set! ##sys#features ...) */,t3);
t5=t2;
f_38100(t5,t4);}
else{
t3=t2;
f_38100(t3,C_SCHEME_UNDEFINED);}}

/* k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in ... */
static void f_38100(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_38100,2,t0,t1);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41141,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41145,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41149,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=C_fix((C_word)C_WORD_SIZE);
/* ##sys#fixnum->string */
t6=*((C_word*)lf[736]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
av2[3]=C_fix(10);
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}

/* k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in ... */
static void C_ccall f_38108(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_38108,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_38111,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t4=C_fix((C_word)C_MINOR_VERSION);
/* library.scm:7793: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t3;
av2[2]=t4;
tp(3,av2);}}

/* k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in ... */
static void C_ccall f_38111(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_38111,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41119,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41135,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7794: scheme#string-append */
t5=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[1592];
av2[3]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* chicken.platform#register-feature! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_38116(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +9,c,3)))){
C_save_and_reclaim((void*)f_38116,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+9);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38135,a[2]=t1,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_38137,a[2]=t5,a[3]=((C_word)li1119),tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_38137(t7,t3,t2);}

/* k38120 in for-each-loop8933 in chicken.platform#register-feature! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38122(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_38122,c,av);}
a=C_alloc(3);
if(C_truep(C_i_memq(t1,C_fast_retrieve(lf[1525])))){
t2=((C_word*)((C_word*)t0)[2])[1];
f_38137(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
else{
t2=C_a_i_cons(&a,2,t1,C_fast_retrieve(lf[1525]));
t3=C_mutate((C_word*)lf[1525]+1 /* (set! ##sys#features ...) */,t2);
t4=((C_word*)((C_word*)t0)[2])[1];
f_38137(t4,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}}

/* k38133 in chicken.platform#register-feature! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_38135(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_38135,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* for-each-loop8933 in chicken.platform#register-feature! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void f_38137(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_38137,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_38122,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7801: ->feature-id */
t5=C_retrieve2(lf[1523],C_text("chicken.platform#->feature-id"));{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
f_38020(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* chicken.platform#unregister-feature! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_38160(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +16,c,3)))){
C_save_and_reclaim((void*)f_38160,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+16);
t2=C_build_rest(&a,c,2,av);
C_word 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;
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_retrieve2(lf[1523],C_text("chicken.platform#->feature-id"));
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38167,a[2]=t1,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_38204,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li1122),tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_38204(t12,t8,t2);}

/* k38165 in chicken.platform#unregister-feature! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_38167(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_38167,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38171,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|4,a[1]=(C_word)f_38173,a[2]=t1,a[3]=t4,a[4]=((C_word)li1121),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_38173(t6,t2,C_fast_retrieve(lf[1525]));}

/* k38169 in k38165 in chicken.platform#unregister-feature! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38171(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_38171,c,av);}
t2=C_mutate((C_word*)lf[1525]+1 /* (set! ##sys#features ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* loop in k38165 in chicken.platform#unregister-feature! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void f_38173(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_38173,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_slot(t2,C_fix(0));
t4=C_slot(t2,C_fix(1));
if(C_truep(C_i_memq(t3,((C_word*)t0)[2]))){
/* library.scm:7815: loop */
t7=t1;
t8=t4;
t1=t7;
t2=t8;
goto loop;}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_38202,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7816: loop */
t7=t5;
t8=t4;
t1=t7;
t2=t8;
goto loop;}}}

/* k38200 in loop in k38165 in chicken.platform#unregister-feature! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_38202(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_38202,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-loop8956 in chicken.platform#unregister-feature! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void f_38204(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_38204,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_38229,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);
/* library.scm:7807: g8962 */
t4=C_retrieve2(lf[1523],C_text("chicken.platform#->feature-id"));{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
f_38020(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);}}}

/* k38227 in map-loop8956 in chicken.platform#unregister-feature! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38229(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_38229,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_38204(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* chicken.platform#feature? in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_38238(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){
C_save_and_reclaim((void*)f_38238,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+6);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
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_38244,a[2]=t4,a[3]=((C_word)li1124),tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_38244(t6,t1,t2);}

/* loop in chicken.platform#feature? in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void f_38244(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_38244,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_38268,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7822: ->feature-id */
t5=C_retrieve2(lf[1523],C_text("chicken.platform#->feature-id"));{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_slot(t2,C_fix(0));
f_38020(3,av2);}}}

/* k38266 in loop in chicken.platform#feature? in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38268(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_38268,c,av);}
if(C_truep(C_i_memq(t1,C_fast_retrieve(lf[1525])))){
/* library.scm:7823: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_38244(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* chicken.platform#system-config-directory in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_38275(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_38275,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38279,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7829: chicken.process-context#get-environment-variable */
t3=C_fast_retrieve(lf[1371]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1538];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k38277 in chicken.platform#system-config-directory in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_38279(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_38279,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_fast_retrieve(lf[1478]))){
/* library.scm:7831: chicken.process-context#get-environment-variable */
t2=C_fast_retrieve(lf[1371]);{
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[1535];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38291,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7832: chicken.process-context#get-environment-variable */
t3=C_fast_retrieve(lf[1371]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1537];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}}

/* k38289 in k38277 in chicken.platform#system-config-directory in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38291(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_38291,c,av);}
if(C_truep(t1)){
/* library.scm:7833: scheme#string-append */
t2=*((C_word*)lf[517]+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[1536];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* chicken.platform#system-cache-directory in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_38299(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_38299,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38303,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7836: chicken.process-context#get-environment-variable */
t3=C_fast_retrieve(lf[1371]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1544];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k38301 in chicken.platform#system-cache-directory in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_38303(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_38303,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_fast_retrieve(lf[1478]))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38312,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7838: chicken.process-context#get-environment-variable */
t3=C_fast_retrieve(lf[1371]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1541];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38321,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7840: chicken.process-context#get-environment-variable */
t3=C_fast_retrieve(lf[1371]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1543];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}}

/* k38310 in k38301 in chicken.platform#system-cache-directory in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38312(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_38312,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{
/* library.scm:7839: chicken.process-context#get-environment-variable */
t2=C_fast_retrieve(lf[1371]);{
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[1540];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}

/* k38319 in k38301 in chicken.platform#system-cache-directory in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_38321,c,av);}
if(C_truep(t1)){
/* library.scm:7841: scheme#string-append */
t2=*((C_word*)lf[517]+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[1542];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* scheme#features in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_38329(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_38329,c,av);}
a=C_alloc(13);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=C_fast_retrieve(lf[1525]);
t7=C_i_check_list_2(t6,lf[837]);
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_38350,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li1129),tmp=(C_word)a,a+=6,tmp));
t11=((C_word*)t9)[1];
f_38350(t11,t1,t6);}

/* k38340 in map-loop9048 in scheme#features in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38342(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_38342,c,av);}
/* library.scm:7848: ##sys#string->symbol */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[749]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[749]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* map-loop9048 in scheme#features in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void f_38350(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_38350,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_38375,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38342,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7848: ##sys#symbol->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[748]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[748]+1);
av2[1]=t5;
av2[2]=t4;
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);}}}

/* k38373 in map-loop9048 in scheme#features in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38375(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_38375,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_38350(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* scheme#make-list in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_38384(C_word c,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_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_38384,c,av);}
a=C_alloc(5);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_38391,a[2]=t4,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7853: ##sys#check-integer */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[431]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[431]+1);
av2[1]=t5;
av2[2]=t2;
av2[3]=lf[1545];
tp(4,av2);}}

/* k38389 in scheme#make-list in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_38391(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_38391,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38394,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[4],C_fix(0)))){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_38394(2,av2);}}
else{
/* library.scm:7855: chicken.base#error */
t3=*((C_word*)lf[249]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1545];
av2[3]=lf[1546];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k38392 in k38389 in scheme#make-list in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38394(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_38394,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_38399,a[2]=((C_word*)t2)[2],a[3]=t4,a[4]=((C_word)li1131),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_38399(t6,((C_word*)t2)[3],((C_word*)t2)[4],C_SCHEME_END_OF_LIST);}

/* doloop9084 in k38392 in k38389 in scheme#make-list in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void f_38399(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_38399,4,t0,t1,t2,t3);}
a=C_alloc(3);
t4=C_eqp(t2,C_fix(0));
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_fixnum_difference(t2,C_fix(1));
t6=C_a_i_cons(&a,2,((C_word*)t0)[2],t3);
t8=t1;
t9=t5;
t10=t6;
t1=t8;
t2=t9;
t3=t10;
goto loop;}}

/* scheme#list-set! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_38431(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_38431,c,av);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38435,a[2]=t4,a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* library.scm:7862: ##sys#check-integer */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[431]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[431]+1);
av2[1]=t5;
av2[2]=t3;
av2[3]=lf[1547];
tp(4,av2);}}

/* k38433 in scheme#list-set! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_38435(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_38435,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38438,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[4],C_fix(0)))){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_38438(2,av2);}}
else{
/* library.scm:7864: chicken.base#error */
t3=*((C_word*)lf[249]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[1547];
av2[3]=lf[1549];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k38436 in k38433 in scheme#list-set! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38438(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_38438,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_38443,a[2]=((C_word*)t2)[2],a[3]=t4,a[4]=((C_word)li1133),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_38443(t6,((C_word*)t2)[3],((C_word*)t2)[4],((C_word*)t2)[5]);}

/* doloop9094 in k38436 in k38433 in scheme#list-set! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void f_38443(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_38443,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_eqp(t2,C_fix(0));
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_i_set_car(t3,((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38456,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_nullp(t3))){
/* library.scm:7869: chicken.base#error */
t6=*((C_word*)lf[249]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[1547];
av2[3]=lf[1548];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t7=t1;
t8=C_fixnum_difference(t2,C_fix(1));
t9=C_i_cdr(t3);
t1=t7;
t2=t8;
t3=t9;
goto loop;}}}

/* k38454 in doloop9094 in k38436 in k38433 in scheme#list-set! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in ... */
static void C_ccall f_38456(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_38456,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_38443(t2,((C_word*)t0)[3],C_fixnum_difference(((C_word*)t0)[4],C_fix(1)),C_i_cdr(((C_word*)t0)[5]));}

/* scheme#list-copy in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_38481(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_38481,c,av);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
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_38493,a[2]=t4,a[3]=((C_word)li1135),tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_38493(t6,t1,C_SCHEME_END_OF_LIST,t2);}
else{
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* lp in scheme#list-copy in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void f_38493(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_38493,4,t0,t1,t2,t3);}
a=C_alloc(4);
if(C_truep(C_i_pairp(t3))){
t4=C_u_i_car(t3);
t5=C_a_i_cons(&a,2,t4,t2);
/* library.scm:7879: lp */
t7=t1;
t8=t5;
t9=C_u_i_cdr(t3);
t1=t7;
t2=t8;
t3=t9;
goto loop;}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_38518,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7880: ##sys#fast-reverse */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[454]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[454]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}}

/* k38516 in lp in scheme#list-copy in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38518(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_38518,c,av);}
/* library.scm:7880: scheme#append */
t2=*((C_word*)lf[452]+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);}}

/* scheme#string->vector in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_38520(C_word c,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_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_38520,c,av);}
a=C_alloc(3);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
t5=C_rest_nullp(c,3);
t6=C_rest_nullp(c,4);
t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
t8=C_rest_nullp(c,4);
t9=C_i_check_string_2(t2,lf[1550]);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38537,a[2]=((C_word)li1138),tmp=(C_word)a,a+=3,tmp);
if(C_truep(t7)){
/* library.scm:7896: s->v */
f_38537(t1,t2,t4,t7);}
else{
if(C_truep(t4)){
/* library.scm:7897: s->v */
f_38537(t1,t2,t4,C_u_i_string_length(t2));}
else{
/* library.scm:7897: s->v */
f_38537(t1,t2,C_fix(0),C_u_i_string_length(t2));}}}

/* s->v in scheme#string->vector in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void f_38537(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){
C_save_and_reclaim_args((void *)trf_38537,4,t1,t2,t3,t4);}
a=C_alloc(7);
t5=C_slot(t2,C_fix(1));
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_38544,a[2]=t4,a[3]=t2,a[4]=t1,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp);
/* library.scm:7888: ##sys#check-range/including */
t7=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t7;
av2[1]=t6;
av2[2]=t3;
av2[3]=C_fix(0);
av2[4]=t4;
av2[5]=lf[1550];
((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}

/* k38542 in s->v in scheme#string->vector in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38544(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_38544,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38547,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);
/* library.scm:7889: ##sys#check-range/including */
t3=*((C_word*)lf[440]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[5];
av2[4]=((C_word*)t0)[6];
av2[5]=lf[1550];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k38545 in k38542 in s->v in scheme#string->vector in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_38547(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_38547,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38550,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7890: ##sys#make-vector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[808]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[808]+1);
av2[1]=t2;
av2[2]=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[5]);
tp(3,av2);}}

/* k38548 in k38545 in k38542 in s->v in scheme#string->vector in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in ... */
static void C_ccall f_38550(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_38550,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38555,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],a[5]=((C_word)li1137),tmp=(C_word)a,a+=6,tmp);
t4=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(
  f_38555(t3,C_fix(0),((C_word*)t2)[5])
);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* doloop9133 in k38548 in k38545 in k38542 in s->v in scheme#string->vector in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static C_word f_38555(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;
loop:{}
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(t3)){
return(((C_word*)t0)[3]);}
else{
t4=C_i_setslot(((C_word*)t0)[3],t1,C_utf_subchar(((C_word*)t0)[4],t2));
t6=C_fixnum_plus(t1,C_fix(1));
t7=C_fixnum_plus(t2,C_fix(1));
t1=t6;
t2=t7;
goto loop;}}

/* scheme#vector->string in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_38622(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_38622,c,av);}
a=C_alloc(3);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
t5=C_rest_nullp(c,3);
t6=C_rest_nullp(c,4);
t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
t8=C_rest_nullp(c,4);
t9=C_i_check_vector_2(t2,lf[1551]);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38639,a[2]=((C_word)li1141),tmp=(C_word)a,a+=3,tmp);
if(C_truep(t7)){
/* library.scm:7916: v->s */
f_38639(t1,t2,t4,t7);}
else{
t11=(C_truep(t4)?t4:C_fix(0));
/* library.scm:7917: v->s */
f_38639(t1,t2,t11,C_block_size(t2));}}

/* v->s in scheme#vector->string in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void f_38639(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){
C_save_and_reclaim_args((void *)trf_38639,4,t1,t2,t3,t4);}
a=C_alloc(7);
t5=C_block_size(t2);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_38646,a[2]=t4,a[3]=t2,a[4]=t1,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp);
/* library.scm:7904: ##sys#check-range/including */
t7=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t7;
av2[1]=t6;
av2[2]=t3;
av2[3]=C_fix(0);
av2[4]=t4;
av2[5]=lf[1551];
((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}

/* k38644 in v->s in scheme#vector->string in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38646(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_38646,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38649,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);
/* library.scm:7905: ##sys#check-range/including */
t3=*((C_word*)lf[440]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[5];
av2[4]=((C_word*)t0)[6];
av2[5]=lf[1551];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k38647 in k38644 in v->s in scheme#vector->string in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_38649(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_38649,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38652,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[5]);
/* library.scm:7906: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t2;
av2[2]=C_fixnum_times(t3,C_fix(4));
tp(3,av2);}}

/* k38650 in k38647 in k38644 in v->s in scheme#vector->string in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in ... */
static void C_ccall f_38652(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_38652,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_38657,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],a[5]=t4,a[6]=((C_word)li1140),tmp=(C_word)a,a+=7,tmp));
t6=((C_word*)t4)[1];
f_38657(t6,((C_word*)t2)[4],C_fix(0),((C_word*)t2)[5]);}

/* loop in k38650 in k38647 in k38644 in v->s in scheme#vector->string in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void f_38657(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_38657,4,t0,t1,t2,t3);}
t4=C_eqp(t3,((C_word*)t0)[2]);
if(C_truep(t4)){
/* library.scm:7910: ##sys#buffer->string! */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[167]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[167]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
tp(4,av2);}}
else{
t5=C_slot(((C_word*)t0)[4],t3);
t6=C_i_check_char_2(t5,lf[1551]);
/* library.scm:7913: loop */
t8=t1;
t9=C_utf_insert(((C_word*)t0)[3],t2,t5);
t10=C_fixnum_plus(t3,C_fix(1));
t1=t8;
t2=t9;
t3=t10;
goto loop;}}

/* scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_38732(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +8,c,3)))){
C_save_and_reclaim((void*)f_38732,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+8);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
if(C_truep(C_rest_nullp(c,4))){
t5=C_i_string_length(t3);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38742,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* library.scm:7923: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t6;
av2[2]=C_fixnum_times(C_fix(4),t5);
tp(3,av2);}}
else{
t5=C_a_i_cons(&a,2,t3,t4);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_38794,a[2]=t5,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7935: ##sys#check-closure */
t7=*((C_word*)lf[443]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
av2[3]=lf[1552];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}

/* k38740 in scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_38742(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_38742,c,av);}
a=C_alloc(10);
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|7,a[1]=(C_word)f_38747,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word)li1143),tmp=(C_word)a,a+=8,tmp));
t5=((C_word*)t3)[1];
f_38747(t5,((C_word*)t0)[5],C_fix(0),C_fix(0));}

/* loop in k38740 in scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void f_38747(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_38747,4,t0,t1,t2,t3);}
a=C_alloc(7);
if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[2]))){
/* library.scm:7927: ##sys#buffer->string! */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[167]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[167]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
tp(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_38760,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
/* library.scm:7928: proc */
t5=((C_word*)t0)[5];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_string_ref(((C_word*)t0)[6],t3);
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}}

/* k38758 in loop in k38740 in scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_38760(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_38760,c,av);}
t2=C_i_check_char_2(t1,lf[1552]);
/* library.scm:7930: loop */
t3=((C_word*)((C_word*)t0)[2])[1];
f_38747(t3,((C_word*)t0)[3],C_utf_insert(((C_word*)t0)[4],((C_word*)t0)[5],t1),C_fixnum_plus(((C_word*)t0)[6],C_fix(1)));}

/* k38792 in scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_38794(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_38794,c,av);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38949,a[2]=((C_word)li1144),tmp=(C_word)a,a+=3,tmp);
t3=(
  f_38949(((C_word*)t0)[2])
);
t4=*((C_word*)lf[345]+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|5,a[1]=(C_word)f_38808,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38915,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li1149),tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_38915(t13,t9,((C_word*)t0)[2]);}

/* k38806 in k38792 in scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38808(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_38808,c,av);}
a=C_alloc(9);
t2=C_i_check_list_2(t1,lf[268]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38891,a[2]=((C_word)li1145),tmp=(C_word)a,a+=3,tmp);
t4=(
  f_38891(t1,((C_word*)t0)[2])
);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38817,a[2]=t4,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);
/* library.scm:7938: ##sys#make-string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[455]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[455]+1);
av2[1]=t5;
av2[2]=t4;
tp(3,av2);}}

/* k38815 in k38806 in k38792 in scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_38817(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_38817,c,av);}
a=C_alloc(10);
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|7,a[1]=(C_word)f_38822,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word)li1148),tmp=(C_word)a,a+=8,tmp));
t5=((C_word*)t3)[1];
f_38822(t5,((C_word*)t0)[5],C_fix(0));}

/* doloop9263 in k38815 in k38806 in k38792 in scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in ... */
static void f_38822(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(28,0,3)))){
C_save_and_reclaim_args((void *)trf_38822,3,t0,t1,t2);}
a=C_alloc(28);
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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38843,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
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_38848,a[2]=t2,a[3]=((C_word)li1146),tmp=(C_word)a,a+=4,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_38855,a[2]=t4,a[3]=((C_word*)t0)[5],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|6,a[1]=(C_word)f_38857,a[2]=t9,a[3]=t7,a[4]=t12,a[5]=t8,a[6]=((C_word)li1147),tmp=(C_word)a,a+=7,tmp));
t14=((C_word*)t12)[1];
f_38857(t14,t10,((C_word*)t0)[6]);}}

/* k38841 in doloop9263 in k38815 in k38806 in k38792 in scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void C_ccall f_38843(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_38843,c,av);}
t2=C_i_string_set(((C_word*)t0)[2],((C_word*)t0)[3],t1);
t3=((C_word*)((C_word*)t0)[4])[1];
f_38822(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));}

/* g9274 in doloop9263 in k38815 in k38806 in k38792 in scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static C_word f_38848(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_i_string_ref(t1,((C_word*)t0)[2]));}

/* k38853 in doloop9263 in k38815 in k38806 in k38792 in scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void C_ccall f_38855(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_38855,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-loop9268 in doloop9263 in k38815 in k38806 in k38792 in scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void f_38857(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_38857,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=(
/* library.scm:7941: g9274 */
  f_38848(((C_word*)t0)[2],C_slot(t2,C_fix(0)))
);
t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4);
t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4);
t8=t1;
t9=C_slot(t2,C_fix(1));
t1=t8;
t2=t9;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* foldl9226 in k38806 in k38792 in scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static C_word f_38891(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t3=C_slot(t1,C_fix(1));
t4=C_slot(t1,C_fix(0));
t6=t3;
t7=C_i_fixnum_min(t2,t4);
t1=t6;
t2=t7;
goto loop;}
else{
return(t2);}}

/* map-loop9233 in k38792 in scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void f_38915(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_38915,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_string_length(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);}}}

/* for-each-loop9196 in k38792 in scheme#string-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static C_word f_38949(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=C_slot(t1,C_fix(0));
t3=C_i_check_string_2(t2,lf[1552]);
t5=C_slot(t1,C_fix(1));
t1=t5;
goto loop;}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* scheme#string-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_38972(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +9,c,3)))){
C_save_and_reclaim((void*)f_38972,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+9);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
if(C_truep(C_rest_nullp(c,4))){
t5=C_i_string_length(t3);
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|6,a[1]=(C_word)f_38984,a[2]=t5,a[3]=t7,a[4]=t2,a[5]=t3,a[6]=((C_word)li1151),tmp=(C_word)a,a+=7,tmp));
t9=((C_word*)t7)[1];
f_38984(t9,t1,C_fix(0));}
else{
t5=C_a_i_cons(&a,2,t3,t4);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_39020,a[2]=t5,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7954: ##sys#check-closure */
t7=*((C_word*)lf[443]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
av2[3]=lf[1553];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}

/* lp in scheme#string-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void f_38984(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_38984,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[2]))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_38994,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7949: proc */
t4=((C_word*)t0)[4];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_string_ref(((C_word*)t0)[5],t2);
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k38992 in lp in scheme#string-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_38994(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_38994,c,av);}
/* library.scm:7950: lp */
t2=((C_word*)((C_word*)t0)[2])[1];
f_38984(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* k39018 in scheme#string-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_39020(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_39020,c,av);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39171,a[2]=((C_word)li1152),tmp=(C_word)a,a+=3,tmp);
t3=(
  f_39171(((C_word*)t0)[2])
);
t4=*((C_word*)lf[345]+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|5,a[1]=(C_word)f_39034,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39137,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li1157),tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_39137(t13,t9,((C_word*)t0)[2]);}

/* k39032 in k39018 in scheme#string-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_39034(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_39034,c,av);}
a=C_alloc(9);
t2=C_i_check_list_2(t1,lf[268]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39113,a[2]=((C_word)li1153),tmp=(C_word)a,a+=3,tmp);
t4=(
  f_39113(t1,((C_word*)t0)[2])
);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39043,a[2]=t4,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);
/* library.scm:7957: ##sys#make-string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[455]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[455]+1);
av2[1]=t5;
av2[2]=t4;
tp(3,av2);}}

/* k39041 in k39032 in k39018 in scheme#string-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_39043(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_39043,c,av);}
a=C_alloc(9);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_39048,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li1156),tmp=(C_word)a,a+=7,tmp));
t5=((C_word*)t3)[1];
f_39048(t5,((C_word*)t0)[5],C_fix(0));}

/* doloop9386 in k39041 in k39032 in k39018 in scheme#string-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in ... */
static void f_39048(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(27,0,3)))){
C_save_and_reclaim_args((void *)trf_39048,3,t0,t1,t2);}
a=C_alloc(27);
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(t3)){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_39058,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,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_39070,a[2]=t2,a[3]=((C_word)li1154),tmp=(C_word)a,a+=4,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39077,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_39079,a[2]=t9,a[3]=t7,a[4]=t12,a[5]=t8,a[6]=((C_word)li1155),tmp=(C_word)a,a+=7,tmp));
t14=((C_word*)t12)[1];
f_39079(t14,t10,((C_word*)t0)[5]);}}

/* k39056 in doloop9386 in k39041 in k39032 in k39018 in scheme#string-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void C_ccall f_39058(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_39058,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_39048(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* g9397 in doloop9386 in k39041 in k39032 in k39018 in scheme#string-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static C_word f_39070(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_i_string_ref(t1,((C_word*)t0)[2]));}

/* k39075 in doloop9386 in k39041 in k39032 in k39018 in scheme#string-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void C_ccall f_39077(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_39077,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-loop9391 in doloop9386 in k39041 in k39032 in k39018 in scheme#string-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void f_39079(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_39079,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=(
/* library.scm:7960: g9397 */
  f_39070(((C_word*)t0)[2],C_slot(t2,C_fix(0)))
);
t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4);
t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4);
t8=t1;
t9=C_slot(t2,C_fix(1));
t1=t8;
t2=t9;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* foldl9349 in k39032 in k39018 in scheme#string-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static C_word f_39113(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t3=C_slot(t1,C_fix(1));
t4=C_slot(t1,C_fix(0));
t6=t3;
t7=C_i_fixnum_min(t2,t4);
t1=t6;
t2=t7;
goto loop;}
else{
return(t2);}}

/* map-loop9356 in k39018 in scheme#string-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void f_39137(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_39137,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_string_length(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);}}}

/* for-each-loop9319 in k39018 in scheme#string-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static C_word f_39171(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=C_slot(t1,C_fix(0));
t3=C_i_check_string_2(t2,lf[1553]);
t5=C_slot(t1,C_fix(1));
t1=t5;
goto loop;}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_39194(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +8,c,3)))){
C_save_and_reclaim((void*)f_39194,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+8);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
if(C_truep(C_rest_nullp(c,4))){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39204,a[2]=C_SCHEME_UNDEFINED,a[3]=t2,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* library.scm:7965: ##sys#check-closure */
t6=*((C_word*)lf[443]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
av2[3]=lf[1554];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t5=C_a_i_cons(&a,2,t3,t4);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_39249,a[2]=t5,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7974: ##sys#check-closure */
t7=*((C_word*)lf[443]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
av2[3]=lf[1554];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}

/* k39202 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_39204(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_39204,c,av);}
a=C_alloc(3);
t2=C_i_check_vector_2(((C_word*)t0)[4],lf[1554]);
t3=C_block_size(((C_word*)t0)[4]);
t4=C_mutate(((C_word *)t0)+2,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39213,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7968: ##sys#make-vector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[808]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[808]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k39211 in k39202 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_39213(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_39213,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_39218,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=t4,a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[4],a[7]=((C_word)li1159),tmp=(C_word)a,a+=8,tmp));
t6=((C_word*)t4)[1];
f_39218(t6,((C_word*)t2)[5],C_fix(0));}

/* doloop9437 in k39211 in k39202 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void f_39218(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_39218,3,t0,t1,t2);}
a=C_alloc(6);
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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39239,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* library.scm:7971: proc */
t5=((C_word*)t0)[5];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_slot(((C_word*)t0)[6],t2);
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}}

/* k39237 in doloop9437 in k39211 in k39202 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in ... */
static void C_ccall f_39239(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_39239,c,av);}
t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1);
t3=((C_word*)((C_word*)t0)[4])[1];
f_39218(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));}

/* k39247 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_39249(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_39249,c,av);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39404,a[2]=((C_word)li1160),tmp=(C_word)a,a+=3,tmp);
t3=(
  f_39404(((C_word*)t0)[2])
);
t4=*((C_word*)lf[345]+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|5,a[1]=(C_word)f_39263,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39370,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li1165),tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_39370(t13,t9,((C_word*)t0)[2]);}

/* k39261 in k39247 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_39263(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_39263,c,av);}
a=C_alloc(9);
t2=C_i_check_list_2(t1,lf[268]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39346,a[2]=((C_word)li1161),tmp=(C_word)a,a+=3,tmp);
t4=(
  f_39346(t1,((C_word*)t0)[2])
);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39272,a[2]=t4,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);
/* library.scm:7977: ##sys#make-vector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[808]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[808]+1);
av2[1]=t5;
av2[2]=t4;
tp(3,av2);}}

/* k39270 in k39261 in k39247 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_39272(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_39272,c,av);}
a=C_alloc(10);
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|7,a[1]=(C_word)f_39277,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word)li1164),tmp=(C_word)a,a+=8,tmp));
t5=((C_word*)t3)[1];
f_39277(t5,((C_word*)t0)[5],C_fix(0));}

/* doloop9514 in k39270 in k39261 in k39247 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in ... */
static void f_39277(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(28,0,3)))){
C_save_and_reclaim_args((void *)trf_39277,3,t0,t1,t2);}
a=C_alloc(28);
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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39298,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
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_39303,a[2]=t2,a[3]=((C_word)li1162),tmp=(C_word)a,a+=4,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39310,a[2]=t4,a[3]=((C_word*)t0)[5],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|6,a[1]=(C_word)f_39312,a[2]=t9,a[3]=t7,a[4]=t12,a[5]=t8,a[6]=((C_word)li1163),tmp=(C_word)a,a+=7,tmp));
t14=((C_word*)t12)[1];
f_39312(t14,t10,((C_word*)t0)[6]);}}

/* k39296 in doloop9514 in k39270 in k39261 in k39247 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void C_ccall f_39298(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_39298,c,av);}
t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1);
t3=((C_word*)((C_word*)t0)[4])[1];
f_39277(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));}

/* g9525 in doloop9514 in k39270 in k39261 in k39247 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static C_word f_39303(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_i_vector_ref(t1,((C_word*)t0)[2]));}

/* k39308 in doloop9514 in k39270 in k39261 in k39247 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void C_ccall f_39310(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_39310,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-loop9519 in doloop9514 in k39270 in k39261 in k39247 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void f_39312(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_39312,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=(
/* library.scm:7980: g9525 */
  f_39303(((C_word*)t0)[2],C_slot(t2,C_fix(0)))
);
t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4);
t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4);
t8=t1;
t9=C_slot(t2,C_fix(1));
t1=t8;
t2=t9;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* foldl9477 in k39261 in k39247 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static C_word f_39346(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t3=C_slot(t1,C_fix(1));
t4=C_slot(t1,C_fix(0));
t6=t3;
t7=C_i_fixnum_min(t2,t4);
t1=t6;
t2=t7;
goto loop;}
else{
return(t2);}}

/* map-loop9484 in k39247 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void f_39370(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_39370,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_block_size(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);}}}

/* for-each-loop9447 in k39247 in scheme#vector-map in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static C_word f_39404(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=C_slot(t1,C_fix(0));
t3=C_i_check_vector_2(t2,lf[1554]);
t5=C_slot(t1,C_fix(1));
t1=t5;
goto loop;}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_39427(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +8,c,3)))){
C_save_and_reclaim((void*)f_39427,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+8);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
if(C_truep(C_rest_nullp(c,4))){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_39437,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7985: ##sys#check-closure */
t6=*((C_word*)lf[443]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
av2[3]=lf[1555];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t5=C_a_i_cons(&a,2,t3,t4);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_39475,a[2]=t5,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7993: ##sys#check-closure */
t7=*((C_word*)lf[443]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
av2[3]=lf[1555];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}

/* k39435 in scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_39437(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_39437,c,av);}
a=C_alloc(9);
t2=C_i_check_vector_2(((C_word*)t0)[2],lf[1555]);
t3=C_block_size(((C_word*)t0)[2]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_39448,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word)li1167),tmp=(C_word)a,a+=7,tmp));
t7=((C_word*)t5)[1];
f_39448(t7,((C_word*)t0)[4],C_fix(0));}

/* doloop9563 in k39435 in scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void f_39448(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_39448,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(t3)){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_39458,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:7990: proc */
t5=((C_word*)t0)[4];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_slot(((C_word*)t0)[5],t2);
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}}

/* k39456 in doloop9563 in k39435 in scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_39458(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_39458,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_39448(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* k39473 in scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_39475(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_39475,c,av);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39626,a[2]=((C_word)li1168),tmp=(C_word)a,a+=3,tmp);
t3=(
  f_39626(((C_word*)t0)[2])
);
t4=*((C_word*)lf[345]+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|5,a[1]=(C_word)f_39489,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39592,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li1173),tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_39592(t13,t9,((C_word*)t0)[2]);}

/* k39487 in k39473 in scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_39489(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_39489,c,av);}
a=C_alloc(9);
t2=C_i_check_list_2(t1,lf[268]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39568,a[2]=((C_word)li1169),tmp=(C_word)a,a+=3,tmp);
t4=(
  f_39568(t1,((C_word*)t0)[2])
);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39498,a[2]=t4,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);
/* library.scm:7996: ##sys#make-vector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[808]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[808]+1);
av2[1]=t5;
av2[2]=t4;
tp(3,av2);}}

/* k39496 in k39487 in k39473 in scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_39498(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_39498,c,av);}
a=C_alloc(10);
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|7,a[1]=(C_word)f_39503,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word)li1172),tmp=(C_word)a,a+=8,tmp));
t5=((C_word*)t3)[1];
f_39503(t5,((C_word*)t0)[5],C_fix(0));}

/* doloop9640 in k39496 in k39487 in k39473 in scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in ... */
static void f_39503(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(27,0,3)))){
C_save_and_reclaim_args((void *)trf_39503,3,t0,t1,t2);}
a=C_alloc(27);
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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_39513,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,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_39525,a[2]=t2,a[3]=((C_word)li1170),tmp=(C_word)a,a+=4,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39532,a[2]=t4,a[3]=((C_word*)t0)[5],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|6,a[1]=(C_word)f_39534,a[2]=t9,a[3]=t7,a[4]=t12,a[5]=t8,a[6]=((C_word)li1171),tmp=(C_word)a,a+=7,tmp));
t14=((C_word*)t12)[1];
f_39534(t14,t10,((C_word*)t0)[6]);}}

/* k39511 in doloop9640 in k39496 in k39487 in k39473 in scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void C_ccall f_39513(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_39513,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_39503(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* g9651 in doloop9640 in k39496 in k39487 in k39473 in scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static C_word f_39525(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_i_vector_ref(t1,((C_word*)t0)[2]));}

/* k39530 in doloop9640 in k39496 in k39487 in k39473 in scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void C_ccall f_39532(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_39532,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-loop9645 in doloop9640 in k39496 in k39487 in k39473 in scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void f_39534(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_39534,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=(
/* library.scm:7999: g9651 */
  f_39525(((C_word*)t0)[2],C_slot(t2,C_fix(0)))
);
t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4);
t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4);
t8=t1;
t9=C_slot(t2,C_fix(1));
t1=t8;
t2=t9;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* foldl9603 in k39487 in k39473 in scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static C_word f_39568(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t3=C_slot(t1,C_fix(1));
t4=C_slot(t1,C_fix(0));
t6=t3;
t7=C_i_fixnum_min(t2,t4);
t1=t6;
t2=t7;
goto loop;}
else{
return(t2);}}

/* map-loop9610 in k39473 in scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void f_39592(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_39592,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_block_size(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);}}}

/* for-each-loop9573 in k39473 in scheme#vector-for-each in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static C_word f_39626(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=C_slot(t1,C_fix(0));
t3=C_i_check_vector_2(t2,lf[1555]);
t5=C_slot(t1,C_fix(1));
t1=t5;
goto loop;}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* scheme#close-port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_39649(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_39649,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39653,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:8003: ##sys#check-port */
t4=*((C_word*)lf[342]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
av2[3]=lf[1556];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k39651 in scheme#close-port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_39653(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_39653,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39656,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_port_openp(((C_word*)t0)[3],C_fix(1)))){
t3=C_slot(((C_word*)t0)[3],C_fix(2));
/* library.scm:8004: g9682 */
t4=C_slot(t3,C_fix(4));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=C_fix(1);
((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_39656(2,av2);}}}

/* k39654 in k39651 in scheme#close-port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_39656(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_39656,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39659,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_port_openp(((C_word*)t2)[3],C_fix(2)))){
t4=C_slot(((C_word*)t2)[3],C_fix(2));
/* library.scm:8006: g9684 */
t5=C_slot(t4,C_fix(4));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
av2[3]=C_fix(2);
((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}
else{
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_i_slot(((C_word*)t2)[3],C_fix(8),C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k39657 in k39654 in k39651 in scheme#close-port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_39659(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_39659,c,av);}
t2=((C_word*)t0)[2];
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_set_i_slot(((C_word*)t2)[3],C_fix(8),C_fix(0));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* scheme#call-with-port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_39684(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_39684,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_39690,a[2]=t3,a[3]=t2,a[4]=((C_word)li1176),tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39696,a[2]=t2,a[3]=((C_word)li1177),tmp=(C_word)a,a+=4,tmp);
/* library.scm:8012: ##sys#call-with-values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t4;
av2[3]=t5;
C_call_with_values(4,av2);}}

/* a39689 in scheme#call-with-port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_39690(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_39690,c,av);}
/* library.scm:8013: proc */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* a39695 in scheme#call-with-port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_39696(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_39696,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39700,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:8014: scheme#close-port */
t4=*((C_word*)lf[70]+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);}}

/* k39698 in a39695 in scheme#call-with-port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_39700(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_39700,c,av);}{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[175]+1);
av2[3]=((C_word*)t0)[3];
C_apply(4,av2);}}

/* scheme#eof-object in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_39705(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_39705,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_END_OF_FILE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* scheme#peek-u8 in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_39708(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_39708,c,av);}
a=C_alloc(5);
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?*((C_word*)lf[853]+1):C_get_rest_arg(c,2,av,2,t0));
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_39715,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:8021: scheme#peek-char */
t5=*((C_word*)lf[204]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k39713 in scheme#peek-u8 in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_39715(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_39715,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
if(C_truep(C_eofp(((C_word*)t0)[3]))){
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_fix(C_character_code(((C_word*)t0)[3]));
if(C_truep(C_fixnum_lessp(t3,C_fix(256)))){
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39733,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:8027: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t4;
av2[2]=C_fix(4);
tp(3,av2);}}}}

/* k39731 in k39713 in scheme#peek-u8 in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_39733(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_39733,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39736,a[2]=((C_word*)t2)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:8028: ##sys#encode-char */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[473]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[473]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
av2[3]=t1;
av2[4]=C_slot(((C_word*)t2)[4],C_fix(15));
tp(5,av2);}}

/* k39734 in k39731 in k39713 in scheme#peek-u8 in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_39736(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_39736,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_subbyte(((C_word*)t0)[3],C_fix(0));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* scheme#write-string in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_39748(C_word c,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 *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_39748,c,av);}
a=C_alloc(11);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?*((C_word*)lf[854]+1):C_get_rest_arg(c,3,av,3,t0));
t5=C_rest_nullp(c,3);
t6=C_rest_nullp(c,4);
t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_rest_nullp(c,4);
t11=C_rest_nullp(c,5);
t12=(C_truep(t11)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,3,t0));
t13=t12;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_rest_nullp(c,5);
t16=C_i_check_string_2(t2,lf[1557]);
t17=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[1557]);
t18=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_39776,a[2]=t4,a[3]=t1,a[4]=t9,a[5]=t2,a[6]=t14,tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)t9)[1])){
t19=t18;
f_39776(t19,C_i_check_fixnum_2(((C_word*)t9)[1],lf[1557]));}
else{
t19=C_set_block_item(t9,0,C_fix(0));
t20=t18;
f_39776(t20,t19);}}

/* k39774 in scheme#write-string in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void f_39776(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_39776,2,t0,t1);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39779,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)((C_word*)t0)[6])[1])){
t3=t2;
f_39779(t3,C_i_check_fixnum_2(((C_word*)((C_word*)t0)[6])[1],lf[1557]));}
else{
t3=C_set_block_item(((C_word*)t0)[6],0,C_u_i_string_length(((C_word*)t0)[5]));
t4=t2;
f_39779(t4,t3);}}

/* k39777 in k39774 in scheme#write-string in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void f_39779(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){
C_save_and_reclaim_args((void *)trf_39779,2,t0,t1);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39782,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)((C_word*)t2)[4])[1])){
/* library.scm:8041: scheme#substring */
t4=*((C_word*)lf[498]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=((C_word*)((C_word*)t2)[4])[1];
av2[4]=((C_word*)((C_word*)t2)[6])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t4=t3;{
C_word av2[2];
av2[0]=t4;
av2[1]=((C_word*)t2)[5];
f_39782(2,av2);}}}

/* k39780 in k39777 in k39774 in scheme#write-string in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_39782(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_39782,c,av);}
t2=C_slot(t1,C_fix(0));
t3=C_block_size(t2);
t4=C_fixnum_difference(t3,C_fix(1));
t5=C_slot(((C_word*)t0)[2],C_fix(2));
/* library.scm:8041: g9728 */
t6=C_slot(t5,C_fix(3));{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t6;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=C_fix(0);
av2[5]=t4;
((C_proc)C_fast_retrieve_proc(t6))(6,av2);}}

/* chicken.io#read-list in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_39852(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_39852,c,av);}
a=C_alloc(6);
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?*((C_word*)lf[853]+1):C_get_rest_arg(c,2,av,2,t0));
t4=C_rest_nullp(c,2);
t5=C_rest_nullp(c,3);
t6=(C_truep(t5)?((C_word*)t0)[2]:C_get_rest_arg(c,3,av,2,t0));
t7=C_rest_nullp(c,3);
t8=C_rest_nullp(c,4);
t9=(C_truep(t8)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,2,t0));
t10=C_rest_nullp(c,4);
t11=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[1560]);
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39881,a[2]=t9,a[3]=t6,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* library.scm:8067: reader */
t13=t6;{
C_word av2[3];
av2[0]=t13;
av2[1]=t12;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t13))(3,av2);}}

/* k39879 in chicken.io#read-list in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_39881(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_39881,c,av);}
a=C_alloc(9);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_39883,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li1182),tmp=(C_word)a,a+=7,tmp));
t5=((C_word*)t3)[1];
f_39883(t5,((C_word*)t0)[5],t1,C_fix(0),C_SCHEME_END_OF_LIST);}

/* doloop9766 in k39879 in chicken.io#read-list in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void f_39883(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_39883,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
t5=C_eofp(t2);
t6=(C_truep(t5)?t5:(C_truep(((C_word*)t0)[2])?C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[2]):C_SCHEME_FALSE));
if(C_truep(t6)){
/* library.scm:8071: ##sys#fast-reverse */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[454]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[454]+1);
av2[1]=t1;
av2[2]=t4;
tp(3,av2);}}
else{
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_39903,a[2]=t3,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* library.scm:8067: reader */
t8=((C_word*)t0)[4];{
C_word av2[3];
av2[0]=t8;
av2[1]=t7;
av2[2]=((C_word*)t0)[5];
((C_proc)C_fast_retrieve_proc(t8))(3,av2);}}}

/* k39901 in doloop9766 in k39879 in chicken.io#read-list in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_39903(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_39903,c,av);}
a=C_alloc(3);
t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1));
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
t4=((C_word*)((C_word*)t0)[5])[1];
f_39883(t4,((C_word*)t0)[6],t1,t2,t3);}

/* chicken.io#read-line in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_39955(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_39955,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
t3=C_i_pairp(t2);
t4=(C_truep(t3)?C_get_rest_arg(c,2,av,2,t0):*((C_word*)lf[853]+1));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39965,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(t3)){
t6=C_i_cdr(t2);
t7=C_i_pairp(t6);
t8=t5;
f_39965(t8,(C_truep(t7)?C_i_cadr(t2):C_SCHEME_FALSE));}
else{
t6=t5;
f_39965(t6,C_SCHEME_FALSE);}}

/* k39963 in chicken.io#read-line in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void f_39965(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_39965,2,t0,t1);}
a=C_alloc(8);
t2=C_i_check_port_2(((C_word*)t0)[2],C_fix(1),C_SCHEME_TRUE,lf[848]);
t3=C_slot(((C_word*)t0)[2],C_fix(2));
t4=C_slot(t3,C_fix(8));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_39975,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li1184),tmp=(C_word)a,a+=5,tmp);
/* library.scm:8083: g9790 */
t6=t5;
f_39975(t6,((C_word*)t0)[3],t4);}
else{
t5=(C_truep(t1)?t1:C_fix(256));
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39988,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t7,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* library.scm:8086: ##sys#make-string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[455]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[455]+1);
av2[1]=t8;
av2[2]=((C_word*)t7)[1];
tp(3,av2);}}}

/* g9790 in k39963 in chicken.io#read-line in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void f_39975(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_39975,3,t0,t1,t2);}
/* library.scm:8083: rl */
t3=t2;{
C_word av2[4];
av2[0]=t3;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}

/* k39986 in k39963 in chicken.io#read-line in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_39988(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_39988,c,av);}
a=C_alloc(12);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_39993,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t5,a[7]=((C_word)li1185),tmp=(C_word)a,a+=8,tmp));
t7=((C_word*)t5)[1];
f_39993(t7,((C_word*)t0)[5],C_fix(0));}

/* loop in k39986 in k39963 in chicken.io#read-line in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void f_39993(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_39993,3,t0,t1,t2);}
a=C_alloc(8);
t3=(C_truep(((C_word*)t0)[2])?C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]):C_SCHEME_FALSE);
if(C_truep(t3)){
/* library.scm:8089: ##sys#substring */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[495]+1));
C_word av2[5];
av2[0]=*((C_word*)lf[495]+1);
av2[1]=t1;
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=C_fix(0);
av2[4]=t2;
tp(5,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_40006,a[2]=t2,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);
/* library.scm:8090: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word av2[3];
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}}

/* k40004 in loop in k39986 in k39963 in chicken.io#read-line in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in ... */
static void C_ccall f_40006(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_40006,c,av);}
a=C_alloc(12);
if(C_truep(C_eofp(t1))){
t2=C_eqp(((C_word*)t0)[2],C_fix(0));
if(C_truep(t2)){
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* library.scm:8094: ##sys#substring */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[495]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[495]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)((C_word*)t0)[4])[1];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[2];
tp(5,av2);}}}
else{
switch(t1){
case C_make_character(10):
/* library.scm:8096: ##sys#substring */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[495]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[495]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)((C_word*)t0)[4])[1];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[2];
tp(5,av2);}
case C_make_character(13):
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_40039,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* library.scm:8098: scheme#peek-char */
t3=*((C_word*)lf[204]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}
default:
if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],((C_word*)((C_word*)t0)[6])[1]))){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_40074,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40082,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* library.scm:8106: scheme#make-string */
t4=*((C_word*)lf[479]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[6])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t2=C_i_string_set(((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[2],t1);
/* library.scm:8109: loop */
t3=((C_word*)((C_word*)t0)[7])[1];
f_39993(t3,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[2],C_fix(1)));}}}}

/* k40037 in k40004 in loop in k39986 in k39963 in chicken.io#read-line in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void C_ccall f_40039(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_40039,c,av);}
a=C_alloc(5);
if(C_truep(C_i_char_equalp(t1,C_make_character(10)))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40048,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);
/* library.scm:8100: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}
else{
/* library.scm:8102: ##sys#substring */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[495]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[495]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}}

/* k40046 in k40037 in k40004 in loop in k39986 in k39963 in chicken.io#read-line in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in ... */
static void C_ccall f_40048(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_40048,c,av);}
/* library.scm:8101: ##sys#substring */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[495]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[495]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}

/* k40072 in k40004 in loop in k39986 in k39963 in chicken.io#read-line in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void C_ccall f_40074(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_40074,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[3])[1]);
t4=C_set_block_item(((C_word*)t0)[3],0,t3);
t5=C_i_string_set(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[4],((C_word*)t0)[5]);
/* library.scm:8109: loop */
t6=((C_word*)((C_word*)t0)[6])[1];
f_39993(t6,((C_word*)t0)[7],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* k40080 in k40004 in loop in k39986 in k39963 in chicken.io#read-line in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void C_ccall f_40082(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_40082,c,av);}
/* library.scm:8106: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=t1;
tp(4,av2);}}

/* chicken.io#read-lines in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40111(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_40111,c,av);}
a=C_alloc(7);
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?*((C_word*)lf[853]+1):C_get_rest_arg(c,2,av,2,t0));
t4=C_rest_nullp(c,2);
t5=C_rest_nullp(c,3);
t6=(C_truep(t5)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,2,t0));
t7=C_rest_nullp(c,3);
t8=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[1563]);
t9=(C_truep(t6)?C_i_check_fixnum_2(t6,lf[1563]):C_SCHEME_UNDEFINED);
t10=(C_truep(t6)?t6:*((C_word*)lf[345]+1));
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40139,a[2]=t12,a[3]=t3,a[4]=((C_word)li1187),tmp=(C_word)a,a+=5,tmp));
t14=((C_word*)t12)[1];
f_40139(t14,t1,C_SCHEME_END_OF_LIST,t10);}

/* loop in chicken.io#read-lines in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void f_40139(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_40139,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_eqp(t3,C_fix(0));
if(C_truep(t4)){
/* library.scm:8118: ##sys#fast-reverse */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[454]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[454]+1);
av2[1]=t1;
av2[2]=t2;
tp(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_40152,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* library.scm:8119: read-line */
t6=C_fast_retrieve(lf[1561]);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k40150 in loop in chicken.io#read-lines in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_40152(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_40152,c,av);}
a=C_alloc(3);
if(C_truep(C_eofp(t1))){
/* library.scm:8121: ##sys#fast-reverse */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[454]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[454]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]);
/* library.scm:8122: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_40139(t3,((C_word*)t0)[2],t2,C_fixnum_difference(((C_word*)t0)[5],C_fix(1)));}}

/* chicken.io#write-line in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40201(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,5)))){
C_save_and_reclaim((void*)f_40201,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+4);
t3=C_build_rest(&a,c,3,av);
C_word 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;
t4=(C_truep(C_eqp(t3,C_SCHEME_END_OF_LIST))?*((C_word*)lf[854]+1):C_slot(t3,C_fix(0)));
t5=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[1565]);
t6=C_i_check_string_2(t2,lf[1565]);
t7=C_slot(t2,C_fix(0));
t8=C_slot(t4,C_fix(2));
t9=C_slot(t8,C_fix(3));
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40220,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
t11=C_block_size(t7);
/* library.scm:8131: g9843 */
t12=t9;{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t12;
av2[1]=t10;
av2[2]=t4;
av2[3]=t7;
av2[4]=C_fix(0);
av2[5]=C_fixnum_difference(t11,C_fix(1));
((C_proc)C_fast_retrieve_proc(t12))(6,av2);}}

/* k40218 in chicken.io#write-line in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_40220(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_40220,c,av);}
/* library.scm:8137: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(10);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* chicken.io#read-bytevector!/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40240(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_40240,c,av);}
a=C_alloc(9);
t6=C_eqp(t2,C_fix(0));
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_fix(0);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_slot(t4,C_fix(2));
t8=C_slot(t7,C_fix(7));
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_40255,a[2]=t4,a[3]=t10,a[4]=t8,a[5]=t3,a[6]=((C_word)li1190),tmp=(C_word)a,a+=7,tmp));
t12=((C_word*)t10)[1];
f_40255(t12,t1,t5,t2,C_fix(0));}}

/* loop in chicken.io#read-bytevector!/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void f_40255(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){
C_save_and_reclaim_args((void *)trf_40255,5,t0,t1,t2,t3,t4);}
a=C_alloc(8);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_40259,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,a[5]=t3,a[6]=t2,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
/* library.scm:8147: rdbvec */
t6=((C_word*)t0)[4];{
C_word av2[6];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
av2[3]=t3;
av2[4]=((C_word*)t0)[5];
av2[5]=t2;
((C_proc)C_fast_retrieve_proc(t6))(6,av2);}}

/* k40257 in loop in chicken.io#read-bytevector!/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_40259(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_40259,c,av);}
t2=C_slot(((C_word*)t0)[2],C_fix(5));
t3=C_fixnum_plus(t2,t1);
t4=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),t3);
t5=C_eqp(t1,C_fix(0));
if(C_truep(t5)){
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_i_not(((C_word*)t0)[5]);
t7=(C_truep(t6)?t6:C_fixnum_lessp(t1,((C_word*)t0)[5]));
if(C_truep(t7)){
t8=C_fixnum_plus(((C_word*)t0)[6],t1);
t9=(C_truep(((C_word*)t0)[5])?C_fixnum_difference(((C_word*)t0)[5],t1):C_SCHEME_FALSE);
/* library.scm:8152: loop */
t10=((C_word*)((C_word*)t0)[7])[1];
f_40255(t10,((C_word*)t0)[3],t8,t9,C_fixnum_plus(((C_word*)t0)[4],t1));}
else{
t8=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_fixnum_plus(t1,((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}

/* chicken.io#read-string!/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40315(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_40315,c,av);}
a=C_alloc(7);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_40319,a[2]=t4,a[3]=t3,a[4]=t5,a[5]=t2,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* library.scm:8156: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t6;
av2[2]=C_fixnum_times(t2,C_fix(4));
tp(3,av2);}}

/* k40317 in chicken.io#read-string!/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_40319(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_40319,c,av);}
a=C_alloc(9);
t2=C_slot(((C_word*)t0)[2],C_fix(15));
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_40327,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[5],a[8]=((C_word)li1197),tmp=(C_word)a,a+=9,tmp);
/* library.scm:8158: ##sys#encoding-hook */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[465]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[465]+1);
av2[1]=((C_word*)t0)[6];
av2[2]=t2;
av2[3]=t3;
tp(4,av2);}}

/* a40326 in k40317 in chicken.io#read-string!/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_40327(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(26,c,6)))){
C_save_and_reclaim((void *)f_40327,c,av);}
a=C_alloc(26);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40330,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li1193),tmp=(C_word)a,a+=5,tmp));
t10=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_40348,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word)li1194),tmp=(C_word)a,a+=6,tmp));
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_40354,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=t6,a[6]=((C_word*)t0)[6],a[7]=t12,a[8]=((C_word)li1196),tmp=(C_word)a,a+=9,tmp));
t14=((C_word*)t12)[1];
f_40354(t14,t1,C_fix(0),((C_word*)t0)[7],C_fix(0),C_fix(0));}

/* readb in a40326 in k40317 in chicken.io#read-string!/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void f_40330(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){
C_save_and_reclaim_args((void *)trf_40330,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(7);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_40334,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t5,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
/* library.scm:8162: read-bytevector!/port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1566]);
C_word av2[6];
av2[0]=*((C_word*)lf[1566]+1);
av2[1]=t6;
av2[2]=t2;
av2[3]=t3;
av2[4]=t4;
av2[5]=t5;
tp(6,av2);}}

/* k40332 in readb in a40326 in k40317 in chicken.io#read-string!/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in ... */
static void C_ccall f_40334(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_40334,c,av);}
a=C_alloc(5);
t2=C_eqp(((C_word*)t0)[2],lf[466]);
if(C_truep(t2)){
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40345,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word)li1192),tmp=(C_word)a,a+=5,tmp);
/* library.scm:8165: decoder */
t4=((C_word*)t0)[6];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=t1;
av2[5]=t3;
((C_proc)C_fast_retrieve_proc(t4))(6,av2);}}}

/* a40344 in k40332 in readb in a40326 in k40317 in chicken.io#read-string!/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void C_ccall f_40345(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_40345,c,av);}
t5=C_copy_memory_with_offset(((C_word*)t0)[2],t2,((C_word*)t0)[3],t3,t4);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* finish in a40326 in k40317 in chicken.io#read-string!/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static C_word f_40348(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_stack_overflow_check;{}
t3=C_utf_overwrite(((C_word*)t0)[2],((C_word*)t0)[3],t1,((C_word*)t0)[4],t2);
return(t1);}

/* loop in a40326 in k40317 in chicken.io#read-string!/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void f_40354(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,5)))){
C_save_and_reclaim_args((void *)trf_40354,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(13);
t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_40358,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=t5,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=t2,a[9]=t3,a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],tmp=(C_word)a,a+=13,tmp);
/* library.scm:8173: readb */
t7=((C_word*)((C_word*)t0)[5])[1];
f_40330(t7,t6,t3,((C_word*)t0)[4],((C_word*)t0)[6],t2);}

/* k40356 in loop in a40326 in k40317 in chicken.io#read-string!/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in ... */
static void C_ccall f_40358(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,5)))){
C_save_and_reclaim((void *)f_40358,c,av);}
a=C_alloc(15);
t2=C_eqp(t1,C_fix(0));
if(C_truep(t2)){
/* library.scm:8174: finish */
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
/* library.scm:8174: finish */
  f_40348(((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],((C_word*)t0)[5])
);
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}
else{
t3=C_eqp(((C_word*)t0)[6],lf[466]);
if(C_truep(t3)){
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_40378,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[3],a[8]=t5,a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word)li1195),tmp=(C_word)a,a+=13,tmp));
t7=((C_word*)t5)[1];
f_40378(t7,((C_word*)t0)[2],t1);}
else{
if(C_truep(C_fixnum_greaterp(t1,((C_word*)t0)[9]))){
/* library.scm:8194: loop */
t4=((C_word*)((C_word*)t0)[12])[1];
f_40354(t4,((C_word*)t0)[2],C_fixnum_plus(((C_word*)t0)[8],t1),C_fixnum_difference(((C_word*)t0)[9],t1),C_fixnum_plus(((C_word*)t0)[4],t1),C_fixnum_plus(((C_word*)t0)[5],t1));}
else{
/* library.scm:8196: finish */
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(
/* library.scm:8196: finish */
  f_40348(((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],((C_word*)t0)[5])
);
((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}}}}

/* recount in k40356 in loop in a40326 in k40317 in chicken.io#read-string!/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void f_40378(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
C_save_and_reclaim_args((void *)trf_40378,3,t0,t1,t2);}
a=C_alloc(9);
t3=C_utf_fragment_counts(((C_word*)t0)[2],((C_word*)t0)[3],t2);
t4=C_fixnum_shift_right(t3,C_fix(4));
t5=C_fixnum_and(t3,C_fix(15));
t6=C_fixnum_plus(((C_word*)t0)[4],t4);
t7=C_fixnum_plus(((C_word*)t0)[5],t2);
t8=C_fixnum_difference(((C_word*)t0)[6],t4);
if(C_truep(C_fixnum_greaterp(t5,C_fix(0)))){
t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_40403,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[7],a[5]=t6,a[6]=t7,a[7]=((C_word*)t0)[8],a[8]=t2,tmp=(C_word)a,a+=9,tmp);
/* library.scm:8186: readb */
t10=((C_word*)((C_word*)t0)[9])[1];
f_40330(t10,t9,t5,((C_word*)t0)[2],((C_word*)t0)[10],C_fixnum_plus(((C_word*)t0)[3],t2));}
else{
t9=C_eqp(t8,C_fix(0));
if(C_truep(t9)){
/* library.scm:8190: finish */
t10=t1;{
C_word av2[2];
av2[0]=t10;
av2[1]=(
/* library.scm:8190: finish */
  f_40348(((C_word*)((C_word*)t0)[7])[1],t6,t7)
);
((C_proc)C_fast_retrieve_proc(t10))(2,av2);}}
else{
/* library.scm:8191: loop */
t10=((C_word*)((C_word*)t0)[11])[1];
f_40354(t10,t1,C_fixnum_plus(((C_word*)t0)[3],t2),t8,t6,t7);}}}

/* k40401 in recount in k40356 in loop in a40326 in k40317 in chicken.io#read-string!/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in ... */
static void C_ccall f_40403(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_40403,c,av);}
if(C_truep(C_fixnum_lessp(t1,((C_word*)t0)[2]))){
/* library.scm:8188: finish */
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(
/* library.scm:8188: finish */
  f_40348(((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],((C_word*)t0)[6])
);
((C_proc)C_fast_retrieve_proc(t2))(2,av2);}}
else{
/* library.scm:8189: recount */
t2=((C_word*)((C_word*)t0)[7])[1];
f_40378(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[8],t1));}}

/* chicken.io#read-string! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40473(C_word c,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 *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_40473,c,av);}
t4=C_rest_nullp(c,4);
t5=(C_truep(t4)?*((C_word*)lf[853]+1):C_get_rest_arg(c,4,av,4,t0));
t6=C_rest_nullp(c,4);
t7=C_rest_nullp(c,5);
t8=(C_truep(t7)?C_fix(0):C_get_rest_arg(c,5,av,4,t0));
t9=C_rest_nullp(c,5);
t10=C_i_check_port_2(t5,C_fix(1),C_SCHEME_TRUE,lf[1569]);
t11=C_i_check_string_2(t3,lf[1569]);
t12=(C_truep(t2)?C_i_check_fixnum_2(t2,lf[1569]):C_SCHEME_UNDEFINED);
t13=C_u_i_string_length(t3);
t14=(C_truep(t2)?C_fixnum_less_or_equal_p(C_fixnum_plus(t8,t2),t13):C_SCHEME_FALSE);
if(C_truep(t14)){
t15=C_i_check_fixnum_2(t8,lf[1569]);
/* library.scm:8206: read-string!/port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1567]);
C_word av2[6];
av2[0]=*((C_word*)lf[1567]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=t5;
av2[5]=t8;
tp(6,av2);}}
else{
t15=C_fixnum_difference(t13,t8);
t16=t2=t15;
t17=C_i_check_fixnum_2(t8,lf[1569]);
/* library.scm:8206: read-string!/port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1567]);
C_word av2[6];
av2[0]=*((C_word*)lf[1567]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=t5;
av2[5]=t8;
tp(6,av2);}}}

/* chicken.io#read-bytevector! in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40548(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_40548,c,av);}
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?*((C_word*)lf[853]+1):C_get_rest_arg(c,3,av,3,t0));
t5=C_rest_nullp(c,3);
t6=C_rest_nullp(c,4);
t7=(C_truep(t6)?C_fix(0):C_get_rest_arg(c,4,av,3,t0));
t8=C_rest_nullp(c,4);
t9=C_rest_nullp(c,5);
t10=(C_truep(t9)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,3,t0));
t11=C_rest_nullp(c,5);
t12=C_i_check_port_2(t4,C_fix(1),C_SCHEME_TRUE,lf[846]);
t13=C_i_check_bytevector_2(t2,lf[846]);
t14=C_i_check_fixnum_2(t7,lf[846]);
t15=(C_truep(t10)?C_i_check_fixnum_2(t10,lf[846]):C_SCHEME_UNDEFINED);
t16=C_block_size(t2);
t17=(C_truep(t10)?C_fixnum_difference(t10,t7):C_fixnum_difference(t16,t7));
/* library.scm:8215: read-bytevector!/port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1566]);
C_word av2[6];
av2[0]=*((C_word*)lf[1566]+1);
av2[1]=t1;
av2[2]=t17;
av2[3]=t2;
av2[4]=t4;
av2[5]=t7;
tp(6,av2);}}

/* chicken.io#read-string/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40633(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_40633,c,av);}
a=C_alloc(5);
t4=C_eqp(t2,C_fix(0));
if(C_truep(t4)){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=lf[1572];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40681,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:8220: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word *av2=av;
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t5;
av2[2]=t3;
tp(3,av2);}}}

/* k40650 in k40679 in chicken.io#read-string/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_40652(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_40652,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40655,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:8222: read-string!/port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1567]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[1567]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
av2[3]=t1;
av2[4]=((C_word*)t2)[4];
av2[5]=C_fix(0);
tp(6,av2);}}

/* k40653 in k40650 in k40679 in chicken.io#read-string/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_40655(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_40655,c,av);}
t2=C_eqp(((C_word*)t0)[2],t1);
if(C_truep(t2)){
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* library.scm:8225: ##sys#substring */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[495]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[495]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=C_fix(0);
av2[4]=t1;
tp(5,av2);}}}

/* a40668 in k40679 in chicken.io#read-string/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_40669(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_40669,c,av);}
/* library.scm:8230: ##sys#buffer->string/encoding */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[470]+1));
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[470]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_fix(0);
av2[4]=t3;
av2[5]=C_slot(((C_word*)t0)[2],C_fix(15));
tp(6,av2);}}

/* k40679 in chicken.io#read-string/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_40681(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_40681,c,av);}
a=C_alloc(4);
if(C_truep(C_eofp(t1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_END_OF_FILE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(((C_word*)t0)[3])){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40652,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:8221: ##sys#make-string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[455]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[455]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40669,a[2]=((C_word*)t0)[4],a[3]=((C_word)li1201),tmp=(C_word)a,a+=4,tmp);
/* library.scm:8227: ##sys#read-remaining */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1573]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1573]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
tp(4,av2);}}}}

/* ##sys#read-remaining in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40683(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_40683,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40691,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:8235: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t4;
av2[2]=C_fix(1024);
tp(3,av2);}}

/* k40689 in ##sys#read-remaining in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_40691(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_40691,c,av);}
a=C_alloc(8);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_40693,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li1203),tmp=(C_word)a,a+=6,tmp));
t5=((C_word*)t3)[1];
f_40693(t5,((C_word*)t0)[4],t1,C_fix(1024),C_fix(0));}

/* loop in k40689 in ##sys#read-remaining in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void f_40693(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
C_save_and_reclaim_args((void *)trf_40693,5,t0,t1,t2,t3,t4);}
a=C_alloc(9);
t5=C_block_size(t2);
t6=C_fixnum_difference(t5,t4);
t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_40700,a[2]=t6,a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=t1,a[7]=t4,a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
/* library.scm:8239: read-bytevector!/port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1566]);
C_word av2[6];
av2[0]=*((C_word*)lf[1566]+1);
av2[1]=t7;
av2[2]=t6;
av2[3]=t2;
av2[4]=((C_word*)t0)[4];
av2[5]=t4;
tp(6,av2);}}

/* k40698 in loop in k40689 in ##sys#read-remaining in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_40700(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_40700,c,av);}
a=C_alloc(9);
t2=C_eqp(t1,((C_word*)t0)[2]);
if(C_truep(t2)){
t3=C_fixnum_times(((C_word*)t0)[3],C_fix(2));
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_40712,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t3,a[7]=((C_word*)t0)[7],a[8]=t1,tmp=(C_word)a,a+=9,tmp);
/* library.scm:8242: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t4;
av2[2]=t3;
tp(3,av2);}}
else{
/* library.scm:8245: k */
t3=((C_word*)t0)[8];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[6];
av2[2]=((C_word*)t0)[4];
av2[3]=C_fixnum_plus(t1,((C_word*)t0)[7]);
((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}}

/* k40710 in k40698 in loop in k40689 in ##sys#read-remaining in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in ... */
static void C_ccall f_40712(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_40712,c,av);}
t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]);
/* library.scm:8244: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_40693(t3,((C_word*)t0)[5],t1,((C_word*)t0)[6],C_fixnum_plus(((C_word*)t0)[7],((C_word*)t0)[8]));}

/* chicken.io#read-bytevector/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40732(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_40732,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40736,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:8249: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k40734 in chicken.io#read-bytevector/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_40736(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_40736,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40739,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:8250: read-bytevector!/port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1566]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[1566]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=t1;
av2[4]=((C_word*)t0)[4];
av2[5]=C_fix(0);
tp(6,av2);}}

/* k40737 in k40734 in chicken.io#read-bytevector/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_40739(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_40739,c,av);}
a=C_alloc(5);
t2=C_eqp(((C_word*)t0)[2],t1);
if(C_truep(t2)){
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40748,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* library.scm:8253: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t3;
av2[2]=t1;
tp(3,av2);}}}

/* k40746 in k40737 in k40734 in chicken.io#read-bytevector/port in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_40748(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_40748,c,av);}
t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.io#read-string in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40750(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_40750,c,av);}
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?C_SCHEME_FALSE:C_get_rest_arg(c,2,av,2,t0));
t4=C_rest_nullp(c,2);
t5=C_rest_nullp(c,3);
t6=(C_truep(t5)?*((C_word*)lf[853]+1):C_get_rest_arg(c,3,av,2,t0));
t7=C_rest_nullp(c,3);
t8=C_i_check_port_2(t6,C_fix(1),C_SCHEME_TRUE,lf[1576]);
if(C_truep(t3)){
t9=C_i_check_fixnum_2(t3,lf[1576]);
/* library.scm:8260: read-string/port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1571]);
C_word av2[4];
av2[0]=*((C_word*)lf[1571]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t6;
tp(4,av2);}}
else{
/* library.scm:8260: read-string/port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1571]);
C_word av2[4];
av2[0]=*((C_word*)lf[1571]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t6;
tp(4,av2);}}}

/* chicken.io#read-bytevector in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40801(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_40801,c,av);}
a=C_alloc(3);
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?C_SCHEME_FALSE:C_get_rest_arg(c,2,av,2,t0));
t4=C_rest_nullp(c,2);
t5=C_rest_nullp(c,3);
t6=(C_truep(t5)?*((C_word*)lf[853]+1):C_get_rest_arg(c,3,av,2,t0));
t7=C_rest_nullp(c,3);
t8=C_i_check_port_2(t6,C_fix(1),C_SCHEME_TRUE,lf[1578]);
if(C_truep(t3)){
t9=C_i_check_fixnum_2(t3,lf[1578]);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40826,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:8265: read-bytevector/port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1574]);
C_word av2[4];
av2[0]=*((C_word*)lf[1574]+1);
av2[1]=t10;
av2[2]=t3;
av2[3]=t6;
tp(4,av2);}}
else{
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40841,a[2]=((C_word)li1207),tmp=(C_word)a,a+=3,tmp);
/* library.scm:8270: ##sys#read-remaining */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1573]);
C_word av2[4];
av2[0]=*((C_word*)lf[1573]+1);
av2[1]=t1;
av2[2]=t6;
av2[3]=t9;
tp(4,av2);}}}

/* k40824 in chicken.io#read-bytevector in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_40826(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_40826,c,av);}
t2=C_block_size(t1);
t3=C_eqp(t2,C_fix(0));
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_SCHEME_END_OF_FILE:t1);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a40840 in chicken.io#read-bytevector in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_40841(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_40841,c,av);}
a=C_alloc(5);
t4=C_eqp(t3,C_fix(0));
if(C_truep(t4)){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_END_OF_FILE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40851,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:8275: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t5;
av2[2]=t3;
tp(3,av2);}}}

/* k40849 in a40840 in chicken.io#read-bytevector in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_40851(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_40851,c,av);}
t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.io#read-buffered in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40881(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_40881,c,av);}
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?*((C_word*)lf[853]+1):C_get_rest_arg(c,2,av,2,t0));
t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[1580]);
t5=C_slot(t3,C_fix(2));
t6=C_slot(t5,C_fix(9));
if(C_truep(t6)){
/* library.scm:8291: rb */
t7=t6;{
C_word av2[3];
av2[0]=t7;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}
else{
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=lf[1581];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* chicken.io#read-token in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40909(C_word c,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_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_40909,c,av);}
a=C_alloc(5);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?*((C_word*)lf[853]+1):C_get_rest_arg(c,3,av,3,t0));
t5=C_i_check_port_2(t4,C_fix(1),C_SCHEME_TRUE,lf[1583]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40919,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:8301: scheme#open-output-string */
t7=*((C_word*)lf[326]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* k40917 in chicken.io#read-token in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_40919(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_40919,c,av);}
a=C_alloc(9);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_40924,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li1210),tmp=(C_word)a,a+=7,tmp));
t5=((C_word*)t3)[1];
f_40924(t5,((C_word*)t0)[4]);}

/* loop in k40917 in chicken.io#read-token in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void f_40924(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_40924,2,t0,t1);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_40928,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* library.scm:8303: ##sys#peek-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[922]);
C_word av2[3];
av2[0]=*((C_word*)lf[922]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k40926 in loop in k40917 in chicken.io#read-token in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in ... */
static void C_ccall f_40928(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_40928,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_40934,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_eofp(t1);
if(C_truep(C_i_not(t3))){
/* library.scm:8304: pred */
t4=((C_word*)t0)[6];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=t1;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_40934(2,av2);}}}

/* k40932 in k40926 in loop in k40917 in chicken.io#read-token in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in ... */
static void C_ccall f_40934(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_40934,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40937,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40944,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* library.scm:8306: ##sys#read-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[920]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}
else{
/* library.scm:8308: scheme#get-output-string */
t2=*((C_word*)lf[328]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}

/* k40935 in k40932 in k40926 in loop in k40917 in chicken.io#read-token in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void C_ccall f_40937(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_40937,c,av);}
/* library.scm:8307: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_40924(t2,((C_word*)t0)[3]);}

/* k40942 in k40932 in k40926 in loop in k40917 in chicken.io#read-token in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in ... */
static void C_ccall f_40944(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_40944,c,av);}
/* library.scm:8306: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1023]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1023]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* chicken.io#read-byte in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40965(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_40965,c,av);}
a=C_alloc(4);
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?*((C_word*)lf[853]+1):C_get_rest_arg(c,2,av,2,t0));
t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[1585]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40975,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* library.scm:8315: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t5;
av2[2]=C_fix(1);
tp(3,av2);}}

/* k40973 in chicken.io#read-byte in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_40975(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_40975,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40978,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:8316: read-bytevector!/port */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1566]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[1566]+1);
av2[1]=t2;
av2[2]=C_fix(1);
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
av2[5]=C_fix(0);
tp(6,av2);}}

/* k40976 in k40973 in chicken.io#read-byte in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_40978(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_40978,c,av);}
t2=C_fixnum_lessp(t1,C_fix(1));
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?C_SCHEME_END_OF_FILE:C_subbyte(((C_word*)t0)[3],C_fix(0)));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.io#write-byte in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_40992(C_word c,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_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_40992,c,av);}
a=C_alloc(4);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?*((C_word*)lf[854]+1):C_get_rest_arg(c,3,av,3,t0));
t5=C_i_check_fixnum_2(t2,lf[1587]);
t6=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[1587]);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41005,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:8324: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t7;
av2[2]=C_fix(1);
av2[3]=t2;
tp(4,av2);}}

/* k41003 in chicken.io#write-byte in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_41005(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_41005,c,av);}
t2=C_slot(((C_word*)t0)[2],C_fix(2));
/* library.scm:8324: g10112 */
t3=C_slot(t2,C_fix(3));{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[2];
av2[3]=t1;
av2[4]=C_fix(0);
av2[5]=C_fix(1);
((C_proc)C_fast_retrieve_proc(t3))(6,av2);}}

/* chicken.io#write-bytevector in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in ... */
static void C_ccall f_41023(C_word c,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 *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_41023,c,av);}
a=C_alloc(8);
t3=C_rest_nullp(c,3);
t4=(C_truep(t3)?*((C_word*)lf[854]+1):C_get_rest_arg(c,3,av,3,t0));
t5=C_rest_nullp(c,3);
t6=C_rest_nullp(c,4);
t7=(C_truep(t6)?C_fix(0):C_get_rest_arg(c,4,av,3,t0));
t8=C_rest_nullp(c,4);
t9=C_rest_nullp(c,5);
t10=(C_truep(t9)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,3,t0));
t11=C_rest_nullp(c,5);
t12=C_i_check_bytevector_2(t2,lf[1589]);
t13=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[1589]);
t14=C_i_check_fixnum_2(t7,lf[1589]);
t15=C_block_size(t2);
t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_41057,a[2]=t10,a[3]=t15,a[4]=t4,a[5]=t1,a[6]=t2,a[7]=t7,tmp=(C_word)a,a+=8,tmp);
/* library.scm:8334: ##sys#check-range/including */
t17=*((C_word*)lf[440]+1);{
C_word av2[6];
av2[0]=t17;
av2[1]=t16;
av2[2]=t7;
av2[3]=C_fix(0);
av2[4]=t15;
av2[5]=lf[1589];
((C_proc)(void*)(*((C_word*)t17+1)))(6,av2);}}

/* k41055 in chicken.io#write-bytevector in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in ... */
static void C_ccall f_41057(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_41057,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41060,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[2])){
/* library.scm:8335: ##sys#check-range/including */
t3=*((C_word*)lf[440]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[3];
av2[5]=lf[1589];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_41060(2,av2);}}}

/* k41058 in k41055 in chicken.io#write-bytevector in k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in ... */
static void C_ccall f_41060(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_41060,c,av);}
t2=((C_word*)t0)[2];
t3=(C_truep(((C_word*)t2)[2])?C_i_fixnum_min(((C_word*)t2)[2],((C_word*)t2)[3]):((C_word*)t2)[3]);
t4=C_slot(((C_word*)t2)[4],C_fix(2));
/* library.scm:8336: g10137 */
t5=C_slot(t4,C_fix(3));{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
av2[1]=((C_word*)t2)[5];
av2[2]=((C_word*)t2)[4];
av2[3]=((C_word*)t2)[6];
av2[4]=((C_word*)t2)[7];
av2[5]=t3;
((C_proc)C_fast_retrieve_proc(t5))(6,av2);}}

/* k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in ... */
static void C_ccall f_41119(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_41119,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41127,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41131,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7795: scheme#string-append */
t4=*((C_word*)lf[517]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[1590];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[1591];
av2[5]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}

/* k41125 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in ... */
static void C_ccall f_41127(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(132,c,6)))){
C_save_and_reclaim((void *)f_41127,c,av);}
a=C_alloc(132);
t2=C_a_i_cons(&a,2,t1,C_fast_retrieve(lf[1525]));
t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2);
t4=C_mutate((C_word*)lf[1525]+1 /* (set! ##sys#features ...) */,t3);
t5=C_mutate((C_word*)lf[1531]+1 /* (set! chicken.platform#register-feature! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38116,a[2]=((C_word)li1120),tmp=(C_word)a,a+=3,tmp));
t6=C_mutate((C_word*)lf[1532]+1 /* (set! chicken.platform#unregister-feature! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38160,a[2]=((C_word)li1123),tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[1507]+1 /* (set! chicken.platform#feature? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38238,a[2]=((C_word)li1125),tmp=(C_word)a,a+=3,tmp));
t8=C_mutate((C_word*)lf[1533]+1 /* (set! chicken.platform#return-to-host ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_return_to_host,a[2]=((C_word)li1126),tmp=(C_word)a,a+=3,tmp));
t9=C_mutate((C_word*)lf[1534]+1 /* (set! chicken.platform#system-config-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38275,a[2]=((C_word)li1127),tmp=(C_word)a,a+=3,tmp));
t10=C_mutate((C_word*)lf[1539]+1 /* (set! chicken.platform#system-cache-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38299,a[2]=((C_word)li1128),tmp=(C_word)a,a+=3,tmp));
t11=C_mutate((C_word*)lf[68]+1 /* (set! scheme#features ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38329,a[2]=((C_word)li1130),tmp=(C_word)a,a+=3,tmp));
t12=C_mutate((C_word*)lf[76]+1 /* (set! scheme#make-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38384,a[2]=((C_word)li1132),tmp=(C_word)a,a+=3,tmp));
t13=C_mutate((C_word*)lf[77]+1 /* (set! scheme#list-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38431,a[2]=((C_word)li1134),tmp=(C_word)a,a+=3,tmp));
t14=C_mutate((C_word*)lf[80]+1 /* (set! scheme#list-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38481,a[2]=((C_word)li1136),tmp=(C_word)a,a+=3,tmp));
t15=C_mutate((C_word*)lf[81]+1 /* (set! scheme#string->vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38520,a[2]=((C_word)li1139),tmp=(C_word)a,a+=3,tmp));
t16=C_mutate((C_word*)lf[82]+1 /* (set! scheme#vector->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38622,a[2]=((C_word)li1142),tmp=(C_word)a,a+=3,tmp));
t17=C_mutate((C_word*)lf[72]+1 /* (set! scheme#string-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38732,a[2]=((C_word)li1150),tmp=(C_word)a,a+=3,tmp));
t18=C_mutate((C_word*)lf[74]+1 /* (set! scheme#string-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38972,a[2]=((C_word)li1158),tmp=(C_word)a,a+=3,tmp));
t19=C_mutate((C_word*)lf[73]+1 /* (set! scheme#vector-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39194,a[2]=((C_word)li1166),tmp=(C_word)a,a+=3,tmp));
t20=C_mutate((C_word*)lf[75]+1 /* (set! scheme#vector-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39427,a[2]=((C_word)li1174),tmp=(C_word)a,a+=3,tmp));
t21=C_mutate((C_word*)lf[70]+1 /* (set! scheme#close-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39649,a[2]=((C_word)li1175),tmp=(C_word)a,a+=3,tmp));
t22=C_mutate((C_word*)lf[69]+1 /* (set! scheme#call-with-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39684,a[2]=((C_word)li1178),tmp=(C_word)a,a+=3,tmp));
t23=C_mutate((C_word*)lf[79]+1 /* (set! scheme#eof-object ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39705,a[2]=((C_word)li1179),tmp=(C_word)a,a+=3,tmp));
t24=C_mutate((C_word*)lf[71]+1 /* (set! scheme#peek-u8 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39708,a[2]=((C_word)li1180),tmp=(C_word)a,a+=3,tmp));
t25=C_mutate((C_word*)lf[78]+1 /* (set! scheme#write-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39748,a[2]=((C_word)li1181),tmp=(C_word)a,a+=3,tmp));
t26=C_a_i_provide(&a,1,lf[1558]);
t27=*((C_word*)lf[205]+1);
t28=C_mutate((C_word*)lf[1559]+1 /* (set! chicken.io#read-list ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39852,a[2]=t27,a[3]=((C_word)li1183),tmp=(C_word)a,a+=4,tmp));
t29=C_mutate((C_word*)lf[1561]+1 /* (set! chicken.io#read-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39955,a[2]=((C_word)li1186),tmp=(C_word)a,a+=3,tmp));
t30=C_mutate((C_word*)lf[1562]+1 /* (set! chicken.io#read-lines ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40111,a[2]=((C_word)li1188),tmp=(C_word)a,a+=3,tmp));
t31=C_mutate((C_word*)lf[1564]+1 /* (set! chicken.io#write-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40201,a[2]=((C_word)li1189),tmp=(C_word)a,a+=3,tmp));
t32=C_mutate((C_word*)lf[1566]+1 /* (set! chicken.io#read-bytevector!/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40240,a[2]=((C_word)li1191),tmp=(C_word)a,a+=3,tmp));
t33=C_mutate((C_word*)lf[1567]+1 /* (set! chicken.io#read-string!/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40315,a[2]=((C_word)li1198),tmp=(C_word)a,a+=3,tmp));
t34=C_mutate((C_word*)lf[1568]+1 /* (set! chicken.io#read-string! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40473,a[2]=((C_word)li1199),tmp=(C_word)a,a+=3,tmp));
t35=C_mutate((C_word*)lf[1570]+1 /* (set! chicken.io#read-bytevector! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40548,a[2]=((C_word)li1200),tmp=(C_word)a,a+=3,tmp));
t36=C_mutate((C_word*)lf[1571]+1 /* (set! chicken.io#read-string/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40633,a[2]=((C_word)li1202),tmp=(C_word)a,a+=3,tmp));
t37=C_mutate((C_word*)lf[1573]+1 /* (set! ##sys#read-remaining ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40683,a[2]=((C_word)li1204),tmp=(C_word)a,a+=3,tmp));
t38=C_mutate((C_word*)lf[1574]+1 /* (set! chicken.io#read-bytevector/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40732,a[2]=((C_word)li1205),tmp=(C_word)a,a+=3,tmp));
t39=C_mutate((C_word*)lf[1575]+1 /* (set! chicken.io#read-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40750,a[2]=((C_word)li1206),tmp=(C_word)a,a+=3,tmp));
t40=C_mutate((C_word*)lf[1577]+1 /* (set! chicken.io#read-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40801,a[2]=((C_word)li1208),tmp=(C_word)a,a+=3,tmp));
t41=C_mutate((C_word*)lf[1571]+1 /* (set! chicken.io#read-string/port ...) */,C_fast_retrieve(lf[1571]));
t42=C_mutate((C_word*)lf[1567]+1 /* (set! chicken.io#read-string!/port ...) */,C_fast_retrieve(lf[1567]));
t43=C_mutate((C_word*)lf[1574]+1 /* (set! chicken.io#read-bytevector/port ...) */,C_fast_retrieve(lf[1574]));
t44=C_mutate((C_word*)lf[1566]+1 /* (set! chicken.io#read-bytevector!/port ...) */,C_fast_retrieve(lf[1566]));
t45=C_mutate((C_word*)lf[1579]+1 /* (set! chicken.io#read-buffered ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40881,a[2]=((C_word)li1209),tmp=(C_word)a,a+=3,tmp));
t46=C_mutate((C_word*)lf[1582]+1 /* (set! chicken.io#read-token ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40909,a[2]=((C_word)li1211),tmp=(C_word)a,a+=3,tmp));
t47=C_mutate((C_word*)lf[1584]+1 /* (set! chicken.io#read-byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40965,a[2]=((C_word)li1212),tmp=(C_word)a,a+=3,tmp));
t48=C_mutate((C_word*)lf[1586]+1 /* (set! chicken.io#write-byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40992,a[2]=((C_word)li1213),tmp=(C_word)a,a+=3,tmp));
t49=C_mutate((C_word*)lf[1588]+1 /* (set! chicken.io#write-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41023,a[2]=((C_word)li1214),tmp=(C_word)a,a+=3,tmp));
t50=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t50;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t50+1)))(2,av2);}}

/* k41129 in k41117 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in ... */
static void C_ccall f_41131(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41131,c,av);}
/* library.scm:7795: ->feature-id */
t2=C_retrieve2(lf[1523],C_text("chicken.platform#->feature-id"));{
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_38020(3,av2);}}

/* k41133 in k38109 in k38106 in k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in ... */
static void C_ccall f_41135(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41135,c,av);}
/* library.scm:7794: ->feature-id */
t2=C_retrieve2(lf[1523],C_text("chicken.platform#->feature-id"));{
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_38020(3,av2);}}

/* k41139 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in ... */
static void C_ccall f_41141(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_41141,c,av);}
a=C_alloc(7);
t2=C_a_i_cons(&a,2,t1,C_fast_retrieve(lf[1525]));
t3=C_mutate((C_word*)lf[1525]+1 /* (set! ##sys#features ...) */,t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_38108,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,tmp);
t5=C_fix((C_word)C_MAJOR_VERSION);
/* library.scm:7792: ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[715]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[715]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k41143 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in ... */
static void C_ccall f_41145(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41145,c,av);}
/* library.scm:7785: chicken.keyword#string->keyword */
t2=*((C_word*)lf[764]+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);}}

/* k41147 in k38098 in k38095 in k38092 in k38089 in k38086 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in ... */
static void C_ccall f_41149(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_41149,c,av);}
/* ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[1593];
tp(4,av2);}}

/* k41169 in k38083 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in ... */
static void C_ccall f_41171(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41171,c,av);}
/* library.scm:7772: check */
f_38058(((C_word*)t0)[3],t1);}

/* k41173 in k38080 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in ... */
static void C_ccall f_41175(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41175,c,av);}
/* library.scm:7771: check */
f_38058(((C_word*)t0)[3],t1);}

/* k41177 in k38077 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in ... */
static void C_ccall f_41179(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41179,c,av);}
/* library.scm:7770: check */
f_38058(((C_word*)t0)[3],t1);}

/* k41181 in k38074 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in ... */
static void C_ccall f_41183(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41183,c,av);}
/* library.scm:7769: check */
f_38058(((C_word*)t0)[3],t1);}

/* k41185 in k37998 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in ... */
static void C_ccall f_41187(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41187,c,av);}
/* library.scm:7768: check */
f_38058(((C_word*)t0)[3],t1);}

/* k41205 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in ... */
static void C_ccall f_41207(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_41207,c,av);}
a=C_alloc(8);
t2=C_i_check_list_2(t1,lf[837]);
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_41215,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word)li1215),tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_41215(t6,((C_word*)t0)[4],t1);}

/* map-loop8873 in k41205 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in ... */
static void f_41215(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_41215,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_41240,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);
/* library.scm:7735: g8879 */
t4=C_retrieve2(lf[1522],C_text("chicken.platform#chop-separator"));{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
f_37967(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);}}}

/* k41238 in map-loop8873 in k41205 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in ... */
static void C_ccall f_41240(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_41240,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_41215(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k41255 in k37995 in k37963 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in ... */
static void C_ccall f_41257(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_41257,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);
f_38000(2,av2);}}

/* k41259 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in ... */
static void C_ccall f_41261(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_41261,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41264,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
/* library.scm:7720: scheme#make-parameter */
t3=*((C_word*)lf[85]+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]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41267,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7722: chicken.process-context#get-environment-variable */
t4=C_fast_retrieve(lf[1371]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[1595];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k41262 in k41259 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in ... */
static void C_ccall f_41264(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41264,c,av);}
/* library.scm:7720: scheme#make-parameter */
t2=*((C_word*)lf[85]+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);}}

/* k41265 in k41259 in k37959 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in ... */
static void C_ccall f_41267(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_41267,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
/* library.scm:7720: scheme#make-parameter */
t2=*((C_word*)lf[85]+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);}}
else{
/* ##sys#peek-c-string */
t2=*((C_word*)lf[844]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_mpointer(&a,(void*)C_INSTALL_EGG_HOME);
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}

/* k41275 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in ... */
static void C_ccall f_41277(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_41277,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41280,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list1(&a,1,t1);
f_41280(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41326,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* library.scm:7707: chicken.process-context#get-environment-variable */
t4=C_fast_retrieve(lf[1371]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[1597];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k41278 in k41275 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in ... */
static void C_ccall f_41280(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_41280,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41282,a[2]=((C_word)li1217),tmp=(C_word)a,a+=3,tmp);
/* library.scm:7704: scheme#make-parameter */
t3=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* a41281 in k41278 in k41275 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in ... */
static void C_ccall f_41282(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_41282,c,av);}
a=C_alloc(3);
if(C_truep(t2)){
t3=C_i_check_list_2(t2,lf[1596]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41299,a[2]=((C_word)li1216),tmp=(C_word)a,a+=3,tmp);
t5=(
  f_41299(t2)
);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* for-each-loop8831 in a41281 in k41278 in k41275 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in ... */
static C_word f_41299(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=C_slot(t1,C_fix(0));
t3=C_i_check_string_2(t2,lf[1596]);
t5=C_slot(t1,C_fix(1));
t1=t5;
goto loop;}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* k41324 in k41275 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in ... */
static void C_ccall f_41326(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_41326,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
/* library.scm:7705: ##sys#split-path */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[1519]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41335,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* ##sys#peek-c-string */
t3=*((C_word*)lf[844]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_mpointer(&a,(void*)C_INSTALL_EGG_HOME);
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k41333 in k41324 in k41275 in k37703 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in ... */
static void C_ccall f_41335(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_41335,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_SCHEME_FALSE);
f_41280(2,av2);}}

/* k41353 in k41357 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in ... */
static void C_ccall f_41355(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41355,c,av);}
t2=((C_word*)t0)[2];
f_37705(t2,C_i_not(C_eqp(lf[1599],t1)));}

/* k41357 in k37697 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in ... */
static void C_ccall f_41359(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_41359,c,av);}
a=C_alloc(3);
t2=C_eqp(lf[1598],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41355,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7631: software-version */
t4=C_fast_retrieve(lf[1476]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=((C_word*)t0)[2];
f_37705(t3,C_SCHEME_FALSE);}}

/* k41361 in k37691 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in ... */
static void C_ccall f_41363(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41363,c,av);}
/* library.scm:7625: scheme#string->symbol */
t2=*((C_word*)lf[752]+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);}}

/* k41365 in k37685 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in ... */
static void C_ccall f_41367(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41367,c,av);}
/* library.scm:7621: scheme#string->symbol */
t2=*((C_word*)lf[752]+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);}}

/* k41369 in k37679 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in ... */
static void C_ccall f_41371(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41371,c,av);}
/* library.scm:7617: scheme#string->symbol */
t2=*((C_word*)lf[752]+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);}}

/* k41373 in k37673 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in ... */
static void C_ccall f_41375(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41375,c,av);}
/* library.scm:7613: scheme#string->symbol */
t2=*((C_word*)lf[752]+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);}}

/* k41377 in k37375 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_41379(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41379,c,av);}
/* library.scm:7609: scheme#string->symbol */
t2=*((C_word*)lf[752]+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);}}

/* a41380 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_41381(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41381,c,av);}
t3=C_i_check_symbol_2(t2,lf[1600]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_slot(t2,C_fix(2));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a41389 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in ... */
static void C_ccall f_41390(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_41390,c,av);}
a=C_alloc(5);
t4=C_i_check_symbol_2(t2,lf[1600]);
t5=C_i_check_list_2(t3,lf[1601]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41400,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t7=C_i_length(t3);
if(C_truep(C_i_fixnumevenp(t7))){
t8=C_i_setslot(t2,C_fix(2),t3);
t9=C_i_nullp(t3);
t10=t1;{
C_word *av2=av;
av2[0]=t10;
av2[1]=(C_truep(t9)?C_i_unpersist_symbol(t2):C_i_persist_symbol(t2));
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
/* library.scm:7513: ##sys#signal-hook */
t8=*((C_word*)lf[127]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t8;
av2[1]=t6;
av2[2]=lf[309];
av2[3]=lf[1602];
av2[4]=t3;
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}}}

/* k41398 in a41389 in k37304 in k36939 in k36555 in k36518 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in ... */
static void C_ccall f_41400(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41400,c,av);}
t2=C_i_nullp(((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?C_i_unpersist_symbol(((C_word*)t0)[4]):C_i_persist_symbol(((C_word*)t0)[4]));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k41423 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_41425(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_41425,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41428,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(t1))){
t3=C_slot(t1,C_fix(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_41446,a[2]=t5,a[3]=((C_word)li1226),tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_41446(t7,t2,t3);}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f49696,a[2]=((C_word)li1227),tmp=(C_word)a,a+=3,tmp);
/* library.scm:7186: scheme#make-parameter */
t4=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k41426 in k41423 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f_41428(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_41428,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41430,a[2]=((C_word)li1225),tmp=(C_word)a,a+=3,tmp);
/* library.scm:7186: scheme#make-parameter */
t3=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* a41429 in k41426 in k41423 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in ... */
static void C_ccall f_41430(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41430,c,av);}
t3=C_i_check_list_2(t2,lf[1604]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* loop in k41423 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void f_41446(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
C_save_and_reclaim_args((void *)trf_41446,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_slot(t2,C_fix(0));
t4=C_slot(t2,C_fix(1));
if(C_truep(C_i_string_equal_p(lf[1605],t3))){
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_string_length(t3);
if(C_truep(C_fixnum_greater_or_equal_p(t5,C_fix(3)))){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_41481,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* library.scm:7199: ##sys#substring */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[495]+1));
C_word av2[5];
av2[0]=*((C_word*)lf[495]+1);
av2[1]=t6;
av2[2]=t3;
av2[3]=C_fix(0);
av2[4]=C_fix(2);
tp(5,av2);}}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}

/* k41479 in loop in k41423 in k36514 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in ... */
static void C_ccall f_41481(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41481,c,av);}
if(C_truep(C_i_string_equal_p(lf[1606],t1))){
/* library.scm:7200: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_41446(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k41503 in k41507 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_41505(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_41505,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f49708,a[2]=((C_word)li1229),tmp=(C_word)a,a+=3,tmp);
/* library.scm:7177: scheme#make-parameter */
t4=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=t2;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k41507 in k36330 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_41509(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_41509,c,av);}
a=C_alloc(3);
if(C_truep(C_i_nullp(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f49702,a[2]=((C_word)li1228),tmp=(C_word)a,a+=3,tmp);
/* library.scm:7177: scheme#make-parameter */
t3=*((C_word*)lf[85]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[1608];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41505,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7180: argv */
t3=C_fast_retrieve(lf[1380]);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* a41510 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_41511(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_41511,c,av);}
a=C_alloc(11);
t2=C_uint64_to_num(&a,C_MAX_PATH);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41515,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* library.scm:7097: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k41513 in a41510 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in ... */
static void C_ccall f_41515(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_41515,c,av);}
a=C_alloc(5);
t2=C_curdir(t1,((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41518,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_fast_retrieve(lf[1478]))){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_41518(2,av2);}}
else{
/* library.scm:7100: ##sys#update-errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[845]);
C_word *av2=av;
av2[0]=*((C_word*)lf[845]+1);
av2[1]=t3;
tp(2,av2);}}}

/* k41516 in k41513 in a41510 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in ... */
static void C_ccall f_41518(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_41518,c,av);}
a=C_alloc(3);
if(C_truep(((C_word*)t0)[2])){
/* library.scm:7102: ##sys#buffer->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[331]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[331]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[2];
tp(5,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41531,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* library.scm:7105: ##sys#errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1354]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1354]+1);
av2[1]=t2;
tp(2,av2);}}}

/* k41529 in k41516 in k41513 in a41510 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in ... */
static void C_ccall f_41531(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_41531,c,av);}
/* library.scm:7103: ##sys#signal-hook/errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[388]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[388]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[476];
av2[3]=t1;
av2[4]=lf[1609];
av2[5]=lf[1610];
tp(6,av2);}}

/* a41535 in k35694 in k35474 in k35048 in k35045 in k35042 in k35039 in k35034 in k35030 in k34889 in k33873 in k33870 in k33867 in k33100 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in ... */
static void C_ccall f_41536(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41536,c,av);}
/* library.scm:7108: ##sys#change-directory-hook */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1369]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1369]+1);
av2[1]=t1;
av2[2]=t2;
tp(3,av2);}}

/* a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_41551(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,2)))){
C_save_and_reclaim((void*)f_41551,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+8);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41555,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41690,a[2]=((C_word)li1236),tmp=(C_word)a,a+=3,tmp);
/* library.scm:6189: ##sys#error-handler */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1158]);
C_word *av2=av;
av2[0]=*((C_word*)lf[1158]+1);
av2[1]=t4;
av2[2]=t5;
tp(3,av2);}}

/* k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_41555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_41555,c,av);}
a=C_alloc(5);
t2=C_mk_bool(C_gui_mode);
if(C_truep(C_i_not(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41564,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6191: ##sys#print */
t4=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[1619];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41640,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);
/* library.scm:6211: scheme#open-output-string */
t4=*((C_word*)lf[326]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k41562 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_41564(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_41564,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41567,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t2)[4])){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41634,a[2]=t3,a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
/* library.scm:6193: ##sys#print */
t5=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[1618];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_41567(2,av2);}}}

/* k41565 in k41562 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_41567(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_41567,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41570,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41578,a[2]=((C_word*)t0)[3],a[3]=((C_word)li1233),tmp=(C_word)a,a+=4,tmp);
/* library.scm:6195: ##sys#with-print-length-limit */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1081]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[1081]+1);
av2[1]=t2;
av2[2]=C_fix(400);
av2[3]=t3;
tp(4,av2);}}

/* k41568 in k41565 in k41562 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_41570(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_41570,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41573,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:6207: ##sys#print */
t3=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(10);
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k41571 in k41568 in k41565 in k41562 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_41573(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_41573,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41576,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:6208: chicken.base#print-call-chain */
t3=*((C_word*)lf[243]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k41574 in k41571 in k41568 in k41565 in k41562 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_41576(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41576,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_halt(C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a41577 in k41565 in k41562 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_41578(C_word c,C_word *av){
C_word tmp;
C_word t0=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);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_41578,c,av);}
a=C_alloc(6);
t2=C_eqp(C_fix(1),C_u_i_length(((C_word*)t0)[2]));
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41588,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* library.scm:6199: ##sys#print */
t4=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[1617];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41608,a[2]=t4,a[3]=((C_word)li1232),tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_41608(t6,t1,((C_word*)t0)[2]);}}

/* k41586 in a41577 in k41565 in k41562 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_41588(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_41588,c,av);}
/* library.scm:6200: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_slot(((C_word*)t0)[3],C_fix(0));
av2[3]=C_SCHEME_TRUE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k41598 in for-each-loop7262 in a41577 in k41565 in k41562 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_41600(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_41600,c,av);}
/* library.scm:6205: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_SCHEME_TRUE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* for-each-loop7262 in a41577 in k41565 in k41562 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void f_41608(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_41608,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41618,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41600,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6204: ##sys#print */
t6=*((C_word*)lf[1027]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_make_character(10);
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k41616 in for-each-loop7262 in a41577 in k41565 in k41562 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_41618(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41618,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_41608(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k41632 in k41562 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_41634(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_41634,c,av);}
/* library.scm:6194: ##sys#print */
t2=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_SCHEME_FALSE;
av2[4]=*((C_word*)lf[855]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k41638 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in ... */
static void C_ccall f_41640(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_41640,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41643,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_word*)t0)[4])){
/* library.scm:6212: ##sys#print */
t3=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_41643(2,av2);}}}

/* k41641 in k41638 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in ... */
static void C_ccall f_41643(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_41643,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41646,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6213: ##sys#print */
t3=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(10);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k41644 in k41641 in k41638 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in ... */
static void C_ccall f_41646(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_41646,c,av);}
a=C_alloc(16);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41647,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t2)[2],a[4]=((C_word)li1234),tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41657,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41663,a[2]=t6,a[3]=t3,a[4]=((C_word)li1235),tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_41663(t8,t4,((C_word*)t2)[4]);}

/* g7288 in k41644 in k41641 in k41638 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void f_41647(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
C_save_and_reclaim_args((void *)trf_41647,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+2,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41651,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6214: ##sys#print */
t5=*((C_word*)lf[1027]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k41649 in g7288 in k41644 in k41641 in k41638 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_41651(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_41651,c,av);}
t2=((C_word*)t0)[2];
/* library.scm:6214: ##sys#print */
t3=*((C_word*)lf[1027]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=C_make_character(10);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k41655 in k41644 in k41641 in k41638 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void C_ccall f_41657(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_41657,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41661,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* library.scm:6215: scheme#get-output-string */
t3=*((C_word*)lf[328]+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);}}

/* k41659 in k41655 in k41644 in k41641 in k41638 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_41661(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41661,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_halt(t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* for-each-loop7287 in k41644 in k41641 in k41638 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in ... */
static void f_41663(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_41663,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_41673,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:6214: g7288 */
t4=((C_word*)t0)[3];
f_41647(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);}}}

/* k41671 in for-each-loop7287 in k41644 in k41641 in k41638 in k41553 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in ... */
static void C_ccall f_41673(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41673,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_41663(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* a41689 in a41550 in k32761 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in ... */
static void C_ccall f_41690(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41690,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_halt(lf[1620]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a41692 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_41693(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_41693,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41697,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* library.scm:6079: chicken.base#exit-handler */
t3=*((C_word*)lf[272]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k41695 in a41692 in k32757 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in ... */
static void C_ccall f_41697(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_41697,c,av);}
/* library.scm:6078: g7156 */
t2=t1;{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_fix((C_word)EX_SOFTWARE);
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* a41701 in k32753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_41702(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41702,c,av);}
/* library.scm:6074: cleanup-before-exit */
f_32652(t1);}

/* a41707 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_41708(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_41708,c,av);}
a=C_alloc(4);
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?C_fix(0):C_get_rest_arg(c,2,av,2,t0));
t4=C_i_check_fixnum(t3);
if(C_truep(C_retrieve2(lf[1106],C_text("exit-in-progress")))){
/* library.scm:6066: ##sys#warn */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[385]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[385]+1);
av2[1]=t1;
av2[2]=lf[1621];
tp(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41724,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* library.scm:6068: cleanup-before-exit */
f_32652(t5);}}

/* k41722 in a41707 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_41724(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41724,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_exit_runtime(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a41731 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_41732(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41732,c,av);}
t3=C_slot(t2,C_fix(10));
t4=C_slot(t2,C_fix(12));
t5=C_slot(t2,C_fix(11));
if(C_truep(C_fixnum_greater_or_equal_p(t3,t5))){
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_END_OF_FILE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_utf_decode(t4,t3);
t7=C_i_set_i_slot(t2,C_fix(10),C_utf_advance(t4,t3));
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}

/* a41753 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_41754(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41754,c,av);}
t3=C_slot(t2,C_fix(10));
t4=C_slot(t2,C_fix(12));
t5=C_slot(t2,C_fix(11));
t6=C_fixnum_greater_or_equal_p(t3,t5);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=(C_truep(t6)?C_SCHEME_END_OF_FILE:C_utf_decode(t4,t3));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* a41771 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_41772(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_41772,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41776,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* library.scm:5817: check */
t5=((C_word*)((C_word*)t0)[2])[1];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
av2[3]=C_fix(1);
((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}

/* k41774 in a41771 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_41776(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41776,c,av);}
t2=C_slot(((C_word*)t0)[2],C_fix(10));
t3=C_slot(((C_word*)t0)[2],C_fix(12));
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),C_utf_insert(t3,t2,((C_word*)t0)[4]));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a41787 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_41788(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_41788,c,av);}
a=C_alloc(7);
t6=C_fixnum_difference(t5,t4);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_41795,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t6,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* library.scm:5823: check */
t8=((C_word*)((C_word*)t0)[2])[1];{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
av2[2]=t2;
av2[3]=t6;
((C_proc)C_fast_retrieve_proc(t8))(4,av2);}}

/* k41793 in a41787 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_41795(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41795,c,av);}
t2=C_slot(((C_word*)t0)[2],C_fix(10));
t3=C_slot(((C_word*)t0)[2],C_fix(12));
t4=C_copy_memory_with_offset(t3,((C_word*)t0)[3],t2,((C_word*)t0)[4],((C_word*)t0)[5]);
t5=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),C_fixnum_plus(t2,((C_word*)t0)[5]));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* a41809 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_41810(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41810,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a41812 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_41813(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41813,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a41815 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_41816(C_word c,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 *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_41816,c,av);}
a=C_alloc(11);
t6=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t7=C_slot(t2,C_fix(10));
t8=C_slot(t2,C_fix(12));
t9=C_slot(t2,C_fix(11));
t10=C_fixnum_difference(t9,t7);
t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_41829,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=t7,a[6]=t6,a[7]=t2,a[8]=t1,tmp=(C_word)a,a+=9,tmp);
t12=C_i_not(((C_word*)t6)[1]);
if(C_truep(t12)){
if(C_truep(t12)){
t13=C_set_block_item(t6,0,t10);
t14=t11;
f_41829(t14,t13);}
else{
t13=t11;
f_41829(t13,C_SCHEME_UNDEFINED);}}
else{
if(C_truep(C_fixnum_greaterp(((C_word*)t6)[1],t10))){
t13=C_set_block_item(t6,0,t10);
t14=t11;
f_41829(t14,t13);}
else{
t13=t11;
f_41829(t13,C_SCHEME_UNDEFINED);}}}

/* k41827 in a41815 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void f_41829(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){
C_save_and_reclaim_args((void *)trf_41829,2,t0,t1);}
t2=C_copy_memory_with_offset(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);
t3=C_fixnum_plus(((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);
t4=C_i_set_i_slot(((C_word*)t0)[7],C_fix(10),t3);
t5=((C_word*)t0)[8];{
C_word av2[2];
av2[0]=t5;
av2[1]=((C_word*)((C_word*)t0)[6])[1];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* a41851 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_41852(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
C_save_and_reclaim((void *)f_41852,c,av);}
a=C_alloc(11);
t4=C_slot(t2,C_fix(10));
t5=C_slot(t2,C_fix(11));
t6=C_slot(t2,C_fix(12));
t7=(C_truep(t3)?C_fixnum_plus(t4,t3):t5);
if(C_truep(C_fixnum_greater_or_equal_p(t4,t5))){
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_END_OF_FILE;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_41876,a[2]=t7,a[3]=t5,a[4]=t6,a[5]=t4,a[6]=((C_word)li884),tmp=(C_word)a,a+=7,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41895,a[2]=t2,a[3]=((C_word)li885),tmp=(C_word)a,a+=4,tmp);
/* library.scm:5846: ##sys#call-with-values */{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t8;
av2[3]=t9;
C_call_with_values(4,av2);}}}

/* a41875 in a41851 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_41876(C_word c,C_word *av){
C_word tmp;
C_word t0=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);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_41876,c,av);}
a=C_alloc(3);
t2=C_fixnum_greaterp(((C_word*)t0)[2],((C_word*)t0)[3]);
t3=(C_truep(t2)?((C_word*)t0)[3]:((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41886,a[2]=((C_word)li883),tmp=(C_word)a,a+=3,tmp);
/* library.scm:5847: ##sys#scan-buffer-line */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1083]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[1083]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[4];
av2[3]=t3;
av2[4]=((C_word*)t0)[5];
av2[5]=t4;
tp(6,av2);}}

/* a41885 in a41875 in a41851 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in ... */
static void C_ccall f_41886(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_41886,c,av);}
/* library.scm:5849: scheme#values */{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=t1;
av2[2]=C_SCHEME_FALSE;
av2[3]=t2;
av2[4]=C_SCHEME_FALSE;
C_values(5,av2);}}

/* a41894 in a41851 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_41895(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41895,c,av);}
if(C_truep(t4)){
t5=C_slot(((C_word*)t0)[2],C_fix(4));
t6=C_fixnum_plus(t5,C_fix(1));
t7=C_i_set_i_slot(((C_word*)t0)[2],C_fix(4),t6);
t8=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),C_fix(0));
t9=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),t2);
t10=t1;{
C_word *av2=av;
av2[0]=t10;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t5=C_slot(((C_word*)t0)[2],C_fix(5));
t6=C_i_string_length(t3);
t7=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),C_fixnum_plus(t5,t6));
t8=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),t2);
t9=t1;{
C_word *av2=av;
av2[0]=t9;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}

/* a41935 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in ... */
static void C_ccall f_41936(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_41936,c,av);}
a=C_alloc(5);
t3=C_slot(t2,C_fix(10));
t4=C_slot(t2,C_fix(11));
if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=lf[1084];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_fixnum_difference(t4,t3);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41958,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:5865: ##sys#buffer->string */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[331]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[331]+1);
av2[1]=t6;
av2[2]=C_fast_retrieve(lf[1085]);
av2[3]=t3;
av2[4]=t5;
tp(5,av2);}}}

/* k41956 in a41935 in k31613 in k30417 in k30413 in k30409 in k26743 in k26739 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in ... */
static void C_ccall f_41958(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41958,c,av);}
t2=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a41966 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in ... */
static void C_ccall f_41967(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_41967,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41971,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(t2)){
/* library.scm:4678: ##sys#check-keyword */
t4=*((C_word*)lf[426]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
av2[3]=lf[1623];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k41969 in a41966 in k26735 in k26731 in k26727 in k26717 in k26338 in k26334 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in ... */
static void C_ccall f_41971(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41971,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);}}

/* a41975 in k26330 in k26326 in k26322 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in ... */
static void C_ccall f_41976(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41976,c,av);}
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_set_car(C_i_list_tail(t2,t3),t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* a41985 in k26318 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in ... */
static void C_ccall f_41986(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41986,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_cdr(C_i_cddr(t2),t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a41995 in k26314 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in ... */
static void C_ccall f_41996(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_41996,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_cdr(C_i_cdar(t2),t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a42005 in k26310 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in ... */
static void C_ccall f_42006(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42006,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_cdr(C_i_cadr(t2),t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a42015 in k26306 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in ... */
static void C_ccall f_42016(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42016,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_cdr(C_i_caar(t2),t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a42025 in k26302 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in ... */
static void C_ccall f_42026(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42026,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_car(C_i_cddr(t2),t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a42035 in k26298 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in ... */
static void C_ccall f_42036(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42036,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_car(C_i_cdar(t2),t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a42045 in k26294 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in ... */
static void C_ccall f_42046(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42046,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_car(C_i_cadr(t2),t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a42055 in k26290 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in ... */
static void C_ccall f_42056(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42056,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_car(C_i_caar(t2),t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a42065 in k26286 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in ... */
static void C_ccall f_42066(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42066,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_cdr(C_i_cdr(t2),t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a42075 in k26282 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in ... */
static void C_ccall f_42076(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42076,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_cdr(C_i_car(t2),t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a42085 in k26278 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in ... */
static void C_ccall f_42086(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42086,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_car(C_i_cdr(t2),t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a42095 in k26274 in k26270 in k26190 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in ... */
static void C_ccall f_42096(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42096,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_car(C_i_car(t2),t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a42105 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_42106(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_42106,c,av);}
a=C_alloc(7);
if(C_truep(C_i_closurep(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_42122,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42130,a[2]=((C_word)li1255),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4488: ##sys#lambda-decoration */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[904]+1);
av2[1]=t3;
av2[2]=t2;
av2[3]=t4;
tp(4,av2);}}
else{
/* library.scm:4490: ##sys#error */
t3=*((C_word*)lf[211]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[911];
av2[3]=lf[1625];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k42120 in a42105 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_42122(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_42122,c,av);}
if(C_truep(t1)){
t2=C_slot(t1,C_fix(1));
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* library.scm:4490: ##sys#error */
t3=*((C_word*)lf[211]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[911];
av2[3]=lf[1625];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}
else{
/* library.scm:4490: ##sys#error */
t2=*((C_word*)lf[211]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[911];
av2[3]=lf[1625];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}

/* a42129 in a42105 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_42130(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42130,c,av);}
t3=C_i_pairp(t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_eqp(C_retrieve2(lf[912],C_text("setter-tag")),C_slot(t2,C_fix(0))):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a42145 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_42146(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42146,c,av);}
t3=C_i_pairp(t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_eqp(C_retrieve2(lf[912],C_text("setter-tag")),C_slot(t2,C_fix(0))):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a42161 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_42162(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_42162,c,av);}
a=C_alloc(6);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42172,a[2]=((C_word)li1260),tmp=(C_word)a,a+=3,tmp);
t5=C_a_i_cons(&a,2,C_retrieve2(lf[912],C_text("setter-tag")),t4);
t6=C_i_setslot(t2,t3,t5);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* a42171 in a42161 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in ... */
static void C_ccall f_42172(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_42172,c,av);}
a=C_alloc(11);
if(C_truep(C_i_closurep(t2))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_42182,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42201,a[2]=((C_word)li1258),tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_42217,a[2]=t3,a[3]=((C_word)li1259),tmp=(C_word)a,a+=4,tmp);
/* library.scm:4499: ##sys#decorate-lambda */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[903]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[903]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=t5;
av2[4]=t6;
tp(5,av2);}}
else{
/* library.scm:4506: chicken.base#error */
t4=*((C_word*)lf[249]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=lf[1626];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k42180 in a42171 in a42161 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_42182(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_42182,c,av);}
a=C_alloc(6);
t2=C_eqp(((C_word*)t0)[2],t1);
if(C_truep(t2)){
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t4=C_a_i_list1(&a,1,t3);
/* library.scm:4505: ##sys#become! */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[405]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[405]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=t4;
tp(3,av2);}}}

/* a42200 in a42171 in a42161 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_42201(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42201,c,av);}
t3=C_i_pairp(t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_eqp(C_retrieve2(lf[912],C_text("setter-tag")),C_slot(t2,C_fix(0))):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a42216 in a42171 in a42161 in k25269 in k25266 in k25263 in k25260 in k25256 in k25252 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in ... */
static void C_ccall f_42217(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_42217,c,av);}
a=C_alloc(3);
t4=C_a_i_cons(&a,2,C_retrieve2(lf[912],C_text("setter-tag")),((C_word*)t0)[2]);
t5=C_i_setslot(t2,t3,t4);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* a42229 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42230(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_42230,c,av);}
a=C_alloc(7);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_42236,a[2]=t2,a[3]=t4,a[4]=((C_word)li672),tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t1;
f_42236(2,av2);}}

/* loop in a42229 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42236(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[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);
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_42236,c,av);}
a=C_alloc(5);
t2=C_slot(((C_word*)t0)[2],C_fix(10));
if(C_truep(t2)){
t3=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),C_SCHEME_FALSE);
/* library.scm:4095: ##sys#decode-char */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[474]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[474]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_slot(((C_word*)t0)[2],C_fix(15));
av2[4]=C_fix(0);
tp(5,av2);}}
else{
t3=C_slot(((C_word*)t0)[2],C_fix(15));
t4=C_eqp(lf[466],t3);
if(C_truep(t4)){
t5=C_read_char(((C_word*)t0)[2]);
t6=C_eqp(C_fix(-1),t5);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_42268,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* library.scm:4099: ##sys#update-errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[845]);
C_word *av2=av;
av2[0]=*((C_word*)lf[845]+1);
av2[1]=t7;
tp(2,av2);}}
else{
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
else{
t5=C_slot(((C_word*)t0)[2],C_fix(15));
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42298,a[2]=((C_word)li671),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4107: ##sys#read-char/encoding */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[475]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[475]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t5;
av2[4]=t6;
tp(5,av2);}}}}

/* k42266 in loop in a42229 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42268(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_42268,c,av);}
a=C_alloc(11);
t2=C_fix((C_word)EINTR);
t3=C_eqp(t1,t2);
if(C_truep(t3)){
/* library.scm:4101: ##sys#dispatch-interrupt */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[842]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[842]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)((C_word*)t0)[3])[1];
tp(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_42284,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42288,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* ##sys#peek-c-string */
t6=*((C_word*)lf[844]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=C_mpointer(&a,(void*)strerror(errno));
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}

/* k42282 in k42266 in loop in a42229 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42284(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_42284,c,av);}
/* library.scm:4102: ##sys#signal-hook/errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[388]);
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=*((C_word*)lf[388]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[476];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[477];
av2[5]=t1;
av2[6]=((C_word*)t0)[4];
tp(7,av2);}}

/* k42286 in k42266 in loop in a42229 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42288(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_42288,c,av);}
/* library.scm:4104: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[843];
av2[3]=t1;
tp(4,av2);}}

/* a42297 in loop in a42229 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42298(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_42298,c,av);}
a=C_alloc(3);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42304,a[2]=((C_word)li670),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4110: dec */
t7=t5;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=t4;
av2[5]=t6;
((C_proc)C_fast_retrieve_proc(t7))(6,av2);}}

/* a42303 in a42297 in loop in a42229 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42304(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42304,c,av);}
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_utf_decode(t2,t3);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* a42310 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42311(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){
C_save_and_reclaim((void *)f_42311,c,av);}
a=C_alloc(4);
t3=C_slot(t2,C_fix(10));
t4=C_slot(t2,C_fix(15));
if(C_truep(t3)){
/* library.scm:4117: ##sys#decode-char */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[474]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[474]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
av2[4]=C_fix(0);
tp(5,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_42329,a[2]=t2,a[3]=((C_word)li675),tmp=(C_word)a,a+=4,tmp);
/* library.scm:4118: ##sys#read-char/encoding */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[475]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[475]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t4;
av2[4]=t5;
tp(5,av2);}}}

/* a42328 in a42310 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42329(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_42329,c,av);}
a=C_alloc(8);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_42333,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t5,a[7]=t1,tmp=(C_word)a,a+=8,tmp);
/* library.scm:4121: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t6;
av2[2]=t4;
av2[3]=C_fix(1);
tp(4,av2);}}

/* k42331 in a42328 in a42310 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42333(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_42333,c,av);}
a=C_alloc(3);
t2=C_copy_memory_with_offset(t1,((C_word*)t0)[2],C_fix(0),((C_word*)t0)[3],((C_word*)t0)[4]);
t3=C_i_setslot(((C_word*)t0)[5],C_fix(10),t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42341,a[2]=((C_word)li674),tmp=(C_word)a,a+=3,tmp);
/* library.scm:4124: dec */
t5=((C_word*)t0)[6];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[7];
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
av2[5]=t4;
((C_proc)C_fast_retrieve_proc(t5))(6,av2);}}

/* a42340 in k42331 in a42328 in a42310 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42341(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42341,c,av);}
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_utf_decode(t2,t3);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* a42343 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42344(C_word c,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);
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_42344,c,av);}
a=C_alloc(6);
t4=C_slot(t2,C_fix(15));
t5=C_eqp(t4,lf[466]);
if(C_truep(t5)){
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_display_char(t2,t3);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_42357,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
/* library.scm:4131: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t6;
av2[2]=C_fix(4);
tp(3,av2);}}}

/* k42355 in a42343 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42357(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_42357,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_42360,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4132: ##sys#encode-char */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[473]+1));
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[473]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=t1;
av2[4]=((C_word*)t0)[5];
tp(5,av2);}}

/* k42358 in k42355 in a42343 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42360(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_42360,c,av);}
t2=C_slot(((C_word*)t0)[2],C_fix(2));
/* library.scm:4131: g5028 */
t3=C_slot(t2,C_fix(3));{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[4];
av2[4]=C_fix(0);
av2[5]=t1;
((C_proc)C_fast_retrieve_proc(t3))(6,av2);}}

/* a42371 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42372(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){
C_save_and_reclaim((void *)f_42372,c,av);}
a=C_alloc(4);
t6=C_fixnum_difference(t5,t4);
t7=C_slot(t2,C_fix(15));
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_42386,a[2]=t2,a[3]=((C_word)li678),tmp=(C_word)a,a+=4,tmp);
/* library.scm:4135: ##sys#encode-buffer */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[471]+1));
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=*((C_word*)lf[471]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
av2[4]=t6;
av2[5]=t7;
av2[6]=t8;
tp(7,av2);}}

/* a42385 in a42371 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42386(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42386,c,av);}
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_display_string(((C_word*)t0)[2],t2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* a42388 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42389(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42389,c,av);}
t4=C_close_file(t2);
/* library.scm:4141: ##sys#update-errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[845]);
C_word *av2=av;
av2[0]=*((C_word*)lf[845]+1);
av2[1]=t1;
tp(2,av2);}}

/* a42394 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42395(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42395,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_flush_output(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a42397 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42398(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42398,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_char_ready_p(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a42400 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42401(C_word c,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 t19;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_42401,c,av);}
a=C_alloc(14);
t6=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t8=C_slot(t2,C_fix(10));
t9=C_fix(0);
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_42408,a[2]=t6,a[3]=t4,a[4]=t7,a[5]=t2,a[6]=t1,a[7]=t10,tmp=(C_word)a,a+=8,tmp);
if(C_truep(t8)){
t12=C_block_size(t8);
t13=C_set_block_item(t10,0,t12);
t14=C_copy_memory_with_offset(t4,t8,((C_word*)t7)[1],C_fix(0),((C_word*)t10)[1]);
t15=C_fixnum_plus(((C_word*)t7)[1],((C_word*)t10)[1]);
t16=C_set_block_item(t7,0,t15);
t17=C_fixnum_difference(((C_word*)t6)[1],((C_word*)t10)[1]);
t18=C_set_block_item(t6,0,t17);
t19=t11;
f_42408(t19,C_i_set_i_slot(t2,C_fix(10),C_SCHEME_FALSE));}
else{
t12=t11;
f_42408(t12,C_SCHEME_UNDEFINED);}}

/* k42406 in a42400 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void f_42408(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
C_save_and_reclaim_args((void *)trf_42408,2,t0,t1);}
a=C_alloc(9);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=(C_truep(t2)?t2:C_fixnum_difference(C_block_size(((C_word*)t0)[3]),((C_word*)((C_word*)t0)[4])[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|6,a[1]=(C_word)f_42417,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=t5,a[5]=((C_word*)t0)[2],a[6]=((C_word)li684),tmp=(C_word)a,a+=7,tmp));
t7=((C_word*)t5)[1];
f_42417(t7,((C_word*)t0)[6],t3,((C_word*)((C_word*)t0)[7])[1],((C_word*)((C_word*)t0)[4])[1]);}

/* loop in k42406 in a42400 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void f_42417(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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_42417,5,t0,t1,t2,t3,t4);}
a=C_alloc(10);
t5=fast_read_string_from_file(((C_word*)t0)[2],((C_word*)t0)[3],t2,t4);
if(C_truep(C_eofp(t5))){
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
if(C_truep(C_fixnum_lessp(t5,C_fix(0)))){
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_42433,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t1,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp);
/* library.scm:4163: ##sys#update-errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[845]);
C_word av2[2];
av2[0]=*((C_word*)lf[845]+1);
av2[1]=t6;
tp(2,av2);}}
else{
if(C_truep(C_fixnum_lessp(t5,t2))){
/* library.scm:4172: loop */
t8=t1;
t9=C_fixnum_difference(t2,t5);
t10=C_fixnum_plus(t3,t5);
t11=C_fixnum_plus(t4,t5);
t1=t8;
t2=t9;
t3=t10;
t4=t11;
goto loop;}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_fixnum_plus(t3,t5);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}

/* k42431 in loop in k42406 in a42400 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42433(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_42433,c,av);}
a=C_alloc(14);
t2=C_fix((C_word)EINTR);
t3=C_eqp(t1,t2);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_42444,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li683),tmp=(C_word)a,a+=7,tmp);
/* library.scm:4165: ##sys#dispatch-interrupt */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[842]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[842]+1);
av2[1]=((C_word*)t0)[6];
av2[2]=t4;
tp(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_42455,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42459,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* ##sys#peek-c-string */
t6=*((C_word*)lf[844]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=C_mpointer(&a,(void*)strerror(errno));
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}

/* a42443 in k42431 in loop in k42406 in a42400 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 in ... */
static void C_ccall f_42444(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_42444,c,av);}
/* library.scm:4166: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_42417(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k42453 in k42431 in loop in k42406 in a42400 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 in ... */
static void C_ccall f_42455(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_42455,c,av);}
/* library.scm:4167: ##sys#signal-hook/errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[388]);
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=*((C_word*)lf[388]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[476];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[846];
av2[5]=t1;
av2[6]=((C_word*)t0)[4];
av2[7]=((C_word*)((C_word*)t0)[5])[1];
av2[8]=((C_word*)t0)[6];
av2[9]=((C_word*)t0)[7];
tp(10,av2);}}

/* k42457 in k42431 in loop in k42406 in a42400 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 in ... */
static void C_ccall f_42459(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_42459,c,av);}
/* library.scm:4169: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[847];
av2[3]=t1;
tp(4,av2);}}

/* a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42508(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_42508,c,av);}
a=C_alloc(17);
t4=(C_truep(t3)?C_i_check_fixnum_2(t3,lf[848]):C_SCHEME_UNDEFINED);
t5=C_slot(t2,C_fix(10));
t6=C_slot(t2,C_fix(12));
t7=t6;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_fix(0);
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_42521,a[2]=t3,a[3]=t10,a[4]=t2,a[5]=t1,a[6]=t8,a[7]=t5,tmp=(C_word)a,a+=8,tmp);
if(C_truep(((C_word*)t8)[1])){
t12=t11;
f_42521(t12,C_SCHEME_UNDEFINED);}
else{
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_42701,a[2]=t8,a[3]=t11,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* library.scm:4181: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t12;
av2[2]=C_fix(1024);
tp(3,av2);}}}

/* k42519 in a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void f_42521(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_42521,2,t0,t1);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_42524,a[2]=((C_word*)t0)[2],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_block_size(((C_word*)t0)[7]);
t4=C_set_block_item(((C_word*)t0)[3],0,t3);
t5=C_copy_memory_with_offset(((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[7],C_fix(0),C_fix(0),((C_word*)((C_word*)t0)[3])[1]);
t6=t2;
f_42524(t6,C_i_set_i_slot(((C_word*)t0)[4],C_fix(10),C_SCHEME_FALSE));}
else{
t3=t2;
f_42524(t3,C_SCHEME_UNDEFINED);}}

/* k42522 in k42519 in a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void f_42524(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,7)))){
C_save_and_reclaim_args((void *)trf_42524,2,t0,t1);}
a=C_alloc(9);
t2=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[2]:lf[343]);
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_42533,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word)li687),tmp=(C_word)a,a+=7,tmp));
t6=((C_word*)t4)[1];
f_42533(t6,((C_word*)t0)[5],C_fix(1024),t2,((C_word*)((C_word*)t0)[6])[1],lf[850],C_SCHEME_FALSE);}

/* loop in k42522 in k42519 in a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void f_42533(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,5)))){
C_save_and_reclaim_args((void *)trf_42533,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(11);
t7=C_i_fixnum_min(t3,t2);
t8=fast_read_line_from_file(t4,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],t7);
t9=C_set_block_item(((C_word*)t0)[2],0,C_fix(0));
if(C_truep(C_eofp(t8))){
t10=t1;{
C_word av2[2];
av2[0]=t10;
av2[1]=(C_truep(t6)?t5:C_SCHEME_END_OF_FILE);
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
if(C_truep(C_i_not(t8))){
t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_42556,a[2]=t3,a[3]=t2,a[4]=t1,a[5]=t5,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
/* library.scm:4198: ##sys#buffer->string/encoding */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[470]+1));
C_word av2[6];
av2[0]=*((C_word*)lf[470]+1);
av2[1]=t10;
av2[2]=t4;
av2[3]=C_fix(0);
av2[4]=t7;
av2[5]=C_slot(((C_word*)t0)[3],C_fix(15));
tp(6,av2);}}
else{
if(C_truep(C_fixnum_lessp(t8,C_fix(0)))){
t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_42601,a[2]=t8,a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=((C_word*)t0)[3],a[9]=t1,a[10]=((C_word*)t0)[5],tmp=(C_word)a,a+=11,tmp);
/* library.scm:4208: ##sys#update-errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[845]);
C_word av2[2];
av2[0]=*((C_word*)lf[845]+1);
av2[1]=t10;
tp(2,av2);}}
else{
if(C_truep(t6)){
t10=C_slot(((C_word*)t0)[3],C_fix(4));
t11=C_fixnum_plus(t10,C_fix(1));
t12=C_i_set_i_slot(((C_word*)t0)[3],C_fix(4),t11);
t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_42660,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* library.scm:4224: ##sys#buffer->string/encoding */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[470]+1));
C_word av2[6];
av2[0]=*((C_word*)lf[470]+1);
av2[1]=t13;
av2[2]=t4;
av2[3]=C_fix(0);
av2[4]=t8;
av2[5]=C_slot(((C_word*)t0)[3],C_fix(15));
tp(6,av2);}}
else{
t10=C_slot(((C_word*)t0)[3],C_fix(4));
t11=C_fixnum_plus(t10,C_fix(1));
t12=C_i_set_i_slot(((C_word*)t0)[3],C_fix(4),t11);
/* library.scm:4227: ##sys#buffer->string/encoding */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[470]+1));
C_word av2[6];
av2[0]=*((C_word*)lf[470]+1);
av2[1]=t1;
av2[2]=t4;
av2[3]=C_fix(0);
av2[4]=t8;
av2[5]=C_slot(((C_word*)t0)[3],C_fix(15));
tp(6,av2);}}}}}}

/* k42554 in loop in k42522 in k42519 in a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 in ... */
static void C_ccall f_42556(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_42556,c,av);}
a=C_alloc(8);
if(C_truep(C_fixnum_lessp(((C_word*)t0)[2],((C_word*)t0)[3]))){
/* library.scm:4201: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=t1;
tp(4,av2);}}
else{
t2=C_fixnum_times(((C_word*)t0)[3],C_fix(2));
t3=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_42580,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
/* library.scm:4204: ##sys#make-bytevector */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t4;
av2[2]=C_fixnum_times(((C_word*)t0)[3],C_fix(2));
tp(3,av2);}}}

/* k42578 in k42554 in loop in k42522 in k42519 in a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in ... */
static void C_ccall f_42580(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_42580,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_42584,a[2]=((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);
/* library.scm:4205: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
tp(4,av2);}}

/* k42582 in k42578 in k42554 in loop in k42522 in k42519 in a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_42584(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_42584,c,av);}
/* library.scm:4202: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_42533(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_SCHEME_TRUE);}

/* k42599 in loop in k42522 in k42519 in a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 in ... */
static void C_ccall f_42601(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_42601,c,av);}
a=C_alloc(12);
t2=C_fix((C_word)EINTR);
t3=C_eqp(t1,t2);
if(C_truep(t3)){
t4=C_fixnum_negate(((C_word*)t0)[2]);
t5=C_fixnum_difference(t4,C_fix(1));
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_42615,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]=t5,a[8]=((C_word*)t0)[8],a[9]=((C_word)li686),tmp=(C_word)a,a+=10,tmp);
/* library.scm:4211: ##sys#dispatch-interrupt */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[842]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[842]+1);
av2[1]=((C_word*)t0)[9];
av2[2]=t6;
tp(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_42642,a[2]=((C_word*)t0)[9],a[3]=t1,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42646,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* ##sys#peek-c-string */
t6=*((C_word*)lf[844]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=C_mpointer(&a,(void*)strerror(errno));
av2[3]=C_fix(0);
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}

/* a42614 in k42599 in loop in k42522 in k42519 in a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in ... */
static void C_ccall f_42615(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
C_save_and_reclaim((void *)f_42615,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_42623,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_42627,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
/* library.scm:4216: ##sys#buffer->string/encoding */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[470]+1));
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[470]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
av2[3]=C_fix(0);
av2[4]=((C_word*)t0)[7];
av2[5]=C_slot(((C_word*)t0)[8],C_fix(15));
tp(6,av2);}}

/* k42621 in a42614 in k42599 in loop in k42522 in k42519 in a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_42623(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_42623,c,av);}
/* library.scm:4213: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_42533(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_SCHEME_TRUE);}

/* k42625 in a42614 in k42599 in loop in k42522 in k42519 in a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in ... */
static void C_ccall f_42627(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_42627,c,av);}
/* library.scm:4214: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k42640 in k42599 in loop in k42522 in k42519 in a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in ... */
static void C_ccall f_42642(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_42642,c,av);}
/* library.scm:4218: ##sys#signal-hook/errno */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[388]);
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=*((C_word*)lf[388]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[476];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[848];
av2[5]=t1;
av2[6]=((C_word*)t0)[4];
av2[7]=((C_word*)t0)[5];
tp(8,av2);}}

/* k42644 in k42599 in loop in k42522 in k42519 in a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in ... */
static void C_ccall f_42646(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_42646,c,av);}
/* library.scm:4220: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[849];
av2[3]=t1;
tp(4,av2);}}

/* k42658 in loop in k42522 in k42519 in a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 in ... */
static void C_ccall f_42660(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_42660,c,av);}
/* library.scm:4223: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[516]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[516]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k42699 in a42507 in k24737 in k24734 in k24731 in k24728 in k24725 in k24722 in k24719 in k24716 in k24713 in k24710 in k24707 in k24704 in k24701 in k24698 in k24470 in k12856 in k11643 */
static void C_ccall f_42701(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_42701,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)t0)[3];
f_42521(t3,C_i_setslot(((C_word*)t0)[4],C_fix(12),((C_word*)((C_word*)t0)[2])[1]));}

/* toplevel */
static int toplevel_initialized=0;

void C_ccall C_library_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("library"));
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_library_toplevel,c,av);}
toplevel_initialized=1;
if(C_unlikely(!C_demand_2(9355))){
C_save(t1);
C_rereclaim2(9355*sizeof(C_word),1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,1644);
lf[0]=C_h_intern(&lf[0],7, C_text("library"));
lf[1]=C_h_intern(&lf[1],7, C_text("scheme#"));
lf[2]=C_h_intern(&lf[2],10, C_text("scheme#not"));
lf[3]=C_h_intern(&lf[3],15, C_text("scheme#boolean?"));
lf[4]=C_h_intern(&lf[4],10, C_text("scheme#eq?"));
lf[5]=C_h_intern(&lf[5],11, C_text("scheme#eqv?"));
lf[6]=C_h_intern(&lf[6],13, C_text("scheme#equal?"));
lf[7]=C_h_intern(&lf[7],16, C_text("scheme#boolean=?"));
lf[8]=C_h_intern(&lf[8],9, C_text("boolean=?"));
lf[9]=C_h_intern(&lf[9],15, C_text("scheme#symbol=?"));
lf[10]=C_h_intern(&lf[10],8, C_text("symbol=?"));
lf[11]=C_h_intern(&lf[11],12, C_text("scheme#pair?"));
lf[12]=C_h_intern(&lf[12],11, C_text("scheme#cons"));
lf[13]=C_h_intern(&lf[13],10, C_text("scheme#car"));
lf[14]=C_h_intern(&lf[14],10, C_text("scheme#cdr"));
lf[15]=C_h_intern(&lf[15],15, C_text("scheme#set-car!"));
lf[16]=C_h_intern(&lf[16],15, C_text("scheme#set-cdr!"));
lf[17]=C_h_intern(&lf[17],11, C_text("scheme#cadr"));
lf[18]=C_h_intern(&lf[18],12, C_text("scheme#caddr"));
lf[19]=C_h_intern(&lf[19],13, C_text("scheme#cadddr"));
lf[20]=C_h_intern(&lf[20],13, C_text("scheme#cddddr"));
lf[21]=C_h_intern(&lf[21],11, C_text("scheme#caar"));
lf[22]=C_h_intern(&lf[22],11, C_text("scheme#cdar"));
lf[23]=C_h_intern(&lf[23],11, C_text("scheme#cddr"));
lf[24]=C_h_intern(&lf[24],12, C_text("scheme#caaar"));
lf[25]=C_h_intern(&lf[25],12, C_text("scheme#caadr"));
lf[26]=C_h_intern(&lf[26],12, C_text("scheme#cadar"));
lf[27]=C_h_intern(&lf[27],12, C_text("scheme#cdaar"));
lf[28]=C_h_intern(&lf[28],12, C_text("scheme#cdadr"));
lf[29]=C_h_intern(&lf[29],12, C_text("scheme#cddar"));
lf[30]=C_h_intern(&lf[30],12, C_text("scheme#cdddr"));
lf[31]=C_h_intern(&lf[31],13, C_text("scheme#caaaar"));
lf[32]=C_h_intern(&lf[32],13, C_text("scheme#caaadr"));
lf[33]=C_h_intern(&lf[33],13, C_text("scheme#caadar"));
lf[34]=C_h_intern(&lf[34],13, C_text("scheme#caaddr"));
lf[35]=C_h_intern(&lf[35],13, C_text("scheme#cadaar"));
lf[36]=C_h_intern(&lf[36],13, C_text("scheme#cadadr"));
lf[37]=C_h_intern(&lf[37],13, C_text("scheme#caddar"));
lf[38]=C_h_intern(&lf[38],13, C_text("scheme#cdaaar"));
lf[39]=C_h_intern(&lf[39],13, C_text("scheme#cdaadr"));
lf[40]=C_h_intern(&lf[40],13, C_text("scheme#cdadar"));
lf[41]=C_h_intern(&lf[41],13, C_text("scheme#cdaddr"));
lf[42]=C_h_intern(&lf[42],13, C_text("scheme#cddaar"));
lf[43]=C_h_intern(&lf[43],13, C_text("scheme#cddadr"));
lf[44]=C_h_intern(&lf[44],13, C_text("scheme#cdddar"));
lf[45]=C_h_intern(&lf[45],12, C_text("scheme#null?"));
lf[46]=C_h_intern(&lf[46],11, C_text("scheme#list"));
lf[47]=C_h_intern(&lf[47],13, C_text("scheme#length"));
lf[48]=C_h_intern(&lf[48],16, C_text("scheme#list-tail"));
lf[49]=C_h_intern(&lf[49],15, C_text("scheme#list-ref"));
lf[50]=C_h_intern(&lf[50],14, C_text("scheme#reverse"));
lf[51]=C_h_intern(&lf[51],29, C_text("##sys#error-not-a-proper-list"));
lf[52]=C_h_intern(&lf[52],7, C_text("reverse"));
lf[53]=C_h_intern(&lf[53],11, C_text("scheme#memq"));
lf[54]=C_h_intern(&lf[54],11, C_text("scheme#memv"));
lf[55]=C_h_intern(&lf[55],13, C_text("scheme#member"));
lf[56]=C_h_intern(&lf[56],11, C_text("scheme#assq"));
lf[57]=C_h_intern(&lf[57],11, C_text("scheme#assv"));
lf[58]=C_h_intern(&lf[58],12, C_text("scheme#assoc"));
lf[59]=C_h_intern(&lf[59],12, C_text("scheme#list?"));
lf[60]=C_h_intern(&lf[60],14, C_text("scheme#string?"));
lf[61]=C_h_intern(&lf[61],20, C_text("scheme#string-length"));
lf[62]=C_h_intern(&lf[62],17, C_text("scheme#string-ref"));
lf[63]=C_h_intern(&lf[63],18, C_text("scheme#string-set!"));
lf[64]=C_h_intern(&lf[64],15, C_text("scheme#string=?"));
lf[65]=C_h_intern(&lf[65],8, C_text("string=?"));
lf[66]=C_h_intern(&lf[66],18, C_text("scheme#string-ci=?"));
lf[67]=C_h_intern(&lf[67],11, C_text("string-ci=?"));
lf[68]=C_h_intern(&lf[68],15, C_text("scheme#features"));
lf[69]=C_h_intern(&lf[69],21, C_text("scheme#call-with-port"));
lf[70]=C_h_intern(&lf[70],17, C_text("scheme#close-port"));
lf[71]=C_h_intern(&lf[71],14, C_text("scheme#peek-u8"));
lf[72]=C_h_intern(&lf[72],17, C_text("scheme#string-map"));
lf[73]=C_h_intern(&lf[73],17, C_text("scheme#vector-map"));
lf[74]=C_h_intern(&lf[74],22, C_text("scheme#string-for-each"));
lf[75]=C_h_intern(&lf[75],22, C_text("scheme#vector-for-each"));
lf[76]=C_h_intern(&lf[76],16, C_text("scheme#make-list"));
lf[77]=C_h_intern(&lf[77],16, C_text("scheme#list-set!"));
lf[78]=C_h_intern(&lf[78],19, C_text("scheme#write-string"));
lf[79]=C_h_intern(&lf[79],17, C_text("scheme#eof-object"));
lf[80]=C_h_intern(&lf[80],16, C_text("scheme#list-copy"));
lf[81]=C_h_intern(&lf[81],21, C_text("scheme#string->vector"));
lf[82]=C_h_intern(&lf[82],21, C_text("scheme#vector->string"));
lf[83]=C_h_intern(&lf[83],12, C_text("scheme#exact"));
lf[84]=C_h_intern(&lf[84],14, C_text("scheme#inexact"));
lf[85]=C_h_intern(&lf[85],21, C_text("scheme#make-parameter"));
lf[86]=C_h_intern(&lf[86],21, C_text("scheme#exact->inexact"));
lf[87]=C_h_intern(&lf[87],10, C_text("scheme#abs"));
lf[88]=C_h_intern(&lf[88],8, C_text("scheme#+"));
lf[89]=C_h_intern(&lf[89],8, C_text("scheme#-"));
lf[90]=C_h_intern(&lf[90],8, C_text("scheme#*"));
lf[91]=C_h_intern(&lf[91],15, C_text("scheme#quotient"));
lf[92]=C_h_intern(&lf[92],16, C_text("scheme#remainder"));
lf[93]=C_h_intern(&lf[93],13, C_text("scheme#modulo"));
lf[94]=C_h_intern(&lf[94],12, C_text("scheme#even?"));
lf[95]=C_h_intern(&lf[95],11, C_text("scheme#odd?"));
lf[96]=C_h_intern(&lf[96],8, C_text("scheme#="));
lf[97]=C_h_intern(&lf[97],8, C_text("scheme#>"));
lf[98]=C_h_intern(&lf[98],8, C_text("scheme#<"));
lf[99]=C_h_intern(&lf[99],9, C_text("scheme#>="));
lf[100]=C_h_intern(&lf[100],9, C_text("scheme#<="));
lf[101]=C_h_intern(&lf[101],14, C_text("scheme#number?"));
lf[102]=C_h_intern(&lf[102],15, C_text("scheme#complex?"));
lf[103]=C_h_intern(&lf[103],12, C_text("scheme#real?"));
lf[104]=C_h_intern(&lf[104],16, C_text("scheme#rational?"));
lf[105]=C_h_intern(&lf[105],15, C_text("scheme#integer?"));
lf[106]=C_h_intern(&lf[106],13, C_text("scheme#exact?"));
lf[107]=C_h_intern(&lf[107],15, C_text("scheme#inexact?"));
lf[108]=C_h_intern(&lf[108],12, C_text("scheme#zero?"));
lf[109]=C_h_intern(&lf[109],16, C_text("scheme#positive?"));
lf[110]=C_h_intern(&lf[110],16, C_text("scheme#negative?"));
lf[111]=C_h_intern(&lf[111],21, C_text("scheme#exact-integer?"));
lf[112]=C_h_intern(&lf[112],21, C_text("scheme#number->string"));
lf[113]=C_h_intern(&lf[113],14, C_text("scheme#symbol?"));
lf[114]=C_h_intern(&lf[114],14, C_text("scheme#vector?"));
lf[115]=C_h_intern(&lf[115],20, C_text("scheme#vector-length"));
lf[116]=C_h_intern(&lf[116],17, C_text("scheme#vector-ref"));
lf[117]=C_h_intern(&lf[117],18, C_text("scheme#vector-set!"));
lf[118]=C_h_intern(&lf[118],18, C_text("scheme#make-vector"));
lf[119]=C_h_intern(&lf[119],19, C_text("scheme#list->vector"));
lf[120]=C_h_intern(&lf[120],19, C_text("scheme#vector->list"));
lf[121]=C_h_intern(&lf[121],13, C_text("scheme#vector"));
lf[122]=C_h_intern(&lf[122],19, C_text("scheme#vector-fill!"));
lf[123]=C_h_intern(&lf[123],12, C_text("scheme#char?"));
lf[124]=C_h_intern(&lf[124],20, C_text("scheme#char->integer"));
lf[125]=C_h_intern(&lf[125],13, C_text("char->integer"));
lf[126]=C_h_intern(&lf[126],21, C_text("##sys#check-char-code"));
lf[127]=C_h_intern(&lf[127],17, C_text("##sys#signal-hook"));
lf[128]=C_h_intern_kw(&lf[128],12, C_text("domain-error"));
lf[129]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\143\150\141\162\141\143\164\145\162\040\143\157\144\145\040\151\163\040\157\165\164\040\157\146\040\166\141\154\151\144\040\162\141\156\147\145\000"));
lf[130]=C_h_intern(&lf[130],20, C_text("scheme#integer->char"));
lf[131]=C_h_intern(&lf[131],13, C_text("integer->char"));
lf[132]=C_h_intern(&lf[132],13, C_text("scheme#char=?"));
lf[133]=C_h_intern(&lf[133],6, C_text("char=?"));
lf[134]=C_h_intern(&lf[134],13, C_text("scheme#char>?"));
lf[135]=C_h_intern(&lf[135],6, C_text("char>?"));
lf[136]=C_h_intern(&lf[136],13, C_text("scheme#char<?"));
lf[137]=C_h_intern(&lf[137],6, C_text("char<?"));
lf[138]=C_h_intern(&lf[138],14, C_text("scheme#char>=?"));
lf[139]=C_h_intern(&lf[139],7, C_text("char>=?"));
lf[140]=C_h_intern(&lf[140],14, C_text("scheme#char<=?"));
lf[141]=C_h_intern(&lf[141],7, C_text("char<=?"));
lf[142]=C_h_intern(&lf[142],18, C_text("scheme#char-upcase"));
lf[143]=C_h_intern(&lf[143],11, C_text("char-upcase"));
lf[144]=C_h_intern(&lf[144],20, C_text("scheme#char-downcase"));
lf[145]=C_h_intern(&lf[145],13, C_text("char-downcase"));
lf[146]=C_h_intern(&lf[146],16, C_text("scheme#char-ci=?"));
lf[147]=C_h_intern(&lf[147],16, C_text("scheme#char-ci>?"));
lf[148]=C_h_intern(&lf[148],16, C_text("scheme#char-ci<?"));
lf[149]=C_h_intern(&lf[149],17, C_text("scheme#char-ci>=?"));
lf[150]=C_h_intern(&lf[150],17, C_text("scheme#char-ci<=?"));
lf[151]=C_h_intern(&lf[151],23, C_text("scheme#char-upper-case?"));
lf[152]=C_h_intern(&lf[152],16, C_text("char-upper-case?"));
lf[153]=C_h_intern(&lf[153],23, C_text("scheme#char-lower-case?"));
lf[154]=C_h_intern(&lf[154],16, C_text("char-lower-case?"));
lf[155]=C_h_intern(&lf[155],20, C_text("scheme#char-numeric?"));
lf[156]=C_h_intern(&lf[156],13, C_text("char-numeric?"));
lf[157]=C_h_intern(&lf[157],23, C_text("scheme#char-whitespace?"));
lf[158]=C_h_intern(&lf[158],16, C_text("char-whitespace?"));
lf[159]=C_h_intern(&lf[159],23, C_text("scheme#char-alphabetic?"));
lf[160]=C_h_intern(&lf[160],16, C_text("char-alphabetic?"));
lf[161]=C_h_intern(&lf[161],23, C_text("scheme.char#digit-value"));
lf[162]=C_h_intern(&lf[162],11, C_text("digit-value"));
lf[163]=C_h_intern(&lf[163],20, C_text("scheme#char-foldcase"));
lf[164]=C_h_intern(&lf[164],13, C_text("char-foldcase"));
lf[165]=C_h_intern(&lf[165],22, C_text("scheme#string-foldcase"));
lf[166]=C_h_intern(&lf[166],15, C_text("string-foldcase"));
lf[167]=C_h_intern(&lf[167],21, C_text("##sys#buffer->string!"));
lf[168]=C_h_intern(&lf[168],21, C_text("##sys#make-bytevector"));
lf[169]=C_h_intern(&lf[169],22, C_text("scheme#string-downcase"));
lf[170]=C_h_intern(&lf[170],15, C_text("string-downcase"));
lf[171]=C_h_intern(&lf[171],20, C_text("scheme#string-upcase"));
lf[172]=C_h_intern(&lf[172],13, C_text("string-upcase"));
lf[173]=C_h_intern(&lf[173],17, C_text("scheme#procedure?"));
lf[174]=C_h_intern(&lf[174],12, C_text("scheme#apply"));
lf[175]=C_h_intern(&lf[175],13, C_text("scheme#values"));
lf[176]=C_h_intern(&lf[176],23, C_text("scheme#call-with-values"));
lf[177]=C_h_intern(&lf[177],37, C_text("scheme#call-with-current-continuation"));
lf[178]=C_h_intern(&lf[178],14, C_text("scheme#call/cc"));
lf[179]=C_h_intern(&lf[179],18, C_text("scheme#input-port?"));
lf[180]=C_h_intern(&lf[180],19, C_text("scheme#output-port?"));
lf[181]=C_h_intern(&lf[181],19, C_text("scheme#binary-port?"));
lf[182]=C_h_intern(&lf[182],6, C_text("binary"));
lf[183]=C_h_intern(&lf[183],12, C_text("scheme#port?"));
lf[184]=C_h_intern(&lf[184],20, C_text("scheme#textual-port?"));
lf[185]=C_h_intern(&lf[185],7, C_text("textual"));
lf[186]=C_h_intern(&lf[186],23, C_text("scheme#input-port-open?"));
lf[187]=C_h_intern(&lf[187],16, C_text("input-port-open?"));
lf[188]=C_h_intern(&lf[188],24, C_text("scheme#output-port-open?"));
lf[189]=C_h_intern(&lf[189],17, C_text("output-port-open?"));
lf[190]=C_h_intern(&lf[190],25, C_text("scheme#current-input-port"));
lf[191]=C_h_intern(&lf[191],26, C_text("scheme#current-output-port"));
lf[192]=C_h_intern(&lf[192],22, C_text("scheme#open-input-file"));
lf[193]=C_h_intern(&lf[193],23, C_text("scheme#open-output-file"));
lf[194]=C_h_intern(&lf[194],23, C_text("scheme#close-input-port"));
lf[195]=C_h_intern(&lf[195],24, C_text("scheme#close-output-port"));
lf[196]=C_h_intern(&lf[196],27, C_text("scheme#call-with-input-file"));
lf[197]=C_h_intern(&lf[197],28, C_text("scheme#call-with-output-file"));
lf[198]=C_h_intern(&lf[198],27, C_text("scheme#with-input-from-file"));
lf[199]=C_h_intern(&lf[199],26, C_text("scheme#with-output-to-file"));
lf[200]=C_h_intern(&lf[200],18, C_text("scheme#eof-object?"));
lf[201]=C_h_intern(&lf[201],18, C_text("scheme#char-ready?"));
lf[202]=C_h_intern(&lf[202],16, C_text("scheme#u8-ready?"));
lf[203]=C_h_intern(&lf[203],16, C_text("scheme#read-char"));
lf[204]=C_h_intern(&lf[204],16, C_text("scheme#peek-char"));
lf[205]=C_h_intern(&lf[205],11, C_text("scheme#read"));
lf[206]=C_h_intern(&lf[206],17, C_text("scheme#write-char"));
lf[207]=C_h_intern(&lf[207],14, C_text("scheme#newline"));
lf[208]=C_h_intern(&lf[208],12, C_text("scheme#write"));
lf[209]=C_h_intern(&lf[209],14, C_text("scheme#display"));
lf[210]=C_h_intern(&lf[210],11, C_text("scheme#eval"));
lf[211]=C_h_intern(&lf[211],11, C_text("##sys#error"));
lf[212]=C_h_intern(&lf[212],4, C_text("eval"));
lf[213]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\125\140\145\166\141\154\047\040\151\163\040\156\157\164\040\144\145\146\151\156\145\144\040\055\040\164\150\145\040\140\145\166\141\154\047\040\165\156\151\164\040\167\141\163\040\160\162\157\142\141\142\154\171\040\156\157\164\040\154\151\156\153\145\144\040\167\151\164\150\040\164\150\151\163\040\145\170\145\143\165\164\141\142\154\145\000"));
lf[214]=C_h_intern(&lf[214],30, C_text("scheme#interaction-environment"));
lf[215]=C_h_intern(&lf[215],23, C_text("interaction-environment"));
lf[216]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\150\140\151\156\164\145\162\141\143\164\151\157\156\055\145\156\166\151\162\157\156\155\145\156\164\047\040\151\163\040\156\157\164\040\144\145\146\151\156\145\144\040\055\040\164\150\145\040\140\145\166\141\154\047\040\165\156\151\164\040\167\141\163\040\160\162\157\142\141\142\154\171\040\156\157\164\040\154\151\156\153\145\144\040\167\151\164\150\040\164\150\151\163\040\145\170\145\143\165\164\141\142\154\145\000"));
lf[217]=C_h_intern(&lf[217],32, C_text("scheme#scheme-report-environment"));
lf[218]=C_h_intern(&lf[218],25, C_text("scheme-report-environment"));
lf[219]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\152\140\163\143\150\145\155\145\055\162\145\160\157\162\164\055\145\156\166\151\162\157\156\155\145\156\164\047\040\151\163\040\156\157\164\040\144\145\146\151\156\145\144\040\055\040\164\150\145\040\140\145\166\141\154\047\040\165\156\151\164\040\167\141\163\040\160\162\157\142\141\142\154\171\040\156\157\164\040\154\151\156\153\145\144\040\167\151\164\150\040\164\150\151\163\040\145\170\145\143\165\164\141\142\154\145\000"));
lf[220]=C_h_intern(&lf[220],23, C_text("scheme#null-environment"));
lf[221]=C_h_intern(&lf[221],16, C_text("null-environment"));
lf[222]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\141\140\156\165\154\154\055\145\156\166\151\162\157\156\155\145\156\164\047\040\151\163\040\156\157\164\040\144\145\146\151\156\145\144\040\055\040\164\150\145\040\140\145\166\141\154\047\040\165\156\151\164\040\167\141\163\040\160\162\157\142\141\142\154\171\040\156\157\164\040\154\151\156\153\145\144\040\167\151\164\150\040\164\150\151\163\040\145\170\145\143\165\164\141\142\154\145\000"));
lf[223]=C_h_intern(&lf[223],11, C_text("scheme#load"));
lf[224]=C_h_intern(&lf[224],4, C_text("load"));
lf[225]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\125\140\154\157\141\144\047\040\151\163\040\156\157\164\040\144\145\146\151\156\145\144\040\055\040\164\150\145\040\140\145\166\141\154\047\040\165\156\151\164\040\167\141\163\040\160\162\157\142\141\142\154\171\040\156\157\164\040\154\151\156\153\145\144\040\167\151\164\150\040\164\150\151\163\040\145\170\145\143\165\164\141\142\154\145\000"));
lf[226]=C_h_intern(&lf[226],15, C_text("scheme#for-each"));
lf[227]=C_h_intern(&lf[227],10, C_text("scheme#map"));
lf[228]=C_h_intern(&lf[228],19, C_text("scheme#dynamic-wind"));
lf[229]=C_h_intern(&lf[229],13, C_text("chicken.base#"));
lf[230]=C_h_intern(&lf[230],20, C_text("chicken.base#fixnum?"));
lf[231]=C_h_intern(&lf[231],20, C_text("chicken.base#flonum?"));
lf[232]=C_h_intern(&lf[232],20, C_text("chicken.base#bignum?"));
lf[233]=C_h_intern(&lf[233],20, C_text("chicken.base#ratnum?"));
lf[234]=C_h_intern(&lf[234],21, C_text("chicken.base#cplxnum?"));
lf[235]=C_h_intern(&lf[235],31, C_text("chicken.base#exact-integer-sqrt"));
lf[236]=C_h_intern(&lf[236],31, C_text("chicken.base#quotient&remainder"));
lf[237]=C_h_intern(&lf[237],28, C_text("chicken.base#quotient&modulo"));
lf[238]=C_h_intern(&lf[238],20, C_text("chicken.base#finite?"));
lf[239]=C_h_intern(&lf[239],22, C_text("chicken.base#infinite?"));
lf[240]=C_h_intern(&lf[240],17, C_text("chicken.base#nan?"));
lf[241]=C_h_intern(&lf[241],19, C_text("chicken.base#signum"));
lf[242]=C_h_intern(&lf[242],27, C_text("chicken.base#get-call-chain"));
lf[243]=C_h_intern(&lf[243],29, C_text("chicken.base#print-call-chain"));
lf[244]=C_h_intern(&lf[244],18, C_text("chicken.base#print"));
lf[245]=C_h_intern(&lf[245],19, C_text("chicken.base#print*"));
lf[246]=C_h_intern(&lf[246],17, C_text("chicken.base#add1"));
lf[247]=C_h_intern(&lf[247],17, C_text("chicken.base#sub1"));
lf[248]=C_h_intern(&lf[248],31, C_text("chicken.base#current-error-port"));
lf[249]=C_h_intern(&lf[249],18, C_text("chicken.base#error"));
lf[250]=C_h_intern_kw(&lf[250],5, C_text("error"));
lf[251]=C_h_intern(&lf[251],17, C_text("chicken.base#void"));
lf[252]=C_h_intern(&lf[252],18, C_text("chicken.base#sleep"));
lf[253]=C_h_intern(&lf[253],22, C_text("chicken.base#char-name"));
lf[254]=C_h_intern(&lf[254],31, C_text("chicken.base#getter-with-setter"));
lf[255]=C_h_intern(&lf[255],34, C_text("chicken.base#procedure-information"));
lf[256]=C_h_intern(&lf[256],19, C_text("chicken.base#setter"));
lf[257]=C_h_intern(&lf[257],27, C_text("chicken.base#record-printer"));
lf[258]=C_h_intern(&lf[258],32, C_text("chicken.base#set-record-printer!"));
lf[259]=C_h_intern(&lf[259],22, C_text("chicken.base#subvector"));
lf[260]=C_h_intern(&lf[260],26, C_text("chicken.base#vector-resize"));
lf[261]=C_h_intern(&lf[261],25, C_text("chicken.base#port-closed?"));
lf[262]=C_h_intern(&lf[262],25, C_text("chicken.base#flush-output"));
lf[263]=C_h_intern(&lf[263],21, C_text("chicken.base#promise?"));
lf[264]=C_h_intern(&lf[264],7, C_text("promise"));
lf[265]=C_h_intern(&lf[265],18, C_text("##sys#make-promise"));
lf[266]=C_h_intern(&lf[266],25, C_text("chicken.base#make-promise"));
lf[267]=C_h_intern(&lf[267],18, C_text("chicken.base#foldl"));
lf[268]=C_h_intern(&lf[268],5, C_text("foldl"));
lf[269]=C_h_intern(&lf[269],18, C_text("chicken.base#foldr"));
lf[270]=C_h_intern(&lf[270],5, C_text("foldr"));
lf[271]=C_h_intern(&lf[271],34, C_text("chicken.base#implicit-exit-handler"));
lf[272]=C_h_intern(&lf[272],25, C_text("chicken.base#exit-handler"));
lf[273]=C_h_intern(&lf[273],26, C_text("chicken.base#cleanup-tasks"));
lf[274]=C_h_intern(&lf[274],20, C_text("chicken.base#on-exit"));
lf[275]=C_h_intern(&lf[275],17, C_text("chicken.base#exit"));
lf[276]=C_h_intern(&lf[276],27, C_text("chicken.base#emergency-exit"));
lf[277]=C_h_intern(&lf[277],14, C_text("emergency-exit"));
lf[278]=C_h_intern(&lf[278],27, C_text("chicken.base#case-sensitive"));
lf[279]=C_h_intern(&lf[279],26, C_text("chicken.base#keyword-style"));
lf[280]=C_h_intern(&lf[280],33, C_text("chicken.base#parentheses-synonyms"));
lf[281]=C_h_intern(&lf[281],26, C_text("chicken.base#symbol-escape"));
lf[282]=C_h_intern(&lf[282],21, C_text("chicken.base#identity"));
lf[283]=C_h_intern(&lf[283],20, C_text("chicken.base#conjoin"));
lf[284]=C_h_intern(&lf[284],20, C_text("chicken.base#disjoin"));
lf[285]=C_h_intern(&lf[285],23, C_text("chicken.base#constantly"));
lf[286]=C_h_intern(&lf[286],17, C_text("chicken.base#flip"));
lf[287]=C_h_intern(&lf[287],23, C_text("chicken.base#complement"));
lf[288]=C_h_intern(&lf[288],20, C_text("chicken.base#compose"));
lf[289]=C_h_intern(&lf[289],14, C_text("chicken.base#o"));
lf[290]=C_h_intern(&lf[290],21, C_text("chicken.base#list-of?"));
lf[291]=C_h_intern(&lf[291],17, C_text("chicken.base#each"));
lf[292]=C_h_intern(&lf[292],21, C_text("##sys#undefined-value"));
lf[293]=C_h_intern(&lf[293],24, C_text("chicken.base#bwp-object?"));
lf[294]=C_h_intern(&lf[294],22, C_text("chicken.base#weak-cons"));
lf[295]=C_h_intern(&lf[295],23, C_text("chicken.base#weak-pair?"));
lf[296]=C_h_intern(&lf[296],18, C_text("chicken.base#atom?"));
lf[297]=C_h_intern(&lf[297],18, C_text("chicken.base#tail?"));
lf[298]=C_h_intern(&lf[298],5, C_text("tail?"));
lf[299]=C_h_intern(&lf[299],24, C_text("chicken.base#intersperse"));
lf[300]=C_h_intern(&lf[300],20, C_text("chicken.base#butlast"));
lf[301]=C_h_intern(&lf[301],7, C_text("butlast"));
lf[302]=C_h_intern(&lf[302],20, C_text("chicken.base#flatten"));
lf[303]=C_h_intern(&lf[303],17, C_text("chicken.base#join"));
lf[304]=C_h_intern(&lf[304],4, C_text("join"));
lf[305]=C_h_intern(&lf[305],12, C_text("##sys#append"));
lf[306]=C_h_intern(&lf[306],21, C_text("chicken.base#compress"));
lf[307]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\162\157\160\145\162\040\154\151\163\164\000"));
lf[308]=C_h_intern(&lf[308],8, C_text("compress"));
lf[309]=C_h_intern_kw(&lf[309],10, C_text("type-error"));
lf[310]=C_h_intern(&lf[310],26, C_text("chicken.base#alist-update!"));
lf[311]=C_h_intern(&lf[311],25, C_text("chicken.base#alist-update"));
lf[312]=C_h_intern(&lf[312],12, C_text("alist-update"));
lf[313]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\000"));
lf[314]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\000"));
lf[315]=C_h_intern(&lf[315],22, C_text("chicken.base#alist-ref"));
lf[316]=C_h_intern(&lf[316],9, C_text("alist-ref"));
lf[317]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\000"));
lf[318]=C_h_intern(&lf[318],19, C_text("chicken.base#rassoc"));
lf[319]=C_h_intern(&lf[319],6, C_text("rassoc"));
lf[320]=C_h_intern(&lf[320],24, C_text("scheme#open-input-string"));
lf[321]=C_h_intern(&lf[321],17, C_text("open-input-string"));
lf[322]=C_h_intern(&lf[322],15, C_text("##sys#make-port"));
lf[323]=C_h_intern(&lf[323],23, C_text("##sys#string-port-class"));
lf[324]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\050\163\164\162\151\156\147\051\000"));
lf[325]=C_h_intern(&lf[325],6, C_text("string"));
lf[326]=C_h_intern(&lf[326],25, C_text("scheme#open-output-string"));
lf[327]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\050\163\164\162\151\156\147\051\000"));
lf[328]=C_h_intern(&lf[328],24, C_text("scheme#get-output-string"));
lf[329]=C_h_intern(&lf[329],17, C_text("get-output-string"));
lf[330]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\141\162\147\165\155\145\156\164\040\151\163\040\156\157\164\040\141\040\163\164\162\151\156\147\055\157\165\164\160\165\164\055\160\157\162\164\000"));
lf[331]=C_h_intern(&lf[331],20, C_text("##sys#buffer->string"));
lf[332]=C_h_intern(&lf[332],28, C_text("scheme#open-input-bytevector"));
lf[333]=C_h_intern(&lf[333],21, C_text("open-input-bytevector"));
lf[334]=C_h_intern(&lf[334],10, C_text("scheme#min"));
lf[335]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\050\142\171\164\145\166\145\143\164\157\162\051\000"));
lf[336]=C_h_intern(&lf[336],6, C_text("custom"));
lf[337]=C_h_intern(&lf[337],29, C_text("scheme#open-output-bytevector"));
lf[338]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\050\142\171\164\145\166\145\143\164\157\162\051\000"));
lf[339]=C_h_intern(&lf[339],28, C_text("scheme#get-output-bytevector"));
lf[340]=C_h_intern(&lf[340],21, C_text("get-output-bytevector"));
lf[341]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\156\157\164\040\141\156\040\157\165\164\160\165\164\055\142\171\164\145\166\145\143\164\157\162\000"));
lf[342]=C_h_intern(&lf[342],16, C_text("##sys#check-port"));
lf[344]=C_h_intern(&lf[344],15, C_text("chicken.fixnum#"));
lf[345]=C_h_intern(&lf[345],35, C_text("chicken.fixnum#most-positive-fixnum"));
lf[346]=C_h_intern(&lf[346],35, C_text("chicken.fixnum#most-negative-fixnum"));
lf[347]=C_h_intern(&lf[347],26, C_text("chicken.fixnum#fixnum-bits"));
lf[348]=C_h_intern(&lf[348],31, C_text("chicken.fixnum#fixnum-precision"));
lf[349]=C_h_intern(&lf[349],18, C_text("chicken.fixnum#fx+"));
lf[350]=C_h_intern(&lf[350],18, C_text("chicken.fixnum#fx-"));
lf[351]=C_h_intern(&lf[351],18, C_text("chicken.fixnum#fx*"));
lf[352]=C_h_intern(&lf[352],18, C_text("chicken.fixnum#fx="));
lf[353]=C_h_intern(&lf[353],18, C_text("chicken.fixnum#fx>"));
lf[354]=C_h_intern(&lf[354],18, C_text("chicken.fixnum#fx<"));
lf[355]=C_h_intern(&lf[355],19, C_text("chicken.fixnum#fx>="));
lf[356]=C_h_intern(&lf[356],19, C_text("chicken.fixnum#fx<="));
lf[357]=C_h_intern(&lf[357],20, C_text("chicken.fixnum#fxmin"));
lf[358]=C_h_intern(&lf[358],20, C_text("chicken.fixnum#fxmax"));
lf[359]=C_h_intern(&lf[359],20, C_text("chicken.fixnum#fxneg"));
lf[360]=C_h_intern(&lf[360],20, C_text("chicken.fixnum#fxand"));
lf[361]=C_h_intern(&lf[361],20, C_text("chicken.fixnum#fxior"));
lf[362]=C_h_intern(&lf[362],20, C_text("chicken.fixnum#fxxor"));
lf[363]=C_h_intern(&lf[363],20, C_text("chicken.fixnum#fxnot"));
lf[364]=C_h_intern(&lf[364],20, C_text("chicken.fixnum#fxshl"));
lf[365]=C_h_intern(&lf[365],20, C_text("chicken.fixnum#fxshr"));
lf[366]=C_h_intern(&lf[366],21, C_text("chicken.fixnum#fxodd?"));
lf[367]=C_h_intern(&lf[367],22, C_text("chicken.fixnum#fxeven?"));
lf[368]=C_h_intern(&lf[368],20, C_text("chicken.fixnum#fxlen"));
lf[369]=C_h_intern(&lf[369],18, C_text("chicken.fixnum#fx/"));
lf[370]=C_h_intern(&lf[370],20, C_text("chicken.fixnum#fxgcd"));
lf[371]=C_h_intern(&lf[371],20, C_text("chicken.fixnum#fxmod"));
lf[372]=C_h_intern(&lf[372],20, C_text("chicken.fixnum#fxrem"));
lf[373]=C_h_intern(&lf[373],19, C_text("chicken.fixnum#fx+?"));
lf[374]=C_h_intern(&lf[374],19, C_text("chicken.fixnum#fx-?"));
lf[375]=C_h_intern(&lf[375],19, C_text("chicken.fixnum#fx*?"));
lf[376]=C_h_intern(&lf[376],19, C_text("chicken.fixnum#fx/?"));
lf[377]=C_h_intern(&lf[377],17, C_text("##sys#debug-mode?"));
lf[378]=C_h_intern(&lf[378],22, C_text("##sys#warnings-enabled"));
lf[379]=C_h_intern(&lf[379],21, C_text("##sys#notices-enabled"));
lf[380]=C_h_intern(&lf[380],20, C_text("chicken.base#warning"));
lf[381]=C_h_intern_kw(&lf[381],7, C_text("warning"));
lf[382]=C_h_intern(&lf[382],19, C_text("chicken.base#notice"));
lf[383]=C_h_intern_kw(&lf[383],6, C_text("notice"));
lf[384]=C_h_intern(&lf[384],28, C_text("chicken.base#enable-warnings"));
lf[385]=C_h_intern(&lf[385],10, C_text("##sys#warn"));
lf[386]=C_h_intern(&lf[386],12, C_text("##sys#notice"));
lf[387]=C_h_intern(&lf[387],17, C_text("##sys#error/errno"));
lf[388]=C_h_intern(&lf[388],23, C_text("##sys#signal-hook/errno"));
lf[389]=C_h_intern(&lf[389],8, C_text("##sys#gc"));
lf[390]=C_h_intern(&lf[390],13, C_text("##sys#setslot"));
lf[391]=C_h_intern(&lf[391],14, C_text("##sys#setislot"));
lf[392]=C_h_intern(&lf[392],21, C_text("##sys#allocate-vector"));
lf[393]=C_h_intern(&lf[393],25, C_text("##sys#allocate-bytevector"));
lf[394]=C_h_intern(&lf[394],20, C_text("##sys#make-structure"));
lf[395]=C_h_intern(&lf[395],25, C_text("##sys#ensure-heap-reserve"));
lf[396]=C_h_intern(&lf[396],23, C_text("##sys#symbol-table-info"));
lf[397]=C_h_intern(&lf[397],17, C_text("##sys#memory-info"));
lf[398]=C_h_intern(&lf[398],17, C_text("##sys#start-timer"));
lf[399]=C_h_intern(&lf[399],16, C_text("##sys#stop-timer"));
lf[400]=C_h_intern(&lf[400],16, C_text("##sys#immediate?"));
lf[401]=C_h_intern(&lf[401],13, C_text("##sys#message"));
lf[402]=C_h_intern(&lf[402],10, C_text("##sys#byte"));
lf[403]=C_h_intern(&lf[403],10, C_text("##sys#void"));
lf[404]=C_h_intern(&lf[404],10, C_text("##sys#halt"));
lf[405]=C_h_intern(&lf[405],13, C_text("##sys#become!"));
lf[406]=C_h_intern(&lf[406],15, C_text("##sys#block-ref"));
lf[407]=C_h_intern(&lf[407],18, C_text("##sys#apply-values"));
lf[408]=C_h_intern(&lf[408],18, C_text("##sys#copy-closure"));
lf[409]=C_h_intern(&lf[409],16, C_text("##sys#block-set!"));
lf[410]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\163\154\157\164\040\156\157\164\040\141\143\143\145\163\163\151\142\154\145\000"));
lf[411]=C_h_intern(&lf[411],13, C_text("chicken.time#"));
lf[412]=C_h_intern(&lf[412],41, C_text("chicken.time#current-process-milliseconds"));
lf[413]=C_h_intern(&lf[413],28, C_text("chicken.time#current-seconds"));
lf[414]=C_h_intern(&lf[414],21, C_text("chicken.time#cpu-time"));
lf[415]=C_h_intern(&lf[415],21, C_text("##sys#check-structure"));
lf[416]=C_h_intern(&lf[416],16, C_text("##sys#check-blob"));
lf[417]=C_h_intern(&lf[417],16, C_text("##sys#check-pair"));
lf[418]=C_h_intern(&lf[418],16, C_text("##sys#check-list"));
lf[419]=C_h_intern(&lf[419],18, C_text("##sys#check-string"));
lf[420]=C_h_intern(&lf[420],18, C_text("##sys#check-number"));
lf[421]=C_h_intern(&lf[421],18, C_text("##sys#check-fixnum"));
lf[422]=C_h_intern(&lf[422],22, C_text("##sys#check-bytevector"));
lf[423]=C_h_intern(&lf[423],17, C_text("##sys#check-exact"));
lf[424]=C_h_intern(&lf[424],19, C_text("##sys#check-inexact"));
lf[425]=C_h_intern(&lf[425],18, C_text("##sys#check-symbol"));
lf[426]=C_h_intern(&lf[426],19, C_text("##sys#check-keyword"));
lf[427]=C_h_intern(&lf[427],18, C_text("##sys#check-vector"));
lf[428]=C_h_intern(&lf[428],16, C_text("##sys#check-char"));
lf[429]=C_h_intern(&lf[429],19, C_text("##sys#check-boolean"));
lf[430]=C_h_intern(&lf[430],20, C_text("##sys#check-locative"));
lf[431]=C_h_intern(&lf[431],19, C_text("##sys#check-integer"));
lf[432]=C_h_intern(&lf[432],23, C_text("##sys#error-bad-integer"));
lf[433]=C_h_intern(&lf[433],25, C_text("##sys#check-exact-integer"));
lf[434]=C_h_intern(&lf[434],29, C_text("##sys#error-bad-exact-integer"));
lf[435]=C_h_intern(&lf[435],26, C_text("##sys#check-exact-uinteger"));
lf[436]=C_h_intern(&lf[436],30, C_text("##sys#error-bad-exact-uinteger"));
lf[437]=C_h_intern(&lf[437],16, C_text("##sys#check-real"));
lf[438]=C_h_intern(&lf[438],20, C_text("##sys#error-bad-real"));
lf[439]=C_h_intern(&lf[439],17, C_text("##sys#check-range"));
lf[440]=C_h_intern(&lf[440],27, C_text("##sys#check-range/including"));
lf[441]=C_h_intern(&lf[441],19, C_text("##sys#check-special"));
lf[442]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\056\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\157\151\156\164\145\162\055\154\151\153\145\040\157\142\152\145\143\164\000"));
lf[443]=C_h_intern(&lf[443],19, C_text("##sys#check-closure"));
lf[444]=C_h_intern(&lf[444],12, C_text("scheme#force"));
lf[445]=C_h_intern(&lf[445],10, C_text("##sys#list"));
lf[446]=C_h_intern(&lf[446],11, C_text("##sys#dload"));
lf[447]=C_h_intern(&lf[447],23, C_text("##sys#set-dlopen-flags!"));
lf[448]=C_h_intern(&lf[448],16, C_text("##sys#error-hook"));
lf[449]=C_h_intern(&lf[449],22, C_text("##sys#error-bad-number"));
lf[450]=C_h_intern(&lf[450],23, C_text("##sys#error-bad-inexact"));
lf[451]=C_h_intern(&lf[451],20, C_text("##sys#error-bad-base"));
lf[452]=C_h_intern(&lf[452],13, C_text("scheme#append"));
lf[453]=C_h_intern(&lf[453],6, C_text("append"));
lf[454]=C_h_intern(&lf[454],18, C_text("##sys#fast-reverse"));
lf[455]=C_h_intern(&lf[455],17, C_text("##sys#make-string"));
lf[456]=C_h_intern(&lf[456],17, C_text("##sys#utf-decoder"));
lf[457]=C_h_intern(&lf[457],17, C_text("##sys#utf-encoder"));
lf[458]=C_h_intern(&lf[458],17, C_text("##sys#utf-scanner"));
lf[459]=C_h_intern(&lf[459],19, C_text("##sys#latin-decoder"));
lf[460]=C_h_intern(&lf[460],19, C_text("##sys#latin-encoder"));
lf[461]=C_h_intern(&lf[461],19, C_text("##sys#latin-scanner"));
lf[462]=C_h_intern(&lf[462],20, C_text("##sys#binary-decoder"));
lf[463]=C_h_intern(&lf[463],20, C_text("##sys#binary-encoder"));
lf[464]=C_h_intern(&lf[464],20, C_text("##sys#binary-scanner"));
lf[465]=C_h_intern(&lf[465],19, C_text("##sys#encoding-hook"));
lf[466]=C_h_intern(&lf[466],5, C_text("utf-8"));
lf[467]=C_h_intern(&lf[467],7, C_text("latin-1"));
lf[468]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\156\166\141\154\151\144\040\146\151\154\145\040\160\157\162\164\040\145\156\143\157\144\151\156\147\000"));
lf[469]=C_h_intern(&lf[469],23, C_text("##sys#register-encoding"));
lf[470]=C_h_intern(&lf[470],29, C_text("##sys#buffer->string/encoding"));
lf[471]=C_h_intern(&lf[471],19, C_text("##sys#encode-buffer"));
lf[472]=C_h_intern(&lf[472],19, C_text("##sys#decode-buffer"));
lf[473]=C_h_intern(&lf[473],17, C_text("##sys#encode-char"));
lf[474]=C_h_intern(&lf[474],17, C_text("##sys#decode-char"));
lf[475]=C_h_intern(&lf[475],24, C_text("##sys#read-char/encoding"));
lf[476]=C_h_intern_kw(&lf[476],10, C_text("file-error"));
lf[477]=C_h_intern(&lf[477],9, C_text("read-char"));
lf[478]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\055\151\156\143\157\155\160\154\145\164\145\040\143\150\141\162\141\143\164\145\162\040\163\145\161\165\145\156\143\145\040\167\150\151\154\145\040\144\145\143\157\144\151\156\147\000"));
lf[479]=C_h_intern(&lf[479],18, C_text("scheme#make-string"));
lf[480]=C_h_intern(&lf[480],11, C_text("make-string"));
lf[481]=C_h_intern_kw(&lf[481],12, C_text("bounds-error"));
lf[482]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\163\151\172\145\040\151\163\040\156\145\147\141\164\151\166\145\000"));
lf[483]=C_h_intern(&lf[483],19, C_text("scheme#string->list"));
lf[484]=C_h_intern(&lf[484],12, C_text("string->list"));
lf[485]=C_h_intern(&lf[485],18, C_text("##sys#string->list"));
lf[486]=C_h_intern(&lf[486],19, C_text("scheme#list->string"));
lf[487]=C_h_intern(&lf[487],12, C_text("list->string"));
lf[488]=C_h_intern(&lf[488],18, C_text("##sys#list->string"));
lf[489]=C_h_intern(&lf[489],26, C_text("##sys#reverse-list->string"));
lf[490]=C_h_intern(&lf[490],20, C_text("reverse-list->string"));
lf[491]=C_h_intern(&lf[491],19, C_text("scheme#string-fill!"));
lf[492]=C_h_intern(&lf[492],12, C_text("string-fill!"));
lf[493]=C_h_intern(&lf[493],18, C_text("scheme#string-copy"));
lf[494]=C_h_intern(&lf[494],11, C_text("string-copy"));
lf[495]=C_h_intern(&lf[495],15, C_text("##sys#substring"));
lf[496]=C_h_intern(&lf[496],19, C_text("scheme#string-copy!"));
lf[497]=C_h_intern(&lf[497],12, C_text("string-copy!"));
lf[498]=C_h_intern(&lf[498],16, C_text("scheme#substring"));
lf[499]=C_h_intern(&lf[499],9, C_text("substring"));
lf[500]=C_h_intern(&lf[500],15, C_text("scheme#string<?"));
lf[501]=C_h_intern(&lf[501],8, C_text("string<?"));
lf[502]=C_h_intern(&lf[502],15, C_text("scheme#string>?"));
lf[503]=C_h_intern(&lf[503],8, C_text("string>?"));
lf[504]=C_h_intern(&lf[504],16, C_text("scheme#string<=?"));
lf[505]=C_h_intern(&lf[505],9, C_text("string<=?"));
lf[506]=C_h_intern(&lf[506],16, C_text("scheme#string>=?"));
lf[507]=C_h_intern(&lf[507],9, C_text("string>=?"));
lf[508]=C_h_intern(&lf[508],18, C_text("scheme#string-ci<?"));
lf[509]=C_h_intern(&lf[509],11, C_text("string-ci<?"));
lf[510]=C_h_intern(&lf[510],18, C_text("scheme#string-ci>?"));
lf[511]=C_h_intern(&lf[511],11, C_text("string-ci>?"));
lf[512]=C_h_intern(&lf[512],19, C_text("scheme#string-ci<=?"));
lf[513]=C_h_intern(&lf[513],12, C_text("string-ci<=?"));
lf[514]=C_h_intern(&lf[514],19, C_text("scheme#string-ci>=?"));
lf[515]=C_h_intern(&lf[515],12, C_text("string-ci>=?"));
lf[516]=C_h_intern(&lf[516],19, C_text("##sys#string-append"));
lf[517]=C_h_intern(&lf[517],20, C_text("scheme#string-append"));
lf[518]=C_h_intern(&lf[518],13, C_text("string-append"));
lf[519]=C_h_intern(&lf[519],13, C_text("scheme#string"));
lf[520]=C_h_intern(&lf[520],23, C_text("##sys#char->utf8-string"));
lf[521]=C_h_intern(&lf[521],17, C_text("chicken.base#chop"));
lf[522]=C_h_intern(&lf[522],4, C_text("chop"));
lf[523]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\151\156\166\141\154\151\144\040\156\165\155\145\162\151\143\040\141\162\147\165\155\145\156\164\000"));
lf[524]=C_h_intern(&lf[524],15, C_text("chicken.flonum#"));
lf[525]=C_h_intern(&lf[525],29, C_text("chicken.flonum#maximum-flonum"));
lf[526]=C_h_intern(&lf[526],29, C_text("chicken.flonum#minimum-flonum"));
lf[527]=C_h_intern(&lf[527],27, C_text("chicken.flonum#flonum-radix"));
lf[528]=C_h_intern(&lf[528],29, C_text("chicken.flonum#flonum-epsilon"));
lf[529]=C_h_intern(&lf[529],31, C_text("chicken.flonum#flonum-precision"));
lf[530]=C_h_intern(&lf[530],39, C_text("chicken.flonum#flonum-decimal-precision"));
lf[531]=C_h_intern(&lf[531],38, C_text("chicken.flonum#flonum-maximum-exponent"));
lf[532]=C_h_intern(&lf[532],38, C_text("chicken.flonum#flonum-minimum-exponent"));
lf[533]=C_h_intern(&lf[533],46, C_text("chicken.flonum#flonum-maximum-decimal-exponent"));
lf[534]=C_h_intern(&lf[534],46, C_text("chicken.flonum#flonum-minimum-decimal-exponent"));
lf[535]=C_h_intern(&lf[535],18, C_text("chicken.flonum#fp+"));
lf[536]=C_h_intern(&lf[536],3, C_text("fp+"));
lf[537]=C_h_intern(&lf[537],18, C_text("chicken.flonum#fp-"));
lf[538]=C_h_intern(&lf[538],3, C_text("fp-"));
lf[539]=C_h_intern(&lf[539],18, C_text("chicken.flonum#fp*"));
lf[540]=C_h_intern(&lf[540],3, C_text("fp*"));
lf[541]=C_h_intern(&lf[541],18, C_text("chicken.flonum#fp/"));
lf[542]=C_h_intern(&lf[542],3, C_text("fp/"));
lf[543]=C_h_intern(&lf[543],19, C_text("chicken.flonum#fp*+"));
lf[544]=C_h_intern(&lf[544],4, C_text("fp*+"));
lf[545]=C_h_intern(&lf[545],20, C_text("chicken.flonum#fpgcd"));
lf[546]=C_h_intern(&lf[546],5, C_text("fpgcd"));
lf[547]=C_h_intern(&lf[547],19, C_text("chicken.flonum#fp/?"));
lf[548]=C_h_intern(&lf[548],4, C_text("fp/?"));
lf[549]=C_h_intern(&lf[549],18, C_text("chicken.flonum#fp="));
lf[550]=C_h_intern(&lf[550],3, C_text("fp="));
lf[551]=C_h_intern(&lf[551],18, C_text("chicken.flonum#fp>"));
lf[552]=C_h_intern(&lf[552],3, C_text("fp>"));
lf[553]=C_h_intern(&lf[553],18, C_text("chicken.flonum#fp<"));
lf[554]=C_h_intern(&lf[554],3, C_text("fp<"));
lf[555]=C_h_intern(&lf[555],19, C_text("chicken.flonum#fp>="));
lf[556]=C_h_intern(&lf[556],4, C_text("fp>="));
lf[557]=C_h_intern(&lf[557],19, C_text("chicken.flonum#fp<="));
lf[558]=C_h_intern(&lf[558],4, C_text("fp<="));
lf[559]=C_h_intern(&lf[559],20, C_text("chicken.flonum#fpneg"));
lf[560]=C_h_intern(&lf[560],5, C_text("fpneg"));
lf[561]=C_h_intern(&lf[561],20, C_text("chicken.flonum#fpmax"));
lf[562]=C_h_intern(&lf[562],5, C_text("fpmax"));
lf[563]=C_h_intern(&lf[563],20, C_text("chicken.flonum#fpmin"));
lf[564]=C_h_intern(&lf[564],5, C_text("fpmin"));
lf[565]=C_h_intern(&lf[565],22, C_text("chicken.flonum#fpfloor"));
lf[566]=C_h_intern(&lf[566],7, C_text("fpfloor"));
lf[567]=C_h_intern(&lf[567],25, C_text("chicken.flonum#fptruncate"));
lf[568]=C_h_intern(&lf[568],10, C_text("fptruncate"));
lf[569]=C_h_intern(&lf[569],22, C_text("chicken.flonum#fpround"));
lf[570]=C_h_intern(&lf[570],7, C_text("fpround"));
lf[571]=C_h_intern(&lf[571],24, C_text("chicken.flonum#fpceiling"));
lf[572]=C_h_intern(&lf[572],9, C_text("fpceiling"));
lf[573]=C_h_intern(&lf[573],20, C_text("chicken.flonum#fpsin"));
lf[574]=C_h_intern(&lf[574],5, C_text("fpsin"));
lf[575]=C_h_intern(&lf[575],20, C_text("chicken.flonum#fpcos"));
lf[576]=C_h_intern(&lf[576],5, C_text("fpcos"));
lf[577]=C_h_intern(&lf[577],20, C_text("chicken.flonum#fptan"));
lf[578]=C_h_intern(&lf[578],5, C_text("fptan"));
lf[579]=C_h_intern(&lf[579],21, C_text("chicken.flonum#fpasin"));
lf[580]=C_h_intern(&lf[580],6, C_text("fpasin"));
lf[581]=C_h_intern(&lf[581],21, C_text("chicken.flonum#fpacos"));
lf[582]=C_h_intern(&lf[582],6, C_text("fpacos"));
lf[583]=C_h_intern(&lf[583],21, C_text("chicken.flonum#fpatan"));
lf[584]=C_h_intern(&lf[584],6, C_text("fpatan"));
lf[585]=C_h_intern(&lf[585],22, C_text("chicken.flonum#fpatan2"));
lf[586]=C_h_intern(&lf[586],7, C_text("fpatan2"));
lf[587]=C_h_intern(&lf[587],21, C_text("chicken.flonum#fpsinh"));
lf[588]=C_h_intern(&lf[588],6, C_text("fpsinh"));
lf[589]=C_h_intern(&lf[589],21, C_text("chicken.flonum#fpcosh"));
lf[590]=C_h_intern(&lf[590],6, C_text("fpcosh"));
lf[591]=C_h_intern(&lf[591],21, C_text("chicken.flonum#fptanh"));
lf[592]=C_h_intern(&lf[592],6, C_text("fptanh"));
lf[593]=C_h_intern(&lf[593],22, C_text("chicken.flonum#fpasinh"));
lf[594]=C_h_intern(&lf[594],7, C_text("fpasinh"));
lf[595]=C_h_intern(&lf[595],22, C_text("chicken.flonum#fpacosh"));
lf[596]=C_h_intern(&lf[596],7, C_text("fpacosh"));
lf[597]=C_h_intern(&lf[597],22, C_text("chicken.flonum#fpatanh"));
lf[598]=C_h_intern(&lf[598],7, C_text("fpatanh"));
lf[599]=C_h_intern(&lf[599],20, C_text("chicken.flonum#fpexp"));
lf[600]=C_h_intern(&lf[600],5, C_text("fpexp"));
lf[601]=C_h_intern(&lf[601],21, C_text("chicken.flonum#fpexpt"));
lf[602]=C_h_intern(&lf[602],6, C_text("fpexpt"));
lf[603]=C_h_intern(&lf[603],20, C_text("chicken.flonum#fplog"));
lf[604]=C_h_intern(&lf[604],5, C_text("fplog"));
lf[605]=C_h_intern(&lf[605],21, C_text("chicken.flonum#fpsqrt"));
lf[606]=C_h_intern(&lf[606],6, C_text("fpsqrt"));
lf[607]=C_h_intern(&lf[607],20, C_text("chicken.flonum#fpabs"));
lf[608]=C_h_intern(&lf[608],5, C_text("fpabs"));
lf[609]=C_h_intern(&lf[609],25, C_text("chicken.flonum#fpinteger?"));
lf[610]=C_h_intern(&lf[610],10, C_text("fpinteger?"));
lf[611]=C_h_intern(&lf[611],37, C_text("chicken.flonum#flonum-print-precision"));
lf[612]=C_h_intern(&lf[612],22, C_text("flonum-print-precision"));
lf[614]=C_h_intern(&lf[614],23, C_text("scheme#make-rectangular"));
lf[615]=C_h_intern(&lf[615],16, C_text("make-rectangular"));
lf[616]=C_h_intern(&lf[616],17, C_text("scheme#make-polar"));
lf[617]=C_h_intern(&lf[617],10, C_text("make-polar"));
lf[618]=C_h_intern(&lf[618],16, C_text("scheme#real-part"));
lf[619]=C_h_intern(&lf[619],9, C_text("real-part"));
lf[620]=C_h_intern(&lf[620],16, C_text("scheme#imag-part"));
lf[621]=C_h_intern(&lf[621],9, C_text("imag-part"));
lf[622]=C_h_intern(&lf[622],12, C_text("scheme#angle"));
lf[623]=C_h_intern(&lf[623],5, C_text("angle"));
lf[624]=C_h_intern(&lf[624],16, C_text("scheme#magnitude"));
lf[625]=C_h_intern(&lf[625],11, C_text("scheme#sqrt"));
lf[626]=C_h_intern(&lf[626],9, C_text("magnitude"));
lf[628]=C_h_intern(&lf[628],16, C_text("scheme#numerator"));
lf[629]=C_h_intern(&lf[629],9, C_text("numerator"));
lf[630]=C_h_intern(&lf[630],21, C_text("scheme#inexact->exact"));
lf[631]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\162\141\164\151\157\156\141\154\040\156\165\155\142\145\162\000"));
lf[632]=C_h_intern(&lf[632],18, C_text("scheme#denominator"));
lf[633]=C_h_intern(&lf[633],11, C_text("denominator"));
lf[634]=C_decode_literal(C_heaptop,C_text("\376\1251.0\000"));
lf[635]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\162\141\164\151\157\156\141\154\040\156\165\155\142\145\162\000"));
lf[636]=C_h_intern(&lf[636],21, C_text("##sys#extended-signum"));
lf[637]=C_h_intern(&lf[637],6, C_text("signum"));
lf[638]=C_h_intern(&lf[638],9, C_text("##sys#/-2"));
lf[639]=C_h_intern(&lf[639],14, C_text("inexact->exact"));
lf[640]=C_h_intern(&lf[640],19, C_text("##sys#integer-power"));
lf[641]=C_decode_literal(C_heaptop,C_text("\376\1252.0\000"));
lf[642]=C_h_intern(&lf[642],11, C_text("scheme#expt"));
lf[643]=C_h_intern(&lf[643],16, C_text("chicken.bitwise#"));
lf[644]=C_h_intern(&lf[644],27, C_text("chicken.bitwise#bitwise-and"));
lf[645]=C_h_intern(&lf[645],27, C_text("chicken.bitwise#bitwise-ior"));
lf[646]=C_h_intern(&lf[646],27, C_text("chicken.bitwise#bitwise-xor"));
lf[647]=C_h_intern(&lf[647],27, C_text("chicken.bitwise#bitwise-not"));
lf[648]=C_h_intern(&lf[648],28, C_text("chicken.bitwise#bit->boolean"));
lf[649]=C_h_intern(&lf[649],30, C_text("chicken.bitwise#integer-length"));
lf[650]=C_h_intern(&lf[650],32, C_text("chicken.bitwise#arithmetic-shift"));
lf[651]=C_h_intern(&lf[651],8, C_text("scheme#/"));
lf[653]=C_h_intern(&lf[653],1, C_text("/"));
lf[654]=C_h_intern(&lf[654],12, C_text("scheme#floor"));
lf[655]=C_h_intern(&lf[655],5, C_text("floor"));
lf[656]=C_h_intern(&lf[656],14, C_text("scheme#ceiling"));
lf[657]=C_h_intern(&lf[657],7, C_text("ceiling"));
lf[658]=C_h_intern(&lf[658],15, C_text("scheme#truncate"));
lf[659]=C_h_intern(&lf[659],8, C_text("truncate"));
lf[660]=C_h_intern(&lf[660],12, C_text("scheme#round"));
lf[661]=C_h_intern(&lf[661],5, C_text("round"));
lf[663]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\001\000\000\000\000\376\003\000\000\002\376\377\001\000\000\000\001\376\377\016"));
lf[664]=C_h_intern(&lf[664],18, C_text("scheme#rationalize"));
lf[665]=C_h_intern(&lf[665],10, C_text("scheme#max"));
lf[666]=C_h_intern(&lf[666],3, C_text("max"));
lf[667]=C_h_intern(&lf[667],3, C_text("min"));
lf[668]=C_h_intern(&lf[668],10, C_text("scheme#exp"));
lf[669]=C_h_intern(&lf[669],3, C_text("exp"));
lf[670]=C_h_intern(&lf[670],11, C_text("##sys#log-1"));
lf[671]=C_h_intern_kw(&lf[671],16, C_text("arithmetic-error"));
lf[672]=C_h_intern(&lf[672],3, C_text("log"));
lf[673]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\154\157\147\040\157\146\040\145\170\141\143\164\040\060\040\151\163\040\165\156\144\145\146\151\156\145\144\000"));
lf[674]=C_h_intern(&lf[674],10, C_text("scheme#log"));
lf[675]=C_h_intern(&lf[675],10, C_text("scheme#sin"));
lf[676]=C_h_intern(&lf[676],3, C_text("sin"));
lf[677]=C_decode_literal(C_heaptop,C_text("\376\016\000\000\002\376\377\001\000\000\000\000\376\377\001\000\000\000\001"));
lf[678]=C_decode_literal(C_heaptop,C_text("\376\016\000\000\002\376\377\001\000\000\000\000\376\377\001\000\000\000\002"));
lf[679]=C_h_intern(&lf[679],10, C_text("scheme#cos"));
lf[680]=C_h_intern(&lf[680],3, C_text("cos"));
lf[681]=C_h_intern(&lf[681],10, C_text("scheme#tan"));
lf[682]=C_h_intern(&lf[682],3, C_text("tan"));
lf[683]=C_h_intern(&lf[683],11, C_text("scheme#asin"));
lf[684]=C_h_intern(&lf[684],4, C_text("asin"));
lf[685]=C_decode_literal(C_heaptop,C_text("\376\016\000\000\002\376\377\001\000\000\000\000\376\377\001\377\377\377\377"));
lf[686]=C_h_intern(&lf[686],14, C_text("##sys#sqrt/loc"));
lf[687]=C_decode_literal(C_heaptop,C_text("\376\125-1.0\000"));
lf[688]=C_h_intern(&lf[688],11, C_text("scheme#acos"));
lf[689]=C_h_intern(&lf[689],4, C_text("acos"));
lf[690]=C_h_intern(&lf[690],11, C_text("scheme#atan"));
lf[691]=C_h_intern(&lf[691],4, C_text("atan"));
lf[692]=C_h_intern(&lf[692],24, C_text("##sys#exact-integer-sqrt"));
lf[693]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\164\150\151\163\040\163\150\157\165\154\144\040\156\145\166\145\162\040\150\141\160\160\145\156\000"));
lf[694]=C_h_intern(&lf[694],25, C_text("scheme#exact-integer-sqrt"));
lf[695]=C_h_intern(&lf[695],18, C_text("exact-integer-sqrt"));
lf[696]=C_decode_literal(C_heaptop,C_text("\376\1250.0\000"));
lf[697]=C_h_intern(&lf[697],4, C_text("sqrt"));
lf[698]=C_h_intern(&lf[698],16, C_text("scheme#truncate/"));
lf[699]=C_h_intern(&lf[699],13, C_text("scheme#floor/"));
lf[700]=C_h_intern(&lf[700],22, C_text("scheme#floor-remainder"));
lf[701]=C_h_intern(&lf[701],21, C_text("scheme#floor-quotient"));
lf[702]=C_h_intern(&lf[702],13, C_text("scheme#square"));
lf[703]=C_h_intern(&lf[703],35, C_text("chicken.base#exact-integer-nth-root"));
lf[704]=C_h_intern(&lf[704],32, C_text("##sys#exact-integer-nth-root/loc"));
lf[705]=C_h_intern(&lf[705],22, C_text("exact-integer-nth-root"));
lf[706]=C_h_intern(&lf[706],4, C_text("expt"));
lf[707]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\067\145\170\160\157\156\145\156\164\040\157\146\040\145\170\141\143\164\040\060\040\167\151\164\150\040\143\157\155\160\154\145\170\040\141\162\147\165\155\145\156\164\040\151\163\040\165\156\144\145\146\151\156\145\144\000"));
lf[708]=C_h_intern(&lf[708],9, C_text("##sys#gcd"));
lf[709]=C_h_intern(&lf[709],3, C_text("gcd"));
lf[710]=C_h_intern(&lf[710],10, C_text("scheme#gcd"));
lf[711]=C_h_intern(&lf[711],9, C_text("##sys#lcm"));
lf[712]=C_h_intern(&lf[712],3, C_text("lcm"));
lf[713]=C_h_intern(&lf[713],10, C_text("scheme#lcm"));
lf[714]=C_h_intern(&lf[714],31, C_text("##sys#integer->string/recursive"));
lf[715]=C_h_intern(&lf[715],20, C_text("##sys#number->string"));
lf[716]=C_h_intern(&lf[716],29, C_text("##sys#extended-number->string"));
lf[717]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000"));
lf[718]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\151\000"));
lf[719]=C_decode_literal(C_heaptop,C_text("\376\125-0.0\000"));
lf[720]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\053\000"));
lf[721]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[722]=C_h_intern(&lf[722],14, C_text("number->string"));
lf[725]=C_h_intern(&lf[725],1, C_text("e"));
lf[726]=C_h_intern(&lf[726],1, C_text("i"));
lf[727]=C_decode_literal(C_heaptop,C_text("\376\125+inf.0\000"));
lf[728]=C_decode_literal(C_heaptop,C_text("\376\125-inf.0\000"));
lf[729]=C_h_intern(&lf[729],3, C_text("neg"));
lf[730]=C_h_intern(&lf[730],3, C_text("pos"));
lf[731]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\151\156\146\056\060\000"));
lf[732]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\156\141\156\056\060\000"));
lf[733]=C_h_intern(&lf[733],21, C_text("scheme#string->number"));
lf[734]=C_h_intern(&lf[734],14, C_text("string->number"));
lf[735]=C_h_intern(&lf[735],20, C_text("##sys#string->number"));
lf[736]=C_h_intern(&lf[736],20, C_text("##sys#fixnum->string"));
lf[737]=C_h_intern(&lf[737],20, C_text("##sys#flonum->string"));
lf[738]=C_h_intern(&lf[738],21, C_text("##sys#integer->string"));
lf[739]=C_h_intern(&lf[739],20, C_text("chicken.base#equal=?"));
lf[740]=C_h_intern(&lf[740],11, C_text("##sys#snafu"));
lf[741]=C_h_intern(&lf[741],11, C_text("##sys#fnord"));
lf[742]=C_h_intern(&lf[742],19, C_text("##sys#intern-symbol"));
lf[743]=C_h_intern(&lf[743],20, C_text("##sys#intern-keyword"));
lf[744]=C_h_intern(&lf[744],17, C_text("##sys#make-symbol"));
lf[745]=C_h_intern(&lf[745],22, C_text("##sys#interned-symbol?"));
lf[746]=C_h_intern(&lf[746],25, C_text("##sys#string->symbol-name"));
lf[747]=C_h_intern(&lf[747],27, C_text("##sys#symbol->string/shared"));
lf[748]=C_h_intern(&lf[748],20, C_text("##sys#symbol->string"));
lf[749]=C_h_intern(&lf[749],20, C_text("##sys#string->symbol"));
lf[750]=C_h_intern(&lf[750],21, C_text("scheme#symbol->string"));
lf[751]=C_h_intern(&lf[751],14, C_text("symbol->string"));
lf[752]=C_h_intern(&lf[752],21, C_text("scheme#string->symbol"));
lf[753]=C_h_intern(&lf[753],14, C_text("string->symbol"));
lf[754]=C_h_intern(&lf[754],38, C_text("chicken.base#string->uninterned-symbol"));
lf[755]=C_h_intern(&lf[755],25, C_text("string->uninterned-symbol"));
lf[756]=C_h_intern(&lf[756],19, C_text("chicken.base#gensym"));
lf[757]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\147\000"));
lf[758]=C_h_intern(&lf[758],6, C_text("gensym"));
lf[759]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\141\162\147\165\155\145\156\164\040\151\163\040\156\157\164\040\141\040\163\164\162\151\156\147\040\157\162\040\163\171\155\142\157\154\000"));
lf[760]=C_h_intern(&lf[760],26, C_text("chicken.base#symbol-append"));
lf[761]=C_h_intern(&lf[761],13, C_text("symbol-append"));
lf[762]=C_h_intern(&lf[762],16, C_text("chicken.keyword#"));
lf[763]=C_h_intern(&lf[763],24, C_text("chicken.keyword#keyword?"));
lf[764]=C_h_intern(&lf[764],31, C_text("chicken.keyword#string->keyword"));
lf[765]=C_h_intern(&lf[765],15, C_text("string->keyword"));
lf[766]=C_h_intern(&lf[766],31, C_text("chicken.keyword#keyword->string"));
lf[767]=C_h_intern(&lf[767],15, C_text("keyword->string"));
lf[768]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\153\145\171\167\157\162\144\000"));
lf[769]=C_h_intern(&lf[769],3, C_text("tag"));
lf[770]=C_h_intern(&lf[770],27, C_text("chicken.keyword#get-keyword"));
lf[771]=C_h_intern(&lf[771],11, C_text("get-keyword"));
lf[772]=C_h_intern(&lf[772],17, C_text("##sys#get-keyword"));
lf[773]=C_h_intern(&lf[773],22, C_text("##sys#bytevector->list"));
lf[774]=C_h_intern(&lf[774],22, C_text("##sys#list->bytevector"));
lf[775]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\143\141\156\040\156\157\164\040\143\157\156\166\145\162\164\040\154\151\163\164\040\164\157\040\142\171\164\145\166\145\143\164\157\162\000"));
lf[776]=C_h_intern(&lf[776],19, C_text("chicken.bytevector#"));
lf[777]=C_h_intern(&lf[777],34, C_text("chicken.bytevector#make-bytevector"));
lf[778]=C_h_intern(&lf[778],15, C_text("make-bytevector"));
lf[779]=C_h_intern(&lf[779],30, C_text("chicken.bytevector#bytevector?"));
lf[780]=C_h_intern(&lf[780],36, C_text("chicken.bytevector#bytevector-length"));
lf[781]=C_h_intern(&lf[781],15, C_text("bytevector-size"));
lf[782]=C_h_intern(&lf[782],36, C_text("chicken.bytevector#bytevector-u8-ref"));
lf[783]=C_h_intern(&lf[783],37, C_text("chicken.bytevector#bytevector-u8-set!"));
lf[784]=C_h_intern(&lf[784],31, C_text("chicken.bytevector#string->utf8"));
lf[785]=C_h_intern(&lf[785],12, C_text("string->utf8"));
lf[786]=C_h_intern(&lf[786],31, C_text("chicken.bytevector#utf8->string"));
lf[787]=C_h_intern(&lf[787],12, C_text("utf8->string"));
lf[788]=C_h_intern(&lf[788],32, C_text("chicken.bytevector#bytes->string"));
lf[789]=C_h_intern(&lf[789],13, C_text("bytes->string"));
lf[790]=C_h_intern(&lf[790],33, C_text("chicken.bytevector#string->latin1"));
lf[791]=C_h_intern(&lf[791],14, C_text("string->latin1"));
lf[792]=C_h_intern(&lf[792],33, C_text("chicken.bytevector#latin1->string"));
lf[793]=C_h_intern(&lf[793],14, C_text("latin1->string"));
lf[794]=C_h_intern(&lf[794],31, C_text("chicken.bytevector#bytevector=?"));
lf[795]=C_h_intern(&lf[795],12, C_text("bytevector=?"));
lf[796]=C_h_intern(&lf[796],29, C_text("chicken.bytevector#bytevector"));
lf[797]=C_h_intern(&lf[797],10, C_text("bytevector"));
lf[798]=C_h_intern(&lf[798],34, C_text("chicken.bytevector#bytevector-copy"));
lf[799]=C_h_intern(&lf[799],15, C_text("bytevector-copy"));
lf[800]=C_h_intern(&lf[800],16, C_text("bytevector->copy"));
lf[801]=C_h_intern(&lf[801],35, C_text("chicken.bytevector#bytevector-copy!"));
lf[802]=C_h_intern(&lf[802],16, C_text("bytevector-copy!"));
lf[803]=C_h_intern(&lf[803],17, C_text("bytevector->copy!"));
lf[804]=C_h_intern(&lf[804],36, C_text("chicken.bytevector#bytevector-append"));
lf[805]=C_h_intern(&lf[805],17, C_text("bytevector-append"));
lf[806]=C_h_intern(&lf[806],11, C_text("make-vector"));
lf[807]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\163\151\172\145\040\151\163\040\156\145\147\141\164\151\166\145\000"));
lf[808]=C_h_intern(&lf[808],17, C_text("##sys#make-vector"));
lf[809]=C_h_intern(&lf[809],12, C_text("list->vector"));
lf[810]=C_h_intern(&lf[810],12, C_text("vector->list"));
lf[811]=C_h_intern(&lf[811],12, C_text("vector-fill!"));
lf[812]=C_h_intern(&lf[812],18, C_text("scheme#vector-copy"));
lf[813]=C_h_intern(&lf[813],11, C_text("vector-copy"));
lf[814]=C_h_intern(&lf[814],19, C_text("scheme#vector-copy!"));
lf[815]=C_h_intern(&lf[815],12, C_text("vector-copy!"));
lf[816]=C_h_intern(&lf[816],20, C_text("scheme#vector-append"));
lf[817]=C_h_intern(&lf[817],13, C_text("vector-append"));
lf[818]=C_h_intern(&lf[818],9, C_text("subvector"));
lf[819]=C_h_intern(&lf[819],13, C_text("vector-resize"));
lf[821]=C_h_intern(&lf[821],9, C_text("char-ci=?"));
lf[822]=C_h_intern(&lf[822],9, C_text("char-ci>?"));
lf[823]=C_h_intern(&lf[823],9, C_text("char-ci<?"));
lf[824]=C_h_intern(&lf[824],10, C_text("char-ci>=?"));
lf[825]=C_h_intern(&lf[825],10, C_text("char-ci<=?"));
lf[826]=C_h_intern_kw(&lf[826],4, C_text("none"));
lf[827]=C_h_intern(&lf[827],9, C_text("char-name"));
lf[828]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\145\170\160\145\143\164\145\144\040\163\145\143\157\156\144\040\142\157\157\154\145\141\156\040\141\162\147\165\155\145\156\164\000"));
lf[829]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\151\156\166\141\154\151\144\040\143\150\141\162\141\143\164\145\162\040\156\141\155\145\000"));
lf[830]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\151\156\166\141\154\151\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\000"));
lf[831]=C_h_intern(&lf[831],36, C_text("##sys#call-with-current-continuation"));
lf[832]=C_h_intern(&lf[832],23, C_text("##sys#call-with-cthulhu"));
lf[833]=C_h_intern(&lf[833],22, C_text("##sys#call-with-values"));
lf[834]=C_h_intern(&lf[834],14, C_text("##sys#for-each"));
lf[835]=C_h_intern(&lf[835],8, C_text("for-each"));
lf[836]=C_h_intern(&lf[836],9, C_text("##sys#map"));
lf[837]=C_h_intern(&lf[837],3, C_text("map"));
lf[838]=C_h_intern(&lf[838],19, C_text("##sys#dynamic-winds"));
lf[839]=C_h_intern(&lf[839],18, C_text("##sys#dynamic-wind"));
lf[841]=C_h_intern(&lf[841],12, C_text("port-closed?"));
lf[842]=C_h_intern(&lf[842],24, C_text("##sys#dispatch-interrupt"));
lf[843]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\143\141\156\156\157\164\040\162\145\141\144\040\146\162\157\155\040\160\157\162\164\040\055\040\000"));
lf[844]=C_h_intern(&lf[844],19, C_text("##sys#peek-c-string"));
lf[845]=C_h_intern(&lf[845],18, C_text("##sys#update-errno"));
lf[846]=C_h_intern(&lf[846],16, C_text("read-bytevector!"));
lf[847]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\143\141\156\156\157\164\040\162\145\141\144\040\146\162\157\155\040\160\157\162\164\040\055\040\000"));
lf[848]=C_h_intern(&lf[848],9, C_text("read-line"));
lf[849]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\143\141\156\156\157\164\040\162\145\141\144\040\146\162\157\155\040\160\157\162\164\040\055\040\000"));
lf[850]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[851]=C_h_intern(&lf[851],23, C_text("##sys#stream-port-class"));
lf[852]=C_h_intern(&lf[852],20, C_text("##sys#open-file-port"));
lf[853]=C_h_intern(&lf[853],20, C_text("##sys#standard-input"));
lf[854]=C_h_intern(&lf[854],21, C_text("##sys#standard-output"));
lf[855]=C_h_intern(&lf[855],20, C_text("##sys#standard-error"));
lf[856]=C_h_intern(&lf[856],22, C_text("##sys#check-input-port"));
lf[857]=C_h_intern(&lf[857],23, C_text("##sys#check-output-port"));
lf[858]=C_h_intern(&lf[858],21, C_text("##sys#check-open-port"));
lf[859]=C_h_intern(&lf[859],18, C_text("current-input-port"));
lf[860]=C_h_intern(&lf[860],19, C_text("current-output-port"));
lf[861]=C_h_intern(&lf[861],18, C_text("current-error-port"));
lf[862]=C_h_intern(&lf[862],15, C_text("##sys#tty-port?"));
lf[863]=C_h_intern(&lf[863],27, C_text("##sys#peek-unsigned-integer"));
lf[864]=C_h_intern(&lf[864],15, C_text("##sys#port-data"));
lf[865]=C_h_intern(&lf[865],20, C_text("##sys#set-port-data!"));
lf[866]=C_h_intern(&lf[866],27, C_text("##sys#default-file-encoding"));
lf[867]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\162\000"));
lf[868]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\167\000"));
lf[869]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[870]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\143\141\156\156\157\164\040\157\160\145\156\040\146\151\154\145\040\055\040\000"));
lf[871]=C_h_intern(&lf[871],6, C_text("stream"));
lf[872]=C_h_intern_kw(&lf[872],6, C_text("binary"));
lf[873]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\142\000"));
lf[874]=C_h_intern_kw(&lf[874],4, C_text("text"));
lf[875]=C_h_intern(&lf[875],4, C_text("text"));
lf[876]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[877]=C_h_intern_kw(&lf[877],5, C_text("utf-8"));
lf[878]=C_h_intern_kw(&lf[878],7, C_text("latin-1"));
lf[879]=C_h_intern_kw(&lf[879],4, C_text("unix"));
lf[880]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\142\000"));
lf[881]=C_h_intern_kw(&lf[881],4, C_text("crnl"));
lf[882]=C_h_intern(&lf[882],4, C_text("crnl"));
lf[883]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[884]=C_h_intern_kw(&lf[884],6, C_text("append"));
lf[885]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\047\143\141\156\156\157\164\040\165\163\145\040\141\160\160\145\156\144\040\155\157\144\145\040\167\151\164\150\040\151\156\160\165\164\040\146\151\154\145\000"));
lf[886]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\141\000"));
lf[887]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\156\166\141\154\151\144\040\146\151\154\145\040\157\160\164\151\157\156\000"));
lf[888]=C_h_intern_kw(&lf[888],2, C_text("nl"));
lf[889]=C_h_intern(&lf[889],4, C_text("unix"));
lf[890]=C_h_intern(&lf[890],2, C_text("nl"));
lf[891]=C_h_intern_kw(&lf[891],10, C_text("iso-8859-1"));
lf[892]=C_h_intern(&lf[892],10, C_text("iso-8859-1"));
lf[893]=C_h_intern(&lf[893],15, C_text("open-input-file"));
lf[894]=C_h_intern(&lf[894],16, C_text("open-output-file"));
lf[895]=C_h_intern(&lf[895],16, C_text("close-input-port"));
lf[896]=C_h_intern(&lf[896],17, C_text("close-output-port"));
lf[897]=C_h_intern(&lf[897],18, C_text("##sys#file-exists?"));
lf[898]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\163\171\163\164\145\155\040\145\162\162\157\162\040\167\150\151\154\145\040\164\162\171\151\156\147\040\164\157\040\141\143\143\145\163\163\040\146\151\154\145\000"));
lf[899]=C_h_intern(&lf[899],19, C_text("##sys#make-c-string"));
lf[900]=C_h_intern(&lf[900],18, C_text("##sys#flush-output"));
lf[901]=C_h_intern(&lf[901],12, C_text("flush-output"));
lf[902]=C_h_intern(&lf[902],15, C_text("##sys#port-line"));
lf[903]=C_h_intern(&lf[903],21, C_text("##sys#decorate-lambda"));
lf[904]=C_h_intern(&lf[904],23, C_text("##sys#lambda-decoration"));
lf[905]=C_h_intern(&lf[905],22, C_text("##sys#make-lambda-info"));
lf[906]=C_h_intern(&lf[906],18, C_text("##sys#lambda-info?"));
lf[907]=C_h_intern(&lf[907],17, C_text("##sys#lambda-info"));
lf[908]=C_h_intern(&lf[908],25, C_text("##sys#lambda-info->string"));
lf[909]=C_h_intern(&lf[909],10, C_text("##sys#read"));
lf[910]=C_h_intern(&lf[910],21, C_text("procedure-information"));
lf[911]=C_h_intern(&lf[911],6, C_text("setter"));
lf[913]=C_h_intern(&lf[913],12, C_text("##sys#setter"));
lf[914]=C_h_intern(&lf[914],18, C_text("getter-with-setter"));
lf[916]=C_h_intern(&lf[916],30, C_text("##sys#current-parameter-vector"));
lf[917]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\000"));
lf[918]=C_h_intern(&lf[918],11, C_text("char-ready?"));
lf[919]=C_h_intern(&lf[919],9, C_text("u8-ready?"));
lf[920]=C_h_intern(&lf[920],17, C_text("##sys#read-char-0"));
lf[921]=C_h_intern(&lf[921],20, C_text("##sys#read-char/port"));
lf[922]=C_h_intern(&lf[922],17, C_text("##sys#peek-char-0"));
lf[923]=C_h_intern(&lf[923],9, C_text("peek-char"));
lf[924]=C_h_intern(&lf[924],4, C_text("read"));
lf[925]=C_h_intern(&lf[925],28, C_text("##sys#default-read-info-hook"));
lf[926]=C_h_intern(&lf[926],33, C_text("##sys#read-error-with-line-number"));
lf[927]=C_h_intern(&lf[927],22, C_text("##sys#read-prompt-hook"));
lf[928]=C_h_intern(&lf[928],21, C_text("##sys#infix-list-hook"));
lf[929]=C_h_intern(&lf[929],23, C_text("##sys#sharp-number-hook"));
lf[930]=C_h_intern(&lf[930],16, C_text("##sys#read-error"));
lf[931]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\156\166\141\154\151\144\040\140\043\056\056\056\047\040\162\145\141\144\040\163\171\156\164\141\170\000"));
lf[932]=C_h_intern(&lf[932],24, C_text("##sys#current-read-table"));
lf[933]=C_h_intern(&lf[933],18, C_text("##sys#read-warning"));
lf[934]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\050\154\151\156\145\040\000"));
lf[935]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\040\000"));
lf[936]=C_h_intern_kw(&lf[936],12, C_text("syntax-error"));
lf[937]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\050\154\151\156\145\040\000"));
lf[938]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\040\000"));
lf[939]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\054\376\003\000\000\002\376\377\012\000\000\073\376\003\000\000\002\376\377\012\000\000\050\376\003\000\000\002\376\377\012\000\000\051\376\003\000\000\002\376\377\012\000\000\047\376\003\000\000\002\376\377\012\000\000\042\376\003\000\000\002\376\377\012\000\000\133\376\003\000\000\002\376\377\012\000\000\135\376\003\000\000\002\376\377\012\000\000\173\376\003\000\000\002\376\377\012\000\000\175\376\377\016"));
lf[940]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\165\156\145\170\160\145\143\164\145\144\040\154\151\163\164\040\164\145\162\155\151\156\141\164\157\162\000"));
lf[941]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\162\145\163\145\162\166\145\144\040\143\150\141\162\141\143\164\145\162\000"));
lf[942]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\163\145\154\146\055\162\145\146\145\162\145\156\164\151\141\154\040\144\141\164\165\155\000"));
lf[943]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\156\166\141\154\151\144\040\145\163\143\141\160\145\055\163\145\161\165\145\156\143\145\040\047\134\000"));
lf[944]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\047\000"));
lf[945]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\035\165\156\164\145\162\155\151\156\141\164\145\144\040\163\164\162\151\156\147\040\143\157\156\163\164\141\156\164\000"));
lf[946]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\151\156\166\141\154\151\144\040\145\163\143\141\160\145\055\163\145\161\165\145\156\143\145\040\047\134\170\000"));
lf[947]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\073\047\000"));
lf[948]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\165\156\164\145\162\155\151\156\141\164\145\144\040\150\145\170\141\144\145\143\151\155\141\154\040\145\163\143\141\160\145\040\163\145\161\165\145\156\143\145\000"));
lf[949]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\165\156\164\145\162\155\151\156\141\164\145\144\040\150\145\170\141\144\145\143\151\155\141\154\040\145\163\143\141\160\145\040\163\145\161\165\145\156\143\145\000"));
lf[950]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\165\156\164\145\162\155\151\156\141\164\145\144\040\163\164\162\151\156\147\000"));
lf[951]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\165\000"));
lf[952]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\125\000"));
lf[953]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\067\145\163\143\141\160\145\144\040\167\150\151\164\145\163\160\141\143\145\054\040\142\165\164\040\156\157\040\156\145\167\154\151\156\145\040\055\040\143\157\154\154\141\160\163\151\156\147\040\141\156\171\167\141\171\000"));
lf[954]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\165\156\164\145\162\155\151\156\141\164\145\144\040\163\164\162\151\156\147\000"));
lf[955]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[956]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\100\165\156\144\145\146\151\156\145\144\040\145\163\143\141\160\145\040\163\145\161\165\145\156\143\145\040\151\156\040\163\164\162\151\156\147\040\055\040\160\162\157\142\141\142\154\171\040\146\157\162\147\157\164\040\142\141\143\153\163\154\141\163\150\000"));
lf[957]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\054\040\163\164\141\162\164\151\156\147\040\151\156\040\154\151\156\145\040\000"));
lf[958]=C_h_intern(&lf[958],9, C_text("list-info"));
lf[959]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\154\151\163\164\055\164\145\162\155\151\156\141\164\157\162\040\155\151\163\155\141\164\143\150\000"));
lf[960]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\165\156\164\145\162\155\151\156\141\164\145\144\040\154\151\163\164\000"));
lf[961]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\155\151\163\163\151\156\147\040\154\151\163\164\040\164\145\162\155\151\156\141\164\157\162\000"));
lf[962]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\151\156\166\141\154\151\144\040\165\163\145\040\157\146\040\140\056\047\000"));
lf[963]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\056\072\000"));
lf[964]=C_h_intern_kw(&lf[964],6, C_text("suffix"));
lf[965]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000"));
lf[966]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000"));
lf[967]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\155\151\163\163\151\156\147\040\164\157\153\145\156\000"));
lf[968]=C_h_intern(&lf[968],18, C_text("##sys#list->vector"));
lf[969]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\151\156\166\141\154\151\144\040\166\145\143\164\157\162\040\163\171\156\164\141\170\000"));
lf[970]=C_h_intern(&lf[970],11, C_text("symbol-info"));
lf[971]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000"));
lf[972]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\151\156\166\141\154\151\144\040\165\163\145\040\157\146\040\140\056\047\000"));
lf[973]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\165\156\145\170\160\145\143\164\145\144\040\160\162\145\146\151\170\040\151\156\040\156\165\155\142\145\162\040\163\171\156\164\141\170\000"));
lf[974]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\151\154\154\145\147\141\154\040\156\165\155\142\145\162\040\163\171\156\164\141\170\000"));
lf[975]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\165\156\145\170\160\145\143\164\145\144\040\145\156\144\040\157\146\040\156\165\155\145\162\151\143\040\154\151\164\145\162\141\154\000"));
lf[976]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\061\151\154\154\145\147\141\154\040\156\165\155\142\145\162\040\163\171\156\164\141\170\040\055\040\151\156\166\141\154\151\144\040\145\170\141\143\164\156\145\163\163\040\160\162\145\146\151\170\000"));
lf[977]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\165\156\145\170\160\145\143\164\145\144\040\145\156\144\040\157\146\040\156\165\155\145\162\151\143\040\154\151\164\145\162\141\154\000"));
lf[978]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\151\154\154\145\147\141\154\040\156\165\155\142\145\162\040\163\171\156\164\141\170\040\055\040\151\156\166\141\154\151\144\040\162\141\144\151\170\000"));
lf[979]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\106\141\164\164\145\155\160\164\040\164\157\040\162\145\141\144\040\145\170\160\162\145\163\163\151\157\156\040\146\162\157\155\040\163\157\155\145\164\150\151\156\147\040\164\150\141\164\040\154\157\157\153\163\040\154\151\153\145\040\142\151\156\141\162\171\040\144\141\164\141\000"));
lf[980]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\072\000"));
lf[981]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\053\145\163\143\141\160\145\144\040\163\171\155\142\157\154\040\163\171\156\164\141\170\040\163\160\141\156\163\040\155\165\154\164\151\160\154\145\040\154\151\156\145\163\000"));
lf[982]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\067\165\156\145\170\160\145\143\164\145\144\040\145\156\144\040\157\146\040\146\151\154\145\040\167\150\151\154\145\040\162\145\141\144\151\156\147\040\145\163\143\141\160\145\144\040\143\150\141\162\141\143\164\145\162\000"));
lf[983]=C_h_intern_kw(&lf[983],6, C_text("prefix"));
lf[984]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\165\156\153\156\157\167\156\040\156\141\155\145\144\040\143\150\141\162\141\143\164\145\162\000"));
lf[985]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\165\156\164\145\162\155\151\156\141\164\145\144\040\142\154\157\143\153\055\143\157\155\155\145\156\164\000"));
lf[986]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\043\000"));
lf[987]=C_h_intern(&lf[987],5, C_text("quote"));
lf[988]=C_h_intern(&lf[988],10, C_text("quasiquote"));
lf[989]=C_h_intern(&lf[989],16, C_text("unquote-splicing"));
lf[990]=C_h_intern(&lf[990],7, C_text("unquote"));
lf[991]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\055\165\156\145\170\160\145\143\164\145\144\040\145\156\144\040\157\146\040\151\156\160\165\164\040\141\146\164\145\162\040\162\145\141\144\151\156\147\040\043\055\163\151\147\156\000"));
lf[992]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\165\156\145\170\160\145\143\164\145\144\040\145\156\144\040\157\146\040\151\156\160\165\164\040\141\146\164\145\162\040\162\145\141\144\151\156\147\000"));
lf[993]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\165\156\144\145\146\151\156\145\144\040\144\141\164\165\155\000"));
lf[994]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\151\156\166\141\154\151\144\040\160\141\162\141\155\145\164\145\162\151\172\145\144\040\162\145\141\144\040\163\171\156\164\141\170\000"));
lf[995]=C_h_intern(&lf[995],11, C_text("quasisyntax"));
lf[996]=C_h_intern(&lf[996],8, C_text("location"));
lf[997]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\145\155\160\164\171\040\153\145\171\167\157\162\144\000"));
lf[998]=C_h_intern(&lf[998],11, C_text("cond-expand"));
lf[999]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001\145\154\163\145\376\377\016"));
lf[1000]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\145\157\146\000"));
lf[1001]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\142\167\160\000"));
lf[1002]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\146\157\154\144\055\143\141\163\145\000"));
lf[1003]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\156\157\055\146\157\154\144\055\143\141\163\145\000"));
lf[1004]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\157\160\164\151\157\156\141\154\000"));
lf[1005]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\162\145\163\164\000"));
lf[1006]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\153\145\171\000"));
lf[1007]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\041\000"));
lf[1008]=C_h_intern(&lf[1008],16, C_text("##sys#read-marks"));
lf[1009]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\151\156\166\141\154\151\144\040\140\043\041\047\040\164\157\153\145\156\000"));
lf[1010]=C_h_intern(&lf[1010],20, C_text("##sys#user-read-hook"));
lf[1011]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\133\376\003\000\000\002\376\377\012\000\000\135\376\003\000\000\002\376\377\012\000\000\173\376\003\000\000\002\376\377\012\000\000\175\376\377\016"));
lf[1012]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\174\376\377\016"));
lf[1013]=C_h_intern(&lf[1013],1, C_text("p"));
lf[1014]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\151\156\166\141\154\151\144\040\163\150\141\162\160\055\163\151\147\156\040\162\145\141\144\040\163\171\156\164\141\170\000"));
lf[1015]=C_h_intern(&lf[1015],1, C_text("t"));
lf[1016]=C_h_intern(&lf[1016],4, C_text("true"));
lf[1017]=C_h_intern(&lf[1017],1, C_text("f"));
lf[1018]=C_h_intern(&lf[1018],5, C_text("false"));
lf[1019]=C_h_intern(&lf[1019],2, C_text("u8"));
lf[1020]=C_h_intern(&lf[1020],31, C_text("##sys#canonicalize-number-list!"));
lf[1021]=C_h_intern(&lf[1021],25, C_text("##sys#read-numvector-data"));
lf[1022]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\151\156\166\141\154\151\144\040\156\165\155\145\162\151\143\040\166\145\143\164\157\162\040\163\171\156\164\141\170\000"));
lf[1023]=C_h_intern(&lf[1023],18, C_text("##sys#write-char-0"));
lf[1024]=C_h_intern(&lf[1024],21, C_text("##sys#write-char/port"));
lf[1025]=C_h_intern(&lf[1025],10, C_text("write-char"));
lf[1026]=C_h_intern(&lf[1026],5, C_text("write"));
lf[1027]=C_h_intern(&lf[1027],11, C_text("##sys#print"));
lf[1028]=C_h_intern(&lf[1028],7, C_text("display"));
lf[1029]=C_h_intern(&lf[1029],5, C_text("print"));
lf[1031]=C_h_intern(&lf[1031],24, C_text("##sys#print-length-limit"));
lf[1033]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\056\056\056\000"));
lf[1034]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\056\056\056\000"));
lf[1035]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\134\170\000"));
lf[1036]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\050\376\003\000\000\002\376\377\012\000\000\051\376\003\000\000\002\376\377\012\000\000\054\376\003\000\000\002\376\377\012\000\000\133\376\003\000\000\002\376\377\012\000\000\135\376\003\000\000\002\376\377\012\000\000\173\376\003\000\000\002\376\377\012\000\000\175\376\003\000\000\002\376\377\012\000\000\047\376\003\000\000\002\376\377\012\000\000\042\376\003\000\000\002\376\377\012\000\000\073\376\003\000\000\002\376\377\012\000\000\040\376\003\000\000\002\376\377\012\000\000\140\376\003\000\000\002\376\377\012\000\000\174\376\003\000\000\002\376\377\012\000\000\134\376\377\016"));
lf[1037]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\002\000\000\007\043\041\162\145\163\164\000\376\003\000\000\002\376\002\000\000\006\043\041\153\145\171\000\376\003\000\000\002\376\002\000\000\013\043\041\157\160\164\151\157\156\141\154\000\376\003\000\000\002\376\002\000\000\014\043\041\146\157\154\144\055\143\141\163\145\000\376\003\000\000\002\376\002\000\000\017\043\041\156\157\055\146\157\154\144\055\143\141\163\145\000\376\377\016"));
lf[1038]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\050\051\000"));
lf[1039]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\164\000"));
lf[1040]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\146\000"));
lf[1041]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\043\041\145\157\146\000"));
lf[1042]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\043\074\165\156\163\160\145\143\151\146\151\145\144\076\000"));
lf[1043]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\043\041\142\167\160\000"));
lf[1044]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\134\000"));
lf[1045]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\043\074\165\156\142\157\165\156\144\040\166\141\154\165\145\076\000"));
lf[1046]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\043\074\151\156\166\141\154\151\144\040\151\155\155\145\144\151\141\164\145\040\157\142\152\145\143\164\076\000"));
lf[1047]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\043\074\151\156\166\141\154\151\144\040\146\157\162\167\141\162\144\145\144\040\157\142\152\145\143\164\076\000"));
lf[1048]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\072\000"));
lf[1049]=C_h_intern(&lf[1049],21, C_text("##sys#pointer->string"));
lf[1050]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\134\042\000"));
lf[1051]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\134\134\000"));
lf[1052]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\040\056\040\000"));
lf[1053]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\043\165\070\000"));
lf[1054]=C_h_intern(&lf[1054],21, C_text("##sys#user-print-hook"));
lf[1055]=C_h_intern(&lf[1055],23, C_text("##sys#procedure->string"));
lf[1056]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\043\074\154\157\143\141\164\151\166\145\076\000"));
lf[1057]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\043\074\154\141\155\142\144\141\040\151\156\146\157\040\000"));
lf[1058]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\042\076\000"));
lf[1059]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\043\074\151\156\160\165\164\040\160\157\162\164\040\042\000"));
lf[1060]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\043\074\157\165\164\160\165\164\040\160\157\162\164\040\042\000"));
lf[1061]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\043\074\160\157\162\164\040\042\000"));
lf[1062]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\043\050\051\000"));
lf[1063]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\050\000"));
lf[1064]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\165\156\160\162\151\156\164\141\142\154\145\040\142\154\157\143\153\040\157\142\152\145\143\164\040\145\156\143\157\165\156\164\145\162\145\144\000"));
lf[1065]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\043\074\160\162\157\143\145\144\165\162\145\040\000"));
lf[1066]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\076\000"));
lf[1067]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\043\074\160\162\157\143\145\144\165\162\145\076\000"));
lf[1068]=C_h_intern(&lf[1068],21, C_text("##sys#record-printers"));
lf[1069]=C_h_intern(&lf[1069],19, C_text("set-record-printer!"));
lf[1070]=C_h_intern(&lf[1070],29, C_text("##sys#register-record-printer"));
lf[1071]=C_h_intern(&lf[1071],9, C_text("condition"));
lf[1072]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\007\001\155\145\163\163\141\147\145"));
lf[1073]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\047\072\040\000"));
lf[1074]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\047\076\000"));
lf[1075]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\043\074\105\162\162\157\162\040\151\156\040\160\162\151\156\164\145\162\040\157\146\040\162\145\143\157\162\144\040\164\171\160\145\040\140\000"));
lf[1076]=C_h_intern(&lf[1076],40, C_text("chicken.condition#with-exception-handler"));
lf[1077]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000"));
lf[1078]=C_h_intern(&lf[1078],6, C_text("thread"));
lf[1079]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000"));
lf[1080]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\074\000"));
lf[1081]=C_h_intern(&lf[1081],29, C_text("##sys#with-print-length-limit"));
lf[1082]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\163\164\162\151\156\147\040\142\165\146\146\145\162\040\146\165\154\154\000"));
lf[1083]=C_h_intern(&lf[1083],22, C_text("##sys#scan-buffer-line"));
lf[1084]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[1085]=C_h_intern(&lf[1085],8, C_text("buffered"));
lf[1086]=C_h_intern(&lf[1086],21, C_text("##sys#print-to-string"));
lf[1087]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\043\074\164\141\147\147\145\144\040\160\157\151\156\164\145\162\040\000"));
lf[1088]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000"));
lf[1089]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\076\000"));
lf[1090]=C_h_intern(&lf[1090],22, C_text("##sys#pointer->address"));
lf[1091]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\043\074\160\157\151\156\164\145\162\040\060\170\000"));
lf[1092]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\076\000"));
lf[1093]=C_h_intern(&lf[1093],20, C_text("##sys#current-thread"));
lf[1094]=C_h_intern(&lf[1094],27, C_text("##sys#peek-nonnull-c-string"));
lf[1095]=C_h_intern(&lf[1095],29, C_text("##sys#really-print-call-chain"));
lf[1096]=C_h_intern(&lf[1096],9, C_text("frameinfo"));
lf[1097]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\135\040\000"));
lf[1098]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\011\040\040\000"));
lf[1099]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\012\011\000"));
lf[1100]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\011\074\055\055\012\000"));
lf[1101]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\012\011\103\141\154\154\040\150\151\163\164\157\162\171\072\012\000"));
lf[1102]=C_h_intern(&lf[1102],16, C_text("print-call-chain"));
lf[1103]=C_h_intern(&lf[1103],25, C_text("##sys#user-interrupt-hook"));
lf[1104]=C_h_intern_kw(&lf[1104],14, C_text("user-interrupt"));
lf[1105]=C_h_intern(&lf[1105],23, C_text("##sys#primordial-thread"));
lf[1108]=C_h_intern(&lf[1108],22, C_text("##sys#force-finalizers"));
lf[1109]=C_h_intern(&lf[1109],27, C_text("chicken.gc#force-finalizers"));
lf[1110]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\133\144\145\142\165\147\135\040\146\157\162\143\151\156\147\040\146\151\156\141\154\151\172\145\162\163\056\056\056\012\000"));
lf[1111]=C_h_intern(&lf[1111],24, C_text("##sys#pending-finalizers"));
lf[1112]=C_h_intern(&lf[1112],28, C_text("##sys#run-pending-finalizers"));
lf[1113]=C_h_intern(&lf[1113],21, C_text("##sys#dump-heap-state"));
lf[1114]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[1115]=C_h_intern(&lf[1115],19, C_text("##sys#reset-handler"));
lf[1116]=C_h_intern(&lf[1116],14, C_text("##sys#dbg-hook"));
lf[1117]=C_h_intern(&lf[1117],18, C_text("chicken.condition#"));
lf[1118]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001\165\163\145\162\055\151\156\164\145\162\162\165\160\164\376\377\016"));
lf[1119]=C_h_intern(&lf[1119],23, C_text("chicken.condition#abort"));
lf[1120]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000"));
lf[1121]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\012\127\141\162\156\151\156\147\072\040\000"));
lf[1122]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\012\116\157\164\145\072\040\000"));
lf[1123]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\007\001\155\145\163\163\141\147\145"));
lf[1124]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\011\001\141\162\147\165\155\145\156\164\163"));
lf[1125]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\012\001\143\141\154\154\055\143\150\141\151\156"));
lf[1126]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\010\001\154\157\143\141\164\151\157\156"));
lf[1127]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\005\001\145\162\162\156\157"));
lf[1128]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\004\001\164\171\160\145\376\377\016"));
lf[1129]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\006\001\163\171\156\164\141\170\376\377\016"));
lf[1130]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\006\001\142\157\165\156\144\163\376\377\016"));
lf[1131]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\012\001\141\162\151\164\150\155\145\164\151\143\376\377\016"));
lf[1132]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\003\001\151\057\157\376\003\000\000\002\376\001\000\000\004\001\146\151\154\145\376\377\016"));
lf[1133]=C_h_intern_kw(&lf[1133],13, C_text("runtime-error"));
lf[1134]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\007\001\162\165\156\164\151\155\145\376\377\016"));
lf[1135]=C_h_intern_kw(&lf[1135],13, C_text("process-error"));
lf[1136]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\007\001\160\162\157\143\145\163\163\376\377\016"));
lf[1137]=C_h_intern_kw(&lf[1137],13, C_text("network-error"));
lf[1138]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\003\001\151\057\157\376\003\000\000\002\376\001\000\000\003\001\156\145\164\376\377\016"));
lf[1139]=C_h_intern_kw(&lf[1139],21, C_text("network-timeout-error"));
lf[1140]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\003\001\151\057\157\376\003\000\000\002\376\001\000\000\003\001\156\145\164\376\003\000\000\002\376\001\000\000\007\001\164\151\155\145\157\165\164\376\377\016"));
lf[1141]=C_h_intern_kw(&lf[1141],11, C_text("limit-error"));
lf[1142]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\007\001\162\165\156\164\151\155\145\376\003\000\000\002\376\001\000\000\005\001\154\151\155\151\164\376\377\016"));
lf[1143]=C_h_intern_kw(&lf[1143],11, C_text("arity-error"));
lf[1144]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\005\001\141\162\151\164\171\376\377\016"));
lf[1145]=C_h_intern_kw(&lf[1145],12, C_text("access-error"));
lf[1146]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\006\001\141\143\143\145\163\163\376\377\016"));
lf[1147]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\006\001\144\157\155\141\151\156\376\377\016"));
lf[1148]=C_h_intern_kw(&lf[1148],12, C_text("memory-error"));
lf[1149]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\006\001\155\145\155\157\162\171\376\377\016"));
lf[1150]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\377\016"));
lf[1151]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\007\001\155\145\163\163\141\147\145"));
lf[1152]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\145\170\143\145\160\164\151\157\156\040\150\141\156\144\154\145\162\040\162\145\164\165\162\156\145\144\000"));
lf[1153]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\011\001\141\162\147\165\155\145\156\164\163"));
lf[1154]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\010\001\154\157\143\141\164\151\157\156"));
lf[1155]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\377\016"));
lf[1156]=C_h_intern(&lf[1156],31, C_text("##sys#current-exception-handler"));
lf[1157]=C_h_intern(&lf[1157],24, C_text("chicken.condition#signal"));
lf[1158]=C_h_intern(&lf[1158],19, C_text("##sys#error-handler"));
lf[1159]=C_h_intern(&lf[1159],20, C_text("##sys#last-exception"));
lf[1160]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\022\001\165\156\143\141\165\147\150\164\055\145\170\143\145\160\164\151\157\156\376\001\000\000\006\001\162\145\141\163\157\156"));
lf[1161]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\022\001\165\156\143\141\165\147\150\164\055\145\170\143\145\160\164\151\157\156\376\377\016"));
lf[1162]=C_h_intern(&lf[1162],3, C_text("exn"));
lf[1163]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\007\001\155\145\163\163\141\147\145"));
lf[1164]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\011\001\141\162\147\165\155\145\156\164\163"));
lf[1165]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\010\001\154\157\143\141\164\151\157\156"));
lf[1166]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000"));
lf[1167]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\040\000"));
lf[1168]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[1169]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\074\145\170\156\072\040\150\141\163\040\156\157\040\140\155\145\163\163\141\147\145\047\040\160\162\157\160\145\162\164\171\076\000"));
lf[1170]=C_h_intern(&lf[1170],14, C_text("user-interrupt"));
lf[1171]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\012\052\052\052\040\165\163\145\162\040\151\156\164\145\162\162\165\160\164\040\052\052\052\012\000"));
lf[1172]=C_h_intern(&lf[1172],18, C_text("uncaught-exception"));
lf[1173]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\022\001\165\156\143\141\165\147\150\164\055\145\170\143\145\160\164\151\157\156\376\001\000\000\006\001\162\145\141\163\157\156"));
lf[1174]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\165\156\143\141\165\147\150\164\040\145\170\143\145\160\164\151\157\156\000"));
lf[1175]=C_h_intern(&lf[1175],43, C_text("chicken.condition#current-exception-handler"));
lf[1176]=C_h_intern(&lf[1176],25, C_text("current-exception-handler"));
lf[1178]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\141\162\147\165\155\145\156\164\040\151\163\040\156\157\164\040\141\156\040\145\166\145\156\040\160\162\157\160\145\162\164\171\040\154\151\163\164\000"));
lf[1179]=C_h_intern(&lf[1179],41, C_text("chicken.condition#make-property-condition"));
lf[1180]=C_h_intern(&lf[1180],23, C_text("make-property-condition"));
lf[1181]=C_h_intern(&lf[1181],42, C_text("chicken.condition#make-composite-condition"));
lf[1182]=C_h_intern(&lf[1182],24, C_text("make-composite-condition"));
lf[1183]=C_h_intern(&lf[1183],27, C_text("chicken.condition#condition"));
lf[1184]=C_h_intern(&lf[1184],28, C_text("chicken.condition#condition?"));
lf[1185]=C_h_intern(&lf[1185],33, C_text("chicken.condition#condition->list"));
lf[1186]=C_h_intern(&lf[1186],15, C_text("condition->list"));
lf[1187]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\141\162\147\165\155\145\156\164\040\151\163\040\156\157\164\040\141\040\143\157\156\144\151\164\151\157\156\040\157\142\152\145\143\164\000"));
lf[1188]=C_h_intern(&lf[1188],37, C_text("chicken.condition#condition-predicate"));
lf[1189]=C_h_intern(&lf[1189],45, C_text("chicken.condition#condition-property-accessor"));
lf[1190]=C_h_intern(&lf[1190],27, C_text("condition-property-accessor"));
lf[1191]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\143\157\156\144\151\164\151\157\156\040\150\141\163\040\156\157\040\163\165\143\150\040\160\162\157\160\145\162\164\171\000"));
lf[1192]=C_h_intern(&lf[1192],40, C_text("chicken.condition#get-condition-property"));
lf[1193]=C_h_intern(&lf[1193],37, C_text("chicken.condition#print-error-message"));
lf[1194]=C_h_intern(&lf[1194],19, C_text("print-error-message"));
lf[1195]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000"));
lf[1196]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000"));
lf[1197]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\040\000"));
lf[1198]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000"));
lf[1199]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001\165\163\145\162\055\151\156\164\145\162\162\165\160\164\376\377\016"));
lf[1200]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\072\040\052\052\052\040\165\163\145\162\040\151\156\164\145\162\162\165\160\164\040\052\052\052\000"));
lf[1201]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\072\040\074\143\157\156\144\151\164\151\157\156\076\040\000"));
lf[1202]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000"));
lf[1203]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\072\040\165\156\143\141\165\147\150\164\040\145\170\143\145\160\164\151\157\156\072\040\000"));
lf[1204]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\105\162\162\157\162\000"));
lf[1205]=C_h_intern(&lf[1205],28, C_text("##sys#show-exception-warning"));
lf[1206]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000"));
lf[1207]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\050\000"));
lf[1208]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\127\141\162\156\151\156\147\000"));
lf[1209]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\142\141\144\040\141\162\147\165\155\145\156\164\040\143\157\165\156\164\040\055\040\162\145\143\145\151\166\145\144\040\000"));
lf[1210]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\040\142\165\164\040\145\170\160\145\143\164\145\144\040\000"));
lf[1211]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\164\157\157\040\146\145\167\040\141\162\147\165\155\145\156\164\163\040\055\040\162\145\143\145\151\166\145\144\040\000"));
lf[1212]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\040\142\165\164\040\145\170\160\145\143\164\145\144\040\000"));
lf[1213]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\000"));
lf[1214]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\165\156\142\157\165\156\144\040\166\141\162\151\141\142\154\145\000"));
lf[1215]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\153\145\171\167\157\162\144\000"));
lf[1216]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\157\165\164\040\157\146\040\155\145\155\157\162\171\000"));
lf[1217]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\144\151\166\151\163\151\157\156\040\142\171\040\172\145\162\157\000"));
lf[1218]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\157\165\164\040\157\146\040\162\141\156\147\145\000"));
lf[1219]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\143\141\154\154\040\157\146\040\156\157\156\055\160\162\157\143\145\144\165\162\145\000"));
lf[1220]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\143\157\156\164\151\156\165\141\164\151\157\156\040\143\141\156\156\157\164\040\162\145\143\145\151\166\145\040\155\165\154\164\151\160\154\145\040\166\141\154\165\145\163\000"));
lf[1221]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\156\157\156\055\143\171\143\154\151\143\040\154\151\163\164\000"));
lf[1222]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\162\145\143\165\162\163\151\157\156\040\164\157\157\040\144\145\145\160\000"));
lf[1223]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\070\151\156\145\170\141\143\164\040\156\165\155\142\145\162\040\143\141\156\156\157\164\040\142\145\040\162\145\160\162\145\163\145\156\164\145\144\040\141\163\040\141\156\040\145\170\141\143\164\040\156\165\155\142\145\162\000"));
lf[1224]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\162\157\160\145\162\040\154\151\163\164\000"));
lf[1225]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\146\151\170\156\165\155\000"));
lf[1226]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\156\165\155\142\145\162\000"));
lf[1227]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\163\164\162\151\156\147\000"));
lf[1228]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\141\151\162\000"));
lf[1229]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\154\151\163\164\000"));
lf[1230]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\143\150\141\162\141\143\164\145\162\000"));
lf[1231]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\166\145\143\164\157\162\000"));
lf[1232]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\163\171\155\142\157\154\000"));
lf[1233]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\163\164\141\143\153\040\157\166\145\162\146\154\157\167\000"));
lf[1234]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\071\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\163\164\162\165\143\164\165\162\145\040\157\146\040\164\150\145\040\162\145\161\165\151\162\145\144\040\164\171\160\145\000"));
lf[1235]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\142\171\164\145\166\145\143\164\157\162\000"));
lf[1236]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\154\157\143\141\164\151\166\145\040\162\145\146\145\162\163\040\164\157\040\162\145\143\154\141\151\155\145\144\040\157\142\152\145\143\164\000"));
lf[1237]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\047\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\142\154\157\143\153\040\157\142\152\145\143\164\000"));
lf[1238]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\050\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\156\165\155\142\145\162\040\166\145\143\164\157\162\000"));
lf[1239]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\156\040\151\156\164\145\147\145\162\000"));
lf[1240]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\156\040\165\156\163\151\147\156\145\144\040\151\156\164\145\147\145\162\000"));
lf[1241]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\157\151\156\164\145\162\000"));
lf[1242]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\164\141\147\147\145\144\040\160\157\151\156\164\145\162\000"));
lf[1243]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\146\154\157\156\165\155\000"));
lf[1244]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\162\157\143\145\144\165\162\145\000"));
lf[1245]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\151\156\166\141\154\151\144\040\142\141\163\145\000"));
lf[1246]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\060\162\145\143\165\162\163\151\157\156\040\164\157\157\040\144\145\145\160\040\157\162\040\143\151\162\143\165\154\141\162\040\144\141\164\141\040\145\156\143\157\165\156\164\145\162\145\144\000"));
lf[1247]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\142\157\157\154\145\141\156\000"));
lf[1248]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\154\157\143\141\164\151\166\145\000"));
lf[1249]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\157\162\164\000"));
lf[1250]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\063\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\157\162\164\040\157\146\040\164\150\145\040\143\157\162\162\145\143\164\040\164\171\160\145\000"));
lf[1251]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\156\040\151\156\160\165\164\055\160\157\162\164\000"));
lf[1252]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\047\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\156\040\157\165\164\160\165\164\055\160\157\162\164\000"));
lf[1253]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\160\157\162\164\040\141\154\162\145\141\144\171\040\143\154\157\163\145\144\000"));
lf[1254]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\063\143\141\156\156\157\164\040\162\145\160\162\145\163\145\156\164\040\163\164\162\151\156\147\040\167\151\164\150\040\116\125\114\040\142\171\164\145\163\040\141\163\040\103\040\163\164\162\151\156\147\000"));
lf[1255]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\163\145\147\155\145\156\164\141\164\151\157\156\040\166\151\157\154\141\164\151\157\156\000"));
lf[1256]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\146\154\157\141\164\151\156\147\055\160\157\151\156\164\040\145\170\143\145\160\164\151\157\156\000"));
lf[1257]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\154\154\145\147\141\154\040\151\156\163\164\162\165\143\164\151\157\156\000"));
lf[1258]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\142\165\163\040\145\162\162\157\162\000"));
lf[1259]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\050\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\156\040\145\170\141\143\164\040\156\165\155\142\145\162\000"));
lf[1260]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\156\040\151\156\145\170\141\143\164\040\156\165\155\142\145\162\000"));
lf[1261]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\162\145\141\154\000"));
lf[1262]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\063\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\143\157\155\160\154\145\170\040\156\165\155\142\145\162\040\150\141\163\040\156\157\040\157\162\144\145\162\151\156\147\000"));
lf[1263]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\156\040\145\170\141\143\164\040\151\156\164\145\147\145\162\000"));
lf[1264]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\156\165\155\142\145\162\040\144\157\145\163\040\156\157\164\040\146\151\164\040\151\156\040\146\157\162\145\151\147\156\040\164\171\160\145\000"));
lf[1265]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\060\143\141\156\156\157\164\040\143\157\155\160\165\164\145\040\141\142\163\157\154\165\164\145\040\166\141\154\165\145\040\157\146\040\143\157\155\160\154\145\170\040\156\165\155\142\145\162\000"));
lf[1266]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\141\164\164\145\155\160\164\145\144\040\162\145\163\164\040\141\162\147\165\155\145\156\164\040\141\143\143\145\163\163\040\141\164\040\151\156\144\145\170\040\000"));
lf[1267]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\040\142\165\164\040\162\145\163\164\040\154\151\163\164\040\154\145\156\147\164\150\040\151\163\040\000"));
lf[1268]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\047\163\164\162\151\156\147\040\143\157\156\164\141\151\156\163\040\151\156\166\141\154\151\144\040\125\124\106\055\070\040\163\145\161\165\145\156\143\145\000"));
lf[1269]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\060\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\165\155\145\162\151\143\040\166\141\154\165\145\040\145\170\143\145\145\144\163\040\162\141\156\147\145\000"));
lf[1270]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\165\156\153\156\157\167\156\040\151\156\164\145\162\156\141\154\040\145\162\162\157\162\000"));
lf[1272]=C_h_intern(&lf[1272],29, C_text("scheme#with-exception-handler"));
lf[1273]=C_h_intern(&lf[1273],12, C_text("scheme#raise"));
lf[1274]=C_h_intern(&lf[1274],7, C_text("message"));
lf[1275]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\145\170\143\145\160\164\151\157\156\040\150\141\156\144\154\145\162\040\162\145\164\165\162\156\145\144\000"));
lf[1276]=C_h_intern(&lf[1276],9, C_text("arguments"));
lf[1277]=C_h_intern(&lf[1277],24, C_text("scheme#raise-continuable"));
lf[1278]=C_h_intern(&lf[1278],20, C_text("scheme#error-object?"));
lf[1279]=C_h_intern(&lf[1279],27, C_text("scheme#error-object-message"));
lf[1280]=C_h_intern(&lf[1280],29, C_text("scheme#error-object-irritants"));
lf[1281]=C_h_intern(&lf[1281],18, C_text("scheme#read-error?"));
lf[1282]=C_h_intern(&lf[1282],18, C_text("scheme#file-error?"));
lf[1283]=C_h_intern(&lf[1283],16, C_text("##sys#structure?"));
lf[1284]=C_h_intern(&lf[1284],24, C_text("##sys#generic-structure?"));
lf[1285]=C_h_intern(&lf[1285],10, C_text("##sys#slot"));
lf[1286]=C_h_intern(&lf[1286],10, C_text("##sys#size"));
lf[1287]=C_h_intern(&lf[1287],18, C_text("##sys#make-pointer"));
lf[1288]=C_h_intern(&lf[1288],25, C_text("##sys#make-tagged-pointer"));
lf[1289]=C_h_intern(&lf[1289],14, C_text("##sys#pointer?"));
lf[1290]=C_h_intern(&lf[1290],26, C_text("##sys#set-pointer-address!"));
lf[1291]=C_h_intern(&lf[1291],17, C_text("##sys#bytevector?"));
lf[1292]=C_h_intern(&lf[1292],25, C_text("##sys#string->pbytevector"));
lf[1293]=C_h_intern(&lf[1293],16, C_text("##sys#permanent?"));
lf[1294]=C_h_intern(&lf[1294],19, C_text("##sys#block-address"));
lf[1295]=C_h_intern(&lf[1295],15, C_text("##sys#locative?"));
lf[1296]=C_h_intern(&lf[1296],20, C_text("##sys#srfi-4-vector?"));
lf[1297]=C_h_intern(&lf[1297],9, C_text("c64vector"));
lf[1298]=C_h_intern(&lf[1298],10, C_text("c128vector"));
lf[1299]=C_h_intern(&lf[1299],18, C_text("##sys#null-pointer"));
lf[1300]=C_h_intern(&lf[1300],19, C_text("##sys#null-pointer?"));
lf[1301]=C_h_intern(&lf[1301],22, C_text("##sys#address->pointer"));
lf[1302]=C_h_intern(&lf[1302],25, C_text("##sys#peek-signed-integer"));
lf[1303]=C_h_intern(&lf[1303],17, C_text("##sys#peek-fixnum"));
lf[1304]=C_h_intern(&lf[1304],15, C_text("##sys#peek-byte"));
lf[1305]=C_h_intern(&lf[1305],24, C_text("##sys#vector->structure!"));
lf[1306]=C_h_intern(&lf[1306],17, C_text("##sys#peek-double"));
lf[1307]=C_h_intern(&lf[1307],28, C_text("##sys#peek-and-free-c-string"));
lf[1308]=C_h_intern(&lf[1308],36, C_text("##sys#peek-and-free-nonnull-c-string"));
lf[1309]=C_h_intern(&lf[1309],19, C_text("##sys#poke-c-string"));
lf[1310]=C_h_intern(&lf[1310],18, C_text("##sys#poke-integer"));
lf[1311]=C_h_intern(&lf[1311],17, C_text("##sys#poke-double"));
lf[1312]=C_h_intern(&lf[1312],24, C_text("##sys#peek-c-string-list"));
lf[1313]=C_h_intern(&lf[1313],33, C_text("##sys#peek-and-free-c-string-list"));
lf[1314]=C_h_intern(&lf[1314],22, C_text("##sys#vector->closure!"));
lf[1315]=C_h_intern(&lf[1315],34, C_text("##sys#symbol-has-toplevel-binding?"));
lf[1316]=C_h_intern(&lf[1316],19, C_text("##sys#block-pointer"));
lf[1317]=C_h_intern(&lf[1317],27, C_text("##sys#foreign-char-argument"));
lf[1318]=C_h_intern(&lf[1318],29, C_text("##sys#foreign-fixnum-argument"));
lf[1319]=C_h_intern(&lf[1319],29, C_text("##sys#foreign-flonum-argument"));
lf[1320]=C_h_intern(&lf[1320],28, C_text("##sys#foreign-block-argument"));
lf[1321]=C_h_intern(&lf[1321],30, C_text("##sys#foreign-cplxnum-argument"));
lf[1322]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\143\157\155\160\154\145\170\040\156\165\155\142\145\162\000"));
lf[1323]=C_h_intern(&lf[1323],37, C_text("##sys#foreign-struct-wrapper-argument"));
lf[1324]=C_h_intern(&lf[1324],29, C_text("##sys#foreign-string-argument"));
lf[1325]=C_h_intern(&lf[1325],29, C_text("##sys#foreign-symbol-argument"));
lf[1326]=C_h_intern(&lf[1326],30, C_text("##sys#foreign-pointer-argument"));
lf[1327]=C_h_intern(&lf[1327],37, C_text("##sys#foreign-tagged-pointer-argument"));
lf[1328]=C_h_intern(&lf[1328],37, C_text("##sys#foreign-ranged-integer-argument"));
lf[1329]=C_h_intern(&lf[1329],46, C_text("##sys#foreign-unsigned-ranged-integer-argument"));
lf[1330]=C_h_intern(&lf[1330],17, C_text("##sys#wrap-struct"));
lf[1331]=C_h_intern(&lf[1331],28, C_text("##sys#default-thread-quantum"));
lf[1332]=C_h_intern(&lf[1332],31, C_text("##sys#default-exception-handler"));
lf[1333]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\077\151\156\164\145\162\156\141\154\040\145\162\162\157\162\072\040\144\145\146\141\165\154\164\040\145\170\143\145\160\164\151\157\156\040\150\141\156\144\154\145\162\040\163\150\157\165\154\144\156\047\164\040\142\145\040\143\141\154\154\145\144\041\000"));
lf[1334]=C_h_intern(&lf[1334],17, C_text("##sys#make-thread"));
lf[1335]=C_h_intern(&lf[1335],16, C_text("##sys#make-mutex"));
lf[1336]=C_h_intern(&lf[1336],5, C_text("mutex"));
lf[1337]=C_h_intern(&lf[1337],14, C_text("##sys#schedule"));
lf[1338]=C_h_intern(&lf[1338],19, C_text("##sys#thread-yield!"));
lf[1339]=C_h_intern(&lf[1339],24, C_text("##sys#kill-other-threads"));
lf[1340]=C_h_intern(&lf[1340],28, C_text("##sys#resume-thread-on-event"));
lf[1341]=C_h_intern(&lf[1341],29, C_text("##sys#suspend-thread-on-event"));
lf[1342]=C_h_intern(&lf[1342],27, C_text("##sys#sleep-until-interrupt"));
lf[1343]=C_h_intern(&lf[1343],22, C_text("##sys#make-event-queue"));
lf[1344]=C_h_intern(&lf[1344],11, C_text("event-queue"));
lf[1345]=C_h_intern(&lf[1345],25, C_text("##sys#add-event-to-queue!"));
lf[1346]=C_h_intern(&lf[1346],20, C_text("##sys#get-next-event"));
lf[1347]=C_h_intern(&lf[1347],25, C_text("##sys#wait-for-next-event"));
lf[1348]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\145\166\145\156\164\040\161\165\145\165\145\040\142\154\157\143\153\145\144\000"));
lf[1349]=C_h_intern(&lf[1349],23, C_text("chicken.base#sleep-hook"));
lf[1350]=C_h_intern(&lf[1350],5, C_text("sleep"));
lf[1351]=C_h_intern(&lf[1351],20, C_text("##sys#context-switch"));
lf[1352]=C_h_intern(&lf[1352],19, C_text("##sys#signal-vector"));
lf[1353]=C_h_intern(&lf[1353],20, C_text("##sys#interrupt-hook"));
lf[1354]=C_h_intern(&lf[1354],11, C_text("##sys#errno"));
lf[1355]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\115\165\156\145\170\160\145\143\164\145\144\040\145\156\144\040\157\146\040\146\151\154\145\040\055\040\165\156\164\145\162\155\151\156\141\164\145\144\040\140\043\173\056\056\056\175\047\040\151\164\145\155\040\151\156\040\140\150\145\162\145\047\040\163\164\162\151\156\147\040\154\151\164\145\162\141\154\000"));
lf[1356]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\047\165\156\164\145\162\155\151\156\141\164\145\144\040\150\145\162\145\055\144\157\143\040\163\164\162\151\156\147\040\154\151\164\145\162\141\154\040\140\000"));
lf[1357]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\047\000"));
lf[1358]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\115\151\163\163\151\156\147\040\164\141\147\040\141\146\164\145\162\040\043\074\074\040\150\145\162\145\055\144\157\143\040\164\157\153\145\156\000"));
lf[1359]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\127\150\151\164\145\163\160\141\143\145\040\141\146\164\145\162\040\043\074\074\040\150\145\162\145\055\144\157\143\040\164\141\147\000"));
lf[1360]=C_h_intern(&lf[1360],4, C_text("cons"));
lf[1361]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001\161\165\157\164\145\376\003\000\000\002\376\377\016\376\377\016"));
lf[1362]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\115\151\163\163\151\156\147\040\164\141\147\040\141\146\164\145\162\040\043\074\043\040\150\145\162\145\055\144\157\143\040\164\157\153\145\156\000"));
lf[1363]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\127\150\151\164\145\163\160\141\143\145\040\141\146\164\145\162\040\043\074\043\040\150\145\162\145\055\144\157\143\040\164\141\147\000"));
lf[1364]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\165\156\162\145\141\144\141\142\154\145\040\157\142\152\145\143\164\000"));
lf[1365]=C_h_intern(&lf[1365],24, C_text("chicken.process-context#"));
lf[1366]=C_h_intern(&lf[1366],40, C_text("chicken.process-context#change-directory"));
lf[1367]=C_h_intern(&lf[1367],16, C_text("change-directory"));
lf[1368]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\143\141\156\156\157\164\040\143\150\141\156\147\145\040\143\165\162\162\145\156\164\040\144\151\162\145\143\164\157\162\171\040\055\040\000"));
lf[1369]=C_h_intern(&lf[1369],27, C_text("##sys#change-directory-hook"));
lf[1370]=C_h_intern(&lf[1370],41, C_text("chicken.process-context#current-directory"));
lf[1371]=C_h_intern(&lf[1371],48, C_text("chicken.process-context#get-environment-variable"));
lf[1372]=C_h_intern(&lf[1372],24, C_text("get-environment-variable"));
lf[1373]=C_h_intern(&lf[1373],49, C_text("chicken.process-context#set-environment-variable!"));
lf[1374]=C_h_intern(&lf[1374],25, C_text("set-environment-variable!"));
lf[1375]=C_h_intern(&lf[1375],51, C_text("chicken.process-context#unset-environment-variable!"));
lf[1376]=C_h_intern(&lf[1376],27, C_text("unset-environment-variable!"));
lf[1377]=C_h_intern(&lf[1377],49, C_text("chicken.process-context#get-environment-variables"));
lf[1378]=C_h_intern(&lf[1378],43, C_text("chicken.process-context#executable-pathname"));
lf[1379]=C_h_intern(&lf[1379],33, C_text("chicken.process-context#argc+argv"));
lf[1380]=C_h_intern(&lf[1380],28, C_text("chicken.process-context#argv"));
lf[1381]=C_h_intern(&lf[1381],36, C_text("chicken.process-context#program-name"));
lf[1382]=C_h_intern(&lf[1382],46, C_text("chicken.process-context#command-line-arguments"));
lf[1383]=C_h_intern(&lf[1383],11, C_text("chicken.gc#"));
lf[1384]=C_h_intern(&lf[1384],34, C_text("chicken.gc#current-gc-milliseconds"));
lf[1385]=C_h_intern(&lf[1385],25, C_text("chicken.gc#set-gc-report!"));
lf[1386]=C_h_intern(&lf[1386],28, C_text("chicken.gc#memory-statistics"));
lf[1387]=C_h_intern(&lf[1387],20, C_text("##sys#set-finalizer!"));
lf[1388]=C_h_intern(&lf[1388],20, C_text("##sys#init-finalizer"));
lf[1389]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\133\144\145\142\165\147\135\040\164\157\157\040\155\141\156\171\040\146\151\156\141\154\151\172\145\162\163\040\050\000"));
lf[1390]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\051\054\040\162\145\163\151\172\145\144\040\155\141\170\040\146\151\156\141\154\151\172\145\162\163\040\164\157\040\000"));
lf[1391]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[1392]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\133\144\145\142\165\147\135\040\164\157\157\040\155\141\156\171\040\146\151\156\141\154\151\172\145\162\163\040\050\000"));
lf[1393]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\051\054\040\146\157\162\143\151\156\147\040\056\056\056\012\000"));
lf[1394]=C_h_intern(&lf[1394],25, C_text("chicken.gc#set-finalizer!"));
lf[1395]=C_h_intern(&lf[1395],9, C_text("finalizer"));
lf[1398]=C_h_intern(&lf[1398],25, C_text("chicken.gc#make-finalizer"));
lf[1399]=C_h_intern(&lf[1399],27, C_text("chicken.gc#add-to-finalizer"));
lf[1400]=C_h_intern(&lf[1400],16, C_text("add-to-finalizer"));
lf[1401]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\056\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\146\151\156\141\154\151\172\145\162\040\160\162\157\143\145\144\165\162\145\000"));
lf[1402]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\151\156\040\146\151\156\141\154\151\172\145\162\000"));
lf[1403]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\133\144\145\142\165\147\135\040\162\165\156\156\151\156\147\040\000"));
lf[1404]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\040\146\151\156\141\154\151\172\145\162\050\163\051\040\050\000"));
lf[1405]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\040\154\151\166\145\054\040\000"));
lf[1406]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\040\141\154\154\157\143\141\164\145\144\051\040\056\056\056\012\000"));
lf[1407]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\113\162\145\055\145\156\164\162\171\040\146\162\157\155\040\146\151\156\141\154\151\172\145\162\040\164\150\162\145\141\144\040\050\155\141\171\142\145\040\050\147\143\040\043\164\051\040\167\141\163\040\143\141\154\154\145\144\040\146\162\157\155\040\141\040\146\151\156\141\154\151\172\145\162\051\000"));
lf[1408]=C_h_intern(&lf[1408],13, C_text("chicken.gc#gc"));
lf[1409]=C_h_intern(&lf[1409],12, C_text("##sys#length"));
lf[1410]=C_h_intern(&lf[1410],10, C_text("##sys#cons"));
lf[1411]=C_h_intern(&lf[1411],12, C_text("##sys#vector"));
lf[1412]=C_h_intern(&lf[1412],11, C_text("##sys#apply"));
lf[1413]=C_h_intern(&lf[1413],12, C_text("##sys#values"));
lf[1414]=C_h_intern(&lf[1414],12, C_text("##sys#equal?"));
lf[1415]=C_h_intern(&lf[1415],9, C_text("##sys#car"));
lf[1416]=C_h_intern(&lf[1416],9, C_text("##sys#cdr"));
lf[1417]=C_h_intern(&lf[1417],11, C_text("##sys#pair?"));
lf[1418]=C_h_intern(&lf[1418],13, C_text("##sys#vector?"));
lf[1419]=C_h_intern(&lf[1419],18, C_text("##sys#vector->list"));
lf[1420]=C_h_intern(&lf[1420],19, C_text("##sys#vector-length"));
lf[1421]=C_h_intern(&lf[1421],16, C_text("##sys#vector-ref"));
lf[1422]=C_h_intern(&lf[1422],8, C_text("##sys#>="));
lf[1423]=C_h_intern(&lf[1423],7, C_text("##sys#="));
lf[1424]=C_h_intern(&lf[1424],7, C_text("##sys#+"));
lf[1425]=C_h_intern(&lf[1425],9, C_text("##sys#eq?"));
lf[1426]=C_h_intern(&lf[1426],10, C_text("##sys#eqv?"));
lf[1427]=C_h_intern(&lf[1427],11, C_text("##sys#list?"));
lf[1428]=C_h_intern(&lf[1428],11, C_text("##sys#null?"));
lf[1429]=C_h_intern(&lf[1429],11, C_text("##sys#map-n"));
lf[1430]=C_h_intern(&lf[1430],19, C_text("##sys#make-locative"));
lf[1431]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\154\157\143\141\164\151\166\145\040\143\141\156\156\157\164\040\162\145\146\145\162\040\164\157\040\151\155\155\145\144\151\141\164\145\040\157\142\152\145\143\164\000"));
lf[1432]=C_h_intern(&lf[1432],8, C_text("u8vector"));
lf[1433]=C_h_intern(&lf[1433],8, C_text("s8vector"));
lf[1434]=C_h_intern(&lf[1434],9, C_text("u16vector"));
lf[1435]=C_h_intern(&lf[1435],9, C_text("s16vector"));
lf[1436]=C_h_intern(&lf[1436],9, C_text("u32vector"));
lf[1437]=C_h_intern(&lf[1437],9, C_text("s32vector"));
lf[1438]=C_h_intern(&lf[1438],9, C_text("u64vector"));
lf[1439]=C_h_intern(&lf[1439],9, C_text("s64vector"));
lf[1440]=C_h_intern(&lf[1440],9, C_text("f32vector"));
lf[1441]=C_h_intern(&lf[1441],9, C_text("f64vector"));
lf[1442]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\102\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\154\157\143\141\164\151\166\145\040\143\141\156\156\157\164\040\162\145\146\145\162\040\164\157\040\157\142\152\145\143\164\163\040\157\146\040\164\150\151\163\040\164\171\160\145\000"));
lf[1443]=C_h_intern(&lf[1443],14, C_text("chicken.plist#"));
lf[1444]=C_h_intern(&lf[1444],18, C_text("chicken.plist#put!"));
lf[1445]=C_h_intern(&lf[1445],4, C_text("put!"));
lf[1446]=C_h_intern(&lf[1446],17, C_text("chicken.plist#get"));
lf[1447]=C_h_intern(&lf[1447],3, C_text("get"));
lf[1448]=C_h_intern(&lf[1448],10, C_text("##sys#put!"));
lf[1449]=C_h_intern(&lf[1449],9, C_text("##sys#get"));
lf[1450]=C_h_intern(&lf[1450],22, C_text("chicken.plist#remprop!"));
lf[1451]=C_h_intern(&lf[1451],8, C_text("remprop!"));
lf[1452]=C_h_intern(&lf[1452],26, C_text("chicken.plist#symbol-plist"));
lf[1453]=C_h_intern(&lf[1453],28, C_text("chicken.plist#get-properties"));
lf[1454]=C_h_intern(&lf[1454],14, C_text("get-properties"));
lf[1455]=C_h_intern(&lf[1455],19, C_text("##sys#display-times"));
lf[1456]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\060\000"));
lf[1457]=C_decode_literal(C_heaptop,C_text("\376\12510.0\000"));
lf[1458]=C_decode_literal(C_heaptop,C_text("\376\320\000\000\01040000000"));
lf[1459]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\040\107\151\102\000"));
lf[1460]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\040\115\151\102\000"));
lf[1461]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\040\113\151\102\000"));
lf[1462]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\040\142\171\164\145\163\000"));
lf[1463]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\054\040\155\141\170\151\155\165\155\040\154\151\166\145\040\150\145\141\160\072\040\000"));
lf[1464]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\040\107\103\163\040\050\155\141\152\157\162\057\155\151\156\157\162\051\000"));
lf[1465]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\054\040\000"));
lf[1466]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\040\155\165\164\141\164\151\157\156\163\040\050\164\157\164\141\154\057\164\162\141\143\153\145\144\051\000"));
lf[1467]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\054\040\000"));
lf[1468]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\163\040\107\103\040\164\151\155\145\040\050\155\141\152\157\162\051\000"));
lf[1469]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\054\040\000"));
lf[1470]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\163\040\103\120\125\040\164\151\155\145\000"));
lf[1471]=C_h_intern(&lf[1471],25, C_text("##sys#filter-heap-objects"));
lf[1472]=C_h_intern(&lf[1472],17, C_text("chicken.platform#"));
lf[1473]=C_h_intern(&lf[1473],30, C_text("chicken.platform#software-type"));
lf[1474]=C_h_intern(&lf[1474],29, C_text("chicken.platform#machine-type"));
lf[1475]=C_h_intern(&lf[1475],35, C_text("chicken.platform#machine-byte-order"));
lf[1476]=C_h_intern(&lf[1476],33, C_text("chicken.platform#software-version"));
lf[1477]=C_h_intern(&lf[1477],31, C_text("chicken.platform#build-platform"));
lf[1478]=C_h_intern(&lf[1478],22, C_text("##sys#windows-platform"));
lf[1479]=C_h_intern(&lf[1479],32, C_text("chicken.platform#chicken-version"));
lf[1480]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\126\145\162\163\151\157\156\040\000"));
lf[1481]=C_h_intern(&lf[1481],19, C_text("##sys#build-version"));
lf[1482]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[1483]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[1484]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\133\000"));
lf[1485]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\135\000"));
lf[1486]=C_h_intern(&lf[1486],7, C_text("unknown"));
lf[1487]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[1488]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\055\000"));
lf[1489]=C_h_intern(&lf[1489],14, C_text("##sys#build-id"));
lf[1490]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\040\050\162\145\166\040\000"));
lf[1491]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[1492]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[1493]=C_h_intern(&lf[1493],18, C_text("##sys#build-branch"));
lf[1494]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\050\000"));
lf[1495]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[1496]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[1497]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\040\144\154\157\141\144\000"));
lf[1498]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[1499]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\040\160\164\141\142\154\145\163\000"));
lf[1500]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[1501]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\040\147\143\150\157\157\153\163\000"));
lf[1502]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[1503]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000"));
lf[1504]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\142\151\164\000"));
lf[1505]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\040\143\162\157\163\163\000"));
lf[1506]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[1507]=C_h_intern(&lf[1507],25, C_text("chicken.platform#feature?"));
lf[1508]=C_h_intern_kw(&lf[1508],13, C_text("cross-chicken"));
lf[1509]=C_h_intern_kw(&lf[1509],7, C_text("gchooks"));
lf[1510]=C_h_intern_kw(&lf[1510],7, C_text("ptables"));
lf[1511]=C_h_intern_kw(&lf[1511],5, C_text("dload"));
lf[1512]=C_h_intern(&lf[1512],29, C_text("chicken.platform#chicken-home"));
lf[1513]=C_h_intern(&lf[1513],29, C_text("chicken.platform#include-path"));
lf[1514]=C_h_intern(&lf[1514],12, C_text("include-path"));
lf[1515]=C_h_intern(&lf[1515],23, C_text("##sys#include-pathnames"));
lf[1516]=C_h_intern(&lf[1516],19, C_text("##include-pathnames"));
lf[1518]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\006\000\376\377\016"));
lf[1519]=C_h_intern(&lf[1519],16, C_text("##sys#split-path"));
lf[1520]=C_h_intern(&lf[1520],32, C_text("chicken.platform#repository-path"));
lf[1521]=C_h_intern(&lf[1521],40, C_text("chicken.platform#installation-repository"));
lf[1524]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\062\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\166\141\154\151\144\040\146\145\141\164\165\162\145\040\151\144\145\156\164\151\146\145\162\000"));
lf[1525]=C_h_intern(&lf[1525],14, C_text("##sys#features"));
lf[1526]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\002\143\150\151\143\153\145\156\376\003\000\000\002\376\001\000\000\006\002\163\162\146\151\055\066\376\003\000\000\002\376\001\000\000\007\002\163\162\146\151\055\061\062\376\003\000\000\002\376\001\000\000\007\002\163\162\146\151\055\061\067\376\003\000\000\002\376\001\000\000\007\002\163\162\146\151\055\062\063\376\003\000\000\002\376\001\000\000\007\002\163\162\146\151\055\063\060\376\003\000\000\002\376\001\000\000\015\002\145\170\141\143\164\055\143\157\155\160\154\145\170\376\003\000\000\002\376\001\000\000\007\002\163\162\146\151\055\063\071\376\003\000\000\002\376\001\000\000\007\002\163\162\146\151\055\066\062\376\003\000\000\002\376\001\000\000\007\002\163\162\146\151\055\070\070\376\003\000\000\002\376\001\000\000\022\002\146\165\154\154\055\156\165\155\145\162\151\143\055\164\157\167\145\162\376\003\000\000\002\376\001\000\000\014\002\146\165\154\154\055\165\156\151\143\157\144\145\376\377\016"));
lf[1527]=C_h_intern_kw(&lf[1527],6, C_text("ratios"));
lf[1528]=C_h_intern_kw(&lf[1528],10, C_text("ieee-float"));
lf[1529]=C_h_intern_kw(&lf[1529],4, C_text("r7rs"));
lf[1530]=C_h_intern_kw(&lf[1530],5, C_text("posix"));
lf[1531]=C_h_intern(&lf[1531],34, C_text("chicken.platform#register-feature!"));
lf[1532]=C_h_intern(&lf[1532],36, C_text("chicken.platform#unregister-feature!"));
lf[1533]=C_h_intern(&lf[1533],31, C_text("chicken.platform#return-to-host"));
lf[1534]=C_h_intern(&lf[1534],40, C_text("chicken.platform#system-config-directory"));
lf[1535]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\101\120\120\104\101\124\101\000"));
lf[1536]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\057\056\143\157\156\146\151\147\000"));
lf[1537]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\110\117\115\105\000"));
lf[1538]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\130\104\107\137\103\117\116\106\111\107\137\110\117\115\105\000"));
lf[1539]=C_h_intern(&lf[1539],39, C_text("chicken.platform#system-cache-directory"));
lf[1540]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\101\120\120\104\101\124\101\000"));
lf[1541]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\114\117\103\101\114\101\120\120\104\101\124\101\000"));
lf[1542]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\057\056\143\141\143\150\145\000"));
lf[1543]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\110\117\115\105\000"));
lf[1544]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\130\104\107\137\103\101\103\110\105\137\110\117\115\105\000"));
lf[1545]=C_h_intern(&lf[1545],9, C_text("make-list"));
lf[1546]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\156\157\164\040\141\040\160\157\163\151\164\151\166\145\040\151\156\164\145\147\145\162\000"));
lf[1547]=C_h_intern(&lf[1547],9, C_text("list-set!"));
lf[1548]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\157\165\164\040\157\146\040\162\141\156\147\145\000"));
lf[1549]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\156\157\164\040\141\040\160\157\163\151\164\151\166\145\040\151\156\164\145\147\145\162\000"));
lf[1550]=C_h_intern(&lf[1550],14, C_text("string->vector"));
lf[1551]=C_h_intern(&lf[1551],14, C_text("vector->string"));
lf[1552]=C_h_intern(&lf[1552],10, C_text("string-map"));
lf[1553]=C_h_intern(&lf[1553],15, C_text("string-for-each"));
lf[1554]=C_h_intern(&lf[1554],10, C_text("vector-map"));
lf[1555]=C_h_intern(&lf[1555],15, C_text("vector-for-each"));
lf[1556]=C_h_intern(&lf[1556],10, C_text("close-port"));
lf[1557]=C_h_intern(&lf[1557],12, C_text("write-string"));
lf[1558]=C_h_intern(&lf[1558],11, C_text("chicken.io#"));
lf[1559]=C_h_intern(&lf[1559],20, C_text("chicken.io#read-list"));
lf[1560]=C_h_intern(&lf[1560],9, C_text("read-list"));
lf[1561]=C_h_intern(&lf[1561],20, C_text("chicken.io#read-line"));
lf[1562]=C_h_intern(&lf[1562],21, C_text("chicken.io#read-lines"));
lf[1563]=C_h_intern(&lf[1563],10, C_text("read-lines"));
lf[1564]=C_h_intern(&lf[1564],21, C_text("chicken.io#write-line"));
lf[1565]=C_h_intern(&lf[1565],10, C_text("write-line"));
lf[1566]=C_h_intern(&lf[1566],32, C_text("chicken.io#read-bytevector!/port"));
lf[1567]=C_h_intern(&lf[1567],28, C_text("chicken.io#read-string!/port"));
lf[1568]=C_h_intern(&lf[1568],23, C_text("chicken.io#read-string!"));
lf[1569]=C_h_intern(&lf[1569],12, C_text("read-string!"));
lf[1570]=C_h_intern(&lf[1570],27, C_text("chicken.io#read-bytevector!"));
lf[1571]=C_h_intern(&lf[1571],27, C_text("chicken.io#read-string/port"));
lf[1572]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[1573]=C_h_intern(&lf[1573],20, C_text("##sys#read-remaining"));
lf[1574]=C_h_intern(&lf[1574],31, C_text("chicken.io#read-bytevector/port"));
lf[1575]=C_h_intern(&lf[1575],22, C_text("chicken.io#read-string"));
lf[1576]=C_h_intern(&lf[1576],11, C_text("read-string"));
lf[1577]=C_h_intern(&lf[1577],26, C_text("chicken.io#read-bytevector"));
lf[1578]=C_h_intern(&lf[1578],15, C_text("read-bytevector"));
lf[1579]=C_h_intern(&lf[1579],24, C_text("chicken.io#read-buffered"));
lf[1580]=C_h_intern(&lf[1580],13, C_text("read-buffered"));
lf[1581]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[1582]=C_h_intern(&lf[1582],21, C_text("chicken.io#read-token"));
lf[1583]=C_h_intern(&lf[1583],10, C_text("read-token"));
lf[1584]=C_h_intern(&lf[1584],20, C_text("chicken.io#read-byte"));
lf[1585]=C_h_intern(&lf[1585],9, C_text("read-byte"));
lf[1586]=C_h_intern(&lf[1586],21, C_text("chicken.io#write-byte"));
lf[1587]=C_h_intern(&lf[1587],10, C_text("write-byte"));
lf[1588]=C_h_intern(&lf[1588],27, C_text("chicken.io#write-bytevector"));
lf[1589]=C_h_intern(&lf[1589],16, C_text("write-bytevector"));
lf[1590]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\143\150\151\143\153\145\156\055\000"));
lf[1591]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000"));
lf[1592]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\143\150\151\143\153\145\156\055\000"));
lf[1593]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\142\151\164\000"));
lf[1594]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\110\111\103\113\105\116\137\111\116\103\114\125\104\105\137\120\101\124\110\000"));
lf[1595]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\103\110\111\103\113\105\116\137\111\116\123\124\101\114\114\137\122\105\120\117\123\111\124\117\122\131\000"));
lf[1596]=C_h_intern(&lf[1596],15, C_text("repository-path"));
lf[1597]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\103\110\111\103\113\105\116\137\122\105\120\117\123\111\124\117\122\131\137\120\101\124\110\000"));
lf[1598]=C_h_intern(&lf[1598],7, C_text("windows"));
lf[1599]=C_h_intern(&lf[1599],6, C_text("cygwin"));
lf[1600]=C_h_intern(&lf[1600],12, C_text("symbol-plist"));
lf[1601]=C_h_intern(&lf[1601],19, C_text("symbol-plist/setter"));
lf[1602]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\160\162\157\160\145\162\164\171\055\154\151\163\164\040\155\165\163\164\040\142\145\040\157\146\040\145\166\145\156\040\154\145\156\147\164\150\000"));
lf[1603]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\050\143\150\151\143\153\145\156\056\160\154\151\163\164\043\163\171\155\142\157\154\055\160\154\151\163\164\040\163\171\155\051\000"));
lf[1604]=C_h_intern(&lf[1604],22, C_text("command-line-arguments"));
lf[1605]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\055\072\000"));
lf[1606]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\055\072\000"));
lf[1607]=C_h_intern(&lf[1607],12, C_text("program-name"));
lf[1608]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\074\165\156\153\156\157\167\156\076\000"));
lf[1609]=C_h_intern(&lf[1609],17, C_text("current-directory"));
lf[1610]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\143\141\156\156\157\164\040\162\145\164\162\151\145\166\145\040\143\165\162\162\145\156\164\040\144\151\162\145\143\164\157\162\171\000"));
lf[1611]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\050\143\150\151\143\153\145\156\056\160\162\157\143\145\163\163\055\143\157\156\164\145\170\164\043\143\165\162\162\145\156\164\055\144\151\162\145\143\164\157\162\171\051\000"));
lf[1612]=C_h_intern(&lf[1612],7, C_text("running"));
lf[1613]=C_h_intern(&lf[1613],10, C_text("primordial"));
lf[1614]=C_h_intern(&lf[1614],6, C_text("syntax"));
lf[1615]=C_h_intern(&lf[1615],4, C_text("file"));
lf[1616]=C_h_intern(&lf[1616],3, C_text("i/o"));
lf[1617]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000"));
lf[1618]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000"));
lf[1619]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\012\105\162\162\157\162\000"));
lf[1620]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\145\162\162\157\162\040\151\156\040\145\162\162\157\162\000"));
lf[1621]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\055\042\145\170\151\164\042\040\143\141\154\154\145\144\040\167\150\151\154\145\040\160\162\157\143\145\163\163\151\156\147\040\157\156\055\145\170\151\164\040\164\141\163\153\163\000"));
lf[1622]=C_h_intern(&lf[1622],10, C_text("read-table"));
lf[1623]=C_h_intern(&lf[1623],13, C_text("keyword-style"));
lf[1624]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\053\050\143\150\151\143\153\145\156\056\142\171\164\145\166\145\143\164\157\162\043\142\171\164\145\166\145\143\164\157\162\055\165\070\055\162\145\146\040\166\040\151\051\000"));
lf[1625]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\156\157\040\163\145\164\164\145\162\040\144\145\146\151\156\145\144\000"));
lf[1626]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\143\141\156\040\156\157\164\040\163\145\164\040\163\145\164\164\145\162\040\157\146\040\156\157\156\055\160\162\157\143\145\144\165\162\145\000"));
lf[1627]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\050\163\164\144\145\162\162\051\000"));
lf[1628]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\050\163\164\144\157\165\164\051\000"));
lf[1629]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\050\163\164\144\151\156\051\000"));
lf[1630]=C_h_intern(&lf[1630],9, C_text("backspace"));
lf[1631]=C_h_intern(&lf[1631],4, C_text("page"));
lf[1632]=C_h_intern(&lf[1632],6, C_text("return"));
lf[1633]=C_h_intern(&lf[1633],4, C_text("null"));
lf[1634]=C_h_intern(&lf[1634],3, C_text("nul"));
lf[1635]=C_h_intern(&lf[1635],5, C_text("alarm"));
lf[1636]=C_h_intern(&lf[1636],6, C_text("escape"));
lf[1637]=C_h_intern(&lf[1637],3, C_text("esc"));
lf[1638]=C_h_intern(&lf[1638],6, C_text("delete"));
lf[1639]=C_h_intern(&lf[1639],4, C_text("vtab"));
lf[1640]=C_h_intern(&lf[1640],7, C_text("newline"));
lf[1641]=C_h_intern(&lf[1641],8, C_text("linefeed"));
lf[1642]=C_h_intern(&lf[1642],3, C_text("tab"));
lf[1643]=C_h_intern(&lf[1643],5, C_text("space"));
C_register_lf2(lf,1644,create_ptable());{}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11645,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_build_2dversion_toplevel(2,av2);}}

#ifdef C_ENABLE_PTABLES
static C_PTABLE_ENTRY ptable[2553] = {
{C_text("f45783:library_2escm"),(void*)f45783},
{C_text("f45980:library_2escm"),(void*)f45980},
{C_text("f45984:library_2escm"),(void*)f45984},
{C_text("f46116:library_2escm"),(void*)f46116},
{C_text("f46121:library_2escm"),(void*)f46121},
{C_text("f46128:library_2escm"),(void*)f46128},
{C_text("f46137:library_2escm"),(void*)f46137},
{C_text("f46146:library_2escm"),(void*)f46146},
{C_text("f49696:library_2escm"),(void*)f49696},
{C_text("f49702:library_2escm"),(void*)f49702},
{C_text("f49708:library_2escm"),(void*)f49708},
{C_text("f_11645:library_2escm"),(void*)f_11645},
{C_text("f_11647:library_2escm"),(void*)f_11647},
{C_text("f_11650:library_2escm"),(void*)f_11650},
{C_text("f_11653:library_2escm"),(void*)f_11653},
{C_text("f_11656:library_2escm"),(void*)f_11656},
{C_text("f_11659:library_2escm"),(void*)f_11659},
{C_text("f_11662:library_2escm"),(void*)f_11662},
{C_text("f_11678:library_2escm"),(void*)f_11678},
{C_text("f_11707:library_2escm"),(void*)f_11707},
{C_text("f_11723:library_2escm"),(void*)f_11723},
{C_text("f_11752:library_2escm"),(void*)f_11752},
{C_text("f_11755:library_2escm"),(void*)f_11755},
{C_text("f_11758:library_2escm"),(void*)f_11758},
{C_text("f_11761:library_2escm"),(void*)f_11761},
{C_text("f_11764:library_2escm"),(void*)f_11764},
{C_text("f_11767:library_2escm"),(void*)f_11767},
{C_text("f_11770:library_2escm"),(void*)f_11770},
{C_text("f_11773:library_2escm"),(void*)f_11773},
{C_text("f_11776:library_2escm"),(void*)f_11776},
{C_text("f_11779:library_2escm"),(void*)f_11779},
{C_text("f_11782:library_2escm"),(void*)f_11782},
{C_text("f_11785:library_2escm"),(void*)f_11785},
{C_text("f_11788:library_2escm"),(void*)f_11788},
{C_text("f_11791:library_2escm"),(void*)f_11791},
{C_text("f_11805:library_2escm"),(void*)f_11805},
{C_text("f_11812:library_2escm"),(void*)f_11812},
{C_text("f_11819:library_2escm"),(void*)f_11819},
{C_text("f_11833:library_2escm"),(void*)f_11833},
{C_text("f_11840:library_2escm"),(void*)f_11840},
{C_text("f_11854:library_2escm"),(void*)f_11854},
{C_text("f_11868:library_2escm"),(void*)f_11868},
{C_text("f_11886:library_2escm"),(void*)f_11886},
{C_text("f_11897:library_2escm"),(void*)f_11897},
{C_text("f_11908:library_2escm"),(void*)f_11908},
{C_text("f_11915:library_2escm"),(void*)f_11915},
{C_text("f_11926:library_2escm"),(void*)f_11926},
{C_text("f_11930:library_2escm"),(void*)f_11930},
{C_text("f_11937:library_2escm"),(void*)f_11937},
{C_text("f_11955:library_2escm"),(void*)f_11955},
{C_text("f_11966:library_2escm"),(void*)f_11966},
{C_text("f_11977:library_2escm"),(void*)f_11977},
{C_text("f_11984:library_2escm"),(void*)f_11984},
{C_text("f_12002:library_2escm"),(void*)f_12002},
{C_text("f_12013:library_2escm"),(void*)f_12013},
{C_text("f_12031:library_2escm"),(void*)f_12031},
{C_text("f_12037:library_2escm"),(void*)f_12037},
{C_text("f_12040:library_2escm"),(void*)f_12040},
{C_text("f_12043:library_2escm"),(void*)f_12043},
{C_text("f_12046:library_2escm"),(void*)f_12046},
{C_text("f_12049:library_2escm"),(void*)f_12049},
{C_text("f_12055:library_2escm"),(void*)f_12055},
{C_text("f_12088:library_2escm"),(void*)f_12088},
{C_text("f_12091:library_2escm"),(void*)f_12091},
{C_text("f_12094:library_2escm"),(void*)f_12094},
{C_text("f_12106:library_2escm"),(void*)f_12106},
{C_text("f_12119:library_2escm"),(void*)f_12119},
{C_text("f_12138:library_2escm"),(void*)f_12138},
{C_text("f_12141:library_2escm"),(void*)f_12141},
{C_text("f_12144:library_2escm"),(void*)f_12144},
{C_text("f_12156:library_2escm"),(void*)f_12156},
{C_text("f_12169:library_2escm"),(void*)f_12169},
{C_text("f_12193:library_2escm"),(void*)f_12193},
{C_text("f_12196:library_2escm"),(void*)f_12196},
{C_text("f_12199:library_2escm"),(void*)f_12199},
{C_text("f_12202:library_2escm"),(void*)f_12202},
{C_text("f_12205:library_2escm"),(void*)f_12205},
{C_text("f_12208:library_2escm"),(void*)f_12208},
{C_text("f_12215:library_2escm"),(void*)f_12215},
{C_text("f_12241:library_2escm"),(void*)f_12241},
{C_text("f_12248:library_2escm"),(void*)f_12248},
{C_text("f_12292:library_2escm"),(void*)f_12292},
{C_text("f_12295:library_2escm"),(void*)f_12295},
{C_text("f_12301:library_2escm"),(void*)f_12301},
{C_text("f_12304:library_2escm"),(void*)f_12304},
{C_text("f_12307:library_2escm"),(void*)f_12307},
{C_text("f_12310:library_2escm"),(void*)f_12310},
{C_text("f_12313:library_2escm"),(void*)f_12313},
{C_text("f_12321:library_2escm"),(void*)f_12321},
{C_text("f_12325:library_2escm"),(void*)f_12325},
{C_text("f_12328:library_2escm"),(void*)f_12328},
{C_text("f_12331:library_2escm"),(void*)f_12331},
{C_text("f_12334:library_2escm"),(void*)f_12334},
{C_text("f_12337:library_2escm"),(void*)f_12337},
{C_text("f_12340:library_2escm"),(void*)f_12340},
{C_text("f_12343:library_2escm"),(void*)f_12343},
{C_text("f_12346:library_2escm"),(void*)f_12346},
{C_text("f_12349:library_2escm"),(void*)f_12349},
{C_text("f_12353:library_2escm"),(void*)f_12353},
{C_text("f_12356:library_2escm"),(void*)f_12356},
{C_text("f_12359:library_2escm"),(void*)f_12359},
{C_text("f_12362:library_2escm"),(void*)f_12362},
{C_text("f_12365:library_2escm"),(void*)f_12365},
{C_text("f_12373:library_2escm"),(void*)f_12373},
{C_text("f_12376:library_2escm"),(void*)f_12376},
{C_text("f_12383:library_2escm"),(void*)f_12383},
{C_text("f_12395:library_2escm"),(void*)f_12395},
{C_text("f_12402:library_2escm"),(void*)f_12402},
{C_text("f_12410:library_2escm"),(void*)f_12410},
{C_text("f_12423:library_2escm"),(void*)f_12423},
{C_text("f_12449:library_2escm"),(void*)f_12449},
{C_text("f_12462:library_2escm"),(void*)f_12462},
{C_text("f_12488:library_2escm"),(void*)f_12488},
{C_text("f_12501:library_2escm"),(void*)f_12501},
{C_text("f_12527:library_2escm"),(void*)f_12527},
{C_text("f_12540:library_2escm"),(void*)f_12540},
{C_text("f_12566:library_2escm"),(void*)f_12566},
{C_text("f_12579:library_2escm"),(void*)f_12579},
{C_text("f_12605:library_2escm"),(void*)f_12605},
{C_text("f_12611:library_2escm"),(void*)f_12611},
{C_text("f_12622:library_2escm"),(void*)f_12622},
{C_text("f_12628:library_2escm"),(void*)f_12628},
{C_text("f_12634:library_2escm"),(void*)f_12634},
{C_text("f_12640:library_2escm"),(void*)f_12640},
{C_text("f_12646:library_2escm"),(void*)f_12646},
{C_text("f_12652:library_2escm"),(void*)f_12652},
{C_text("f_12668:library_2escm"),(void*)f_12668},
{C_text("f_12674:library_2escm"),(void*)f_12674},
{C_text("f_12688:library_2escm"),(void*)f_12688},
{C_text("f_12694:library_2escm"),(void*)f_12694},
{C_text("f_12708:library_2escm"),(void*)f_12708},
{C_text("f_12714:library_2escm"),(void*)f_12714},
{C_text("f_12728:library_2escm"),(void*)f_12728},
{C_text("f_12734:library_2escm"),(void*)f_12734},
{C_text("f_12742:library_2escm"),(void*)f_12742},
{C_text("f_12748:library_2escm"),(void*)f_12748},
{C_text("f_12754:library_2escm"),(void*)f_12754},
{C_text("f_12761:library_2escm"),(void*)f_12761},
{C_text("f_12770:library_2escm"),(void*)f_12770},
{C_text("f_12777:library_2escm"),(void*)f_12777},
{C_text("f_12786:library_2escm"),(void*)f_12786},
{C_text("f_12792:library_2escm"),(void*)f_12792},
{C_text("f_12797:library_2escm"),(void*)f_12797},
{C_text("f_12812:library_2escm"),(void*)f_12812},
{C_text("f_12824:library_2escm"),(void*)f_12824},
{C_text("f_12830:library_2escm"),(void*)f_12830},
{C_text("f_12836:library_2escm"),(void*)f_12836},
{C_text("f_12842:library_2escm"),(void*)f_12842},
{C_text("f_12848:library_2escm"),(void*)f_12848},
{C_text("f_12858:library_2escm"),(void*)f_12858},
{C_text("f_12860:library_2escm"),(void*)f_12860},
{C_text("f_12863:library_2escm"),(void*)f_12863},
{C_text("f_12866:library_2escm"),(void*)f_12866},
{C_text("f_12869:library_2escm"),(void*)f_12869},
{C_text("f_12872:library_2escm"),(void*)f_12872},
{C_text("f_12877:library_2escm"),(void*)f_12877},
{C_text("f_12883:library_2escm"),(void*)f_12883},
{C_text("f_12889:library_2escm"),(void*)f_12889},
{C_text("f_12924:library_2escm"),(void*)f_12924},
{C_text("f_12927:library_2escm"),(void*)f_12927},
{C_text("f_12930:library_2escm"),(void*)f_12930},
{C_text("f_12938:library_2escm"),(void*)f_12938},
{C_text("f_12944:library_2escm"),(void*)f_12944},
{C_text("f_12951:library_2escm"),(void*)f_12951},
{C_text("f_12966:library_2escm"),(void*)f_12966},
{C_text("f_12980:library_2escm"),(void*)f_12980},
{C_text("f_12986:library_2escm"),(void*)f_12986},
{C_text("f_12992:library_2escm"),(void*)f_12992},
{C_text("f_12999:library_2escm"),(void*)f_12999},
{C_text("f_13004:library_2escm"),(void*)f_13004},
{C_text("f_13007:library_2escm"),(void*)f_13007},
{C_text("f_13016:library_2escm"),(void*)f_13016},
{C_text("f_13034:library_2escm"),(void*)f_13034},
{C_text("f_13044:library_2escm"),(void*)f_13044},
{C_text("f_13053:library_2escm"),(void*)f_13053},
{C_text("f_13071:library_2escm"),(void*)f_13071},
{C_text("f_13084:library_2escm"),(void*)f_13084},
{C_text("f_13091:library_2escm"),(void*)f_13091},
{C_text("f_13098:library_2escm"),(void*)f_13098},
{C_text("f_13109:library_2escm"),(void*)f_13109},
{C_text("f_13128:library_2escm"),(void*)f_13128},
{C_text("f_13131:library_2escm"),(void*)f_13131},
{C_text("f_13133:library_2escm"),(void*)f_13133},
{C_text("f_13139:library_2escm"),(void*)f_13139},
{C_text("f_13155:library_2escm"),(void*)f_13155},
{C_text("f_13164:library_2escm"),(void*)f_13164},
{C_text("f_13166:library_2escm"),(void*)f_13166},
{C_text("f_13172:library_2escm"),(void*)f_13172},
{C_text("f_13185:library_2escm"),(void*)f_13185},
{C_text("f_13201:library_2escm"),(void*)f_13201},
{C_text("f_13212:library_2escm"),(void*)f_13212},
{C_text("f_13214:library_2escm"),(void*)f_13214},
{C_text("f_13222:library_2escm"),(void*)f_13222},
{C_text("f_13224:library_2escm"),(void*)f_13224},
{C_text("f_13230:library_2escm"),(void*)f_13230},
{C_text("f_13232:library_2escm"),(void*)f_13232},
{C_text("f_13240:library_2escm"),(void*)f_13240},
{C_text("f_13242:library_2escm"),(void*)f_13242},
{C_text("f_13245:library_2escm"),(void*)f_13245},
{C_text("f_13253:library_2escm"),(void*)f_13253},
{C_text("f_13259:library_2escm"),(void*)f_13259},
{C_text("f_13267:library_2escm"),(void*)f_13267},
{C_text("f_13278:library_2escm"),(void*)f_13278},
{C_text("f_13290:library_2escm"),(void*)f_13290},
{C_text("f_13304:library_2escm"),(void*)f_13304},
{C_text("f_13312:library_2escm"),(void*)f_13312},
{C_text("f_13315:library_2escm"),(void*)f_13315},
{C_text("f_13317:library_2escm"),(void*)f_13317},
{C_text("f_13319:library_2escm"),(void*)f_13319},
{C_text("f_13325:library_2escm"),(void*)f_13325},
{C_text("f_13344:library_2escm"),(void*)f_13344},
{C_text("f_13361:library_2escm"),(void*)f_13361},
{C_text("f_13369:library_2escm"),(void*)f_13369},
{C_text("f_13383:library_2escm"),(void*)f_13383},
{C_text("f_13389:library_2escm"),(void*)f_13389},
{C_text("f_13408:library_2escm"),(void*)f_13408},
{C_text("f_13417:library_2escm"),(void*)f_13417},
{C_text("f_13420:library_2escm"),(void*)f_13420},
{C_text("f_13423:library_2escm"),(void*)f_13423},
{C_text("f_13426:library_2escm"),(void*)f_13426},
{C_text("f_13429:library_2escm"),(void*)f_13429},
{C_text("f_13438:library_2escm"),(void*)f_13438},
{C_text("f_13457:library_2escm"),(void*)f_13457},
{C_text("f_13463:library_2escm"),(void*)f_13463},
{C_text("f_13488:library_2escm"),(void*)f_13488},
{C_text("f_13490:library_2escm"),(void*)f_13490},
{C_text("f_13499:library_2escm"),(void*)f_13499},
{C_text("f_13520:library_2escm"),(void*)f_13520},
{C_text("f_13522:library_2escm"),(void*)f_13522},
{C_text("f_13528:library_2escm"),(void*)f_13528},
{C_text("f_13554:library_2escm"),(void*)f_13554},
{C_text("f_13561:library_2escm"),(void*)f_13561},
{C_text("f_13563:library_2escm"),(void*)f_13563},
{C_text("f_13575:library_2escm"),(void*)f_13575},
{C_text("f_13610:library_2escm"),(void*)f_13610},
{C_text("f_13620:library_2escm"),(void*)f_13620},
{C_text("f_13629:library_2escm"),(void*)f_13629},
{C_text("f_13671:library_2escm"),(void*)f_13671},
{C_text("f_13700:library_2escm"),(void*)f_13700},
{C_text("f_13707:library_2escm"),(void*)f_13707},
{C_text("f_13710:library_2escm"),(void*)f_13710},
{C_text("f_13739:library_2escm"),(void*)f_13739},
{C_text("f_13745:library_2escm"),(void*)f_13745},
{C_text("f_13761:library_2escm"),(void*)f_13761},
{C_text("f_13786:library_2escm"),(void*)f_13786},
{C_text("f_13795:library_2escm"),(void*)f_13795},
{C_text("f_13836:library_2escm"),(void*)f_13836},
{C_text("f_13858:library_2escm"),(void*)f_13858},
{C_text("f_13890:library_2escm"),(void*)f_13890},
{C_text("f_13906:library_2escm"),(void*)f_13906},
{C_text("f_13909:library_2escm"),(void*)f_13909},
{C_text("f_13931:library_2escm"),(void*)f_13931},
{C_text("f_13937:library_2escm"),(void*)f_13937},
{C_text("f_13962:library_2escm"),(void*)f_13962},
{C_text("f_14002:library_2escm"),(void*)f_14002},
{C_text("f_14014:library_2escm"),(void*)f_14014},
{C_text("f_14033:library_2escm"),(void*)f_14033},
{C_text("f_14050:library_2escm"),(void*)f_14050},
{C_text("f_14057:library_2escm"),(void*)f_14057},
{C_text("f_14067:library_2escm"),(void*)f_14067},
{C_text("f_14078:library_2escm"),(void*)f_14078},
{C_text("f_14082:library_2escm"),(void*)f_14082},
{C_text("f_14095:library_2escm"),(void*)f_14095},
{C_text("f_14097:library_2escm"),(void*)f_14097},
{C_text("f_14131:library_2escm"),(void*)f_14131},
{C_text("f_14135:library_2escm"),(void*)f_14135},
{C_text("f_14153:library_2escm"),(void*)f_14153},
{C_text("f_14169:library_2escm"),(void*)f_14169},
{C_text("f_14178:library_2escm"),(void*)f_14178},
{C_text("f_14184:library_2escm"),(void*)f_14184},
{C_text("f_14194:library_2escm"),(void*)f_14194},
{C_text("f_14198:library_2escm"),(void*)f_14198},
{C_text("f_14202:library_2escm"),(void*)f_14202},
{C_text("f_14206:library_2escm"),(void*)f_14206},
{C_text("f_14209:library_2escm"),(void*)f_14209},
{C_text("f_14211:library_2escm"),(void*)f_14211},
{C_text("f_14215:library_2escm"),(void*)f_14215},
{C_text("f_14219:library_2escm"),(void*)f_14219},
{C_text("f_14223:library_2escm"),(void*)f_14223},
{C_text("f_14227:library_2escm"),(void*)f_14227},
{C_text("f_14242:library_2escm"),(void*)f_14242},
{C_text("f_14259:library_2escm"),(void*)f_14259},
{C_text("f_14265:library_2escm"),(void*)f_14265},
{C_text("f_14271:library_2escm"),(void*)f_14271},
{C_text("f_14274:library_2escm"),(void*)f_14274},
{C_text("f_14281:library_2escm"),(void*)f_14281},
{C_text("f_14318:library_2escm"),(void*)f_14318},
{C_text("f_14321:library_2escm"),(void*)f_14321},
{C_text("f_14324:library_2escm"),(void*)f_14324},
{C_text("f_14327:library_2escm"),(void*)f_14327},
{C_text("f_14333:library_2escm"),(void*)f_14333},
{C_text("f_14336:library_2escm"),(void*)f_14336},
{C_text("f_14339:library_2escm"),(void*)f_14339},
{C_text("f_14342:library_2escm"),(void*)f_14342},
{C_text("f_14345:library_2escm"),(void*)f_14345},
{C_text("f_14348:library_2escm"),(void*)f_14348},
{C_text("f_14351:library_2escm"),(void*)f_14351},
{C_text("f_14354:library_2escm"),(void*)f_14354},
{C_text("f_14357:library_2escm"),(void*)f_14357},
{C_text("f_14360:library_2escm"),(void*)f_14360},
{C_text("f_14363:library_2escm"),(void*)f_14363},
{C_text("f_14366:library_2escm"),(void*)f_14366},
{C_text("f_14369:library_2escm"),(void*)f_14369},
{C_text("f_14372:library_2escm"),(void*)f_14372},
{C_text("f_14375:library_2escm"),(void*)f_14375},
{C_text("f_14378:library_2escm"),(void*)f_14378},
{C_text("f_14381:library_2escm"),(void*)f_14381},
{C_text("f_14384:library_2escm"),(void*)f_14384},
{C_text("f_14387:library_2escm"),(void*)f_14387},
{C_text("f_14390:library_2escm"),(void*)f_14390},
{C_text("f_14393:library_2escm"),(void*)f_14393},
{C_text("f_14396:library_2escm"),(void*)f_14396},
{C_text("f_14399:library_2escm"),(void*)f_14399},
{C_text("f_14402:library_2escm"),(void*)f_14402},
{C_text("f_14405:library_2escm"),(void*)f_14405},
{C_text("f_14410:library_2escm"),(void*)f_14410},
{C_text("f_14419:library_2escm"),(void*)f_14419},
{C_text("f_14431:library_2escm"),(void*)f_14431},
{C_text("f_14445:library_2escm"),(void*)f_14445},
{C_text("f_14461:library_2escm"),(void*)f_14461},
{C_text("f_14464:library_2escm"),(void*)f_14464},
{C_text("f_14473:library_2escm"),(void*)f_14473},
{C_text("f_14477:library_2escm"),(void*)f_14477},
{C_text("f_14479:library_2escm"),(void*)f_14479},
{C_text("f_14483:library_2escm"),(void*)f_14483},
{C_text("f_14486:library_2escm"),(void*)f_14486},
{C_text("f_14497:library_2escm"),(void*)f_14497},
{C_text("f_14499:library_2escm"),(void*)f_14499},
{C_text("f_14506:library_2escm"),(void*)f_14506},
{C_text("f_14509:library_2escm"),(void*)f_14509},
{C_text("f_14514:library_2escm"),(void*)f_14514},
{C_text("f_14518:library_2escm"),(void*)f_14518},
{C_text("f_14523:library_2escm"),(void*)f_14523},
{C_text("f_14527:library_2escm"),(void*)f_14527},
{C_text("f_14558:library_2escm"),(void*)f_14558},
{C_text("f_14561:library_2escm"),(void*)f_14561},
{C_text("f_14564:library_2escm"),(void*)f_14564},
{C_text("f_14581:library_2escm"),(void*)f_14581},
{C_text("f_14592:library_2escm"),(void*)f_14592},
{C_text("f_14603:library_2escm"),(void*)f_14603},
{C_text("f_14614:library_2escm"),(void*)f_14614},
{C_text("f_14625:library_2escm"),(void*)f_14625},
{C_text("f_14636:library_2escm"),(void*)f_14636},
{C_text("f_14647:library_2escm"),(void*)f_14647},
{C_text("f_14658:library_2escm"),(void*)f_14658},
{C_text("f_14669:library_2escm"),(void*)f_14669},
{C_text("f_14680:library_2escm"),(void*)f_14680},
{C_text("f_14691:library_2escm"),(void*)f_14691},
{C_text("f_14702:library_2escm"),(void*)f_14702},
{C_text("f_14713:library_2escm"),(void*)f_14713},
{C_text("f_14724:library_2escm"),(void*)f_14724},
{C_text("f_14735:library_2escm"),(void*)f_14735},
{C_text("f_14746:library_2escm"),(void*)f_14746},
{C_text("f_14757:library_2escm"),(void*)f_14757},
{C_text("f_14774:library_2escm"),(void*)f_14774},
{C_text("f_14791:library_2escm"),(void*)f_14791},
{C_text("f_14815:library_2escm"),(void*)f_14815},
{C_text("f_14832:library_2escm"),(void*)f_14832},
{C_text("f_14843:library_2escm"),(void*)f_14843},
{C_text("f_14854:library_2escm"),(void*)f_14854},
{C_text("f_14874:library_2escm"),(void*)f_14874},
{C_text("f_14885:library_2escm"),(void*)f_14885},
{C_text("f_14897:library_2escm"),(void*)f_14897},
{C_text("f_14931:library_2escm"),(void*)f_14931},
{C_text("f_14946:library_2escm"),(void*)f_14946},
{C_text("f_15013:library_2escm"),(void*)f_15013},
{C_text("f_15029:library_2escm"),(void*)f_15029},
{C_text("f_15045:library_2escm"),(void*)f_15045},
{C_text("f_15061:library_2escm"),(void*)f_15061},
{C_text("f_15077:library_2escm"),(void*)f_15077},
{C_text("f_15093:library_2escm"),(void*)f_15093},
{C_text("f_15109:library_2escm"),(void*)f_15109},
{C_text("f_15125:library_2escm"),(void*)f_15125},
{C_text("f_15141:library_2escm"),(void*)f_15141},
{C_text("f_15153:library_2escm"),(void*)f_15153},
{C_text("f_15172:library_2escm"),(void*)f_15172},
{C_text("f_15203:library_2escm"),(void*)f_15203},
{C_text("f_15220:library_2escm"),(void*)f_15220},
{C_text("f_15226:library_2escm"),(void*)f_15226},
{C_text("f_15250:library_2escm"),(void*)f_15250},
{C_text("f_15265:library_2escm"),(void*)f_15265},
{C_text("f_15275:library_2escm"),(void*)f_15275},
{C_text("f_15287:library_2escm"),(void*)f_15287},
{C_text("f_15291:library_2escm"),(void*)f_15291},
{C_text("f_15295:library_2escm"),(void*)f_15295},
{C_text("f_15302:library_2escm"),(void*)f_15302},
{C_text("f_15308:library_2escm"),(void*)f_15308},
{C_text("f_15314:library_2escm"),(void*)f_15314},
{C_text("f_15338:library_2escm"),(void*)f_15338},
{C_text("f_15342:library_2escm"),(void*)f_15342},
{C_text("f_15351:library_2escm"),(void*)f_15351},
{C_text("f_15355:library_2escm"),(void*)f_15355},
{C_text("f_15364:library_2escm"),(void*)f_15364},
{C_text("f_15367:library_2escm"),(void*)f_15367},
{C_text("f_15373:library_2escm"),(void*)f_15373},
{C_text("f_15379:library_2escm"),(void*)f_15379},
{C_text("f_15382:library_2escm"),(void*)f_15382},
{C_text("f_15421:library_2escm"),(void*)f_15421},
{C_text("f_15424:library_2escm"),(void*)f_15424},
{C_text("f_15434:library_2escm"),(void*)f_15434},
{C_text("f_15451:library_2escm"),(void*)f_15451},
{C_text("f_15457:library_2escm"),(void*)f_15457},
{C_text("f_15463:library_2escm"),(void*)f_15463},
{C_text("f_15469:library_2escm"),(void*)f_15469},
{C_text("f_15475:library_2escm"),(void*)f_15475},
{C_text("f_15481:library_2escm"),(void*)f_15481},
{C_text("f_15487:library_2escm"),(void*)f_15487},
{C_text("f_15493:library_2escm"),(void*)f_15493},
{C_text("f_15497:library_2escm"),(void*)f_15497},
{C_text("f_15502:library_2escm"),(void*)f_15502},
{C_text("f_15505:library_2escm"),(void*)f_15505},
{C_text("f_15515:library_2escm"),(void*)f_15515},
{C_text("f_15518:library_2escm"),(void*)f_15518},
{C_text("f_15524:library_2escm"),(void*)f_15524},
{C_text("f_15528:library_2escm"),(void*)f_15528},
{C_text("f_15536:library_2escm"),(void*)f_15536},
{C_text("f_15540:library_2escm"),(void*)f_15540},
{C_text("f_15558:library_2escm"),(void*)f_15558},
{C_text("f_15582:library_2escm"),(void*)f_15582},
{C_text("f_15589:library_2escm"),(void*)f_15589},
{C_text("f_15613:library_2escm"),(void*)f_15613},
{C_text("f_15635:library_2escm"),(void*)f_15635},
{C_text("f_15638:library_2escm"),(void*)f_15638},
{C_text("f_15647:library_2escm"),(void*)f_15647},
{C_text("f_15704:library_2escm"),(void*)f_15704},
{C_text("f_15717:library_2escm"),(void*)f_15717},
{C_text("f_15722:library_2escm"),(void*)f_15722},
{C_text("f_15766:library_2escm"),(void*)f_15766},
{C_text("f_15770:library_2escm"),(void*)f_15770},
{C_text("f_15775:library_2escm"),(void*)f_15775},
{C_text("f_15817:library_2escm"),(void*)f_15817},
{C_text("f_15840:library_2escm"),(void*)f_15840},
{C_text("f_15863:library_2escm"),(void*)f_15863},
{C_text("f_15936:library_2escm"),(void*)f_15936},
{C_text("f_15956:library_2escm"),(void*)f_15956},
{C_text("f_15959:library_2escm"),(void*)f_15959},
{C_text("f_15962:library_2escm"),(void*)f_15962},
{C_text("f_15971:library_2escm"),(void*)f_15971},
{C_text("f_15975:library_2escm"),(void*)f_15975},
{C_text("f_15985:library_2escm"),(void*)f_15985},
{C_text("f_16012:library_2escm"),(void*)f_16012},
{C_text("f_16042:library_2escm"),(void*)f_16042},
{C_text("f_16061:library_2escm"),(void*)f_16061},
{C_text("f_16095:library_2escm"),(void*)f_16095},
{C_text("f_16129:library_2escm"),(void*)f_16129},
{C_text("f_16163:library_2escm"),(void*)f_16163},
{C_text("f_16167:library_2escm"),(void*)f_16167},
{C_text("f_16177:library_2escm"),(void*)f_16177},
{C_text("f_16187:library_2escm"),(void*)f_16187},
{C_text("f_16194:library_2escm"),(void*)f_16194},
{C_text("f_16222:library_2escm"),(void*)f_16222},
{C_text("f_16242:library_2escm"),(void*)f_16242},
{C_text("f_16244:library_2escm"),(void*)f_16244},
{C_text("f_16275:library_2escm"),(void*)f_16275},
{C_text("f_16283:library_2escm"),(void*)f_16283},
{C_text("f_16289:library_2escm"),(void*)f_16289},
{C_text("f_16307:library_2escm"),(void*)f_16307},
{C_text("f_16313:library_2escm"),(void*)f_16313},
{C_text("f_16331:library_2escm"),(void*)f_16331},
{C_text("f_16337:library_2escm"),(void*)f_16337},
{C_text("f_16352:library_2escm"),(void*)f_16352},
{C_text("f_16358:library_2escm"),(void*)f_16358},
{C_text("f_16372:library_2escm"),(void*)f_16372},
{C_text("f_16392:library_2escm"),(void*)f_16392},
{C_text("f_16394:library_2escm"),(void*)f_16394},
{C_text("f_16425:library_2escm"),(void*)f_16425},
{C_text("f_16433:library_2escm"),(void*)f_16433},
{C_text("f_16439:library_2escm"),(void*)f_16439},
{C_text("f_16457:library_2escm"),(void*)f_16457},
{C_text("f_16463:library_2escm"),(void*)f_16463},
{C_text("f_16481:library_2escm"),(void*)f_16481},
{C_text("f_16487:library_2escm"),(void*)f_16487},
{C_text("f_16502:library_2escm"),(void*)f_16502},
{C_text("f_16508:library_2escm"),(void*)f_16508},
{C_text("f_16523:library_2escm"),(void*)f_16523},
{C_text("f_16539:library_2escm"),(void*)f_16539},
{C_text("f_16569:library_2escm"),(void*)f_16569},
{C_text("f_16573:library_2escm"),(void*)f_16573},
{C_text("f_16575:library_2escm"),(void*)f_16575},
{C_text("f_16586:library_2escm"),(void*)f_16586},
{C_text("f_16609:library_2escm"),(void*)f_16609},
{C_text("f_16627:library_2escm"),(void*)f_16627},
{C_text("f_16633:library_2escm"),(void*)f_16633},
{C_text("f_16639:library_2escm"),(void*)f_16639},
{C_text("f_16646:library_2escm"),(void*)f_16646},
{C_text("f_16654:library_2escm"),(void*)f_16654},
{C_text("f_16675:library_2escm"),(void*)f_16675},
{C_text("f_16689:library_2escm"),(void*)f_16689},
{C_text("f_16693:library_2escm"),(void*)f_16693},
{C_text("f_16734:library_2escm"),(void*)f_16734},
{C_text("f_16756:library_2escm"),(void*)f_16756},
{C_text("f_16758:library_2escm"),(void*)f_16758},
{C_text("f_16780:library_2escm"),(void*)f_16780},
{C_text("f_16782:library_2escm"),(void*)f_16782},
{C_text("f_16804:library_2escm"),(void*)f_16804},
{C_text("f_16806:library_2escm"),(void*)f_16806},
{C_text("f_16828:library_2escm"),(void*)f_16828},
{C_text("f_16830:library_2escm"),(void*)f_16830},
{C_text("f_16834:library_2escm"),(void*)f_16834},
{C_text("f_16837:library_2escm"),(void*)f_16837},
{C_text("f_16855:library_2escm"),(void*)f_16855},
{C_text("f_16877:library_2escm"),(void*)f_16877},
{C_text("f_16879:library_2escm"),(void*)f_16879},
{C_text("f_16901:library_2escm"),(void*)f_16901},
{C_text("f_16903:library_2escm"),(void*)f_16903},
{C_text("f_16925:library_2escm"),(void*)f_16925},
{C_text("f_16927:library_2escm"),(void*)f_16927},
{C_text("f_16949:library_2escm"),(void*)f_16949},
{C_text("f_16951:library_2escm"),(void*)f_16951},
{C_text("f_16973:library_2escm"),(void*)f_16973},
{C_text("f_16975:library_2escm"),(void*)f_16975},
{C_text("f_16997:library_2escm"),(void*)f_16997},
{C_text("f_16999:library_2escm"),(void*)f_16999},
{C_text("f_17021:library_2escm"),(void*)f_17021},
{C_text("f_17023:library_2escm"),(void*)f_17023},
{C_text("f_17039:library_2escm"),(void*)f_17039},
{C_text("f_17041:library_2escm"),(void*)f_17041},
{C_text("f_17063:library_2escm"),(void*)f_17063},
{C_text("f_17065:library_2escm"),(void*)f_17065},
{C_text("f_17087:library_2escm"),(void*)f_17087},
{C_text("f_17089:library_2escm"),(void*)f_17089},
{C_text("f_17105:library_2escm"),(void*)f_17105},
{C_text("f_17107:library_2escm"),(void*)f_17107},
{C_text("f_17123:library_2escm"),(void*)f_17123},
{C_text("f_17125:library_2escm"),(void*)f_17125},
{C_text("f_17141:library_2escm"),(void*)f_17141},
{C_text("f_17143:library_2escm"),(void*)f_17143},
{C_text("f_17159:library_2escm"),(void*)f_17159},
{C_text("f_17161:library_2escm"),(void*)f_17161},
{C_text("f_17177:library_2escm"),(void*)f_17177},
{C_text("f_17179:library_2escm"),(void*)f_17179},
{C_text("f_17195:library_2escm"),(void*)f_17195},
{C_text("f_17197:library_2escm"),(void*)f_17197},
{C_text("f_17213:library_2escm"),(void*)f_17213},
{C_text("f_17215:library_2escm"),(void*)f_17215},
{C_text("f_17231:library_2escm"),(void*)f_17231},
{C_text("f_17233:library_2escm"),(void*)f_17233},
{C_text("f_17249:library_2escm"),(void*)f_17249},
{C_text("f_17251:library_2escm"),(void*)f_17251},
{C_text("f_17267:library_2escm"),(void*)f_17267},
{C_text("f_17269:library_2escm"),(void*)f_17269},
{C_text("f_17291:library_2escm"),(void*)f_17291},
{C_text("f_17293:library_2escm"),(void*)f_17293},
{C_text("f_17309:library_2escm"),(void*)f_17309},
{C_text("f_17311:library_2escm"),(void*)f_17311},
{C_text("f_17327:library_2escm"),(void*)f_17327},
{C_text("f_17329:library_2escm"),(void*)f_17329},
{C_text("f_17345:library_2escm"),(void*)f_17345},
{C_text("f_17347:library_2escm"),(void*)f_17347},
{C_text("f_17363:library_2escm"),(void*)f_17363},
{C_text("f_17365:library_2escm"),(void*)f_17365},
{C_text("f_17381:library_2escm"),(void*)f_17381},
{C_text("f_17383:library_2escm"),(void*)f_17383},
{C_text("f_17399:library_2escm"),(void*)f_17399},
{C_text("f_17401:library_2escm"),(void*)f_17401},
{C_text("f_17417:library_2escm"),(void*)f_17417},
{C_text("f_17419:library_2escm"),(void*)f_17419},
{C_text("f_17441:library_2escm"),(void*)f_17441},
{C_text("f_17443:library_2escm"),(void*)f_17443},
{C_text("f_17459:library_2escm"),(void*)f_17459},
{C_text("f_17461:library_2escm"),(void*)f_17461},
{C_text("f_17477:library_2escm"),(void*)f_17477},
{C_text("f_17479:library_2escm"),(void*)f_17479},
{C_text("f_17495:library_2escm"),(void*)f_17495},
{C_text("f_17497:library_2escm"),(void*)f_17497},
{C_text("f_17513:library_2escm"),(void*)f_17513},
{C_text("f_17515:library_2escm"),(void*)f_17515},
{C_text("f_17533:library_2escm"),(void*)f_17533},
{C_text("f_17544:library_2escm"),(void*)f_17544},
{C_text("f_17560:library_2escm"),(void*)f_17560},
{C_text("f_17564:library_2escm"),(void*)f_17564},
{C_text("f_17567:library_2escm"),(void*)f_17567},
{C_text("f_17572:library_2escm"),(void*)f_17572},
{C_text("f_17576:library_2escm"),(void*)f_17576},
{C_text("f_17579:library_2escm"),(void*)f_17579},
{C_text("f_17582:library_2escm"),(void*)f_17582},
{C_text("f_17595:library_2escm"),(void*)f_17595},
{C_text("f_17618:library_2escm"),(void*)f_17618},
{C_text("f_17641:library_2escm"),(void*)f_17641},
{C_text("f_17650:library_2escm"),(void*)f_17650},
{C_text("f_17655:library_2escm"),(void*)f_17655},
{C_text("f_17657:library_2escm"),(void*)f_17657},
{C_text("f_17701:library_2escm"),(void*)f_17701},
{C_text("f_17747:library_2escm"),(void*)f_17747},
{C_text("f_17770:library_2escm"),(void*)f_17770},
{C_text("f_17774:library_2escm"),(void*)f_17774},
{C_text("f_17792:library_2escm"),(void*)f_17792},
{C_text("f_17815:library_2escm"),(void*)f_17815},
{C_text("f_17819:library_2escm"),(void*)f_17819},
{C_text("f_17837:library_2escm"),(void*)f_17837},
{C_text("f_17878:library_2escm"),(void*)f_17878},
{C_text("f_17889:library_2escm"),(void*)f_17889},
{C_text("f_17895:library_2escm"),(void*)f_17895},
{C_text("f_17899:library_2escm"),(void*)f_17899},
{C_text("f_17913:library_2escm"),(void*)f_17913},
{C_text("f_17926:library_2escm"),(void*)f_17926},
{C_text("f_17930:library_2escm"),(void*)f_17930},
{C_text("f_17947:library_2escm"),(void*)f_17947},
{C_text("f_17951:library_2escm"),(void*)f_17951},
{C_text("f_17957:library_2escm"),(void*)f_17957},
{C_text("f_17961:library_2escm"),(void*)f_17961},
{C_text("f_18001:library_2escm"),(void*)f_18001},
{C_text("f_18005:library_2escm"),(void*)f_18005},
{C_text("f_18025:library_2escm"),(void*)f_18025},
{C_text("f_18028:library_2escm"),(void*)f_18028},
{C_text("f_18031:library_2escm"),(void*)f_18031},
{C_text("f_18034:library_2escm"),(void*)f_18034},
{C_text("f_18037:library_2escm"),(void*)f_18037},
{C_text("f_18058:library_2escm"),(void*)f_18058},
{C_text("f_18060:library_2escm"),(void*)f_18060},
{C_text("f_18078:library_2escm"),(void*)f_18078},
{C_text("f_18088:library_2escm"),(void*)f_18088},
{C_text("f_18092:library_2escm"),(void*)f_18092},
{C_text("f_18130:library_2escm"),(void*)f_18130},
{C_text("f_18133:library_2escm"),(void*)f_18133},
{C_text("f_18136:library_2escm"),(void*)f_18136},
{C_text("f_18139:library_2escm"),(void*)f_18139},
{C_text("f_18145:library_2escm"),(void*)f_18145},
{C_text("f_18148:library_2escm"),(void*)f_18148},
{C_text("f_18196:library_2escm"),(void*)f_18196},
{C_text("f_18200:library_2escm"),(void*)f_18200},
{C_text("f_18277:library_2escm"),(void*)f_18277},
{C_text("f_18316:library_2escm"),(void*)f_18316},
{C_text("f_18369:library_2escm"),(void*)f_18369},
{C_text("f_18413:library_2escm"),(void*)f_18413},
{C_text("f_18457:library_2escm"),(void*)f_18457},
{C_text("f_18493:library_2escm"),(void*)f_18493},
{C_text("f_18512:library_2escm"),(void*)f_18512},
{C_text("f_18536:library_2escm"),(void*)f_18536},
{C_text("f_18539:library_2escm"),(void*)f_18539},
{C_text("f_18543:library_2escm"),(void*)f_18543},
{C_text("f_18546:library_2escm"),(void*)f_18546},
{C_text("f_18564:library_2escm"),(void*)f_18564},
{C_text("f_18587:library_2escm"),(void*)f_18587},
{C_text("f_18591:library_2escm"),(void*)f_18591},
{C_text("f_18614:library_2escm"),(void*)f_18614},
{C_text("f_18618:library_2escm"),(void*)f_18618},
{C_text("f_18650:library_2escm"),(void*)f_18650},
{C_text("f_18686:library_2escm"),(void*)f_18686},
{C_text("f_18690:library_2escm"),(void*)f_18690},
{C_text("f_18709:library_2escm"),(void*)f_18709},
{C_text("f_18711:library_2escm"),(void*)f_18711},
{C_text("f_18722:library_2escm"),(void*)f_18722},
{C_text("f_18782:library_2escm"),(void*)f_18782},
{C_text("f_18793:library_2escm"),(void*)f_18793},
{C_text("f_18853:library_2escm"),(void*)f_18853},
{C_text("f_18871:library_2escm"),(void*)f_18871},
{C_text("f_18880:library_2escm"),(void*)f_18880},
{C_text("f_18885:library_2escm"),(void*)f_18885},
{C_text("f_18898:library_2escm"),(void*)f_18898},
{C_text("f_18924:library_2escm"),(void*)f_18924},
{C_text("f_18932:library_2escm"),(void*)f_18932},
{C_text("f_18936:library_2escm"),(void*)f_18936},
{C_text("f_18940:library_2escm"),(void*)f_18940},
{C_text("f_18944:library_2escm"),(void*)f_18944},
{C_text("f_18947:library_2escm"),(void*)f_18947},
{C_text("f_18961:library_2escm"),(void*)f_18961},
{C_text("f_18965:library_2escm"),(void*)f_18965},
{C_text("f_18976:library_2escm"),(void*)f_18976},
{C_text("f_19000:library_2escm"),(void*)f_19000},
{C_text("f_19004:library_2escm"),(void*)f_19004},
{C_text("f_19010:library_2escm"),(void*)f_19010},
{C_text("f_19034:library_2escm"),(void*)f_19034},
{C_text("f_19038:library_2escm"),(void*)f_19038},
{C_text("f_19044:library_2escm"),(void*)f_19044},
{C_text("f_19061:library_2escm"),(void*)f_19061},
{C_text("f_19065:library_2escm"),(void*)f_19065},
{C_text("f_19069:library_2escm"),(void*)f_19069},
{C_text("f_19079:library_2escm"),(void*)f_19079},
{C_text("f_19085:library_2escm"),(void*)f_19085},
{C_text("f_19092:library_2escm"),(void*)f_19092},
{C_text("f_19104:library_2escm"),(void*)f_19104},
{C_text("f_19127:library_2escm"),(void*)f_19127},
{C_text("f_19131:library_2escm"),(void*)f_19131},
{C_text("f_19141:library_2escm"),(void*)f_19141},
{C_text("f_19147:library_2escm"),(void*)f_19147},
{C_text("f_19154:library_2escm"),(void*)f_19154},
{C_text("f_19169:library_2escm"),(void*)f_19169},
{C_text("f_19173:library_2escm"),(void*)f_19173},
{C_text("f_19206:library_2escm"),(void*)f_19206},
{C_text("f_19210:library_2escm"),(void*)f_19210},
{C_text("f_19227:library_2escm"),(void*)f_19227},
{C_text("f_19237:library_2escm"),(void*)f_19237},
{C_text("f_19310:library_2escm"),(void*)f_19310},
{C_text("f_19324:library_2escm"),(void*)f_19324},
{C_text("f_19341:library_2escm"),(void*)f_19341},
{C_text("f_19357:library_2escm"),(void*)f_19357},
{C_text("f_19428:library_2escm"),(void*)f_19428},
{C_text("f_19432:library_2escm"),(void*)f_19432},
{C_text("f_19437:library_2escm"),(void*)f_19437},
{C_text("f_19447:library_2escm"),(void*)f_19447},
{C_text("f_19451:library_2escm"),(void*)f_19451},
{C_text("f_19466:library_2escm"),(void*)f_19466},
{C_text("f_19470:library_2escm"),(void*)f_19470},
{C_text("f_19487:library_2escm"),(void*)f_19487},
{C_text("f_19497:library_2escm"),(void*)f_19497},
{C_text("f_19503:library_2escm"),(void*)f_19503},
{C_text("f_19514:library_2escm"),(void*)f_19514},
{C_text("f_19525:library_2escm"),(void*)f_19525},
{C_text("f_19537:library_2escm"),(void*)f_19537},
{C_text("f_19549:library_2escm"),(void*)f_19549},
{C_text("f_19561:library_2escm"),(void*)f_19561},
{C_text("f_19578:library_2escm"),(void*)f_19578},
{C_text("f_19585:library_2escm"),(void*)f_19585},
{C_text("f_19589:library_2escm"),(void*)f_19589},
{C_text("f_19591:library_2escm"),(void*)f_19591},
{C_text("f_19598:library_2escm"),(void*)f_19598},
{C_text("f_19604:library_2escm"),(void*)f_19604},
{C_text("f_19610:library_2escm"),(void*)f_19610},
{C_text("f_19653:library_2escm"),(void*)f_19653},
{C_text("f_19659:library_2escm"),(void*)f_19659},
{C_text("f_19665:library_2escm"),(void*)f_19665},
{C_text("f_19668:library_2escm"),(void*)f_19668},
{C_text("f_19674:library_2escm"),(void*)f_19674},
{C_text("f_19680:library_2escm"),(void*)f_19680},
{C_text("f_19683:library_2escm"),(void*)f_19683},
{C_text("f_19689:library_2escm"),(void*)f_19689},
{C_text("f_19693:library_2escm"),(void*)f_19693},
{C_text("f_19696:library_2escm"),(void*)f_19696},
{C_text("f_19701:library_2escm"),(void*)f_19701},
{C_text("f_19711:library_2escm"),(void*)f_19711},
{C_text("f_19731:library_2escm"),(void*)f_19731},
{C_text("f_19746:library_2escm"),(void*)f_19746},
{C_text("f_19776:library_2escm"),(void*)f_19776},
{C_text("f_19787:library_2escm"),(void*)f_19787},
{C_text("f_19803:library_2escm"),(void*)f_19803},
{C_text("f_19807:library_2escm"),(void*)f_19807},
{C_text("f_19811:library_2escm"),(void*)f_19811},
{C_text("f_19827:library_2escm"),(void*)f_19827},
{C_text("f_19845:library_2escm"),(void*)f_19845},
{C_text("f_19856:library_2escm"),(void*)f_19856},
{C_text("f_19878:library_2escm"),(void*)f_19878},
{C_text("f_19895:library_2escm"),(void*)f_19895},
{C_text("f_19898:library_2escm"),(void*)f_19898},
{C_text("f_19910:library_2escm"),(void*)f_19910},
{C_text("f_19912:library_2escm"),(void*)f_19912},
{C_text("f_19933:library_2escm"),(void*)f_19933},
{C_text("f_19964:library_2escm"),(void*)f_19964},
{C_text("f_19968:library_2escm"),(void*)f_19968},
{C_text("f_20002:library_2escm"),(void*)f_20002},
{C_text("f_20009:library_2escm"),(void*)f_20009},
{C_text("f_20021:library_2escm"),(void*)f_20021},
{C_text("f_20041:library_2escm"),(void*)f_20041},
{C_text("f_20045:library_2escm"),(void*)f_20045},
{C_text("f_20065:library_2escm"),(void*)f_20065},
{C_text("f_20085:library_2escm"),(void*)f_20085},
{C_text("f_20089:library_2escm"),(void*)f_20089},
{C_text("f_20093:library_2escm"),(void*)f_20093},
{C_text("f_20100:library_2escm"),(void*)f_20100},
{C_text("f_20116:library_2escm"),(void*)f_20116},
{C_text("f_20120:library_2escm"),(void*)f_20120},
{C_text("f_20161:library_2escm"),(void*)f_20161},
{C_text("f_20192:library_2escm"),(void*)f_20192},
{C_text("f_20220:library_2escm"),(void*)f_20220},
{C_text("f_20228:library_2escm"),(void*)f_20228},
{C_text("f_20234:library_2escm"),(void*)f_20234},
{C_text("f_20254:library_2escm"),(void*)f_20254},
{C_text("f_20279:library_2escm"),(void*)f_20279},
{C_text("f_20285:library_2escm"),(void*)f_20285},
{C_text("f_20289:library_2escm"),(void*)f_20289},
{C_text("f_20299:library_2escm"),(void*)f_20299},
{C_text("f_20319:library_2escm"),(void*)f_20319},
{C_text("f_20340:library_2escm"),(void*)f_20340},
{C_text("f_20357:library_2escm"),(void*)f_20357},
{C_text("f_20364:library_2escm"),(void*)f_20364},
{C_text("f_20369:library_2escm"),(void*)f_20369},
{C_text("f_20375:library_2escm"),(void*)f_20375},
{C_text("f_20379:library_2escm"),(void*)f_20379},
{C_text("f_20382:library_2escm"),(void*)f_20382},
{C_text("f_20389:library_2escm"),(void*)f_20389},
{C_text("f_20407:library_2escm"),(void*)f_20407},
{C_text("f_20421:library_2escm"),(void*)f_20421},
{C_text("f_20425:library_2escm"),(void*)f_20425},
{C_text("f_20462:library_2escm"),(void*)f_20462},
{C_text("f_20466:library_2escm"),(void*)f_20466},
{C_text("f_20470:library_2escm"),(void*)f_20470},
{C_text("f_20510:library_2escm"),(void*)f_20510},
{C_text("f_20513:library_2escm"),(void*)f_20513},
{C_text("f_20528:library_2escm"),(void*)f_20528},
{C_text("f_20531:library_2escm"),(void*)f_20531},
{C_text("f_20538:library_2escm"),(void*)f_20538},
{C_text("f_20549:library_2escm"),(void*)f_20549},
{C_text("f_20567:library_2escm"),(void*)f_20567},
{C_text("f_20592:library_2escm"),(void*)f_20592},
{C_text("f_20607:library_2escm"),(void*)f_20607},
{C_text("f_20635:library_2escm"),(void*)f_20635},
{C_text("f_20639:library_2escm"),(void*)f_20639},
{C_text("f_20653:library_2escm"),(void*)f_20653},
{C_text("f_20713:library_2escm"),(void*)f_20713},
{C_text("f_20742:library_2escm"),(void*)f_20742},
{C_text("f_20748:library_2escm"),(void*)f_20748},
{C_text("f_20819:library_2escm"),(void*)f_20819},
{C_text("f_20895:library_2escm"),(void*)f_20895},
{C_text("f_20901:library_2escm"),(void*)f_20901},
{C_text("f_20943:library_2escm"),(void*)f_20943},
{C_text("f_20947:library_2escm"),(void*)f_20947},
{C_text("f_20950:library_2escm"),(void*)f_20950},
{C_text("f_20999:library_2escm"),(void*)f_20999},
{C_text("f_21012:library_2escm"),(void*)f_21012},
{C_text("f_21018:library_2escm"),(void*)f_21018},
{C_text("f_21052:library_2escm"),(void*)f_21052},
{C_text("f_21062:library_2escm"),(void*)f_21062},
{C_text("f_21071:library_2escm"),(void*)f_21071},
{C_text("f_21083:library_2escm"),(void*)f_21083},
{C_text("f_21092:library_2escm"),(void*)f_21092},
{C_text("f_21104:library_2escm"),(void*)f_21104},
{C_text("f_21110:library_2escm"),(void*)f_21110},
{C_text("f_21116:library_2escm"),(void*)f_21116},
{C_text("f_21158:library_2escm"),(void*)f_21158},
{C_text("f_21264:library_2escm"),(void*)f_21264},
{C_text("f_21271:library_2escm"),(void*)f_21271},
{C_text("f_21284:library_2escm"),(void*)f_21284},
{C_text("f_21342:library_2escm"),(void*)f_21342},
{C_text("f_21360:library_2escm"),(void*)f_21360},
{C_text("f_21370:library_2escm"),(void*)f_21370},
{C_text("f_21406:library_2escm"),(void*)f_21406},
{C_text("f_21432:library_2escm"),(void*)f_21432},
{C_text("f_21443:library_2escm"),(void*)f_21443},
{C_text("f_21606:library_2escm"),(void*)f_21606},
{C_text("f_21619:library_2escm"),(void*)f_21619},
{C_text("f_21642:library_2escm"),(void*)f_21642},
{C_text("f_21674:library_2escm"),(void*)f_21674},
{C_text("f_21712:library_2escm"),(void*)f_21712},
{C_text("f_21746:library_2escm"),(void*)f_21746},
{C_text("f_21769:library_2escm"),(void*)f_21769},
{C_text("f_21846:library_2escm"),(void*)f_21846},
{C_text("f_21849:library_2escm"),(void*)f_21849},
{C_text("f_21861:library_2escm"),(void*)f_21861},
{C_text("f_21878:library_2escm"),(void*)f_21878},
{C_text("f_21952:library_2escm"),(void*)f_21952},
{C_text("f_21985:library_2escm"),(void*)f_21985},
{C_text("f_21991:library_2escm"),(void*)f_21991},
{C_text("f_22054:library_2escm"),(void*)f_22054},
{C_text("f_22139:library_2escm"),(void*)f_22139},
{C_text("f_22149:library_2escm"),(void*)f_22149},
{C_text("f_22156:library_2escm"),(void*)f_22156},
{C_text("f_22388:library_2escm"),(void*)f_22388},
{C_text("f_22434:library_2escm"),(void*)f_22434},
{C_text("f_22437:library_2escm"),(void*)f_22437},
{C_text("f_22464:library_2escm"),(void*)f_22464},
{C_text("f_22488:library_2escm"),(void*)f_22488},
{C_text("f_22505:library_2escm"),(void*)f_22505},
{C_text("f_22621:library_2escm"),(void*)f_22621},
{C_text("f_22624:library_2escm"),(void*)f_22624},
{C_text("f_22634:library_2escm"),(void*)f_22634},
{C_text("f_22636:library_2escm"),(void*)f_22636},
{C_text("f_22642:library_2escm"),(void*)f_22642},
{C_text("f_22652:library_2escm"),(void*)f_22652},
{C_text("f_22655:library_2escm"),(void*)f_22655},
{C_text("f_22663:library_2escm"),(void*)f_22663},
{C_text("f_22665:library_2escm"),(void*)f_22665},
{C_text("f_22674:library_2escm"),(void*)f_22674},
{C_text("f_22683:library_2escm"),(void*)f_22683},
{C_text("f_22694:library_2escm"),(void*)f_22694},
{C_text("f_22696:library_2escm"),(void*)f_22696},
{C_text("f_22713:library_2escm"),(void*)f_22713},
{C_text("f_22717:library_2escm"),(void*)f_22717},
{C_text("f_22721:library_2escm"),(void*)f_22721},
{C_text("f_22725:library_2escm"),(void*)f_22725},
{C_text("f_22734:library_2escm"),(void*)f_22734},
{C_text("f_22754:library_2escm"),(void*)f_22754},
{C_text("f_22762:library_2escm"),(void*)f_22762},
{C_text("f_22777:library_2escm"),(void*)f_22777},
{C_text("f_22779:library_2escm"),(void*)f_22779},
{C_text("f_22804:library_2escm"),(void*)f_22804},
{C_text("f_22813:library_2escm"),(void*)f_22813},
{C_text("f_22816:library_2escm"),(void*)f_22816},
{C_text("f_22827:library_2escm"),(void*)f_22827},
{C_text("f_22829:library_2escm"),(void*)f_22829},
{C_text("f_22836:library_2escm"),(void*)f_22836},
{C_text("f_22847:library_2escm"),(void*)f_22847},
{C_text("f_22854:library_2escm"),(void*)f_22854},
{C_text("f_22878:library_2escm"),(void*)f_22878},
{C_text("f_22891:library_2escm"),(void*)f_22891},
{C_text("f_22912:library_2escm"),(void*)f_22912},
{C_text("f_22919:library_2escm"),(void*)f_22919},
{C_text("f_22924:library_2escm"),(void*)f_22924},
{C_text("f_22937:library_2escm"),(void*)f_22937},
{C_text("f_22951:library_2escm"),(void*)f_22951},
{C_text("f_22975:library_2escm"),(void*)f_22975},
{C_text("f_22981:library_2escm"),(void*)f_22981},
{C_text("f_22990:library_2escm"),(void*)f_22990},
{C_text("f_22993:library_2escm"),(void*)f_22993},
{C_text("f_22996:library_2escm"),(void*)f_22996},
{C_text("f_23010:library_2escm"),(void*)f_23010},
{C_text("f_23012:library_2escm"),(void*)f_23012},
{C_text("f_23037:library_2escm"),(void*)f_23037},
{C_text("f_23040:library_2escm"),(void*)f_23040},
{C_text("f_23081:library_2escm"),(void*)f_23081},
{C_text("f_23106:library_2escm"),(void*)f_23106},
{C_text("f_23139:library_2escm"),(void*)f_23139},
{C_text("f_23156:library_2escm"),(void*)f_23156},
{C_text("f_23158:library_2escm"),(void*)f_23158},
{C_text("f_23168:library_2escm"),(void*)f_23168},
{C_text("f_23174:library_2escm"),(void*)f_23174},
{C_text("f_23196:library_2escm"),(void*)f_23196},
{C_text("f_23201:library_2escm"),(void*)f_23201},
{C_text("f_23206:library_2escm"),(void*)f_23206},
{C_text("f_23227:library_2escm"),(void*)f_23227},
{C_text("f_23252:library_2escm"),(void*)f_23252},
{C_text("f_23258:library_2escm"),(void*)f_23258},
{C_text("f_23264:library_2escm"),(void*)f_23264},
{C_text("f_23267:library_2escm"),(void*)f_23267},
{C_text("f_23308:library_2escm"),(void*)f_23308},
{C_text("f_23342:library_2escm"),(void*)f_23342},
{C_text("f_23345:library_2escm"),(void*)f_23345},
{C_text("f_23348:library_2escm"),(void*)f_23348},
{C_text("f_23351:library_2escm"),(void*)f_23351},
{C_text("f_23390:library_2escm"),(void*)f_23390},
{C_text("f_23396:library_2escm"),(void*)f_23396},
{C_text("f_23406:library_2escm"),(void*)f_23406},
{C_text("f_23411:library_2escm"),(void*)f_23411},
{C_text("f_23448:library_2escm"),(void*)f_23448},
{C_text("f_23455:library_2escm"),(void*)f_23455},
{C_text("f_23477:library_2escm"),(void*)f_23477},
{C_text("f_23493:library_2escm"),(void*)f_23493},
{C_text("f_23498:library_2escm"),(void*)f_23498},
{C_text("f_23529:library_2escm"),(void*)f_23529},
{C_text("f_23551:library_2escm"),(void*)f_23551},
{C_text("f_23554:library_2escm"),(void*)f_23554},
{C_text("f_23559:library_2escm"),(void*)f_23559},
{C_text("f_23577:library_2escm"),(void*)f_23577},
{C_text("f_23615:library_2escm"),(void*)f_23615},
{C_text("f_23621:library_2escm"),(void*)f_23621},
{C_text("f_23643:library_2escm"),(void*)f_23643},
{C_text("f_23646:library_2escm"),(void*)f_23646},
{C_text("f_23651:library_2escm"),(void*)f_23651},
{C_text("f_23702:library_2escm"),(void*)f_23702},
{C_text("f_23719:library_2escm"),(void*)f_23719},
{C_text("f_23726:library_2escm"),(void*)f_23726},
{C_text("f_23729:library_2escm"),(void*)f_23729},
{C_text("f_23732:library_2escm"),(void*)f_23732},
{C_text("f_23737:library_2escm"),(void*)f_23737},
{C_text("f_23809:library_2escm"),(void*)f_23809},
{C_text("f_23829:library_2escm"),(void*)f_23829},
{C_text("f_23842:library_2escm"),(void*)f_23842},
{C_text("f_23845:library_2escm"),(void*)f_23845},
{C_text("f_23848:library_2escm"),(void*)f_23848},
{C_text("f_23851:library_2escm"),(void*)f_23851},
{C_text("f_23870:library_2escm"),(void*)f_23870},
{C_text("f_23904:library_2escm"),(void*)f_23904},
{C_text("f_23982:library_2escm"),(void*)f_23982},
{C_text("f_23997:library_2escm"),(void*)f_23997},
{C_text("f_24000:library_2escm"),(void*)f_24000},
{C_text("f_24005:library_2escm"),(void*)f_24005},
{C_text("f_24015:library_2escm"),(void*)f_24015},
{C_text("f_24045:library_2escm"),(void*)f_24045},
{C_text("f_24069:library_2escm"),(void*)f_24069},
{C_text("f_24103:library_2escm"),(void*)f_24103},
{C_text("f_24126:library_2escm"),(void*)f_24126},
{C_text("f_24145:library_2escm"),(void*)f_24145},
{C_text("f_24148:library_2escm"),(void*)f_24148},
{C_text("f_24151:library_2escm"),(void*)f_24151},
{C_text("f_24156:library_2escm"),(void*)f_24156},
{C_text("f_24189:library_2escm"),(void*)f_24189},
{C_text("f_24210:library_2escm"),(void*)f_24210},
{C_text("f_24214:library_2escm"),(void*)f_24214},
{C_text("f_24217:library_2escm"),(void*)f_24217},
{C_text("f_24222:library_2escm"),(void*)f_24222},
{C_text("f_24249:library_2escm"),(void*)f_24249},
{C_text("f_24265:library_2escm"),(void*)f_24265},
{C_text("f_24281:library_2escm"),(void*)f_24281},
{C_text("f_24298:library_2escm"),(void*)f_24298},
{C_text("f_24312:library_2escm"),(void*)f_24312},
{C_text("f_24328:library_2escm"),(void*)f_24328},
{C_text("f_24341:library_2escm"),(void*)f_24341},
{C_text("f_24355:library_2escm"),(void*)f_24355},
{C_text("f_24371:library_2escm"),(void*)f_24371},
{C_text("f_24384:library_2escm"),(void*)f_24384},
{C_text("f_24398:library_2escm"),(void*)f_24398},
{C_text("f_24414:library_2escm"),(void*)f_24414},
{C_text("f_24427:library_2escm"),(void*)f_24427},
{C_text("f_24441:library_2escm"),(void*)f_24441},
{C_text("f_24457:library_2escm"),(void*)f_24457},
{C_text("f_24472:library_2escm"),(void*)f_24472},
{C_text("f_24474:library_2escm"),(void*)f_24474},
{C_text("f_24487:library_2escm"),(void*)f_24487},
{C_text("f_24515:library_2escm"),(void*)f_24515},
{C_text("f_24528:library_2escm"),(void*)f_24528},
{C_text("f_24607:library_2escm"),(void*)f_24607},
{C_text("f_24617:library_2escm"),(void*)f_24617},
{C_text("f_24620:library_2escm"),(void*)f_24620},
{C_text("f_24700:library_2escm"),(void*)f_24700},
{C_text("f_24703:library_2escm"),(void*)f_24703},
{C_text("f_24706:library_2escm"),(void*)f_24706},
{C_text("f_24709:library_2escm"),(void*)f_24709},
{C_text("f_24712:library_2escm"),(void*)f_24712},
{C_text("f_24715:library_2escm"),(void*)f_24715},
{C_text("f_24718:library_2escm"),(void*)f_24718},
{C_text("f_24721:library_2escm"),(void*)f_24721},
{C_text("f_24724:library_2escm"),(void*)f_24724},
{C_text("f_24727:library_2escm"),(void*)f_24727},
{C_text("f_24730:library_2escm"),(void*)f_24730},
{C_text("f_24733:library_2escm"),(void*)f_24733},
{C_text("f_24736:library_2escm"),(void*)f_24736},
{C_text("f_24739:library_2escm"),(void*)f_24739},
{C_text("f_24744:library_2escm"),(void*)f_24744},
{C_text("f_24750:library_2escm"),(void*)f_24750},
{C_text("f_24766:library_2escm"),(void*)f_24766},
{C_text("f_24782:library_2escm"),(void*)f_24782},
{C_text("f_24788:library_2escm"),(void*)f_24788},
{C_text("f_24808:library_2escm"),(void*)f_24808},
{C_text("f_24812:library_2escm"),(void*)f_24812},
{C_text("f_24824:library_2escm"),(void*)f_24824},
{C_text("f_24830:library_2escm"),(void*)f_24830},
{C_text("f_24836:library_2escm"),(void*)f_24836},
{C_text("f_24868:library_2escm"),(void*)f_24868},
{C_text("f_24872:library_2escm"),(void*)f_24872},
{C_text("f_24882:library_2escm"),(void*)f_24882},
{C_text("f_24897:library_2escm"),(void*)f_24897},
{C_text("f_24907:library_2escm"),(void*)f_24907},
{C_text("f_24927:library_2escm"),(void*)f_24927},
{C_text("f_24934:library_2escm"),(void*)f_24934},
{C_text("f_24943:library_2escm"),(void*)f_24943},
{C_text("f_24950:library_2escm"),(void*)f_24950},
{C_text("f_24952:library_2escm"),(void*)f_24952},
{C_text("f_24958:library_2escm"),(void*)f_24958},
{C_text("f_24964:library_2escm"),(void*)f_24964},
{C_text("f_24982:library_2escm"),(void*)f_24982},
{C_text("f_25007:library_2escm"),(void*)f_25007},
{C_text("f_25023:library_2escm"),(void*)f_25023},
{C_text("f_25030:library_2escm"),(void*)f_25030},
{C_text("f_25043:library_2escm"),(void*)f_25043},
{C_text("f_25047:library_2escm"),(void*)f_25047},
{C_text("f_25051:library_2escm"),(void*)f_25051},
{C_text("f_25053:library_2escm"),(void*)f_25053},
{C_text("f_25059:library_2escm"),(void*)f_25059},
{C_text("f_25066:library_2escm"),(void*)f_25066},
{C_text("f_25070:library_2escm"),(void*)f_25070},
{C_text("f_25079:library_2escm"),(void*)f_25079},
{C_text("f_25087:library_2escm"),(void*)f_25087},
{C_text("f_25097:library_2escm"),(void*)f_25097},
{C_text("f_25103:library_2escm"),(void*)f_25103},
{C_text("f_25106:library_2escm"),(void*)f_25106},
{C_text("f_25110:library_2escm"),(void*)f_25110},
{C_text("f_25137:library_2escm"),(void*)f_25137},
{C_text("f_25153:library_2escm"),(void*)f_25153},
{C_text("f_25159:library_2escm"),(void*)f_25159},
{C_text("f_25182:library_2escm"),(void*)f_25182},
{C_text("f_25195:library_2escm"),(void*)f_25195},
{C_text("f_25199:library_2escm"),(void*)f_25199},
{C_text("f_25208:library_2escm"),(void*)f_25208},
{C_text("f_25254:library_2escm"),(void*)f_25254},
{C_text("f_25258:library_2escm"),(void*)f_25258},
{C_text("f_25262:library_2escm"),(void*)f_25262},
{C_text("f_25265:library_2escm"),(void*)f_25265},
{C_text("f_25268:library_2escm"),(void*)f_25268},
{C_text("f_25271:library_2escm"),(void*)f_25271},
{C_text("f_25273:library_2escm"),(void*)f_25273},
{C_text("f_25284:library_2escm"),(void*)f_25284},
{C_text("f_25295:library_2escm"),(void*)f_25295},
{C_text("f_25306:library_2escm"),(void*)f_25306},
{C_text("f_25317:library_2escm"),(void*)f_25317},
{C_text("f_25330:library_2escm"),(void*)f_25330},
{C_text("f_25332:library_2escm"),(void*)f_25332},
{C_text("f_25338:library_2escm"),(void*)f_25338},
{C_text("f_25343:library_2escm"),(void*)f_25343},
{C_text("f_25378:library_2escm"),(void*)f_25378},
{C_text("f_25391:library_2escm"),(void*)f_25391},
{C_text("f_25393:library_2escm"),(void*)f_25393},
{C_text("f_25399:library_2escm"),(void*)f_25399},
{C_text("f_25404:library_2escm"),(void*)f_25404},
{C_text("f_25439:library_2escm"),(void*)f_25439},
{C_text("f_25452:library_2escm"),(void*)f_25452},
{C_text("f_25454:library_2escm"),(void*)f_25454},
{C_text("f_25460:library_2escm"),(void*)f_25460},
{C_text("f_25465:library_2escm"),(void*)f_25465},
{C_text("f_25500:library_2escm"),(void*)f_25500},
{C_text("f_25512:library_2escm"),(void*)f_25512},
{C_text("f_25514:library_2escm"),(void*)f_25514},
{C_text("f_25520:library_2escm"),(void*)f_25520},
{C_text("f_25527:library_2escm"),(void*)f_25527},
{C_text("f_25537:library_2escm"),(void*)f_25537},
{C_text("f_25540:library_2escm"),(void*)f_25540},
{C_text("f_25543:library_2escm"),(void*)f_25543},
{C_text("f_25549:library_2escm"),(void*)f_25549},
{C_text("f_25552:library_2escm"),(void*)f_25552},
{C_text("f_25559:library_2escm"),(void*)f_25559},
{C_text("f_25563:library_2escm"),(void*)f_25563},
{C_text("f_25567:library_2escm"),(void*)f_25567},
{C_text("f_25571:library_2escm"),(void*)f_25571},
{C_text("f_25577:library_2escm"),(void*)f_25577},
{C_text("f_25590:library_2escm"),(void*)f_25590},
{C_text("f_25634:library_2escm"),(void*)f_25634},
{C_text("f_25644:library_2escm"),(void*)f_25644},
{C_text("f_25757:library_2escm"),(void*)f_25757},
{C_text("f_25761:library_2escm"),(void*)f_25761},
{C_text("f_25794:library_2escm"),(void*)f_25794},
{C_text("f_25800:library_2escm"),(void*)f_25800},
{C_text("f_25806:library_2escm"),(void*)f_25806},
{C_text("f_25812:library_2escm"),(void*)f_25812},
{C_text("f_25818:library_2escm"),(void*)f_25818},
{C_text("f_25822:library_2escm"),(void*)f_25822},
{C_text("f_25827:library_2escm"),(void*)f_25827},
{C_text("f_25833:library_2escm"),(void*)f_25833},
{C_text("f_25837:library_2escm"),(void*)f_25837},
{C_text("f_25842:library_2escm"),(void*)f_25842},
{C_text("f_25846:library_2escm"),(void*)f_25846},
{C_text("f_25851:library_2escm"),(void*)f_25851},
{C_text("f_25857:library_2escm"),(void*)f_25857},
{C_text("f_25861:library_2escm"),(void*)f_25861},
{C_text("f_25866:library_2escm"),(void*)f_25866},
{C_text("f_25870:library_2escm"),(void*)f_25870},
{C_text("f_25875:library_2escm"),(void*)f_25875},
{C_text("f_25880:library_2escm"),(void*)f_25880},
{C_text("f_25886:library_2escm"),(void*)f_25886},
{C_text("f_25890:library_2escm"),(void*)f_25890},
{C_text("f_25895:library_2escm"),(void*)f_25895},
{C_text("f_25900:library_2escm"),(void*)f_25900},
{C_text("f_25904:library_2escm"),(void*)f_25904},
{C_text("f_25909:library_2escm"),(void*)f_25909},
{C_text("f_25914:library_2escm"),(void*)f_25914},
{C_text("f_25920:library_2escm"),(void*)f_25920},
{C_text("f_25924:library_2escm"),(void*)f_25924},
{C_text("f_25929:library_2escm"),(void*)f_25929},
{C_text("f_25934:library_2escm"),(void*)f_25934},
{C_text("f_25939:library_2escm"),(void*)f_25939},
{C_text("f_25960:library_2escm"),(void*)f_25960},
{C_text("f_25967:library_2escm"),(void*)f_25967},
{C_text("f_25973:library_2escm"),(void*)f_25973},
{C_text("f_25991:library_2escm"),(void*)f_25991},
{C_text("f_26000:library_2escm"),(void*)f_26000},
{C_text("f_26013:library_2escm"),(void*)f_26013},
{C_text("f_26021:library_2escm"),(void*)f_26021},
{C_text("f_26026:library_2escm"),(void*)f_26026},
{C_text("f_26063:library_2escm"),(void*)f_26063},
{C_text("f_26075:library_2escm"),(void*)f_26075},
{C_text("f_26085:library_2escm"),(void*)f_26085},
{C_text("f_26101:library_2escm"),(void*)f_26101},
{C_text("f_26114:library_2escm"),(void*)f_26114},
{C_text("f_26124:library_2escm"),(void*)f_26124},
{C_text("f_26130:library_2escm"),(void*)f_26130},
{C_text("f_26143:library_2escm"),(void*)f_26143},
{C_text("f_26149:library_2escm"),(void*)f_26149},
{C_text("f_26156:library_2escm"),(void*)f_26156},
{C_text("f_26163:library_2escm"),(void*)f_26163},
{C_text("f_26167:library_2escm"),(void*)f_26167},
{C_text("f_26170:library_2escm"),(void*)f_26170},
{C_text("f_26180:library_2escm"),(void*)f_26180},
{C_text("f_26184:library_2escm"),(void*)f_26184},
{C_text("f_26192:library_2escm"),(void*)f_26192},
{C_text("f_26195:library_2escm"),(void*)f_26195},
{C_text("f_26202:library_2escm"),(void*)f_26202},
{C_text("f_26205:library_2escm"),(void*)f_26205},
{C_text("f_26208:library_2escm"),(void*)f_26208},
{C_text("f_26211:library_2escm"),(void*)f_26211},
{C_text("f_26219:library_2escm"),(void*)f_26219},
{C_text("f_26227:library_2escm"),(void*)f_26227},
{C_text("f_26229:library_2escm"),(void*)f_26229},
{C_text("f_26245:library_2escm"),(void*)f_26245},
{C_text("f_26272:library_2escm"),(void*)f_26272},
{C_text("f_26276:library_2escm"),(void*)f_26276},
{C_text("f_26280:library_2escm"),(void*)f_26280},
{C_text("f_26284:library_2escm"),(void*)f_26284},
{C_text("f_26288:library_2escm"),(void*)f_26288},
{C_text("f_26292:library_2escm"),(void*)f_26292},
{C_text("f_26296:library_2escm"),(void*)f_26296},
{C_text("f_26300:library_2escm"),(void*)f_26300},
{C_text("f_26304:library_2escm"),(void*)f_26304},
{C_text("f_26308:library_2escm"),(void*)f_26308},
{C_text("f_26312:library_2escm"),(void*)f_26312},
{C_text("f_26316:library_2escm"),(void*)f_26316},
{C_text("f_26320:library_2escm"),(void*)f_26320},
{C_text("f_26324:library_2escm"),(void*)f_26324},
{C_text("f_26328:library_2escm"),(void*)f_26328},
{C_text("f_26332:library_2escm"),(void*)f_26332},
{C_text("f_26336:library_2escm"),(void*)f_26336},
{C_text("f_26340:library_2escm"),(void*)f_26340},
{C_text("f_26347:library_2escm"),(void*)f_26347},
{C_text("f_26354:library_2escm"),(void*)f_26354},
{C_text("f_26355:library_2escm"),(void*)f_26355},
{C_text("f_26359:library_2escm"),(void*)f_26359},
{C_text("f_26362:library_2escm"),(void*)f_26362},
{C_text("f_26378:library_2escm"),(void*)f_26378},
{C_text("f_26389:library_2escm"),(void*)f_26389},
{C_text("f_26397:library_2escm"),(void*)f_26397},
{C_text("f_26409:library_2escm"),(void*)f_26409},
{C_text("f_26418:library_2escm"),(void*)f_26418},
{C_text("f_26423:library_2escm"),(void*)f_26423},
{C_text("f_26479:library_2escm"),(void*)f_26479},
{C_text("f_26493:library_2escm"),(void*)f_26493},
{C_text("f_26505:library_2escm"),(void*)f_26505},
{C_text("f_26511:library_2escm"),(void*)f_26511},
{C_text("f_26536:library_2escm"),(void*)f_26536},
{C_text("f_26561:library_2escm"),(void*)f_26561},
{C_text("f_26579:library_2escm"),(void*)f_26579},
{C_text("f_26583:library_2escm"),(void*)f_26583},
{C_text("f_26639:library_2escm"),(void*)f_26639},
{C_text("f_26648:library_2escm"),(void*)f_26648},
{C_text("f_26661:library_2escm"),(void*)f_26661},
{C_text("f_26673:library_2escm"),(void*)f_26673},
{C_text("f_26691:library_2escm"),(void*)f_26691},
{C_text("f_26711:library_2escm"),(void*)f_26711},
{C_text("f_26714:library_2escm"),(void*)f_26714},
{C_text("f_26719:library_2escm"),(void*)f_26719},
{C_text("f_26721:library_2escm"),(void*)f_26721},
{C_text("f_26729:library_2escm"),(void*)f_26729},
{C_text("f_26733:library_2escm"),(void*)f_26733},
{C_text("f_26737:library_2escm"),(void*)f_26737},
{C_text("f_26741:library_2escm"),(void*)f_26741},
{C_text("f_26745:library_2escm"),(void*)f_26745},
{C_text("f_26747:library_2escm"),(void*)f_26747},
{C_text("f_26755:library_2escm"),(void*)f_26755},
{C_text("f_26758:library_2escm"),(void*)f_26758},
{C_text("f_26768:library_2escm"),(void*)f_26768},
{C_text("f_26770:library_2escm"),(void*)f_26770},
{C_text("f_26778:library_2escm"),(void*)f_26778},
{C_text("f_26781:library_2escm"),(void*)f_26781},
{C_text("f_26791:library_2escm"),(void*)f_26791},
{C_text("f_26793:library_2escm"),(void*)f_26793},
{C_text("f_26800:library_2escm"),(void*)f_26800},
{C_text("f_26803:library_2escm"),(void*)f_26803},
{C_text("f_26806:library_2escm"),(void*)f_26806},
{C_text("f_26809:library_2escm"),(void*)f_26809},
{C_text("f_26811:library_2escm"),(void*)f_26811},
{C_text("f_26817:library_2escm"),(void*)f_26817},
{C_text("f_26826:library_2escm"),(void*)f_26826},
{C_text("f_26834:library_2escm"),(void*)f_26834},
{C_text("f_26836:library_2escm"),(void*)f_26836},
{C_text("f_26850:library_2escm"),(void*)f_26850},
{C_text("f_26863:library_2escm"),(void*)f_26863},
{C_text("f_26867:library_2escm"),(void*)f_26867},
{C_text("f_26872:library_2escm"),(void*)f_26872},
{C_text("f_26876:library_2escm"),(void*)f_26876},
{C_text("f_26887:library_2escm"),(void*)f_26887},
{C_text("f_26898:library_2escm"),(void*)f_26898},
{C_text("f_26902:library_2escm"),(void*)f_26902},
{C_text("f_26926:library_2escm"),(void*)f_26926},
{C_text("f_26932:library_2escm"),(void*)f_26932},
{C_text("f_26942:library_2escm"),(void*)f_26942},
{C_text("f_26961:library_2escm"),(void*)f_26961},
{C_text("f_26985:library_2escm"),(void*)f_26985},
{C_text("f_27007:library_2escm"),(void*)f_27007},
{C_text("f_27020:library_2escm"),(void*)f_27020},
{C_text("f_27040:library_2escm"),(void*)f_27040},
{C_text("f_27046:library_2escm"),(void*)f_27046},
{C_text("f_27049:library_2escm"),(void*)f_27049},
{C_text("f_27057:library_2escm"),(void*)f_27057},
{C_text("f_27059:library_2escm"),(void*)f_27059},
{C_text("f_27072:library_2escm"),(void*)f_27072},
{C_text("f_27079:library_2escm"),(void*)f_27079},
{C_text("f_27088:library_2escm"),(void*)f_27088},
{C_text("f_27095:library_2escm"),(void*)f_27095},
{C_text("f_27097:library_2escm"),(void*)f_27097},
{C_text("f_27103:library_2escm"),(void*)f_27103},
{C_text("f_27113:library_2escm"),(void*)f_27113},
{C_text("f_27116:library_2escm"),(void*)f_27116},
{C_text("f_27126:library_2escm"),(void*)f_27126},
{C_text("f_27129:library_2escm"),(void*)f_27129},
{C_text("f_27157:library_2escm"),(void*)f_27157},
{C_text("f_27160:library_2escm"),(void*)f_27160},
{C_text("f_27164:library_2escm"),(void*)f_27164},
{C_text("f_27167:library_2escm"),(void*)f_27167},
{C_text("f_27177:library_2escm"),(void*)f_27177},
{C_text("f_27179:library_2escm"),(void*)f_27179},
{C_text("f_27183:library_2escm"),(void*)f_27183},
{C_text("f_27192:library_2escm"),(void*)f_27192},
{C_text("f_27196:library_2escm"),(void*)f_27196},
{C_text("f_27214:library_2escm"),(void*)f_27214},
{C_text("f_27235:library_2escm"),(void*)f_27235},
{C_text("f_27247:library_2escm"),(void*)f_27247},
{C_text("f_27258:library_2escm"),(void*)f_27258},
{C_text("f_27261:library_2escm"),(void*)f_27261},
{C_text("f_27297:library_2escm"),(void*)f_27297},
{C_text("f_27305:library_2escm"),(void*)f_27305},
{C_text("f_27307:library_2escm"),(void*)f_27307},
{C_text("f_27324:library_2escm"),(void*)f_27324},
{C_text("f_27337:library_2escm"),(void*)f_27337},
{C_text("f_27354:library_2escm"),(void*)f_27354},
{C_text("f_27371:library_2escm"),(void*)f_27371},
{C_text("f_27388:library_2escm"),(void*)f_27388},
{C_text("f_27405:library_2escm"),(void*)f_27405},
{C_text("f_27426:library_2escm"),(void*)f_27426},
{C_text("f_27447:library_2escm"),(void*)f_27447},
{C_text("f_27464:library_2escm"),(void*)f_27464},
{C_text("f_27471:library_2escm"),(void*)f_27471},
{C_text("f_27479:library_2escm"),(void*)f_27479},
{C_text("f_27488:library_2escm"),(void*)f_27488},
{C_text("f_27495:library_2escm"),(void*)f_27495},
{C_text("f_27503:library_2escm"),(void*)f_27503},
{C_text("f_27512:library_2escm"),(void*)f_27512},
{C_text("f_27519:library_2escm"),(void*)f_27519},
{C_text("f_27527:library_2escm"),(void*)f_27527},
{C_text("f_27536:library_2escm"),(void*)f_27536},
{C_text("f_27543:library_2escm"),(void*)f_27543},
{C_text("f_27556:library_2escm"),(void*)f_27556},
{C_text("f_27561:library_2escm"),(void*)f_27561},
{C_text("f_27578:library_2escm"),(void*)f_27578},
{C_text("f_27593:library_2escm"),(void*)f_27593},
{C_text("f_27606:library_2escm"),(void*)f_27606},
{C_text("f_27628:library_2escm"),(void*)f_27628},
{C_text("f_27631:library_2escm"),(void*)f_27631},
{C_text("f_27660:library_2escm"),(void*)f_27660},
{C_text("f_27663:library_2escm"),(void*)f_27663},
{C_text("f_27670:library_2escm"),(void*)f_27670},
{C_text("f_27686:library_2escm"),(void*)f_27686},
{C_text("f_27697:library_2escm"),(void*)f_27697},
{C_text("f_27704:library_2escm"),(void*)f_27704},
{C_text("f_27802:library_2escm"),(void*)f_27802},
{C_text("f_27808:library_2escm"),(void*)f_27808},
{C_text("f_27817:library_2escm"),(void*)f_27817},
{C_text("f_27831:library_2escm"),(void*)f_27831},
{C_text("f_27834:library_2escm"),(void*)f_27834},
{C_text("f_27845:library_2escm"),(void*)f_27845},
{C_text("f_27847:library_2escm"),(void*)f_27847},
{C_text("f_27850:library_2escm"),(void*)f_27850},
{C_text("f_27867:library_2escm"),(void*)f_27867},
{C_text("f_27872:library_2escm"),(void*)f_27872},
{C_text("f_27876:library_2escm"),(void*)f_27876},
{C_text("f_27879:library_2escm"),(void*)f_27879},
{C_text("f_27882:library_2escm"),(void*)f_27882},
{C_text("f_27892:library_2escm"),(void*)f_27892},
{C_text("f_27910:library_2escm"),(void*)f_27910},
{C_text("f_27913:library_2escm"),(void*)f_27913},
{C_text("f_27922:library_2escm"),(void*)f_27922},
{C_text("f_27925:library_2escm"),(void*)f_27925},
{C_text("f_27928:library_2escm"),(void*)f_27928},
{C_text("f_27934:library_2escm"),(void*)f_27934},
{C_text("f_27947:library_2escm"),(void*)f_27947},
{C_text("f_27951:library_2escm"),(void*)f_27951},
{C_text("f_27955:library_2escm"),(void*)f_27955},
{C_text("f_27966:library_2escm"),(void*)f_27966},
{C_text("f_27970:library_2escm"),(void*)f_27970},
{C_text("f_27973:library_2escm"),(void*)f_27973},
{C_text("f_28001:library_2escm"),(void*)f_28001},
{C_text("f_28056:library_2escm"),(void*)f_28056},
{C_text("f_28060:library_2escm"),(void*)f_28060},
{C_text("f_28067:library_2escm"),(void*)f_28067},
{C_text("f_28069:library_2escm"),(void*)f_28069},
{C_text("f_28073:library_2escm"),(void*)f_28073},
{C_text("f_28087:library_2escm"),(void*)f_28087},
{C_text("f_28093:library_2escm"),(void*)f_28093},
{C_text("f_28100:library_2escm"),(void*)f_28100},
{C_text("f_28107:library_2escm"),(void*)f_28107},
{C_text("f_28127:library_2escm"),(void*)f_28127},
{C_text("f_28156:library_2escm"),(void*)f_28156},
{C_text("f_28166:library_2escm"),(void*)f_28166},
{C_text("f_28169:library_2escm"),(void*)f_28169},
{C_text("f_28205:library_2escm"),(void*)f_28205},
{C_text("f_28207:library_2escm"),(void*)f_28207},
{C_text("f_28217:library_2escm"),(void*)f_28217},
{C_text("f_28220:library_2escm"),(void*)f_28220},
{C_text("f_28272:library_2escm"),(void*)f_28272},
{C_text("f_28274:library_2escm"),(void*)f_28274},
{C_text("f_28282:library_2escm"),(void*)f_28282},
{C_text("f_28284:library_2escm"),(void*)f_28284},
{C_text("f_28294:library_2escm"),(void*)f_28294},
{C_text("f_28309:library_2escm"),(void*)f_28309},
{C_text("f_28316:library_2escm"),(void*)f_28316},
{C_text("f_28335:library_2escm"),(void*)f_28335},
{C_text("f_28343:library_2escm"),(void*)f_28343},
{C_text("f_28345:library_2escm"),(void*)f_28345},
{C_text("f_28361:library_2escm"),(void*)f_28361},
{C_text("f_28368:library_2escm"),(void*)f_28368},
{C_text("f_28381:library_2escm"),(void*)f_28381},
{C_text("f_28387:library_2escm"),(void*)f_28387},
{C_text("f_28391:library_2escm"),(void*)f_28391},
{C_text("f_28398:library_2escm"),(void*)f_28398},
{C_text("f_28406:library_2escm"),(void*)f_28406},
{C_text("f_28411:library_2escm"),(void*)f_28411},
{C_text("f_28416:library_2escm"),(void*)f_28416},
{C_text("f_28420:library_2escm"),(void*)f_28420},
{C_text("f_28429:library_2escm"),(void*)f_28429},
{C_text("f_28435:library_2escm"),(void*)f_28435},
{C_text("f_28442:library_2escm"),(void*)f_28442},
{C_text("f_28459:library_2escm"),(void*)f_28459},
{C_text("f_28465:library_2escm"),(void*)f_28465},
{C_text("f_28475:library_2escm"),(void*)f_28475},
{C_text("f_28526:library_2escm"),(void*)f_28526},
{C_text("f_28535:library_2escm"),(void*)f_28535},
{C_text("f_28542:library_2escm"),(void*)f_28542},
{C_text("f_28546:library_2escm"),(void*)f_28546},
{C_text("f_28550:library_2escm"),(void*)f_28550},
{C_text("f_28559:library_2escm"),(void*)f_28559},
{C_text("f_28570:library_2escm"),(void*)f_28570},
{C_text("f_28592:library_2escm"),(void*)f_28592},
{C_text("f_28648:library_2escm"),(void*)f_28648},
{C_text("f_28652:library_2escm"),(void*)f_28652},
{C_text("f_28654:library_2escm"),(void*)f_28654},
{C_text("f_28658:library_2escm"),(void*)f_28658},
{C_text("f_28661:library_2escm"),(void*)f_28661},
{C_text("f_28673:library_2escm"),(void*)f_28673},
{C_text("f_28693:library_2escm"),(void*)f_28693},
{C_text("f_28699:library_2escm"),(void*)f_28699},
{C_text("f_28709:library_2escm"),(void*)f_28709},
{C_text("f_28846:library_2escm"),(void*)f_28846},
{C_text("f_28853:library_2escm"),(void*)f_28853},
{C_text("f_28871:library_2escm"),(void*)f_28871},
{C_text("f_28877:library_2escm"),(void*)f_28877},
{C_text("f_28881:library_2escm"),(void*)f_28881},
{C_text("f_28917:library_2escm"),(void*)f_28917},
{C_text("f_28940:library_2escm"),(void*)f_28940},
{C_text("f_28958:library_2escm"),(void*)f_28958},
{C_text("f_28962:library_2escm"),(void*)f_28962},
{C_text("f_28969:library_2escm"),(void*)f_28969},
{C_text("f_28971:library_2escm"),(void*)f_28971},
{C_text("f_28975:library_2escm"),(void*)f_28975},
{C_text("f_28986:library_2escm"),(void*)f_28986},
{C_text("f_29006:library_2escm"),(void*)f_29006},
{C_text("f_29009:library_2escm"),(void*)f_29009},
{C_text("f_29012:library_2escm"),(void*)f_29012},
{C_text("f_29029:library_2escm"),(void*)f_29029},
{C_text("f_29038:library_2escm"),(void*)f_29038},
{C_text("f_29060:library_2escm"),(void*)f_29060},
{C_text("f_29072:library_2escm"),(void*)f_29072},
{C_text("f_29084:library_2escm"),(void*)f_29084},
{C_text("f_29093:library_2escm"),(void*)f_29093},
{C_text("f_29103:library_2escm"),(void*)f_29103},
{C_text("f_29112:library_2escm"),(void*)f_29112},
{C_text("f_29115:library_2escm"),(void*)f_29115},
{C_text("f_29133:library_2escm"),(void*)f_29133},
{C_text("f_29136:library_2escm"),(void*)f_29136},
{C_text("f_29157:library_2escm"),(void*)f_29157},
{C_text("f_29163:library_2escm"),(void*)f_29163},
{C_text("f_29166:library_2escm"),(void*)f_29166},
{C_text("f_29176:library_2escm"),(void*)f_29176},
{C_text("f_29191:library_2escm"),(void*)f_29191},
{C_text("f_29195:library_2escm"),(void*)f_29195},
{C_text("f_29201:library_2escm"),(void*)f_29201},
{C_text("f_29210:library_2escm"),(void*)f_29210},
{C_text("f_29241:library_2escm"),(void*)f_29241},
{C_text("f_29266:library_2escm"),(void*)f_29266},
{C_text("f_29283:library_2escm"),(void*)f_29283},
{C_text("f_29292:library_2escm"),(void*)f_29292},
{C_text("f_29317:library_2escm"),(void*)f_29317},
{C_text("f_29329:library_2escm"),(void*)f_29329},
{C_text("f_29341:library_2escm"),(void*)f_29341},
{C_text("f_29353:library_2escm"),(void*)f_29353},
{C_text("f_29365:library_2escm"),(void*)f_29365},
{C_text("f_29377:library_2escm"),(void*)f_29377},
{C_text("f_29398:library_2escm"),(void*)f_29398},
{C_text("f_29410:library_2escm"),(void*)f_29410},
{C_text("f_29413:library_2escm"),(void*)f_29413},
{C_text("f_29425:library_2escm"),(void*)f_29425},
{C_text("f_29437:library_2escm"),(void*)f_29437},
{C_text("f_29440:library_2escm"),(void*)f_29440},
{C_text("f_29452:library_2escm"),(void*)f_29452},
{C_text("f_29464:library_2escm"),(void*)f_29464},
{C_text("f_29476:library_2escm"),(void*)f_29476},
{C_text("f_29479:library_2escm"),(void*)f_29479},
{C_text("f_29484:library_2escm"),(void*)f_29484},
{C_text("f_29489:library_2escm"),(void*)f_29489},
{C_text("f_29495:library_2escm"),(void*)f_29495},
{C_text("f_29524:library_2escm"),(void*)f_29524},
{C_text("f_29536:library_2escm"),(void*)f_29536},
{C_text("f_29539:library_2escm"),(void*)f_29539},
{C_text("f_29542:library_2escm"),(void*)f_29542},
{C_text("f_29557:library_2escm"),(void*)f_29557},
{C_text("f_29566:library_2escm"),(void*)f_29566},
{C_text("f_29569:library_2escm"),(void*)f_29569},
{C_text("f_29575:library_2escm"),(void*)f_29575},
{C_text("f_29578:library_2escm"),(void*)f_29578},
{C_text("f_29584:library_2escm"),(void*)f_29584},
{C_text("f_29631:library_2escm"),(void*)f_29631},
{C_text("f_29650:library_2escm"),(void*)f_29650},
{C_text("f_29666:library_2escm"),(void*)f_29666},
{C_text("f_29672:library_2escm"),(void*)f_29672},
{C_text("f_29738:library_2escm"),(void*)f_29738},
{C_text("f_29750:library_2escm"),(void*)f_29750},
{C_text("f_29828:library_2escm"),(void*)f_29828},
{C_text("f_29898:library_2escm"),(void*)f_29898},
{C_text("f_29901:library_2escm"),(void*)f_29901},
{C_text("f_29904:library_2escm"),(void*)f_29904},
{C_text("f_29912:library_2escm"),(void*)f_29912},
{C_text("f_29922:library_2escm"),(void*)f_29922},
{C_text("f_29927:library_2escm"),(void*)f_29927},
{C_text("f_29930:library_2escm"),(void*)f_29930},
{C_text("f_29943:library_2escm"),(void*)f_29943},
{C_text("f_29946:library_2escm"),(void*)f_29946},
{C_text("f_29982:library_2escm"),(void*)f_29982},
{C_text("f_29998:library_2escm"),(void*)f_29998},
{C_text("f_30048:library_2escm"),(void*)f_30048},
{C_text("f_30052:library_2escm"),(void*)f_30052},
{C_text("f_30079:library_2escm"),(void*)f_30079},
{C_text("f_30085:library_2escm"),(void*)f_30085},
{C_text("f_30101:library_2escm"),(void*)f_30101},
{C_text("f_30141:library_2escm"),(void*)f_30141},
{C_text("f_30143:library_2escm"),(void*)f_30143},
{C_text("f_30150:library_2escm"),(void*)f_30150},
{C_text("f_30207:library_2escm"),(void*)f_30207},
{C_text("f_30214:library_2escm"),(void*)f_30214},
{C_text("f_30223:library_2escm"),(void*)f_30223},
{C_text("f_30235:library_2escm"),(void*)f_30235},
{C_text("f_30256:library_2escm"),(void*)f_30256},
{C_text("f_30271:library_2escm"),(void*)f_30271},
{C_text("f_30289:library_2escm"),(void*)f_30289},
{C_text("f_30307:library_2escm"),(void*)f_30307},
{C_text("f_30326:library_2escm"),(void*)f_30326},
{C_text("f_30336:library_2escm"),(void*)f_30336},
{C_text("f_30350:library_2escm"),(void*)f_30350},
{C_text("f_30353:library_2escm"),(void*)f_30353},
{C_text("f_30358:library_2escm"),(void*)f_30358},
{C_text("f_30377:library_2escm"),(void*)f_30377},
{C_text("f_30387:library_2escm"),(void*)f_30387},
{C_text("f_30401:library_2escm"),(void*)f_30401},
{C_text("f_30404:library_2escm"),(void*)f_30404},
{C_text("f_30411:library_2escm"),(void*)f_30411},
{C_text("f_30415:library_2escm"),(void*)f_30415},
{C_text("f_30419:library_2escm"),(void*)f_30419},
{C_text("f_30421:library_2escm"),(void*)f_30421},
{C_text("f_30428:library_2escm"),(void*)f_30428},
{C_text("f_30431:library_2escm"),(void*)f_30431},
{C_text("f_30434:library_2escm"),(void*)f_30434},
{C_text("f_30437:library_2escm"),(void*)f_30437},
{C_text("f_30439:library_2escm"),(void*)f_30439},
{C_text("f_30449:library_2escm"),(void*)f_30449},
{C_text("f_30455:library_2escm"),(void*)f_30455},
{C_text("f_30467:library_2escm"),(void*)f_30467},
{C_text("f_30470:library_2escm"),(void*)f_30470},
{C_text("f_30473:library_2escm"),(void*)f_30473},
{C_text("f_30490:library_2escm"),(void*)f_30490},
{C_text("f_30498:library_2escm"),(void*)f_30498},
{C_text("f_30522:library_2escm"),(void*)f_30522},
{C_text("f_30526:library_2escm"),(void*)f_30526},
{C_text("f_30539:library_2escm"),(void*)f_30539},
{C_text("f_30542:library_2escm"),(void*)f_30542},
{C_text("f_30551:library_2escm"),(void*)f_30551},
{C_text("f_30554:library_2escm"),(void*)f_30554},
{C_text("f_30582:library_2escm"),(void*)f_30582},
{C_text("f_30586:library_2escm"),(void*)f_30586},
{C_text("f_30595:library_2escm"),(void*)f_30595},
{C_text("f_30612:library_2escm"),(void*)f_30612},
{C_text("f_30619:library_2escm"),(void*)f_30619},
{C_text("f_30624:library_2escm"),(void*)f_30624},
{C_text("f_30648:library_2escm"),(void*)f_30648},
{C_text("f_30654:library_2escm"),(void*)f_30654},
{C_text("f_30657:library_2escm"),(void*)f_30657},
{C_text("f_30668:library_2escm"),(void*)f_30668},
{C_text("f_30671:library_2escm"),(void*)f_30671},
{C_text("f_30674:library_2escm"),(void*)f_30674},
{C_text("f_30697:library_2escm"),(void*)f_30697},
{C_text("f_30748:library_2escm"),(void*)f_30748},
{C_text("f_30823:library_2escm"),(void*)f_30823},
{C_text("f_30923:library_2escm"),(void*)f_30923},
{C_text("f_30928:library_2escm"),(void*)f_30928},
{C_text("f_30983:library_2escm"),(void*)f_30983},
{C_text("f_30989:library_2escm"),(void*)f_30989},
{C_text("f_30993:library_2escm"),(void*)f_30993},
{C_text("f_31001:library_2escm"),(void*)f_31001},
{C_text("f_31016:library_2escm"),(void*)f_31016},
{C_text("f_31023:library_2escm"),(void*)f_31023},
{C_text("f_31042:library_2escm"),(void*)f_31042},
{C_text("f_31078:library_2escm"),(void*)f_31078},
{C_text("f_31090:library_2escm"),(void*)f_31090},
{C_text("f_31096:library_2escm"),(void*)f_31096},
{C_text("f_31125:library_2escm"),(void*)f_31125},
{C_text("f_31135:library_2escm"),(void*)f_31135},
{C_text("f_31144:library_2escm"),(void*)f_31144},
{C_text("f_31153:library_2escm"),(void*)f_31153},
{C_text("f_31169:library_2escm"),(void*)f_31169},
{C_text("f_31207:library_2escm"),(void*)f_31207},
{C_text("f_31273:library_2escm"),(void*)f_31273},
{C_text("f_31276:library_2escm"),(void*)f_31276},
{C_text("f_31279:library_2escm"),(void*)f_31279},
{C_text("f_31286:library_2escm"),(void*)f_31286},
{C_text("f_31330:library_2escm"),(void*)f_31330},
{C_text("f_31333:library_2escm"),(void*)f_31333},
{C_text("f_31342:library_2escm"),(void*)f_31342},
{C_text("f_31355:library_2escm"),(void*)f_31355},
{C_text("f_31364:library_2escm"),(void*)f_31364},
{C_text("f_31374:library_2escm"),(void*)f_31374},
{C_text("f_31377:library_2escm"),(void*)f_31377},
{C_text("f_31403:library_2escm"),(void*)f_31403},
{C_text("f_31410:library_2escm"),(void*)f_31410},
{C_text("f_31426:library_2escm"),(void*)f_31426},
{C_text("f_31438:library_2escm"),(void*)f_31438},
{C_text("f_31441:library_2escm"),(void*)f_31441},
{C_text("f_31448:library_2escm"),(void*)f_31448},
{C_text("f_31457:library_2escm"),(void*)f_31457},
{C_text("f_31460:library_2escm"),(void*)f_31460},
{C_text("f_31507:library_2escm"),(void*)f_31507},
{C_text("f_31510:library_2escm"),(void*)f_31510},
{C_text("f_31519:library_2escm"),(void*)f_31519},
{C_text("f_31532:library_2escm"),(void*)f_31532},
{C_text("f_31535:library_2escm"),(void*)f_31535},
{C_text("f_31560:library_2escm"),(void*)f_31560},
{C_text("f_31564:library_2escm"),(void*)f_31564},
{C_text("f_31574:library_2escm"),(void*)f_31574},
{C_text("f_31577:library_2escm"),(void*)f_31577},
{C_text("f_31589:library_2escm"),(void*)f_31589},
{C_text("f_31593:library_2escm"),(void*)f_31593},
{C_text("f_31615:library_2escm"),(void*)f_31615},
{C_text("f_31617:library_2escm"),(void*)f_31617},
{C_text("f_31633:library_2escm"),(void*)f_31633},
{C_text("f_31638:library_2escm"),(void*)f_31638},
{C_text("f_31644:library_2escm"),(void*)f_31644},
{C_text("f_31650:library_2escm"),(void*)f_31650},
{C_text("f_31654:library_2escm"),(void*)f_31654},
{C_text("f_31657:library_2escm"),(void*)f_31657},
{C_text("f_31672:library_2escm"),(void*)f_31672},
{C_text("f_31675:library_2escm"),(void*)f_31675},
{C_text("f_31691:library_2escm"),(void*)f_31691},
{C_text("f_31697:library_2escm"),(void*)f_31697},
{C_text("f_31706:library_2escm"),(void*)f_31706},
{C_text("f_31712:library_2escm"),(void*)f_31712},
{C_text("f_31719:library_2escm"),(void*)f_31719},
{C_text("f_31722:library_2escm"),(void*)f_31722},
{C_text("f_31725:library_2escm"),(void*)f_31725},
{C_text("f_31734:library_2escm"),(void*)f_31734},
{C_text("f_31750:library_2escm"),(void*)f_31750},
{C_text("f_31769:library_2escm"),(void*)f_31769},
{C_text("f_31775:library_2escm"),(void*)f_31775},
{C_text("f_31781:library_2escm"),(void*)f_31781},
{C_text("f_31785:library_2escm"),(void*)f_31785},
{C_text("f_31788:library_2escm"),(void*)f_31788},
{C_text("f_31791:library_2escm"),(void*)f_31791},
{C_text("f_31795:library_2escm"),(void*)f_31795},
{C_text("f_31799:library_2escm"),(void*)f_31799},
{C_text("f_31803:library_2escm"),(void*)f_31803},
{C_text("f_31806:library_2escm"),(void*)f_31806},
{C_text("f_31809:library_2escm"),(void*)f_31809},
{C_text("f_31812:library_2escm"),(void*)f_31812},
{C_text("f_31824:library_2escm"),(void*)f_31824},
{C_text("f_31830:library_2escm"),(void*)f_31830},
{C_text("f_31834:library_2escm"),(void*)f_31834},
{C_text("f_31837:library_2escm"),(void*)f_31837},
{C_text("f_31840:library_2escm"),(void*)f_31840},
{C_text("f_31843:library_2escm"),(void*)f_31843},
{C_text("f_31846:library_2escm"),(void*)f_31846},
{C_text("f_31849:library_2escm"),(void*)f_31849},
{C_text("f_31854:library_2escm"),(void*)f_31854},
{C_text("f_31876:library_2escm"),(void*)f_31876},
{C_text("f_31882:library_2escm"),(void*)f_31882},
{C_text("f_31907:library_2escm"),(void*)f_31907},
{C_text("f_31914:library_2escm"),(void*)f_31914},
{C_text("f_31916:library_2escm"),(void*)f_31916},
{C_text("f_31923:library_2escm"),(void*)f_31923},
{C_text("f_31927:library_2escm"),(void*)f_31927},
{C_text("f_31934:library_2escm"),(void*)f_31934},
{C_text("f_31950:library_2escm"),(void*)f_31950},
{C_text("f_31954:library_2escm"),(void*)f_31954},
{C_text("f_31970:library_2escm"),(void*)f_31970},
{C_text("f_31985:library_2escm"),(void*)f_31985},
{C_text("f_31995:library_2escm"),(void*)f_31995},
{C_text("f_32000:library_2escm"),(void*)f_32000},
{C_text("f_32006:library_2escm"),(void*)f_32006},
{C_text("f_32020:library_2escm"),(void*)f_32020},
{C_text("f_32029:library_2escm"),(void*)f_32029},
{C_text("f_32040:library_2escm"),(void*)f_32040},
{C_text("f_32046:library_2escm"),(void*)f_32046},
{C_text("f_32049:library_2escm"),(void*)f_32049},
{C_text("f_32060:library_2escm"),(void*)f_32060},
{C_text("f_32069:library_2escm"),(void*)f_32069},
{C_text("f_32074:library_2escm"),(void*)f_32074},
{C_text("f_32080:library_2escm"),(void*)f_32080},
{C_text("f_32101:library_2escm"),(void*)f_32101},
{C_text("f_32104:library_2escm"),(void*)f_32104},
{C_text("f_32111:library_2escm"),(void*)f_32111},
{C_text("f_32118:library_2escm"),(void*)f_32118},
{C_text("f_32127:library_2escm"),(void*)f_32127},
{C_text("f_32138:library_2escm"),(void*)f_32138},
{C_text("f_32184:library_2escm"),(void*)f_32184},
{C_text("f_32188:library_2escm"),(void*)f_32188},
{C_text("f_32189:library_2escm"),(void*)f_32189},
{C_text("f_32199:library_2escm"),(void*)f_32199},
{C_text("f_32204:library_2escm"),(void*)f_32204},
{C_text("f_32214:library_2escm"),(void*)f_32214},
{C_text("f_32227:library_2escm"),(void*)f_32227},
{C_text("f_32238:library_2escm"),(void*)f_32238},
{C_text("f_32242:library_2escm"),(void*)f_32242},
{C_text("f_32246:library_2escm"),(void*)f_32246},
{C_text("f_32268:library_2escm"),(void*)f_32268},
{C_text("f_32272:library_2escm"),(void*)f_32272},
{C_text("f_32280:library_2escm"),(void*)f_32280},
{C_text("f_32296:library_2escm"),(void*)f_32296},
{C_text("f_32307:library_2escm"),(void*)f_32307},
{C_text("f_32326:library_2escm"),(void*)f_32326},
{C_text("f_32337:library_2escm"),(void*)f_32337},
{C_text("f_32348:library_2escm"),(void*)f_32348},
{C_text("f_32434:library_2escm"),(void*)f_32434},
{C_text("f_32444:library_2escm"),(void*)f_32444},
{C_text("f_32445:library_2escm"),(void*)f_32445},
{C_text("f_32458:library_2escm"),(void*)f_32458},
{C_text("f_32461:library_2escm"),(void*)f_32461},
{C_text("f_32464:library_2escm"),(void*)f_32464},
{C_text("f_32467:library_2escm"),(void*)f_32467},
{C_text("f_32475:library_2escm"),(void*)f_32475},
{C_text("f_32482:library_2escm"),(void*)f_32482},
{C_text("f_32485:library_2escm"),(void*)f_32485},
{C_text("f_32488:library_2escm"),(void*)f_32488},
{C_text("f_32511:library_2escm"),(void*)f_32511},
{C_text("f_32516:library_2escm"),(void*)f_32516},
{C_text("f_32526:library_2escm"),(void*)f_32526},
{C_text("f_32539:library_2escm"),(void*)f_32539},
{C_text("f_32580:library_2escm"),(void*)f_32580},
{C_text("f_32630:library_2escm"),(void*)f_32630},
{C_text("f_32633:library_2escm"),(void*)f_32633},
{C_text("f_32652:library_2escm"),(void*)f_32652},
{C_text("f_32657:library_2escm"),(void*)f_32657},
{C_text("f_32663:library_2escm"),(void*)f_32663},
{C_text("f_32666:library_2escm"),(void*)f_32666},
{C_text("f_32675:library_2escm"),(void*)f_32675},
{C_text("f_32681:library_2escm"),(void*)f_32681},
{C_text("f_32700:library_2escm"),(void*)f_32700},
{C_text("f_32719:library_2escm"),(void*)f_32719},
{C_text("f_32724:library_2escm"),(void*)f_32724},
{C_text("f_32734:library_2escm"),(void*)f_32734},
{C_text("f_32748:library_2escm"),(void*)f_32748},
{C_text("f_32755:library_2escm"),(void*)f_32755},
{C_text("f_32759:library_2escm"),(void*)f_32759},
{C_text("f_32763:library_2escm"),(void*)f_32763},
{C_text("f_32765:library_2escm"),(void*)f_32765},
{C_text("f_32768:library_2escm"),(void*)f_32768},
{C_text("f_32794:library_2escm"),(void*)f_32794},
{C_text("f_32797:library_2escm"),(void*)f_32797},
{C_text("f_32800:library_2escm"),(void*)f_32800},
{C_text("f_32807:library_2escm"),(void*)f_32807},
{C_text("f_32811:library_2escm"),(void*)f_32811},
{C_text("f_32817:library_2escm"),(void*)f_32817},
{C_text("f_32822:library_2escm"),(void*)f_32822},
{C_text("f_32832:library_2escm"),(void*)f_32832},
{C_text("f_32870:library_2escm"),(void*)f_32870},
{C_text("f_32873:library_2escm"),(void*)f_32873},
{C_text("f_32893:library_2escm"),(void*)f_32893},
{C_text("f_32911:library_2escm"),(void*)f_32911},
{C_text("f_33045:library_2escm"),(void*)f_33045},
{C_text("f_33062:library_2escm"),(void*)f_33062},
{C_text("f_33077:library_2escm"),(void*)f_33077},
{C_text("f_33081:library_2escm"),(void*)f_33081},
{C_text("f_33094:library_2escm"),(void*)f_33094},
{C_text("f_33102:library_2escm"),(void*)f_33102},
{C_text("f_33105:library_2escm"),(void*)f_33105},
{C_text("f_33109:library_2escm"),(void*)f_33109},
{C_text("f_33148:library_2escm"),(void*)f_33148},
{C_text("f_33151:library_2escm"),(void*)f_33151},
{C_text("f_33158:library_2escm"),(void*)f_33158},
{C_text("f_33162:library_2escm"),(void*)f_33162},
{C_text("f_33188:library_2escm"),(void*)f_33188},
{C_text("f_33219:library_2escm"),(void*)f_33219},
{C_text("f_33222:library_2escm"),(void*)f_33222},
{C_text("f_33234:library_2escm"),(void*)f_33234},
{C_text("f_33237:library_2escm"),(void*)f_33237},
{C_text("f_33240:library_2escm"),(void*)f_33240},
{C_text("f_33265:library_2escm"),(void*)f_33265},
{C_text("f_33271:library_2escm"),(void*)f_33271},
{C_text("f_33275:library_2escm"),(void*)f_33275},
{C_text("f_33279:library_2escm"),(void*)f_33279},
{C_text("f_33292:library_2escm"),(void*)f_33292},
{C_text("f_33294:library_2escm"),(void*)f_33294},
{C_text("f_33300:library_2escm"),(void*)f_33300},
{C_text("f_33305:library_2escm"),(void*)f_33305},
{C_text("f_33340:library_2escm"),(void*)f_33340},
{C_text("f_33346:library_2escm"),(void*)f_33346},
{C_text("f_33362:library_2escm"),(void*)f_33362},
{C_text("f_33384:library_2escm"),(void*)f_33384},
{C_text("f_33408:library_2escm"),(void*)f_33408},
{C_text("f_33420:library_2escm"),(void*)f_33420},
{C_text("f_33422:library_2escm"),(void*)f_33422},
{C_text("f_33441:library_2escm"),(void*)f_33441},
{C_text("f_33445:library_2escm"),(void*)f_33445},
{C_text("f_33457:library_2escm"),(void*)f_33457},
{C_text("f_33459:library_2escm"),(void*)f_33459},
{C_text("f_33503:library_2escm"),(void*)f_33503},
{C_text("f_33505:library_2escm"),(void*)f_33505},
{C_text("f_33539:library_2escm"),(void*)f_33539},
{C_text("f_33562:library_2escm"),(void*)f_33562},
{C_text("f_33569:library_2escm"),(void*)f_33569},
{C_text("f_33579:library_2escm"),(void*)f_33579},
{C_text("f_33581:library_2escm"),(void*)f_33581},
{C_text("f_33631:library_2escm"),(void*)f_33631},
{C_text("f_33633:library_2escm"),(void*)f_33633},
{C_text("f_33658:library_2escm"),(void*)f_33658},
{C_text("f_33667:library_2escm"),(void*)f_33667},
{C_text("f_33673:library_2escm"),(void*)f_33673},
{C_text("f_33677:library_2escm"),(void*)f_33677},
{C_text("f_33681:library_2escm"),(void*)f_33681},
{C_text("f_33689:library_2escm"),(void*)f_33689},
{C_text("f_33695:library_2escm"),(void*)f_33695},
{C_text("f_33726:library_2escm"),(void*)f_33726},
{C_text("f_33751:library_2escm"),(void*)f_33751},
{C_text("f_33776:library_2escm"),(void*)f_33776},
{C_text("f_33786:library_2escm"),(void*)f_33786},
{C_text("f_33791:library_2escm"),(void*)f_33791},
{C_text("f_33793:library_2escm"),(void*)f_33793},
{C_text("f_33800:library_2escm"),(void*)f_33800},
{C_text("f_33812:library_2escm"),(void*)f_33812},
{C_text("f_33820:library_2escm"),(void*)f_33820},
{C_text("f_33858:library_2escm"),(void*)f_33858},
{C_text("f_33862:library_2escm"),(void*)f_33862},
{C_text("f_33869:library_2escm"),(void*)f_33869},
{C_text("f_33872:library_2escm"),(void*)f_33872},
{C_text("f_33875:library_2escm"),(void*)f_33875},
{C_text("f_33876:library_2escm"),(void*)f_33876},
{C_text("f_33878:library_2escm"),(void*)f_33878},
{C_text("f_33882:library_2escm"),(void*)f_33882},
{C_text("f_33887:library_2escm"),(void*)f_33887},
{C_text("f_33899:library_2escm"),(void*)f_33899},
{C_text("f_33909:library_2escm"),(void*)f_33909},
{C_text("f_33921:library_2escm"),(void*)f_33921},
{C_text("f_33923:library_2escm"),(void*)f_33923},
{C_text("f_33930:library_2escm"),(void*)f_33930},
{C_text("f_33933:library_2escm"),(void*)f_33933},
{C_text("f_33942:library_2escm"),(void*)f_33942},
{C_text("f_33945:library_2escm"),(void*)f_33945},
{C_text("f_33948:library_2escm"),(void*)f_33948},
{C_text("f_33963:library_2escm"),(void*)f_33963},
{C_text("f_33969:library_2escm"),(void*)f_33969},
{C_text("f_33977:library_2escm"),(void*)f_33977},
{C_text("f_33981:library_2escm"),(void*)f_33981},
{C_text("f_33984:library_2escm"),(void*)f_33984},
{C_text("f_33987:library_2escm"),(void*)f_33987},
{C_text("f_34000:library_2escm"),(void*)f_34000},
{C_text("f_34004:library_2escm"),(void*)f_34004},
{C_text("f_34025:library_2escm"),(void*)f_34025},
{C_text("f_34041:library_2escm"),(void*)f_34041},
{C_text("f_34044:library_2escm"),(void*)f_34044},
{C_text("f_34050:library_2escm"),(void*)f_34050},
{C_text("f_34072:library_2escm"),(void*)f_34072},
{C_text("f_34077:library_2escm"),(void*)f_34077},
{C_text("f_34112:library_2escm"),(void*)f_34112},
{C_text("f_34122:library_2escm"),(void*)f_34122},
{C_text("f_34125:library_2escm"),(void*)f_34125},
{C_text("f_34128:library_2escm"),(void*)f_34128},
{C_text("f_34131:library_2escm"),(void*)f_34131},
{C_text("f_34134:library_2escm"),(void*)f_34134},
{C_text("f_34137:library_2escm"),(void*)f_34137},
{C_text("f_34144:library_2escm"),(void*)f_34144},
{C_text("f_34147:library_2escm"),(void*)f_34147},
{C_text("f_34150:library_2escm"),(void*)f_34150},
{C_text("f_34161:library_2escm"),(void*)f_34161},
{C_text("f_34184:library_2escm"),(void*)f_34184},
{C_text("f_34195:library_2escm"),(void*)f_34195},
{C_text("f_34199:library_2escm"),(void*)f_34199},
{C_text("f_34221:library_2escm"),(void*)f_34221},
{C_text("f_34232:library_2escm"),(void*)f_34232},
{C_text("f_34236:library_2escm"),(void*)f_34236},
{C_text("f_34735:library_2escm"),(void*)f_34735},
{C_text("f_34746:library_2escm"),(void*)f_34746},
{C_text("f_34750:library_2escm"),(void*)f_34750},
{C_text("f_34891:library_2escm"),(void*)f_34891},
{C_text("f_34893:library_2escm"),(void*)f_34893},
{C_text("f_34899:library_2escm"),(void*)f_34899},
{C_text("f_34903:library_2escm"),(void*)f_34903},
{C_text("f_34906:library_2escm"),(void*)f_34906},
{C_text("f_34915:library_2escm"),(void*)f_34915},
{C_text("f_34929:library_2escm"),(void*)f_34929},
{C_text("f_34937:library_2escm"),(void*)f_34937},
{C_text("f_34939:library_2escm"),(void*)f_34939},
{C_text("f_34943:library_2escm"),(void*)f_34943},
{C_text("f_34951:library_2escm"),(void*)f_34951},
{C_text("f_34959:library_2escm"),(void*)f_34959},
{C_text("f_34961:library_2escm"),(void*)f_34961},
{C_text("f_34971:library_2escm"),(void*)f_34971},
{C_text("f_34978:library_2escm"),(void*)f_34978},
{C_text("f_34988:library_2escm"),(void*)f_34988},
{C_text("f_34992:library_2escm"),(void*)f_34992},
{C_text("f_34996:library_2escm"),(void*)f_34996},
{C_text("f_35000:library_2escm"),(void*)f_35000},
{C_text("f_35002:library_2escm"),(void*)f_35002},
{C_text("f_35012:library_2escm"),(void*)f_35012},
{C_text("f_35023:library_2escm"),(void*)f_35023},
{C_text("f_35027:library_2escm"),(void*)f_35027},
{C_text("f_35032:library_2escm"),(void*)f_35032},
{C_text("f_35036:library_2escm"),(void*)f_35036},
{C_text("f_35041:library_2escm"),(void*)f_35041},
{C_text("f_35044:library_2escm"),(void*)f_35044},
{C_text("f_35047:library_2escm"),(void*)f_35047},
{C_text("f_35050:library_2escm"),(void*)f_35050},
{C_text("f_35052:library_2escm"),(void*)f_35052},
{C_text("f_35059:library_2escm"),(void*)f_35059},
{C_text("f_35062:library_2escm"),(void*)f_35062},
{C_text("f_35070:library_2escm"),(void*)f_35070},
{C_text("f_35077:library_2escm"),(void*)f_35077},
{C_text("f_35082:library_2escm"),(void*)f_35082},
{C_text("f_35085:library_2escm"),(void*)f_35085},
{C_text("f_35088:library_2escm"),(void*)f_35088},
{C_text("f_35091:library_2escm"),(void*)f_35091},
{C_text("f_35096:library_2escm"),(void*)f_35096},
{C_text("f_35099:library_2escm"),(void*)f_35099},
{C_text("f_35102:library_2escm"),(void*)f_35102},
{C_text("f_35105:library_2escm"),(void*)f_35105},
{C_text("f_35108:library_2escm"),(void*)f_35108},
{C_text("f_35111:library_2escm"),(void*)f_35111},
{C_text("f_35114:library_2escm"),(void*)f_35114},
{C_text("f_35117:library_2escm"),(void*)f_35117},
{C_text("f_35141:library_2escm"),(void*)f_35141},
{C_text("f_35145:library_2escm"),(void*)f_35145},
{C_text("f_35147:library_2escm"),(void*)f_35147},
{C_text("f_35155:library_2escm"),(void*)f_35155},
{C_text("f_35157:library_2escm"),(void*)f_35157},
{C_text("f_35161:library_2escm"),(void*)f_35161},
{C_text("f_35163:library_2escm"),(void*)f_35163},
{C_text("f_35170:library_2escm"),(void*)f_35170},
{C_text("f_35206:library_2escm"),(void*)f_35206},
{C_text("f_35209:library_2escm"),(void*)f_35209},
{C_text("f_35212:library_2escm"),(void*)f_35212},
{C_text("f_35215:library_2escm"),(void*)f_35215},
{C_text("f_35218:library_2escm"),(void*)f_35218},
{C_text("f_35234:library_2escm"),(void*)f_35234},
{C_text("f_35238:library_2escm"),(void*)f_35238},
{C_text("f_35247:library_2escm"),(void*)f_35247},
{C_text("f_35251:library_2escm"),(void*)f_35251},
{C_text("f_35253:library_2escm"),(void*)f_35253},
{C_text("f_35257:library_2escm"),(void*)f_35257},
{C_text("f_35259:library_2escm"),(void*)f_35259},
{C_text("f_35264:library_2escm"),(void*)f_35264},
{C_text("f_35266:library_2escm"),(void*)f_35266},
{C_text("f_35269:library_2escm"),(void*)f_35269},
{C_text("f_35289:library_2escm"),(void*)f_35289},
{C_text("f_35295:library_2escm"),(void*)f_35295},
{C_text("f_35305:library_2escm"),(void*)f_35305},
{C_text("f_35315:library_2escm"),(void*)f_35315},
{C_text("f_35350:library_2escm"),(void*)f_35350},
{C_text("f_35354:library_2escm"),(void*)f_35354},
{C_text("f_35359:library_2escm"),(void*)f_35359},
{C_text("f_35369:library_2escm"),(void*)f_35369},
{C_text("f_35379:library_2escm"),(void*)f_35379},
{C_text("f_35388:library_2escm"),(void*)f_35388},
{C_text("f_35391:library_2escm"),(void*)f_35391},
{C_text("f_35394:library_2escm"),(void*)f_35394},
{C_text("f_35398:library_2escm"),(void*)f_35398},
{C_text("f_35400:library_2escm"),(void*)f_35400},
{C_text("f_35403:library_2escm"),(void*)f_35403},
{C_text("f_35406:library_2escm"),(void*)f_35406},
{C_text("f_35409:library_2escm"),(void*)f_35409},
{C_text("f_35412:library_2escm"),(void*)f_35412},
{C_text("f_35421:library_2escm"),(void*)f_35421},
{C_text("f_35424:library_2escm"),(void*)f_35424},
{C_text("f_35427:library_2escm"),(void*)f_35427},
{C_text("f_35430:library_2escm"),(void*)f_35430},
{C_text("f_35433:library_2escm"),(void*)f_35433},
{C_text("f_35436:library_2escm"),(void*)f_35436},
{C_text("f_35439:library_2escm"),(void*)f_35439},
{C_text("f_35442:library_2escm"),(void*)f_35442},
{C_text("f_35449:library_2escm"),(void*)f_35449},
{C_text("f_35452:library_2escm"),(void*)f_35452},
{C_text("f_35468:library_2escm"),(void*)f_35468},
{C_text("f_35476:library_2escm"),(void*)f_35476},
{C_text("f_35479:library_2escm"),(void*)f_35479},
{C_text("f_35485:library_2escm"),(void*)f_35485},
{C_text("f_35494:library_2escm"),(void*)f_35494},
{C_text("f_35500:library_2escm"),(void*)f_35500},
{C_text("f_35509:library_2escm"),(void*)f_35509},
{C_text("f_35515:library_2escm"),(void*)f_35515},
{C_text("f_35521:library_2escm"),(void*)f_35521},
{C_text("f_35524:library_2escm"),(void*)f_35524},
{C_text("f_35530:library_2escm"),(void*)f_35530},
{C_text("f_35536:library_2escm"),(void*)f_35536},
{C_text("f_35539:library_2escm"),(void*)f_35539},
{C_text("f_35545:library_2escm"),(void*)f_35545},
{C_text("f_35584:library_2escm"),(void*)f_35584},
{C_text("f_35627:library_2escm"),(void*)f_35627},
{C_text("f_35634:library_2escm"),(void*)f_35634},
{C_text("f_35639:library_2escm"),(void*)f_35639},
{C_text("f_35655:library_2escm"),(void*)f_35655},
{C_text("f_35681:library_2escm"),(void*)f_35681},
{C_text("f_35684:library_2escm"),(void*)f_35684},
{C_text("f_35691:library_2escm"),(void*)f_35691},
{C_text("f_35696:library_2escm"),(void*)f_35696},
{C_text("f_35698:library_2escm"),(void*)f_35698},
{C_text("f_35702:library_2escm"),(void*)f_35702},
{C_text("f_35729:library_2escm"),(void*)f_35729},
{C_text("f_35739:library_2escm"),(void*)f_35739},
{C_text("f_35748:library_2escm"),(void*)f_35748},
{C_text("f_35755:library_2escm"),(void*)f_35755},
{C_text("f_35759:library_2escm"),(void*)f_35759},
{C_text("f_35773:library_2escm"),(void*)f_35773},
{C_text("f_35777:library_2escm"),(void*)f_35777},
{C_text("f_35784:library_2escm"),(void*)f_35784},
{C_text("f_35786:library_2escm"),(void*)f_35786},
{C_text("f_35808:library_2escm"),(void*)f_35808},
{C_text("f_35815:library_2escm"),(void*)f_35815},
{C_text("f_35820:library_2escm"),(void*)f_35820},
{C_text("f_35824:library_2escm"),(void*)f_35824},
{C_text("f_35827:library_2escm"),(void*)f_35827},
{C_text("f_35830:library_2escm"),(void*)f_35830},
{C_text("f_35835:library_2escm"),(void*)f_35835},
{C_text("f_35839:library_2escm"),(void*)f_35839},
{C_text("f_35865:library_2escm"),(void*)f_35865},
{C_text("f_35878:library_2escm"),(void*)f_35878},
{C_text("f_35881:library_2escm"),(void*)f_35881},
{C_text("f_35890:library_2escm"),(void*)f_35890},
{C_text("f_35893:library_2escm"),(void*)f_35893},
{C_text("f_35896:library_2escm"),(void*)f_35896},
{C_text("f_35902:library_2escm"),(void*)f_35902},
{C_text("f_35909:library_2escm"),(void*)f_35909},
{C_text("f_35911:library_2escm"),(void*)f_35911},
{C_text("f_35924:library_2escm"),(void*)f_35924},
{C_text("f_35937:library_2escm"),(void*)f_35937},
{C_text("f_35940:library_2escm"),(void*)f_35940},
{C_text("f_35943:library_2escm"),(void*)f_35943},
{C_text("f_35950:library_2escm"),(void*)f_35950},
{C_text("f_36002:library_2escm"),(void*)f_36002},
{C_text("f_36005:library_2escm"),(void*)f_36005},
{C_text("f_36008:library_2escm"),(void*)f_36008},
{C_text("f_36010:library_2escm"),(void*)f_36010},
{C_text("f_36014:library_2escm"),(void*)f_36014},
{C_text("f_36018:library_2escm"),(void*)f_36018},
{C_text("f_36024:library_2escm"),(void*)f_36024},
{C_text("f_36029:library_2escm"),(void*)f_36029},
{C_text("f_36033:library_2escm"),(void*)f_36033},
{C_text("f_36045:library_2escm"),(void*)f_36045},
{C_text("f_36057:library_2escm"),(void*)f_36057},
{C_text("f_36064:library_2escm"),(void*)f_36064},
{C_text("f_36070:library_2escm"),(void*)f_36070},
{C_text("f_36084:library_2escm"),(void*)f_36084},
{C_text("f_36123:library_2escm"),(void*)f_36123},
{C_text("f_36142:library_2escm"),(void*)f_36142},
{C_text("f_36164:library_2escm"),(void*)f_36164},
{C_text("f_36173:library_2escm"),(void*)f_36173},
{C_text("f_36180:library_2escm"),(void*)f_36180},
{C_text("f_36197:library_2escm"),(void*)f_36197},
{C_text("f_36205:library_2escm"),(void*)f_36205},
{C_text("f_36216:library_2escm"),(void*)f_36216},
{C_text("f_36224:library_2escm"),(void*)f_36224},
{C_text("f_36231:library_2escm"),(void*)f_36231},
{C_text("f_36293:library_2escm"),(void*)f_36293},
{C_text("f_36300:library_2escm"),(void*)f_36300},
{C_text("f_36303:library_2escm"),(void*)f_36303},
{C_text("f_36313:library_2escm"),(void*)f_36313},
{C_text("f_36317:library_2escm"),(void*)f_36317},
{C_text("f_36321:library_2escm"),(void*)f_36321},
{C_text("f_36324:library_2escm"),(void*)f_36324},
{C_text("f_36332:library_2escm"),(void*)f_36332},
{C_text("f_36341:library_2escm"),(void*)f_36341},
{C_text("f_36349:library_2escm"),(void*)f_36349},
{C_text("f_36362:library_2escm"),(void*)f_36362},
{C_text("f_36370:library_2escm"),(void*)f_36370},
{C_text("f_36374:library_2escm"),(void*)f_36374},
{C_text("f_36382:library_2escm"),(void*)f_36382},
{C_text("f_36390:library_2escm"),(void*)f_36390},
{C_text("f_36392:library_2escm"),(void*)f_36392},
{C_text("f_36398:library_2escm"),(void*)f_36398},
{C_text("f_36402:library_2escm"),(void*)f_36402},
{C_text("f_36410:library_2escm"),(void*)f_36410},
{C_text("f_36430:library_2escm"),(void*)f_36430},
{C_text("f_36438:library_2escm"),(void*)f_36438},
{C_text("f_36442:library_2escm"),(void*)f_36442},
{C_text("f_36457:library_2escm"),(void*)f_36457},
{C_text("f_36464:library_2escm"),(void*)f_36464},
{C_text("f_36476:library_2escm"),(void*)f_36476},
{C_text("f_36484:library_2escm"),(void*)f_36484},
{C_text("f_36490:library_2escm"),(void*)f_36490},
{C_text("f_36512:library_2escm"),(void*)f_36512},
{C_text("f_36516:library_2escm"),(void*)f_36516},
{C_text("f_36520:library_2escm"),(void*)f_36520},
{C_text("f_36522:library_2escm"),(void*)f_36522},
{C_text("f_36525:library_2escm"),(void*)f_36525},
{C_text("f_36528:library_2escm"),(void*)f_36528},
{C_text("f_36532:library_2escm"),(void*)f_36532},
{C_text("f_36535:library_2escm"),(void*)f_36535},
{C_text("f_36557:library_2escm"),(void*)f_36557},
{C_text("f_36563:library_2escm"),(void*)f_36563},
{C_text("f_36567:library_2escm"),(void*)f_36567},
{C_text("f_36584:library_2escm"),(void*)f_36584},
{C_text("f_36594:library_2escm"),(void*)f_36594},
{C_text("f_36598:library_2escm"),(void*)f_36598},
{C_text("f_36602:library_2escm"),(void*)f_36602},
{C_text("f_36614:library_2escm"),(void*)f_36614},
{C_text("f_36624:library_2escm"),(void*)f_36624},
{C_text("f_36633:library_2escm"),(void*)f_36633},
{C_text("f_36649:library_2escm"),(void*)f_36649},
{C_text("f_36653:library_2escm"),(void*)f_36653},
{C_text("f_36655:library_2escm"),(void*)f_36655},
{C_text("f_36661:library_2escm"),(void*)f_36661},
{C_text("f_36668:library_2escm"),(void*)f_36668},
{C_text("f_36673:library_2escm"),(void*)f_36673},
{C_text("f_36694:library_2escm"),(void*)f_36694},
{C_text("f_36704:library_2escm"),(void*)f_36704},
{C_text("f_36714:library_2escm"),(void*)f_36714},
{C_text("f_36727:library_2escm"),(void*)f_36727},
{C_text("f_36731:library_2escm"),(void*)f_36731},
{C_text("f_36734:library_2escm"),(void*)f_36734},
{C_text("f_36742:library_2escm"),(void*)f_36742},
{C_text("f_36752:library_2escm"),(void*)f_36752},
{C_text("f_36774:library_2escm"),(void*)f_36774},
{C_text("f_36778:library_2escm"),(void*)f_36778},
{C_text("f_36809:library_2escm"),(void*)f_36809},
{C_text("f_36812:library_2escm"),(void*)f_36812},
{C_text("f_36815:library_2escm"),(void*)f_36815},
{C_text("f_36821:library_2escm"),(void*)f_36821},
{C_text("f_36834:library_2escm"),(void*)f_36834},
{C_text("f_36837:library_2escm"),(void*)f_36837},
{C_text("f_36846:library_2escm"),(void*)f_36846},
{C_text("f_36852:library_2escm"),(void*)f_36852},
{C_text("f_36858:library_2escm"),(void*)f_36858},
{C_text("f_36864:library_2escm"),(void*)f_36864},
{C_text("f_36870:library_2escm"),(void*)f_36870},
{C_text("f_36887:library_2escm"),(void*)f_36887},
{C_text("f_36893:library_2escm"),(void*)f_36893},
{C_text("f_36908:library_2escm"),(void*)f_36908},
{C_text("f_36912:library_2escm"),(void*)f_36912},
{C_text("f_36916:library_2escm"),(void*)f_36916},
{C_text("f_36920:library_2escm"),(void*)f_36920},
{C_text("f_36941:library_2escm"),(void*)f_36941},
{C_text("f_36943:library_2escm"),(void*)f_36943},
{C_text("f_36949:library_2escm"),(void*)f_36949},
{C_text("f_36953:library_2escm"),(void*)f_36953},
{C_text("f_36962:library_2escm"),(void*)f_36962},
{C_text("f_36971:library_2escm"),(void*)f_36971},
{C_text("f_37014:library_2escm"),(void*)f_37014},
{C_text("f_37281:library_2escm"),(void*)f_37281},
{C_text("f_37287:library_2escm"),(void*)f_37287},
{C_text("f_37306:library_2escm"),(void*)f_37306},
{C_text("f_37308:library_2escm"),(void*)f_37308},
{C_text("f_37331:library_2escm"),(void*)f_37331},
{C_text("f_37377:library_2escm"),(void*)f_37377},
{C_text("f_37379:library_2escm"),(void*)f_37379},
{C_text("f_37386:library_2escm"),(void*)f_37386},
{C_text("f_37395:library_2escm"),(void*)f_37395},
{C_text("f_37439:library_2escm"),(void*)f_37439},
{C_text("f_37454:library_2escm"),(void*)f_37454},
{C_text("f_37462:library_2escm"),(void*)f_37462},
{C_text("f_37468:library_2escm"),(void*)f_37468},
{C_text("f_37476:library_2escm"),(void*)f_37476},
{C_text("f_37480:library_2escm"),(void*)f_37480},
{C_text("f_37488:library_2escm"),(void*)f_37488},
{C_text("f_37490:library_2escm"),(void*)f_37490},
{C_text("f_37500:library_2escm"),(void*)f_37500},
{C_text("f_37507:library_2escm"),(void*)f_37507},
{C_text("f_37511:library_2escm"),(void*)f_37511},
{C_text("f_37522:library_2escm"),(void*)f_37522},
{C_text("f_37529:library_2escm"),(void*)f_37529},
{C_text("f_37533:library_2escm"),(void*)f_37533},
{C_text("f_37544:library_2escm"),(void*)f_37544},
{C_text("f_37551:library_2escm"),(void*)f_37551},
{C_text("f_37555:library_2escm"),(void*)f_37555},
{C_text("f_37560:library_2escm"),(void*)f_37560},
{C_text("f_37566:library_2escm"),(void*)f_37566},
{C_text("f_37569:library_2escm"),(void*)f_37569},
{C_text("f_37572:library_2escm"),(void*)f_37572},
{C_text("f_37578:library_2escm"),(void*)f_37578},
{C_text("f_37587:library_2escm"),(void*)f_37587},
{C_text("f_37596:library_2escm"),(void*)f_37596},
{C_text("f_37602:library_2escm"),(void*)f_37602},
{C_text("f_37605:library_2escm"),(void*)f_37605},
{C_text("f_37608:library_2escm"),(void*)f_37608},
{C_text("f_37620:library_2escm"),(void*)f_37620},
{C_text("f_37623:library_2escm"),(void*)f_37623},
{C_text("f_37626:library_2escm"),(void*)f_37626},
{C_text("f_37629:library_2escm"),(void*)f_37629},
{C_text("f_37641:library_2escm"),(void*)f_37641},
{C_text("f_37644:library_2escm"),(void*)f_37644},
{C_text("f_37647:library_2escm"),(void*)f_37647},
{C_text("f_37650:library_2escm"),(void*)f_37650},
{C_text("f_37659:library_2escm"),(void*)f_37659},
{C_text("f_37662:library_2escm"),(void*)f_37662},
{C_text("f_37675:library_2escm"),(void*)f_37675},
{C_text("f_37676:library_2escm"),(void*)f_37676},
{C_text("f_37681:library_2escm"),(void*)f_37681},
{C_text("f_37682:library_2escm"),(void*)f_37682},
{C_text("f_37687:library_2escm"),(void*)f_37687},
{C_text("f_37688:library_2escm"),(void*)f_37688},
{C_text("f_37693:library_2escm"),(void*)f_37693},
{C_text("f_37694:library_2escm"),(void*)f_37694},
{C_text("f_37699:library_2escm"),(void*)f_37699},
{C_text("f_37700:library_2escm"),(void*)f_37700},
{C_text("f_37705:library_2escm"),(void*)f_37705},
{C_text("f_37707:library_2escm"),(void*)f_37707},
{C_text("f_37717:library_2escm"),(void*)f_37717},
{C_text("f_37720:library_2escm"),(void*)f_37720},
{C_text("f_37723:library_2escm"),(void*)f_37723},
{C_text("f_37726:library_2escm"),(void*)f_37726},
{C_text("f_37728:library_2escm"),(void*)f_37728},
{C_text("f_37742:library_2escm"),(void*)f_37742},
{C_text("f_37750:library_2escm"),(void*)f_37750},
{C_text("f_37754:library_2escm"),(void*)f_37754},
{C_text("f_37758:library_2escm"),(void*)f_37758},
{C_text("f_37762:library_2escm"),(void*)f_37762},
{C_text("f_37768:library_2escm"),(void*)f_37768},
{C_text("f_37775:library_2escm"),(void*)f_37775},
{C_text("f_37779:library_2escm"),(void*)f_37779},
{C_text("f_37783:library_2escm"),(void*)f_37783},
{C_text("f_37787:library_2escm"),(void*)f_37787},
{C_text("f_37805:library_2escm"),(void*)f_37805},
{C_text("f_37824:library_2escm"),(void*)f_37824},
{C_text("f_37827:library_2escm"),(void*)f_37827},
{C_text("f_37830:library_2escm"),(void*)f_37830},
{C_text("f_37833:library_2escm"),(void*)f_37833},
{C_text("f_37842:library_2escm"),(void*)f_37842},
{C_text("f_37848:library_2escm"),(void*)f_37848},
{C_text("f_37871:library_2escm"),(void*)f_37871},
{C_text("f_37893:library_2escm"),(void*)f_37893},
{C_text("f_37899:library_2escm"),(void*)f_37899},
{C_text("f_37919:library_2escm"),(void*)f_37919},
{C_text("f_37934:library_2escm"),(void*)f_37934},
{C_text("f_37938:library_2escm"),(void*)f_37938},
{C_text("f_37961:library_2escm"),(void*)f_37961},
{C_text("f_37965:library_2escm"),(void*)f_37965},
{C_text("f_37967:library_2escm"),(void*)f_37967},
{C_text("f_37997:library_2escm"),(void*)f_37997},
{C_text("f_38000:library_2escm"),(void*)f_38000},
{C_text("f_38002:library_2escm"),(void*)f_38002},
{C_text("f_38020:library_2escm"),(void*)f_38020},
{C_text("f_38027:library_2escm"),(void*)f_38027},
{C_text("f_38049:library_2escm"),(void*)f_38049},
{C_text("f_38058:library_2escm"),(void*)f_38058},
{C_text("f_38073:library_2escm"),(void*)f_38073},
{C_text("f_38076:library_2escm"),(void*)f_38076},
{C_text("f_38079:library_2escm"),(void*)f_38079},
{C_text("f_38082:library_2escm"),(void*)f_38082},
{C_text("f_38085:library_2escm"),(void*)f_38085},
{C_text("f_38088:library_2escm"),(void*)f_38088},
{C_text("f_38091:library_2escm"),(void*)f_38091},
{C_text("f_38094:library_2escm"),(void*)f_38094},
{C_text("f_38097:library_2escm"),(void*)f_38097},
{C_text("f_38100:library_2escm"),(void*)f_38100},
{C_text("f_38108:library_2escm"),(void*)f_38108},
{C_text("f_38111:library_2escm"),(void*)f_38111},
{C_text("f_38116:library_2escm"),(void*)f_38116},
{C_text("f_38122:library_2escm"),(void*)f_38122},
{C_text("f_38135:library_2escm"),(void*)f_38135},
{C_text("f_38137:library_2escm"),(void*)f_38137},
{C_text("f_38160:library_2escm"),(void*)f_38160},
{C_text("f_38167:library_2escm"),(void*)f_38167},
{C_text("f_38171:library_2escm"),(void*)f_38171},
{C_text("f_38173:library_2escm"),(void*)f_38173},
{C_text("f_38202:library_2escm"),(void*)f_38202},
{C_text("f_38204:library_2escm"),(void*)f_38204},
{C_text("f_38229:library_2escm"),(void*)f_38229},
{C_text("f_38238:library_2escm"),(void*)f_38238},
{C_text("f_38244:library_2escm"),(void*)f_38244},
{C_text("f_38268:library_2escm"),(void*)f_38268},
{C_text("f_38275:library_2escm"),(void*)f_38275},
{C_text("f_38279:library_2escm"),(void*)f_38279},
{C_text("f_38291:library_2escm"),(void*)f_38291},
{C_text("f_38299:library_2escm"),(void*)f_38299},
{C_text("f_38303:library_2escm"),(void*)f_38303},
{C_text("f_38312:library_2escm"),(void*)f_38312},
{C_text("f_38321:library_2escm"),(void*)f_38321},
{C_text("f_38329:library_2escm"),(void*)f_38329},
{C_text("f_38342:library_2escm"),(void*)f_38342},
{C_text("f_38350:library_2escm"),(void*)f_38350},
{C_text("f_38375:library_2escm"),(void*)f_38375},
{C_text("f_38384:library_2escm"),(void*)f_38384},
{C_text("f_38391:library_2escm"),(void*)f_38391},
{C_text("f_38394:library_2escm"),(void*)f_38394},
{C_text("f_38399:library_2escm"),(void*)f_38399},
{C_text("f_38431:library_2escm"),(void*)f_38431},
{C_text("f_38435:library_2escm"),(void*)f_38435},
{C_text("f_38438:library_2escm"),(void*)f_38438},
{C_text("f_38443:library_2escm"),(void*)f_38443},
{C_text("f_38456:library_2escm"),(void*)f_38456},
{C_text("f_38481:library_2escm"),(void*)f_38481},
{C_text("f_38493:library_2escm"),(void*)f_38493},
{C_text("f_38518:library_2escm"),(void*)f_38518},
{C_text("f_38520:library_2escm"),(void*)f_38520},
{C_text("f_38537:library_2escm"),(void*)f_38537},
{C_text("f_38544:library_2escm"),(void*)f_38544},
{C_text("f_38547:library_2escm"),(void*)f_38547},
{C_text("f_38550:library_2escm"),(void*)f_38550},
{C_text("f_38555:library_2escm"),(void*)f_38555},
{C_text("f_38622:library_2escm"),(void*)f_38622},
{C_text("f_38639:library_2escm"),(void*)f_38639},
{C_text("f_38646:library_2escm"),(void*)f_38646},
{C_text("f_38649:library_2escm"),(void*)f_38649},
{C_text("f_38652:library_2escm"),(void*)f_38652},
{C_text("f_38657:library_2escm"),(void*)f_38657},
{C_text("f_38732:library_2escm"),(void*)f_38732},
{C_text("f_38742:library_2escm"),(void*)f_38742},
{C_text("f_38747:library_2escm"),(void*)f_38747},
{C_text("f_38760:library_2escm"),(void*)f_38760},
{C_text("f_38794:library_2escm"),(void*)f_38794},
{C_text("f_38808:library_2escm"),(void*)f_38808},
{C_text("f_38817:library_2escm"),(void*)f_38817},
{C_text("f_38822:library_2escm"),(void*)f_38822},
{C_text("f_38843:library_2escm"),(void*)f_38843},
{C_text("f_38848:library_2escm"),(void*)f_38848},
{C_text("f_38855:library_2escm"),(void*)f_38855},
{C_text("f_38857:library_2escm"),(void*)f_38857},
{C_text("f_38891:library_2escm"),(void*)f_38891},
{C_text("f_38915:library_2escm"),(void*)f_38915},
{C_text("f_38949:library_2escm"),(void*)f_38949},
{C_text("f_38972:library_2escm"),(void*)f_38972},
{C_text("f_38984:library_2escm"),(void*)f_38984},
{C_text("f_38994:library_2escm"),(void*)f_38994},
{C_text("f_39020:library_2escm"),(void*)f_39020},
{C_text("f_39034:library_2escm"),(void*)f_39034},
{C_text("f_39043:library_2escm"),(void*)f_39043},
{C_text("f_39048:library_2escm"),(void*)f_39048},
{C_text("f_39058:library_2escm"),(void*)f_39058},
{C_text("f_39070:library_2escm"),(void*)f_39070},
{C_text("f_39077:library_2escm"),(void*)f_39077},
{C_text("f_39079:library_2escm"),(void*)f_39079},
{C_text("f_39113:library_2escm"),(void*)f_39113},
{C_text("f_39137:library_2escm"),(void*)f_39137},
{C_text("f_39171:library_2escm"),(void*)f_39171},
{C_text("f_39194:library_2escm"),(void*)f_39194},
{C_text("f_39204:library_2escm"),(void*)f_39204},
{C_text("f_39213:library_2escm"),(void*)f_39213},
{C_text("f_39218:library_2escm"),(void*)f_39218},
{C_text("f_39239:library_2escm"),(void*)f_39239},
{C_text("f_39249:library_2escm"),(void*)f_39249},
{C_text("f_39263:library_2escm"),(void*)f_39263},
{C_text("f_39272:library_2escm"),(void*)f_39272},
{C_text("f_39277:library_2escm"),(void*)f_39277},
{C_text("f_39298:library_2escm"),(void*)f_39298},
{C_text("f_39303:library_2escm"),(void*)f_39303},
{C_text("f_39310:library_2escm"),(void*)f_39310},
{C_text("f_39312:library_2escm"),(void*)f_39312},
{C_text("f_39346:library_2escm"),(void*)f_39346},
{C_text("f_39370:library_2escm"),(void*)f_39370},
{C_text("f_39404:library_2escm"),(void*)f_39404},
{C_text("f_39427:library_2escm"),(void*)f_39427},
{C_text("f_39437:library_2escm"),(void*)f_39437},
{C_text("f_39448:library_2escm"),(void*)f_39448},
{C_text("f_39458:library_2escm"),(void*)f_39458},
{C_text("f_39475:library_2escm"),(void*)f_39475},
{C_text("f_39489:library_2escm"),(void*)f_39489},
{C_text("f_39498:library_2escm"),(void*)f_39498},
{C_text("f_39503:library_2escm"),(void*)f_39503},
{C_text("f_39513:library_2escm"),(void*)f_39513},
{C_text("f_39525:library_2escm"),(void*)f_39525},
{C_text("f_39532:library_2escm"),(void*)f_39532},
{C_text("f_39534:library_2escm"),(void*)f_39534},
{C_text("f_39568:library_2escm"),(void*)f_39568},
{C_text("f_39592:library_2escm"),(void*)f_39592},
{C_text("f_39626:library_2escm"),(void*)f_39626},
{C_text("f_39649:library_2escm"),(void*)f_39649},
{C_text("f_39653:library_2escm"),(void*)f_39653},
{C_text("f_39656:library_2escm"),(void*)f_39656},
{C_text("f_39659:library_2escm"),(void*)f_39659},
{C_text("f_39684:library_2escm"),(void*)f_39684},
{C_text("f_39690:library_2escm"),(void*)f_39690},
{C_text("f_39696:library_2escm"),(void*)f_39696},
{C_text("f_39700:library_2escm"),(void*)f_39700},
{C_text("f_39705:library_2escm"),(void*)f_39705},
{C_text("f_39708:library_2escm"),(void*)f_39708},
{C_text("f_39715:library_2escm"),(void*)f_39715},
{C_text("f_39733:library_2escm"),(void*)f_39733},
{C_text("f_39736:library_2escm"),(void*)f_39736},
{C_text("f_39748:library_2escm"),(void*)f_39748},
{C_text("f_39776:library_2escm"),(void*)f_39776},
{C_text("f_39779:library_2escm"),(void*)f_39779},
{C_text("f_39782:library_2escm"),(void*)f_39782},
{C_text("f_39852:library_2escm"),(void*)f_39852},
{C_text("f_39881:library_2escm"),(void*)f_39881},
{C_text("f_39883:library_2escm"),(void*)f_39883},
{C_text("f_39903:library_2escm"),(void*)f_39903},
{C_text("f_39955:library_2escm"),(void*)f_39955},
{C_text("f_39965:library_2escm"),(void*)f_39965},
{C_text("f_39975:library_2escm"),(void*)f_39975},
{C_text("f_39988:library_2escm"),(void*)f_39988},
{C_text("f_39993:library_2escm"),(void*)f_39993},
{C_text("f_40006:library_2escm"),(void*)f_40006},
{C_text("f_40039:library_2escm"),(void*)f_40039},
{C_text("f_40048:library_2escm"),(void*)f_40048},
{C_text("f_40074:library_2escm"),(void*)f_40074},
{C_text("f_40082:library_2escm"),(void*)f_40082},
{C_text("f_40111:library_2escm"),(void*)f_40111},
{C_text("f_40139:library_2escm"),(void*)f_40139},
{C_text("f_40152:library_2escm"),(void*)f_40152},
{C_text("f_40201:library_2escm"),(void*)f_40201},
{C_text("f_40220:library_2escm"),(void*)f_40220},
{C_text("f_40240:library_2escm"),(void*)f_40240},
{C_text("f_40255:library_2escm"),(void*)f_40255},
{C_text("f_40259:library_2escm"),(void*)f_40259},
{C_text("f_40315:library_2escm"),(void*)f_40315},
{C_text("f_40319:library_2escm"),(void*)f_40319},
{C_text("f_40327:library_2escm"),(void*)f_40327},
{C_text("f_40330:library_2escm"),(void*)f_40330},
{C_text("f_40334:library_2escm"),(void*)f_40334},
{C_text("f_40345:library_2escm"),(void*)f_40345},
{C_text("f_40348:library_2escm"),(void*)f_40348},
{C_text("f_40354:library_2escm"),(void*)f_40354},
{C_text("f_40358:library_2escm"),(void*)f_40358},
{C_text("f_40378:library_2escm"),(void*)f_40378},
{C_text("f_40403:library_2escm"),(void*)f_40403},
{C_text("f_40473:library_2escm"),(void*)f_40473},
{C_text("f_40548:library_2escm"),(void*)f_40548},
{C_text("f_40633:library_2escm"),(void*)f_40633},
{C_text("f_40652:library_2escm"),(void*)f_40652},
{C_text("f_40655:library_2escm"),(void*)f_40655},
{C_text("f_40669:library_2escm"),(void*)f_40669},
{C_text("f_40681:library_2escm"),(void*)f_40681},
{C_text("f_40683:library_2escm"),(void*)f_40683},
{C_text("f_40691:library_2escm"),(void*)f_40691},
{C_text("f_40693:library_2escm"),(void*)f_40693},
{C_text("f_40700:library_2escm"),(void*)f_40700},
{C_text("f_40712:library_2escm"),(void*)f_40712},
{C_text("f_40732:library_2escm"),(void*)f_40732},
{C_text("f_40736:library_2escm"),(void*)f_40736},
{C_text("f_40739:library_2escm"),(void*)f_40739},
{C_text("f_40748:library_2escm"),(void*)f_40748},
{C_text("f_40750:library_2escm"),(void*)f_40750},
{C_text("f_40801:library_2escm"),(void*)f_40801},
{C_text("f_40826:library_2escm"),(void*)f_40826},
{C_text("f_40841:library_2escm"),(void*)f_40841},
{C_text("f_40851:library_2escm"),(void*)f_40851},
{C_text("f_40881:library_2escm"),(void*)f_40881},
{C_text("f_40909:library_2escm"),(void*)f_40909},
{C_text("f_40919:library_2escm"),(void*)f_40919},
{C_text("f_40924:library_2escm"),(void*)f_40924},
{C_text("f_40928:library_2escm"),(void*)f_40928},
{C_text("f_40934:library_2escm"),(void*)f_40934},
{C_text("f_40937:library_2escm"),(void*)f_40937},
{C_text("f_40944:library_2escm"),(void*)f_40944},
{C_text("f_40965:library_2escm"),(void*)f_40965},
{C_text("f_40975:library_2escm"),(void*)f_40975},
{C_text("f_40978:library_2escm"),(void*)f_40978},
{C_text("f_40992:library_2escm"),(void*)f_40992},
{C_text("f_41005:library_2escm"),(void*)f_41005},
{C_text("f_41023:library_2escm"),(void*)f_41023},
{C_text("f_41057:library_2escm"),(void*)f_41057},
{C_text("f_41060:library_2escm"),(void*)f_41060},
{C_text("f_41119:library_2escm"),(void*)f_41119},
{C_text("f_41127:library_2escm"),(void*)f_41127},
{C_text("f_41131:library_2escm"),(void*)f_41131},
{C_text("f_41135:library_2escm"),(void*)f_41135},
{C_text("f_41141:library_2escm"),(void*)f_41141},
{C_text("f_41145:library_2escm"),(void*)f_41145},
{C_text("f_41149:library_2escm"),(void*)f_41149},
{C_text("f_41171:library_2escm"),(void*)f_41171},
{C_text("f_41175:library_2escm"),(void*)f_41175},
{C_text("f_41179:library_2escm"),(void*)f_41179},
{C_text("f_41183:library_2escm"),(void*)f_41183},
{C_text("f_41187:library_2escm"),(void*)f_41187},
{C_text("f_41207:library_2escm"),(void*)f_41207},
{C_text("f_41215:library_2escm"),(void*)f_41215},
{C_text("f_41240:library_2escm"),(void*)f_41240},
{C_text("f_41257:library_2escm"),(void*)f_41257},
{C_text("f_41261:library_2escm"),(void*)f_41261},
{C_text("f_41264:library_2escm"),(void*)f_41264},
{C_text("f_41267:library_2escm"),(void*)f_41267},
{C_text("f_41277:library_2escm"),(void*)f_41277},
{C_text("f_41280:library_2escm"),(void*)f_41280},
{C_text("f_41282:library_2escm"),(void*)f_41282},
{C_text("f_41299:library_2escm"),(void*)f_41299},
{C_text("f_41326:library_2escm"),(void*)f_41326},
{C_text("f_41335:library_2escm"),(void*)f_41335},
{C_text("f_41355:library_2escm"),(void*)f_41355},
{C_text("f_41359:library_2escm"),(void*)f_41359},
{C_text("f_41363:library_2escm"),(void*)f_41363},
{C_text("f_41367:library_2escm"),(void*)f_41367},
{C_text("f_41371:library_2escm"),(void*)f_41371},
{C_text("f_41375:library_2escm"),(void*)f_41375},
{C_text("f_41379:library_2escm"),(void*)f_41379},
{C_text("f_41381:library_2escm"),(void*)f_41381},
{C_text("f_41390:library_2escm"),(void*)f_41390},
{C_text("f_41400:library_2escm"),(void*)f_41400},
{C_text("f_41425:library_2escm"),(void*)f_41425},
{C_text("f_41428:library_2escm"),(void*)f_41428},
{C_text("f_41430:library_2escm"),(void*)f_41430},
{C_text("f_41446:library_2escm"),(void*)f_41446},
{C_text("f_41481:library_2escm"),(void*)f_41481},
{C_text("f_41505:library_2escm"),(void*)f_41505},
{C_text("f_41509:library_2escm"),(void*)f_41509},
{C_text("f_41511:library_2escm"),(void*)f_41511},
{C_text("f_41515:library_2escm"),(void*)f_41515},
{C_text("f_41518:library_2escm"),(void*)f_41518},
{C_text("f_41531:library_2escm"),(void*)f_41531},
{C_text("f_41536:library_2escm"),(void*)f_41536},
{C_text("f_41551:library_2escm"),(void*)f_41551},
{C_text("f_41555:library_2escm"),(void*)f_41555},
{C_text("f_41564:library_2escm"),(void*)f_41564},
{C_text("f_41567:library_2escm"),(void*)f_41567},
{C_text("f_41570:library_2escm"),(void*)f_41570},
{C_text("f_41573:library_2escm"),(void*)f_41573},
{C_text("f_41576:library_2escm"),(void*)f_41576},
{C_text("f_41578:library_2escm"),(void*)f_41578},
{C_text("f_41588:library_2escm"),(void*)f_41588},
{C_text("f_41600:library_2escm"),(void*)f_41600},
{C_text("f_41608:library_2escm"),(void*)f_41608},
{C_text("f_41618:library_2escm"),(void*)f_41618},
{C_text("f_41634:library_2escm"),(void*)f_41634},
{C_text("f_41640:library_2escm"),(void*)f_41640},
{C_text("f_41643:library_2escm"),(void*)f_41643},
{C_text("f_41646:library_2escm"),(void*)f_41646},
{C_text("f_41647:library_2escm"),(void*)f_41647},
{C_text("f_41651:library_2escm"),(void*)f_41651},
{C_text("f_41657:library_2escm"),(void*)f_41657},
{C_text("f_41661:library_2escm"),(void*)f_41661},
{C_text("f_41663:library_2escm"),(void*)f_41663},
{C_text("f_41673:library_2escm"),(void*)f_41673},
{C_text("f_41690:library_2escm"),(void*)f_41690},
{C_text("f_41693:library_2escm"),(void*)f_41693},
{C_text("f_41697:library_2escm"),(void*)f_41697},
{C_text("f_41702:library_2escm"),(void*)f_41702},
{C_text("f_41708:library_2escm"),(void*)f_41708},
{C_text("f_41724:library_2escm"),(void*)f_41724},
{C_text("f_41732:library_2escm"),(void*)f_41732},
{C_text("f_41754:library_2escm"),(void*)f_41754},
{C_text("f_41772:library_2escm"),(void*)f_41772},
{C_text("f_41776:library_2escm"),(void*)f_41776},
{C_text("f_41788:library_2escm"),(void*)f_41788},
{C_text("f_41795:library_2escm"),(void*)f_41795},
{C_text("f_41810:library_2escm"),(void*)f_41810},
{C_text("f_41813:library_2escm"),(void*)f_41813},
{C_text("f_41816:library_2escm"),(void*)f_41816},
{C_text("f_41829:library_2escm"),(void*)f_41829},
{C_text("f_41852:library_2escm"),(void*)f_41852},
{C_text("f_41876:library_2escm"),(void*)f_41876},
{C_text("f_41886:library_2escm"),(void*)f_41886},
{C_text("f_41895:library_2escm"),(void*)f_41895},
{C_text("f_41936:library_2escm"),(void*)f_41936},
{C_text("f_41958:library_2escm"),(void*)f_41958},
{C_text("f_41967:library_2escm"),(void*)f_41967},
{C_text("f_41971:library_2escm"),(void*)f_41971},
{C_text("f_41976:library_2escm"),(void*)f_41976},
{C_text("f_41986:library_2escm"),(void*)f_41986},
{C_text("f_41996:library_2escm"),(void*)f_41996},
{C_text("f_42006:library_2escm"),(void*)f_42006},
{C_text("f_42016:library_2escm"),(void*)f_42016},
{C_text("f_42026:library_2escm"),(void*)f_42026},
{C_text("f_42036:library_2escm"),(void*)f_42036},
{C_text("f_42046:library_2escm"),(void*)f_42046},
{C_text("f_42056:library_2escm"),(void*)f_42056},
{C_text("f_42066:library_2escm"),(void*)f_42066},
{C_text("f_42076:library_2escm"),(void*)f_42076},
{C_text("f_42086:library_2escm"),(void*)f_42086},
{C_text("f_42096:library_2escm"),(void*)f_42096},
{C_text("f_42106:library_2escm"),(void*)f_42106},
{C_text("f_42122:library_2escm"),(void*)f_42122},
{C_text("f_42130:library_2escm"),(void*)f_42130},
{C_text("f_42146:library_2escm"),(void*)f_42146},
{C_text("f_42162:library_2escm"),(void*)f_42162},
{C_text("f_42172:library_2escm"),(void*)f_42172},
{C_text("f_42182:library_2escm"),(void*)f_42182},
{C_text("f_42201:library_2escm"),(void*)f_42201},
{C_text("f_42217:library_2escm"),(void*)f_42217},
{C_text("f_42230:library_2escm"),(void*)f_42230},
{C_text("f_42236:library_2escm"),(void*)f_42236},
{C_text("f_42268:library_2escm"),(void*)f_42268},
{C_text("f_42284:library_2escm"),(void*)f_42284},
{C_text("f_42288:library_2escm"),(void*)f_42288},
{C_text("f_42298:library_2escm"),(void*)f_42298},
{C_text("f_42304:library_2escm"),(void*)f_42304},
{C_text("f_42311:library_2escm"),(void*)f_42311},
{C_text("f_42329:library_2escm"),(void*)f_42329},
{C_text("f_42333:library_2escm"),(void*)f_42333},
{C_text("f_42341:library_2escm"),(void*)f_42341},
{C_text("f_42344:library_2escm"),(void*)f_42344},
{C_text("f_42357:library_2escm"),(void*)f_42357},
{C_text("f_42360:library_2escm"),(void*)f_42360},
{C_text("f_42372:library_2escm"),(void*)f_42372},
{C_text("f_42386:library_2escm"),(void*)f_42386},
{C_text("f_42389:library_2escm"),(void*)f_42389},
{C_text("f_42395:library_2escm"),(void*)f_42395},
{C_text("f_42398:library_2escm"),(void*)f_42398},
{C_text("f_42401:library_2escm"),(void*)f_42401},
{C_text("f_42408:library_2escm"),(void*)f_42408},
{C_text("f_42417:library_2escm"),(void*)f_42417},
{C_text("f_42433:library_2escm"),(void*)f_42433},
{C_text("f_42444:library_2escm"),(void*)f_42444},
{C_text("f_42455:library_2escm"),(void*)f_42455},
{C_text("f_42459:library_2escm"),(void*)f_42459},
{C_text("f_42508:library_2escm"),(void*)f_42508},
{C_text("f_42521:library_2escm"),(void*)f_42521},
{C_text("f_42524:library_2escm"),(void*)f_42524},
{C_text("f_42533:library_2escm"),(void*)f_42533},
{C_text("f_42556:library_2escm"),(void*)f_42556},
{C_text("f_42580:library_2escm"),(void*)f_42580},
{C_text("f_42584:library_2escm"),(void*)f_42584},
{C_text("f_42601:library_2escm"),(void*)f_42601},
{C_text("f_42615:library_2escm"),(void*)f_42615},
{C_text("f_42623:library_2escm"),(void*)f_42623},
{C_text("f_42627:library_2escm"),(void*)f_42627},
{C_text("f_42642:library_2escm"),(void*)f_42642},
{C_text("f_42646:library_2escm"),(void*)f_42646},
{C_text("f_42660:library_2escm"),(void*)f_42660},
{C_text("f_42701:library_2escm"),(void*)f_42701},
{C_text("toplevel:library_2escm"),(void*)C_library_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.condition#prop-list->kind-prefixed-prop-list 
o|hiding unexported module binding: chicken.process-context#_getenv 
o|hiding unexported module binding: chicken.process-context#get-environment-entry 
o|hiding unexported module binding: chicken.gc#finalizer-tag 
o|hiding unexported module binding: chicken.gc#finalizer? 
o|hiding unexported module binding: chicken.platform#path-list-separator 
o|hiding unexported module binding: chicken.platform#chop-separator 
o|hiding unexported module binding: chicken.platform#->feature-id 
o|hiding unexported module binding: chicken.io#read-bytevector!/port 
o|hiding unexported module binding: chicken.io#read-string!/port 
o|hiding unexported module binding: chicken.io#read-string/port 
o|hiding unexported module binding: chicken.io#read-bytevector/port 
S|applied compiler syntax:
S|  scheme#for-each		11
S|  ##sys#map		1
S|  chicken.base#foldl		5
S|  ##sys#for-each		9
S|  scheme#map		18
o|eliminated procedure checks: 774 
o|folded constant expression: (scheme#char->integer (quote #\0)) 
o|folded constant expression: (scheme#char->integer (quote #\a)) 
o|folded constant expression: (scheme#char->integer (quote #\A)) 
o|folded constant expression: (scheme#integer->char (quote 11)) 
o|folded constant expression: (scheme#integer->char (quote 127)) 
o|folded constant expression: (scheme#integer->char (quote 27)) 
o|folded constant expression: (scheme#integer->char (quote 27)) 
o|folded constant expression: (scheme#integer->char (quote 7)) 
o|folded constant expression: (scheme#integer->char (quote 0)) 
o|folded constant expression: (scheme#integer->char (quote 0)) 
o|folded constant expression: (scheme#integer->char (quote 12)) 
o|folded constant expression: (scheme#integer->char (quote 8)) 
o|eliminated procedure checks: 1 
o|eliminated procedure checks: 1 
o|eliminated procedure checks: 1 
o|folded constant expression: (scheme#expt (quote 1024) (quote 3)) 
o|folded constant expression: (scheme#expt (quote 1024) (quote 3)) 
o|folded constant expression: (scheme#expt (quote 1024) (quote 2)) 
o|folded constant expression: (scheme#expt (quote 1024) (quote 2)) 
o|specializations:
o|  1 (scheme#memq * list)
o|  2 (scheme#number->string fixnum)
o|  2 (scheme#string-append string string)
o|  1 (scheme#cdar (pair pair *))
o|  2 (scheme#cddr (pair * pair))
o|  1 (scheme#char>? char char)
o|  1 (scheme#char<? char char)
o|  2 (scheme#zero? integer)
o|  10 (scheme#string=? * *)
o|  2 (scheme#set-cdr! pair *)
o|  1 (scheme#set-car! pair *)
o|  16 (##sys#check-input-port * * *)
o|  29 (##sys#check-list (or pair list) *)
o|  1 (scheme#zero? number)
o|  2 (scheme#string-ci=? * *)
o|  15 (scheme#string-ref string fixnum)
o|  53 (scheme#cdr pair)
o|  2 (chicken.base#sub1 fixnum)
o|  17 (scheme#char=? char char)
o|  4 (scheme#char<=? char char)
o|  6 (scheme#char>=? char char)
o|  2 (chicken.base#sub1 *)
o|  5 (scheme#zero? *)
o|  78 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *)
o|  2 (scheme#> fixnum fixnum)
o|  2 (scheme#eqv? * *)
o|  1 (scheme#make-string fixnum char)
o|  6 (scheme#number->string * *)
o|  3 (scheme#integer? *)
o|  2 (scheme#even? *)
o|  5 (scheme#/ * *)
o|  1 (scheme#+ integer integer)
o|  5 (chicken.bitwise#integer-length *)
o|  2 (chicken.flonum#fp<= float float)
o|  9 (scheme#- *)
o|  1 (scheme#odd? *)
o|  1 (chicken.flonum#fp> float float)
o|  2 (scheme#angle cplxnum)
o|  5 (chicken.base#finite? *)
o|  8 (scheme#abs *)
o|  15 (scheme#exact->inexact number)
o|  18 (scheme#string-length string)
o|  183 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword))
o|  5 (##sys#debug-mode?)
o|  2 (scheme#- integer integer)
o|  15 (##sys#check-output-port * * *)
o|  4 (scheme#length list)
o|  13 (scheme#negative? *)
o|  5 (scheme#positive? *)
o|  1 (##sys#check-output-port * *)
o|  1 (##sys#check-input-port * *)
o|  58 (scheme#car pair)
(o e)|safe calls: 4405 
(o e)|dropped branches: 4 
(o e)|assignments to immediate values: 52 
o|dropping redundant toplevel assignment: scheme#make-list 
o|dropping redundant toplevel assignment: scheme#port? 
o|dropping redundant toplevel assignment: scheme#input-port-open? 
o|dropping redundant toplevel assignment: scheme#output-port-open? 
o|dropping redundant toplevel assignment: scheme#open-input-string 
o|dropping redundant toplevel assignment: scheme#open-output-string 
o|dropping redundant toplevel assignment: scheme#get-output-string 
o|dropping redundant toplevel assignment: scheme#open-input-bytevector 
o|dropping redundant toplevel assignment: scheme#open-output-bytevector 
o|dropping redundant toplevel assignment: scheme#get-output-bytevector 
o|dropping redundant toplevel assignment: chicken.base#warning 
o|dropping redundant toplevel assignment: chicken.base#notice 
o|dropping redundant toplevel assignment: chicken.base#enable-warnings 
o|dropping redundant toplevel assignment: ##sys#check-bytevector 
o|dropping redundant toplevel assignment: scheme#force 
o|dropping redundant toplevel assignment: scheme#append 
o|dropping redundant toplevel assignment: scheme#make-string 
o|dropping redundant toplevel assignment: scheme#string->list 
o|dropping redundant toplevel assignment: scheme#list->string 
o|dropping redundant toplevel assignment: scheme#string-fill! 
o|dropping redundant toplevel assignment: scheme#string-copy 
o|dropping redundant toplevel assignment: scheme#string-copy! 
o|dropping redundant toplevel assignment: scheme#substring 
o|dropping redundant toplevel assignment: scheme#string<? 
o|dropping redundant toplevel assignment: scheme#string>? 
o|dropping redundant toplevel assignment: scheme#string<=? 
o|dropping redundant toplevel assignment: scheme#string>=? 
o|dropping redundant toplevel assignment: scheme#string-ci<? 
o|dropping redundant toplevel assignment: scheme#string-ci>? 
o|dropping redundant toplevel assignment: scheme#string-ci<=? 
o|dropping redundant toplevel assignment: scheme#string-ci>=? 
o|dropping redundant toplevel assignment: scheme#string-append 
o|dropping redundant toplevel assignment: scheme#string 
o|dropping redundant toplevel assignment: chicken.base#chop 
o|dropping redundant toplevel assignment: scheme#make-rectangular 
o|dropping redundant toplevel assignment: scheme#make-polar 
o|dropping redundant toplevel assignment: scheme#real-part 
o|dropping redundant toplevel assignment: scheme#imag-part 
o|dropping redundant toplevel assignment: scheme#angle 
o|dropping redundant toplevel assignment: scheme#magnitude 
o|dropping redundant toplevel assignment: scheme#numerator 
o|dropping redundant toplevel assignment: scheme#denominator 
o|dropping redundant toplevel assignment: scheme#inexact->exact 
o|dropping redundant toplevel assignment: scheme#/ 
o|dropping redundant toplevel assignment: scheme#floor 
o|dropping redundant toplevel assignment: scheme#ceiling 
o|dropping redundant toplevel assignment: scheme#truncate 
o|dropping redundant toplevel assignment: scheme#round 
o|dropping redundant toplevel assignment: scheme#rationalize 
o|dropping redundant toplevel assignment: scheme#max 
o|dropping redundant toplevel assignment: scheme#min 
o|dropping redundant toplevel assignment: scheme#exp 
o|dropping redundant toplevel assignment: scheme#log 
o|dropping redundant toplevel assignment: scheme#sin 
o|dropping redundant toplevel assignment: scheme#cos 
o|dropping redundant toplevel assignment: scheme#tan 
o|dropping redundant toplevel assignment: scheme#asin 
o|dropping redundant toplevel assignment: scheme#acos 
o|dropping redundant toplevel assignment: scheme#atan 
o|dropping redundant toplevel assignment: scheme#sqrt 
o|dropping redundant toplevel assignment: scheme#truncate/ 
o|dropping redundant toplevel assignment: scheme#floor/ 
o|dropping redundant toplevel assignment: scheme#floor-remainder 
o|dropping redundant toplevel assignment: scheme#floor-quotient 
o|dropping redundant toplevel assignment: chicken.base#exact-integer-nth-root 
o|dropping redundant toplevel assignment: scheme#expt 
o|dropping redundant toplevel assignment: scheme#gcd 
o|dropping redundant toplevel assignment: scheme#lcm 
o|dropping redundant toplevel assignment: scheme#string->number 
o|dropping redundant toplevel assignment: ##sys#number->string 
o|dropping redundant toplevel assignment: chicken.base#equal=? 
o|dropping redundant toplevel assignment: scheme#symbol->string 
o|dropping redundant toplevel assignment: scheme#string->symbol 
o|dropping redundant toplevel assignment: chicken.base#string->uninterned-symbol 
o|dropping redundant toplevel assignment: chicken.base#gensym 
o|dropping redundant toplevel assignment: chicken.base#symbol-append 
o|dropping redundant toplevel assignment: ##sys#update-errno 
o|dropping redundant toplevel assignment: ##sys#errno 
o|safe globals: (chicken.keyword#keyword->string chicken.keyword#string->keyword chicken.keyword#keyword? chicken.base#symbol-append chicken.base#gensym chicken.base#string->uninterned-symbol scheme#string->symbol scheme#symbol->string ##sys#string->symbol ##sys#symbol->string ##sys#symbol->string/shared ##sys#string->symbol-name ##sys#interned-symbol? ##sys#make-symbol ##sys#intern-keyword ##sys#intern-symbol ##sys#snafu chicken.base#equal=? ##sys#number->string ##sys#integer->string ##sys#flonum->string ##sys#fixnum->string ##sys#string->number scheme#string->number ##sys#string->compnum round-quotient ldexp mantexp->dbl ##sys#extended-number->string ##sys#integer->string/recursive scheme#lcm ##sys#lcm scheme#gcd ##sys#gcd ##sys#internal-gcd scheme#expt ##sys#integer-power ##sys#exact-integer-nth-root/loc chicken.base#exact-integer-nth-root scheme#square scheme#floor-quotient scheme#floor-remainder scheme#floor/ scheme#truncate/ scheme#sqrt ##sys#sqrt/loc scheme#exact-integer-sqrt ##sys#exact-integer-sqrt scheme#atan scheme#acos scheme#asin scheme#tan scheme#cos scheme#sin scheme#log ##sys#log-1 scheme#exp scheme#min scheme#max scheme#rationalize find-ratio find-ratio-between scheme#round scheme#truncate scheme#ceiling scheme#floor ##sys#/-2 scheme#/ chicken.bitwise#arithmetic-shift chicken.bitwise#integer-length chicken.bitwise#bit->boolean chicken.bitwise#bitwise-not chicken.bitwise#bitwise-xor chicken.bitwise#bitwise-ior chicken.bitwise#bitwise-and scheme#inexact->exact flonum->ratnum ##sys#extended-signum scheme#denominator scheme#numerator ratnum scheme#magnitude scheme#angle scheme#imag-part scheme#real-part scheme#make-polar scheme#make-rectangular make-complex chicken.flonum#flonum-print-precision chicken.flonum#fpinteger? chicken.flonum#fpabs chicken.flonum#fpsqrt chicken.flonum#fplog chicken.flonum#fpexpt chicken.flonum#fpexp chicken.flonum#fpatanh chicken.flonum#fpacosh chicken.flonum#fpasinh chicken.flonum#fptanh chicken.flonum#fpcosh chicken.flonum#fpsinh chicken.flonum#fpatan2 chicken.flonum#fpatan chicken.flonum#fpacos chicken.flonum#fpasin chicken.flonum#fptan chicken.flonum#fpcos chicken.flonum#fpsin chicken.flonum#fpceiling chicken.flonum#fpround chicken.flonum#fptruncate chicken.flonum#fpfloor chicken.flonum#fpmin chicken.flonum#fpmax chicken.flonum#fpneg chicken.flonum#fp<= chicken.flonum#fp>= chicken.flonum#fp< chicken.flonum#fp> chicken.flonum#fp= chicken.flonum#fp/? chicken.flonum#fpgcd chicken.flonum#fp*+ chicken.flonum#fp/ chicken.flonum#fp* chicken.flonum#fp- chicken.flonum#fp+ chicken.flonum#flonum-minimum-decimal-exponent chicken.flonum#flonum-maximum-decimal-exponent chicken.flonum#flonum-minimum-exponent chicken.flonum#flonum-maximum-exponent chicken.flonum#flonum-decimal-precision chicken.flonum#flonum-precision chicken.flonum#flonum-epsilon chicken.flonum#flonum-radix chicken.flonum#minimum-flonum chicken.flonum#maximum-flonum chicken.base#chop ##sys#char->utf8-string scheme#string scheme#string-append ##sys#string-append scheme#string-ci>=? scheme#string-ci<=? scheme#string-ci>? scheme#string-ci<? scheme#string>=? scheme#string<=? scheme#string>? scheme#string<? scheme#substring ##sys#substring scheme#string-copy! scheme#string-copy scheme#string-fill! ##sys#reverse-list->string ##sys#list->string scheme#list->string ##sys#string->list scheme#string->list scheme#make-string ##sys#read-char/encoding ##sys#decode-char ##sys#encode-char ##sys#decode-buffer ##sys#encode-buffer ##sys#buffer->string/encoding ##sys#register-encoding ##sys#encoding-hook ##sys#binary-scanner ##sys#binary-encoder ##sys#binary-decoder ##sys#latin-scanner ##sys#latin-encoder ##sys#latin-decoder ##sys#utf-scanner ##sys#utf-encoder ##sys#utf-decoder ##sys#buffer->string ##sys#buffer->string! ##sys#make-string ##sys#make-bytevector ##sys#fast-reverse scheme#append ##sys#error-bad-base ##sys#error-bad-real ##sys#error-bad-inexact ##sys#error-bad-exact-uinteger ##sys#error-bad-exact-integer ##sys#error-bad-integer ##sys#error-bad-number ##sys#error-not-a-proper-list ##sys#set-dlopen-flags! ##sys#dload scheme#force ##sys#check-closure ##sys#check-special ##sys#check-range/including ##sys#check-range ##sys#check-real ##sys#check-exact-uinteger ##sys#check-exact-integer ##sys#check-integer ##sys#check-locative ##sys#check-boolean ##sys#check-char ##sys#check-vector ##sys#check-keyword ##sys#check-symbol ##sys#check-inexact ##sys#check-exact ##sys#check-bytevector ##sys#check-fixnum ##sys#check-number ##sys#check-string ##sys#check-list ##sys#check-pair ##sys#check-blob ##sys#check-structure chicken.time#cpu-time chicken.time#current-seconds chicken.time#current-process-milliseconds ##sys#block-set! ##sys#copy-closure ##sys#apply-values ##sys#block-ref ##sys#become! ##sys#halt ##sys#undefined-value ##sys#void ##sys#byte ##sys#message ##sys#immediate? ##sys#stop-timer ##sys#start-timer ##sys#memory-info ##sys#symbol-table-info ##sys#ensure-heap-reserve ##sys#make-structure ##sys#allocate-bytevector ##sys#allocate-vector ##sys#setislot ##sys#setslot ##sys#gc ##sys#error/errno ##sys#notice ##sys#warn ##sys#error chicken.base#enable-warnings chicken.base#notice chicken.base#warning ##sys#notices-enabled ##sys#warnings-enabled ##sys#debug-mode? chicken.fixnum#fx/? chicken.fixnum#fx*? chicken.fixnum#fx-? chicken.fixnum#fx+? chicken.fixnum#fxrem chicken.fixnum#fxmod chicken.fixnum#fxgcd chicken.fixnum#fx/ chicken.fixnum#fxlen chicken.fixnum#fxeven? chicken.fixnum#fxodd? chicken.fixnum#fxshr chicken.fixnum#fxshl chicken.fixnum#fxnot chicken.fixnum#fxxor chicken.fixnum#fxior chicken.fixnum#fxand chicken.fixnum#fxneg chicken.fixnum#fxmax chicken.fixnum#fxmin chicken.fixnum#fx<= chicken.fixnum#fx>= chicken.fixnum#fx< chicken.fixnum#fx> chicken.fixnum#fx= chicken.fixnum#fx* chicken.fixnum#fx- chicken.fixnum#fx+ chicken.fixnum#fixnum-precision chicken.fixnum#fixnum-bits chicken.fixnum#most-negative-fixnum chicken.fixnum#most-positive-fixnum maximal-string-length scheme#get-output-bytevector scheme#open-output-bytevector scheme#open-input-bytevector scheme#get-output-string scheme#open-output-string scheme#open-input-string chicken.base#rassoc chicken.base#alist-ref chicken.base#alist-update chicken.base#alist-update! chicken.base#compress chicken.base#join chicken.base#flatten chicken.base#butlast chicken.base#intersperse chicken.base#tail? chicken.base#atom? chicken.base#weak-pair? chicken.base#weak-cons chicken.base#bwp-object? chicken.base#each chicken.base#list-of? chicken.base#o chicken.base#compose chicken.base#complement chicken.base#flip chicken.base#constantly chicken.base#disjoin chicken.base#conjoin chicken.base#identity chicken.base#symbol-escape chicken.base#parentheses-synonyms chicken.base#keyword-style chicken.base#case-sensitive chicken.base#emergency-exit chicken.base#exit chicken.base#on-exit chicken.base#cleanup-tasks chicken.base#exit-handler chicken.base#implicit-exit-handler chicken.base#foldr chicken.base#foldl chicken.base#make-promise ##sys#make-promise chicken.base#promise? chicken.base#flush-output chicken.base#port-closed? chicken.base#vector-resize chicken.base#subvector chicken.base#set-record-printer! chicken.base#record-printer chicken.base#setter chicken.base#procedure-information chicken.base#getter-with-setter chicken.base#char-name chicken.base#sleep chicken.base#void chicken.base#error chicken.base#current-error-port chicken.base#sub1 chicken.base#add1 chicken.base#print* chicken.base#print chicken.base#print-call-chain chicken.base#get-call-chain chicken.base#signum chicken.base#nan? chicken.base#infinite? chicken.base#finite? chicken.base#quotient&modulo chicken.base#quotient&remainder chicken.base#exact-integer-sqrt chicken.base#cplxnum? chicken.base#ratnum? chicken.base#bignum? chicken.base#flonum? chicken.base#fixnum? scheme#dynamic-wind scheme#map scheme#for-each scheme#load scheme#null-environment scheme#scheme-report-environment scheme#interaction-environment scheme#eval scheme#display scheme#write scheme#newline scheme#write-char scheme#read scheme#peek-char scheme#read-char scheme#u8-ready? scheme#char-ready? scheme#eof-object? scheme#with-output-to-file scheme#with-input-from-file scheme#call-with-output-file scheme#call-with-input-file scheme#close-output-port scheme#close-input-port scheme#open-output-file scheme#open-input-file scheme#current-output-port scheme#current-input-port scheme#output-port-open? scheme#input-port-open? scheme#port? scheme#textual-port? scheme#binary-port? scheme#output-port? scheme#input-port? scheme#call/cc scheme#call-with-current-continuation scheme#call-with-values scheme#values scheme#apply scheme#procedure? scheme#string-upcase scheme#string-downcase scheme#string-foldcase scheme#char-foldcase scheme.char#digit-value scheme#char-alphabetic? scheme#char-whitespace? scheme#char-numeric? scheme#char-lower-case? scheme#char-upper-case? scheme#char-ci<=? scheme#char-ci>=? scheme#char-ci<? scheme#char-ci>? scheme#char-ci=? scheme#char-downcase scheme#char-upcase scheme#char<=? scheme#char>=? scheme#char<? scheme#char>? scheme#char=? scheme#integer->char ##sys#check-char-code scheme#char->integer scheme#char? scheme#vector-fill! scheme#vector scheme#vector->list scheme#list->vector scheme#make-vector scheme#vector-set! scheme#vector-ref scheme#vector-length scheme#vector? scheme#symbol? scheme#number->string scheme#exact-integer? scheme#negative? scheme#positive? scheme#zero? scheme#inexact? scheme#exact? scheme#integer? scheme#rational? scheme#real? scheme#complex? scheme#number? scheme#<= scheme#>= scheme#< scheme#> scheme#= scheme#odd? scheme#even? scheme#modulo scheme#remainder scheme#quotient scheme#* scheme#- scheme#+ scheme#abs scheme#exact->inexact scheme#make-parameter scheme#inexact scheme#exact scheme#vector->string scheme#string->vector scheme#list-copy scheme#eof-object scheme#write-string scheme#list-set! scheme#make-list scheme#vector-for-each scheme#string-for-each scheme#vector-map scheme#string-map scheme#peek-u8 scheme#close-port scheme#call-with-port scheme#features scheme#string-ci=? scheme#string=? scheme#string-set! scheme#string-ref scheme#string-length scheme#string? scheme#list? scheme#assoc scheme#assv scheme#assq scheme#member scheme#memv scheme#memq scheme#reverse scheme#list-ref scheme#list-tail scheme#length scheme#list scheme#null? scheme#cdddar scheme#cddadr scheme#cddaar scheme#cdaddr scheme#cdadar scheme#cdaadr scheme#cdaaar scheme#caddar scheme#cadadr scheme#cadaar scheme#caaddr scheme#caadar scheme#caaadr scheme#caaaar scheme#cdddr scheme#cddar scheme#cdadr scheme#cdaar scheme#cadar scheme#caadr scheme#caaar scheme#cddr scheme#cdar scheme#caar scheme#cddddr scheme#cadddr scheme#caddr scheme#cadr scheme#set-cdr! scheme#set-car! scheme#cdr scheme#car scheme#cons scheme#pair? scheme#symbol=? scheme#boolean=? scheme#equal? scheme#eqv? scheme#eq? scheme#boolean? scheme#not) 
o|inlining procedure: k11680 
o|inlining procedure: k11680 
o|inlining procedure: k11700 
o|inlining procedure: k11700 
o|inlining procedure: k11725 
o|inlining procedure: k11725 
o|inlining procedure: k11745 
o|inlining procedure: k11745 
o|inlining procedure: k12057 
o|inlining procedure: k12057 
o|inlining procedure: k12099 
o|inlining procedure: k12108 
o|inlining procedure: k12108 
o|inlining procedure: k12099 
o|inlining procedure: k12149 
o|inlining procedure: k12158 
o|inlining procedure: k12158 
o|inlining procedure: k12149 
o|inlining procedure: k12217 
o|inlining procedure: k12217 
o|inlining procedure: k12237 
o|inlining procedure: k12237 
o|inlining procedure: k12250 
o|inlining procedure: k12250 
o|inlining procedure: k12270 
o|inlining procedure: k12270 
o|inlining procedure: k12385 
o|inlining procedure: k12385 
o|contracted procedure: "(library.scm:588) g384385" 
o|inlining procedure: k12425 
o|inlining procedure: k12425 
o|inlining procedure: k12445 
o|inlining procedure: k12445 
o|inlining procedure: k12464 
o|inlining procedure: k12464 
o|inlining procedure: k12484 
o|inlining procedure: k12484 
o|inlining procedure: k12503 
o|inlining procedure: k12503 
o|inlining procedure: k12523 
o|inlining procedure: k12523 
o|inlining procedure: k12542 
o|inlining procedure: k12542 
o|inlining procedure: k12562 
o|inlining procedure: k12562 
o|inlining procedure: k12581 
o|inlining procedure: k12581 
o|inlining procedure: k12601 
o|inlining procedure: k12601 
o|inlining procedure: k12657 
o|inlining procedure: k12657 
o|inlining procedure: k12744 
o|inlining procedure: k12744 
o|inlining procedure: k12750 
o|inlining procedure: k12750 
o|inlining procedure: k12756 
o|inlining procedure: k12756 
o|inlining procedure: k12772 
o|inlining procedure: k12772 
o|inlining procedure: k12788 
o|inlining procedure: k12788 
o|substituted constant variable: a12795 
o|substituted constant variable: a12800 
o|inlining procedure: k12891 
o|inlining procedure: k12891 
o|inlining procedure: k12953 
o|inlining procedure: k12953 
o|inlining procedure: k12994 
o|inlining procedure: k12994 
o|inlining procedure: k13018 
o|inlining procedure: k13018 
o|inlining procedure: k13055 
o|inlining procedure: k13055 
o|inlining procedure: k13144 
o|inlining procedure: k13144 
o|inlining procedure: k13174 
o|inlining procedure: k13174 
o|inlining procedure: k13203 
o|inlining procedure: k13203 
o|inlining procedure: k13247 
o|inlining procedure: k13247 
o|inlining procedure: k13268 
o|propagated global variable: r1326942804 scheme#values 
o|inlining procedure: k13268 
o|inlining procedure: k13280 
o|propagated global variable: r1328142806 chicken.base#identity 
o|inlining procedure: k13280 
o|inlining procedure: k13298 
o|inlining procedure: k13298 
o|inlining procedure: k13327 
o|inlining procedure: k13327 
o|inlining procedure: k13339 
o|inlining procedure: k13339 
o|inlining procedure: k13363 
o|inlining procedure: k13363 
o|inlining procedure: k13397 
o|inlining procedure: k13397 
o|inlining procedure: k13440 
o|inlining procedure: k13440 
o|inlining procedure: k13465 
o|inlining procedure: k13465 
o|inlining procedure: k13504 
o|inlining procedure: k13504 
o|inlining procedure: k13530 
o|inlining procedure: k13530 
o|inlining procedure: k13577 
o|inlining procedure: k13577 
o|inlining procedure: k13598 
o|inlining procedure: k13598 
o|inlining procedure: k13631 
o|inlining procedure: k13631 
o|inlining procedure: k13646 
o|inlining procedure: k13646 
o|inlining procedure: k13711 
o|inlining procedure: k13711 
o|inlining procedure: k13727 
o|propagated global variable: r1372842836 scheme#assv 
o|inlining procedure: k13727 
o|inlining procedure: k13747 
o|inlining procedure: k13747 
o|inlining procedure: k13797 
o|inlining procedure: k13797 
o|inlining procedure: k13822 
o|inlining procedure: k13822 
o|inlining procedure: k13910 
o|inlining procedure: k13910 
o|inlining procedure: k13919 
o|propagated global variable: r1392042846 scheme#assv 
o|inlining procedure: k13919 
o|inlining procedure: k13939 
o|inlining procedure: k13939 
o|inlining procedure: k13957 
o|inlining procedure: k13957 
o|inlining procedure: k14016 
o|inlining procedure: k14016 
o|substituted constant variable: a14100 
o|substituted constant variable: a14101 
o|inlining procedure: k14102 
o|inlining procedure: k14102 
o|inlining procedure: k14155 
o|inlining procedure: k14155 
o|contracted procedure: "(library.scm:1249) g13111312" 
o|inlining procedure: k14171 
o|inlining procedure: k14171 
o|inlining procedure: k14282 
o|inlining procedure: k14282 
o|substituted constant variable: a14312 
o|inlining procedure: k14412 
o|inlining procedure: k14412 
o|inlining procedure: k14421 
o|inlining procedure: k14421 
o|inlining procedure: k14433 
o|inlining procedure: k14433 
o|propagated global variable: r1443442867 ##sys#warnings-enabled 
o|inlining procedure: k14447 
o|inlining procedure: k14447 
o|inlining procedure: k14550 
o|inlining procedure: k14550 
o|inlining procedure: k14583 
o|inlining procedure: k14583 
o|inlining procedure: k14594 
o|inlining procedure: k14594 
o|inlining procedure: k14605 
o|inlining procedure: k14605 
o|inlining procedure: k14616 
o|inlining procedure: k14616 
o|inlining procedure: k14627 
o|inlining procedure: k14627 
o|inlining procedure: k14638 
o|inlining procedure: k14638 
o|inlining procedure: k14649 
o|inlining procedure: k14649 
o|inlining procedure: k14660 
o|inlining procedure: k14660 
o|inlining procedure: k14671 
o|inlining procedure: k14671 
o|inlining procedure: k14682 
o|inlining procedure: k14682 
o|inlining procedure: k14693 
o|inlining procedure: k14693 
o|inlining procedure: k14704 
o|inlining procedure: k14704 
o|inlining procedure: k14715 
o|inlining procedure: k14715 
o|inlining procedure: k14726 
o|inlining procedure: k14726 
o|inlining procedure: k14737 
o|inlining procedure: k14737 
o|inlining procedure: k14748 
o|inlining procedure: k14748 
o|inlining procedure: k14759 
o|inlining procedure: k14759 
o|inlining procedure: k14766 
o|inlining procedure: k14766 
o|inlining procedure: k14776 
o|inlining procedure: k14776 
o|inlining procedure: k14783 
o|inlining procedure: k14783 
o|inlining procedure: k14793 
o|inlining procedure: k14806 
o|inlining procedure: k14806 
o|inlining procedure: k14793 
o|inlining procedure: k14817 
o|inlining procedure: k14817 
o|inlining procedure: k14824 
o|inlining procedure: k14824 
o|inlining procedure: k14834 
o|inlining procedure: k14834 
o|inlining procedure: k14845 
o|inlining procedure: k14845 
o|inlining procedure: k14856 
o|inlining procedure: k14856 
o|inlining procedure: k14866 
o|inlining procedure: k14866 
o|inlining procedure: k14876 
o|inlining procedure: k14876 
o|inlining procedure: k14887 
o|inlining procedure: k14902 
o|inlining procedure: k14902 
o|inlining procedure: k14920 
o|inlining procedure: k14941 
o|inlining procedure: k14941 
o|inlining procedure: k14969 
o|inlining procedure: k14969 
o|inlining procedure: k14920 
o|inlining procedure: k14887 
o|inlining procedure: k15143 
o|inlining procedure: k15143 
o|inlining procedure: k15155 
o|inlining procedure: k15155 
o|inlining procedure: k15174 
o|inlining procedure: k15174 
o|inlining procedure: k15228 
o|inlining procedure: k15228 
o|inlining procedure: k15252 
o|inlining procedure: k15252 
o|inlining procedure: k15316 
o|inlining procedure: k15316 
o|inlining procedure: k15384 
o|inlining procedure: k15384 
o|inlining procedure: k15402 
o|inlining procedure: k15402 
o|substituted constant variable: a15415 
o|substituted constant variable: a15417 
o|substituted constant variable: a15419 
o|inlining procedure: k15426 
o|inlining procedure: k15426 
o|inlining procedure: k15441 
o|inlining procedure: k15441 
o|inlining procedure: k15541 
o|inlining procedure: k15541 
o|inlining procedure: k15594 
o|inlining procedure: k15594 
o|inlining procedure: k15649 
o|inlining procedure: k15649 
o|inlining procedure: k15706 
o|inlining procedure: k15706 
o|inlining procedure: k15724 
o|inlining procedure: k15724 
o|inlining procedure: k15777 
o|inlining procedure: k15777 
o|inlining procedure: k15853 
o|inlining procedure: k15853 
o|inlining procedure: k15865 
o|inlining procedure: k15865 
o|inlining procedure: k15902 
o|inlining procedure: k15902 
o|inlining procedure: k15973 
o|inlining procedure: k15973 
o|inlining procedure: k16043 
o|inlining procedure: k16063 
o|inlining procedure: k16063 
o|inlining procedure: k16043 
o|inlining procedure: k16097 
o|inlining procedure: k16097 
o|inlining procedure: k16130 
o|inlining procedure: k16130 
o|inlining procedure: k16189 
o|inlining procedure: k16189 
o|inlining procedure: k16205 
o|inlining procedure: k16205 
o|inlining procedure: k16246 
o|inlining procedure: k16246 
o|inlining procedure: k16294 
o|inlining procedure: k16294 
o|inlining procedure: k16318 
o|inlining procedure: k16318 
o|inlining procedure: k16339 
o|inlining procedure: k16339 
o|inlining procedure: k16360 
o|inlining procedure: k16360 
o|inlining procedure: k16396 
o|inlining procedure: k16396 
o|inlining procedure: k16444 
o|inlining procedure: k16444 
o|inlining procedure: k16468 
o|inlining procedure: k16468 
o|inlining procedure: k16489 
o|inlining procedure: k16489 
o|inlining procedure: k16510 
o|inlining procedure: k16510 
o|inlining procedure: k16577 
o|inlining procedure: k16577 
o|inlining procedure: k16656 
o|inlining procedure: k16656 
o|inlining procedure: k16677 
o|inlining procedure: k16677 
o|contracted procedure: "(library.scm:2158) g23862387" 
o|inlining procedure: k16738 
o|inlining procedure: k16738 
o|contracted procedure: "(library.scm:2162) g23972398" 
o|inlining procedure: k16762 
o|inlining procedure: k16762 
o|contracted procedure: "(library.scm:2166) g24082409" 
o|inlining procedure: k16786 
o|inlining procedure: k16786 
o|contracted procedure: "(library.scm:2170) g24192420" 
o|inlining procedure: k16810 
o|inlining procedure: k16810 
o|inlining procedure: k16832 
o|inlining procedure: k16832 
o|inlining procedure: k16845 
o|inlining procedure: k16845 
o|contracted procedure: "(library.scm:2180) g24382439" 
o|inlining procedure: k16859 
o|inlining procedure: k16859 
o|contracted procedure: "(library.scm:2184) g24492450" 
o|inlining procedure: k16883 
o|inlining procedure: k16883 
o|contracted procedure: "(library.scm:2188) g24602461" 
o|inlining procedure: k16907 
o|inlining procedure: k16907 
o|contracted procedure: "(library.scm:2192) g24712472" 
o|inlining procedure: k16931 
o|inlining procedure: k16931 
o|contracted procedure: "(library.scm:2196) g24822483" 
o|inlining procedure: k16955 
o|inlining procedure: k16955 
o|contracted procedure: "(library.scm:2200) g24932494" 
o|inlining procedure: k16979 
o|inlining procedure: k16979 
o|contracted procedure: "(library.scm:2204) g25042505" 
o|inlining procedure: k17003 
o|inlining procedure: k17003 
o|contracted procedure: "(library.scm:2208) g25142515" 
o|inlining procedure: k17027 
o|inlining procedure: k17027 
o|contracted procedure: "(library.scm:2212) g25232524" 
o|inlining procedure: k17045 
o|inlining procedure: k17045 
o|contracted procedure: "(library.scm:2216) g25342535" 
o|inlining procedure: k17069 
o|inlining procedure: k17069 
o|contracted procedure: "(library.scm:2220) g25442545" 
o|inlining procedure: k17093 
o|inlining procedure: k17093 
o|contracted procedure: "(library.scm:2224) g25522553" 
o|inlining procedure: k17111 
o|inlining procedure: k17111 
o|contracted procedure: "(library.scm:2228) g25602561" 
o|inlining procedure: k17129 
o|inlining procedure: k17129 
o|contracted procedure: "(library.scm:2232) g25682569" 
o|inlining procedure: k17147 
o|inlining procedure: k17147 
o|contracted procedure: "(library.scm:2236) g25762577" 
o|inlining procedure: k17165 
o|inlining procedure: k17165 
o|contracted procedure: "(library.scm:2240) g25842585" 
o|inlining procedure: k17183 
o|inlining procedure: k17183 
o|contracted procedure: "(library.scm:2244) g25922593" 
o|inlining procedure: k17201 
o|inlining procedure: k17201 
o|contracted procedure: "(library.scm:2248) g26002601" 
o|inlining procedure: k17219 
o|inlining procedure: k17219 
o|contracted procedure: "(library.scm:2252) g26082609" 
o|inlining procedure: k17237 
o|inlining procedure: k17237 
o|contracted procedure: "(library.scm:2256) g26162617" 
o|inlining procedure: k17255 
o|inlining procedure: k17255 
o|contracted procedure: "(library.scm:2260) g26252626" 
o|inlining procedure: k17273 
o|inlining procedure: k17273 
o|contracted procedure: "(library.scm:2264) g26352636" 
o|inlining procedure: k17297 
o|inlining procedure: k17297 
o|contracted procedure: "(library.scm:2268) g26432644" 
o|inlining procedure: k17315 
o|inlining procedure: k17315 
o|contracted procedure: "(library.scm:2272) g26512652" 
o|inlining procedure: k17333 
o|inlining procedure: k17333 
o|contracted procedure: "(library.scm:2276) g26592660" 
o|inlining procedure: k17351 
o|inlining procedure: k17351 
o|contracted procedure: "(library.scm:2280) g26672668" 
o|inlining procedure: k17369 
o|inlining procedure: k17369 
o|contracted procedure: "(library.scm:2284) g26752676" 
o|inlining procedure: k17387 
o|inlining procedure: k17387 
o|contracted procedure: "(library.scm:2288) g26832684" 
o|inlining procedure: k17405 
o|inlining procedure: k17405 
o|contracted procedure: "(library.scm:2292) g26922693" 
o|inlining procedure: k17423 
o|inlining procedure: k17423 
o|contracted procedure: "(library.scm:2296) g27022703" 
o|inlining procedure: k17447 
o|inlining procedure: k17447 
o|contracted procedure: "(library.scm:2300) g27102711" 
o|inlining procedure: k17465 
o|inlining procedure: k17465 
o|contracted procedure: "(library.scm:2304) g27182719" 
o|inlining procedure: k17483 
o|inlining procedure: k17483 
o|contracted procedure: "(library.scm:2308) g27262727" 
o|inlining procedure: k17501 
o|inlining procedure: k17501 
o|inlining procedure: k17520 
o|inlining procedure: k17520 
o|inlining procedure: k17535 
o|inlining procedure: k17535 
o|inlining procedure: k17597 
o|contracted procedure: "(library.scm:2352) g28172818" 
o|inlining procedure: k17597 
o|inlining procedure: k17620 
o|contracted procedure: "(library.scm:2358) g28252826" 
o|inlining procedure: k17620 
o|inlining procedure: k17659 
o|contracted procedure: "(library.scm:2373) g28402841" 
o|contracted procedure: "(library.scm:2372) g28372838" 
o|inlining procedure: k17659 
o|inlining procedure: k17703 
o|inlining procedure: k17703 
o|contracted procedure: "(library.scm:2387) g28502851" 
o|inlining procedure: k17720 
o|contracted procedure: "(library.scm:2389) g28532854" 
o|contracted procedure: "(library.scm:2389) g28602861" 
o|contracted procedure: "(library.scm:2389) g28572858" 
o|inlining procedure: k17720 
o|contracted procedure: "(library.scm:2390) g28632864" 
o|inlining procedure: k17749 
o|inlining procedure: k17749 
o|inlining procedure: k17755 
o|inlining procedure: k17755 
o|inlining procedure: k17777 
o|contracted procedure: "(library.scm:2399) g28762877" 
o|inlining procedure: k17777 
o|inlining procedure: k17794 
o|inlining procedure: k17794 
o|inlining procedure: k17800 
o|inlining procedure: k17800 
o|inlining procedure: k17822 
o|contracted procedure: "(library.scm:2412) g28882889" 
o|inlining procedure: k17822 
o|inlining procedure: k17839 
o|contracted procedure: "(library.scm:2420) g28972898" 
o|inlining procedure: k17839 
o|inlining procedure: k17963 
o|inlining procedure: k17963 
o|inlining procedure: k17972 
o|contracted procedure: "(library.scm:2453) g29292930" 
o|inlining procedure: k17972 
o|contracted procedure: "(library.scm:2454) flonum->ratnum" 
o|inlining procedure: k17903 
o|contracted procedure: "(library.scm:2438) g29142915" 
o|inlining procedure: k17903 
o|contracted procedure: "(library.scm:2435) float-fraction-length2902" 
o|inlining procedure: k17880 
o|inlining procedure: k17880 
o|inlining procedure: k17931 
o|inlining procedure: k17931 
o|substituted constant variable: a17959 
o|inlining procedure: k17989 
o|contracted procedure: "(library.scm:2458) g29352936" 
o|contracted procedure: "(library.scm:2457) g29322933" 
o|inlining procedure: k17989 
o|inlining procedure: k18039 
o|inlining procedure: k18039 
o|inlining procedure: k18062 
o|inlining procedure: k18062 
o|inlining procedure: k18093 
o|contracted procedure: "(library.scm:2508) g29912992" 
o|contracted procedure: "(library.scm:2508) g29872988" 
o|contracted procedure: "(library.scm:2507) g29832984" 
o|inlining procedure: k18093 
o|inlining procedure: k18184 
o|inlining procedure: k18184 
o|inlining procedure: k18207 
o|contracted procedure: "(library.scm:2528) g30303031" 
o|contracted procedure: "(library.scm:2527) g30253026" 
o|contracted procedure: "(library.scm:2526) g30213022" 
o|contracted procedure: "(library.scm:2526) g30173018" 
o|contracted procedure: "(library.scm:2525) g30133014" 
o|contracted procedure: "(library.scm:2525) g30093010" 
o|inlining procedure: k18207 
o|contracted procedure: "(library.scm:2537) g30413042" 
o|contracted procedure: "(library.scm:2534) g30353036" 
o|inlining procedure: k18303 
o|contracted procedure: "(library.scm:2547) g30503051" 
o|contracted procedure: "(library.scm:2545) g30453046" 
o|inlining procedure: k18303 
o|inlining procedure: k18371 
o|inlining procedure: k18371 
o|inlining procedure: k18380 
o|contracted procedure: "(library.scm:2561) g30653066" 
o|contracted procedure: "(library.scm:2560) g30613062" 
o|inlining procedure: k18380 
o|inlining procedure: k18415 
o|inlining procedure: k18415 
o|inlining procedure: k18424 
o|contracted procedure: "(library.scm:2571) g30783079" 
o|contracted procedure: "(library.scm:2570) g30743075" 
o|inlining procedure: k18424 
o|inlining procedure: k18459 
o|inlining procedure: k18459 
o|inlining procedure: k18468 
o|contracted procedure: "(library.scm:2581) g30893090" 
o|contracted procedure: "(library.scm:2580) g30863087" 
o|inlining procedure: k18468 
o|inlining procedure: k18495 
o|inlining procedure: k18495 
o|inlining procedure: k18501 
o|contracted procedure: "(library.scm:2590) g30983099" 
o|inlining procedure: k18501 
o|inlining procedure: k18547 
o|inlining procedure: k18547 
o|inlining procedure: k18619 
o|inlining procedure: k18619 
o|inlining procedure: k18637 
o|inlining procedure: k18637 
o|inlining procedure: k18691 
o|inlining procedure: k18691 
o|contracted procedure: "(library.scm:2617) find-ratio" 
o|inlining procedure: k18724 
o|inlining procedure: k18724 
o|inlining procedure: k18751 
o|inlining procedure: k18758 
o|inlining procedure: k18758 
o|inlining procedure: k18751 
o|inlining procedure: k18771 
o|inlining procedure: k18771 
o|inlining procedure: k18778 
o|inlining procedure: k18778 
o|inlining procedure: k18795 
o|inlining procedure: k18795 
o|inlining procedure: k18822 
o|inlining procedure: k18829 
o|inlining procedure: k18829 
o|inlining procedure: k18822 
o|inlining procedure: k18842 
o|inlining procedure: k18842 
o|inlining procedure: k18849 
o|inlining procedure: k18849 
o|inlining procedure: k18858 
o|contracted procedure: "(library.scm:2664) g31893190" 
o|contracted procedure: "(library.scm:2663) g31853186" 
o|inlining procedure: k18858 
o|inlining procedure: k18900 
o|inlining procedure: k18900 
o|inlining procedure: k18952 
o|inlining procedure: k18952 
o|inlining procedure: k18981 
o|inlining procedure: k18981 
o|inlining procedure: k19015 
o|inlining procedure: k19015 
o|inlining procedure: k19049 
o|inlining procedure: k19049 
o|inlining procedure: k19074 
o|inlining procedure: k19074 
o|inlining procedure: k19113 
o|inlining procedure: k19113 
o|inlining procedure: k19122 
o|substituted constant variable: a19129 
o|inlining procedure: k19122 
o|inlining procedure: k19136 
o|inlining procedure: k19136 
o|inlining procedure: k19155 
o|inlining procedure: k19155 
o|inlining procedure: k19164 
o|substituted constant variable: a19171 
o|inlining procedure: k19164 
o|inlining procedure: k19181 
o|inlining procedure: k19181 
o|inlining procedure: k19239 
o|inlining procedure: k19257 
o|inlining procedure: k19257 
o|inlining procedure: k19275 
o|inlining procedure: k19275 
o|substituted constant variable: a19288 
o|substituted constant variable: a19290 
o|substituted constant variable: a19292 
o|substituted constant variable: a19297 
o|substituted constant variable: a19299 
o|inlining procedure: k19239 
o|substituted constant variable: a19330 
o|inlining procedure: k19365 
o|inlining procedure: k19365 
o|inlining procedure: k19439 
o|inlining procedure: k19439 
o|inlining procedure: k19490 
o|inlining procedure: k19505 
o|inlining procedure: k19505 
o|inlining procedure: k19490 
o|contracted procedure: "(library.scm:2805) g33313332" 
o|inlining procedure: k19539 
o|contracted procedure: "(library.scm:2808) g33363337" 
o|inlining procedure: k19563 
o|inlining procedure: k19563 
o|inlining procedure: k19539 
o|inlining procedure: k19612 
o|inlining procedure: k19612 
o|inlining procedure: k19703 
o|inlining procedure: k19703 
o|inlining procedure: k19748 
o|inlining procedure: k19748 
o|inlining procedure: k19820 
o|inlining procedure: k19820 
o|inlining procedure: k19835 
o|contracted procedure: "(library.scm:2873) g33873388" 
o|inlining procedure: k19835 
o|inlining procedure: k19858 
o|inlining procedure: k19858 
o|contracted procedure: "(library.scm:2878) square3385" 
o|inlining procedure: k19914 
o|inlining procedure: k19914 
o|inlining procedure: k19934 
o|inlining procedure: k19934 
o|inlining procedure: k19952 
o|contracted procedure: "(library.scm:2898) g34153416" 
o|contracted procedure: "(library.scm:2897) g34123413" 
o|inlining procedure: k19952 
o|inlining procedure: k19989 
o|contracted procedure: "(library.scm:2907) g34223423" 
o|inlining procedure: k20023 
o|contracted procedure: "(library.scm:2909) g34273428" 
o|inlining procedure: k20023 
o|inlining procedure: k19989 
o|inlining procedure: k20057 
o|inlining procedure: k20057 
o|inlining procedure: k20075 
o|inlining procedure: k20075 
o|inlining procedure: k20094 
o|inlining procedure: k20094 
o|inlining procedure: k20131 
o|inlining procedure: k20131 
o|inlining procedure: k20163 
o|contracted procedure: "(library.scm:2936) g34523453" 
o|inlining procedure: k20174 
o|contracted procedure: "(library.scm:2939) g34573458" 
o|inlining procedure: k20174 
o|inlining procedure: k20163 
o|inlining procedure: k20202 
o|inlining procedure: k20202 
o|contracted procedure: "(library.scm:2946) g34663467" 
o|inlining procedure: k20236 
o|inlining procedure: k20236 
o|inlining procedure: k20256 
o|inlining procedure: k20256 
o|inlining procedure: k20301 
o|inlining procedure: k20301 
o|inlining procedure: k20321 
o|inlining procedure: k20321 
o|substituted constant variable: a20394 
o|inlining procedure: k20409 
o|contracted procedure: "(library.scm:3002) g35323533" 
o|contracted procedure: "(library.scm:3000) g35293530" 
o|inlining procedure: k20409 
o|inlining procedure: k20473 
o|substituted constant variable: a20488 
o|inlining procedure: k20473 
o|contracted procedure: "(library.scm:3004) g35403541" 
o|contracted procedure: "(library.scm:3003) g35373538" 
o|inlining procedure: k20599 
o|inlining procedure: k20612 
o|inlining procedure: k20612 
o|inlining procedure: k20599 
o|contracted procedure: "(library.scm:3042) g35713572" 
o|inlining procedure: k20641 
o|inlining procedure: k20641 
o|inlining procedure: k20655 
o|inlining procedure: k20664 
o|inlining procedure: k20676 
o|inlining procedure: k20676 
o|inlining procedure: k20664 
o|inlining procedure: k20692 
o|inlining procedure: k20692 
o|inlining procedure: k20698 
o|contracted procedure: "(library.scm:3065) mantexp->dbl" 
o|inlining procedure: k20497 
o|inlining procedure: k20497 
o|contracted procedure: "(library.scm:3034) ldexp" 
o|propagated global variable: a20556 chicken.flonum#flonum-precision 
o|inlining procedure: k20698 
o|inlining procedure: k20655 
o|inlining procedure: k20750 
o|inlining procedure: k20762 
o|inlining procedure: k20762 
o|inlining procedure: k20750 
o|inlining procedure: k20784 
o|inlining procedure: k20784 
o|substituted constant variable: a20807 
o|inlining procedure: k20811 
o|inlining procedure: k20828 
o|substituted constant variable: a20838 
o|inlining procedure: k20839 
o|inlining procedure: k20839 
o|substituted constant variable: a20843 
o|inlining procedure: k20828 
o|inlining procedure: k20811 
o|inlining procedure: k20850 
o|inlining procedure: k20850 
o|substituted constant variable: a20871 
o|inlining procedure: k20875 
o|inlining procedure: k20875 
o|substituted constant variable: a20882 
o|substituted constant variable: a20887 
o|substituted constant variable: a20892 
o|substituted constant variable: a20894 
o|inlining procedure: k20903 
o|inlining procedure: k20903 
o|inlining procedure: k20934 
o|inlining procedure: k20934 
o|inlining procedure: k20954 
o|inlining procedure: k20954 
o|inlining procedure: k20976 
o|inlining procedure: k20976 
o|inlining procedure: k20987 
o|inlining procedure: k20987 
o|inlining procedure: k21001 
o|inlining procedure: k21042 
o|inlining procedure: k21042 
o|substituted constant variable: a21049 
o|substituted constant variable: a21051 
o|inlining procedure: k21001 
o|inlining procedure: k21054 
o|inlining procedure: k21075 
o|inlining procedure: k21093 
o|inlining procedure: k21105 
o|inlining procedure: k21121 
o|inlining procedure: k21121 
o|inlining procedure: k21105 
o|inlining procedure: k21093 
o|inlining procedure: k21075 
o|inlining procedure: k21166 
o|inlining procedure: k21166 
o|inlining procedure: k21181 
o|inlining procedure: k21181 
o|inlining procedure: k21193 
o|inlining procedure: k21193 
o|inlining procedure: k21205 
o|inlining procedure: k21205 
o|inlining procedure: k21217 
o|inlining procedure: k21217 
o|substituted constant variable: a21230 
o|substituted constant variable: a21232 
o|substituted constant variable: a21234 
o|substituted constant variable: a21236 
o|substituted constant variable: a21238 
o|substituted constant variable: a21240 
o|substituted constant variable: a21242 
o|substituted constant variable: a21244 
o|substituted constant variable: a21246 
o|substituted constant variable: a21248 
o|inlining procedure: k21255 
o|inlining procedure: k21255 
o|inlining procedure: k21054 
o|inlining procedure: k21266 
o|inlining procedure: k21266 
o|inlining procedure: k21291 
o|inlining procedure: k21306 
o|inlining procedure: k21306 
o|inlining procedure: k21291 
o|inlining procedure: k21349 
o|inlining procedure: k21361 
o|inlining procedure: k21371 
o|inlining procedure: k21371 
o|inlining procedure: k21361 
o|inlining procedure: k21349 
o|inlining procedure: k21391 
o|inlining procedure: k21407 
o|inlining procedure: k21417 
o|inlining procedure: k21435 
o|inlining procedure: k21455 
o|inlining procedure: "(library.scm:3209) make-nan3585" 
o|inlining procedure: k21455 
o|substituted constant variable: a21482 
o|substituted constant variable: a21484 
o|substituted constant variable: a21486 
o|inlining procedure: k21435 
o|inlining procedure: k21417 
o|inlining procedure: k21407 
o|inlining procedure: k21391 
o|substituted constant variable: a21504 
o|inlining procedure: k21508 
o|inlining procedure: k21508 
o|inlining procedure: k21520 
o|inlining procedure: k21520 
o|inlining procedure: k21532 
o|inlining procedure: k21532 
o|inlining procedure: k21544 
o|inlining procedure: k21544 
o|substituted constant variable: a21557 
o|substituted constant variable: a21559 
o|substituted constant variable: a21561 
o|substituted constant variable: a21563 
o|substituted constant variable: a21565 
o|substituted constant variable: a21567 
o|substituted constant variable: a21569 
o|substituted constant variable: a21571 
o|substituted constant variable: a21573 
o|substituted constant variable: a21575 
o|substituted constant variable: a21577 
o|inlining procedure: k21589 
o|inlining procedure: k21589 
o|inlining procedure: k21608 
o|inlining procedure: k21631 
o|inlining procedure: k21653 
o|inlining procedure: k21663 
o|inlining procedure: k21663 
o|inlining procedure: k21653 
o|inlining procedure: k21686 
o|inlining procedure: k21686 
o|substituted constant variable: a21713 
o|inlining procedure: k21725 
o|inlining procedure: k21725 
o|inlining procedure: k21631 
o|inlining procedure: k21747 
o|inlining procedure: k21747 
o|inlining procedure: k21757 
o|substituted constant variable: a21770 
o|inlining procedure: k21782 
o|inlining procedure: k21782 
o|inlining procedure: "(library.scm:3241) make-nan3585" 
o|inlining procedure: k21757 
o|substituted constant variable: a21818 
o|substituted constant variable: a21820 
o|substituted constant variable: a21825 
o|substituted constant variable: a21827 
o|inlining procedure: k21834 
o|inlining procedure: k21834 
o|substituted constant variable: a21841 
o|substituted constant variable: a21843 
o|inlining procedure: k21608 
o|inlining procedure: k21850 
o|inlining procedure: k21862 
o|inlining procedure: k21862 
o|inlining procedure: k21872 
o|inlining procedure: k21872 
o|inlining procedure: k21850 
o|inlining procedure: k21882 
o|inlining procedure: k21882 
o|inlining procedure: k21898 
o|inlining procedure: k21917 
o|inlining procedure: k21917 
o|inlining procedure: k21898 
o|inlining procedure: k21939 
o|inlining procedure: k21959 
o|inlining procedure: k21974 
o|inlining procedure: k21986 
o|inlining procedure: k21986 
o|inlining procedure: k21993 
o|substituted constant variable: a22004 
o|inlining procedure: k21993 
o|inlining procedure: k21974 
o|inlining procedure: k21959 
o|inlining procedure: k21939 
o|inlining procedure: k22055 
o|inlining procedure: k22055 
o|substituted constant variable: a22082 
o|substituted constant variable: a22087 
o|substituted constant variable: a22089 
o|substituted constant variable: a22094 
o|substituted constant variable: a22096 
o|substituted constant variable: a22098 
o|inlining procedure: k22107 
o|inlining procedure: k22107 
o|contracted procedure: "(library.scm:3075) g36143615" 
o|contracted procedure: "(library.scm:3074) g36103611" 
o|contracted procedure: "(library.scm:3073) g36063607" 
o|inlining procedure: k22158 
o|inlining procedure: k22176 
o|inlining procedure: k22176 
o|inlining procedure: k22189 
o|inlining procedure: k22189 
o|inlining procedure: k22220 
o|inlining procedure: k22220 
o|inlining procedure: k22233 
o|inlining procedure: k22233 
o|inlining procedure: k22264 
o|inlining procedure: k22264 
o|inlining procedure: k22277 
o|inlining procedure: k22277 
o|substituted constant variable: a22303 
o|substituted constant variable: a22305 
o|substituted constant variable: a22310 
o|substituted constant variable: a22312 
o|substituted constant variable: a22317 
o|substituted constant variable: a22319 
o|substituted constant variable: a22324 
o|substituted constant variable: a22326 
o|substituted constant variable: a22331 
o|substituted constant variable: a22333 
o|substituted constant variable: a22338 
o|substituted constant variable: a22340 
o|inlining procedure: k22158 
o|inlining procedure: k22349 
o|inlining procedure: k22349 
o|inlining procedure: k22372 
o|inlining procedure: k22372 
o|inlining procedure: k22445 
o|inlining procedure: k22466 
o|inlining procedure: k22466 
o|inlining procedure: k22445 
o|inlining procedure: k22510 
o|inlining procedure: k22510 
o|inlining procedure: k22519 
o|inlining procedure: k22519 
o|inlining procedure: k22531 
o|inlining procedure: k22531 
o|inlining procedure: k22543 
o|inlining procedure: k22543 
o|inlining procedure: k22552 
o|inlining procedure: k22552 
o|inlining procedure: k22561 
o|inlining procedure: k22561 
o|inlining procedure: k22578 
o|inlining procedure: k22578 
o|inlining procedure: k22597 
o|inlining procedure: k22597 
o|inlining procedure: k22735 
o|inlining procedure: k22735 
o|inlining procedure: "(library.scm:3417) err4079" 
o|inlining procedure: k22741 
o|inlining procedure: k22741 
o|inlining procedure: "(library.scm:3416) err4079" 
o|inlining procedure: k22781 
o|contracted procedure: "(library.scm:3426) g41014110" 
o|inlining procedure: k22781 
o|inlining procedure: k22831 
o|inlining procedure: k22831 
o|inlining procedure: k22858 
o|inlining procedure: k22858 
o|inlining procedure: k22893 
o|inlining procedure: k22893 
o|inlining procedure: k22926 
o|inlining procedure: k22926 
o|inlining procedure: k22959 
o|inlining procedure: k22959 
o|inlining procedure: k22977 
o|inlining procedure: k22977 
o|inlining procedure: k23185 
o|inlining procedure: k23185 
o|inlining procedure: k23208 
o|inlining procedure: k23208 
o|inlining procedure: k23253 
o|inlining procedure: k23253 
o|inlining procedure: k23271 
o|inlining procedure: k23271 
o|inlining procedure: k23337 
o|inlining procedure: k23337 
o|inlining procedure: k23356 
o|inlining procedure: k23356 
o|inlining procedure: k23398 
o|inlining procedure: k23413 
o|inlining procedure: k23413 
o|inlining procedure: k23398 
o|inlining procedure: k23460 
o|inlining procedure: k23460 
o|inlining procedure: k23479 
o|inlining procedure: k23479 
o|inlining procedure: k23500 
o|inlining procedure: k23500 
o|inlining procedure: k23561 
o|inlining procedure: k23561 
o|inlining procedure: k23653 
o|inlining procedure: k23653 
o|inlining procedure: k23739 
o|inlining procedure: k23739 
o|inlining procedure: k23767 
o|inlining procedure: k23767 
o|inlining procedure: k23852 
o|inlining procedure: k23872 
o|inlining procedure: k23872 
o|inlining procedure: k23852 
o|inlining procedure: k23906 
o|inlining procedure: k23906 
o|inlining procedure: k23940 
o|inlining procedure: k23940 
o|inlining procedure: k24007 
o|inlining procedure: k24007 
o|inlining procedure: k24047 
o|inlining procedure: k24047 
o|substituted constant variable: g46214624 
o|inlining procedure: k24071 
o|inlining procedure: k24071 
o|inlining procedure: k24105 
o|contracted procedure: "(library.scm:3727) g45664573" 
o|inlining procedure: k24105 
o|inlining procedure: k24158 
o|inlining procedure: k24158 
o|inlining procedure: k24224 
o|inlining procedure: k24224 
o|inlining procedure: k24267 
o|inlining procedure: k24267 
o|inlining procedure: k24290 
o|inlining procedure: k24290 
o|inlining procedure: k24314 
o|inlining procedure: k24314 
o|inlining procedure: k24337 
o|inlining procedure: k24337 
o|inlining procedure: k24357 
o|inlining procedure: k24357 
o|inlining procedure: k24380 
o|inlining procedure: k24380 
o|inlining procedure: k24400 
o|inlining procedure: k24400 
o|inlining procedure: k24423 
o|inlining procedure: k24423 
o|inlining procedure: k24443 
o|inlining procedure: k24443 
o|inlining procedure: k24466 
o|inlining procedure: k24466 
o|inlining procedure: k24489 
o|inlining procedure: k24489 
o|inlining procedure: k24520 
o|inlining procedure: k24532 
o|inlining procedure: k24532 
o|substituted constant variable: a24565 
o|substituted constant variable: a24567 
o|inlining procedure: k24520 
o|inlining procedure: k24577 
o|inlining procedure: k24577 
o|inlining procedure: k24595 
o|inlining procedure: k24595 
o|inlining procedure: k24621 
o|inlining procedure: k24621 
o|substituted constant variable: a24686 
o|substituted constant variable: a24688 
o|inlining procedure: k24752 
o|inlining procedure: k24752 
o|inlining procedure: k24790 
o|inlining procedure: k24790 
o|inlining procedure: k24838 
o|inlining procedure: k24838 
o|inlining procedure: k24856 
o|inlining procedure: k24856 
o|inlining procedure: k24884 
o|inlining procedure: k24899 
o|inlining procedure: k24899 
o|inlining procedure: k24884 
o|inlining procedure: k24935 
o|inlining procedure: k24935 
o|inlining procedure: k24966 
o|inlining procedure: k24984 
o|inlining procedure: k24984 
o|inlining procedure: k24966 
o|inlining procedure: k25031 
o|inlining procedure: k25031 
o|inlining procedure: k25108 
o|inlining procedure: k25108 
o|inlining procedure: k25142 
o|inlining procedure: k25142 
o|inlining procedure: k25275 
o|inlining procedure: k25275 
o|inlining procedure: k25286 
o|inlining procedure: k25286 
o|inlining procedure: k25297 
o|inlining procedure: k25297 
o|inlining procedure: k25308 
o|inlining procedure: k25308 
o|inlining procedure: k25319 
o|propagated global variable: r2532043706 ##sys#standard-input 
o|removed unused formal parameters: (convert?5135) 
o|inlining procedure: k25334 
o|inlining procedure: k25334 
o|removed unused parameter to known procedure: convert?5135 "(library.scm:4267) body51255134" 
o|inlining procedure: k25319 
o|inlining procedure: k25361 
o|inlining procedure: k25361 
o|removed unused parameter to known procedure: convert?5135 "(library.scm:4267) body51255134" 
o|inlining procedure: k25380 
o|propagated global variable: r2538143712 ##sys#standard-output 
o|removed unused formal parameters: (convert?5160) 
o|inlining procedure: k25395 
o|inlining procedure: k25395 
o|removed unused parameter to known procedure: convert?5160 "(library.scm:4277) body51505159" 
o|inlining procedure: k25380 
o|inlining procedure: k25422 
o|inlining procedure: k25422 
o|removed unused parameter to known procedure: convert?5160 "(library.scm:4277) body51505159" 
o|inlining procedure: k25441 
o|propagated global variable: r2544243718 ##sys#standard-error 
o|removed unused formal parameters: (convert?5185) 
o|inlining procedure: k25456 
o|inlining procedure: k25456 
o|removed unused parameter to known procedure: convert?5185 "(library.scm:4287) body51755184" 
o|inlining procedure: k25441 
o|inlining procedure: k25483 
o|inlining procedure: k25483 
o|removed unused parameter to known procedure: convert?5185 "(library.scm:4287) body51755184" 
o|inlining procedure: k25502 
o|inlining procedure: k25502 
o|inlining procedure: k25547 
o|inlining procedure: k25547 
o|inlining procedure: k25573 
o|inlining procedure: k25573 
o|inlining procedure: k25579 
o|inlining procedure: k25579 
o|inlining procedure: k25606 
o|inlining procedure: k25606 
o|inlining procedure: k25626 
o|inlining procedure: k25626 
o|inlining procedure: k25646 
o|inlining procedure: k25646 
o|inlining procedure: k25665 
o|inlining procedure: k25665 
o|substituted constant variable: a25679 
o|substituted constant variable: a25681 
o|substituted constant variable: a25686 
o|substituted constant variable: a25688 
o|inlining procedure: k25692 
o|inlining procedure: k25692 
o|substituted constant variable: a25705 
o|substituted constant variable: a25707 
o|substituted constant variable: a25709 
o|substituted constant variable: a25711 
o|inlining procedure: k25715 
o|inlining procedure: k25715 
o|substituted constant variable: a25728 
o|substituted constant variable: a25730 
o|substituted constant variable: a25732 
o|substituted constant variable: a25734 
o|substituted constant variable: a25739 
o|substituted constant variable: a25741 
o|substituted constant variable: a25746 
o|substituted constant variable: a25748 
o|substituted constant variable: a25753 
o|substituted constant variable: a25755 
o|inlining procedure: k25765 
o|inlining procedure: k25765 
o|inlining procedure: k25940 
o|inlining procedure: k25940 
o|substituted constant variable: a25956 
o|substituted constant variable: a25958 
o|substituted constant variable: a25979 
o|substituted constant variable: a25980 
o|inlining procedure: k25993 
o|inlining procedure: k25993 
o|inlining procedure: k26015 
o|inlining procedure: k26028 
o|inlining procedure: k26028 
o|inlining procedure: k26015 
o|inlining procedure: k26087 
o|inlining procedure: k26087 
o|inlining procedure: k26132 
o|inlining procedure: k26132 
o|inlining procedure: k26171 
o|inlining procedure: k26171 
o|inlining procedure: k26212 
o|inlining procedure: k26212 
o|inlining procedure: k26231 
o|inlining procedure: k26231 
o|inlining procedure: k26363 
o|inlining procedure: k26363 
o|inlining procedure: k26402 
o|inlining procedure: k26441 
o|inlining procedure: k26441 
o|inlining procedure: k26402 
o|inlining procedure: k26469 
o|inlining procedure: k26469 
o|substituted constant variable: a26517 
o|substituted constant variable: a26518 
o|substituted constant variable: a26542 
o|substituted constant variable: a26543 
o|substituted constant variable: a26567 
o|substituted constant variable: a26568 
o|inlining procedure: k26584 
o|inlining procedure: k26584 
o|substituted constant variable: a26642 
o|substituted constant variable: a26643 
o|inlining procedure: k26650 
o|inlining procedure: k26650 
o|substituted constant variable: a26679 
o|substituted constant variable: a26680 
o|substituted constant variable: a26697 
o|substituted constant variable: a26698 
o|inlining procedure: k26756 
o|inlining procedure: k26756 
o|inlining procedure: k26779 
o|inlining procedure: k26779 
o|inlining procedure: k26819 
o|inlining procedure: k26819 
o|inlining procedure: k26838 
o|inlining procedure: k26838 
o|inlining procedure: k26877 
o|inlining procedure: k26877 
o|inlining procedure: k26903 
o|inlining procedure: k26903 
o|inlining procedure: k26934 
o|inlining procedure: k26934 
o|inlining procedure: k27009 
o|inlining procedure: k27009 
o|inlining procedure: k27061 
o|inlining procedure: k27061 
o|inlining procedure: k27080 
o|inlining procedure: k27080 
o|inlining procedure: k27105 
o|inlining procedure: k27105 
o|inlining procedure: k27168 
o|inlining procedure: k27168 
o|inlining procedure: k27197 
o|inlining procedure: k27197 
o|inlining procedure: k27215 
o|inlining procedure: k27215 
o|inlining procedure: k27227 
o|inlining procedure: k27227 
o|inlining procedure: k27262 
o|inlining procedure: k27262 
o|inlining procedure: k27277 
o|inlining procedure: k27277 
o|substituted constant variable: a27284 
o|substituted constant variable: a27286 
o|substituted constant variable: a27288 
o|substituted constant variable: a27290 
o|substituted constant variable: a27295 
o|inlining procedure: k27309 
o|inlining procedure: k27309 
o|inlining procedure: k27325 
o|inlining procedure: k27325 
o|inlining procedure: k27359 
o|inlining procedure: k27359 
o|inlining procedure: k27393 
o|folded constant expression: (scheme#integer->char (quote 7)) 
o|inlining procedure: k27393 
o|folded constant expression: (scheme#integer->char (quote 11)) 
o|inlining procedure: k27435 
o|folded constant expression: (scheme#integer->char (quote 12)) 
o|inlining procedure: k27435 
o|inlining procedure: k27480 
o|inlining procedure: k27480 
o|inlining procedure: k27528 
o|inlining procedure: k27528 
o|inlining procedure: k27563 
o|inlining procedure: k27563 
o|inlining procedure: k27585 
o|inlining procedure: k27585 
o|inlining procedure: k27610 
o|inlining procedure: k27610 
o|substituted constant variable: a27639 
o|substituted constant variable: a27641 
o|substituted constant variable: a27646 
o|substituted constant variable: a27648 
o|inlining procedure: k27649 
o|inlining procedure: k27649 
o|inlining procedure: k27712 
o|inlining procedure: k27712 
o|inlining procedure: k27724 
o|inlining procedure: k27724 
o|substituted constant variable: a27737 
o|substituted constant variable: a27739 
o|substituted constant variable: a27741 
o|substituted constant variable: a27743 
o|inlining procedure: k27747 
o|inlining procedure: k27747 
o|substituted constant variable: a27760 
o|substituted constant variable: a27762 
o|substituted constant variable: a27764 
o|substituted constant variable: a27766 
o|substituted constant variable: a27768 
o|substituted constant variable: a27770 
o|substituted constant variable: a27772 
o|substituted constant variable: a27774 
o|substituted constant variable: a27776 
o|substituted constant variable: a27778 
o|substituted constant variable: a27780 
o|substituted constant variable: a27782 
o|substituted constant variable: a27784 
o|substituted constant variable: a27786 
o|inlining procedure: k27787 
o|inlining procedure: k27787 
o|inlining procedure: k27819 
o|inlining procedure: k27819 
o|inlining procedure: k27810 
o|inlining procedure: k27852 
o|inlining procedure: k27852 
o|inlining procedure: k27883 
o|inlining procedure: k27883 
o|inlining procedure: k27902 
o|inlining procedure: k27935 
o|inlining procedure: k27935 
o|inlining procedure: k27977 
o|inlining procedure: k27977 
o|inlining procedure: k27993 
o|inlining procedure: k27993 
o|inlining procedure: "(library.scm:4969) build-symbol5744" 
o|substituted constant variable: a28015 
o|inlining procedure: k28022 
o|inlining procedure: k28022 
o|inlining procedure: k28034 
o|inlining procedure: k28034 
o|inlining procedure: k27902 
o|inlining procedure: k27810 
o|inlining procedure: k28074 
o|inlining procedure: k28074 
o|inlining procedure: k28095 
o|inlining procedure: k28095 
o|substituted constant variable: a28112 
o|inlining procedure: k28116 
o|inlining procedure: k28116 
o|inlining procedure: k28131 
o|inlining procedure: k28131 
o|inlining procedure: "(library.scm:5005) build-symbol5744" 
o|inlining procedure: k28141 
o|inlining procedure: k28141 
o|substituted constant variable: a28149 
o|substituted constant variable: a28150 
o|inlining procedure: k28158 
o|inlining procedure: k28179 
o|inlining procedure: k28179 
o|substituted constant variable: a28192 
o|inlining procedure: k28158 
o|inlining procedure: k28209 
o|inlining procedure: k28230 
o|inlining procedure: k28230 
o|substituted constant variable: a28243 
o|substituted constant variable: a28251 
o|inlining procedure: k28247 
o|inlining procedure: k28247 
o|substituted constant variable: a28259 
o|inlining procedure: k28209 
o|inlining procedure: k28286 
o|inlining procedure: k28286 
o|inlining procedure: k28322 
o|inlining procedure: k28322 
o|inlining procedure: k28328 
o|inlining procedure: k28328 
o|inlining procedure: k28347 
o|inlining procedure: k28347 
o|inlining procedure: "(library.scm:5060) build-symbol5744" 
o|inlining procedure: k28421 
o|inlining procedure: k28447 
o|inlining procedure: k28447 
o|inlining procedure: k28476 
o|inlining procedure: k28476 
o|inlining procedure: k28485 
o|inlining procedure: k28485 
o|inlining procedure: k28495 
o|inlining procedure: k28495 
o|inlining procedure: k28421 
o|inlining procedure: k28527 
o|inlining procedure: k28527 
o|inlining procedure: k28571 
o|inlining procedure: k28571 
o|inlining procedure: k28593 
o|inlining procedure: k28593 
o|inlining procedure: k28617 
o|inlining procedure: k28617 
o|substituted constant variable: a28621 
o|substituted constant variable: a28623 
o|substituted constant variable: a28625 
o|substituted constant variable: a28627 
o|inlining procedure: k28631 
o|inlining procedure: k28631 
o|inlining procedure: k28640 
o|inlining procedure: k28640 
o|inlining procedure: k28665 
o|inlining procedure: k28694 
o|inlining procedure: k28694 
o|inlining procedure: k28713 
o|inlining procedure: k28731 
o|inlining procedure: k28747 
o|substituted constant variable: a28771 
o|inlining procedure: k28747 
o|substituted constant variable: a28786 
o|inlining procedure: k28731 
o|substituted constant variable: a28801 
o|inlining procedure: k28713 
o|substituted constant variable: a28840 
o|substituted constant variable: a28854 
o|inlining procedure: k28856 
o|inlining procedure: k28856 
o|substituted constant variable: a28859 
o|inlining procedure: k28665 
o|inlining procedure: k28882 
o|inlining procedure: k28894 
o|inlining procedure: k28894 
o|inlining procedure: k28882 
o|inlining procedure: k28928 
o|inlining procedure: k28928 
o|inlining procedure: k28941 
o|inlining procedure: k28941 
o|substituted constant variable: a28954 
o|substituted constant variable: a28956 
o|inlining procedure: "(library.scm:5169) build-symbol5744" 
o|inlining procedure: k29019 
o|inlining procedure: k29040 
o|inlining procedure: k29040 
o|inlining procedure: k29019 
o|inlining procedure: k29064 
o|inlining procedure: k29064 
o|inlining procedure: k29085 
o|inlining procedure: k29085 
o|inlining procedure: k29104 
o|inlining procedure: k29125 
o|inlining procedure: k29149 
o|inlining procedure: k29149 
o|inlining procedure: k29180 
o|inlining procedure: k29180 
o|inlining procedure: k29212 
o|inlining procedure: k29212 
o|inlining procedure: k29192 
o|inlining procedure: k29192 
o|inlining procedure: k29254 
o|inlining procedure: k29254 
o|inlining procedure: k29125 
o|inlining procedure: k29294 
o|inlining procedure: k29294 
o|inlining procedure: k29309 
o|inlining procedure: k29309 
o|inlining procedure: k29333 
o|inlining procedure: k29333 
o|inlining procedure: k29357 
o|inlining procedure: k29357 
o|inlining procedure: k29381 
o|inlining procedure: k29381 
o|inlining procedure: k29402 
o|inlining procedure: k29402 
o|inlining procedure: k29429 
o|inlining procedure: k29429 
o|inlining procedure: k29456 
o|inlining procedure: k29456 
o|inlining procedure: k29497 
o|inlining procedure: k29497 
o|inlining procedure: k29528 
o|inlining procedure: k29528 
o|inlining procedure: k29570 
o|inlining procedure: k29570 
o|substituted constant variable: a29588 
o|substituted constant variable: a29593 
o|inlining procedure: k29590 
o|inlining procedure: k29590 
o|substituted constant variable: a29598 
o|substituted constant variable: a29610 
o|inlining procedure: k29607 
o|inlining procedure: k29607 
o|inlining procedure: "(library.scm:5322) build-symbol5744" 
o|inlining procedure: k29635 
o|inlining procedure: k29635 
o|inlining procedure: k29657 
o|inlining procedure: k29657 
o|substituted constant variable: a29660 
o|inlining procedure: k29674 
o|inlining procedure: k29674 
o|substituted constant variable: a29687 
o|substituted constant variable: a29689 
o|substituted constant variable: a29691 
o|substituted constant variable: a29693 
o|substituted constant variable: a29695 
o|substituted constant variable: a29697 
o|substituted constant variable: a29699 
o|substituted constant variable: a29701 
o|substituted constant variable: a29703 
o|substituted constant variable: a29705 
o|substituted constant variable: a29707 
o|substituted constant variable: a29709 
o|substituted constant variable: a29711 
o|substituted constant variable: a29713 
o|substituted constant variable: a29715 
o|substituted constant variable: a29717 
o|inlining procedure: k29104 
o|inlining procedure: k29730 
o|inlining procedure: k29730 
o|inlining procedure: k29754 
o|inlining procedure: k29754 
o|inlining procedure: k29775 
o|inlining procedure: k29775 
o|inlining procedure: k29790 
o|inlining procedure: k29790 
o|inlining procedure: k29808 
o|inlining procedure: k29808 
o|substituted constant variable: a29839 
o|substituted constant variable: a29841 
o|substituted constant variable: a29843 
o|substituted constant variable: a29845 
o|substituted constant variable: a29850 
o|substituted constant variable: a29852 
o|substituted constant variable: a29854 
o|substituted constant variable: a29856 
o|substituted constant variable: a29858 
o|substituted constant variable: a29860 
o|substituted constant variable: a29862 
o|substituted constant variable: a29864 
o|substituted constant variable: a29866 
o|substituted constant variable: a29868 
o|inlining procedure: k29887 
o|inlining procedure: k29887 
o|inlining procedure: k29902 
o|inlining procedure: k29902 
o|inlining procedure: k29935 
o|inlining procedure: k29956 
o|inlining procedure: k29956 
o|inlining procedure: k29974 
o|inlining procedure: k29974 
o|substituted constant variable: a30010 
o|substituted constant variable: a30015 
o|substituted constant variable: a30017 
o|substituted constant variable: a30022 
o|substituted constant variable: a30024 
o|inlining procedure: k29935 
o|inlining procedure: k30035 
o|inlining procedure: k30035 
o|substituted constant variable: a30042 
o|substituted constant variable: a30044 
o|substituted constant variable: a30046 
o|inlining procedure: k30053 
o|inlining procedure: k30053 
o|substituted constant variable: a30075 
o|substituted constant variable: a30077 
o|inlining procedure: k30087 
o|inlining procedure: k30103 
o|inlining procedure: k30103 
o|inlining procedure: k30122 
o|inlining procedure: k30122 
o|inlining procedure: k30154 
o|inlining procedure: k30154 
o|inlining procedure: k30087 
o|substituted constant variable: a30226 
o|substituted constant variable: a30227 
o|substituted constant variable: a30244 
o|substituted constant variable: a30245 
o|inlining procedure: k30258 
o|propagated global variable: r3025944073 ##sys#standard-output 
o|inlining procedure: k30258 
o|substituted constant variable: a30277 
o|substituted constant variable: a30278 
o|substituted constant variable: a30295 
o|substituted constant variable: a30296 
o|propagated global variable: a30309 ##sys#standard-output 
o|substituted constant variable: a30310 
o|substituted constant variable: a30311 
o|contracted procedure: "(library.scm:5465) g64266427" 
o|inlining procedure: k30328 
o|contracted procedure: "(library.scm:5460) g64326439" 
o|propagated global variable: g64476448 ##sys#print 
o|inlining procedure: k30328 
o|propagated global variable: a30360 ##sys#standard-output 
o|substituted constant variable: a30361 
o|substituted constant variable: a30362 
o|contracted procedure: "(library.scm:5472) g64586459" 
o|inlining procedure: k30379 
o|contracted procedure: "(library.scm:5460) g64646471" 
o|propagated global variable: g64796480 ##sys#print 
o|inlining procedure: k30379 
o|substituted constant variable: a30424 
o|substituted constant variable: a30425 
o|inlining procedure: k30441 
o|inlining procedure: k30441 
o|inlining procedure: k30543 
o|inlining procedure: k30543 
o|inlining procedure: k30575 
o|inlining procedure: k30575 
o|substituted constant variable: special-characters6503 
o|inlining procedure: k30587 
o|inlining procedure: k30587 
o|inlining procedure: k30605 
o|inlining procedure: k30605 
o|inlining procedure: k30626 
o|inlining procedure: k30626 
o|substituted constant variable: a30642 
o|substituted constant variable: a30695 
o|inlining procedure: k30702 
o|inlining procedure: k30702 
o|substituted constant variable: a30715 
o|inlining procedure: k30716 
o|inlining procedure: k30716 
o|inlining procedure: k30731 
o|inlining procedure: k30731 
o|inlining procedure: k30750 
o|inlining procedure: k30765 
o|substituted constant variable: a30789 
o|inlining procedure: k30765 
o|inlining procedure: k30796 
o|substituted constant variable: a30811 
o|inlining procedure: k30796 
o|inlining procedure: k30812 
o|inlining procedure: k30812 
o|inlining procedure: k30827 
o|inlining procedure: k30827 
o|inlining procedure: k30840 
o|substituted constant variable: a30861 
o|substituted constant variable: a30864 
o|inlining procedure: k30840 
o|inlining procedure: k30750 
o|inlining procedure: k30877 
o|inlining procedure: k30877 
o|inlining procedure: k30930 
o|inlining procedure: k30930 
o|inlining procedure: k30948 
o|inlining procedure: k30948 
o|inlining procedure: k30963 
o|inlining procedure: k30963 
o|inlining procedure: k30975 
o|inlining procedure: k30990 
o|inlining procedure: k30990 
o|inlining procedure: k30975 
o|inlining procedure: k31043 
o|inlining procedure: k31043 
o|inlining procedure: k31058 
o|inlining procedure: k31058 
o|inlining procedure: k31070 
o|inlining procedure: k31070 
o|substituted constant variable: a31101 
o|substituted constant variable: a31103 
o|inlining procedure: k31107 
o|inlining procedure: k31107 
o|inlining procedure: k31126 
o|inlining procedure: k31126 
o|inlining procedure: k31139 
o|inlining procedure: k31155 
o|inlining procedure: k31155 
o|inlining procedure: k31187 
o|inlining procedure: k31187 
o|inlining procedure: k31208 
o|inlining procedure: k31208 
o|inlining procedure: k31226 
o|inlining procedure: k31226 
o|inlining procedure: k31244 
o|inlining procedure: k31244 
o|inlining procedure: k31262 
o|inlining procedure: k31262 
o|substituted constant variable: a31294 
o|substituted constant variable: a31296 
o|substituted constant variable: a31298 
o|substituted constant variable: a31300 
o|substituted constant variable: a31302 
o|substituted constant variable: a31304 
o|substituted constant variable: a31306 
o|substituted constant variable: a31315 
o|substituted constant variable: a31317 
o|inlining procedure: k31139 
o|inlining procedure: k31325 
o|inlining procedure: k31344 
o|inlining procedure: k31344 
o|inlining procedure: k31325 
o|inlining procedure: k31411 
o|inlining procedure: k31411 
o|inlining procedure: k31427 
o|inlining procedure: k31427 
o|inlining procedure: k31449 
o|inlining procedure: k31474 
o|inlining procedure: k31474 
o|substituted constant variable: a31487 
o|substituted constant variable: a31489 
o|inlining procedure: k31449 
o|inlining procedure: k31496 
o|inlining procedure: k31496 
o|inlining procedure: k31521 
o|inlining procedure: k31521 
o|inlining procedure: k31565 
o|inlining procedure: k31565 
o|inlining procedure: k31582 
o|inlining procedure: k31582 
o|inlining procedure: k31597 
o|inlining procedure: k31597 
o|inlining procedure: k31628 
o|inlining procedure: k31658 
o|inlining procedure: k31658 
o|inlining procedure: k31628 
o|inlining procedure: k31742 
o|inlining procedure: k31742 
o|substituted constant variable: a31759 
o|substituted constant variable: a31761 
o|substituted constant variable: saved679767986810 
o|inlining procedure: k31868 
o|inlining procedure: k31868 
o|inlining procedure: k31972 
o|inlining procedure: k31972 
o|inlining procedure: k31987 
o|inlining procedure: k32008 
o|inlining procedure: k32008 
o|inlining procedure: k31987 
o|inlining procedure: k32041 
o|inlining procedure: k32041 
o|inlining procedure: k32082 
o|inlining procedure: k32082 
o|inlining procedure: k32119 
o|inlining procedure: k32119 
o|inlining procedure: k32159 
o|inlining procedure: k32159 
o|inlining procedure: k32206 
o|inlining procedure: k32206 
o|inlining procedure: k32229 
o|inlining procedure: k32255 
o|inlining procedure: k32255 
o|inlining procedure: k32229 
o|inlining procedure: k32309 
o|inlining procedure: k32309 
o|substituted constant variable: c7029 
o|contracted procedure: "(library.scm:5981) extract7006" 
o|substituted constant variable: c7029 
o|inlining procedure: k32386 
o|inlining procedure: k32386 
o|substituted constant variable: c7029 
o|substituted constant variable: c7029 
o|inlining procedure: k32468 
o|inlining procedure: k32468 
o|inlining procedure: k32493 
o|inlining procedure: k32493 
o|inlining procedure: k32499 
o|inlining procedure: k32499 
o|inlining procedure: k32436 
o|inlining procedure: k32518 
o|inlining procedure: k32518 
o|inlining procedure: k32436 
o|substituted constant variable: a32566 
o|substituted constant variable: a32567 
o|inlining procedure: k32638 
o|inlining procedure: "(library.scm:6029) break7105" 
o|inlining procedure: k32638 
o|inlining procedure: k32667 
o|inlining procedure: k32667 
o|inlining procedure: k32703 
o|inlining procedure: k32703 
o|inlining procedure: k32726 
o|contracted procedure: "(library.scm:6051) g71157122" 
o|inlining procedure: k32726 
o|inlining procedure: k32770 
o|inlining procedure: k32770 
o|inlining procedure: k32824 
o|contracted procedure: "(library.scm:6123) g71957202" 
o|inlining procedure: k32824 
o|inlining procedure: k32862 
o|inlining procedure: k32862 
o|inlining procedure: k32898 
o|inlining procedure: k32898 
o|inlining procedure: k32915 
o|inlining procedure: k32915 
o|inlining procedure: k32927 
o|inlining procedure: k32927 
o|inlining procedure: k32939 
o|inlining procedure: k32939 
o|inlining procedure: k32951 
o|inlining procedure: k32951 
o|inlining procedure: k32963 
o|inlining procedure: k32963 
o|inlining procedure: k32975 
o|inlining procedure: k32975 
o|inlining procedure: k32987 
o|inlining procedure: k32987 
o|substituted constant variable: a32994 
o|substituted constant variable: a32996 
o|substituted constant variable: a32998 
o|substituted constant variable: a33000 
o|substituted constant variable: a33002 
o|substituted constant variable: a33004 
o|substituted constant variable: a33006 
o|substituted constant variable: a33008 
o|substituted constant variable: a33010 
o|substituted constant variable: a33012 
o|substituted constant variable: a33014 
o|substituted constant variable: a33016 
o|substituted constant variable: a33018 
o|substituted constant variable: a33020 
o|substituted constant variable: a33056 
o|substituted constant variable: a33058 
o|substituted constant variable: a33060 
o|inlining procedure: k33064 
o|inlining procedure: k33064 
o|inlining procedure: k33128 
o|inlining procedure: k33164 
o|inlining procedure: k33164 
o|inlining procedure: k33176 
o|inlining procedure: k33190 
o|inlining procedure: k33190 
o|inlining procedure: k33176 
o|inlining procedure: k33128 
o|inlining procedure: k33226 
o|inlining procedure: k33226 
o|inlining procedure: k33281 
o|propagated global variable: r3328244279 ##sys#current-exception-handler 
o|removed unused formal parameters: (convert?7361) 
o|inlining procedure: k33296 
o|inlining procedure: k33296 
o|removed unused parameter to known procedure: convert?7361 "(library.scm:6277) body73517360" 
o|inlining procedure: k33281 
o|inlining procedure: k33323 
o|inlining procedure: k33323 
o|removed unused parameter to known procedure: convert?7361 "(library.scm:6277) body73517360" 
o|inlining procedure: k33348 
o|inlining procedure: k33348 
o|inlining procedure: k33461 
o|contracted procedure: "(library.scm:6305) g74467455" 
o|inlining procedure: k33461 
o|inlining procedure: k33507 
o|contracted procedure: "(library.scm:6304) g74197428" 
o|inlining procedure: k33507 
o|inlining procedure: k33541 
o|contracted procedure: "(library.scm:6301) g73967403" 
o|inlining procedure: k33541 
o|inlining procedure: k33583 
o|inlining procedure: k33583 
o|inlining procedure: k33635 
o|contracted procedure: "(library.scm:6310) g74797488" 
o|inlining procedure: k33635 
o|inlining procedure: k33697 
o|inlining procedure: k33697 
o|inlining procedure: k33753 
o|inlining procedure: k33753 
o|inlining procedure: k33795 
o|inlining procedure: k33795 
o|inlining procedure: k33825 
o|inlining procedure: k33840 
o|inlining procedure: k33840 
o|inlining procedure: k33825 
o|inlining procedure: k33901 
o|inlining procedure: k33901 
o|substituted constant variable: a33926 
o|substituted constant variable: a33927 
o|inlining procedure: k33934 
o|inlining procedure: k33955 
o|inlining procedure: k33955 
o|inlining procedure: k33985 
o|inlining procedure: k33985 
o|inlining procedure: k34014 
o|inlining procedure: k34014 
o|inlining procedure: k33934 
o|inlining procedure: k34082 
(o x)|known list op on rest arg sublist: ##core#rest-cdr args7618 0 
o|inlining procedure: k34082 
o|inlining procedure: k34117 
o|inlining procedure: k34117 
o|inlining procedure: k34163 
o|inlining procedure: k34186 
o|inlining procedure: k34186 
o|inlining procedure: k34163 
o|inlining procedure: k34223 
o|inlining procedure: k34223 
o|inlining procedure: k34237 
o|inlining procedure: k34237 
o|inlining procedure: k34255 
o|inlining procedure: k34255 
o|inlining procedure: k34273 
o|inlining procedure: k34273 
o|inlining procedure: k34291 
o|inlining procedure: k34291 
o|inlining procedure: k34309 
o|inlining procedure: k34309 
o|inlining procedure: k34327 
o|inlining procedure: k34327 
o|inlining procedure: k34345 
o|inlining procedure: k34345 
o|inlining procedure: k34363 
o|inlining procedure: k34363 
o|inlining procedure: k34381 
o|inlining procedure: k34381 
o|inlining procedure: k34399 
o|inlining procedure: k34399 
o|inlining procedure: k34417 
o|inlining procedure: k34417 
o|inlining procedure: k34435 
o|inlining procedure: k34435 
o|inlining procedure: k34453 
o|inlining procedure: k34453 
o|inlining procedure: k34471 
o|inlining procedure: k34471 
o|inlining procedure: k34489 
o|inlining procedure: k34489 
o|inlining procedure: k34507 
o|inlining procedure: k34507 
o|inlining procedure: k34525 
o|inlining procedure: k34525 
o|inlining procedure: k34543 
o|inlining procedure: k34543 
o|inlining procedure: k34561 
o|inlining procedure: k34561 
o|inlining procedure: k34579 
o|inlining procedure: k34579 
o|inlining procedure: k34597 
o|inlining procedure: k34597 
o|inlining procedure: k34615 
o|inlining procedure: k34615 
o|inlining procedure: k34633 
o|inlining procedure: k34633 
o|inlining procedure: k34651 
o|inlining procedure: k34651 
o|inlining procedure: k34669 
o|inlining procedure: k34669 
o|inlining procedure: k34687 
o|inlining procedure: k34687 
o|inlining procedure: k34705 
o|inlining procedure: k34705 
o|inlining procedure: k34737 
o|inlining procedure: k34737 
o|inlining procedure: k34751 
o|inlining procedure: k34751 
o|substituted constant variable: a34773 
o|substituted constant variable: a34775 
o|substituted constant variable: a34777 
o|substituted constant variable: a34779 
o|substituted constant variable: a34781 
o|substituted constant variable: a34783 
o|substituted constant variable: a34785 
o|substituted constant variable: a34787 
o|substituted constant variable: a34789 
o|substituted constant variable: a34791 
o|substituted constant variable: a34793 
o|substituted constant variable: a34795 
o|substituted constant variable: a34797 
o|substituted constant variable: a34799 
o|substituted constant variable: a34801 
o|substituted constant variable: a34803 
o|substituted constant variable: a34805 
o|substituted constant variable: a34807 
o|substituted constant variable: a34809 
o|substituted constant variable: a34811 
o|substituted constant variable: a34813 
o|substituted constant variable: a34815 
o|substituted constant variable: a34817 
o|substituted constant variable: a34819 
o|substituted constant variable: a34821 
o|substituted constant variable: a34823 
o|substituted constant variable: a34825 
o|substituted constant variable: a34827 
o|substituted constant variable: a34829 
o|substituted constant variable: a34831 
o|substituted constant variable: a34833 
o|substituted constant variable: a34835 
o|substituted constant variable: a34837 
o|substituted constant variable: a34839 
o|substituted constant variable: a34841 
o|substituted constant variable: a34843 
o|substituted constant variable: a34845 
o|substituted constant variable: a34847 
o|substituted constant variable: a34849 
o|substituted constant variable: a34851 
o|substituted constant variable: a34853 
o|substituted constant variable: a34855 
o|substituted constant variable: a34857 
o|substituted constant variable: a34859 
o|substituted constant variable: a34861 
o|substituted constant variable: a34863 
o|substituted constant variable: a34865 
o|substituted constant variable: a34867 
o|substituted constant variable: a34869 
o|substituted constant variable: a34871 
o|substituted constant variable: a34873 
o|substituted constant variable: a34875 
o|substituted constant variable: a34877 
o|substituted constant variable: a34879 
o|substituted constant variable: a34881 
o|substituted constant variable: a34883 
o|substituted constant variable: a34885 
o|substituted constant variable: a34887 
o|inlining procedure: k35054 
o|inlining procedure: k35054 
o|inlining procedure: k35072 
o|inlining procedure: k35072 
o|inlining procedure: k35119 
o|inlining procedure: k35119 
o|inlining procedure: k35125 
o|inlining procedure: k35125 
o|inlining procedure: k35178 
o|inlining procedure: k35178 
o|inlining procedure: k35220 
o|inlining procedure: k35220 
o|inlining procedure: k35297 
o|inlining procedure: k35297 
o|contracted procedure: "(library.scm:6688) fetch7900" 
o|contracted procedure: "(library.scm:6705) free7919" 
o|inlining procedure: k35344 
o|inlining procedure: k35344 
o|inlining procedure: k35361 
o|inlining procedure: k35361 
o|contracted procedure: "(library.scm:6700) fetch7918" 
o|inlining procedure: k35414 
o|inlining procedure: k35414 
o|propagated global variable: ct8008 ##sys#current-thread 
o|inlining procedure: k35565 
o|inlining procedure: k35565 
o|inlining procedure: k35589 
o|inlining procedure: k35613 
o|inlining procedure: k35613 
o|inlining procedure: k35589 
o|inlining procedure: k35644 
o|inlining procedure: k35644 
o|inlining procedure: k35703 
o|inlining procedure: k35703 
o|inlining procedure: k35731 
o|inlining procedure: k35731 
o|inlining procedure: k35788 
o|inlining procedure: k35788 
o|inlining procedure: k35828 
o|inlining procedure: k35840 
o|inlining procedure: k35840 
o|inlining procedure: k35828 
o|inlining procedure: k35867 
o|inlining procedure: k35867 
o|inlining procedure: k35913 
o|inlining procedure: k35913 
o|substituted constant variable: a35970 
o|inlining procedure: k35963 
o|inlining procedure: k35963 
o|substituted constant variable: a35983 
o|inlining procedure: k35994 
o|inlining procedure: k36034 
o|inlining procedure: k36072 
o|inlining procedure: k36072 
o|inlining procedure: k36034 
o|inlining procedure: k36165 
o|inlining procedure: k36165 
o|substituted constant variable: a36226 
o|substituted constant variable: a36228 
o|substituted constant variable: a36236 
o|substituted constant variable: a36241 
o|substituted constant variable: a36243 
o|substituted constant variable: a36257 
o|inlining procedure: k36250 
o|inlining procedure: k36250 
o|substituted constant variable: a36270 
o|inlining procedure: k35994 
o|substituted constant variable: a36285 
o|substituted constant variable: a36287 
o|inlining procedure: k36301 
o|inlining procedure: k36301 
o|contracted procedure: "(library.scm:7118) chicken.process-context#_getenv" 
o|inlining procedure: k36372 
o|inlining procedure: k36372 
o|inlining procedure: k36403 
o|substituted constant variable: a36415 
o|inlining procedure: k36412 
o|inlining procedure: k36412 
o|inlining procedure: k36403 
o|contracted procedure: "(library.scm:7143) chicken.process-context#get-environment-entry" 
o|inlining procedure: k36478 
o|inlining procedure: k36478 
o|inlining procedure: k36492 
o|inlining procedure: k36492 
o|contracted procedure: "(library.scm:7172) fetch-arg8293" 
o|inlining procedure: k36565 
o|inlining procedure: k36585 
o|inlining procedure: k36585 
o|inlining procedure: k36612 
o|inlining procedure: k36612 
o|inlining procedure: k36565 
o|inlining procedure: k36635 
o|inlining procedure: k36635 
o|inlining procedure: k36678 
o|inlining procedure: k36678 
o|inlining procedure: k36706 
o|inlining procedure: k36706 
o|inlining procedure: k36744 
o|inlining procedure: k36744 
o|inlining procedure: k36782 
o|inlining procedure: k36782 
o|inlining procedure: k36794 
o|inlining procedure: k36794 
o|inlining procedure: k36823 
o|inlining procedure: k36823 
o|inlining procedure: k36923 
o|inlining procedure: k36923 
o|inlining procedure: k36954 
o|inlining procedure: k36954 
o|inlining procedure: k36976 
o|inlining procedure: k36976 
o|inlining procedure: k37016 
o|inlining procedure: k37016 
o|inlining procedure: k37041 
o|inlining procedure: k37041 
o|inlining procedure: k37063 
o|inlining procedure: k37063 
o|inlining procedure: k37095 
o|inlining procedure: k37095 
o|inlining procedure: k37127 
o|inlining procedure: k37127 
o|inlining procedure: k37159 
o|inlining procedure: k37159 
o|inlining procedure: k37191 
o|inlining procedure: k37191 
o|substituted constant variable: a37239 
o|substituted constant variable: a37241 
o|substituted constant variable: a37243 
o|substituted constant variable: a37245 
o|substituted constant variable: a37247 
o|substituted constant variable: a37249 
o|substituted constant variable: a37251 
o|substituted constant variable: a37253 
o|substituted constant variable: a37255 
o|substituted constant variable: a37257 
o|inlining procedure: k37258 
o|inlining procedure: k37258 
o|inlining procedure: k37316 
o|inlining procedure: k37316 
o|inlining procedure: k37333 
o|inlining procedure: k37357 
o|inlining procedure: k37357 
o|inlining procedure: k37333 
o|inlining procedure: k37397 
o|inlining procedure: k37397 
o|inlining procedure: k37460 
o|inlining procedure: k37460 
o|inlining procedure: k37492 
o|inlining procedure: "(library.scm:7549) pstr8668" 
o|substituted constant variable: a37513 
o|inlining procedure: k37492 
o|inlining procedure: "(library.scm:7551) pstr8668" 
o|substituted constant variable: a37535 
o|inlining procedure: k37536 
o|inlining procedure: "(library.scm:7553) pstr8668" 
o|substituted constant variable: a37557 
o|inlining procedure: k37536 
o|inlining procedure: "(library.scm:7554) pstr8668" 
o|inlining procedure: "(library.scm:7580) pstr8668" 
o|inlining procedure: "(library.scm:7578) pstr8668" 
o|inlining procedure: "(library.scm:7576) pchr8669" 
o|inlining procedure: "(library.scm:7574) pstr8668" 
o|inlining procedure: "(library.scm:7570) pstr8668" 
o|inlining procedure: "(library.scm:7568) pchr8669" 
o|inlining procedure: "(library.scm:7566) pstr8668" 
o|inlining procedure: "(library.scm:7562) pstr8668" 
o|inlining procedure: "(library.scm:7560) pstr8668" 
o|inlining procedure: "(library.scm:7557) pstr8668" 
o|inlining procedure: k37763 
o|inlining procedure: k37785 
o|inlining procedure: k37785 
o|contracted procedure: "(library.scm:7656) get-config8773" 
o|inlining procedure: k37730 
o|inlining procedure: k37730 
o|substituted constant variable: a37743 
o|inlining procedure: k37819 
o|inlining procedure: k37819 
o|inlining procedure: k37763 
o|propagated global variable: r3776444636 ##sys#build-version 
o|inlining procedure: k37853 
o|inlining procedure: k37853 
o|inlining procedure: k37873 
o|inlining procedure: k37873 
o|inlining procedure: k37901 
o|inlining procedure: k37901 
o|inlining procedure: k37972 
o|inlining procedure: k37972 
o|substituted constant variable: a37987 
o|substituted constant variable: a37989 
o|removed side-effect free assignment to unused variable: prefix8900 
o|inlining procedure: k38022 
o|inlining procedure: k38022 
o|inlining procedure: k38037 
o|inlining procedure: k38037 
o|contracted procedure: "(library.scm:7753) err8899" 
o|inlining procedure: k38060 
o|inlining procedure: k38060 
o|inlining procedure: k38139 
o|contracted procedure: "(library.scm:7799) g89348941" 
o|inlining procedure: k38123 
o|inlining procedure: k38123 
o|inlining procedure: k38139 
o|inlining procedure: k38175 
o|inlining procedure: k38175 
o|inlining procedure: k38206 
o|inlining procedure: k38206 
o|inlining procedure: k38249 
o|inlining procedure: k38249 
o|inlining procedure: k38280 
o|inlining procedure: k38280 
o|inlining procedure: k38292 
o|inlining procedure: k38292 
o|inlining procedure: k38304 
o|inlining procedure: k38304 
o|inlining procedure: k38313 
o|inlining procedure: k38313 
o|inlining procedure: k38322 
o|inlining procedure: k38322 
o|inlining procedure: k38352 
o|contracted procedure: "(library.scm:7847) g90549063" 
o|inlining procedure: k38352 
o|inlining procedure: k38401 
o|inlining procedure: k38401 
o|inlining procedure: k38445 
o|inlining procedure: k38445 
o|inlining procedure: k38483 
o|inlining procedure: k38495 
o|inlining procedure: k38495 
o|inlining procedure: k38483 
o|inlining procedure: k38557 
o|inlining procedure: k38557 
o|inlining procedure: k38582 
o|inlining procedure: k38582 
o|inlining procedure: k38592 
o|inlining procedure: k38592 
o|inlining procedure: k38659 
o|inlining procedure: k38659 
o|inlining procedure: k38690 
o|inlining procedure: k38690 
o|inlining procedure: k38780 
o|contracted procedure: "(library.scm:7933) %string-map9182" 
o|inlining procedure: k38749 
o|inlining procedure: k38749 
o|inlining procedure: k38780 
o|inlining procedure: k38824 
o|inlining procedure: k38824 
o|inlining procedure: k38859 
o|inlining procedure: k38859 
o|inlining procedure: k38893 
o|inlining procedure: k38893 
o|inlining procedure: k38917 
o|inlining procedure: k38917 
o|inlining procedure: k38951 
o|contracted procedure: "(library.scm:7936) g91979204" 
o|inlining procedure: k38951 
o|inlining procedure: k39006 
o|contracted procedure: "(library.scm:7952) %string-for-each9308" 
o|inlining procedure: k38986 
o|inlining procedure: k38986 
o|inlining procedure: k39006 
o|inlining procedure: k39050 
o|inlining procedure: k39050 
o|inlining procedure: k39081 
o|inlining procedure: k39081 
o|inlining procedure: k39115 
o|inlining procedure: k39115 
o|inlining procedure: k39139 
o|inlining procedure: k39139 
o|inlining procedure: k39173 
o|contracted procedure: "(library.scm:7955) g93209327" 
o|inlining procedure: k39173 
o|inlining procedure: k39196 
o|inlining procedure: k39220 
o|inlining procedure: k39220 
o|inlining procedure: k39196 
o|inlining procedure: k39279 
o|inlining procedure: k39279 
o|inlining procedure: k39314 
o|inlining procedure: k39314 
o|inlining procedure: k39348 
o|inlining procedure: k39348 
o|inlining procedure: k39372 
o|inlining procedure: k39372 
o|inlining procedure: k39406 
o|contracted procedure: "(library.scm:7975) g94489455" 
o|inlining procedure: k39406 
o|inlining procedure: k39429 
o|inlining procedure: k39450 
o|inlining procedure: k39450 
o|inlining procedure: k39429 
o|inlining procedure: k39505 
o|inlining procedure: k39505 
o|inlining procedure: k39536 
o|inlining procedure: k39536 
o|inlining procedure: k39570 
o|inlining procedure: k39570 
o|inlining procedure: k39594 
o|inlining procedure: k39594 
o|inlining procedure: k39628 
o|contracted procedure: "(library.scm:7994) g95749581" 
o|inlining procedure: k39628 
o|inlining procedure: k39657 
o|inlining procedure: k39657 
o|inlining procedure: k39716 
o|inlining procedure: k39716 
o|substituted constant variable: a39772 
o|substituted constant variable: a39773 
o|substituted constant variable: a39873 
o|substituted constant variable: a39874 
o|inlining procedure: k39885 
o|inlining procedure: k39885 
o|inlining procedure: k39912 
o|inlining procedure: k39912 
o|substituted constant variable: a39967 
o|substituted constant variable: a39968 
o|inlining procedure: k39972 
o|inlining procedure: k39972 
o|inlining procedure: k39995 
o|inlining procedure: k39995 
o|inlining procedure: k40013 
o|inlining procedure: k40013 
o|inlining procedure: k40022 
o|inlining procedure: k40022 
o|inlining procedure: k40040 
o|inlining procedure: k40040 
o|substituted constant variable: a40084 
o|substituted constant variable: a40086 
o|inlining procedure: k40094 
o|inlining procedure: k40094 
o|substituted constant variable: a40126 
o|substituted constant variable: a40127 
o|inlining procedure: k40141 
o|inlining procedure: k40141 
o|substituted constant variable: a40207 
o|substituted constant variable: a40208 
o|inlining procedure: k40242 
o|inlining procedure: k40242 
o|inlining procedure: k40263 
o|inlining procedure: k40263 
o|inlining procedure: k40335 
o|inlining procedure: k40335 
o|inlining procedure: k40359 
o|inlining procedure: k40359 
o|inlining procedure: k40395 
o|inlining procedure: k40395 
o|inlining procedure: k40440 
o|inlining procedure: k40440 
o|substituted constant variable: a40488 
o|substituted constant variable: a40489 
o|substituted constant variable: a40569 
o|substituted constant variable: a40570 
o|inlining procedure: k40590 
o|inlining procedure: k40590 
o|inlining procedure: k40635 
o|inlining procedure: k40635 
o|inlining procedure: k40647 
o|inlining procedure: k40647 
o|inlining procedure: k40701 
o|inlining procedure: k40701 
o|substituted constant variable: len9987 
o|substituted constant variable: len9987 
o|inlining procedure: k40740 
o|inlining procedure: k40740 
o|substituted constant variable: a40765 
o|substituted constant variable: a40766 
o|inlining procedure: k40767 
o|inlining procedure: k40767 
o|substituted constant variable: a40816 
o|substituted constant variable: a40817 
o|inlining procedure: k40818 
o|inlining procedure: k40818 
o|inlining procedure: k40843 
o|inlining procedure: k40843 
o|substituted constant variable: a40887 
o|substituted constant variable: a40888 
o|inlining procedure: k40892 
o|inlining procedure: k40892 
o|substituted constant variable: a40915 
o|substituted constant variable: a40916 
o|inlining procedure: k40929 
o|inlining procedure: k40929 
o|substituted constant variable: a40971 
o|substituted constant variable: a40972 
o|inlining procedure: k40979 
o|inlining procedure: k40979 
o|substituted constant variable: a41001 
o|substituted constant variable: a41002 
o|substituted constant variable: a41047 
o|substituted constant variable: a41048 
o|substituted constant variable: a41150 
o|contracted procedure: "(library.scm:7733) g88688869" 
o|inlining procedure: k41217 
o|inlining procedure: k41217 
o|inlining procedure: k41262 
o|inlining procedure: k41262 
o|inlining procedure: k41284 
o|inlining procedure: k41301 
o|contracted procedure: "(library.scm:7716) g88328839" 
o|inlining procedure: k41301 
o|inlining procedure: k41284 
o|inlining procedure: k41327 
o|inlining procedure: k41327 
o|inlining procedure: k41401 
o|inlining procedure: k41401 
o|inlining procedure: k41448 
o|inlining procedure: k41448 
o|substituted constant variable: a41463 
o|inlining procedure: k41465 
o|inlining procedure: k41465 
o|substituted constant variable: a41477 
o|inlining procedure: k41519 
o|inlining procedure: k41519 
o|inlining procedure: k41556 
o|inlining procedure: k41580 
o|inlining procedure: k41580 
o|inlining procedure: k41610 
o|contracted procedure: "(library.scm:6202) g72637270" 
o|inlining procedure: k41610 
o|inlining procedure: k41556 
o|inlining procedure: k41665 
o|inlining procedure: k41665 
o|inlining procedure: k41716 
o|inlining procedure: k41716 
o|inlining procedure: k41743 
o|inlining procedure: k41743 
o|inlining procedure: k41765 
o|inlining procedure: k41765 
o|inlining procedure: k41840 
o|inlining procedure: k41840 
o|inlining procedure: k41866 
o|inlining procedure: k41866 
o|inlining procedure: k41947 
o|inlining procedure: k41947 
o|inlining procedure: k41969 
o|inlining procedure: k41969 
o|inlining procedure: k42114 
o|inlining procedure: k42114 
o|inlining procedure: k42123 
o|inlining procedure: k42123 
o|inlining procedure: k42132 
o|inlining procedure: k42132 
o|inlining procedure: k42148 
o|inlining procedure: k42148 
o|inlining procedure: k42174 
o|inlining procedure: k42203 
o|inlining procedure: k42203 
o|inlining procedure: k42174 
o|inlining procedure: k42241 
o|inlining procedure: k42241 
o|inlining procedure: k42260 
o|inlining procedure: k42260 
o|inlining procedure: k42319 
o|inlining procedure: k42319 
o|inlining procedure: k42349 
o|inlining procedure: k42349 
o|inlining procedure: k42419 
o|inlining procedure: k42419 
o|inlining procedure: k42434 
o|inlining procedure: k42434 
o|inlining procedure: k42461 
o|inlining procedure: k42461 
o|inlining procedure: k42539 
o|inlining procedure: k42539 
o|inlining procedure: k42557 
o|inlining procedure: k42557 
o|inlining procedure: k42593 
o|inlining procedure: k42593 
o|substituted constant variable: sblen5070 
o|substituted constant variable: sblen5070 
o|replaced variables: 8600 
o|removed binding forms: 2471 
o|substituted constant variable: r1170142712 
o|substituted constant variable: r1170142712 
o|substituted constant variable: r1174642718 
o|substituted constant variable: r1174642718 
o|substituted constant variable: r1210942724 
o|substituted constant variable: r1215942728 
o|substituted constant variable: r1223842734 
o|substituted constant variable: r1223842734 
o|substituted constant variable: r1227142740 
o|substituted constant variable: r1227142740 
o|substituted constant variable: r1244642748 
o|substituted constant variable: r1244642748 
o|substituted constant variable: r1248542754 
o|substituted constant variable: r1248542754 
o|substituted constant variable: r1252442760 
o|substituted constant variable: r1252442760 
o|substituted constant variable: r1256342766 
o|substituted constant variable: r1256342766 
o|substituted constant variable: r1260242772 
o|substituted constant variable: r1260242772 
o|substituted constant variable: r1265842775 
o|substituted constant variable: r1274542777 
o|substituted constant variable: r1275142779 
o|substituted constant variable: r1275742781 
o|substituted constant variable: r1277342783 
o|substituted constant variable: r1278942785 
o|inlining procedure: k13111 
o|substituted constant variable: r1317542799 
o|substituted constant variable: r1332842810 
o|substituted constant variable: r1334042813 
o|substituted constant variable: r1344142818 
o|substituted constant variable: r1350542823 
o|substituted constant variable: r1357842826 
o|substituted constant variable: r1363242830 
o|substituted constant variable: r1374842839 
o|substituted constant variable: r1394042848 
o|substituted constant variable: r1401742853 
o|substituted constant variable: r1415642856 
o|substituted constant variable: r1417242858 
o|converted assignments to bindings: (fail1364) 
o|substituted constant variable: r1476742908 
o|substituted constant variable: r1476742908 
o|substituted constant variable: r1478442914 
o|substituted constant variable: r1478442914 
o|substituted constant variable: r1480742919 
o|substituted constant variable: r1480742919 
o|substituted constant variable: r1482542926 
o|substituted constant variable: r1482542926 
o|substituted constant variable: r1486742936 
o|substituted constant variable: r1486742936 
o|substituted constant variable: r1497042947 
o|substituted constant variable: r1525342958 
o|substituted constant variable: r1525342958 
o|substituted constant variable: r1544242977 
o|substituted constant variable: r1559542980 
o|substituted constant variable: r1559542980 
o|substituted constant variable: r1620643013 
o|substituted constant variable: r1624743015 
o|substituted constant variable: r1639743025 
o|substituted constant variable: r1665743036 
o|substituted constant variable: loc2390 
o|substituted constant variable: loc2401 
o|substituted constant variable: loc2412 
o|substituted constant variable: loc2423 
o|substituted constant variable: r1684643053 
o|substituted constant variable: loc2442 
o|substituted constant variable: loc2453 
o|substituted constant variable: loc2464 
o|substituted constant variable: loc2475 
o|substituted constant variable: loc2486 
o|substituted constant variable: loc2497 
o|substituted constant variable: loc2508 
o|substituted constant variable: loc2517 
o|substituted constant variable: loc2527 
o|substituted constant variable: loc2538 
o|substituted constant variable: loc2547 
o|substituted constant variable: loc2555 
o|substituted constant variable: loc2563 
o|substituted constant variable: loc2571 
o|substituted constant variable: loc2579 
o|substituted constant variable: loc2587 
o|substituted constant variable: loc2595 
o|substituted constant variable: loc2603 
o|substituted constant variable: loc2611 
o|substituted constant variable: loc2619 
o|substituted constant variable: loc2629 
o|substituted constant variable: loc2638 
o|substituted constant variable: loc2646 
o|substituted constant variable: loc2654 
o|substituted constant variable: loc2662 
o|substituted constant variable: loc2670 
o|substituted constant variable: loc2678 
o|substituted constant variable: loc2686 
o|substituted constant variable: loc2696 
o|substituted constant variable: loc2705 
o|substituted constant variable: loc2713 
o|substituted constant variable: loc2721 
o|substituted constant variable: loc2729 
o|inlining procedure: k17546 
o|inlining procedure: k17546 
o|substituted constant variable: r1779543142 
o|converted assignments to bindings: (deliver2903) 
o|substituted constant variable: n3100 
o|substituted constant variable: d3101 
o|substituted constant variable: r1911443245 
o|substituted constant variable: r1912343247 
o|substituted constant variable: r1915643251 
o|substituted constant variable: r1916543253 
o|substituted constant variable: r2013243303 
o|substituted constant variable: r2023743310 
o|substituted constant variable: r2030243314 
o|inlining procedure: k20473 
o|substituted constant variable: r2047443321 
o|substituted constant variable: r2061343323 
o|substituted constant variable: r2061343323 
o|substituted constant variable: r2061343325 
o|substituted constant variable: r2061343325 
o|inlining procedure: k20649 
o|inlining procedure: k20649 
o|substituted constant variable: r2067743332 
o|substituted constant variable: r2069343335 
o|substituted constant variable: r2069343336 
o|substituted constant variable: r2065643341 
o|removed side-effect free assignment to unused variable: make-nan3585 
o|inlining procedure: k20828 
o|inlining procedure: k20828 
o|substituted constant variable: r2082943353 
o|substituted constant variable: r2082943353 
o|substituted constant variable: r2093543363 
o|substituted constant variable: r2095543365 
o|substituted constant variable: r2097743367 
o|substituted constant variable: r2098843369 
o|substituted constant variable: r2104343371 
o|substituted constant variable: r2104343372 
o|substituted constant variable: r2100243373 
o|substituted constant variable: r2110643386 
o|substituted constant variable: r2109443387 
o|substituted constant variable: r2105543403 
o|substituted constant variable: r2137243413 
o|substituted constant variable: r2136243414 
o|substituted constant variable: r2135043415 
o|substituted constant variable: r2143643423 
o|substituted constant variable: r2141843424 
o|substituted constant variable: r2140843425 
o|substituted constant variable: r2159043436 
o|substituted constant variable: r2166443440 
o|substituted constant variable: r2166443440 
o|substituted constant variable: r2166443442 
o|substituted constant variable: r2166443442 
o|substituted constant variable: r2168743447 
o|substituted constant variable: r2168743447 
o|substituted constant variable: r2178343457 
o|substituted constant variable: r2178343457 
o|substituted constant variable: r2175843460 
o|substituted constant variable: r2183543461 
o|substituted constant variable: r2183543462 
o|substituted constant variable: r2160943463 
o|substituted constant variable: r2187343468 
o|substituted constant variable: r2185143469 
o|substituted constant variable: r2189943477 
o|substituted constant variable: r2199443486 
o|substituted constant variable: r2197543487 
o|substituted constant variable: r2196043488 
o|substituted constant variable: r2205643491 
o|substituted constant variable: r2210843493 
o|substituted constant variable: r2217743496 
o|substituted constant variable: r2222143500 
o|substituted constant variable: r2226543504 
o|substituted constant variable: r2227843506 
o|substituted constant variable: r2237343513 
o|substituted constant variable: r2244643517 
o|substituted constant variable: r2253243522 
o|substituted constant variable: r2254443524 
o|substituted constant variable: r2255343527 
o|substituted constant variable: r2257943531 
o|substituted constant variable: r2259843533 
o|substituted constant variable: r2297843569 
o|substituted constant variable: r2318643571 
o|substituted constant variable: r2327243577 
o|substituted constant variable: r2335743581 
o|substituted constant variable: r2356243594 
o|substituted constant variable: r2429143626 
o|substituted constant variable: r2429143626 
o|substituted constant variable: r2433843632 
o|substituted constant variable: r2433843632 
o|substituted constant variable: r2438143638 
o|substituted constant variable: r2438143638 
o|substituted constant variable: r2442443644 
o|substituted constant variable: r2442443644 
o|substituted constant variable: r2446743650 
o|substituted constant variable: r2446743650 
o|substituted constant variable: r2449043653 
o|removed call to pure procedure with unused result: "(library.scm:3957) ##sys#slot" 
o|substituted constant variable: r2503243685 
o|removed call to pure procedure with unused result: "(library.scm:3968) ##sys#slot" 
o|converted assignments to bindings: (continuation4949) 
o|removed unused formal parameters: (%convert?51235138) 
o|removed unused parameter to known procedure: %convert?51235138 "(library.scm:4267) def-set?51285137" 
o|removed unused parameter to known procedure: %convert?51235138 "(library.scm:4267) def-set?51285137" 
o|removed unused formal parameters: (%convert?51485163) 
o|removed unused parameter to known procedure: %convert?51485163 "(library.scm:4277) def-set?51535162" 
o|removed unused parameter to known procedure: %convert?51485163 "(library.scm:4277) def-set?51535162" 
o|removed unused formal parameters: (%convert?51735188) 
o|removed unused parameter to known procedure: %convert?51735188 "(library.scm:4287) def-set?51785187" 
o|removed unused parameter to known procedure: %convert?51735188 "(library.scm:4287) def-set?51785187" 
o|substituted constant variable: r2550343725 
o|substituted constant variable: r2557443730 
o|substituted constant variable: r2557443730 
o|substituted constant variable: r2557443732 
o|substituted constant variable: r2557443732 
o|substituted constant variable: r2594143750 
o|substituted constant variable: r2599443753 
o|substituted constant variable: r2608843759 
o|substituted constant variable: r2613343761 
o|substituted constant variable: r2617243763 
o|substituted constant variable: r2623243767 
o|inlining procedure: k26584 
o|substituted constant variable: r2665143782 
o|inlining procedure: k26662 
o|contracted procedure: k27411 
o|contracted procedure: k27432 
o|contracted procedure: k27453 
o|substituted constant variable: r2771343845 
o|inlining procedure: k28043 
o|converted assignments to bindings: (starting-line5874) 
o|substituted constant variable: r2814243900 
o|substituted constant variable: r2814243900 
o|substituted constant variable: r2847743931 
o|substituted constant variable: r2849643935 
o|substituted constant variable: r2864143949 
o|substituted constant variable: r2864143950 
o|contracted procedure: "(library.scm:5122) g60686069" 
o|inlining procedure: k28734 
o|inlining procedure: k28734 
o|inlining procedure: k28734 
o|substituted constant variable: r2873243958 
o|substituted constant variable: r2871443959 
o|removed side-effect free assignment to unused variable: build-symbol5744 
o|substituted constant variable: r2925543997 
o|substituted constant variable: r2959144021 
o|substituted constant variable: r2988844047 
o|substituted constant variable: r2988844047 
o|substituted constant variable: r2988844049 
o|substituted constant variable: r2988844049 
o|substituted constant variable: r2995744056 
o|converted assignments to bindings: (fail6305) 
o|propagated global variable: port639644074 ##sys#standard-output 
o|substituted constant variable: r3070344099 
o|substituted constant variable: r3071744101 
o|substituted constant variable: r3073244103 
o|substituted constant variable: r3073244104 
o|substituted constant variable: r3079744109 
o|substituted constant variable: r3081344110 
o|substituted constant variable: r3082844112 
o|substituted constant variable: r3082844113 
o|inlining procedure: k30840 
o|substituted constant variable: r3084144116 
o|substituted constant variable: r3084144116 
o|folded constant expression: (scheme#not (quote #f)) 
o|substituted constant variable: r3087844120 
o|inlining procedure: k31353 
o|substituted constant variable: r3156644172 
o|substituted constant variable: r3158344174 
o|inlining procedure: k31723 
o|substituted constant variable: r3216044200 
o|substituted constant variable: r3231044209 
o|converted assignments to bindings: (break7105) 
o|substituted constant variable: r3286344241 
o|substituted constant variable: r3286344241 
o|substituted constant variable: r3286344243 
o|substituted constant variable: r3286344243 
o|substituted constant variable: r3291644249 
o|substituted constant variable: r3292844251 
o|substituted constant variable: r3294044253 
o|substituted constant variable: r3295244255 
o|substituted constant variable: r3296444257 
o|substituted constant variable: r3297644259 
o|substituted constant variable: r3298844261 
o|substituted constant variable: r3298844262 
o|substituted constant variable: r3316544268 
o|substituted constant variable: r3316544268 
o|inlining procedure: k33190 
o|inlining procedure: k33190 
o|removed unused formal parameters: (%convert?73497364) 
o|removed unused parameter to known procedure: %convert?73497364 "(library.scm:6277) def-set?73547363" 
o|removed unused parameter to known procedure: %convert?73497364 "(library.scm:6277) def-set?73547363" 
o|substituted constant variable: r3334944285 
o|substituted constant variable: r3369844297 
o|substituted constant variable: r3379644302 
o|substituted constant variable: r3382644306 
o|substituted constant variable: r3418744332 
o|substituted constant variable: r3418744332 
o|substituted constant variable: r3422444337 
o|substituted constant variable: r3422444337 
o|substituted constant variable: r3473844395 
o|substituted constant variable: r3473844395 
o|substituted constant variable: r3505544400 
o|substituted constant variable: r3507344402 
o|substituted constant variable: r3512644406 
o|substituted constant variable: r3522144410 
o|substituted constant variable: r3529844411 
o|substituted constant variable: r3534544415 
o|substituted constant variable: r3534544415 
o|substituted constant variable: r3536244417 
o|substituted constant variable: r3559044428 
o|inlining procedure: k35668 
o|inlining procedure: k35922 
o|converted assignments to bindings: (get/clear-str8153) 
o|substituted constant variable: r3637344466 
o|substituted constant variable: r3637344466 
o|substituted constant variable: r3640444472 
o|inlining procedure: k36565 
o|inlining procedure: k36565 
o|substituted constant variable: r3663644502 
o|substituted constant variable: r3733444544 
o|removed side-effect free assignment to unused variable: pstr8668 
o|removed side-effect free assignment to unused variable: pchr8669 
o|substituted constant variable: r3746144547 
o|substituted constant variable: r3746144547 
o|substituted constant variable: str867344553 
o|substituted constant variable: str867344559 
o|substituted constant variable: str867344565 
o|substituted constant variable: str867344571 
o|substituted constant variable: str867344576 
o|substituted constant variable: str867344581 
o|substituted constant variable: chr867444586 
o|substituted constant variable: str867344591 
o|substituted constant variable: str867344596 
o|substituted constant variable: chr867444601 
o|substituted constant variable: str867344606 
o|substituted constant variable: str867344611 
o|substituted constant variable: str867344616 
o|substituted constant variable: str867344621 
o|substituted constant variable: r3778644626 
o|substituted constant variable: r3778644626 
o|substituted constant variable: r3773144630 
o|converted assignments to bindings: (str8778) 
o|substituted constant variable: r3782044632 
o|substituted constant variable: r3782044632 
o|substituted constant variable: r3782044634 
o|substituted constant variable: r3782044634 
o|substituted constant variable: r3787444641 
o|substituted constant variable: r3817644658 
o|substituted constant variable: r3829344667 
o|substituted constant variable: r3832344673 
o|substituted constant variable: r3859344692 
o|substituted constant variable: r3859344692 
o|substituted constant variable: r3991344771 
o|substituted constant variable: r4009544783 
o|substituted constant variable: r4024344786 
o|substituted constant variable: r4063644802 
o|substituted constant variable: r4084444822 
o|substituted constant variable: r4089344825 
o|substituted constant variable: r4098044828 
o|inlining procedure: k41262 
o|substituted constant variable: r4128544839 
o|substituted constant variable: r4144944844 
o|substituted constant variable: r4174444860 
o|substituted constant variable: r4176644862 
o|substituted constant variable: r4186744868 
o|substituted constant variable: r4194844870 
o|removed call to pure procedure with unused result: "(library.scm:5860) ##sys#slot" 
o|substituted constant variable: r4212444879 
o|substituted constant variable: r4213344881 
o|substituted constant variable: r4214944883 
o|substituted constant variable: r4220444886 
o|converted assignments to bindings: (lookup-char4779) 
o|simplifications: ((let . 9)) 
o|replaced variables: 739 
o|removed binding forms: 7008 
o|removed conditional forms: 1 
o|inlining procedure: k13093 
o|substituted constant variable: r1311244950 
o|substituted constant variable: r1311244950 
o|inlining procedure: k14541 
o|inlining procedure: k14541 
o|inlining procedure: k14541 
o|inlining procedure: k15015 
o|inlining procedure: k15031 
o|inlining procedure: k15047 
o|inlining procedure: k15063 
o|inlining procedure: k15079 
o|inlining procedure: k15095 
o|inlining procedure: k15111 
o|inlining procedure: k15127 
o|inlining procedure: k16754 
o|inlining procedure: k16778 
o|inlining procedure: k16802 
o|inlining procedure: k16826 
o|inlining procedure: k16875 
o|inlining procedure: k16899 
o|inlining procedure: k16923 
o|inlining procedure: k16947 
o|inlining procedure: k16971 
o|inlining procedure: k16995 
o|inlining procedure: k17019 
o|inlining procedure: k17037 
o|inlining procedure: k17061 
o|inlining procedure: k17085 
o|inlining procedure: k17103 
o|inlining procedure: k17121 
o|inlining procedure: k17139 
o|inlining procedure: k17157 
o|inlining procedure: k17175 
o|inlining procedure: k17193 
o|inlining procedure: k17211 
o|inlining procedure: k17229 
o|inlining procedure: k17247 
o|inlining procedure: k17265 
o|inlining procedure: k17289 
o|inlining procedure: k17307 
o|inlining procedure: k17325 
o|inlining procedure: k17343 
o|inlining procedure: k17361 
o|inlining procedure: k17379 
o|inlining procedure: k17397 
o|inlining procedure: k17415 
o|inlining procedure: k17439 
o|inlining procedure: k17457 
o|inlining procedure: k17475 
o|inlining procedure: k17493 
o|inlining procedure: k17511 
o|inlining procedure: k17738 
o|inlining procedure: k17848 
o|inlining procedure: k17917 
o|inlining procedure: k18009 
o|inlining procedure: k18015 
o|inlining procedure: k18116 
o|inlining procedure: k18339 
o|inlining procedure: k18406 
o|inlining procedure: k18450 
o|inlining procedure: k18486 
o|inlining procedure: k18516 
o|inlining procedure: k18516 
o|inlining procedure: k18529 
o|inlining procedure: k18697 
o|inlining procedure: k18892 
o|inlining procedure: k19533 
o|inlining procedure: k19557 
o|inlining procedure: k19849 
o|inlining procedure: k19972 
o|inlining procedure: k19980 
o|inlining procedure: k20017 
o|inlining procedure: k20035 
o|inlining procedure: k20186 
o|inlining procedure: k20214 
o|inlining procedure: k20429 
o|inlining procedure: k20436 
o|substituted constant variable: r2047445129 
o|contracted procedure: k20828 
o|inlining procedure: k20964 
o|inlining procedure: k21465 
o|inlining procedure: k21865 
o|inlining procedure: k21865 
o|inlining procedure: k22366 
o|inlining procedure: k22366 
o|inlining procedure: k22399 
o|inlining procedure: k22719 
o|inlining procedure: k22719 
o|inlining procedure: k23038 
o|inlining procedure: k23104 
o|contracted procedure: k24929 
o|contracted procedure: k25025 
o|inlining procedure: k25588 
o|inlining procedure: k25588 
o|inlining procedure: k25588 
o|inlining procedure: k25588 
o|inlining procedure: k25588 
o|inlining procedure: k25588 
o|inlining procedure: k25588 
o|inlining procedure: k25975 
o|propagated global variable: r2597646082 ##sys#standard-output 
o|propagated global variable: r2597646082 ##sys#standard-output 
o|inlining procedure: k26563 
o|propagated global variable: r2656446090 ##sys#standard-input 
o|propagated global variable: r2656446090 ##sys#standard-input 
o|inlining procedure: k26675 
o|propagated global variable: r2667646092 ##sys#standard-input 
o|propagated global variable: r2667646092 ##sys#standard-input 
o|inlining procedure: k26693 
o|propagated global variable: r2669446094 ##sys#standard-input 
o|propagated global variable: r2669446094 ##sys#standard-input 
o|substituted constant variable: r27412 
o|substituted constant variable: r27433 
o|substituted constant variable: r27454 
o|inlining procedure: k27629 
o|inlining procedure: "(library.scm:4965) build-keyword5745" 
o|inlining procedure: "(library.scm:4966) build-keyword5745" 
o|inlining procedure: "(library.scm:4997) build-keyword5745" 
o|inlining procedure: "(library.scm:5060) build-keyword5745" 
o|inlining procedure: "(library.scm:5294) build-keyword5745" 
o|inlining procedure: k30273 
o|propagated global variable: r3027446154 ##sys#standard-output 
o|propagated global variable: r3027446154 ##sys#standard-output 
o|inlining procedure: k30291 
o|propagated global variable: r3029246156 ##sys#standard-output 
o|propagated global variable: r3029246156 ##sys#standard-output 
o|inlining procedure: k30685 
o|substituted constant variable: r3084145400 
o|folded constant expression: (scheme#not (quote #f)) 
o|inlining procedure: k33030 
o|inlining procedure: k35355 
o|inlining procedure: k35355 
o|inlining procedure: k35737 
o|inlining procedure: "(library.scm:6974) ##sys#format-here-doc-warning" 
o|inlining procedure: k35971 
o|inlining procedure: k35971 
o|inlining procedure: "(library.scm:7008) ##sys#format-here-doc-warning" 
o|inlining procedure: k36258 
o|inlining procedure: k36258 
o|inlining procedure: k36675 
o|inlining procedure: k36973 
o|inlining procedure: k36973 
o|inlining procedure: k37345 
o|inlining procedure: k37345 
o|inlining procedure: k38145 
o|inlining procedure: k38145 
o|inlining procedure: k41468 
o|inlining procedure: k41468 
o|contracted procedure: k41941 
o|inlining procedure: k42111 
o|inlining procedure: k42111 
o|replaced variables: 13 
o|removed binding forms: 997 
o|removed conditional forms: 1 
o|substituted constant variable: r1309445781 
o|substituted constant variable: r1501645822 
o|substituted constant variable: r1503245824 
o|substituted constant variable: r1504845826 
o|substituted constant variable: r1506445828 
o|substituted constant variable: r1508045830 
o|substituted constant variable: r1509645832 
o|substituted constant variable: r1511245834 
o|substituted constant variable: r1512845836 
o|contracted procedure: k17667 
o|contracted procedure: k17672 
o|contracted procedure: k17732 
o|contracted procedure: k18101 
o|contracted procedure: k18110 
o|contracted procedure: k18215 
o|contracted procedure: k18220 
o|contracted procedure: k18225 
o|contracted procedure: k18230 
o|contracted procedure: k18235 
o|contracted procedure: k18240 
o|contracted procedure: k18272 
o|contracted procedure: k18296 
o|contracted procedure: k18311 
o|contracted procedure: k18388 
o|contracted procedure: k18432 
o|contracted procedure: k18480 
o|substituted constant variable: r1851745928 
o|contracted procedure: k18875 
o|contracted procedure: k20448 
o|contracted procedure: k20453 
o|contracted procedure: k20596 
o|contracted procedure: k20727 
o|contracted procedure: k20733 
o|contracted procedure: k20739 
o|substituted constant variable: r20829 
o|contracted procedure: k21778 
o|substituted constant variable: r2186645969 
o|substituted constant variable: r2236745973 
o|substituted constant variable: r2236745974 
o|substituted constant variable: r2272045978 
o|substituted constant variable: tok611146114 
o|inlining procedure: k27999 
o|removed side-effect free assignment to unused variable: build-keyword5745 
o|substituted constant variable: r3319145453 
o|removed side-effect free assignment to unused variable: ##sys#format-here-doc-warning 
o|substituted constant variable: r3667646254 
o|substituted constant variable: r3697446264 
o|substituted constant variable: r3697446264 
o|substituted constant variable: r3734646265 
o|substituted constant variable: r3734646265 
o|substituted constant variable: r3734646266 
o|substituted constant variable: r3734646266 
o|inlining procedure: k37975 
o|inlining procedure: k37975 
o|substituted constant variable: r4146946371 
o|substituted constant variable: r4211246379 
o|substituted constant variable: r4211246379 
o|substituted constant variable: r4211246381 
o|substituted constant variable: r4211246381 
o|simplifications: ((let . 5)) 
o|replaced variables: 22 
o|removed binding forms: 146 
o|removed conditional forms: 11 
o|substituted constant variable: r2800046593 
o|substituted constant variable: r2800046593 
o|substituted constant variable: r3797646697 
o|simplifications: ((if . 1) (let . 1)) 
o|removed binding forms: 88 
o|removed conditional forms: 2 
o|simplifications: ((let . 1)) 
o|replaced variables: 2 
o|removed binding forms: 2 
o|removed binding forms: 1 
o|simplifications: ((if . 431) (let . 261) (##core#call . 3719)) 
o|  call simplifications:
o|    scheme#cdar	2
o|    scheme#set-cdr!	6
o|    scheme#list-tail
o|    ##sys#make-vector
o|    ##sys#cons	4
o|    scheme#vector-ref	2
o|    scheme#set-car!	8
o|    ##sys#generic-structure?
o|    chicken.fixnum#fx/
o|    scheme#read-char
o|    ##sys#list	6
o|    ##sys#context-switch	2
o|    ##sys#foreign-pointer-argument	3
o|    ##sys#null-pointer?
o|    scheme#caddr	3
o|    scheme#write-char
o|    scheme#equal?	2
o|    scheme#memv	2
o|    scheme#caar	3
o|    scheme#cddr	3
o|    ##sys#check-structure	2
o|    chicken.fixnum#fxmin	7
o|    ##sys#apply	2
o|    scheme#char-upper-case?
o|    ##sys#void	4
o|    scheme#string?	6
o|    scheme#string->list
o|    scheme#char-downcase
o|    scheme#member	8
o|    chicken.fixnum#fxior
o|    scheme#char-numeric?	9
o|    scheme#char>=?	2
o|    scheme#eof-object?	30
o|    scheme#char=?	10
o|    scheme#char-whitespace?	6
o|    scheme#vector?	3
o|    ##sys#immediate?	3
o|    chicken.fixnum#fxnot
o|    chicken.fixnum#fxand	8
o|    ##sys#call-with-current-continuation	3
o|    scheme#char?	5
o|    scheme#symbol?	8
o|    scheme#assq	11
o|    ##sys#check-vector	13
o|    scheme#char<=?	4
o|    ##sys#foreign-flonum-argument
o|    ##sys#foreign-fixnum-argument	4
o|    scheme#remainder
o|    chicken.base#fixnum?	2
o|    chicken.fixnum#fxshr	5
o|    chicken.fixnum#fxshl	5
o|    chicken.bitwise#bitwise-and	2
o|    chicken.fixnum#fxneg	5
o|    chicken.bitwise#arithmetic-shift	11
o|    scheme#>	7
o|    scheme#<	7
o|    scheme#cadr	20
o|    scheme#=	3
o|    scheme#>=	4
o|    scheme#quotient	17
o|    scheme#exact?	2
o|    chicken.base#ratnum?	14
o|    ##sys#check-number	12
o|    chicken.base#cplxnum?	17
o|    scheme#number?	9
o|    scheme#*	45
o|    scheme#inexact?	7
o|    chicken.base#flonum?	55
o|    scheme#length	6
o|    scheme#list->string
o|    scheme#string-length	20
o|    chicken.fixnum#fx<=	16
o|    chicken.fixnum#fxmax
o|    scheme#char->integer	14
o|    chicken.fixnum#fx>=	41
o|    scheme#string-set!	5
o|    scheme#string-ref	28
o|    chicken.fixnum#fx<	47
o|    scheme#memq	13
o|    chicken.fixnum#fx>	43
o|    chicken.fixnum#fx-	94
o|    chicken.fixnum#fx*	16
o|    chicken.fixnum#fx+	174
o|    ##sys#call-with-values	26
o|    ##sys#values	2
o|    chicken.fixnum#fx=	32
o|    ##sys#check-range	18
o|    scheme#procedure?	12
o|    scheme#string	3
o|    ##sys#check-bytevector	13
o|    scheme#vector	10
o|    ##sys#setislot	42
o|    scheme#list	28
o|    ##sys#setslot	91
o|    scheme#list?	4
o|    ##sys#check-pair	3
o|    chicken.base#void	3
o|    ##sys#check-list	26
o|    ##sys#make-structure	13
o|    ##sys#structure?	8
o|    scheme#apply	108
o|    scheme#-	21
o|    scheme#call-with-values	2
o|    scheme#+	26
o|    scheme#values	27
o|    ##sys#size	86
o|    scheme#not	106
o|    ##sys#check-fixnum	28
o|    ##sys#check-char	49
o|    ##sys#check-string	38
o|    scheme#pair?	130
o|    scheme#cons	182
o|    scheme#cdr	100
o|    scheme#car	196
o|    ##sys#check-symbol	11
o|    scheme#null?	272
o|    ##sys#check-boolean	3
o|    ##sys#slot	549
o|    scheme#eq?	475
o|contracted procedure: k11664 
o|contracted procedure: k11667 
o|contracted procedure: k11674 
o|contracted procedure: k11683 
o|contracted procedure: k11686 
o|contracted procedure: k11689 
o|contracted procedure: k11696 
o|contracted procedure: k11700 
o|contracted procedure: k11709 
o|contracted procedure: k11712 
o|contracted procedure: k11719 
o|contracted procedure: k11728 
o|contracted procedure: k11731 
o|contracted procedure: k11734 
o|contracted procedure: k11741 
o|contracted procedure: k11745 
o|contracted procedure: k11801 
o|contracted procedure: k11797 
o|contracted procedure: k11815 
o|contracted procedure: k11829 
o|contracted procedure: k11825 
o|contracted procedure: k11850 
o|contracted procedure: k11846 
o|contracted procedure: k11864 
o|contracted procedure: k11860 
o|contracted procedure: k11882 
o|contracted procedure: k11878 
o|contracted procedure: k11874 
o|contracted procedure: k11892 
o|contracted procedure: k11904 
o|contracted procedure: k11922 
o|contracted procedure: k11918 
o|contracted procedure: k11933 
o|contracted procedure: k11951 
o|contracted procedure: k11947 
o|contracted procedure: k11943 
o|contracted procedure: k11961 
o|contracted procedure: k11973 
o|contracted procedure: k11998 
o|contracted procedure: k11994 
o|contracted procedure: k11990 
o|contracted procedure: k12008 
o|contracted procedure: k12027 
o|contracted procedure: k12023 
o|contracted procedure: k12019 
o|contracted procedure: k12060 
o|contracted procedure: k12066 
o|contracted procedure: k12073 
o|contracted procedure: k12081 
o|contracted procedure: k12077 
o|contracted procedure: k12131 
o|contracted procedure: k12096 
o|contracted procedure: k12111 
o|contracted procedure: k12124 
o|contracted procedure: k12128 
o|contracted procedure: k12186 
o|contracted procedure: k12146 
o|contracted procedure: k12161 
o|contracted procedure: k12175 
o|contracted procedure: k12183 
o|contracted procedure: k12179 
o|contracted procedure: k12220 
o|contracted procedure: k12223 
o|contracted procedure: k12226 
o|contracted procedure: k12233 
o|contracted procedure: k12253 
o|contracted procedure: k12256 
o|contracted procedure: k12259 
o|contracted procedure: k12266 
o|contracted procedure: k12378 
o|contracted procedure: k12388 
o|contracted procedure: k12397 
o|contracted procedure: k12412 
o|contracted procedure: k12415 
o|contracted procedure: k12428 
o|contracted procedure: k12431 
o|contracted procedure: k12434 
o|contracted procedure: k12441 
o|contracted procedure: k12451 
o|contracted procedure: k12454 
o|contracted procedure: k12467 
o|contracted procedure: k12470 
o|contracted procedure: k12473 
o|contracted procedure: k12480 
o|contracted procedure: k12490 
o|contracted procedure: k12493 
o|contracted procedure: k12506 
o|contracted procedure: k12509 
o|contracted procedure: k12512 
o|contracted procedure: k12519 
o|contracted procedure: k12529 
o|contracted procedure: k12532 
o|contracted procedure: k12545 
o|contracted procedure: k12548 
o|contracted procedure: k12551 
o|contracted procedure: k12558 
o|contracted procedure: k12568 
o|contracted procedure: k12571 
o|contracted procedure: k12584 
o|contracted procedure: k12587 
o|contracted procedure: k12590 
o|contracted procedure: k12597 
o|contracted procedure: k12607 
o|contracted procedure: k12613 
o|contracted procedure: k12624 
o|contracted procedure: k12630 
o|contracted procedure: k12636 
o|contracted procedure: k12642 
o|contracted procedure: k12648 
o|contracted procedure: k12654 
o|contracted procedure: k12664 
o|contracted procedure: k12660 
o|contracted procedure: k12670 
o|contracted procedure: k12676 
o|contracted procedure: k12679 
o|contracted procedure: k12683 
o|contracted procedure: k12696 
o|contracted procedure: k12699 
o|contracted procedure: k12703 
o|contracted procedure: k12716 
o|contracted procedure: k12719 
o|contracted procedure: k12723 
o|contracted procedure: k12766 
o|contracted procedure: k12782 
o|contracted procedure: k12903 
o|contracted procedure: k12917 
o|contracted procedure: k12956 
o|contracted procedure: k13009 
o|contracted procedure: k13040 
o|contracted procedure: k13021 
o|contracted procedure: k13028 
o|contracted procedure: k13036 
o|contracted procedure: k13046 
o|contracted procedure: k13077 
o|contracted procedure: k13058 
o|contracted procedure: k13065 
o|contracted procedure: k13073 
o|contracted procedure: k13087 
o|contracted procedure: k13102 
o|contracted procedure: k13093 
o|contracted procedure: k13117 
o|contracted procedure: k1311444954 
o|contracted procedure: k13111 
o|contracted procedure: k13114 
o|contracted procedure: k13141 
o|contracted procedure: k13150 
o|contracted procedure: k13160 
o|contracted procedure: k13197 
o|contracted procedure: k13177 
o|contracted procedure: k13180 
o|contracted procedure: k13193 
o|contracted procedure: k13206 
o|contracted procedure: k13209 
o|contracted procedure: k13250 
o|contracted procedure: k13271 
o|contracted procedure: k13283 
o|contracted procedure: k13292 
o|contracted procedure: k13295 
o|contracted procedure: k13301 
o|contracted procedure: k13330 
o|contracted procedure: k13357 
o|contracted procedure: k13336 
o|contracted procedure: k13349 
o|contracted procedure: k13353 
o|contracted procedure: k13366 
o|contracted procedure: k13413 
o|contracted procedure: k13377 
o|contracted procedure: k13391 
o|contracted procedure: k13394 
o|contracted procedure: k13400 
o|contracted procedure: k13431 
o|contracted procedure: k13446 
o|contracted procedure: k13453 
o|contracted procedure: k13468 
o|contracted procedure: k13478 
o|contracted procedure: k13482 
o|contracted procedure: k13492 
o|contracted procedure: k13501 
o|contracted procedure: k13507 
o|contracted procedure: k13514 
o|contracted procedure: k13533 
o|contracted procedure: k13536 
o|contracted procedure: k13539 
o|contracted procedure: k13545 
o|contracted procedure: k13615 
o|contracted procedure: k13565 
o|contracted procedure: k13568 
o|contracted procedure: k13580 
o|contracted procedure: k13612 
o|contracted procedure: k13586 
o|contracted procedure: k13592 
o|contracted procedure: k13595 
o|contracted procedure: k13601 
o|contracted procedure: k13622 
o|contracted procedure: k13634 
o|contracted procedure: k13696 
o|contracted procedure: k13640 
o|contracted procedure: k13692 
o|contracted procedure: k13649 
o|contracted procedure: k13658 
o|contracted procedure: k13665 
o|contracted procedure: k13673 
o|contracted procedure: k13677 
o|contracted procedure: k13684 
o|contracted procedure: k13688 
o|contracted procedure: k13779 
o|contracted procedure: k13702 
o|contracted procedure: k13714 
o|contracted procedure: k13721 
o|contracted procedure: k13724 
o|contracted procedure: k13730 
o|contracted procedure: k13736 
o|contracted procedure: k13750 
o|contracted procedure: k13753 
o|contracted procedure: k13766 
o|contracted procedure: k13769 
o|contracted procedure: k13776 
o|contracted procedure: k13883 
o|contracted procedure: k13788 
o|contracted procedure: k13800 
o|contracted procedure: k13807 
o|contracted procedure: k13880 
o|contracted procedure: k13813 
o|contracted procedure: k13819 
o|contracted procedure: k13876 
o|contracted procedure: k13825 
o|contracted procedure: k13841 
o|contracted procedure: k13845 
o|contracted procedure: k13864 
o|contracted procedure: k13868 
o|contracted procedure: k13852 
o|contracted procedure: k13860 
o|contracted procedure: k13872 
o|contracted procedure: k13995 
o|contracted procedure: k13892 
o|contracted procedure: k13989 
o|contracted procedure: k13895 
o|contracted procedure: k13983 
o|contracted procedure: k13898 
o|contracted procedure: k13977 
o|contracted procedure: k13901 
o|contracted procedure: k13916 
o|contracted procedure: k13922 
o|contracted procedure: k13928 
o|contracted procedure: k13942 
o|contracted procedure: k13948 
o|contracted procedure: k13951 
o|contracted procedure: k13954 
o|contracted procedure: k13967 
o|contracted procedure: k13971 
o|contracted procedure: k14004 
o|contracted procedure: k14045 
o|contracted procedure: k14007 
o|contracted procedure: k14019 
o|contracted procedure: k14022 
o|contracted procedure: k14025 
o|contracted procedure: k14038 
o|contracted procedure: k14042 
o|contracted procedure: k14052 
o|contracted procedure: k14058 
o|contracted procedure: k14062 
o|contracted procedure: k14068 
o|contracted procedure: k14071 
o|contracted procedure: k14074 
o|contracted procedure: k14083 
o|contracted procedure: k14086 
o|contracted procedure: k14089 
o|contracted procedure: k14127 
o|contracted procedure: k14123 
o|contracted procedure: k14105 
o|contracted procedure: k14115 
o|contracted procedure: k14119 
o|contracted procedure: k14136 
o|contracted procedure: k14139 
o|contracted procedure: k14146 
o|contracted procedure: k14158 
o|contracted procedure: k14174 
o|contracted procedure: k14190 
o|contracted procedure: k14149 
o|contracted procedure: k14142 
o|contracted procedure: k14228 
o|contracted procedure: k14231 
o|contracted procedure: k14244 
o|contracted procedure: k14247 
o|contracted procedure: k14255 
o|contracted procedure: k14238 
o|contracted procedure: k14234 
o|contracted procedure: k14307 
o|contracted procedure: k14285 
o|contracted procedure: k14288 
o|contracted procedure: k14294 
o|contracted procedure: k14424 
o|contracted procedure: k14436 
o|contracted procedure: k14450 
o|contracted procedure: k14491 
o|contracted procedure: k14487 
o|contracted procedure: k14535 
o|contracted procedure: k14528 
o|contracted procedure: k14538 
o|contracted procedure: k14547 
o|contracted procedure: k14566 
o|contracted procedure: k14573 
o|contracted procedure: k14577 
o|contracted procedure: k14586 
o|contracted procedure: k14597 
o|contracted procedure: k14608 
o|contracted procedure: k14619 
o|contracted procedure: k14630 
o|contracted procedure: k14641 
o|contracted procedure: k14652 
o|contracted procedure: k14663 
o|contracted procedure: k14674 
o|contracted procedure: k14685 
o|contracted procedure: k14696 
o|contracted procedure: k14707 
o|contracted procedure: k14718 
o|contracted procedure: k14729 
o|contracted procedure: k14740 
o|contracted procedure: k14751 
o|contracted procedure: k14769 
o|contracted procedure: k14786 
o|contracted procedure: k14796 
o|contracted procedure: k14799 
o|contracted procedure: k14809 
o|contracted procedure: k14827 
o|contracted procedure: k14837 
o|contracted procedure: k14848 
o|contracted procedure: k14859 
o|contracted procedure: k14869 
o|contracted procedure: k14879 
o|contracted procedure: k14890 
o|contracted procedure: k14899 
o|contracted procedure: k14905 
o|contracted procedure: k14914 
o|contracted procedure: k14923 
o|contracted procedure: k14926 
o|contracted procedure: k14995 
o|contracted procedure: k14991 
o|contracted procedure: k14935 
o|contracted procedure: k14947 
o|contracted procedure: k14957 
o|contracted procedure: k14950 
o|contracted procedure: k14960 
o|contracted procedure: k14987 
o|contracted procedure: k14966 
o|contracted procedure: k14983 
o|contracted procedure: k14972 
o|contracted procedure: k14979 
o|contracted procedure: k15004 
o|contracted procedure: k15022 
o|contracted procedure: k15015 
o|contracted procedure: k15038 
o|contracted procedure: k15031 
o|contracted procedure: k15054 
o|contracted procedure: k15047 
o|contracted procedure: k15070 
o|contracted procedure: k15063 
o|contracted procedure: k15086 
o|contracted procedure: k15079 
o|contracted procedure: k15102 
o|contracted procedure: k15095 
o|contracted procedure: k15118 
o|contracted procedure: k15111 
o|contracted procedure: k15134 
o|contracted procedure: k15127 
o|contracted procedure: k15146 
o|contracted procedure: k15216 
o|contracted procedure: k15158 
o|contracted procedure: k15168 
o|contracted procedure: k15177 
o|contracted procedure: k15184 
o|contracted procedure: k15190 
o|contracted procedure: k15197 
o|contracted procedure: k15205 
o|contracted procedure: k15212 
o|contracted procedure: k15231 
o|contracted procedure: k15238 
o|contracted procedure: k15246 
o|contracted procedure: k15242 
o|contracted procedure: k15258 
o|contracted procedure: k15252 
o|contracted procedure: k15280 
o|contracted procedure: k15267 
o|contracted procedure: k15270 
o|contracted procedure: k15277 
o|contracted procedure: k15298 
o|contracted procedure: k15322 
o|contracted procedure: k15331 
o|contracted procedure: k15347 
o|contracted procedure: k15360 
o|contracted procedure: k15387 
o|contracted procedure: k15396 
o|contracted procedure: k15405 
o|contracted procedure: k15429 
o|contracted procedure: k15444 
o|contracted procedure: k15511 
o|contracted procedure: k15578 
o|contracted procedure: k15529 
o|contracted procedure: k15544 
o|contracted procedure: k15550 
o|contracted procedure: k15566 
o|contracted procedure: k15573 
o|contracted procedure: k15584 
o|contracted procedure: k15597 
o|contracted procedure: k15600 
o|contracted procedure: k15603 
o|contracted procedure: k15606 
o|contracted procedure: k15696 
o|contracted procedure: k15615 
o|contracted procedure: k15690 
o|contracted procedure: k15618 
o|contracted procedure: k15684 
o|contracted procedure: k15621 
o|contracted procedure: k15678 
o|contracted procedure: k15624 
o|contracted procedure: k15627 
o|contracted procedure: k15630 
o|contracted procedure: k15643 
o|contracted procedure: k15652 
o|contracted procedure: k15659 
o|contracted procedure: k15667 
o|contracted procedure: k15663 
o|contracted procedure: k15761 
o|contracted procedure: k15709 
o|contracted procedure: k15753 
o|contracted procedure: k15727 
o|contracted procedure: k15730 
o|contracted procedure: k15733 
o|contracted procedure: k15740 
o|contracted procedure: k15744 
o|contracted procedure: k15748 
o|contracted procedure: k15757 
o|contracted procedure: k15780 
o|contracted procedure: k15786 
o|contracted procedure: k15789 
o|contracted procedure: k15792 
o|contracted procedure: k15795 
o|contracted procedure: k15802 
o|contracted procedure: k15806 
o|contracted procedure: k15813 
o|contracted procedure: k15929 
o|contracted procedure: k15819 
o|contracted procedure: k15923 
o|contracted procedure: k15822 
o|contracted procedure: k15917 
o|contracted procedure: k15825 
o|contracted procedure: k15911 
o|contracted procedure: k15828 
o|contracted procedure: k15831 
o|contracted procedure: k15834 
o|contracted procedure: k15841 
o|contracted procedure: k15844 
o|contracted procedure: k15896 
o|contracted procedure: k15847 
o|contracted procedure: k15850 
o|contracted procedure: k15888 
o|contracted procedure: k15892 
o|contracted procedure: k15881 
o|contracted procedure: k15856 
o|contracted procedure: k15868 
o|contracted procedure: k15871 
o|contracted procedure: k15878 
o|contracted procedure: k15899 
o|contracted procedure: k16005 
o|contracted procedure: k15938 
o|contracted procedure: k15999 
o|contracted procedure: k15941 
o|contracted procedure: k15993 
o|contracted procedure: k15944 
o|contracted procedure: k15987 
o|contracted procedure: k15947 
o|contracted procedure: k15950 
o|contracted procedure: k15963 
o|contracted procedure: k15966 
o|contracted procedure: k16156 
o|contracted procedure: k16014 
o|contracted procedure: k16150 
o|contracted procedure: k16017 
o|contracted procedure: k16144 
o|contracted procedure: k16020 
o|contracted procedure: k16138 
o|contracted procedure: k16023 
o|contracted procedure: k16026 
o|contracted procedure: k16029 
o|contracted procedure: k16034 
o|contracted procedure: k16037 
o|contracted procedure: k16121 
o|contracted procedure: k16046 
o|contracted procedure: k16088 
o|contracted procedure: k16053 
o|contracted procedure: k16057 
o|contracted procedure: k16066 
o|contracted procedure: k16084 
o|contracted procedure: k16069 
o|contracted procedure: k16076 
o|contracted procedure: k16080 
o|contracted procedure: k16100 
o|contracted procedure: k16118 
o|contracted procedure: k16103 
o|contracted procedure: k16110 
o|contracted procedure: k16114 
o|contracted procedure: k16169 
o|contracted procedure: k16173 
o|contracted procedure: k16179 
o|contracted procedure: k16182 
o|contracted procedure: k16202 
o|contracted procedure: k16208 
o|contracted procedure: k16214 
o|contracted procedure: k16218 
o|contracted procedure: k16224 
o|contracted procedure: k16227 
o|contracted procedure: k16279 
o|contracted procedure: k16233 
o|contracted procedure: k16249 
o|contracted procedure: k16255 
o|contracted procedure: k16258 
o|contracted procedure: k16276 
o|contracted procedure: k16262 
o|contracted procedure: k16269 
o|contracted procedure: k16291 
o|contracted procedure: k16300 
o|contracted procedure: k16315 
o|contracted procedure: k16324 
o|contracted procedure: k16342 
o|contracted procedure: k16363 
o|contracted procedure: k16374 
o|contracted procedure: k16377 
o|contracted procedure: k16429 
o|contracted procedure: k16383 
o|contracted procedure: k16399 
o|contracted procedure: k16405 
o|contracted procedure: k16408 
o|contracted procedure: k16426 
o|contracted procedure: k16412 
o|contracted procedure: k16419 
o|contracted procedure: k16441 
o|contracted procedure: k16450 
o|contracted procedure: k16465 
o|contracted procedure: k16474 
o|contracted procedure: k16492 
o|contracted procedure: k16513 
o|contracted procedure: k16525 
o|contracted procedure: k16528 
o|contracted procedure: k16565 
o|contracted procedure: k16531 
o|contracted procedure: k16561 
o|contracted procedure: k16534 
o|contracted procedure: k16545 
o|contracted procedure: k16549 
o|contracted procedure: k16541 
o|contracted procedure: k16557 
o|contracted procedure: k16553 
o|contracted procedure: k16580 
o|contracted procedure: k16589 
o|contracted procedure: k16592 
o|contracted procedure: k16595 
o|contracted procedure: k16598 
o|contracted procedure: k16623 
o|contracted procedure: k16601 
o|contracted procedure: k16604 
o|contracted procedure: k16611 
o|contracted procedure: k16615 
o|contracted procedure: k16619 
o|contracted procedure: k16641 
o|contracted procedure: k16647 
o|contracted procedure: k16659 
o|contracted procedure: k16665 
o|contracted procedure: k16680 
o|contracted procedure: k16695 
o|contracted procedure: k16714 
o|contracted procedure: k16702 
o|contracted procedure: k16706 
o|contracted procedure: k16710 
o|contracted procedure: k16717 
o|contracted procedure: k16748 
o|contracted procedure: k16741 
o|contracted procedure: k16772 
o|contracted procedure: k16765 
o|contracted procedure: k16796 
o|contracted procedure: k16789 
o|contracted procedure: k16820 
o|contracted procedure: k16813 
o|contracted procedure: k16842 
o|contracted procedure: k16848 
o|contracted procedure: k16869 
o|contracted procedure: k16862 
o|contracted procedure: k16893 
o|contracted procedure: k16886 
o|contracted procedure: k16917 
o|contracted procedure: k16910 
o|contracted procedure: k16941 
o|contracted procedure: k16934 
o|contracted procedure: k16965 
o|contracted procedure: k16958 
o|contracted procedure: k16989 
o|contracted procedure: k16982 
o|contracted procedure: k17013 
o|contracted procedure: k17006 
o|contracted procedure: k17030 
o|contracted procedure: k17055 
o|contracted procedure: k17048 
o|contracted procedure: k17079 
o|contracted procedure: k17072 
o|contracted procedure: k17096 
o|contracted procedure: k17114 
o|contracted procedure: k17132 
o|contracted procedure: k17150 
o|contracted procedure: k17168 
o|contracted procedure: k17186 
o|contracted procedure: k17204 
o|contracted procedure: k17222 
o|contracted procedure: k17240 
o|contracted procedure: k17258 
o|contracted procedure: k17283 
o|contracted procedure: k17276 
o|contracted procedure: k17300 
o|contracted procedure: k17318 
o|contracted procedure: k17336 
o|contracted procedure: k17354 
o|contracted procedure: k17372 
o|contracted procedure: k17390 
o|contracted procedure: k17408 
o|contracted procedure: k17433 
o|contracted procedure: k17426 
o|contracted procedure: k17450 
o|contracted procedure: k17468 
o|contracted procedure: k17486 
o|contracted procedure: k17504 
o|contracted procedure: k17526 
o|contracted procedure: k17517 
o|contracted procedure: k17523 
o|contracted procedure: k17538 
o|contracted procedure: k17549 
o|contracted procedure: k17553 
o|contracted procedure: k17587 
o|contracted procedure: k17591 
o|contracted procedure: k17600 
o|contracted procedure: k17611 
o|contracted procedure: k17623 
o|contracted procedure: k17634 
o|contracted procedure: k17643 
o|contracted procedure: k17662 
o|contracted procedure: k17683 
o|contracted procedure: k17687 
o|contracted procedure: k17679 
o|contracted procedure: k17693 
o|contracted procedure: k17706 
o|contracted procedure: k17712 
o|contracted procedure: k17758 
o|contracted procedure: k17780 
o|contracted procedure: k17803 
o|contracted procedure: k17825 
o|contracted procedure: k17842 
o|contracted procedure: k17854 
o|contracted procedure: k17966 
o|contracted procedure: k17900 
o|contracted procedure: k17891 
o|contracted procedure: k17934 
o|contracted procedure: k17941 
o|contracted procedure: k17992 
o|contracted procedure: k18042 
o|contracted procedure: k18052 
o|contracted procedure: k18065 
o|contracted procedure: k18072 
o|contracted procedure: k18080 
o|contracted procedure: k18084 
o|contracted procedure: k18096 
o|contracted procedure: k18122 
o|contracted procedure: k18125 
o|contracted procedure: k18177 
o|contracted procedure: k18181 
o|contracted procedure: k18140 
o|contracted procedure: k18157 
o|contracted procedure: k18161 
o|contracted procedure: k18153 
o|contracted procedure: k18169 
o|contracted procedure: k18173 
o|contracted procedure: k18165 
o|contracted procedure: k18187 
o|contracted procedure: k18204 
o|contracted procedure: k18210 
o|contracted procedure: k18263 
o|contracted procedure: k18267 
o|contracted procedure: k18247 
o|contracted procedure: k18255 
o|contracted procedure: k18259 
o|contracted procedure: k18251 
o|contracted procedure: k18278 
o|contracted procedure: k18300 
o|contracted procedure: k18281 
o|contracted procedure: k18306 
o|contracted procedure: k18333 
o|contracted procedure: k18317 
o|contracted procedure: k18320 
o|contracted procedure: k18355 
o|contracted procedure: k18345 
o|contracted procedure: k18361 
o|contracted procedure: k18383 
o|contracted procedure: k18391 
o|contracted procedure: k18397 
o|contracted procedure: k18427 
o|contracted procedure: k18435 
o|contracted procedure: k18441 
o|contracted procedure: k18471 
o|contracted procedure: k18504 
o|contracted procedure: k18507 
o|contracted procedure: k18522 
o|contracted procedure: k18608 
o|contracted procedure: k18550 
o|contracted procedure: k18559 
o|contracted procedure: k18575 
o|contracted procedure: k18579 
o|contracted procedure: k18569 
o|contracted procedure: k18593 
o|contracted procedure: k18597 
o|contracted procedure: k18604 
o|contracted procedure: k18622 
o|contracted procedure: k18668 
o|contracted procedure: k18631 
o|contracted procedure: k18656 
o|contracted procedure: k18660 
o|contracted procedure: k18694 
o|contracted procedure: k18697 
o|contracted procedure: k18678 
o|contracted procedure: k18682 
o|contracted procedure: k18713 
o|contracted procedure: k18727 
o|contracted procedure: k18736 
o|contracted procedure: k18739 
o|contracted procedure: k18742 
o|contracted procedure: k18764 
o|contracted procedure: k18784 
o|contracted procedure: k18798 
o|contracted procedure: k18807 
o|contracted procedure: k18810 
o|contracted procedure: k18813 
o|contracted procedure: k18835 
o|contracted procedure: k18855 
o|contracted procedure: k18861 
o|contracted procedure: k18903 
o|contracted procedure: k18912 
o|contracted procedure: k18915 
o|contracted procedure: k18926 
o|contracted procedure: k18969 
o|contracted procedure: k18949 
o|contracted procedure: k18978 
o|contracted procedure: k18984 
o|contracted procedure: k18987 
o|contracted procedure: k18994 
o|contracted procedure: k19012 
o|contracted procedure: k19018 
o|contracted procedure: k19021 
o|contracted procedure: k19028 
o|contracted procedure: k19046 
o|contracted procedure: k19052 
o|contracted procedure: k19071 
o|contracted procedure: k19098 
o|contracted procedure: k19094 
o|contracted procedure: k19110 
o|contracted procedure: k19106 
o|contracted procedure: k19116 
o|contracted procedure: k19133 
o|contracted procedure: k19158 
o|contracted procedure: k19230 
o|contracted procedure: k19175 
o|contracted procedure: k19178 
o|contracted procedure: k19184 
o|contracted procedure: k19193 
o|contracted procedure: k19200 
o|contracted procedure: k19212 
o|contracted procedure: k19216 
o|contracted procedure: k19421 
o|contracted procedure: k19242 
o|contracted procedure: k19248 
o|contracted procedure: k19251 
o|contracted procedure: k19260 
o|contracted procedure: k19269 
o|contracted procedure: k19278 
o|contracted procedure: k19416 
o|contracted procedure: k19300 
o|contracted procedure: k19303 
o|contracted procedure: k19320 
o|contracted procedure: k19316 
o|contracted procedure: k19327 
o|contracted procedure: k19331 
o|contracted procedure: k19412 
o|contracted procedure: k19408 
o|contracted procedure: k19334 
o|contracted procedure: k19348 
o|contracted procedure: k19353 
o|contracted procedure: k19404 
o|contracted procedure: k19359 
o|contracted procedure: k19392 
o|contracted procedure: k19400 
o|contracted procedure: k19396 
o|contracted procedure: k19362 
o|contracted procedure: k19373 
o|contracted procedure: k19385 
o|contracted procedure: k19381 
o|contracted procedure: k19377 
o|contracted procedure: k19442 
o|contracted procedure: k19456 
o|contracted procedure: k19460 
o|contracted procedure: k19508 
o|contracted procedure: k19518 
o|contracted procedure: k19542 
o|contracted procedure: k19566 
o|contracted procedure: k19624 
o|contracted procedure: k19628 
o|contracted procedure: k19642 
o|contracted procedure: k19646 
o|contracted procedure: k19706 
o|contracted procedure: k19719 
o|contracted procedure: k19726 
o|contracted procedure: k19732 
o|contracted procedure: k19735 
o|contracted procedure: k19793 
o|contracted procedure: k19797 
o|contracted procedure: k19789 
o|contracted procedure: k19742 
o|contracted procedure: k19751 
o|contracted procedure: k19766 
o|contracted procedure: k19770 
o|contracted procedure: k19762 
o|contracted procedure: k19758 
o|contracted procedure: k19781 
o|contracted procedure: k19813 
o|contracted procedure: k19817 
o|contracted procedure: k19861 
o|contracted procedure: k19872 
o|contracted procedure: k19880 
o|contracted procedure: k19887 
o|contracted procedure: k19891 
o|contracted procedure: k19904 
o|contracted procedure: k19917 
o|contracted procedure: k19927 
o|contracted procedure: k20157 
o|contracted procedure: k19937 
o|contracted procedure: k20153 
o|contracted procedure: k19946 
o|contracted procedure: k19986 
o|contracted procedure: k20026 
o|contracted procedure: k20060 
o|contracted procedure: k20072 
o|contracted procedure: k20104 
o|contracted procedure: k20107 
o|contracted procedure: k20134 
o|contracted procedure: k20142 
o|contracted procedure: k20149 
o|contracted procedure: k20177 
o|contracted procedure: k20199 
o|contracted procedure: k20239 
o|contracted procedure: k20246 
o|contracted procedure: k20250 
o|contracted procedure: k20259 
o|contracted procedure: k20270 
o|contracted procedure: k20281 
o|contracted procedure: k20295 
o|contracted procedure: k20291 
o|contracted procedure: k20304 
o|contracted procedure: k20311 
o|contracted procedure: k20315 
o|contracted procedure: k20324 
o|contracted procedure: k20335 
o|contracted procedure: k20353 
o|contracted procedure: k20345 
o|contracted procedure: k20349 
o|contracted procedure: k20403 
o|contracted procedure: k20359 
o|contracted procedure: k20391 
o|contracted procedure: k20412 
o|contracted procedure: k20443 
o|contracted procedure: k20480 
o|contracted procedure: k20473 
o|contracted procedure: k20602 
o|contracted procedure: k20615 
o|contracted procedure: k20630 
o|contracted procedure: k20623 
o|contracted procedure: k20644 
o|contracted procedure: k20661 
o|contracted procedure: k20667 
o|contracted procedure: k20673 
o|contracted procedure: k20683 
o|contracted procedure: k20715 
o|contracted procedure: k20689 
o|contracted procedure: k20695 
o|contracted procedure: k20701 
o|contracted procedure: k20500 
o|contracted procedure: k20504 
o|contracted procedure: k20569 
o|contracted procedure: k20514 
o|contracted procedure: k20520 
o|contracted procedure: k20558 
o|contracted procedure: k20523 
o|contracted procedure: k20584 
o|contracted procedure: k20588 
o|contracted procedure: k20539 
o|contracted procedure: k20543 
o|contracted procedure: k20551 
o|contracted procedure: k20721 
o|contracted procedure: k22135 
o|contracted procedure: k22131 
o|contracted procedure: k22127 
o|contracted procedure: k22123 
o|contracted procedure: k22119 
o|contracted procedure: k22115 
o|contracted procedure: k20753 
o|contracted procedure: k20759 
o|contracted procedure: k20775 
o|contracted procedure: k20781 
o|contracted procedure: k20787 
o|contracted procedure: k20794 
o|contracted procedure: k20800 
o|contracted procedure: k20814 
o|contracted procedure: k20824 
o|contracted procedure: k20834 
o|contracted procedure: k20847 
o|contracted procedure: k20853 
o|contracted procedure: k20872 
o|contracted procedure: k20906 
o|contracted procedure: k20912 
o|contracted procedure: k20918 
o|contracted procedure: k20924 
o|contracted procedure: k20931 
o|contracted procedure: k20937 
o|contracted procedure: k20951 
o|contracted procedure: k20958 
o|contracted procedure: k20979 
o|contracted procedure: k20993 
o|contracted procedure: k21004 
o|contracted procedure: k21007 
o|contracted procedure: k21013 
o|contracted procedure: k21027 
o|contracted procedure: k21031 
o|contracted procedure: k21039 
o|contracted procedure: k21045 
o|contracted procedure: k21057 
o|contracted procedure: k21063 
o|contracted procedure: k21072 
o|contracted procedure: k21078 
o|contracted procedure: k21084 
o|contracted procedure: k21096 
o|contracted procedure: k21111 
o|contracted procedure: k21121 
o|contracted procedure: k21140 
o|contracted procedure: k21136 
o|contracted procedure: k21144 
o|contracted procedure: k21147 
o|contracted procedure: k21150 
o|contracted procedure: k21153 
o|contracted procedure: k21159 
o|contracted procedure: k21166 
o|contracted procedure: k21178 
o|contracted procedure: k21184 
o|contracted procedure: k21190 
o|contracted procedure: k21196 
o|contracted procedure: k21202 
o|contracted procedure: k21208 
o|contracted procedure: k21214 
o|contracted procedure: k21220 
o|contracted procedure: k21252 
o|contracted procedure: k21279 
o|contracted procedure: k21578 
o|contracted procedure: k21288 
o|contracted procedure: k21294 
o|contracted procedure: k21303 
o|contracted procedure: k21329 
o|contracted procedure: k21309 
o|contracted procedure: k21316 
o|contracted procedure: k21337 
o|contracted procedure: k21346 
o|contracted procedure: k21352 
o|contracted procedure: k21380 
o|contracted procedure: k21384 
o|contracted procedure: k21394 
o|contracted procedure: k21398 
o|contracted procedure: k21414 
o|contracted procedure: k21492 
o|contracted procedure: k21423 
o|contracted procedure: k21488 
o|contracted procedure: k21438 
o|contracted procedure: k21447 
o|contracted procedure: k21458 
o|contracted procedure: k21473 
o|contracted procedure: k21496 
o|contracted procedure: k21505 
o|contracted procedure: k21511 
o|contracted procedure: k21517 
o|contracted procedure: k21523 
o|contracted procedure: k21529 
o|contracted procedure: k21535 
o|contracted procedure: k21541 
o|contracted procedure: k21547 
o|contracted procedure: k21603 
o|contracted procedure: k21586 
o|contracted procedure: k21592 
o|contracted procedure: k21599 
o|contracted procedure: k21611 
o|contracted procedure: k21614 
o|contracted procedure: k21620 
o|contracted procedure: k21626 
o|contracted procedure: k21634 
o|contracted procedure: k21637 
o|contracted procedure: k21650 
o|contracted procedure: k21732 
o|contracted procedure: k21722 
o|contracted procedure: k21656 
o|contracted procedure: k21666 
o|contracted procedure: k21699 
o|contracted procedure: k21682 
o|contracted procedure: k21696 
o|contracted procedure: k21689 
o|contracted procedure: k21686 
o|contracted procedure: k21703 
o|contracted procedure: k21719 
o|contracted procedure: k21706 
o|contracted procedure: k21715 
o|contracted procedure: k21738 
o|contracted procedure: k21741 
o|contracted procedure: k21754 
o|contracted procedure: k21804 
o|contracted procedure: k21760 
o|contracted procedure: k21792 
o|contracted procedure: k21785 
o|contracted procedure: k21782 
o|contracted procedure: k21796 
o|contracted procedure: k21800 
o|contracted procedure: k21811 
o|contracted procedure: k21831 
o|contracted procedure: k21837 
o|contracted procedure: k21856 
o|contracted procedure: k22099 
o|contracted procedure: k21879 
o|contracted procedure: k21885 
o|contracted procedure: k21892 
o|contracted procedure: k21895 
o|contracted procedure: k21934 
o|contracted procedure: k21901 
o|contracted procedure: k21930 
o|contracted procedure: k21907 
o|contracted procedure: k21910 
o|contracted procedure: k21942 
o|contracted procedure: k21945 
o|contracted procedure: k21956 
o|contracted procedure: k22038 
o|contracted procedure: k21962 
o|contracted procedure: k22032 
o|contracted procedure: k21968 
o|contracted procedure: k21996 
o|contracted procedure: k22014 
o|contracted procedure: k22005 
o|contracted procedure: k22026 
o|contracted procedure: k22048 
o|contracted procedure: k22072 
o|contracted procedure: k22058 
o|contracted procedure: k22076 
o|contracted procedure: k22111 
o|contracted procedure: k22381 
o|contracted procedure: k22141 
o|contracted procedure: k22144 
o|contracted procedure: k22342 
o|contracted procedure: k22164 
o|contracted procedure: k22170 
o|contracted procedure: k22173 
o|contracted procedure: k22179 
o|contracted procedure: k22186 
o|contracted procedure: k22192 
o|contracted procedure: k22195 
o|contracted procedure: k22201 
o|contracted procedure: k22208 
o|contracted procedure: k22214 
o|contracted procedure: k22217 
o|contracted procedure: k22223 
o|contracted procedure: k22230 
o|contracted procedure: k22236 
o|contracted procedure: k22239 
o|contracted procedure: k22245 
o|contracted procedure: k22252 
o|contracted procedure: k22258 
o|contracted procedure: k22261 
o|contracted procedure: k22267 
o|contracted procedure: k22274 
o|contracted procedure: k22280 
o|contracted procedure: k22283 
o|contracted procedure: k22289 
o|contracted procedure: k22296 
o|contracted procedure: k22363 
o|contracted procedure: k22352 
o|contracted procedure: k22359 
o|contracted procedure: k22375 
o|contracted procedure: k22366 
o|contracted procedure: k22423 
o|contracted procedure: k22390 
o|contracted procedure: k22417 
o|contracted procedure: k22393 
o|contracted procedure: k22411 
o|contracted procedure: k22396 
o|contracted procedure: k22405 
o|contracted procedure: k22399 
o|contracted procedure: k22439 
o|contracted procedure: k22442 
o|contracted procedure: k22448 
o|contracted procedure: k22451 
o|contracted procedure: k22457 
o|contracted procedure: k22469 
o|contracted procedure: k22476 
o|contracted procedure: k22480 
o|contracted procedure: k22493 
o|contracted procedure: k22497 
o|contracted procedure: k22501 
o|contracted procedure: k22507 
o|contracted procedure: k22516 
o|contracted procedure: k22522 
o|contracted procedure: k22534 
o|contracted procedure: k22540 
o|contracted procedure: k22546 
o|contracted procedure: k22568 
o|contracted procedure: k22572 
o|contracted procedure: k22581 
o|contracted procedure: k22591 
o|contracted procedure: k22587 
o|contracted procedure: k22594 
o|contracted procedure: k22607 
o|contracted procedure: k22600 
o|contracted procedure: k22626 
o|contracted procedure: k22629 
o|contracted procedure: k22638 
o|contracted procedure: k22644 
o|contracted procedure: k22647 
o|contracted procedure: k22667 
o|contracted procedure: k22676 
o|contracted procedure: k22685 
o|contracted procedure: k22704 
o|contracted procedure: k22726 
o|contracted procedure: k22729 
o|contracted procedure: k22764 
o|contracted procedure: k22784 
o|contracted procedure: k22787 
o|contracted procedure: k22790 
o|contracted procedure: k22798 
o|contracted procedure: k22806 
o|contracted procedure: k22769 
o|contracted procedure: k22818 
o|contracted procedure: k22844 
o|contracted procedure: k22870 
o|contracted procedure: k22849 
o|contracted procedure: k22855 
o|contracted procedure: k22861 
o|contracted procedure: k22880 
o|contracted procedure: k22887 
o|contracted procedure: k22896 
o|contracted procedure: k22903 
o|contracted procedure: k22907 
o|contracted procedure: k22914 
o|contracted procedure: k22929 
o|contracted procedure: k22932 
o|contracted procedure: k22944 
o|contracted procedure: k22968 
o|contracted procedure: k22953 
o|contracted procedure: k22956 
o|contracted procedure: k22959 
o|contracted procedure: k22983 
o|contracted procedure: k22998 
o|contracted procedure: k23001 
o|contracted procedure: k23005 
o|contracted procedure: k23074 
o|contracted procedure: k23014 
o|contracted procedure: k23068 
o|contracted procedure: k23017 
o|contracted procedure: k23062 
o|contracted procedure: k23020 
o|contracted procedure: k23056 
o|contracted procedure: k23023 
o|contracted procedure: k23026 
o|contracted procedure: k23029 
o|contracted procedure: k23032 
o|contracted procedure: k23045 
o|contracted procedure: k23132 
o|contracted procedure: k23083 
o|contracted procedure: k23126 
o|contracted procedure: k23086 
o|contracted procedure: k23120 
o|contracted procedure: k23089 
o|contracted procedure: k23114 
o|contracted procedure: k23092 
o|contracted procedure: k23095 
o|contracted procedure: k23098 
o|contracted procedure: k23101 
o|contracted procedure: k23141 
o|contracted procedure: k23144 
o|contracted procedure: k23147 
o|contracted procedure: k23151 
o|contracted procedure: k23160 
o|contracted procedure: k23163 
o|contracted procedure: k23176 
o|contracted procedure: k23179 
o|contracted procedure: k23182 
o|contracted procedure: k23192 
o|contracted procedure: k23188 
o|contracted procedure: k23211 
o|contracted procedure: k23214 
o|contracted procedure: k23217 
o|contracted procedure: k23301 
o|contracted procedure: k23229 
o|contracted procedure: k23295 
o|contracted procedure: k23232 
o|contracted procedure: k23289 
o|contracted procedure: k23235 
o|contracted procedure: k23283 
o|contracted procedure: k23238 
o|contracted procedure: k23241 
o|contracted procedure: k23244 
o|contracted procedure: k23247 
o|contracted procedure: k23268 
o|contracted procedure: k23274 
o|contracted procedure: k23383 
o|contracted procedure: k23310 
o|contracted procedure: k23377 
o|contracted procedure: k23313 
o|contracted procedure: k23371 
o|contracted procedure: k23316 
o|contracted procedure: k23365 
o|contracted procedure: k23319 
o|contracted procedure: k23322 
o|contracted procedure: k23325 
o|contracted procedure: k23328 
o|contracted procedure: k23331 
o|contracted procedure: k23334 
o|contracted procedure: k23353 
o|contracted procedure: k23359 
o|contracted procedure: k23401 
o|contracted procedure: k23416 
o|contracted procedure: k23419 
o|contracted procedure: k23422 
o|contracted procedure: k23431 
o|contracted procedure: k23434 
o|contracted procedure: k23444 
o|contracted procedure: k23450 
o|contracted procedure: k23463 
o|contracted procedure: k23460 
o|contracted procedure: k23469 
o|contracted procedure: k23525 
o|contracted procedure: k23482 
o|contracted procedure: k23488 
o|contracted procedure: k23503 
o|contracted procedure: k23521 
o|contracted procedure: k23506 
o|contracted procedure: k23513 
o|contracted procedure: k23517 
o|contracted procedure: k23608 
o|contracted procedure: k23531 
o|contracted procedure: k23602 
o|contracted procedure: k23534 
o|contracted procedure: k23596 
o|contracted procedure: k23537 
o|contracted procedure: k23590 
o|contracted procedure: k23540 
o|contracted procedure: k23543 
o|contracted procedure: k23546 
o|contracted procedure: k23564 
o|contracted procedure: k23571 
o|contracted procedure: k23579 
o|contracted procedure: k23695 
o|contracted procedure: k23623 
o|contracted procedure: k23689 
o|contracted procedure: k23626 
o|contracted procedure: k23683 
o|contracted procedure: k23629 
o|contracted procedure: k23677 
o|contracted procedure: k23632 
o|contracted procedure: k23635 
o|contracted procedure: k23638 
o|contracted procedure: k23656 
o|contracted procedure: k23659 
o|contracted procedure: k23666 
o|contracted procedure: k23802 
o|contracted procedure: k23704 
o|contracted procedure: k23796 
o|contracted procedure: k23707 
o|contracted procedure: k23790 
o|contracted procedure: k23710 
o|contracted procedure: k23784 
o|contracted procedure: k23713 
o|contracted procedure: k23716 
o|contracted procedure: k23721 
o|contracted procedure: k23742 
o|contracted procedure: k23760 
o|contracted procedure: k23745 
o|contracted procedure: k23752 
o|contracted procedure: k23756 
o|contracted procedure: k23764 
o|contracted procedure: k23777 
o|contracted procedure: k23781 
o|contracted procedure: k23975 
o|contracted procedure: k23811 
o|contracted procedure: k23969 
o|contracted procedure: k23814 
o|contracted procedure: k23963 
o|contracted procedure: k23817 
o|contracted procedure: k23957 
o|contracted procedure: k23820 
o|contracted procedure: k23823 
o|contracted procedure: k23826 
o|contracted procedure: k23831 
o|contracted procedure: k23834 
o|contracted procedure: k23837 
o|contracted procedure: k23930 
o|contracted procedure: k23855 
o|contracted procedure: k23862 
o|contracted procedure: k23897 
o|contracted procedure: k23866 
o|contracted procedure: k23875 
o|contracted procedure: k23893 
o|contracted procedure: k23878 
o|contracted procedure: k23885 
o|contracted procedure: k23889 
o|contracted procedure: k23909 
o|contracted procedure: k23927 
o|contracted procedure: k23912 
o|contracted procedure: k23919 
o|contracted procedure: k23923 
o|contracted procedure: k23937 
o|contracted procedure: k23950 
o|contracted procedure: k23954 
o|contracted procedure: k23992 
o|contracted procedure: k24010 
o|contracted procedure: k24024 
o|contracted procedure: k24030 
o|contracted procedure: k24034 
o|contracted procedure: k24038 
o|contracted procedure: k24050 
o|contracted procedure: k24057 
o|contracted procedure: k24065 
o|contracted procedure: k24061 
o|contracted procedure: k24074 
o|contracted procedure: k24096 
o|contracted procedure: k24092 
o|contracted procedure: k24077 
o|contracted procedure: k24080 
o|contracted procedure: k24088 
o|contracted procedure: k24108 
o|contracted procedure: k24122 
o|contracted procedure: k24111 
o|contracted procedure: k24118 
o|contracted procedure: k24182 
o|contracted procedure: k24128 
o|contracted procedure: k24131 
o|contracted procedure: k24134 
o|contracted procedure: k24137 
o|contracted procedure: k24140 
o|contracted procedure: k24161 
o|contracted procedure: k24179 
o|contracted procedure: k24175 
o|contracted procedure: k24164 
o|contracted procedure: k24171 
o|contracted procedure: k24203 
o|contracted procedure: k24191 
o|contracted procedure: k24194 
o|contracted procedure: k24197 
o|contracted procedure: k24227 
o|contracted procedure: k24241 
o|contracted procedure: k24230 
o|contracted procedure: k24237 
o|contracted procedure: k24245 
o|contracted procedure: k24251 
o|contracted procedure: k24254 
o|contracted procedure: k24261 
o|contracted procedure: k24270 
o|contracted procedure: k24273 
o|contracted procedure: k24276 
o|contracted procedure: k24286 
o|contracted procedure: k24290 
o|contracted procedure: k24300 
o|contracted procedure: k24303 
o|contracted procedure: k24317 
o|contracted procedure: k24320 
o|contracted procedure: k24323 
o|contracted procedure: k24333 
o|contracted procedure: k24343 
o|contracted procedure: k24346 
o|contracted procedure: k24360 
o|contracted procedure: k24363 
o|contracted procedure: k24366 
o|contracted procedure: k24376 
o|contracted procedure: k24386 
o|contracted procedure: k24389 
o|contracted procedure: k24403 
o|contracted procedure: k24406 
o|contracted procedure: k24409 
o|contracted procedure: k24419 
o|contracted procedure: k24429 
o|contracted procedure: k24432 
o|contracted procedure: k24446 
o|contracted procedure: k24449 
o|contracted procedure: k24452 
o|contracted procedure: k24462 
o|contracted procedure: k24476 
o|contracted procedure: k24483 
o|contracted procedure: k24492 
o|contracted procedure: k24495 
o|contracted procedure: k24512 
o|contracted procedure: k24501 
o|contracted procedure: k24508 
o|contracted procedure: k24692 
o|contracted procedure: k24517 
o|contracted procedure: k24523 
o|contracted procedure: k24535 
o|contracted procedure: k24544 
o|contracted procedure: k24547 
o|contracted procedure: k24558 
o|contracted procedure: k24554 
o|contracted procedure: k24550 
o|contracted procedure: k24571 
o|contracted procedure: k24574 
o|contracted procedure: k24580 
o|contracted procedure: k24592 
o|contracted procedure: k24598 
o|contracted procedure: k24595 
o|contracted procedure: k24609 
o|contracted procedure: k24612 
o|contracted procedure: k24624 
o|contracted procedure: k24627 
o|contracted procedure: k24641 
o|contracted procedure: k24637 
o|contracted procedure: k24645 
o|contracted procedure: k24668 
o|contracted procedure: k24649 
o|contracted procedure: k24660 
o|contracted procedure: k24664 
o|contracted procedure: k24656 
o|contracted procedure: k24682 
o|contracted procedure: k24678 
o|contracted procedure: k24671 
o|contracted procedure: k24755 
o|contracted procedure: k24761 
o|contracted procedure: k24771 
o|contracted procedure: k24775 
o|contracted procedure: k24793 
o|contracted procedure: k24799 
o|contracted procedure: k24814 
o|contracted procedure: k24818 
o|contracted procedure: k24841 
o|contracted procedure: k24844 
o|contracted procedure: k24850 
o|contracted procedure: k24859 
o|contracted procedure: k24874 
o|contracted procedure: k24887 
o|contracted procedure: k24890 
o|contracted procedure: k24902 
o|contracted procedure: k24912 
o|contracted procedure: k24916 
o|contracted procedure: k24923 
o|contracted procedure: k24938 
o|contracted procedure: k24969 
o|contracted procedure: k24972 
o|contracted procedure: k24975 
o|contracted procedure: k24987 
o|contracted procedure: k24990 
o|contracted procedure: k24993 
o|contracted procedure: k25001 
o|contracted procedure: k25009 
o|contracted procedure: k25019 
o|contracted procedure: k25034 
o|contracted procedure: k25092 
o|contracted procedure: k25072 
o|contracted procedure: k25082 
o|contracted procedure: k25114 
o|contracted procedure: k25125 
o|contracted procedure: k25129 
o|contracted procedure: k25121 
o|contracted procedure: k25139 
o|contracted procedure: k25148 
o|contracted procedure: k25162 
o|contracted procedure: k25154 
o|contracted procedure: k25166 
o|contracted procedure: k25170 
o|contracted procedure: k25191 
o|contracted procedure: k25173 
o|contracted procedure: k25177 
o|contracted procedure: k25187 
o|contracted procedure: k25204 
o|contracted procedure: k25210 
o|contracted procedure: k25213 
o|contracted procedure: k25216 
o|contracted procedure: k25219 
o|contracted procedure: k25222 
o|contracted procedure: k25225 
o|contracted procedure: k25228 
o|contracted procedure: k25231 
o|contracted procedure: k25234 
o|contracted procedure: k25237 
o|contracted procedure: k25240 
o|contracted procedure: k25243 
o|contracted procedure: k42238 
o|contracted procedure: k42244 
o|contracted procedure: k42251 
o|contracted procedure: k42307 
o|contracted procedure: k42257 
o|contracted procedure: k42263 
o|contracted procedure: k42272 
o|contracted procedure: k42294 
o|contracted procedure: k42313 
o|contracted procedure: k42316 
o|contracted procedure: k42334 
o|contracted procedure: k42346 
o|contracted procedure: k42352 
o|contracted procedure: k42368 
o|contracted procedure: k42361 
o|contracted procedure: k42378 
o|contracted procedure: k42382 
o|contracted procedure: k42403 
o|contracted procedure: k42422 
o|contracted procedure: k42428 
o|contracted procedure: k42437 
o|contracted procedure: k42464 
o|contracted procedure: k42471 
o|contracted procedure: k42475 
o|contracted procedure: k42479 
o|contracted procedure: k42489 
o|contracted procedure: k42493 
o|contracted procedure: k42497 
o|contracted procedure: k42501 
o|contracted procedure: k42510 
o|contracted procedure: k42513 
o|contracted procedure: k42516 
o|contracted procedure: k42529 
o|contracted procedure: k42535 
o|contracted procedure: k42542 
o|contracted procedure: k42551 
o|contracted procedure: k42560 
o|contracted procedure: k42570 
o|contracted procedure: k42574 
o|contracted procedure: k42586 
o|contracted procedure: k42590 
o|contracted procedure: k42596 
o|contracted procedure: k42605 
o|contracted procedure: k42633 
o|contracted procedure: k42608 
o|contracted procedure: k42629 
o|contracted procedure: k42670 
o|contracted procedure: k42666 
o|contracted procedure: k42651 
o|contracted procedure: k42662 
o|contracted procedure: k42688 
o|contracted procedure: k42684 
o|contracted procedure: k42673 
o|contracted procedure: k42680 
o|contracted procedure: k42692 
o|contracted procedure: k25247 
o|contracted procedure: k25278 
o|contracted procedure: k25289 
o|contracted procedure: k25300 
o|contracted procedure: k25311 
o|contracted procedure: k25322 
o|contracted procedure: k25325 
o|contracted procedure: k25351 
o|contracted procedure: k25357 
o|contracted procedure: k25364 
o|contracted procedure: k25370 
o|contracted procedure: k25383 
o|contracted procedure: k25386 
o|contracted procedure: k25412 
o|contracted procedure: k25418 
o|contracted procedure: k25425 
o|contracted procedure: k25431 
o|contracted procedure: k25444 
o|contracted procedure: k25447 
o|contracted procedure: k25473 
o|contracted procedure: k25479 
o|contracted procedure: k25486 
o|contracted procedure: k25492 
o|contracted procedure: k25505 
o|contracted procedure: k25529 
o|contracted procedure: k25532 
o|contracted procedure: k25544 
o|contracted procedure: k25582 
o|contracted procedure: k25585 
o|contracted procedure: k25595 
o|contracted procedure: k25598 
o|contracted procedure: k25601 
o|contracted procedure: k2559546055 
o|contracted procedure: k25609 
o|contracted procedure: k25612 
o|contracted procedure: k2559546059 
o|contracted procedure: k25619 
o|contracted procedure: k25622 
o|contracted procedure: k2559546063 
o|contracted procedure: k25629 
o|contracted procedure: k2559546067 
o|contracted procedure: k25639 
o|contracted procedure: k2559546071 
o|contracted procedure: k25649 
o|contracted procedure: k25652 
o|contracted procedure: k2559546075 
o|contracted procedure: k25659 
o|contracted procedure: k25662 
o|contracted procedure: k2559546079 
o|contracted procedure: k25689 
o|contracted procedure: k25695 
o|contracted procedure: k25712 
o|contracted procedure: k25718 
o|contracted procedure: k25762 
o|contracted procedure: k25786 
o|contracted procedure: k25790 
o|contracted procedure: k25782 
o|contracted procedure: k25768 
o|contracted procedure: k25778 
o|contracted procedure: k25771 
o|contracted procedure: k25943 
o|contracted procedure: k25949 
o|contracted procedure: k25969 
o|contracted procedure: k25962 
o|contracted procedure: k25984 
o|contracted procedure: k25975 
o|contracted procedure: k26002 
o|contracted procedure: k26009 
o|contracted procedure: k26031 
o|contracted procedure: k26048 
o|contracted procedure: k26037 
o|contracted procedure: k26044 
o|contracted procedure: k26052 
o|contracted procedure: k26055 
o|contracted procedure: k26071 
o|contracted procedure: k26110 
o|contracted procedure: k26081 
o|contracted procedure: k26090 
o|contracted procedure: k26093 
o|contracted procedure: k26106 
o|contracted procedure: k26116 
o|contracted procedure: k26126 
o|contracted procedure: k26119 
o|contracted procedure: k26139 
o|contracted procedure: k26135 
o|contracted procedure: k26151 
o|contracted procedure: k26159 
o|contracted procedure: k26186 
o|contracted procedure: k26263 
o|contracted procedure: k26197 
o|contracted procedure: k26221 
o|contracted procedure: k26234 
o|contracted procedure: k26241 
o|contracted procedure: k26251 
o|contracted procedure: k26247 
o|contracted procedure: k26254 
o|contracted procedure: k26342 
o|contracted procedure: k26502 
o|contracted procedure: k26349 
o|contracted procedure: k26363 
o|contracted procedure: k26372 
o|contracted procedure: k26380 
o|contracted procedure: k26384 
o|contracted procedure: k26390 
o|contracted procedure: k26399 
o|contracted procedure: k26405 
o|contracted procedure: k26415 
o|contracted procedure: k26431 
o|contracted procedure: k26437 
o|contracted procedure: k26444 
o|contracted procedure: k26450 
o|contracted procedure: k26460 
o|contracted procedure: k26466 
o|contracted procedure: k26472 
o|contracted procedure: k26481 
o|contracted procedure: k26499 
o|contracted procedure: k26487 
o|contracted procedure: k26495 
o|contracted procedure: k26529 
o|contracted procedure: k26513 
o|contracted procedure: k26526 
o|contracted procedure: k26519 
o|contracted procedure: k26554 
o|contracted procedure: k26538 
o|contracted procedure: k26551 
o|contracted procedure: k26544 
o|contracted procedure: k26572 
o|contracted procedure: k26563 
o|contracted procedure: k26587 
o|contracted procedure: k26601 
o|contracted procedure: k26597 
o|contracted procedure: k26590 
o|inlining procedure: k26584 
o|contracted procedure: k26607 
o|contracted procedure: k26618 
o|contracted procedure: k26614 
o|inlining procedure: k26584 
o|contracted procedure: k26622 
o|contracted procedure: k26625 
o|contracted procedure: k26635 
o|contracted procedure: k26628 
o|contracted procedure: k26653 
o|contracted procedure: k26669 
o|contracted procedure: k26656 
o|contracted procedure: k26662 
o|contracted procedure: k26684 
o|contracted procedure: k26675 
o|contracted procedure: k26702 
o|contracted procedure: k26693 
o|contracted procedure: k26759 
o|contracted procedure: k26782 
o|contracted procedure: k26795 
o|contracted procedure: k26851 
o|contracted procedure: k26858 
o|contracted procedure: k26880 
o|contracted procedure: k26894 
o|contracted procedure: k26890 
o|contracted procedure: k26922 
o|contracted procedure: k26906 
o|contracted procedure: k26912 
o|contracted procedure: k26937 
o|contracted procedure: k26965 
o|contracted procedure: k26946 
o|contracted procedure: k26989 
o|contracted procedure: k26970 
o|contracted procedure: k26997 
o|contracted procedure: k27000 
o|contracted procedure: k27012 
o|contracted procedure: k27015 
o|contracted procedure: k27025 
o|contracted procedure: k27042 
o|contracted procedure: k27028 
o|contracted procedure: k27067 
o|contracted procedure: k27083 
o|contracted procedure: k27108 
o|contracted procedure: k27133 
o|contracted procedure: k27136 
o|contracted procedure: k27146 
o|contracted procedure: k27150 
o|contracted procedure: k27200 
o|contracted procedure: k27209 
o|contracted procedure: k27218 
o|contracted procedure: k27230 
o|contracted procedure: k27291 
o|contracted procedure: k27242 
o|contracted procedure: k27252 
o|contracted procedure: k27265 
o|contracted procedure: k27274 
o|contracted procedure: k27318 
o|contracted procedure: k27328 
o|contracted procedure: k27339 
o|contracted procedure: k27345 
o|contracted procedure: k27356 
o|contracted procedure: k27362 
o|contracted procedure: k27373 
o|contracted procedure: k27379 
o|contracted procedure: k27390 
o|contracted procedure: k27396 
o|contracted procedure: k27407 
o|contracted procedure: k27417 
o|contracted procedure: k27428 
o|contracted procedure: k27438 
o|contracted procedure: k27449 
o|contracted procedure: k27459 
o|contracted procedure: k27473 
o|contracted procedure: k27483 
o|contracted procedure: k27497 
o|contracted procedure: k27507 
o|contracted procedure: k27521 
o|contracted procedure: k27531 
o|contracted procedure: k27545 
o|contracted procedure: k27551 
o|contracted procedure: k27566 
o|contracted procedure: k27569 
o|contracted procedure: k27582 
o|contracted procedure: k27597 
o|contracted procedure: k27613 
o|contracted procedure: k27672 
o|contracted procedure: k27692 
o|contracted procedure: k27688 
o|contracted procedure: k27680 
o|contracted procedure: k27676 
o|contracted procedure: k27706 
o|contracted procedure: k27709 
o|contracted procedure: k27715 
o|contracted procedure: k27721 
o|contracted procedure: k27727 
o|contracted procedure: k27744 
o|contracted procedure: k27750 
o|contracted procedure: k27790 
o|contracted procedure: k27804 
o|contracted procedure: k27813 
o|contracted procedure: k27822 
o|contracted procedure: k27855 
o|contracted procedure: k27896 
o|contracted procedure: k27905 
o|contracted procedure: k27917 
o|contracted procedure: k27929 
o|contracted procedure: k27938 
o|contracted procedure: k27956 
o|contracted procedure: k27974 
o|contracted procedure: k27977 
o|contracted procedure: k27987 
o|contracted procedure: k28008 
o|contracted procedure: k28019 
o|contracted procedure: k28025 
o|contracted procedure: k28031 
o|contracted procedure: k28040 
o|contracted procedure: k28043 
o|contracted procedure: k28077 
o|contracted procedure: k28152 
o|contracted procedure: k28144 
o|contracted procedure: k28119 
o|contracted procedure: k28161 
o|contracted procedure: k28173 
o|contracted procedure: k28182 
o|contracted procedure: k28212 
o|contracted procedure: k28224 
o|contracted procedure: k28233 
o|contracted procedure: k28289 
o|contracted procedure: k28301 
o|inlining procedure: k28318 
o|inlining procedure: k28318 
o|contracted procedure: k28325 
o|contracted procedure: k28350 
o|contracted procedure: k28370 
o|contracted procedure: k28377 
o|contracted procedure: k28424 
o|contracted procedure: k28444 
o|contracted procedure: k28479 
o|contracted procedure: k28492 
o|contracted procedure: k28498 
o|contracted procedure: k28512 
o|contracted procedure: k28508 
o|contracted procedure: k28518 
o|contracted procedure: k28530 
o|contracted procedure: k28554 
o|contracted procedure: k28564 
o|contracted procedure: k28574 
o|contracted procedure: k28581 
o|contracted procedure: k28587 
o|contracted procedure: k28596 
o|contracted procedure: k28606 
o|inlining procedure: k28613 
o|inlining procedure: k28613 
o|contracted procedure: k28628 
o|contracted procedure: k28637 
o|contracted procedure: k28643 
o|contracted procedure: k28662 
o|contracted procedure: k28668 
o|contracted procedure: k28685 
o|contracted procedure: k28688 
o|contracted procedure: k28710 
o|contracted procedure: k28835 
o|contracted procedure: k28716 
o|contracted procedure: k28831 
o|contracted procedure: k28823 
o|contracted procedure: k28827 
o|contracted procedure: k28819 
o|contracted procedure: k28719 
o|contracted procedure: k28722 
o|contracted procedure: k28815 
o|contracted procedure: k28811 
o|contracted procedure: k28807 
o|contracted procedure: k28803 
o|contracted procedure: k28788 
o|contracted procedure: k28796 
o|contracted procedure: k28792 
o|contracted procedure: k28728 
o|contracted procedure: k28740 
o|contracted procedure: k28773 
o|contracted procedure: k28781 
o|contracted procedure: k28777 
o|contracted procedure: k28744 
o|contracted procedure: k28750 
o|contracted procedure: k28758 
o|contracted procedure: k28766 
o|contracted procedure: k28762 
o|contracted procedure: k28754 
o|contracted procedure: k28841 
o|contracted procedure: k28864 
o|contracted procedure: k28885 
o|contracted procedure: k28891 
o|contracted procedure: k28908 
o|contracted procedure: k28897 
o|contracted procedure: k28904 
o|contracted procedure: k28921 
o|contracted procedure: k28931 
o|contracted procedure: k28928 
o|contracted procedure: k28944 
o|contracted procedure: k28980 
o|contracted procedure: k29013 
o|contracted procedure: k29879 
o|contracted procedure: k29872 
o|contracted procedure: k29016 
o|contracted procedure: k29022 
o|contracted procedure: k29031 
o|contracted procedure: k29043 
o|contracted procedure: k29055 
o|contracted procedure: k29067 
o|contracted procedure: k29079 
o|contracted procedure: k29088 
o|contracted procedure: k29107 
o|contracted procedure: k29119 
o|contracted procedure: k29128 
o|contracted procedure: k29137 
o|contracted procedure: k29143 
o|contracted procedure: k29152 
o|contracted procedure: k29171 
o|contracted procedure: k29177 
o|contracted procedure: k29203 
o|contracted procedure: k29215 
o|contracted procedure: k29230 
o|contracted procedure: k29233 
o|contracted procedure: k29248 
o|contracted procedure: k29251 
o|contracted procedure: k29260 
o|contracted procedure: k29267 
o|contracted procedure: k29270 
o|contracted procedure: k29276 
o|contracted procedure: k29285 
o|contracted procedure: k29297 
o|contracted procedure: k29306 
o|contracted procedure: k29312 
o|contracted procedure: k29324 
o|contracted procedure: k29336 
o|contracted procedure: k29348 
o|contracted procedure: k29360 
o|contracted procedure: k29372 
o|contracted procedure: k29384 
o|contracted procedure: k29393 
o|contracted procedure: k29405 
o|contracted procedure: k29420 
o|contracted procedure: k29432 
o|contracted procedure: k29447 
o|contracted procedure: k29459 
o|contracted procedure: k29471 
o|contracted procedure: k29520 
o|contracted procedure: k29509 
o|contracted procedure: k29516 
o|contracted procedure: k29531 
o|contracted procedure: k29551 
o|contracted procedure: k29547 
o|contracted procedure: k29561 
o|contracted procedure: k29601 
o|contracted procedure: k29613 
o|contracted procedure: k29622 
o|contracted procedure: k29632 
o|contracted procedure: k29638 
o|contracted procedure: k29651 
o|contracted procedure: k29654 
o|contracted procedure: k29677 
o|contracted procedure: k29724 
o|contracted procedure: k29733 
o|contracted procedure: k29745 
o|contracted procedure: k29757 
o|contracted procedure: k29766 
o|contracted procedure: k29769 
o|contracted procedure: k29778 
o|contracted procedure: k29784 
o|contracted procedure: k29793 
o|contracted procedure: k29802 
o|contracted procedure: k29811 
o|contracted procedure: k29820 
o|contracted procedure: k29823 
o|contracted procedure: k29893 
o|contracted procedure: k29883 
o|contracted procedure: k29890 
o|contracted procedure: k29905 
o|contracted procedure: k29938 
o|contracted procedure: k30026 
o|contracted procedure: k29950 
o|contracted procedure: k29959 
o|contracted procedure: k29962 
o|contracted procedure: k29968 
o|contracted procedure: k29971 
o|contracted procedure: k29977 
o|contracted procedure: k29986 
o|contracted procedure: k29989 
o|contracted procedure: k30000 
o|contracted procedure: k30032 
o|contracted procedure: k30056 
o|contracted procedure: k30065 
o|contracted procedure: k30090 
o|contracted procedure: k30097 
o|contracted procedure: k30106 
o|contracted procedure: k30113 
o|contracted procedure: k30119 
o|contracted procedure: k30125 
o|contracted procedure: k30132 
o|contracted procedure: k30187 
o|contracted procedure: k30179 
o|contracted procedure: k30183 
o|contracted procedure: k30145 
o|contracted procedure: k30151 
o|contracted procedure: k30157 
o|contracted procedure: k30164 
o|contracted procedure: k30171 
o|contracted procedure: k30196 
o|contracted procedure: k30202 
o|contracted procedure: k30219 
o|contracted procedure: k30209 
o|contracted procedure: k30228 
o|contracted procedure: k30249 
o|contracted procedure: k30237 
o|contracted procedure: k30240 
o|contracted procedure: k30264 
o|contracted procedure: k30258 
o|contracted procedure: k30282 
o|contracted procedure: k30273 
o|contracted procedure: k30300 
o|contracted procedure: k30291 
o|contracted procedure: k30319 
o|contracted procedure: k30331 
o|contracted procedure: k30341 
o|contracted procedure: k30345 
o|contracted procedure: k30370 
o|contracted procedure: k30382 
o|contracted procedure: k30392 
o|contracted procedure: k30396 
o|contracted procedure: k30444 
o|contracted procedure: k30450 
o|contracted procedure: k30459 
o|contracted procedure: k30462 
o|contracted procedure: k30478 
o|propagated global variable: r30479 ##sys#undefined-value 
o|contracted procedure: k30481 
o|contracted procedure: k30500 
o|contracted procedure: k30518 
o|contracted procedure: k30503 
o|contracted procedure: k30514 
o|contracted procedure: k30510 
o|contracted procedure: k30534 
o|contracted procedure: k30527 
o|contracted procedure: k30546 
o|contracted procedure: k30559 
o|propagated global variable: r30560 ##sys#undefined-value 
o|contracted procedure: k30563 
o|contracted procedure: k30569 
o|contracted procedure: k30572 
o|contracted procedure: k30590 
o|contracted procedure: k30602 
o|contracted procedure: k30614 
o|contracted procedure: k30629 
o|contracted procedure: k30635 
o|contracted procedure: k30643 
o|contracted procedure: k30649 
o|contracted procedure: k30662 
o|contracted procedure: k30679 
o|contracted procedure: k30682 
o|contracted procedure: k30685 
o|contracted procedure: k30699 
o|contracted procedure: k30705 
o|contracted procedure: k30711 
o|contracted procedure: k30719 
o|contracted procedure: k30722 
o|contracted procedure: k30734 
o|contracted procedure: k30744 
o|contracted procedure: k30753 
o|contracted procedure: k30756 
o|contracted procedure: k30762 
o|contracted procedure: k30768 
o|contracted procedure: k30771 
o|contracted procedure: k30774 
o|contracted procedure: k30784 
o|contracted procedure: k30793 
o|contracted procedure: k30799 
o|contracted procedure: k30806 
o|contracted procedure: k30815 
o|contracted procedure: k30833 
o|contracted procedure: k30843 
o|contracted procedure: k30849 
o|contracted procedure: k30856 
o|contracted procedure: k30840 
o|contracted procedure: k30868 
o|contracted procedure: k30880 
o|contracted procedure: k30907 
o|contracted procedure: k30886 
o|contracted procedure: k30896 
o|contracted procedure: k30903 
o|contracted procedure: k30918 
o|contracted procedure: k30933 
o|contracted procedure: k30942 
o|contracted procedure: k30951 
o|contracted procedure: k30984 
o|contracted procedure: k31008 
o|contracted procedure: k31011 
o|contracted procedure: k31052 
o|contracted procedure: k31104 
o|contracted procedure: k31067 
o|contracted procedure: k31073 
o|contracted procedure: k31085 
o|contracted procedure: k31116 
o|contracted procedure: k31149 
o|contracted procedure: k31158 
o|contracted procedure: k31319 
o|contracted procedure: k31164 
o|contracted procedure: k31174 
o|contracted procedure: k31178 
o|contracted procedure: k31181 
o|contracted procedure: k31190 
o|contracted procedure: k31199 
o|contracted procedure: k31202 
o|contracted procedure: k31211 
o|contracted procedure: k31220 
o|contracted procedure: k31229 
o|contracted procedure: k31238 
o|contracted procedure: k31247 
o|contracted procedure: k31256 
o|contracted procedure: k31265 
o|contracted procedure: k31287 
o|contracted procedure: k31338 
o|contracted procedure: k31347 
o|contracted procedure: k31350 
o|contracted procedure: k31369 
o|contracted procedure: k31359 
o|contracted procedure: k31382 
o|contracted procedure: k31386 
o|contracted procedure: k31395 
o|contracted procedure: k31452 
o|contracted procedure: k31465 
o|contracted procedure: k31468 
o|contracted procedure: k31477 
o|contracted procedure: k31493 
o|contracted procedure: k31499 
o|contracted procedure: k31515 
o|contracted procedure: k31524 
o|contracted procedure: k31540 
o|contracted procedure: k31544 
o|contracted procedure: k31548 
o|contracted procedure: k31552 
o|contracted procedure: k31579 
o|contracted procedure: k31594 
o|contracted procedure: k31597 
o|contracted procedure: k31608 
o|contracted procedure: k31604 
o|contracted procedure: k31619 
o|contracted procedure: k31622 
o|contracted procedure: k31762 
o|contracted procedure: k31625 
o|contracted procedure: k31661 
o|contracted procedure: k31684 
o|contracted procedure: k31664 
o|contracted procedure: k31680 
o|contracted procedure: k31699 
o|contracted procedure: k31729 
o|contracted procedure: k31739 
o|contracted procedure: k31745 
o|contracted procedure: k31755 
o|contracted procedure: k31856 
o|contracted procedure: k31859 
o|contracted procedure: k31862 
o|contracted procedure: k31865 
o|contracted procedure: k31871 
o|contracted procedure: k31893 
o|contracted procedure: k31877 
o|contracted procedure: k31883 
o|contracted procedure: k31886 
o|contracted procedure: k31896 
o|contracted procedure: k41734 
o|contracted procedure: k41737 
o|contracted procedure: k41740 
o|contracted procedure: k41746 
o|contracted procedure: k41749 
o|contracted procedure: k41756 
o|contracted procedure: k41759 
o|contracted procedure: k41762 
o|contracted procedure: k41768 
o|contracted procedure: k41777 
o|contracted procedure: k41780 
o|contracted procedure: k41790 
o|contracted procedure: k41796 
o|contracted procedure: k41799 
o|contracted procedure: k41806 
o|contracted procedure: k41818 
o|contracted procedure: k41821 
o|contracted procedure: k41848 
o|contracted procedure: k41824 
o|contracted procedure: k41834 
o|contracted procedure: k41830 
o|contracted procedure: k41837 
o|contracted procedure: k41840 
o|contracted procedure: k41854 
o|contracted procedure: k41857 
o|contracted procedure: k41860 
o|contracted procedure: k41863 
o|contracted procedure: k41869 
o|contracted procedure: k41891 
o|contracted procedure: k41882 
o|contracted procedure: k41900 
o|contracted procedure: k41914 
o|contracted procedure: k41910 
o|contracted procedure: k41903 
o|contracted procedure: k41925 
o|contracted procedure: k41929 
o|contracted procedure: k41921 
o|contracted procedure: k41938 
o|contracted procedure: k41944 
o|contracted procedure: k41950 
o|contracted procedure: k41953 
o|contracted procedure: k41959 
o|contracted procedure: k31903 
o|contracted procedure: k32177 
o|contracted procedure: k31909 
o|contracted procedure: k31918 
o|contracted procedure: k31929 
o|contracted procedure: k31936 
o|contracted procedure: k31946 
o|contracted procedure: k31939 
o|contracted procedure: k31956 
o|contracted procedure: k31966 
o|contracted procedure: k31959 
o|contracted procedure: k31990 
o|contracted procedure: k32024 
o|contracted procedure: k32034 
o|contracted procedure: k32054 
o|contracted procedure: k32088 
o|contracted procedure: k32095 
o|contracted procedure: k32122 
o|contracted procedure: k32132 
o|contracted procedure: k32143 
o|contracted procedure: k32146 
o|contracted procedure: k32153 
o|contracted procedure: k32156 
o|contracted procedure: k32174 
o|contracted procedure: k32162 
o|contracted procedure: k32170 
o|contracted procedure: k32194 
o|contracted procedure: k32209 
o|contracted procedure: k32219 
o|contracted procedure: k32223 
o|contracted procedure: k32248 
o|contracted procedure: k32258 
o|inlining procedure: k32251 
o|inlining procedure: k32251 
o|contracted procedure: k32427 
o|contracted procedure: k32282 
o|contracted procedure: k32421 
o|contracted procedure: k32285 
o|contracted procedure: k32415 
o|contracted procedure: k32288 
o|contracted procedure: k32409 
o|contracted procedure: k32291 
o|contracted procedure: k32399 
o|contracted procedure: k32297 
o|contracted procedure: k32300 
o|contracted procedure: k32312 
o|contracted procedure: k32393 
o|contracted procedure: k32315 
o|contracted procedure: k32321 
o|contracted procedure: k32373 
o|contracted procedure: k32343 
o|contracted procedure: k32362 
o|contracted procedure: k32350 
o|contracted procedure: k32358 
o|contracted procedure: k32354 
o|contracted procedure: k32331 
o|contracted procedure: k32339 
o|contracted procedure: k32369 
o|contracted procedure: k32380 
o|contracted procedure: k32383 
o|contracted procedure: k32406 
o|contracted procedure: k32439 
o|contracted procedure: k32447 
o|contracted procedure: k32450 
o|contracted procedure: k32453 
o|contracted procedure: k32493 
o|contracted procedure: k32506 
o|contracted procedure: k32521 
o|contracted procedure: k32531 
o|contracted procedure: k32535 
o|contracted procedure: k32623 
o|contracted procedure: k32541 
o|contracted procedure: k32617 
o|contracted procedure: k32544 
o|contracted procedure: k32611 
o|contracted procedure: k32547 
o|contracted procedure: k32605 
o|contracted procedure: k32550 
o|contracted procedure: k32599 
o|contracted procedure: k32553 
o|contracted procedure: k32593 
o|contracted procedure: k32556 
o|contracted procedure: k32587 
o|contracted procedure: k32559 
o|contracted procedure: k32581 
o|contracted procedure: k32562 
o|contracted procedure: k32568 
o|contracted procedure: k32571 
o|contracted procedure: k32641 
o|contracted procedure: k32658 
o|contracted procedure: k32670 
o|contracted procedure: k32696 
o|contracted procedure: k32689 
o|contracted procedure: k32706 
o|contracted procedure: k32714 
o|contracted procedure: k32729 
o|contracted procedure: k32739 
o|contracted procedure: k32743 
o|contracted procedure: k32773 
o|contracted procedure: k32780 
o|contracted procedure: k32786 
o|contracted procedure: k32789 
o|contracted procedure: k32827 
o|contracted procedure: k32837 
o|contracted procedure: k32841 
o|contracted procedure: k32844 
o|contracted procedure: k32847 
o|contracted procedure: k32865 
o|contracted procedure: k32874 
o|contracted procedure: k32877 
o|contracted procedure: k32880 
o|contracted procedure: k32895 
o|contracted procedure: k32905 
o|contracted procedure: k32898 
o|inlining procedure: k32887 
o|inlining procedure: k32887 
o|contracted procedure: k32912 
o|contracted procedure: k32918 
o|contracted procedure: k32924 
o|contracted procedure: k32930 
o|contracted procedure: k32936 
o|contracted procedure: k32942 
o|contracted procedure: k32948 
o|contracted procedure: k32954 
o|contracted procedure: k32960 
o|contracted procedure: k32966 
o|contracted procedure: k32972 
o|contracted procedure: k32978 
o|contracted procedure: k32984 
o|contracted procedure: k32990 
o|contracted procedure: k33027 
o|contracted procedure: k33030 
o|contracted procedure: k33046 
o|contracted procedure: k33039 
o|contracted procedure: k33067 
o|contracted procedure: k33090 
o|contracted procedure: k33086 
o|contracted procedure: k33118 
o|contracted procedure: k33114 
o|contracted procedure: k33121 
o|contracted procedure: k33125 
o|contracted procedure: k33131 
o|contracted procedure: k33134 
o|contracted procedure: k33137 
o|contracted procedure: k33140 
o|contracted procedure: k33143 
o|contracted procedure: k33164 
o|contracted procedure: k33170 
o|contracted procedure: k33173 
o|contracted procedure: k33179 
o|contracted procedure: k33193 
o|contracted procedure: k33190 
o|contracted procedure: k33202 
o|contracted procedure: k33261 
o|contracted procedure: k33214 
o|contracted procedure: k33257 
o|contracted procedure: k33229 
o|contracted procedure: k33253 
o|contracted procedure: k33249 
o|contracted procedure: k33245 
o|contracted procedure: k33284 
o|contracted procedure: k33287 
o|contracted procedure: k33313 
o|contracted procedure: k33319 
o|contracted procedure: k33326 
o|contracted procedure: k33332 
o|contracted procedure: k33351 
o|contracted procedure: k33404 
o|contracted procedure: k33357 
o|contracted procedure: k33389 
o|contracted procedure: k33370 
o|contracted procedure: k33378 
o|contracted procedure: k33374 
o|contracted procedure: k33400 
o|contracted procedure: k33396 
o|contracted procedure: k33414 
o|contracted procedure: k33424 
o|contracted procedure: k33447 
o|contracted procedure: k33464 
o|contracted procedure: k33486 
o|contracted procedure: k33482 
o|contracted procedure: k33467 
o|contracted procedure: k33470 
o|contracted procedure: k33478 
o|contracted procedure: k33493 
o|contracted procedure: k33510 
o|contracted procedure: k33532 
o|contracted procedure: k33528 
o|contracted procedure: k33513 
o|contracted procedure: k33516 
o|contracted procedure: k33524 
o|contracted procedure: k33544 
o|contracted procedure: k33558 
o|contracted procedure: k33547 
o|contracted procedure: k33554 
o|contracted procedure: k33564 
o|contracted procedure: k33574 
o|contracted procedure: k33586 
o|contracted procedure: k33608 
o|contracted procedure: k33604 
o|contracted procedure: k33589 
o|contracted procedure: k33592 
o|contracted procedure: k33600 
o|contracted procedure: k33615 
o|contracted procedure: k33638 
o|contracted procedure: k33641 
o|contracted procedure: k33644 
o|contracted procedure: k33652 
o|contracted procedure: k33660 
o|contracted procedure: k33624 
o|contracted procedure: k33678 
o|contracted procedure: k33691 
o|contracted procedure: k33700 
o|contracted procedure: k33738 
o|contracted procedure: k33706 
o|contracted procedure: k33720 
o|contracted procedure: k33716 
o|contracted procedure: k33734 
o|contracted procedure: k33741 
o|contracted procedure: k33744 
o|contracted procedure: k33756 
o|contracted procedure: k33759 
o|contracted procedure: k33762 
o|contracted procedure: k33770 
o|contracted procedure: k33778 
o|contracted procedure: k33808 
o|contracted procedure: k33804 
o|contracted procedure: k33814 
o|contracted procedure: k33817 
o|contracted procedure: k33822 
o|contracted procedure: k33854 
o|contracted procedure: k33828 
o|contracted procedure: k33850 
o|contracted procedure: k33831 
o|contracted procedure: k33892 
o|contracted procedure: k33904 
o|contracted procedure: k33914 
o|contracted procedure: k33918 
o|contracted procedure: k33949 
o|contracted procedure: k33974 
o|contracted procedure: k33958 
o|contracted procedure: k33991 
o|contracted procedure: k34011 
o|contracted procedure: k34017 
o|contracted procedure: k34030 
o|contracted procedure: k34036 
o|contracted procedure: k34055 
o|contracted procedure: k34069 
o|contracted procedure: k34058 
o|contracted procedure: k34065 
o|contracted procedure: k34085 
o|contracted procedure: k34091 
o|contracted procedure: k34098 
o|contracted procedure: k34104 
o|contracted procedure: k34154 
o|contracted procedure: k34114 
o|contracted procedure: k34166 
o|contracted procedure: k34169 
o|contracted procedure: k34172 
o|contracted procedure: k34175 
o|contracted procedure: k34186 
o|contracted procedure: k34203 
o|contracted procedure: k34206 
o|contracted procedure: k34209 
o|contracted procedure: k34212 
o|contracted procedure: k34223 
o|contracted procedure: k34240 
o|contracted procedure: k34249 
o|contracted procedure: k34258 
o|contracted procedure: k34267 
o|contracted procedure: k34276 
o|contracted procedure: k34285 
o|contracted procedure: k34294 
o|contracted procedure: k34303 
o|contracted procedure: k34312 
o|contracted procedure: k34321 
o|contracted procedure: k34330 
o|contracted procedure: k34339 
o|contracted procedure: k34348 
o|contracted procedure: k34357 
o|contracted procedure: k34366 
o|contracted procedure: k34375 
o|contracted procedure: k34384 
o|contracted procedure: k34393 
o|contracted procedure: k34402 
o|contracted procedure: k34411 
o|contracted procedure: k34420 
o|contracted procedure: k34429 
o|contracted procedure: k34438 
o|contracted procedure: k34447 
o|contracted procedure: k34456 
o|contracted procedure: k34465 
o|contracted procedure: k34474 
o|contracted procedure: k34483 
o|contracted procedure: k34492 
o|contracted procedure: k34501 
o|contracted procedure: k34510 
o|contracted procedure: k34519 
o|contracted procedure: k34528 
o|contracted procedure: k34537 
o|contracted procedure: k34546 
o|contracted procedure: k34555 
o|contracted procedure: k34564 
o|contracted procedure: k34573 
o|contracted procedure: k34582 
o|contracted procedure: k34591 
o|contracted procedure: k34600 
o|contracted procedure: k34609 
o|contracted procedure: k34618 
o|contracted procedure: k34627 
o|contracted procedure: k34636 
o|contracted procedure: k34645 
o|contracted procedure: k34654 
o|contracted procedure: k34663 
o|contracted procedure: k34672 
o|contracted procedure: k34681 
o|contracted procedure: k34690 
o|contracted procedure: k34699 
o|contracted procedure: k34708 
o|contracted procedure: k34717 
o|contracted procedure: k34720 
o|contracted procedure: k34723 
o|contracted procedure: k34726 
o|contracted procedure: k34737 
o|contracted procedure: k34754 
o|contracted procedure: k34763 
o|contracted procedure: k34909 
o|contracted procedure: k34931 
o|contracted procedure: k34916 
o|contracted procedure: k34923 
o|contracted procedure: k34945 
o|contracted procedure: k34953 
o|contracted procedure: k34967 
o|contracted procedure: k34973 
o|contracted procedure: k34979 
o|contracted procedure: k35008 
o|contracted procedure: k35014 
o|contracted procedure: k35128 
o|contracted procedure: k35131 
o|contracted procedure: k35166 
o|contracted procedure: k35197 
o|contracted procedure: k35172 
o|contracted procedure: k35175 
o|contracted procedure: k35194 
o|contracted procedure: k35190 
o|contracted procedure: k35181 
o|contracted procedure: k35230 
o|contracted procedure: k35223 
o|contracted procedure: k35243 
o|contracted procedure: k35300 
o|contracted procedure: k35317 
o|contracted procedure: k35279 
o|contracted procedure: k35283 
o|contracted procedure: k35344 
o|contracted procedure: k35364 
o|contracted procedure: k35381 
o|contracted procedure: k35331 
o|contracted procedure: k35335 
o|contracted procedure: k35444 
o|contracted procedure: k35458 
o|contracted procedure: k35462 
o|contracted procedure: k35470 
o|contracted procedure: k35487 
o|contracted procedure: k35502 
o|contracted procedure: k35547 
o|contracted procedure: k35550 
o|contracted procedure: k35553 
o|contracted procedure: k35574 
o|contracted procedure: k35556 
o|contracted procedure: k35559 
o|contracted procedure: k35562 
o|contracted procedure: k35568 
o|contracted procedure: k35586 
o|contracted procedure: k35592 
o|contracted procedure: k35595 
o|contracted procedure: k35623 
o|contracted procedure: k35601 
o|contracted procedure: k35604 
o|contracted procedure: k35607 
o|contracted procedure: k35610 
o|contracted procedure: k35616 
o|contracted procedure: k35613 
o|contracted procedure: k35629 
o|contracted procedure: k35641 
o|contracted procedure: k35647 
o|contracted procedure: k35650 
o|contracted procedure: k35659 
o|contracted procedure: k35662 
o|contracted procedure: k35665 
o|contracted procedure: k35671 
o|contracted procedure: k35668 
o|contracted procedure: k35686 
o|contracted procedure: k35725 
o|contracted procedure: k35706 
o|contracted procedure: k35715 
o|contracted procedure: k35734 
o|contracted procedure: k35791 
o|contracted procedure: k35794 
o|contracted procedure: k35800 
o|contracted procedure: k35843 
o|contracted procedure: k35859 
o|contracted procedure: k35852 
o|contracted procedure: k36289 
o|contracted procedure: k35870 
o|contracted procedure: k35885 
o|contracted procedure: k35988 
o|contracted procedure: k35897 
o|contracted procedure: k35916 
o|contracted procedure: k35919 
o|contracted procedure: k35928 
o|contracted procedure: k3576846228 
o|contracted procedure: k35957 
o|contracted procedure: k35985 
o|contracted procedure: k35967 
o|contracted procedure: k35980 
o|contracted procedure: k35997 
o|contracted procedure: k36275 
o|contracted procedure: k36019 
o|contracted procedure: k36037 
o|contracted procedure: k36040 
o|contracted procedure: k36049 
o|contracted procedure: k36052 
o|contracted procedure: k36066 
o|contracted procedure: k36075 
o|contracted procedure: k36130 
o|contracted procedure: k36088 
o|contracted procedure: k36091 
o|contracted procedure: k36100 
o|contracted procedure: k36117 
o|contracted procedure: k36111 
o|contracted procedure: k36133 
o|contracted procedure: k3576846241 
o|contracted procedure: k36151 
o|contracted procedure: k36147 
o|contracted procedure: k36159 
o|contracted procedure: k36168 
o|contracted procedure: k36184 
o|contracted procedure: k36199 
o|contracted procedure: k36191 
o|contracted procedure: k36218 
o|contracted procedure: k36210 
o|contracted procedure: k36244 
o|contracted procedure: k36272 
o|contracted procedure: k36254 
o|contracted procedure: k36267 
o|contracted procedure: k36295 
o|contracted procedure: k36304 
o|contracted procedure: k36364 
o|contracted procedure: k36375 
o|contracted procedure: k36384 
o|contracted procedure: k36417 
o|contracted procedure: k36424 
o|contracted procedure: k36432 
o|contracted procedure: k36444 
o|contracted procedure: k36453 
o|contracted procedure: k36358 
o|contracted procedure: k36486 
o|contracted procedure: k36495 
o|contracted procedure: k36502 
o|contracted procedure: k36506 
o|contracted procedure: k36551 
o|contracted procedure: k36536 
o|contracted procedure: k36543 
o|contracted procedure: k36547 
o|contracted procedure: k36558 
o|contracted procedure: k36571 
o|contracted procedure: k36578 
o|contracted procedure: k36609 
o|contracted procedure: k36605 
o|contracted procedure: k36629 
o|contracted procedure: k36638 
o|contracted procedure: k36645 
o|contracted procedure: k36687 
o|contracted procedure: k36675 
o|contracted procedure: k36700 
o|contracted procedure: k36696 
o|contracted procedure: k36709 
o|contracted procedure: k36719 
o|contracted procedure: k36723 
o|contracted procedure: k36735 
o|contracted procedure: k36747 
o|contracted procedure: k36757 
o|contracted procedure: k36761 
o|contracted procedure: k36767 
o|contracted procedure: k36779 
o|contracted procedure: k36788 
o|contracted procedure: k36800 
o|contracted procedure: k36804 
o|contracted procedure: k36816 
o|contracted procedure: k36826 
o|contracted procedure: k36899 
o|contracted procedure: k36829 
o|contracted procedure: k36842 
o|contracted procedure: k36883 
o|contracted procedure: k36872 
o|contracted procedure: k36879 
o|contracted procedure: k36929 
o|contracted procedure: k36967 
o|contracted procedure: k36957 
o|contracted procedure: k36985 
o|contracted procedure: k37019 
o|contracted procedure: k37028 
o|contracted procedure: k37031 
o|contracted procedure: k37038 
o|contracted procedure: k37034 
o|contracted procedure: k37044 
o|contracted procedure: k37051 
o|contracted procedure: k37047 
o|contracted procedure: k37057 
o|contracted procedure: k37060 
o|contracted procedure: k37066 
o|contracted procedure: k37069 
o|contracted procedure: k37076 
o|contracted procedure: k37072 
o|contracted procedure: k37082 
o|contracted procedure: k37085 
o|contracted procedure: k37092 
o|contracted procedure: k37088 
o|contracted procedure: k37098 
o|contracted procedure: k37101 
o|contracted procedure: k37108 
o|contracted procedure: k37104 
o|contracted procedure: k37114 
o|contracted procedure: k37117 
o|contracted procedure: k37124 
o|contracted procedure: k37120 
o|contracted procedure: k37130 
o|contracted procedure: k37133 
o|contracted procedure: k37140 
o|contracted procedure: k37136 
o|contracted procedure: k37146 
o|contracted procedure: k37149 
o|contracted procedure: k37156 
o|contracted procedure: k37152 
o|contracted procedure: k37162 
o|contracted procedure: k37165 
o|contracted procedure: k37172 
o|contracted procedure: k37168 
o|contracted procedure: k37178 
o|contracted procedure: k37181 
o|contracted procedure: k37188 
o|contracted procedure: k37184 
o|contracted procedure: k37194 
o|contracted procedure: k37197 
o|contracted procedure: k37204 
o|contracted procedure: k37200 
o|contracted procedure: k37210 
o|contracted procedure: k37213 
o|contracted procedure: k37220 
o|contracted procedure: k37216 
o|contracted procedure: k37235 
o|contracted procedure: k37231 
o|contracted procedure: k37223 
o|contracted procedure: k37227 
o|contracted procedure: k37261 
o|contracted procedure: k37264 
o|contracted procedure: k37271 
o|contracted procedure: k37267 
o|contracted procedure: k37283 
o|contracted procedure: k37295 
o|contracted procedure: k37289 
o|contracted procedure: k37292 
o|contracted procedure: k37310 
o|contracted procedure: k37323 
o|contracted procedure: k37319 
o|contracted procedure: k37327 
o|contracted procedure: k37371 
o|contracted procedure: k37336 
o|contracted procedure: k37339 
o|contracted procedure: k37342 
o|contracted procedure: k37367 
o|contracted procedure: k37354 
o|contracted procedure: k37357 
o|contracted procedure: k37381 
o|contracted procedure: k37391 
o|contracted procedure: k37400 
o|contracted procedure: k37406 
o|contracted procedure: k37409 
o|contracted procedure: k37412 
o|contracted procedure: k37418 
o|contracted procedure: k37425 
o|contracted procedure: k37431 
o|contracted procedure: k37435 
o|contracted procedure: k37482 
o|contracted procedure: k37495 
o|contracted procedure: k37517 
o|contracted procedure: k37539 
o|contracted procedure: k37573 
o|contracted procedure: k37579 
o|contracted procedure: k37582 
o|contracted procedure: k37588 
o|contracted procedure: k37591 
o|contracted procedure: k37597 
o|contracted procedure: k37612 
o|contracted procedure: k37615 
o|contracted procedure: k37636 
o|contracted procedure: k37654 
o|contracted procedure: k37667 
o|contracted procedure: k37835 
o|contracted procedure: k37709 
o|contracted procedure: k37788 
o|contracted procedure: k37733 
o|contracted procedure: k37807 
o|contracted procedure: k37811 
o|contracted procedure: k37815 
o|contracted procedure: k37860 
o|contracted procedure: k37850 
o|contracted procedure: k37856 
o|contracted procedure: k37867 
o|contracted procedure: k37876 
o|contracted procedure: k37955 
o|contracted procedure: k37882 
o|contracted procedure: k37888 
o|contracted procedure: k37895 
o|contracted procedure: k37904 
o|contracted procedure: k37910 
o|contracted procedure: k37924 
o|contracted procedure: k37940 
o|contracted procedure: k37944 
o|contracted procedure: k37951 
o|contracted procedure: k37991 
o|contracted procedure: k37969 
o|contracted procedure: k37981 
o|contracted procedure: k38031 
o|contracted procedure: k38040 
o|contracted procedure: k41197 
o|contracted procedure: k41193 
o|contracted procedure: k41189 
o|contracted procedure: k38055 
o|contracted procedure: k38063 
o|contracted procedure: k38067 
o|contracted procedure: k38102 
o|contracted procedure: k41121 
o|contracted procedure: k38112 
o|contracted procedure: k38142 
o|contracted procedure: k38156 
o|contracted procedure: k38126 
o|contracted procedure: k3815246276 
o|contracted procedure: k38130 
o|contracted procedure: k3815246280 
o|contracted procedure: k38162 
o|contracted procedure: k38178 
o|contracted procedure: k38181 
o|contracted procedure: k38184 
o|contracted procedure: k38190 
o|contracted procedure: k38209 
o|contracted procedure: k38212 
o|contracted procedure: k38215 
o|contracted procedure: k38223 
o|contracted procedure: k38231 
o|contracted procedure: k38246 
o|contracted procedure: k38255 
o|contracted procedure: k38262 
o|contracted procedure: k38270 
o|contracted procedure: k38331 
o|contracted procedure: k38343 
o|contracted procedure: k38355 
o|contracted procedure: k38358 
o|contracted procedure: k38361 
o|contracted procedure: k38369 
o|contracted procedure: k38377 
o|contracted procedure: k38424 
o|contracted procedure: k38386 
o|contracted procedure: k38404 
o|contracted procedure: k38411 
o|contracted procedure: k38415 
o|contracted procedure: k38418 
o|contracted procedure: k38448 
o|contracted procedure: k38461 
o|contracted procedure: k38465 
o|contracted procedure: k38468 
o|contracted procedure: k38474 
o|contracted procedure: k38486 
o|contracted procedure: k38498 
o|contracted procedure: k38505 
o|contracted procedure: k38615 
o|contracted procedure: k38522 
o|contracted procedure: k38609 
o|contracted procedure: k38525 
o|contracted procedure: k38603 
o|contracted procedure: k38528 
o|contracted procedure: k38597 
o|contracted procedure: k38531 
o|contracted procedure: k38534 
o|contracted procedure: k38539 
o|contracted procedure: k38560 
o|contracted procedure: k38563 
o|contracted procedure: k38570 
o|contracted procedure: k38574 
o|contracted procedure: k38579 
o|contracted procedure: k38725 
o|contracted procedure: k38624 
o|contracted procedure: k38719 
o|contracted procedure: k38627 
o|contracted procedure: k38713 
o|contracted procedure: k38630 
o|contracted procedure: k38707 
o|contracted procedure: k38633 
o|contracted procedure: k38636 
o|contracted procedure: k38641 
o|contracted procedure: k38662 
o|contracted procedure: k38668 
o|contracted procedure: k38671 
o|contracted procedure: k38679 
o|contracted procedure: k38687 
o|contracted procedure: k38683 
o|contracted procedure: k38700 
o|contracted procedure: k38704 
o|contracted procedure: k38783 
o|contracted procedure: k38737 
o|contracted procedure: k38752 
o|contracted procedure: k38761 
o|contracted procedure: k38769 
o|contracted procedure: k38773 
o|contracted procedure: k38777 
o|contracted procedure: k38789 
o|contracted procedure: k38803 
o|contracted procedure: k38809 
o|contracted procedure: k38827 
o|contracted procedure: k38830 
o|contracted procedure: k38837 
o|contracted procedure: k38845 
o|contracted procedure: k38862 
o|contracted procedure: k38865 
o|contracted procedure: k38868 
o|contracted procedure: k38876 
o|contracted procedure: k38884 
o|contracted procedure: k38896 
o|contracted procedure: k38903 
o|contracted procedure: k38911 
o|contracted procedure: k38907 
o|contracted procedure: k38920 
o|contracted procedure: k38942 
o|contracted procedure: k38938 
o|contracted procedure: k38923 
o|contracted procedure: k38926 
o|contracted procedure: k38934 
o|contracted procedure: k38954 
o|contracted procedure: k38968 
o|contracted procedure: k38957 
o|contracted procedure: k38964 
o|contracted procedure: k39009 
o|contracted procedure: k38977 
o|contracted procedure: k38989 
o|contracted procedure: k38999 
o|contracted procedure: k39003 
o|contracted procedure: k39015 
o|contracted procedure: k39029 
o|contracted procedure: k39035 
o|contracted procedure: k39053 
o|contracted procedure: k39063 
o|contracted procedure: k39067 
o|contracted procedure: k39084 
o|contracted procedure: k39087 
o|contracted procedure: k39090 
o|contracted procedure: k39098 
o|contracted procedure: k39106 
o|contracted procedure: k39118 
o|contracted procedure: k39125 
o|contracted procedure: k39133 
o|contracted procedure: k39129 
o|contracted procedure: k39142 
o|contracted procedure: k39164 
o|contracted procedure: k39160 
o|contracted procedure: k39145 
o|contracted procedure: k39148 
o|contracted procedure: k39156 
o|contracted procedure: k39176 
o|contracted procedure: k39190 
o|contracted procedure: k39179 
o|contracted procedure: k39186 
o|contracted procedure: k39199 
o|contracted procedure: k39205 
o|contracted procedure: k39208 
o|contracted procedure: k39223 
o|contracted procedure: k39226 
o|contracted procedure: k39233 
o|contracted procedure: k39241 
o|contracted procedure: k39244 
o|contracted procedure: k39258 
o|contracted procedure: k39264 
o|contracted procedure: k39282 
o|contracted procedure: k39285 
o|contracted procedure: k39292 
o|contracted procedure: k39300 
o|contracted procedure: k39317 
o|contracted procedure: k39320 
o|contracted procedure: k39323 
o|contracted procedure: k39331 
o|contracted procedure: k39339 
o|contracted procedure: k39351 
o|contracted procedure: k39358 
o|contracted procedure: k39366 
o|contracted procedure: k39362 
o|contracted procedure: k39375 
o|contracted procedure: k39397 
o|contracted procedure: k39393 
o|contracted procedure: k39378 
o|contracted procedure: k39381 
o|contracted procedure: k39389 
o|contracted procedure: k39409 
o|contracted procedure: k39423 
o|contracted procedure: k39412 
o|contracted procedure: k39419 
o|contracted procedure: k39432 
o|contracted procedure: k39438 
o|contracted procedure: k39441 
o|contracted procedure: k39453 
o|contracted procedure: k39463 
o|contracted procedure: k39467 
o|contracted procedure: k39470 
o|contracted procedure: k39484 
o|contracted procedure: k39490 
o|contracted procedure: k39508 
o|contracted procedure: k39518 
o|contracted procedure: k39522 
o|contracted procedure: k39539 
o|contracted procedure: k39542 
o|contracted procedure: k39545 
o|contracted procedure: k39553 
o|contracted procedure: k39561 
o|contracted procedure: k39573 
o|contracted procedure: k39580 
o|contracted procedure: k39588 
o|contracted procedure: k39584 
o|contracted procedure: k39597 
o|contracted procedure: k39619 
o|contracted procedure: k39615 
o|contracted procedure: k39600 
o|contracted procedure: k39603 
o|contracted procedure: k39611 
o|contracted procedure: k39631 
o|contracted procedure: k39645 
o|contracted procedure: k39634 
o|contracted procedure: k39641 
o|contracted procedure: k39670 
o|contracted procedure: k39663 
o|contracted procedure: k39680 
o|contracted procedure: k39673 
o|contracted procedure: k39741 
o|contracted procedure: k39710 
o|contracted procedure: k39719 
o|contracted procedure: k39722 
o|contracted procedure: k39728 
o|contracted procedure: k39738 
o|contracted procedure: k39845 
o|contracted procedure: k39750 
o|contracted procedure: k39839 
o|contracted procedure: k39753 
o|contracted procedure: k39833 
o|contracted procedure: k39756 
o|contracted procedure: k39827 
o|contracted procedure: k39759 
o|contracted procedure: k39821 
o|contracted procedure: k39762 
o|contracted procedure: k39815 
o|contracted procedure: k39765 
o|contracted procedure: k39768 
o|contracted procedure: k39783 
o|contracted procedure: k39800 
o|contracted procedure: k39786 
o|contracted procedure: k39796 
o|contracted procedure: k39789 
o|contracted procedure: k39948 
o|contracted procedure: k39854 
o|contracted procedure: k39942 
o|contracted procedure: k39857 
o|contracted procedure: k39936 
o|contracted procedure: k39860 
o|contracted procedure: k39930 
o|contracted procedure: k39863 
o|contracted procedure: k39924 
o|contracted procedure: k39866 
o|contracted procedure: k39918 
o|contracted procedure: k39869 
o|contracted procedure: k39888 
o|contracted procedure: k39891 
o|contracted procedure: k39905 
o|contracted procedure: k39909 
o|contracted procedure: k39957 
o|contracted procedure: k39960 
o|contracted procedure: k40091 
o|contracted procedure: k39969 
o|contracted procedure: k39983 
o|contracted procedure: k39998 
o|contracted procedure: k40010 
o|contracted procedure: k40016 
o|contracted procedure: k40025 
o|contracted procedure: k40034 
o|contracted procedure: k40043 
o|contracted procedure: k40058 
o|contracted procedure: k40065 
o|contracted procedure: k40068 
o|contracted procedure: k40076 
o|contracted procedure: k40104 
o|contracted procedure: k40097 
o|contracted procedure: k40194 
o|contracted procedure: k40113 
o|contracted procedure: k40188 
o|contracted procedure: k40116 
o|contracted procedure: k40182 
o|contracted procedure: k40119 
o|contracted procedure: k40176 
o|contracted procedure: k40122 
o|contracted procedure: k40128 
o|contracted procedure: k40135 
o|contracted procedure: k40144 
o|contracted procedure: k40156 
o|contracted procedure: k40166 
o|contracted procedure: k40170 
o|contracted procedure: k40203 
o|contracted procedure: k40209 
o|contracted procedure: k40212 
o|contracted procedure: k40233 
o|contracted procedure: k40215 
o|contracted procedure: k40229 
o|contracted procedure: k40225 
o|contracted procedure: k40245 
o|contracted procedure: k40311 
o|contracted procedure: k40248 
o|contracted procedure: k40307 
o|contracted procedure: k40303 
o|contracted procedure: k40260 
o|contracted procedure: k40266 
o|contracted procedure: k40272 
o|contracted procedure: k40275 
o|contracted procedure: k40282 
o|contracted procedure: k40286 
o|contracted procedure: k40290 
o|contracted procedure: k40320 
o|contracted procedure: k40338 
o|contracted procedure: k40362 
o|contracted procedure: k40371 
o|contracted procedure: k40380 
o|contracted procedure: k40383 
o|contracted procedure: k40386 
o|contracted procedure: k40389 
o|contracted procedure: k40392 
o|contracted procedure: k40398 
o|contracted procedure: k40407 
o|contracted procedure: k40417 
o|contracted procedure: k40421 
o|contracted procedure: k40427 
o|contracted procedure: k40437 
o|contracted procedure: k40443 
o|contracted procedure: k40450 
o|contracted procedure: k40454 
o|contracted procedure: k40458 
o|contracted procedure: k40462 
o|contracted procedure: k40469 
o|contracted procedure: k40541 
o|contracted procedure: k40475 
o|contracted procedure: k40535 
o|contracted procedure: k40478 
o|contracted procedure: k40529 
o|contracted procedure: k40481 
o|contracted procedure: k40523 
o|contracted procedure: k40484 
o|contracted procedure: k40490 
o|contracted procedure: k40493 
o|contracted procedure: k40500 
o|contracted procedure: k40510 
o|contracted procedure: k40517 
o|contracted procedure: k40626 
o|contracted procedure: k40550 
o|contracted procedure: k40620 
o|contracted procedure: k40553 
o|contracted procedure: k40614 
o|contracted procedure: k40556 
o|contracted procedure: k40608 
o|contracted procedure: k40559 
o|contracted procedure: k40602 
o|contracted procedure: k40562 
o|contracted procedure: k40596 
o|contracted procedure: k40565 
o|contracted procedure: k40571 
o|contracted procedure: k40574 
o|contracted procedure: k40577 
o|contracted procedure: k40580 
o|contracted procedure: k40583 
o|contracted procedure: k40638 
o|contracted procedure: k40644 
o|contracted procedure: k40659 
o|contracted procedure: k40675 
o|contracted procedure: k40728 
o|contracted procedure: k40695 
o|contracted procedure: k40704 
o|contracted procedure: k40707 
o|contracted procedure: k40717 
o|contracted procedure: k40724 
o|contracted procedure: k40743 
o|contracted procedure: k40794 
o|contracted procedure: k40752 
o|contracted procedure: k40788 
o|contracted procedure: k40755 
o|contracted procedure: k40782 
o|contracted procedure: k40758 
o|contracted procedure: k40776 
o|contracted procedure: k40761 
o|contracted procedure: k40767 
o|contracted procedure: k40870 
o|contracted procedure: k40803 
o|contracted procedure: k40864 
o|contracted procedure: k40806 
o|contracted procedure: k40858 
o|contracted procedure: k40809 
o|contracted procedure: k40852 
o|contracted procedure: k40812 
o|contracted procedure: k40821 
o|contracted procedure: k40834 
o|contracted procedure: k40830 
o|contracted procedure: k40846 
o|contracted procedure: k40902 
o|contracted procedure: k40883 
o|contracted procedure: k40899 
o|contracted procedure: k40889 
o|contracted procedure: k40958 
o|contracted procedure: k40911 
o|contracted procedure: k40955 
o|contracted procedure: k40948 
o|contracted procedure: k40985 
o|contracted procedure: k40967 
o|contracted procedure: k40982 
o|contracted procedure: k41016 
o|contracted procedure: k40994 
o|contracted procedure: k40997 
o|contracted procedure: k41013 
o|contracted procedure: k41006 
o|contracted procedure: k41110 
o|contracted procedure: k41025 
o|contracted procedure: k41104 
o|contracted procedure: k41028 
o|contracted procedure: k41098 
o|contracted procedure: k41031 
o|contracted procedure: k41092 
o|contracted procedure: k41034 
o|contracted procedure: k41086 
o|contracted procedure: k41037 
o|contracted procedure: k41080 
o|contracted procedure: k41040 
o|contracted procedure: k41043 
o|contracted procedure: k41049 
o|contracted procedure: k41052 
o|contracted procedure: k41061 
o|contracted procedure: k41071 
o|contracted procedure: k41064 
o|contracted procedure: k41153 
o|contracted procedure: k41157 
o|contracted procedure: k41161 
o|contracted procedure: k41165 
o|contracted procedure: k41202 
o|contracted procedure: k41208 
o|contracted procedure: k41220 
o|contracted procedure: k41223 
o|contracted procedure: k41226 
o|contracted procedure: k41234 
o|contracted procedure: k41242 
o|contracted procedure: k41287 
o|contracted procedure: k41304 
o|contracted procedure: k41318 
o|contracted procedure: k41307 
o|contracted procedure: k41314 
o|contracted procedure: k41342 
o|contracted procedure: k41349 
o|contracted procedure: k41383 
o|contracted procedure: k41392 
o|contracted procedure: k41395 
o|contracted procedure: k41404 
o|contracted procedure: k41419 
o|contracted procedure: k41415 
o|contracted procedure: k41432 
o|contracted procedure: k41435 
o|contracted procedure: k41442 
o|contracted procedure: k41451 
o|contracted procedure: k41454 
o|contracted procedure: k41457 
o|contracted procedure: k41483 
o|contracted procedure: k41474 
o|contracted procedure: k41493 
o|contracted procedure: k41496 
o|contracted procedure: k41542 
o|contracted procedure: k41545 
o|contracted procedure: k41559 
o|contracted procedure: k41583 
o|contracted procedure: k41593 
o|contracted procedure: k41613 
o|contracted procedure: k41623 
o|contracted procedure: k41627 
o|contracted procedure: k41668 
o|contracted procedure: k41678 
o|contracted procedure: k41682 
o|contracted procedure: k41725 
o|contracted procedure: k41710 
o|contracted procedure: k41713 
o|contracted procedure: k41963 
o|contracted procedure: k41982 
o|contracted procedure: k41992 
o|contracted procedure: k42002 
o|contracted procedure: k42012 
o|contracted procedure: k42022 
o|contracted procedure: k42032 
o|contracted procedure: k42042 
o|contracted procedure: k42052 
o|contracted procedure: k42062 
o|contracted procedure: k42072 
o|contracted procedure: k42082 
o|contracted procedure: k42092 
o|contracted procedure: k42102 
o|contracted procedure: k42108 
o|contracted procedure: k42111 
o|contracted procedure: k42135 
o|contracted procedure: k42142 
o|contracted procedure: k42151 
o|contracted procedure: k42158 
o|contracted procedure: k42177 
o|contracted procedure: k42186 
o|contracted procedure: k42197 
o|contracted procedure: k42193 
o|contracted procedure: k42206 
o|contracted procedure: k42213 
o|contracted procedure: k42223 
o|contracted procedure: k42219 
o|contracted procedure: k42168 
o|contracted procedure: k42164 
o|simplifications: ((if . 26) (let . 1000)) 
o|removed binding forms: 3301 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest152155 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest152155 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest175178 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest175178 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest922923 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest922923 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest935936 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest935936 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? fns986 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? fns993 0 
(o x)|known list op on rest arg sublist: ##core#rest-car lst1077 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest11061110 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest11061110 0 
o|inlining procedure: k13759 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest11351139 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest11351139 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest11611164 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest11611164 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest11611164 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest11611164 0 
(o x)|known list op on rest arg sublist: ##core#rest-car tst1195 0 
(o x)|known list op on rest arg sublist: ##core#rest-car bool1519 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1601 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1604 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1608 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1611 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1614 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1617 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1620 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1623 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1626 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1629 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1632 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1635 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1638 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1641 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1644 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1647 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1650 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1654 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1658 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1665 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1671 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1676 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1679 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc1684 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest17121714 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest17121714 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest17251727 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest17251727 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest17381740 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest17381740 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest17511753 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest17511753 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest17641766 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest17641766 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest17771779 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest17771779 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest17901792 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest17901792 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest18031805 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest18031805 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest18331835 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest18331835 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest18451847 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest18451847 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest20022004 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest20022004 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest20022004 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest20022004 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest20572060 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest20572060 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest20572060 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest20572060 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest20932095 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest20932095 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest20932095 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest20932095 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest21202124 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest21202124 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest21202124 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest21202124 0 
(o x)|known list op on rest arg sublist: ##core#rest-car end2166 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest27362737 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest27362737 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? args2968 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest32053207 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest32053207 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest32453247 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest32453247 0 
o|contracted procedure: k19955 
(o x)|known list op on rest arg sublist: ##core#rest-null? ns3483 0 
o|contracted procedure: k21971 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest39403942 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest39403942 0 
o|contracted procedure: k22161 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest39963998 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest39963998 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest39963998 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest39963998 0 
(o x)|known list op on rest arg sublist: ##core#rest-car str-or-sym4078 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest41434146 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest41434146 0 
o|inlining procedure: k22935 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest41944196 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest41944196 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest42284230 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest42284230 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest42284230 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest42284230 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest42544256 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest42544256 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest42544256 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest42544256 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest43144316 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest43144316 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest43144316 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest43144316 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest43484352 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest43484352 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest43484352 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest43484352 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest44294431 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest44294431 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest44294431 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest44294431 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest44534456 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest44534456 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest44534456 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest44534456 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest44804482 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest44804482 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest44804482 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest44804482 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest45154519 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest45154519 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest45154519 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest45154519 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest46434646 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest46434646 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest46704673 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest46704673 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest47914793 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest47914793 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? lsts4872 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? lsts4900 0 
o|contracted procedure: k42413 
(o x)|known list op on rest arg sublist: ##core#rest-car loc5110 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc5114 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc5117 0 
(o x)|known list op on rest arg sublist: ##core#rest-car loc5120 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest53555356 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest53555356 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest54455448 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest54455448 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest55035505 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest55035505 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest55585559 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest55585559 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest55715572 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest55715572 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest55845585 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest55845585 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest56165617 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest56165617 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest56275628 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest56275628 0 
o|contracted procedure: k26841 
o|inlining procedure: k27018 
o|contracted procedure: k28353 
o|contracted procedure: k28450 
(o x)|known list op on rest arg sublist: ##core#rest-null? xs6119 0 
(o x)|known list op on rest arg sublist: ##core#rest-car xs6119 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? xs6170 0 
(o x)|known list op on rest arg sublist: ##core#rest-car xs6170 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? xs6180 0 
(o x)|known list op on rest arg sublist: ##core#rest-car xs6180 0 
o|contracted procedure: k29500 
(o x)|known list op on rest arg sublist: ##core#rest-null? xs6242 0 
(o x)|known list op on rest arg sublist: ##core#rest-car xs6242 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest63816383 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest63816383 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest63946395 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest63946395 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest64046406 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest64046406 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest64166418 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest64166418 0 
o|inlining procedure: k30524 
o|inlining procedure: k30524 
o|inlining procedure: "(library.scm:5554) specialchar?6507" 
o|inlining procedure: "(library.scm:5576) specialchar?6507" 
o|contracted procedure: k30874 
o|contracted procedure: k30889 
o|inlining procedure: "(library.scm:5580) specialchar?6507" 
o|inlining procedure: k41897 
o|inlining procedure: k41897 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest69126917 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest69126917 0 
o|contracted procedure: k32064 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest70157016 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest70157016 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest70157016 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest70157016 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest70857086 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest70857086 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest70857086 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest70857086 0 
o|inlining procedure: k33107 
o|inlining procedure: k33107 
o|contracted procedure: k33937 
(o x)|known list op on rest arg sublist: ##core#rest-null? args7618 0 
(o x)|known list op on rest arg sublist: ##core#rest-car args7618 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? _%rest76227674 1 
(o x)|known list op on rest arg sublist: ##core#rest-car _%rest76227674 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr _%rest76227674 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest76877690 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest76877690 0 
(o x)|known list op on rest arg sublist: ##core#rest-car args7708 0 
(o x)|known list op on rest arg sublist: ##core#rest-car args7708 0 
(o x)|known list op on rest arg sublist: ##core#rest-car args7708 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest78447846 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest78447846 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest84088409 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest84088409 0 
(o x)|known list op on rest arg sublist: ##core#rest-car arg8497 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest86098612 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest86098612 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest87668767 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest87668767 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest87898790 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest87898790 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest90769078 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest90769078 0 
o|inlining procedure: k38454 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest91149116 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest91149116 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest91149116 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest91149116 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest91489150 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest91489150 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest91489150 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest91489150 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? more9181 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? more9307 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? more9430 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? more9557 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest96969697 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest96969697 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest97109712 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest97109712 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest97109712 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest97109712 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest97529753 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest97529753 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest97529753 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest97529753 0 
(o x)|known list op on rest arg sublist: ##core#rest-car args9778 0 
o|inlining procedure: k40055 
o|inlining procedure: k40055 
(o x)|known list op on rest arg sublist: ##core#rest-cdr args9778 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest98169817 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest98169817 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest98169817 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest98169817 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest99249927 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest99249927 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest99249927 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest99249927 0 
o|contracted procedure: k40506 
o|inlining procedure: k40497 
o|inlining procedure: k40497 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest99499951 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest99499951 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest99499951 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest99499951 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest1001310014 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest1001310014 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest1001310014 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest1001310014 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest1003110032 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest1003110032 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest1003110032 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest1003110032 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest1006110062 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest1006110062 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? port10072 0 
(o x)|known list op on rest arg sublist: ##core#rest-car port10072 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest1008910090 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest1008910090 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest1010310105 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest1010310105 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest1012010122 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest1012010122 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest1012010122 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest1012010122 0 
o|inlining procedure: k41398 
o|inlining procedure: k41426 
o|inlining procedure: k41487 
o|inlining procedure: k41487 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest71437144 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest71437144 0 
o|replaced variables: 3 
o|removed binding forms: 18 
o|substituted constant variable: r1376049303 
(o x)|known list op on rest arg sublist: ##core#rest-null? r13896 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r13896 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r13896 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r13896 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r15619 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r15619 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r15619 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r15619 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r15823 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r15823 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r15823 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r15823 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r15942 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r15942 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r15942 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r15942 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r16018 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r16018 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r16018 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r16018 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r22394 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r22394 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r22394 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r22394 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23018 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r23018 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23018 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r23018 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23087 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r23087 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23087 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r23087 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23233 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r23233 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23233 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r23233 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23314 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r23314 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23314 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r23314 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23535 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r23535 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23535 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r23535 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23627 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r23627 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23627 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r23627 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23708 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r23708 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23708 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r23708 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23815 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r23815 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r23815 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r23815 1 
o|removed side-effect free assignment to unused variable: specialchar?6507 
(o x)|known list op on rest arg sublist: ##core#rest-null? r32286 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r32286 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r32286 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r32286 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r32545 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r32545 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r32545 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r32545 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r38526 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r38526 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r38526 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r38526 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r38628 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r38628 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r38628 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r38628 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r39754 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r39754 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r39754 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r39754 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r39858 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r39858 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r39858 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r39858 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r40117 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r40117 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r40117 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r40117 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r40479 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r40479 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r40479 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r40479 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r40554 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r40554 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r40554 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r40554 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r40756 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r40756 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r40756 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r40756 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r40807 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r40807 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r40807 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r40807 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r41029 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r41029 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r41029 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r41029 1 
o|substituted constant variable: r4148849699 
o|replaced variables: 10 
o|removed binding forms: 16 
o|removed conditional forms: 1 
o|inlining procedure: k30728 
o|inlining procedure: k30830 
(o x)|known list op on rest arg sublist: ##core#rest-null? r32551 2 
(o x)|known list op on rest arg sublist: ##core#rest-car r32551 2 
(o x)|known list op on rest arg sublist: ##core#rest-null? r32551 2 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r32551 2 
(o x)|known list op on rest arg sublist: ##core#rest-null? r39760 2 
(o x)|known list op on rest arg sublist: ##core#rest-car r39760 2 
(o x)|known list op on rest arg sublist: ##core#rest-null? r39760 2 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r39760 2 
(o x)|known list op on rest arg sublist: ##core#rest-null? r39864 2 
(o x)|known list op on rest arg sublist: ##core#rest-car r39864 2 
(o x)|known list op on rest arg sublist: ##core#rest-null? r39864 2 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r39864 2 
(o x)|known list op on rest arg sublist: ##core#rest-null? r40560 2 
(o x)|known list op on rest arg sublist: ##core#rest-car r40560 2 
(o x)|known list op on rest arg sublist: ##core#rest-null? r40560 2 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r40560 2 
(o x)|known list op on rest arg sublist: ##core#rest-null? r41035 2 
(o x)|known list op on rest arg sublist: ##core#rest-car r41035 2 
(o x)|known list op on rest arg sublist: ##core#rest-null? r41035 2 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r41035 2 
o|removed binding forms: 60 
o|contracted procedure: k30911 
(o x)|known list op on rest arg sublist: ##core#rest-null? r32557 3 
(o x)|known list op on rest arg sublist: ##core#rest-car r32557 3 
(o x)|known list op on rest arg sublist: ##core#rest-null? r32557 3 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r32557 3 
o|removed binding forms: 12 
o|removed binding forms: 2 
o|direct leaf routine/allocation: loop26 0 
o|direct leaf routine/allocation: loop39 0 
o|direct leaf routine/allocation: loop206 0 
o|direct leaf routine/allocation: loop218 0 
o|direct leaf routine/allocation: loop393 0 
o|direct leaf routine/allocation: loop407 0 
o|direct leaf routine/allocation: loop421 0 
o|direct leaf routine/allocation: loop435 0 
o|direct leaf routine/allocation: loop449 0 
o|direct leaf routine/allocation: loop1038 0 
o|direct leaf routine/allocation: doloop20822083 0 
o|direct leaf routine/allocation: doloop21402141 0 
o|direct leaf routine/allocation: doloop21462147 0 
o|direct leaf routine/allocation: ratnum 21 
o|direct leaf routine/allocation: go-inexact!3583 0 
o|direct leaf routine/allocation: loop4299 0 
o|direct leaf routine/allocation: loop4387 0 
o|direct leaf routine/allocation: loop4421 0 
o|direct leaf routine/allocation: doloop44684469 0 
o|direct leaf routine/allocation: doloop44994500 0 
o|direct leaf routine/allocation: doloop45404541 0 
o|direct leaf routine/allocation: doloop45464547 0 
o|direct leaf routine/allocation: foldl46224627 0 
o|direct leaf routine/allocation: for-each-loop45654583 0 
o|direct leaf routine/allocation: doloop46594660 0 
o|direct leaf routine/allocation: doloop46874688 0 
o|direct leaf routine/allocation: loop4783 0 
o|direct leaf routine/allocation: body51255134 0 
o|direct leaf routine/allocation: def-set?51285137 0 
o|direct leaf routine/allocation: def-convert?51275139 0 
o|direct leaf routine/allocation: body51505159 0 
o|direct leaf routine/allocation: def-set?51535162 0 
o|direct leaf routine/allocation: def-convert?51525164 0 
o|direct leaf routine/allocation: body51755184 0 
o|direct leaf routine/allocation: def-set?51785187 0 
o|direct leaf routine/allocation: def-convert?51775189 0 
o|direct leaf routine/allocation: register-shared!5685 6 
o|direct leaf routine/allocation: complain5776 0 
o|direct leaf routine/allocation: body73517360 0 
o|direct leaf routine/allocation: def-set?73547363 0 
o|direct leaf routine/allocation: def-convert?73537365 0 
o|direct leaf routine/allocation: for-each-loop73957406 0 
o|direct leaf routine/allocation: loop8624 0 
o|direct leaf routine/allocation: doloop91339134 0 
o|direct leaf routine/allocation: g92749283 0 
o|direct leaf routine/allocation: foldl92269257 0 
o|direct leaf routine/allocation: for-each-loop91969214 0 
o|direct leaf routine/allocation: g93979406 0 
o|direct leaf routine/allocation: foldl93499380 0 
o|direct leaf routine/allocation: for-each-loop93199337 0 
o|direct leaf routine/allocation: g95259534 0 
o|direct leaf routine/allocation: foldl94779508 0 
o|direct leaf routine/allocation: for-each-loop94479465 0 
o|direct leaf routine/allocation: g96519660 0 
o|direct leaf routine/allocation: foldl96039634 0 
o|direct leaf routine/allocation: for-each-loop95739591 0 
o|direct leaf routine/allocation: finish9880 0 
o|direct leaf routine/allocation: for-each-loop88318842 0 
o|converted assignments to bindings: (loop26) 
o|converted assignments to bindings: (loop39) 
o|converted assignments to bindings: (loop206) 
o|converted assignments to bindings: (loop218) 
o|converted assignments to bindings: (loop393) 
o|converted assignments to bindings: (loop407) 
o|converted assignments to bindings: (loop421) 
o|converted assignments to bindings: (loop435) 
o|converted assignments to bindings: (loop449) 
o|converted assignments to bindings: (loop1038) 
o|converted assignments to bindings: (doloop20822083) 
o|converted assignments to bindings: (doloop21402141) 
o|converted assignments to bindings: (doloop21462147) 
o|contracted procedure: "(library.scm:3135) k20964" 
o|contracted procedure: "(library.scm:3177) k21272" 
o|contracted procedure: "(library.scm:3182) k21297" 
o|contracted procedure: "(library.scm:3189) k21343" 
o|contracted procedure: "(library.scm:3230) k21675" 
o|contracted procedure: "(library.scm:3240) k21771" 
o|converted assignments to bindings: (loop4299) 
o|converted assignments to bindings: (loop4387) 
o|converted assignments to bindings: (loop4421) 
o|converted assignments to bindings: (doloop44684469) 
o|converted assignments to bindings: (doloop44994500) 
o|converted assignments to bindings: (doloop45404541) 
o|converted assignments to bindings: (doloop45464547) 
o|contracted procedure: k23989 
o|contracted procedure: k24041 
o|converted assignments to bindings: (foldl46224627) 
o|converted assignments to bindings: (for-each-loop45654583) 
o|converted assignments to bindings: (doloop46594660) 
o|converted assignments to bindings: (doloop46874688) 
o|converted assignments to bindings: (loop4783) 
o|inlining procedure: "(library.scm:4267) k25348" 
o|inlining procedure: "(library.scm:4267) k25348" 
o|inlining procedure: "(library.scm:4277) k25409" 
o|inlining procedure: "(library.scm:4277) k25409" 
o|inlining procedure: "(library.scm:4287) k25470" 
o|inlining procedure: "(library.scm:4287) k25470" 
o|contracted procedure: "(library.scm:4824) k27224" 
o|contracted procedure: "(library.scm:4836) k27271" 
o|contracted procedure: "(library.scm:5228) k29158" 
o|inlining procedure: "(library.scm:6277) k33310" 
o|inlining procedure: "(library.scm:6277) k33310" 
o|contracted procedure: k33432 
o|converted assignments to bindings: (for-each-loop73957406) 
o|contracted procedure: k37313 
o|converted assignments to bindings: (loop8624) 
o|converted assignments to bindings: (doloop91339134) 
o|contracted procedure: k38800 
o|contracted procedure: k38812 
o|contracted procedure: "(library.scm:7941) k38880" 
o|converted assignments to bindings: (foldl92269257) 
o|converted assignments to bindings: (for-each-loop91969214) 
o|contracted procedure: k39026 
o|contracted procedure: k39038 
o|contracted procedure: "(library.scm:7960) k39102" 
o|converted assignments to bindings: (foldl93499380) 
o|converted assignments to bindings: (for-each-loop93199337) 
o|contracted procedure: k39255 
o|contracted procedure: k39267 
o|contracted procedure: "(library.scm:7980) k39335" 
o|converted assignments to bindings: (foldl94779508) 
o|converted assignments to bindings: (for-each-loop94479465) 
o|contracted procedure: k39481 
o|contracted procedure: k39493 
o|contracted procedure: "(library.scm:7999) k39557" 
o|converted assignments to bindings: (foldl96039634) 
o|converted assignments to bindings: (for-each-loop95739591) 
o|contracted procedure: k41295 
o|converted assignments to bindings: (for-each-loop88318842) 
o|simplifications: ((let . 37)) 
o|removed binding forms: 26 
o|contracted procedure: "(library.scm:4267) k25348" 
o|contracted procedure: "(library.scm:4277) k25409" 
o|contracted procedure: "(library.scm:4287) k25470" 
o|contracted procedure: "(library.scm:6277) k33310" 
o|removed binding forms: 4 
x|number of unboxed float variables: 0
x|number of inline operations replaced with unboxed ones: 70
o|customizable procedures: (cleanup-before-exit g72887295 for-each-loop72877299 for-each-loop72627274 loop8310 k37703 map-loop88738890 check8914 k38089 k38092 k38095 k38098 loop10079 loop9988 loop9893 readb9879 recount9903 loop9854 loop9828 k39963 loop9795 g97909791 doloop97669767 k39774 k39777 map-loop96109627 map-loop96459670 doloop96409641 doloop95639564 map-loop94849501 map-loop95199544 doloop95149515 doloop94379438 map-loop93569373 map-loop93919416 doloop93869387 lp9312 map-loop92339250 map-loop92689293 doloop92639264 loop9187 v->s9161 loop9167 s->v9127 lp9107 doloop90949095 doloop90849085 map-loop90489066 loop8988 map-loop89568973 loop8980 for-each-loop89338945 loop8808 str8778 pmem8672 round-to8671 pnum8670 k37384 loop8649 loop8488 doloop84608461 for-each-loop84288438 for-each-loop83868400 doloop82998300 scan8282 loop8279 read-escaped-sexp8093 get/clear-str8153 loop8164 loop28187 readln8092 doloop81318140 loop8107 doloop80968097 loop8071 again8043 loop7938 loop7912 def-port76237672 def-header76247670 body76217630 g76447645 writeargs7595 g76017608 for-each-loop76007612 g75367545 map-loop75307555 loop7548 map-loop74737491 map-loop75007517 map-loop74137431 map-loop74407458 chicken.condition#prop-list->kind-prefixed-prop-list k33360 loop7376 k32868 k32871 k32891 for-each-loop71947206 for-each-loop71147125 loop7110 g70557062 for-each-loop70547075 k32480 k32324 loop7035 g69866993 for-each-loop69856996 k32044 conc16928 conc6927 getline6929 loop6943 grow6926 k41827 doloop67146715 doloop66856686 out6617 doloop66546655 outsym6508 g66336634 loop6589 k30821 loop6554 outchr6506 sym-is-readable?6510 outreadablesym6509 outstr6504 outstr06505 for-each-loop64636481 for-each-loop64316449 k30148 loop26353 loop6343 retry6347 k29941 fail6305 unthunkify!5687 r-symbol5738 k29573 r-ext-symbol5742 r-comment5741 r-char5740 r-vector5732 r-number-with-radix5735 r-number-with-exactness5734 r-digits5737 k29189 g61656166 r-quote5743 loop6097 r-token5736 k28844 k28409 k28427 r-string5730 loop6006 k28433 k28463 loop5986 k28292 read-unreserved-char-05684 loop5971 r-number5733 r-list5731 k27877 k27920 r-xtoken5739 loop5879 readrec5688 r-spaces5727 starting-line5874 info5681 k27534 k27554 k27658 eat-ws5844 r-usequence5728 r-xsequence5729 loop5810 k27245 loop5784 parse5775 abort5777 loop5761 skip-to-eol5682 loop5746 doloop57205721 loop!5712 unthunk5686 reserved-character5683 skip5693 k26387 def-convert?55325544 def-set?55335542 body55305539 assign5514 k26357 loop5390 loop5371 doloop53785379 close5206 open5205 k25632 k25642 doloop52145215 k42519 k42522 loop5077 k42406 loop5052 ##sys#dynamic-unwind loop4927 map-loop49034920 loop4890 for-each-loop48754885 lp4862 loop4848 loop4837 lookup-char4779 loop4764 loop4747 loop4730 loop4713 loop4696 ##sys#vector-resize map-loop45914608 doloop46324633 copy!4530 copy4493 loop4443 loop4383 k23340 k23256 loop4179 loop4171 map-loop40954114 compare-slots4015 loop4027 walk4016 ##sys#string->compnum scan-prefix3950 k21876 scan-real3831 k21989 k21617 k21744 k21672 k21640 scan-ureal3760 k21269 k21340 scan-decimal-tail3687 scan-digits+hashes3653 k21069 k21081 scan-exponent3674 k21108 safe-exponent3584 k21010 scan-digits3618 scan-hashes3645 lp3647 k20817 lp3621 round-quotient k20529 k20464 loop3484 loop3474 k20063 slow-expt3406 log-expt3405 lp3390 k19709 lp3378 k19139 k19145 k19077 k19083 loop3160 loop3134 find-ratio-between sr3111 ##sys#internal-gcd loop2969 deliver2903 doloop29052906 make-complex k16835 doloop23382339 loop2331 loop2307 compare2235 loop2244 compare2176 loop2185 k16185 k16192 k15954 k15960 k15838 loop2040 loop2027 loop2016 loop1987 k15432 loop1825 copy1815 loop1813 k14944 lp1686 fail1364 add1333 k14213 loop1197 loop1182 k13904 loop1145 loop1123 k13705 loop1093 loop1079 loop1064 loop1056 loop1050 loop1020 loop1005 loop994 loop964 loop952 loop909 loop900 loop184 loop161 loop134) 
o|shared closure containers: 109 
o|shared closure users: 136 
o|calls to known targets: 1088 
o|identified direct recursive calls: f_11678 2 
o|identified direct recursive calls: f_11723 2 
o|identified direct recursive calls: f_12055 1 
o|unused rest argument: rest152155 f_12094 
o|unused rest argument: rest175178 f_12144 
o|identified direct recursive calls: f_12215 2 
o|identified direct recursive calls: f_12248 2 
o|identified direct recursive calls: f_12423 2 
o|identified direct recursive calls: f_12462 2 
o|identified direct recursive calls: f_12501 2 
o|identified direct recursive calls: f_12540 2 
o|identified direct recursive calls: f_12579 2 
o|unused rest argument: env562 f_12824 
o|unused rest argument: evaluator569 f_12848 
o|unused rest argument: _872 f_12966 
o|identified direct recursive calls: f_13053 1 
o|unused rest argument: rest922923 f_13091 
o|unused rest argument: rest935936 f_13109 
o|unused rest argument: _976 f_13212 
o|unused rest argument: _977 f_13214 
o|unused rest argument: _1018 f_13369 
o|identified direct recursive calls: f_13438 1 
o|identified direct recursive calls: f_13463 1 
o|identified direct recursive calls: f_13499 1 
o|identified direct recursive calls: f_13528 2 
o|identified direct recursive calls: f_13575 1 
o|identified direct recursive calls: f_13629 2 
o|identified direct recursive calls: f_13745 1 
o|unused rest argument: rest11061110 f_13700 
o|unused rest argument: rest11351139 f_13786 
o|unused rest argument: rest11611164 f_13890 
o|identified direct recursive calls: f_14897 1 
o|unused rest argument: rest17121714 f_15013 
o|unused rest argument: rest17251727 f_15029 
o|unused rest argument: rest17381740 f_15045 
o|unused rest argument: rest17511753 f_15061 
o|unused rest argument: rest17641766 f_15077 
o|unused rest argument: rest17771779 f_15093 
o|unused rest argument: rest17901792 f_15109 
o|unused rest argument: rest18031805 f_15125 
o|identified direct recursive calls: f_15172 1 
o|identified direct recursive calls: f_15226 1 
o|unused rest argument: rest18331835 f_15250 
o|unused rest argument: rest18451847 f_15265 
o|identified direct recursive calls: f_15647 1 
o|unused rest argument: rest20022004 f_15613 
o|identified direct recursive calls: f_15722 1 
o|identified direct recursive calls: f_15775 1 
o|identified direct recursive calls: f_15863 1 
o|unused rest argument: rest20572060 f_15817 
o|unused rest argument: rest20932095 f_15936 
o|identified direct recursive calls: f_16061 1 
o|identified direct recursive calls: f_16095 1 
o|unused rest argument: rest21202124 f_16012 
o|identified direct recursive calls: f_16575 1 
o|identified direct recursive calls: f_16675 1 
o|unused rest argument: rest27362737 f_17515 
o|identified direct recursive calls: f_18536 1 
o|identified direct recursive calls: f_18722 7 
o|identified direct recursive calls: f_18793 7 
o|unused rest argument: rest32053207 f_18947 
o|unused rest argument: rest32453247 f_19173 
o|identified direct recursive calls: f_19856 2 
o|identified direct recursive calls: f_20748 1 
o|identified direct recursive calls: f_20901 1 
o|identified direct recursive calls: f_22156 6 
o|unused rest argument: rest39403942 f_22139 
o|unused rest argument: rest39963998 f_22388 
o|identified direct recursive calls: f_22505 1 
o|unused rest argument: rest41434146 f_22847 
o|identified direct recursive calls: f_22891 1 
o|identified direct recursive calls: f_22924 1 
o|unused rest argument: rest41944196 f_22951 
o|unused rest argument: rest42284230 f_23012 
o|unused rest argument: rest42544256 f_23081 
o|identified direct recursive calls: f_23206 1 
o|unused rest argument: rest43144316 f_23227 
o|unused rest argument: rest43484352 f_23308 
o|identified direct recursive calls: f_23411 1 
o|identified direct recursive calls: f_23396 1 
o|identified direct recursive calls: f_23498 1 
o|identified direct recursive calls: f_23559 1 
o|unused rest argument: rest44294431 f_23529 
o|identified direct recursive calls: f_23651 1 
o|unused rest argument: rest44534456 f_23621 
o|identified direct recursive calls: f_23737 1 
o|unused rest argument: rest44804482 f_23702 
o|identified direct recursive calls: f_23870 1 
o|identified direct recursive calls: f_23904 1 
o|unused rest argument: rest45154519 f_23809 
o|identified direct recursive calls: f_24103 1 
o|identified direct recursive calls: f_24045 1 
o|identified direct recursive calls: f_24069 1 
o|identified direct recursive calls: f_24156 1 
o|unused rest argument: rest46434646 f_24126 
o|unused rest argument: rest46704673 f_24189 
o|identified direct recursive calls: f_24222 1 
o|identified direct recursive calls: f_24487 1 
o|unused rest argument: rest47914793 f_24515 
o|identified direct recursive calls: f_25137 1 
o|identified direct recursive calls: f_42417 1 
o|identified direct recursive calls: f_25577 3 
o|unused rest argument: rest53555356 f_25973 
o|identified direct recursive calls: f_26026 1 
o|unused rest argument: rest54455448 f_26195 
o|unused rest argument: rest55035505 f_26347 
o|unused rest argument: rest55585559 f_26511 
o|unused rest argument: rest55715572 f_26536 
o|unused rest argument: rest55845585 f_26561 
o|unused rest argument: rest56165617 f_26673 
o|unused rest argument: rest56275628 f_26691 
o|identified direct recursive calls: f_26932 1 
o|unused rest argument: xs6119 f_29038 
o|unused rest argument: xs6170 f_29210 
o|unused rest argument: xs6180 f_29292 
o|unused rest argument: xs6242 f_29672 
o|identified direct recursive calls: f_30101 1 
o|unused rest argument: rest63816383 f_30235 
o|unused rest argument: rest63946395 f_30256 
o|unused rest argument: rest64046406 f_30271 
o|unused rest argument: rest64166418 f_30289 
o|identified direct recursive calls: f_30748 1 
o|unused rest argument: rest69126917 f_31907 
o|unused rest argument: rest70157016 f_32280 
o|unused rest argument: rest70857086 f_32539 
o|unused rest argument: args7159 f_32765 
o|identified direct recursive calls: f_33539 1 
o|identified direct recursive calls: f_33459 1 
o|identified direct recursive calls: f_33505 1 
o|identified direct recursive calls: f_33581 1 
o|identified direct recursive calls: f_33695 2 
o|unused rest argument: args7618 f_33921 
o|unused rest argument: rest76877690 f_34112 
o|unused rest argument: rest78447846 f_35170 
o|unused rest argument: _8017 f_35536 
o|identified direct recursive calls: f_35729 1 
o|identified direct recursive calls: f_36070 1 
o|identified direct recursive calls: f_36410 1 
o|unused rest argument: rest84088409 f_36673 
o|unused rest argument: rest86098612 f_37287 
o|identified direct recursive calls: f_37331 1 
o|identified direct recursive calls: f_37395 1 
o|unused rest argument: rest87668767 f_37707 
o|unused rest argument: rest87898790 f_37848 
o|identified direct recursive calls: f_37899 1 
o|identified direct recursive calls: f_38173 2 
o|identified direct recursive calls: f_38399 1 
o|unused rest argument: rest90769078 f_38384 
o|identified direct recursive calls: f_38443 1 
o|identified direct recursive calls: f_38493 1 
o|identified direct recursive calls: f_38555 1 
o|unused rest argument: rest91149116 f_38520 
o|identified direct recursive calls: f_38657 1 
o|unused rest argument: rest91489150 f_38622 
o|identified direct recursive calls: f_38949 1 
o|identified direct recursive calls: f_38891 1 
o|identified direct recursive calls: f_38857 1 
o|identified direct recursive calls: f_38915 1 
o|identified direct recursive calls: f_39171 1 
o|identified direct recursive calls: f_39113 1 
o|identified direct recursive calls: f_39079 1 
o|identified direct recursive calls: f_39137 1 
o|identified direct recursive calls: f_39404 1 
o|identified direct recursive calls: f_39346 1 
o|identified direct recursive calls: f_39312 1 
o|identified direct recursive calls: f_39370 1 
o|identified direct recursive calls: f_39626 1 
o|identified direct recursive calls: f_39568 1 
o|identified direct recursive calls: f_39534 1 
o|identified direct recursive calls: f_39592 1 
o|unused rest argument: rest96969697 f_39708 
o|unused rest argument: rest97109712 f_39748 
o|unused rest argument: rest97529753 f_39852 
o|unused rest argument: rest98169817 f_40111 
o|unused rest argument: rest99249927 f_40473 
o|unused rest argument: rest99499951 f_40548 
o|unused rest argument: rest1001310014 f_40750 
o|unused rest argument: rest1003110032 f_40801 
o|unused rest argument: rest1006110062 f_40881 
o|unused rest argument: port10072 f_40909 
o|unused rest argument: rest1008910090 f_40965 
o|unused rest argument: rest1010310105 f_40992 
o|unused rest argument: rest1012010122 f_41023 
o|identified direct recursive calls: f_41299 1 
o|unused rest argument: args7252 f_41690 
o|unused rest argument: rest71437144 f_41708 
o|fast box initializations: 227 
o|fast global references: 103 
o|fast global assignments: 24 
o|dropping unused closure argument: f_12215 
o|dropping unused closure argument: f_12248 
o|dropping unused closure argument: f_12423 
o|dropping unused closure argument: f_12462 
o|dropping unused closure argument: f_12501 
o|dropping unused closure argument: f_12540 
o|dropping unused closure argument: f_12579 
o|dropping unused closure argument: f_16222 
o|dropping unused closure argument: f_16372 
o|dropping unused closure argument: f_17533 
o|dropping unused closure argument: f_17701 
o|dropping unused closure argument: f_18536 
o|dropping unused closure argument: f_19898 
o|dropping unused closure argument: f_19912 
o|dropping unused closure argument: f_20161 
o|dropping unused closure argument: f_20592 
o|dropping unused closure argument: f_20635 
o|dropping unused closure argument: f_23719 
o|dropping unused closure argument: f_23829 
o|dropping unused closure argument: f_24045 
o|dropping unused closure argument: f_24103 
o|dropping unused closure argument: f_24210 
o|dropping unused closure argument: f_25137 
o|dropping unused closure argument: f_25527 
o|dropping unused closure argument: f_25757 
o|dropping unused closure argument: f_30498 
o|dropping unused closure argument: f_32652 
o|dropping unused closure argument: f_33340 
o|dropping unused closure argument: f_33539 
o|dropping unused closure argument: f_33876 
o|dropping unused closure argument: f_35773 
o|dropping unused closure argument: f_35820 
o|dropping unused closure argument: f_37454 
o|dropping unused closure argument: f_37468 
o|dropping unused closure argument: f_37728 
o|dropping unused closure argument: f_38058 
o|dropping unused closure argument: f_38537 
o|dropping unused closure argument: f_38639 
o|dropping unused closure argument: f_38891 
o|dropping unused closure argument: f_38949 
o|dropping unused closure argument: f_39113 
o|dropping unused closure argument: f_39171 
o|dropping unused closure argument: f_39346 
o|dropping unused closure argument: f_39404 
o|dropping unused closure argument: f_39568 
o|dropping unused closure argument: f_39626 
o|dropping unused closure argument: f_41299 
*/
/* end of file */
