/* k.sf */
/* Generated by #F $Id$ */
#ifdef PROFILE
#define host host_module_k
#endif
#define MODULE module_k
#define LOAD() module_n(); 
extern void module_n(void); /* n.sf */

/* standard includes */
#include <stdio.h>
#include <stddef.h>
#include <stdlib.h>
#include <assert.h>
/* extra includes */
#include <math.h>
#include <errno.h>
#include <ctype.h>
#include <string.h>
#include <time.h>

/* standard definitions */
#ifdef NAN_BOXING
#include <stdint.h>
typedef int64_t obj;          /* pointers are this size, higher 16 bits and lower bit zero */
typedef int64_t cxoint_t;     /* same thing, used as integer */
typedef struct {              /* type descriptor */
  const char *tname;          /* name (debug) */
  void (*free)(void*);        /* deallocator */
} cxtype_t;

#define notobjptr(o)          (((cxoint_t)(o) - (cxoint_t)cxg_heap) & cxg_hmask)
#define isobjptr(o)           (!notobjptr(o))
#define notaptr(o)            ((o) & 0xffff000000000001ULL)
#define isaptr(o)             (!notaptr(o))
#else
typedef ptrdiff_t obj;        /* pointers are this size, lower bit zero */
typedef ptrdiff_t cxoint_t;   /* same thing, used as integer */
typedef struct {              /* type descriptor */
  const char *tname;          /* name (debug) */
  void (*free)(void*);        /* deallocator */
} cxtype_t;

#define notobjptr(o)          (((char*)(o) - (char*)cxg_heap) & cxg_hmask)
#define isobjptr(o)           (!notobjptr(o))
#define notaptr(o)            ((o) & 1)
#define isaptr(o)             (!notaptr(o))
#endif

#define obj_from_obj(o)       (o)
#define obj_from_objptr(p)    ((obj)(p))
#define obj_from_size(n)      (((cxoint_t)(n) << 1) | 1)

#define objptr_from_objptr(p) (p)
#define objptr_from_obj(o)    ((obj*)(o))

#define size_from_obj(o)      ((int)((o) >> 1))

#define obj_from_case(n)      obj_from_objptr(cases+(n))
#define case_from_obj(o)      (objptr_from_obj(o)-cases)
#define obj_from_ktrap()      obj_from_size(0x5D56F806)
#define obj_from_void(v)      ((void)(v), obj_from_size(0x6F56DF77))

#define bool_from_obj(o)      (o)
#define bool_from_bool(b)     (b)
#define bool_from_size(s)     (s)

#define void_from_void(v)     (void)(v)
#define void_from_obj(o)      (void)(o)

#define rreserve(m)           if (r + (m) >= cxg_rend) r = cxm_rgc(r, m)
#define hpushptr(p, pt, l)    (hreserve(2, l), *--hp = (obj)(p), *--hp = (obj)(pt), (obj)(hp+1))   
#define hbsz(s)               ((s) + 1) /* 1 extra word to store block size */
#define hreserve(n, l)        ((hp < cxg_heap + (n)) ? hp = cxm_hgc(r, r+(l), hp, n) : hp)
#define hendblk(n)            (*--hp = obj_from_size(n), (obj)(hp+1))
#define hblklen(p)            size_from_obj(((obj*)(p))[-1])
#define hblkref(p, i)         (((obj*)(p))[i])

typedef obj (*cxhost_t)(obj);
typedef struct cxroot_tag {
  int globc; obj **globv;
  struct cxroot_tag *next;
} cxroot_t;

extern obj *cxg_heap;
extern obj *cxg_hp;
extern cxoint_t cxg_hmask;
extern cxroot_t *cxg_rootp;
extern obj *cxm_rgc(obj *regs, size_t needs);
extern obj *cxm_hgc(obj *regs, obj *regp, obj *hp, size_t needs);
extern obj *cxg_regs, *cxg_rend;
extern void cxm_check(int x, char *msg);
extern void *cxm_cknull(void *p, char *msg);
extern int cxg_rc;
extern char **cxg_argv;

/* extra definitions */
/* basic object representation */
#ifdef NAN_BOXING
#define isim0(o)    (((o) & 0xffffffff00000003ULL) == 3) /* 30 bits of payload */
#define isimm(o, t) (((o) & 0xffffffff000000ffULL) == (((t) << 2) | 1)) /* 24 */
#ifdef NDEBUG
  #define getim0s(o) (long)(((((int32_t)(o) >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000)
  #define getimmu(o, t) (long)(((o) >> 8) & 0xffffff)
#else
  extern long getim0s(obj o);
  extern long getimmu(obj o, int t);
#endif
#define mkim0(v) ((obj)((((v) & 0x000000003fffffffULL) << 2) | 3))
#define mkimm(v, t) ((obj)((((v) & 0x0000000000ffffffULL) << 8) | ((t) << 2) | 1))
#else
#define isim0(o)    (((o) & 3) == 3)
#define isimm(o, t) (((o) & 0xff) == (((t) << 2) | 1))
#ifdef NDEBUG
  #define getim0s(o) (long)(((((int)(o) >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000)
  #define getimmu(o, t) (long)(((o) >> 8) & 0xffffff)
#else
  extern long getim0s(obj o);
  extern long getimmu(obj o, int t);
#endif
#define mkim0(o) (obj)((((o) & 0x3fffffff) << 2) | 3)
#define mkimm(o, t) (obj)((((o) & 0xffffff) << 8) | ((t) << 2) | 1)
#define FLONUMS_BOXED
#endif
#ifdef NDEBUG
   static int isnative(obj o, cxtype_t *tp) 
     { return isobjptr(o) && objptr_from_obj(o)[-1] == (obj)tp;  }
   #define getnative(o, t) ((void*)(*objptr_from_obj(o)))
#else
  extern int isnative(obj o, cxtype_t *tp);
  extern void *getnative(obj o, cxtype_t *tp);
#endif
extern int istagged(obj o, int t);
#ifdef NDEBUG
  #define cktagged(o, t) (o)
  #define taggedlen(o, t) (hblklen(o)-1) 
  #define taggedref(o, t, i) (&hblkref(o, (i)+1))
#else
  extern obj cktagged(obj o, int t);
  extern int taggedlen(obj o, int t);
  extern obj* taggedref(obj o, int t, int i); 
#endif
extern int istyped(obj o);
#ifdef NDEBUG
  #define cktyped(o, t) (o)
  #define typedtype(o) (&hblkref(o, 0))
  #define typedlen(o) (hblklen(o)-1) 
  #define typedref(o, i) (&hblkref(o, (i)+1))
#else
  extern obj cktyped(obj o);
  extern obj* typedtype(obj o); 
  extern int typedlen(obj o);
  extern obj* typedref(obj o, int i); 
#endif
/* booleans */
#define TRUE_ITAG 0
typedef int bool_t;
#define is_bool_obj(o) (!((o) & ~(obj)1))
#define is_bool_bool(b) ((void)(b), 1)
#define void_from_bool(b) (void)(b)
#define obj_from_bool(b) ((b) ? mkimm(0, TRUE_ITAG) : 0)
/* void */
#define VOID_ITAG 1
#define mkvoid() mkimm(0, VOID_ITAG)
#define isvoid(o) ((o) == mkimm(0, VOID_ITAG))
#undef obj_from_void
#define obj_from_void(v) ((void)(v), mkimm(0, VOID_ITAG))
/* unit */
#define obj_from_unit() (obj_from_size(0x6DF6F577))
/* numbers */
#define FIXNUM_BIT 30
#define FIXNUM_MIN -536870912
#define FIXNUM_MAX 536870911
#ifdef NDEBUG
#define fxneg(x) (-(x))
#define fxabs(x) (labs(x))
#define fxadd(x, y) ((x) + (y))
#define fxsub(x, y) ((x) - (y))
#define fxmul(x, y) ((x) * (y))
/* exact integer division */
#define fxdiv(x, y) ((x) / (y))  
/* truncated division (common/C99) */
#define fxquo(x, y) ((x) / (y))  
#define fxrem(x, y) ((x) % (y))
/* floor division */
static long fxmqu(long x, long y) {
  long q = x / y; return ((x < 0 && y > 0) || (x > 0 && y < 0)) ? q - 1 : q;
}
static long fxmlo(long x, long y) {
  long r = x % y; return ((r < 0 && y > 0) || (r > 0 && y < 0)) ? r + y : r;
}
/* euclidean division */
static long fxeuq(long x, long y) { 
  long q = x / y, r = x % y; return (r < 0) ? ((y > 0) ? q - 1 : q + 1) : q;
}
static long fxeur(long x, long y) {
  long r = x % y; return (r < 0) ? ((y > 0) ? r + y : r - y) : r;
} 
static long fxgcd(long x, long y) {
  long a = labs(x), b = labs(y), c; while (b) c = a%b, a = b, b = c; 
  return a;
} 
#define fxasl(x, y) ((x) << (y))
#define fxasr(x, y) ((x) >> (y))
#define fxflo(f) ((long)(f))
#else
extern long fxneg(long x);
extern long fxabs(long x);
extern long fxadd(long x, long y);
extern long fxsub(long x, long y);
extern long fxmul(long x, long y);
extern long fxdiv(long x, long y);
extern long fxquo(long x, long y);
extern long fxrem(long x, long y);
extern long fxmqu(long x, long y);
extern long fxmlo(long x, long y);
extern long fxeuq(long x, long y);
extern long fxeur(long x, long y);
extern long fxgcd(long x, long y);
extern long fxasl(long x, long y);
extern long fxasr(long x, long y);
extern long fxflo(double f);
#endif
static int flisint(double f) { return f > -HUGE_VAL && f < HUGE_VAL && f == floor(f); }
extern long fxpow(long x, long y);
extern long fxsqrt(long x);
extern int fxifdv(long x, long y, long *pi, double *pd);
extern double flquo(double x, double y);
extern double flrem(double x, double y);
extern double flmqu(double x, double y);
extern double flmlo(double x, double y);
extern double flgcd(double x, double y);
extern double flround(double x);
extern int strtofxfl(char *s, int radix, long *pl, double *pd);
/* fixnums */
typedef long fixnum_t;
#define is_fixnum_obj(o) (isim0(o))
#define is_fixnum_fixnum(i) ((void)(i), 1)
#define is_bool_fixnum(i) ((void)(i), 0)
#define is_fixnum_bool(i) ((void)(i), 0)
#define fixnum_from_obj(o) (getim0s(o))
#define fixnum_from_fixnum(i) (i)
#define fixnum_from_flonum(l,x) ((fixnum_t)(x))
#define bool_from_fixnum(i) ((void)(i), 1)
#define void_from_fixnum(i) (void)(i)
#define obj_from_fixnum(i) mkim0((fixnum_t)(i))
/* flonums */
#ifndef FLONUMS_BOXED
typedef double flonum_t;
#define is_flonum_obj(o) (((o) & 0xffff000000000000ULL) != 0ULL)
#define is_flonum_flonum(f) ((void)(f), 1)
#define is_flonum_bool(f) ((void)(f), 0)
#define is_bool_flonum(f) ((void)(f), 0)
#define is_fixnum_flonum(i) ((void)(i), 0)
#define is_flonum_fixnum(i) ((void)(i), 0)
#define flonum_from_flonum(l, f) (f)
#define flonum_from_fixnum(x) ((flonum_t)(x))
#define bool_from_flonum(f) ((void)(f), 0)
#define void_from_flonum(l, f) (void)(f)
union iod { cxoint_t i; double d; };
static double flonum_from_obj(obj o) { 
  union iod u; 
  assert(is_flonum_obj(o));
  u.i = ~o; 
  return u.d; 
}
static obj obj_from_flonum(int rc, double d) { 
  union iod u; 
  u.d = d; 
  assert(is_flonum_obj(~u.i));
  return ~u.i; 
}
#else /* FLONUMS_BOXED */
extern cxtype_t *FLONUM_NTAG;
typedef double flonum_t;
#define is_flonum_obj(o) (isnative(o, FLONUM_NTAG))
#define is_flonum_flonum(f) ((void)(f), 1)
#define is_flonum_bool(f) ((void)(f), 0)
#define is_bool_flonum(f) ((void)(f), 0)
#define is_fixnum_flonum(i) ((void)(i), 0)
#define is_flonum_fixnum(i) ((void)(i), 0)
#define flonum_from_obj(o) (*(flonum_t*)getnative(o, FLONUM_NTAG))
#define flonum_from_flonum(l, f) (f)
#define flonum_from_fixnum(x) ((flonum_t)(x))
#define bool_from_flonum(f) ((void)(f), 0)
#define void_from_flonum(l, f) (void)(f)
#define obj_from_flonum(l, f) hpushptr(dupflonum(f), FLONUM_NTAG, l)
extern flonum_t *dupflonum(flonum_t f);
#endif
/* characters */
#define CHAR_ITAG 2
typedef int char_t;
#define ischar(o) (isimm(o, CHAR_ITAG))
#define is_char_obj(o) (isimm(o, CHAR_ITAG))
#define is_char_char(i) ((void)(i), 1)
#define is_char_bool(i) ((void)(i), 0)
#define is_bool_char(i) ((void)(i), 0)
#define is_char_fixnum(i) ((void)(i), 0)
#define is_fixnum_char(i) ((void)(i), 0)
#define is_char_flonum(i) ((void)(i), 0)
#define is_flonum_char(i) ((void)(i), 0)
#define char_from_obj(o) ((int)getimmu(o, CHAR_ITAG))
#define char_from_char(i) (i)
#define bool_from_char(i) ((void)(i), 1)
#define void_from_char(i) (void)(i)
#define obj_from_char(i) mkimm(i, CHAR_ITAG)
/* strings */
extern cxtype_t *STRING_NTAG;
#define isstring(o) (isnative(o, STRING_NTAG))
#define stringdata(o) ((int*)getnative(o, STRING_NTAG))
#define sdatachars(d) ((char*)((d)+1))
#define stringlen(o) (*stringdata(o))
#define stringchars(o) ((char*)(stringdata(o)+1))
#define hpushstr(l, s) hpushptr(s, STRING_NTAG, l)
#ifdef NDEBUG
  #define stringref(o, i) (stringchars(o)+(i))
#else
  extern char* stringref(obj o, int i);
#endif
extern int *newstring(char *s);
extern int *newstringn(char *s, int n);
extern int *allocstring(int n, int c);
extern int *substring(int *d, int from, int to);
extern int *stringcat(int *d0, int *d1);
extern int *dupstring(int *d);
extern void stringfill(int *d, int c);
extern int strcmp_ci(char *s1, char *s2);
/* vectors */
#define VECTOR_BTAG 1
#define isvector(o) istagged(o, VECTOR_BTAG)
#define vectorref(v, i) *taggedref(v, VECTOR_BTAG, i)
#define vectorlen(v) taggedlen(v, VECTOR_BTAG)
/* bytevectors */
extern cxtype_t *BYTEVECTOR_NTAG;
#define isbytevector(o) (isnative(o, BYTEVECTOR_NTAG))
#define bytevectordata(o) ((int*)getnative(o, BYTEVECTOR_NTAG))
#define bvdatabytes(d) ((unsigned char*)((d)+1))
#define bytevectorlen(o) (*bytevectordata(o))
#define bytevectorbytes(o) (bvdatabytes(bytevectordata(o)))
#define hpushu8v(l, s) hpushptr(s, BYTEVECTOR_NTAG, l)
static int is_byte_obj(obj o) { return (obj_from_fixnum(0) <= o && o <= obj_from_fixnum(255)); } 
#define byte_from_obj(o) byte_from_fixnum(fixnum_from_obj(o))
#ifdef NDEBUG
  #define byte_from_fixnum(n) ((unsigned char)(n))
#else
  static unsigned char byte_from_fixnum(int n) { assert(0 <= n && n <= 255); return n; } 
#endif
#define byte_from_obj(o) byte_from_fixnum(fixnum_from_obj(o))
#ifdef NDEBUG
  #define bytevectorref(o, i) (bytevectorbytes(o)+(i))
#else
  extern unsigned char* bytevectorref(obj o, int i);
#endif
extern int *newbytevector(unsigned char *s, int n);
extern int *makebytevector(int n, int c);
extern int *allocbytevector(int n);
extern int *dupbytevector(int *d);
extern int bytevectoreq(int *d0, int *d1);
extern int *subbytevector(int *d, int from, int to);
/* boxes */
#define BOX_BTAG 2
#define isbox(o) istagged(o, BOX_BTAG)
#define boxref(o) *taggedref(o, BOX_BTAG, 0)
/* null */
#define NULL_ITAG 3
#define mknull() mkimm(0, NULL_ITAG)
#define isnull(o) ((o) == mkimm(0, NULL_ITAG))
/* pairs and lists */
#define PAIR_BTAG 3
#define ispair(o) istagged(o, PAIR_BTAG)
#define car(o) *taggedref(o, PAIR_BTAG, 0)
#define cdr(o) *taggedref(o, PAIR_BTAG, 1)
extern int islist(obj l);
/* symbols */
#define SYMBOL_ITAG 4
#define issymbol(o) (isimm(o, SYMBOL_ITAG))
#define mksymbol(i) mkimm(i, SYMBOL_ITAG)
#define getsymbol(o) getimmu(o, SYMBOL_ITAG)
extern char *symbolname(int sym);
extern int internsym(char *name);
/* records */
#define isrecord(o) istyped(o)
#define recordrtd(r) *typedtype(r)
#define recordlen(r) typedlen(r)
#define recordref(r, i) *typedref(r, i)
/* procedures */
extern int isprocedure(obj o);
extern int procedurelen(obj o);
extern obj* procedureref(obj o, int i);
/* apply and dotted lambda list */
extern obj appcases[];
/* eof */
#define EOF_ITAG 7
#define mkeof() mkimm(0, EOF_ITAG)
#define iseof(o) ((o) == mkimm(0, EOF_ITAG))
/* input ports */
typedef struct { /* extends cxtype_t */
  const char *tname;
  void (*free)(void*);
  int (*close)(void*);
  int (*getch)(void*);
  int (*ungetch)(int, void*);
} cxtype_iport_t;
extern cxtype_t *IPORT_CLOSED_NTAG;
extern cxtype_t *IPORT_FILE_NTAG;
extern cxtype_t *IPORT_STRING_NTAG;
extern cxtype_t *IPORT_BYTEVECTOR_NTAG;
static cxtype_iport_t *iportvt(obj o) { 
  cxtype_t *pt; if (!isobjptr(o)) return NULL;
  pt = (cxtype_t*)objptr_from_obj(o)[-1];
  if (pt != IPORT_CLOSED_NTAG && pt != IPORT_FILE_NTAG &&
      pt != IPORT_STRING_NTAG && pt != IPORT_BYTEVECTOR_NTAG) return NULL; 
  else return (cxtype_iport_t*)pt; }
#define ckiportvt(o) ((cxtype_iport_t*)cxm_cknull(iportvt(o), "iportvt"))
#define isiport(o) (iportvt(o) != NULL)
#define iportdata(o) ((void*)(*objptr_from_obj(o)))
static int iportgetc(obj o) {
  cxtype_iport_t *vt = iportvt(o); void *pp = iportdata(o);
  assert(vt); return vt->getch(pp);
}
static int iportpeekc(obj o) {
  cxtype_iport_t *vt = iportvt(o); void *pp = iportdata(o); int c;
  assert(vt); c = vt->getch(pp); if (c != EOF) vt->ungetch(c, pp); return c;
}
/* closed input ports */
#define mkiport_file(l, fp) hpushptr(fp, IPORT_FILE_NTAG, l)
/* string input ports */
typedef struct { char *p; void *base; } sifile_t;
extern sifile_t *sialloc(char *p, void *base);
#define mkiport_string(l, fp) hpushptr(fp, IPORT_STRING_NTAG, l)
/* bytevector input ports */
typedef struct { unsigned char *p, *e; void *base; } bvifile_t;
extern bvifile_t *bvialloc(unsigned char *p, unsigned char *e, void *base);
#define mkiport_bytevector(l, fp) hpushptr(fp, IPORT_BYTEVECTOR_NTAG, l)
/* output ports */
typedef struct { /* extends cxtype_t */
  const char *tname;
  void (*free)(void*);
  int (*close)(void*);
  int (*putch)(int, void*);
  int (*flush)(void*);
} cxtype_oport_t;
extern cxtype_t *OPORT_CLOSED_NTAG;
extern cxtype_t *OPORT_FILE_NTAG;
extern cxtype_t *OPORT_STRING_NTAG;
extern cxtype_t *OPORT_BYTEVECTOR_NTAG;
static cxtype_oport_t *oportvt(obj o) { 
  cxtype_t *pt; if (!isobjptr(o)) return NULL;
  pt = (cxtype_t*)objptr_from_obj(o)[-1];
  if (pt != OPORT_CLOSED_NTAG && pt != OPORT_FILE_NTAG && 
      pt != OPORT_STRING_NTAG && pt != OPORT_BYTEVECTOR_NTAG) return NULL; 
  else return (cxtype_oport_t*)pt; }
#define ckoportvt(o) ((cxtype_oport_t*)cxm_cknull(oportvt(o), "oportvt"))
#define isoport(o) (oportvt(o) != NULL)
#define oportdata(o) ((void*)(*objptr_from_obj(o)))
static void oportputc(int c, obj o) {
  cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o);
  assert(vt); vt->putch(c, pp);
}
static void oportputs(char *s, obj o) {
  cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o);
  assert(vt); while (*s) vt->putch(*s++, pp);
}
static void oportwrite(char *s, int n, obj o) {
  cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o);
  assert(vt); while (n-- > 0) vt->putch(*s++, pp);
}
static void oportflush(obj o) {
  cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o);
  assert(vt); vt->flush(pp);
}
/* closed output ports */
#define mkoport_file(l, fp) hpushptr(fp, OPORT_FILE_NTAG, l)
/* string output ports */
typedef struct cbuf_tag { char *buf; char *fill; char *end; } cbuf_t;
extern cbuf_t* newcb(void);
extern void freecb(cbuf_t* pcb);
extern int cbputc(int c, cbuf_t* pcb);
extern size_t cblen(cbuf_t* pcb);
extern char* cbdata(cbuf_t* pcb);
#define mkoport_string(l, fp) hpushptr(fp, OPORT_STRING_NTAG, l)
/* bytevector output ports */
#define mkoport_bytevector(l, fp) hpushptr(fp, OPORT_BYTEVECTOR_NTAG, l)
extern int iscircular(obj x);
extern int iseqv(obj x, obj y);
extern obj ismemv(obj x, obj l);
extern obj isassv(obj x, obj l);
extern int isequal(obj x, obj y);
extern obj ismember(obj x, obj l);
extern obj isassoc(obj x, obj l);
/* S-expression writers */
extern void oportputsimple(obj x, obj p, int disp);
extern void oportputcircular(obj x, obj p, int disp);
extern void oportputshared(obj x, obj p, int disp);
#include "i.h"

/* cx globals */
extern obj cx__25append; /* %append */
extern obj cx__25read; /* %read */
extern obj cx__25residual_2Dcadr; /* %residual-cadr */
extern obj cx__25residual_2Dcdr; /* %residual-cdr */
extern obj cx__25residual_2Dcons; /* %residual-cons */
extern obj cx__25residual_2Dlist; /* %residual-list */
extern obj cx__25residual_2Dmap; /* %residual-map */
extern obj cx__2Acurrent_2Derror_2Dport_2A; /* *current-error-port* */
extern obj cx__2Acurrent_2Dinput_2Dport_2A; /* *current-input-port* */
extern obj cx__2Acurrent_2Doutput_2Dport_2A; /* *current-output-port* */
extern obj cx_apply; /* apply */
extern obj cx_call_2Dwith_2Dcurrent_2Dcontinuation; /* call-with-current-continuation */
extern obj cx_close_2Dinput_2Dport; /* close-input-port */
extern obj cx_command_2Dline; /* command-line */
extern obj cx_error; /* error */
extern obj cx_file_2Derror; /* file-error */
extern obj cx_fixnum_2D_3Estring; /* fixnum->string */
extern obj cx_flonum_2D_3Estring; /* flonum->string */
extern obj cx_list_2D_3Estring; /* list->string */
extern obj cx_list_2D_3Evector; /* list->vector */
extern obj cx_string_2D_3Elist; /* string->list */
extern obj cx_vector_2D_3Elist; /* vector->list */
extern obj cx_write_2Dserialized_2Dsexp; /* write-serialized-sexp */
obj cx__25residual_2Dlocation_2Dset_2Dval_21; /* %residual-location-set-val! */
obj cx__25residual_2Dlocation_2Dval; /* %residual-location-val */
obj cx__25residual_2Dmake_2Dlocation; /* %residual-make-location */
obj cx__25residual_2Dtty_2Dport_3F; /* %residual-tty-port? */
obj cx__25residual_2Dval_2Dcore_3F; /* %residual-val-core? */
obj cx__2Acurrent_2Derror_2A; /* *current-error* */
obj cx__2Acurrent_2Dinput_2A; /* *current-input* */
obj cx__2Acurrent_2Doutput_2A; /* *current-output* */
obj cx__2Adynamic_2Dstate_2A; /* *dynamic-state* */
obj cx__2Aglobals_2A; /* *globals* */
obj cx__2Ahide_2Drefs_2A; /* *hide-refs* */
obj cx__2Areset_2A; /* *reset* */
obj cx__2Atop_2Dtransformer_2Denv_2A; /* *top-transformer-env* */
obj cx__2Atransformers_2A; /* *transformers* */
obj cx__2Averbose_2A; /* *verbose* */
obj cx_add_2Dlocation; /* add-location */
obj cx_add_2Dvar; /* add-var */
obj cx_andmap; /* andmap */
obj cx_benchmark_2Dfile; /* benchmark-file */
obj cx_c_2Derror; /* c-error */
obj cx_callmv_2Dadapter_2Dclosure; /* callmv-adapter-closure */
obj cx_codegen; /* codegen */
obj cx_compile_2Dto_2Dstring; /* compile-to-string */
obj cx_continuation_2Dadapter_2Dcode; /* continuation-adapter-code */
obj cx_debug_2Drepl; /* debug-repl */
obj cx_decode; /* decode */
obj cx_decode_2Dsexp; /* decode-sexp */
obj cx_display_2Dcode; /* display-code */
obj cx_error_2A; /* error* */
obj cx_evaluate; /* evaluate */
obj cx_execute; /* execute */
obj cx_execute_2Dthunk_2Dclosure; /* execute-thunk-closure */
obj cx_extend_2Dxenv; /* extend-xenv */
obj cx_find_2Dfree; /* find-free */
obj cx_find_2Dfree_2A; /* find-free* */
obj cx_find_2Dsets; /* find-sets */
obj cx_find_2Dsets_2A; /* find-sets* */
obj cx_flatten_2Didslist; /* flatten-idslist */
obj cx_gensym; /* gensym */
obj cx_id_2D_3Esym; /* id->sym */
obj cx_id_3F; /* id? */
obj cx_idslist_2Dreq_2Dcount; /* idslist-req-count */
obj cx_idslist_3F; /* idslist? */
obj cx_initialize_2Dmodules; /* initialize-modules */
obj cx_install_2Dglobal_2Dlambdas; /* install-global-lambdas */
obj cx_install_2Dtransformer_21; /* install-transformer! */
obj cx_integrable_2Dargc_2Dmatch_3F; /* integrable-argc-match? */
obj cx_integrable_2Dcode; /* integrable-code */
obj cx_integrable_2Dglobal; /* integrable-global */
obj cx_integrable_2Dtype; /* integrable-type */
obj cx_integrable_3F; /* integrable? */
obj cx_list_2Ddiff; /* list-diff */
obj cx_list1_2B_3F; /* list1+? */
obj cx_list1_3F; /* list1? */
obj cx_list2_2B_3F; /* list2+? */
obj cx_list2_3F; /* list2? */
obj cx_location_2Dspecial_3F; /* location-special? */
obj cx_lookup_2Dintegrable; /* lookup-integrable */
obj cx_main; /* main */
obj cx_make_2Dclosure; /* make-closure */
obj cx_module_2Dname; /* module-name */
obj cx_new_2Did; /* new-id */
obj cx_normalize_2Darity; /* normalize-arity */
obj cx_old_2Dden; /* old-den */
obj cx_old_2Dsym; /* old-sym */
obj cx_pair_2A; /* pair* */
obj cx_path_2Dstrip_2Ddirectory; /* path-strip-directory */
obj cx_path_2Dstrip_2Dextension; /* path-strip-extension */
obj cx_posq; /* posq */
obj cx_process_2Dalias; /* process-alias */
obj cx_process_2Dcommand; /* process-command */
obj cx_process_2Ddefine; /* process-define */
obj cx_process_2Dfile; /* process-file */
obj cx_process_2Dsyntax; /* process-syntax */
obj cx_process_2Dtop_2Dform; /* process-top-form */
obj cx_repl_2Deval; /* repl-eval */
obj cx_repl_2Deval_2Dtop_2Dform; /* repl-eval-top-form */
obj cx_repl_2Dfile; /* repl-file */
obj cx_repl_2Dfrom_2Dport; /* repl-from-port */
obj cx_repl_2Dread; /* repl-read */
obj cx_run_2Dtests; /* run-tests */
obj cx_scan_2Dtop_2Dform; /* scan-top-form */
obj cx_service_2Drepl; /* service-repl */
obj cx_set_2Dcons; /* set-cons */
obj cx_set_2Dintersect; /* set-intersect */
obj cx_set_2Dmember_3F; /* set-member? */
obj cx_set_2Dminus; /* set-minus */
obj cx_set_2Dunion; /* set-union */
obj cx_syntax_2Dmatch_3F; /* syntax-match? */
obj cx_syntax_2Drules_2A; /* syntax-rules* */
obj cx_tcode_2Drepl; /* tcode-repl */
obj cx_test1; /* test1 */
obj cx_test2; /* test2 */
obj cx_test3; /* test3 */
obj cx_test4; /* test4 */
obj cx_test5; /* test5 */
obj cx_top_2Dtransformer_2Denv; /* top-transformer-env */
obj cx_transform; /* transform */
obj cx_write_2Dserialized_2Darg; /* write-serialized-arg */
obj cx_write_2Dserialized_2Dbyte; /* write-serialized-byte */
obj cx_write_2Dserialized_2Dchar; /* write-serialized-char */
obj cx_write_2Dserialized_2Delement; /* write-serialized-element */
obj cx_write_2Dserialized_2Dsexp; /* write-serialized-sexp */
obj cx_write_2Dserialized_2Dsize; /* write-serialized-size */
obj cx_x_2Derror; /* x-error */
obj cx_xform; /* xform */
obj cx_xform_2Dbegin; /* xform-begin */
obj cx_xform_2Dbody; /* xform-body */
obj cx_xform_2Dcall; /* xform-call */
obj cx_xform_2Ddefine; /* xform-define */
obj cx_xform_2Ddefine_2Dsyntax; /* xform-define-syntax */
obj cx_xform_2Dif; /* xform-if */
obj cx_xform_2Dintegrable; /* xform-integrable */
obj cx_xform_2Dlabels; /* xform-labels */
obj cx_xform_2Dlambda; /* xform-lambda */
obj cx_xform_2Dlambda_2A; /* xform-lambda* */
obj cx_xform_2Dletcc; /* xform-letcc */
obj cx_xform_2Dquote; /* xform-quote */
obj cx_xform_2Dref; /* xform-ref */
obj cx_xform_2Dset_21; /* xform-set! */
obj cx_xform_2Dset_26; /* xform-set& */
obj cx_xform_2Dsexp_2D_3Edatum; /* xform-sexp->datum */
obj cx_xform_2Dsyntax_2Derror; /* xform-syntax-error */
obj cx_xform_2Dsyntax_2Dlambda; /* xform-syntax-lambda */
obj cx_xform_2Dsyntax_2Dlength; /* xform-syntax-length */
obj cx_xform_2Dsyntax_2Drules; /* xform-syntax-rules */
obj cx_xform_2Dwithcc; /* xform-withcc */
static obj cx__231051; /* constant #1051 */
static obj cx__231063; /* constant #1063 */
static obj cx__231135; /* constant #1135 */
static obj cx__231249; /* constant #1249 */
static obj cx__231257; /* constant #1257 */
static obj cx__231283; /* constant #1283 */
static obj cx__231303; /* constant #1303 */
static obj cx__231328; /* constant #1328 */
static obj cx__231770; /* constant #1770 */
static obj cx__231804; /* constant #1804 */
static obj cx__231839; /* constant #1839 */
static obj cx__231935; /* constant #1935 */
static obj cx__231956; /* constant #1956 */
static obj cx__232300; /* constant #2300 */
static obj cx__232607; /* constant #2607 */
static obj cx__232772; /* constant #2772 */
static obj cx__232910; /* constant #2910 */
static obj cx__232915; /* constant #2915 */
static obj cx__232919; /* constant #2919 */
static obj cx__232943; /* constant #2943 */
static obj cx__232944; /* constant #2944 */
static obj cx__232953; /* constant #2953 */
static obj cx__232954; /* constant #2954 */
static obj cx__232965; /* constant #2965 */
static obj cx__232988; /* constant #2988 */
static obj cx__233049; /* constant #3049 */
static obj cx__233053; /* constant #3053 */
static obj cx__233174; /* constant #3174 */
static obj cx__233210; /* constant #3210 */
static obj cx__233218; /* constant #3218 */
static obj cx__233219; /* constant #3219 */
static obj cx__233220; /* constant #3220 */
static obj cx__233221; /* constant #3221 */
static obj cx__233222; /* constant #3222 */
static obj cx__233245; /* constant #3245 */
static obj cx__233249; /* constant #3249 */
static obj cx__23334; /* constant #334 */
static obj cx__233519; /* constant #3519 */
static obj cx__233721; /* constant #3721 */
static obj cx__234123; /* constant #4123 */
static obj cx__234253; /* constant #4253 */
static obj cx__23428; /* constant #428 */
static obj cx__23441; /* constant #441 */
static obj cx__23450; /* constant #450 */
static obj cx__23460; /* constant #460 */
static obj cx__234663; /* constant #4663 */
static obj cx__234687; /* constant #4687 */
static obj cx__234688; /* constant #4688 */
static obj cx__23470; /* constant #470 */
static obj cx__234744; /* constant #4744 */
static obj cx__234751; /* constant #4751 */
static obj cx__234758; /* constant #4758 */
static obj cx__234760; /* constant #4760 */
static obj cx__234816; /* constant #4816 */
static obj cx__23483; /* constant #483 */
static obj cx__234847; /* constant #4847 */
static obj cx__234852; /* constant #4852 */
static obj cx__234853; /* constant #4853 */
static obj cx__234866; /* constant #4866 */
static obj cx__234872; /* constant #4872 */
static obj cx__234887; /* constant #4887 */
static obj cx__234893; /* constant #4893 */
static obj cx__234911; /* constant #4911 */
static obj cx__234915; /* constant #4915 */
static obj cx__234918; /* constant #4918 */
static obj cx__234924; /* constant #4924 */
static obj cx__234932; /* constant #4932 */
static obj cx__234940; /* constant #4940 */
static obj cx__23496; /* constant #496 */
static obj cx__23502; /* constant #502 */
static obj cx__23517; /* constant #517 */
static obj cx__23535; /* constant #535 */
static obj cx__23545; /* constant #545 */
static obj cx__23566; /* constant #566 */
static obj cx__23826; /* constant #826 */
static obj cx__23869; /* constant #869 */
static obj cx__23871; /* constant #871 */
static obj cx__23910; /* constant #910 */
static obj cx__23926; /* constant #926 */
static obj cx__23969; /* constant #969 */
static obj cx__23976; /* constant #976 */
static obj cx__2398; /* constant #98 */
static obj cx__23989; /* constant #989 */

/* helper functions */
/* set-member? */
static obj cxs_set_2Dmember_3F(obj v2_x, obj v1_s)
{ 
  s_set_2Dmember_3F:
  if ((isnull((v1_s)))) {
    return obj_from_bool(0);
  } else {
  if (((v2_x) == (car((v1_s))))) {
    return obj_from_bool(1);
  } else {
  { /* let */
    obj v5374_tmp = (cdr((v1_s)));
    obj v5373_tmp = (v2_x);
    /* tail call */
    v2_x = (v5373_tmp);
    v1_s = (v5374_tmp);
    goto s_set_2Dmember_3F;
  }
  }
  }
}

/* syntax-match? */
static obj cxs_syntax_2Dmatch_3F(obj v41_pat, obj v40_exp)
{ 
  s_syntax_2Dmatch_3F:
  if (((v41_pat) == (mksymbol(internsym("*"))))) {
    return obj_from_bool((v41_pat) == (mksymbol(internsym("*"))));
  } else {
  { /* let */
    obj v48_x = obj_from_bool(isequal((v40_exp), (v41_pat)));
  if (bool_from_obj(v48_x)) {
    return (v48_x);
  } else {
  if ((ispair((v41_pat)))) {
  { /* let */
    obj v5367_tmp;
  { /* let */
    obj v5371_tmp;
  { /* let */
    obj v5372_tmp;
    { static obj o = 0; static char s[] = { 36, 0 };
    v5372_tmp = (o ? o : (o = mksymbol(internsym(s)))); };
    v5371_tmp = obj_from_bool((car((v41_pat))) == (v5372_tmp));
  }
    v5367_tmp = (bool_from_obj(v5371_tmp) ? ((ispair((cdr((v41_pat))))) ? obj_from_bool(isnull((cdr((cdr((v41_pat))))))) : obj_from_bool(0)) : obj_from_bool(0));
  }
  if (bool_from_obj(v5367_tmp)) {
    return obj_from_bool((v40_exp) == (car((cdr((v41_pat))))));
  } else {
  if (bool_from_obj((ispair((cdr((v41_pat))))) ? (((car((cdr((v41_pat))))) == (mksymbol(internsym("...")))) ? obj_from_bool(isnull((cdr((cdr((v41_pat))))))) : obj_from_bool(0)) : obj_from_bool(0))) {
  { /* let */
    obj v56_pat = (car((v41_pat)));
  { /* letrec */
    obj v58_lst;
    /* tail call */
    v58_lst = (v40_exp);
    goto s_f;
  s_f:
  if ((isnull((v58_lst)))) {
    return obj_from_bool(isnull((v58_lst)));
  } else {
  if ((ispair((v58_lst)))) {
  if (bool_from_obj(cxs_syntax_2Dmatch_3F((v56_pat), (car((v58_lst)))))) {
  { /* let */
    obj v5370_tmp = (cdr((v58_lst)));
    /* tail call */
    v58_lst = (v5370_tmp);
    goto s_f;
  }
  } else {
    return obj_from_bool(0);
  }
  } else {
    return obj_from_bool(0);
  }
  }
  }
  }
  } else {
  if ((ispair((v40_exp)))) {
  if (bool_from_obj(cxs_syntax_2Dmatch_3F((car((v41_pat))), (car((v40_exp)))))) {
  { /* let */
    obj v5369_tmp = (cdr((v40_exp)));
    obj v5368_tmp = (cdr((v41_pat)));
    /* tail call */
    v41_pat = (v5368_tmp);
    v40_exp = (v5369_tmp);
    goto s_syntax_2Dmatch_3F;
  }
  } else {
    return obj_from_bool(0);
  }
  } else {
    return obj_from_bool(0);
  }
  }
  }
  }
  } else {
    return obj_from_bool(0);
  }
  }
  }
  }
}

/* posq */
static obj cxs_posq(obj v117_x, obj v116_l)
{ 
  { /* letrec */
    obj v120_l;
    obj v119_n;
  { /* let */
    obj v5366_tmp = obj_from_fixnum(+0);
    obj v5365_tmp = (v116_l);
    /* tail call */
    v120_l = (v5365_tmp);
    v119_n = (v5366_tmp);
    goto s_loop;
  }
  s_loop:
  if ((isnull((v120_l)))) {
    return obj_from_bool(0);
  } else {
  if (((v117_x) == (car((v120_l))))) {
    return (v119_n);
  } else {
  { /* let */
    obj v5364_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1)));
    obj v5363_tmp = (cdr((v120_l)));
    /* tail call */
    v120_l = (v5363_tmp);
    v119_n = (v5364_tmp);
    goto s_loop;
  }
  }
  }
  }
}

/* list1? */
static obj cxs_list1_3F(obj v163_x)
{ 
    return ((ispair((v163_x))) ? obj_from_bool(isnull((cdr((v163_x))))) : obj_from_bool(0));
}

/* list1+? */
static obj cxs_list1_2B_3F(obj v168_x)
{ 
    return ((ispair((v168_x))) ? obj_from_bool(islist((cdr((v168_x))))) : obj_from_bool(0));
}

/* list2? */
static obj cxs_list2_3F(obj v173_x)
{ 
    return ((ispair((v173_x))) ? (cxs_list1_3F((cdr((v173_x))))) : obj_from_bool(0));
}

/* list2+? */
static obj cxs_list2_2B_3F(obj v177_x)
{ 
    return ((ispair((v177_x))) ? (cxs_list1_2B_3F((cdr((v177_x))))) : obj_from_bool(0));
}

/* idslist-req-count */
static obj cxs_idslist_2Dreq_2Dcount(obj v237_ilist)
{ 
    return ((ispair((v237_ilist))) ? obj_from_fixnum(fxadd((+1), fixnum_from_obj(cxs_idslist_2Dreq_2Dcount((cdr((v237_ilist))))))) : obj_from_fixnum(+0));
}

/* id? */
static obj cxs_id_3F(obj v275_x)
{ 
    return ((issymbol((v275_x))) ? obj_from_bool(issymbol((v275_x))) : obj_from_bool(isprocedure((v275_x))));
}

/* gc roots */
static obj *globv[] = {
  &cx__2Acurrent_2Derror_2A,
  &cx__2Acurrent_2Dinput_2A,
  &cx__2Acurrent_2Doutput_2A,
  &cx__2Adynamic_2Dstate_2A,
  &cx__2Aglobals_2A,
  &cx__2Ahide_2Drefs_2A,
  &cx__2Areset_2A,
  &cx__2Atop_2Dtransformer_2Denv_2A,
  &cx__2Atransformers_2A,
  &cx__2Averbose_2A,
  &cx_c_2Derror,
  &cx_callmv_2Dadapter_2Dclosure,
  &cx_continuation_2Dadapter_2Dcode,
  &cx_decode,
  &cx_decode_2Dsexp,
  &cx_execute_2Dthunk_2Dclosure,
  &cx_gensym,
  &cx_initialize_2Dmodules,
  &cx_install_2Dglobal_2Dlambdas,
  &cx_integrable_2Dcode,
  &cx_integrable_2Dglobal,
  &cx_integrable_2Dtype,
  &cx_integrable_3F,
  &cx_lookup_2Dintegrable,
  &cx_make_2Dclosure,
  &cx_pair_2A,
  &cx_test1,
  &cx_test2,
  &cx_test3,
  &cx_test4,
  &cx_test5,
  &cx_transform,
  &cx_x_2Derror,
  &cx__231051,
  &cx__231063,
  &cx__231135,
  &cx__231249,
  &cx__231257,
  &cx__231283,
  &cx__231303,
  &cx__231328,
  &cx__231770,
  &cx__231804,
  &cx__231839,
  &cx__231935,
  &cx__231956,
  &cx__232300,
  &cx__232607,
  &cx__232772,
  &cx__232910,
  &cx__232915,
  &cx__232919,
  &cx__232943,
  &cx__232944,
  &cx__232953,
  &cx__232954,
  &cx__232965,
  &cx__232988,
  &cx__233049,
  &cx__233053,
  &cx__233174,
  &cx__233210,
  &cx__233218,
  &cx__233219,
  &cx__233220,
  &cx__233221,
  &cx__233222,
  &cx__233245,
  &cx__233249,
  &cx__23334,
  &cx__233519,
  &cx__233721,
  &cx__234123,
  &cx__234253,
  &cx__23428,
  &cx__23441,
  &cx__23450,
  &cx__23460,
  &cx__234663,
  &cx__234687,
  &cx__234688,
  &cx__23470,
  &cx__234744,
  &cx__234751,
  &cx__234758,
  &cx__234760,
  &cx__234816,
  &cx__23483,
  &cx__234847,
  &cx__234852,
  &cx__234853,
  &cx__234866,
  &cx__234872,
  &cx__234887,
  &cx__234893,
  &cx__234911,
  &cx__234915,
  &cx__234918,
  &cx__234924,
  &cx__234932,
  &cx__234940,
  &cx__23496,
  &cx__23502,
  &cx__23517,
  &cx__23535,
  &cx__23545,
  &cx__23566,
  &cx__23826,
  &cx__23869,
  &cx__23871,
  &cx__23910,
  &cx__23926,
  &cx__23969,
  &cx__23976,
  &cx__2398,
  &cx__23989,
};

static cxroot_t root = {
  sizeof(globv)/sizeof(obj *), globv, NULL
};

/* entry points */
static obj host(obj);
static obj cases[588] = {
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,  (obj)host,  (obj)host,
  (obj)host,  (obj)host,  (obj)host,
};

/* host procedure */
#define MAX_HOSTREGS 52
static obj host(obj pc)
{
  register obj *r = cxg_regs;
  register obj *hp = cxg_hp;
  register int rc = cxg_rc;
  rreserve(MAX_HOSTREGS); 
jump: 
  switch (case_from_obj(pc)) {

case 0: /* load module */
    cx__2398 = (hpushstr(0, newstring("#")));
    cx__23334 = (hpushstr(0, newstring("transformer: ")));
    cx__23428 = (hpushstr(0, newstring("improper use of syntax form")));
    cx__23441 = (hpushstr(0, newstring("improper use of ...")));
    cx__23450 = (hpushstr(0, newstring("improper quote form")));
    cx__23460 = (hpushstr(0, newstring("improper set! form")));
    cx__23470 = (hpushstr(0, newstring("set! to non-identifier form")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("begin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__23483 = (hendblk(3)); }
    cx__23496 = (hpushstr(0, newstring("improper set& form")));
    cx__23502 = (hpushstr(0, newstring("set& of a non-variable")));
    cx__23517 = (hpushstr(0, newstring("improper if form")));
    cx__23535 = (hpushstr(0, newstring("malformed if form")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("begin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__23545 = (hendblk(3)); }
    cx__23566 = (hpushstr(0, newstring("improper application")));
    cx__23826 = (hpushstr(0, newstring("improper lambda body")));
    cx__23869 = (hpushstr(0, newstring("improper lambda* form")));
    cx__23871 = (hpushstr(0, newstring("improper lambda* clause")));
    cx__23910 = (hpushstr(0, newstring("improper letcc form")));
    cx__23926 = (hpushstr(0, newstring("improper withcc form")));
    cx__23969 = (hpushstr(0, newstring("improper define-syntax form")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("undefined")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__23976 = (hendblk(3)); }
    cx__23989 = (hpushstr(0, newstring("improper define form")));
    cx__231051 = (hpushstr(0, newstring("improper begin form")));
    cx__231063 = (hpushstr(0, newstring("improper body form")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("begin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__231135 = (hendblk(3)); }
    cx__231249 = (hpushstr(0, newstring("improper syntax-lambda body")));
    cx__231257 = (hpushstr(0, newstring("invalif syntax-lambda application")));
    cx__231283 = (hpushstr(0, newstring("improper syntax-rules form")));
    cx__231303 = (hpushstr(0, newstring("improper syntax-length form")));
    cx__231328 = (hpushstr(0, newstring("improper syntax-error form")));
    cx__231770 = (hpushstr(0, newstring("invalid syntax")));
    cx__231804 = (hpushstr(0, newstring("compiler: ")));
    cx__231839 = (hpushstr(0, newstring("cannot encode literal")));
    cx__231935 = (hpushstr(0, newstring("0123456789")));
    cx__231956 = (hpushstr(0, newstring("misplaced define form")));
    cx__232300 = (hpushstr(0, newstring("unsupported integrable type")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("ref")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__232607 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("begin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__232772 = (hendblk(3)); }
    { static char s[] = { 34, 10, 0 };
    cx__232910 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 32, 32, 34, 0 };
    cx__232915 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 34, 44, 0 };
    cx__232919 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 34, 44, 10, 0 };
    cx__232943 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 32, 32, 34, 83, 34, 44, 32, 34, 0 };
    cx__232944 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 32, 34, 0 };
    cx__232953 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 32, 32, 34, 65, 34, 44, 32, 34, 0 };
    cx__232954 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 32, 32, 34, 67, 34, 44, 32, 48, 44, 10, 0 };
    cx__232965 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 32, 32, 34, 80, 34, 44, 32, 34, 0 };
    cx__232988 = (hpushstr(0, newstring(s))); }
    cx__233049 = (hpushstr(0, newstring("r")));
    cx__233053 = (hpushstr(0, newstring("cannot open input file")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = obj_from_char(':');
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_char('/');
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_char(92);
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__233174 = (hendblk(3)); }
    { static char s[] = { 10, 32, 32, 48, 44, 32, 48, 44, 32, 48, 10, 125, 59, 10, 0 };
    cx__233210 = (hpushstr(0, newstring(s))); }
    cx__233218 = (hpushstr(0, newstring("_code[] = {")));
    cx__233219 = (hpushstr(0, newstring("char *")));
    cx__233220 = (hpushstr(0, newstring(" */")));
    cx__233221 = (hpushstr(0, newstring(".c -- generated via skint -c ")));
    cx__233222 = (hpushstr(0, newstring("/* ")));
    cx__233245 = (hpushstr(0, newstring("K5")));
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("string<?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    r[1] = (hpushstr(1, newstring("twelve")));
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    r[2] = (hpushstr(2, newstring("eleven")));
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    r[2] = (hpushstr(2, newstring("ten")));
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    r[2] = (hpushstr(2, newstring("nine")));
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    r[2] = (hpushstr(2, newstring("eight")));
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    r[2] = (hpushstr(2, newstring("seven")));
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    r[2] = (hpushstr(2, newstring("six")));
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    r[2] = (hpushstr(2, newstring("five")));
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    r[2] = (hpushstr(2, newstring("four")));
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    r[2] = (hpushstr(2, newstring("three")));
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    r[2] = (hpushstr(2, newstring("two")));
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    r[2] = (hpushstr(2, newstring("one")));
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("sort-list")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("obj")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("loop")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("two")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("one")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("cdr")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("merge")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("one")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("car")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("cons")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("else")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("one")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("two")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("cdr")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("merge")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("two")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("car")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("cons")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("one")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("car")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("two")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = (mksymbol(internsym("car")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("pred")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("two")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("one")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("null?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("cond")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("two")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("one")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("merge")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("two")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("loop")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("one")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("loop")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("merge")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("one")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("l")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("car")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("cons")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("two")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("l")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("cdr")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("split")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("l")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("pair?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("two")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("one")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("l")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("split")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("l")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mknull());
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mknull());
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("l")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("split")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("l")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("cdr")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("pair?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("l")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("pair?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("and")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("l")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("loop")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("pred")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("obj")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("sort-list")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mknull());
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("let")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__233249 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+10);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("runtak")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("v")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("v")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("r")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("+")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("-")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("loop")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("s")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("-")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+12);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_fixnum(+18);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("tak")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("v")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("let")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("r")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("=")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+7);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("s")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("r")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("r")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("loop")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("let")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("r")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("runtak")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("z")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("z")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("-")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("tak")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("z")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("-")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("tak")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("z")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("-")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("tak")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("tak")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("<")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("z")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("tak")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mknull());
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("let")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__233519 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+10);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("run-test")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+84);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("v")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("-")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("nqueens")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("-")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("loop")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("else")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("v")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("zero?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("cond")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+92);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("v")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("count")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("loop")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("let")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("count")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("run-test")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mknull());
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mknull());
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("one-to")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("try-it")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("placed")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("cdr")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("dist")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("+")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("row")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("ok?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("dist")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("row")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("-")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("placed")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("car")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("=")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("not")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("dist")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("row")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("+")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("placed")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("car")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("=")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("not")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("and")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_bool(1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("placed")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("null?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("placed")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("dist")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("row")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("ok?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("z")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("car")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("cons")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("cdr")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("try-it")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("z")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = (mksymbol(internsym("car")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("cons")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = (mknull());
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = (mksymbol(internsym("cdr")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = (mksymbol(internsym("append")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("try-it")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("z")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = (mksymbol(internsym("car")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("ok?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("+")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("null?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("null?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("z")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("try-it")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("l")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("i")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("cons")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("i")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("-")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("loop")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("else")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("l")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("i")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("zero?")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("cond")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mknull());
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("l")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("i")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("loop")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("let")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("one-to")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("nqueens")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mknull());
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("let")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__233721 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+10);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("fakt")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("-")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("self")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("=")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("self")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("fakt")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("f")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("call/cc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("call/cc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("call/cc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("e")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("f")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("call/cc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("call/cc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("e")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mknull());
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("let")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__234123 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mknull());
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("l")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("cons")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("r")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("cons")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("i")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("cons")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("cons")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+10);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("faktl")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("l")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+10);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("faktr")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("r")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+10);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("fakti")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("i")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+10);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("fakty")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("let")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("-")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("self")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("self")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("=")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("self")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("self")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("self")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("self")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("faktl")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("-")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("faktr")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("=")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("faktr")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("-")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("loop")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("=")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("n")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("loop")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("let")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("fakti")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("-")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("self")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("=")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("self")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("fakty")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("f")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("call/cc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("call/cc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("call/cc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("x")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("e")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("f")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("call/cc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("call/cc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("e")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[2] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("y")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mknull());
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("let")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__234253 = (hendblk(3)); }
    cx__234663 = (hpushstr(0, newstring(" ms.")));
    cx__234687 = (hpushstr(0, newstring("Elapsed time: ")));
    cx__234688 = (hpushstr(0, newstring("Running tests ...")));
    cx__234744 = (hpushstr(0, newstring("DECODE+EXECUTE =>")));
    cx__234751 = (hpushstr(0, newstring("COMPILE-TO-STRING =>")));
    cx__234758 = (hpushstr(0, newstring("unexpected transformed output")));
    cx__234760 = (hpushstr(0, newstring("TRANSFORM =>")));
    { static char s[] = { 10, 115, 101, 114, 118, 105, 99, 101, 62, 32, 0 };
    cx__234816 = (hpushstr(0, newstring(s))); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("main")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__234847 = (hendblk(3)); }
    cx__234852 = (hpushstr(0, newstring("unexpected benchmark file format")));
    r[0] = (hpushstr(0, newstring("libl.sf")));
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = (mksymbol(internsym("load")));
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__234853 = (hendblk(3)); }
    { static char s[] = { 36, 123, 64, 40, 121, 52, 58, 114, 101, 112, 108, 41, 91, 48, 48, 125, 0 };
    cx__234866 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 73, 110, 118, 97, 108, 105, 100, 32, 99, 111, 109, 109, 97, 110, 100, 46, 32, 32, 84, 121, 112, 101, 32, 63, 32, 102, 111, 114, 32, 111, 112, 116, 105, 111, 110, 115, 46, 10, 0 };
    cx__234872 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 10, 84, 121, 112, 101, 32, 114, 32, 116, 111, 32, 103, 101, 116, 32, 98, 97, 99, 107, 32, 116, 111, 32, 114, 101, 112, 108, 10, 32, 32, 32, 32, 32, 97, 32, 116, 111, 32, 97, 98, 111, 114, 116, 32, 115, 99, 104, 101, 109, 101, 10, 32, 32, 32, 32, 32, 115, 32, 116, 111, 32, 114, 117, 110, 32, 115, 101, 114, 118, 105, 99, 101, 32, 114, 101, 112, 108, 10, 0 };
    cx__234887 = (hpushstr(0, newstring(s))); }
    { static char s[] = { 10, 100, 101, 98, 117, 103, 62, 32, 0 };
    cx__234893 = (hpushstr(0, newstring(s))); }
    r[0] = (hpushstr(0, newstring("-i")));
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__234911 = (hendblk(3)); }
    r[0] = (hpushstr(0, newstring("-v")));
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__234915 = (hendblk(3)); }
    r[0] = (hpushstr(0, newstring("-t")));
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__234918 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    r[1] = (hpushstr(1, newstring("-b")));
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__234924 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    r[1] = (hpushstr(1, newstring("-l")));
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__234932 = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    r[1] = (hpushstr(1, newstring("-c")));
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__234940 = (hendblk(3)); }
    { static obj c[] = { obj_from_case(1) }; cx_set_2Dmember_3F = (obj)c; }
    { static obj c[] = { obj_from_case(2) }; cx_set_2Dcons = (obj)c; }
    { static obj c[] = { obj_from_case(3) }; cx_set_2Dunion = (obj)c; }
    { static obj c[] = { obj_from_case(5) }; cx_set_2Dminus = (obj)c; }
    { static obj c[] = { obj_from_case(7) }; cx_set_2Dintersect = (obj)c; }
    { static obj c[] = { obj_from_case(9) }; cx_syntax_2Dmatch_3F = (obj)c; }
    hreserve(hbsz(1), 0); /* 0 live regs */
    *--hp = obj_from_fixnum(+0);
    r[0] = (hendblk(1));
    hreserve(hbsz(1+1), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(10);
    r[1] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    cx_gensym = (hendblk(3)); }
    { static obj c[] = { obj_from_case(13) }; cx_posq = (obj)c; }
    { static obj c[] = { obj_from_case(14) }; cx_list_2Ddiff = (obj)c; }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(16);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx_pair_2A = (hendblk(3)); }
    { static obj c[] = { obj_from_case(18) }; cx_andmap = (obj)c; }
    { static obj c[] = { obj_from_case(20) }; cx_list1_3F = (obj)c; }
    { static obj c[] = { obj_from_case(21) }; cx_list1_2B_3F = (obj)c; }
    { static obj c[] = { obj_from_case(22) }; cx_list2_3F = (obj)c; }
    { static obj c[] = { obj_from_case(23) }; cx_list2_2B_3F = (obj)c; }
    { /* define integrable? */
    static obj c[] = { obj_from_objptr(vmcases+8) };
    cx_integrable_3F = obj_from_objptr(c); }
    { /* define lookup-integrable */
    static obj c[] = { obj_from_objptr(vmcases+9) };
    cx_lookup_2Dintegrable = obj_from_objptr(c); }
    { /* define integrable-type */
    static obj c[] = { obj_from_objptr(vmcases+10) };
    cx_integrable_2Dtype = obj_from_objptr(c); }
    { /* define integrable-global */
    static obj c[] = { obj_from_objptr(vmcases+11) };
    cx_integrable_2Dglobal = obj_from_objptr(c); }
    { /* define integrable-code */
    static obj c[] = { obj_from_objptr(vmcases+12) };
    cx_integrable_2Dcode = obj_from_objptr(c); }
    { static obj c[] = { obj_from_case(24) }; cx_idslist_3F = (obj)c; }
    { static obj c[] = { obj_from_case(25) }; cx_normalize_2Darity = (obj)c; }
    { static obj c[] = { obj_from_case(26) }; cx_flatten_2Didslist = (obj)c; }
    { static obj c[] = { obj_from_case(27) }; cx_idslist_2Dreq_2Dcount = (obj)c; }
    { static obj c[] = { obj_from_case(28) }; cx__25residual_2Dval_2Dcore_3F = (obj)c; }
    { static obj c[] = { obj_from_case(29) }; cx__25residual_2Dmake_2Dlocation = (obj)c; }
    { static obj c[] = { obj_from_case(30) }; cx__25residual_2Dlocation_2Dval = (obj)c; }
    { static obj c[] = { obj_from_case(31) }; cx__25residual_2Dlocation_2Dset_2Dval_21 = (obj)c; }
    { static obj c[] = { obj_from_case(32) }; cx_location_2Dspecial_3F = (obj)c; }
    { static obj c[] = { obj_from_case(33) }; cx_new_2Did = (obj)c; }
    { static obj c[] = { obj_from_case(35) }; cx_old_2Dsym = (obj)c; }
    { static obj c[] = { obj_from_case(37) }; cx_old_2Dden = (obj)c; }
    { static obj c[] = { obj_from_case(39) }; cx_id_3F = (obj)c; }
    { static obj c[] = { obj_from_case(40) }; cx_id_2D_3Esym = (obj)c; }
    { static obj c[] = { obj_from_case(42) }; cx_extend_2Dxenv = (obj)c; }
    { static obj c[] = { obj_from_case(44) }; cx_add_2Dlocation = (obj)c; }
    { static obj c[] = { obj_from_case(45) }; cx_add_2Dvar = (obj)c; }
    { static obj c[] = { obj_from_case(46) }; cx_xform_2Dsexp_2D_3Edatum = (obj)c; }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(54);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx_x_2Derror = (hendblk(3)); }
    { static obj c[] = { obj_from_case(55) }; cx_xform = (obj)c; }
    { static obj c[] = { obj_from_case(63) }; cx_xform_2Dref = (obj)c; }
    { static obj c[] = { obj_from_case(65) }; cx_xform_2Dquote = (obj)c; }
    { static obj c[] = { obj_from_case(67) }; cx_xform_2Dset_21 = (obj)c; }
    { static obj c[] = { obj_from_case(70) }; cx_xform_2Dset_26 = (obj)c; }
    { static obj c[] = { obj_from_case(72) }; cx_xform_2Dif = (obj)c; }
    { static obj c[] = { obj_from_case(77) }; cx_xform_2Dcall = (obj)c; }
    { static obj c[] = { obj_from_case(81) }; cx_integrable_2Dargc_2Dmatch_3F = (obj)c; }
    { static obj c[] = { obj_from_case(82) }; cx_xform_2Dintegrable = (obj)c; }
    { static obj c[] = { obj_from_case(89) }; cx_xform_2Dlambda = (obj)c; }
    { static obj c[] = { obj_from_case(101) }; cx_xform_2Dlambda_2A = (obj)c; }
    { static obj c[] = { obj_from_case(108) }; cx_xform_2Dletcc = (obj)c; }
    { static obj c[] = { obj_from_case(113) }; cx_xform_2Dwithcc = (obj)c; }
    { static obj c[] = { obj_from_case(116) }; cx_xform_2Dbody = (obj)c; }
    { static obj c[] = { obj_from_case(130) }; cx_xform_2Dlabels = (obj)c; }
    { static obj c[] = { obj_from_case(142) }; cx_xform_2Dbegin = (obj)c; }
    { static obj c[] = { obj_from_case(146) }; cx_xform_2Ddefine = (obj)c; }
    { static obj c[] = { obj_from_case(152) }; cx_xform_2Ddefine_2Dsyntax = (obj)c; }
    { static obj c[] = { obj_from_case(155) }; cx_xform_2Dsyntax_2Dlambda = (obj)c; }
    { static obj c[] = { obj_from_case(163) }; cx_xform_2Dsyntax_2Drules = (obj)c; }
    { static obj c[] = { obj_from_case(168) }; cx_xform_2Dsyntax_2Dlength = (obj)c; }
    { static obj c[] = { obj_from_case(169) }; cx_xform_2Dsyntax_2Derror = (obj)c; }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mksymbol(internsym("...")));
    *--hp = (mksymbol(internsym("...")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mknull());
    *--hp = r[0];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("import")));
    *--hp = (mksymbol(internsym("import")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("define-library")));
    *--hp = (mksymbol(internsym("define-library")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("syntax-error")));
    *--hp = (mksymbol(internsym("syntax-error")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("syntax-length")));
    *--hp = (mksymbol(internsym("syntax-length")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("syntax-rules")));
    *--hp = (mksymbol(internsym("syntax-rules")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("syntax-lambda")));
    *--hp = (mksymbol(internsym("syntax-lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("define-syntax")));
    *--hp = (mksymbol(internsym("define-syntax")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("define")));
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("begin")));
    *--hp = (mksymbol(internsym("begin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("body")));
    *--hp = (mksymbol(internsym("body")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("withcc")));
    *--hp = (mksymbol(internsym("withcc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("letcc")));
    *--hp = (mksymbol(internsym("letcc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("lambda*")));
    *--hp = (mksymbol(internsym("lambda*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("if")));
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("set&")));
    *--hp = (mksymbol(internsym("set&")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("set!")));
    *--hp = (mksymbol(internsym("set!")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("quote")));
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[0] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = (mksymbol(internsym("syntax-quote")));
    *--hp = (mksymbol(internsym("syntax-quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[1] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2Atransformers_2A = (hendblk(3)); }
    cx__2Atop_2Dtransformer_2Denv_2A = obj_from_bool(0);
    { static obj c[] = { obj_from_case(173) }; cx_top_2Dtransformer_2Denv = (obj)c; }
    { static obj c[] = { obj_from_case(181) }; cx_install_2Dtransformer_21 = (obj)c; }
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(183);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+2);
    *--hp = obj_from_objptr(appcases+1);
    cx_transform = (hendblk(3)); }
    { static obj c[] = { obj_from_case(184) }; cx_syntax_2Drules_2A = (obj)c; }
    { /* make-vector */
    obj o; int i = 0, c = (+991);
    hreserve(hbsz(c+1), 0); /* 0 live regs */
    o = (mknull()); /* gc-safe */
    while (i++ < c) *--hp = o;
    *--hp = obj_from_size(VECTOR_BTAG);
    cx__2Aglobals_2A = (hendblk(c+1)); }
    { /* cons */ 
    hreserve(hbsz(3), 0); /* 0 live regs */
    *--hp = (mknull());
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2Adynamic_2Dstate_2A = (hendblk(3)); }
    cx__2Acurrent_2Dinput_2A = obj_from_bool(0);
    cx__2Acurrent_2Doutput_2A = obj_from_bool(0);
    cx__2Acurrent_2Derror_2A = obj_from_bool(0);
    hreserve(hbsz(0+1), 0); /* 0 live regs */
    *--hp = obj_from_case(245);
    r[0] = (hendblk(0+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 1); /* 1 live regs */
    *--hp = r[0];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    cx_c_2Derror = (hendblk(3)); }
    { static obj c[] = { obj_from_case(246) }; cx_write_2Dserialized_2Dchar = (obj)c; }
    { static obj c[] = { obj_from_case(248) }; cx_write_2Dserialized_2Dbyte = (obj)c; }
    { static obj c[] = { obj_from_case(250) }; cx_write_2Dserialized_2Dsize = (obj)c; }
    { static obj c[] = { obj_from_case(252) }; cx_write_2Dserialized_2Delement = (obj)c; }
    { static obj c[] = { obj_from_case(254) }; cx_write_2Dserialized_2Dsexp = (obj)c; }
    { static obj c[] = { obj_from_case(274) }; cx_write_2Dserialized_2Darg = (obj)c; }
    { static obj c[] = { obj_from_case(276) }; cx_find_2Dfree_2A = (obj)c; }
    { static obj c[] = { obj_from_case(279) }; cx_find_2Dfree = (obj)c; }
    { static obj c[] = { obj_from_case(308) }; cx_find_2Dsets_2A = (obj)c; }
    { static obj c[] = { obj_from_case(311) }; cx_find_2Dsets = (obj)c; }
    { static obj c[] = { obj_from_case(340) }; cx_codegen = (obj)c; }
    { static obj c[] = { obj_from_case(454) }; cx_compile_2Dto_2Dstring = (obj)c; }
    { /* define execute-thunk-closure */
    static obj c[] = { obj_from_objptr(vmcases+0) }; 
    cx_execute_2Dthunk_2Dclosure = obj_from_objptr(c); }
    { /* define make-closure */
    static obj c[] = { obj_from_objptr(vmcases+1) };
    cx_make_2Dclosure = obj_from_objptr(c); }
    { static obj c[] = { obj_from_case(457) }; cx_execute = (obj)c; }
    { /* define decode-sexp */
    static obj c[] = { obj_from_objptr(vmcases+2) };
    cx_decode_2Dsexp = obj_from_objptr(c); }
    { /* define decode */
    static obj c[] = { obj_from_objptr(vmcases+3) };
    cx_decode = obj_from_objptr(c); }
    { static obj c[] = { obj_from_case(459) }; cx_evaluate = (obj)c; }
    cx__2Ahide_2Drefs_2A = (mknull());
    { static obj c[] = { obj_from_case(464) }; cx_display_2Dcode = (obj)c; }
    { static obj c[] = { obj_from_case(465) }; cx_process_2Dsyntax = (obj)c; }
    { static obj c[] = { obj_from_case(468) }; cx_process_2Dalias = (obj)c; }
    { static obj c[] = { obj_from_case(469) }; cx_process_2Dcommand = (obj)c; }
    { static obj c[] = { obj_from_case(473) }; cx_process_2Ddefine = (obj)c; }
    { static obj c[] = { obj_from_case(480) }; cx_scan_2Dtop_2Dform = (obj)c; }
    { static obj c[] = { obj_from_case(493) }; cx_process_2Dtop_2Dform = (obj)c; }
    { static obj c[] = { obj_from_case(517) }; cx_path_2Dstrip_2Ddirectory = (obj)c; }
    { static obj c[] = { obj_from_case(519) }; cx_path_2Dstrip_2Dextension = (obj)c; }
    { static obj c[] = { obj_from_case(521) }; cx_module_2Dname = (obj)c; }
    { static obj c[] = { obj_from_case(523) }; cx_process_2Dfile = (obj)c; }
    cx_continuation_2Dadapter_2Dcode = obj_from_bool(0);
    { /* define decode */
    static obj c[] = { obj_from_objptr(vmcases+3) };
    r[0] = obj_from_objptr(c); }
    hreserve(hbsz(0+1), 1); /* 1 live regs */
    *--hp = obj_from_case(532);
    r[1] = (hendblk(0+1));
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[1];  
    r[2+2] = (cx__233245);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 1: /* set-member? k x s */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x s */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs_set_2Dmember_3F((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 2: /* set-cons k x s */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_set_2Dcons: /* k x s */
  if (bool_from_obj(cxs_set_2Dmember_3F((r[1]), (r[2])))) {
    r[3] = r[2];  
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 3: /* set-union k s1 s2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_set_2Dunion: /* k s1 s2 */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(4);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = (car((r[1])));
    /* r[2] */    
    goto gs_set_2Dcons;
  }

case 4: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r s1 k */
    r[4+0] = r[3];  
    r[4+1] = (cdr((r[2])));
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dunion;

case 5: /* set-minus k s1 s2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_set_2Dminus: /* k s1 s2 */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = (cxs_set_2Dmember_3F((r[3]), (r[2])));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    r[1] = (cdr((r[1])));
    /* r[2] */    
    goto gs_set_2Dminus;
  } else {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(6);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = (cdr((r[1])));
    /* r[2] */    
    goto gs_set_2Dminus;
  }
  }

case 6: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k s1 */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = (car((r[3])));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 7: /* set-intersect k s1 s2 */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_set_2Dintersect: /* k s1 s2 */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = (cxs_set_2Dmember_3F((r[3]), (r[2])));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(8);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = (cdr((r[1])));
    /* r[2] */    
    goto gs_set_2Dintersect;
  } else {
    /* r[0] */    
    r[1] = (cdr((r[1])));
    /* r[2] */    
    goto gs_set_2Dintersect;
  }
  }

case 8: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k s1 */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = (car((r[3])));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 9: /* syntax-match? k pat exp */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k pat exp */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs_syntax_2Dmatch_3F((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 10: /* clo k args */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k args gsc */
    r[3] = (objptr_from_obj(r[2])[0]);
    r[3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
    (void)(objptr_from_obj(r[2])[0] = (r[3]));
  if ((isnull((r[1])))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(11);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_fixnum_2D_3Estring);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (objptr_from_obj(r[2])[0]);
    r[4+3] = obj_from_fixnum(+10);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(issymbol((r[3])));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(12);
    r[3] = (hendblk(2+1));
    r[4+0] = (cx_fixnum_2D_3Estring);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (objptr_from_obj(r[2])[0]);
    r[4+3] = obj_from_fixnum(+10);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (objptr_from_obj(r[2])[0] = obj_from_fixnum(+0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 11: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { /* string-append */
    int *d = stringcat(stringdata((cx__2398)), stringdata((r[1])));
    r[3] = (hpushstr(3, d)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mksymbol(internsym(stringchars((r[3])))));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 12: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k args */
    { /* string-append */
    int *d = stringcat(stringdata((cx__2398)), stringdata((r[1])));
    r[4] = (hpushstr(4, d)); }
    r[5] = (car((r[3])));
    r[5] = (hpushstr(6, newstring(symbolname(getsymbol((r[5]))))));
    { /* string-append */
    int *d = stringcat(stringdata((r[5])), stringdata((r[4])));
    r[5] = (hpushstr(6, d)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mksymbol(internsym(stringchars((r[5])))));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 13: /* posq k x l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x l */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cxs_posq((r[1]), (r[2])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 14: /* list-diff k l t */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_list_2Ddiff: /* k l t */
  if (((isnull((r[1]))) || ((r[1]) == (r[2])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(15);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = (cdr((r[1])));
    /* r[2] */    
    goto gs_list_2Ddiff;
  }

case 15: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k l */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = (car((r[3])));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 16: /* clo k x more */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x more */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto s_loop;

s_loop: /* k x rest */
  if ((isnull((r[2])))) {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[2])));
    r[4] = (cdr((r[2])));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(17);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop;
  }

case 17: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k x */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 18: /* andmap k p l */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_andmap: /* k p l */
  if ((ispair((r[2])))) {
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(19);
    r[3] = (hendblk(3+1));
    r[4+0] = r[1];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (car((r[2])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(1);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 19: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r l p k */
  if (bool_from_obj(r[1])) {
    r[0] = r[4];  
    r[1] = r[3];  
    r[2] = (cdr((r[2])));
    goto gs_andmap;
  } else {
    r[0] = r[4];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 20: /* list1? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_list1_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 21: /* list1+? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_list1_2B_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 22: /* list2? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_list2_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 23: /* list2+? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_list2_2B_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 24: /* idslist? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_idslist_3F: /* k x */
  if ((isnull((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(1);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((ispair((r[1])))) {
    r[2] = (car((r[1])));
    r[2] = (cxs_id_3F((r[2])));
  if (bool_from_obj(r[2])) {
    /* r[0] */    
    r[1] = (cdr((r[1])));
    goto gs_idslist_3F;
  } else {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  } else {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_id_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 25: /* normalize-arity k arity */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_normalize_2Darity: /* k arity */
  if (bool_from_obj(cxs_list2_3F((r[1])))) {
    r[2] = (car((r[1])));
    r[2] = obj_from_bool(is_fixnum_obj(r[2]));
  if (bool_from_obj(r[2])) {
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
    r[2] = obj_from_bool(is_bool_obj(r[2]));
  } else {
    r[2] = obj_from_bool(0);
  }
  } else {
    r[2] = obj_from_bool(0);
  }
  if (bool_from_obj(r[2])) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2+0] = r[0];  
    r[2+1] = obj_from_fixnum(+0);
    r[2+2] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v14058;
  }

s_loop_v14058: /* k cnt l */
  if ((ispair((r[2])))) {
    r[3] = (cdr((r[2])));
    /* r[0] */    
    r[1] = obj_from_fixnum(fxadd((+1), fixnum_from_obj(r[1])));
    r[2] = r[3];  
    goto s_loop_v14058;
  } else {
  if ((isnull((r[2])))) {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = obj_from_bool(1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 26: /* flatten-idslist k ilist */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_flatten_2Didslist: /* k ilist */
  if ((islist((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2+0] = r[0];  
    r[2+1] = r[1];  
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v14045;
  }

s_loop_v14045: /* k l r */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    r[4] = (car((r[1])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v14045;
  } else {
  if ((isnull((r[1])))) {
    { /* reverse! */
    obj t, v = mknull(), l = r[2];  
    while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
    r[3] = (v); }
  } else {
    { /* reverse! */
    obj t, v = mknull(), l = r[2];  
    while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
    r[3] = (v); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 27: /* idslist-req-count k ilist */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k ilist */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_idslist_2Dreq_2Dcount((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 28: /* %residual-val-core? k val */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k val */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_bool(ispair((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 29: /* %residual-make-location k v */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k v */
    { /* box */ 
    hreserve(hbsz(2), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = obj_from_size(BOX_BTAG); 
    r[2] = (hendblk(2)); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 30: /* %residual-location-val k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (boxref((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 31: /* %residual-location-set-val! k l v */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k l v */
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = obj_from_void(boxref((r[1])) = (r[2]));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 32: /* location-special? k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k l */
    { bool_t v14319_tmp;
    r[2] = (boxref((r[1])));
    v14319_tmp = (ispair((r[2])));
    r[2] = obj_from_bool(!(v14319_tmp)); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 33: /* new-id k sym den */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_new_2Did: /* k sym den */
    hreserve(hbsz(1), 3); /* 3 live regs */
    *--hp = obj_from_void(0);
    r[3] = (hendblk(1));
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    (void)(objptr_from_obj(r[3])[0] = (r[4]));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(34);
    r[3] = (hendblk(1+1));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 34: /* clo k */
    assert(rc == 2);
    { obj* p = objptr_from_obj(r[0]);
    r[1+1] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k p */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (objptr_from_obj(r[1])[0]);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 35: /* old-sym k id */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k id */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(36);
    r[2] = (hendblk(1+1));
    r[3+0] = r[1];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 36: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[3+0] = r[2];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (car((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 37: /* old-den k id */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k id */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(38);
    r[2] = (hendblk(1+1));
    r[3+0] = r[1];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 38: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[3+0] = r[2];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cdr((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 39: /* id? k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_id_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 40: /* id->sym k id */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_id_2D_3Esym: /* k id */
  if ((issymbol((r[1])))) {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = r[1];  
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(41);
    r[2] = (hendblk(1+1));
    r[3+0] = r[1];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;
  }

case 41: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[3+0] = r[2];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (car((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 42: /* extend-xenv k env id bnd */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_extend_2Dxenv: /* k env id bnd */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(43);
    r[4] = (hendblk(3+1));
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 43: /* clo k i */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* k i env bnd id */
  if (((r[4]) == (r[1]))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 44: /* add-location k key val env */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_add_2Dlocation: /* k key val env */
    { /* box */ 
    hreserve(hbsz(2), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = obj_from_size(BOX_BTAG); 
    r[4] = (hendblk(2)); }
    r[5+0] = r[0];  
    r[5+1] = r[3];  
    r[5+2] = r[1];  
    r[5+3] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_extend_2Dxenv;

case 45: /* add-var k var val env */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_add_2Dvar: /* k var val env */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("ref")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* box */ 
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_size(BOX_BTAG); 
    r[4] = (hendblk(2)); }
    r[5+0] = r[0];  
    r[5+1] = r[3];  
    r[5+2] = r[1];  
    r[5+3] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_extend_2Dxenv;

case 46: /* xform-sexp->datum k sexp */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_xform_2Dsexp_2D_3Edatum: /* k sexp */
    /* r[0] */    
    /* r[1] */    
    goto s_conv;

case 47: /* clo k sexp */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
s_conv: /* k sexp */
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(47);
    r[2] = (hendblk(0+1));
  if (bool_from_obj(cxs_id_3F((r[1])))) {
    /* r[0] */    
    /* r[1] */    
    goto gs_id_2D_3Esym;
  } else {
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(48);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    goto s_conv;
  } else {
  if ((isvector((r[1])))) {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(50);
    r[3] = (hendblk(2+1));
    r[4+0] = (cx_vector_2D_3Elist);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }

case 48: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r conv sexp k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(49);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (car((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 49: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 50: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r conv k */
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(53);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v13874;

s_loop_v13874: /* k l conv */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(51);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v13874;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 51: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r conv l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(52);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (car((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 52: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 53: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[3+0] = (cx_list_2D_3Evector);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 54: /* clo k msg args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k msg args */
    { /* string-append */
    int *d = stringcat(stringdata((cx__23334)), stringdata((r[1])));
    r[3] = (hpushstr(3, d)); }
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto gs_error_2A;

case 55: /* xform k appos? sexp env */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_xform: /* k appos? sexp env */
  if (bool_from_obj(cxs_id_3F((r[2])))) {
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(56);
    r[4] = (hendblk(4+1));
    r[0] = r[4];  
    r[1] = r[2];  
    r[2] = r[3];  
    goto gs_xform_2Dref;
  } else {
  if ((!(ispair((r[2]))))) {
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[4];  
    r[2] = r[3];  
    goto gs_xform_2Dquote;
  } else {
    r[4] = (car((r[2])));
    r[5] = (cdr((r[2])));
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(60);
    r[6] = (hendblk(5+1));
    r[0] = r[6];  
    r[1] = obj_from_bool(1);
    r[2] = r[4];  
    /* r[3] */    
    goto gs_xform;
  }
  }

case 56: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r sexp env k appos? */
  if (bool_from_obj(r[5])) {
    r[6+0] = r[4];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* define integrable? */
    static obj c[] = { obj_from_objptr(vmcases+8) };
    r[6] = obj_from_objptr(c); }
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(57);
    r[7] = (hendblk(5+1));
    r[8+0] = r[6];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 57: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r sexp env appos? r k */
  if (bool_from_obj(r[1])) {
    { /* define integrable-global */
    static obj c[] = { obj_from_objptr(vmcases+11) };
    r[7] = obj_from_objptr(c); }
    hreserve(hbsz(1+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = obj_from_case(58);
    r[8] = (hendblk(1+1));
    r[0] = r[7];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((isprocedure((r[5])))) {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(59);
    r[7] = (hendblk(3+1));
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    /* r[2] */    
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((!(ispair((r[5]))))) {
    r[0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = (cx__23428);
    r[3] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[6];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }

case 58: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("ref")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 59: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env appos? k */
    r[5+0] = r[4];  
    r[5+1] = r[3];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;

case 60: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r sexp appos? env k tail */
  if ((((r[1]) == (mksymbol(internsym("syntax-quote")))) && (1))) {
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (car((r[6])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("quote")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Dquote;
  } else {
  if ((((r[1]) == (mksymbol(internsym("set!")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Dset_21;
  } else {
  if ((((r[1]) == (mksymbol(internsym("set&")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Dset_26;
  } else {
  if ((((r[1]) == (mksymbol(internsym("if")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Dif;
  } else {
  if ((((r[1]) == (mksymbol(internsym("lambda")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Dlambda;
  } else {
  if ((((r[1]) == (mksymbol(internsym("lambda*")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Dlambda_2A;
  } else {
  if ((((r[1]) == (mksymbol(internsym("letcc")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Dletcc;
  } else {
  if ((((r[1]) == (mksymbol(internsym("withcc")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Dwithcc;
  } else {
  if ((((r[1]) == (mksymbol(internsym("body")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Dbody;
  } else {
  if ((((r[1]) == (mksymbol(internsym("begin")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Dbegin;
  } else {
  if ((((r[1]) == (mksymbol(internsym("define")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Ddefine;
  } else {
  if ((((r[1]) == (mksymbol(internsym("define-syntax")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Ddefine_2Dsyntax;
  } else {
  if ((((r[1]) == (mksymbol(internsym("syntax-lambda")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Dsyntax_2Dlambda;
  } else {
  if ((((r[1]) == (mksymbol(internsym("syntax-rules")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Dsyntax_2Drules;
  } else {
  if ((((r[1]) == (mksymbol(internsym("syntax-length")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Dsyntax_2Dlength;
  } else {
  if ((((r[1]) == (mksymbol(internsym("syntax-error")))) && (1))) {
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_xform_2Dsyntax_2Derror;
  } else {
    { /* define integrable? */
    static obj c[] = { obj_from_objptr(vmcases+8) };
    r[7] = obj_from_objptr(c); }
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(61);
    r[8] = (hendblk(6+1));
    r[9+0] = r[7];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[8];  
    r[9+2] = r[1];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }

case 61: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek r sexp appos? env tail r k */
  if (bool_from_obj(r[1])) {
    r[0] = r[7];  
    r[1] = r[6];  
    r[2] = r[5];  
    r[3] = r[4];  
    goto gs_xform_2Dintegrable;
  } else {
  if ((isprocedure((r[6])))) {
    hreserve(hbsz(3+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_case(62);
    r[8] = (hendblk(3+1));
    r[0] = r[6];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    /* r[2] */    
    r[3] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[7];  
    r[1] = r[6];  
    r[2] = r[5];  
    r[3] = r[4];  
    goto gs_xform_2Dcall;
  }
  }

case 62: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env appos? k */
    r[5+0] = r[4];  
    r[5+1] = r[3];  
    r[5+2] = r[1];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;

case 63: /* xform-ref k id env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dref: /* k id env */
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(64);
    r[3] = (hendblk(1+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 64: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[3] = (boxref((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("..."))));
  if (bool_from_obj(r[3])) {
    r[0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[2];  
    r[2] = (cx__23441);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3+0] = r[2];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (boxref((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 65: /* xform-quote k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dquote: /* k tail env */
  if (bool_from_obj(cxs_list1_3F((r[1])))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(66);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    r[1] = (car((r[1])));
    goto gs_xform_2Dsexp_2D_3Edatum;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__23450);
    r[4+3] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 66: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 67: /* xform-set! k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dset_21: /* k tail env */
  if (bool_from_obj(cxs_list2_3F((r[1])))) {
    r[3] = (car((r[1])));
    r[3] = (cxs_id_3F((r[3])));
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(68);
    r[3] = (hendblk(3+1));
    r[4] = (cdr((r[1])));
    r[4] = (car((r[4])));
    r[5+0] = r[3];  
    r[5+1] = obj_from_bool(0);
    r[5+2] = r[4];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("set!")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__23460);
    r[4+3] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 68: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env tail k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(69);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (car((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 69: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { bool_t v14318_tmp;
    r[4] = (boxref((r[1])));
    v14318_tmp = (ispair((r[4])));
    r[4] = obj_from_bool(!(v14318_tmp)); }
  if (bool_from_obj(r[4])) {
    (void)(boxref((r[1])) = (r[3]));
    r[4] = (cx__23483);
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[4] = (boxref((r[1])));
    r[5] = (car((r[4])));
    r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("ref"))));
  if (bool_from_obj(r[5])) {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6] = (cdr((r[4])));
    r[6] = (car((r[6])));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = (mksymbol(internsym("set!")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[2];  
    r[2] = (cx__23470);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 70: /* xform-set& k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dset_26: /* k tail env */
  if (bool_from_obj(cxs_list1_3F((r[1])))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(71);
    r[3] = (hendblk(1+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (car((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("set&")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__23496);
    r[4+3] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 71: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { bool_t v14317_tmp;
    r[3] = (boxref((r[1])));
    v14317_tmp = (ispair((r[3])));
    r[3] = obj_from_bool(!(v14317_tmp)); }
  if (bool_from_obj(r[3])) {
    r[0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[2];  
    r[2] = (cx__23502);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (boxref((r[1])));
    r[4] = (car((r[3])));
    r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("ref"))));
  if (bool_from_obj(r[4])) {
    r[4] = (cdr((r[3])));
    r[4] = (car((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("set&")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[2];  
    r[2] = (cx__23502);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 72: /* xform-if k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dif: /* k tail env */
  if ((islist((r[1])))) {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(75);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v13718;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__23517);
    r[4+3] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

s_loop_v13718: /* k l env */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(73);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v13718;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 73: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(74);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = obj_from_bool(0);
    r[6+2] = (car((r[3])));
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;

case 74: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 75: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r tail k */
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[4] = obj_from_fixnum(n); }
  if (((((r[4]) == obj_from_fixnum(+2)) && ((r[4]) == obj_from_fixnum(+2))) && (1))) {
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(76);
    r[5] = (hendblk(1+1));
    r[6+0] = (cx__25append);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r[6+3] = (cx__23545);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if (((((r[4]) == obj_from_fixnum(+3)) && ((r[4]) == obj_from_fixnum(+3))) && (1))) {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = r[3];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[3];  
    r[6+2] = (cx__23535);
    r[6+3] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  }

case 76: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("if")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 77: /* xform-call k xexp tail env */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_xform_2Dcall: /* k xexp tail env */
  if ((islist((r[2])))) {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(80);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v13679;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[0];  
    r[5+2] = (cx__23566);
    r[5+3] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

s_loop_v13679: /* k l env */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(78);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v13679;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 78: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(79);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = obj_from_bool(0);
    r[6+2] = (car((r[3])));
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;

case 79: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 80: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k xexp */
  if ((isnull((r[1])))) {
    r[4] = (car((r[3])));
    r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("lambda"))));
  if (bool_from_obj(r[4])) {
    r[4] = (cdr((r[3])));
    r[4] = (car((r[4])));
    r[4] = obj_from_bool(isnull((r[4])));
  } else {
    r[4] = obj_from_bool(0);
  }
  } else {
    r[4] = obj_from_bool(0);
  }
  if (bool_from_obj(r[4])) {
    r[4] = (cdr((r[3])));
    r[4] = (cdr((r[4])));
    r[4] = (car((r[4])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[4+0] = (cx_pair_2A);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[2];  
    r[4+2] = (mksymbol(internsym("call")));
    r[4+3] = (r[3]);
    r[4+4] = (r[1]);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 81: /* integrable-argc-match? k igt n */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */
  if (((((r[1]) == obj_from_char('0')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+0));
  } else {
    { const flonum_t v14316_tmp = ((flonum_t)(+0));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14316_tmp)); } 
  }
  } else {
  if (((((r[1]) == obj_from_char('1')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+1));
  } else {
    { const flonum_t v14315_tmp = ((flonum_t)(+1));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14315_tmp)); } 
  }
  } else {
  if (((((r[1]) == obj_from_char('2')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+2));
  } else {
    { const flonum_t v14314_tmp = ((flonum_t)(+2));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14314_tmp)); } 
  }
  } else {
  if (((((r[1]) == obj_from_char('3')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+3));
  } else {
    { const flonum_t v14313_tmp = ((flonum_t)(+3));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14313_tmp)); } 
  }
  } else {
  if (((((r[1]) == obj_from_char('p')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+0));
  } else {
    { const flonum_t v14312_tmp = ((flonum_t)(+0));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14312_tmp)); } 
  }
  } else {
  if (((((r[1]) == obj_from_char('m')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+1));
  } else {
    { const flonum_t v14311_tmp = ((flonum_t)(+1));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14311_tmp)); } 
  }
  } else {
  if (((((r[1]) == obj_from_char('c')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+2));
  } else {
    { const flonum_t v14310_tmp = ((flonum_t)(+2));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14310_tmp)); } 
  }
  } else {
  if (((((r[1]) == obj_from_char('x')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+1));
  } else {
    { const flonum_t v14309_tmp = ((flonum_t)(+1));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14309_tmp)); } 
  }
  } else {
  if (((((r[1]) == obj_from_char('u')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool((+0) <= fixnum_from_obj(r[2]));
  } else {
    { const flonum_t v14308_tmp = ((flonum_t)(+0));
    r[3] = obj_from_bool((v14308_tmp) <= flonum_from_obj(r[2])); } 
  }
  if (bool_from_obj(r[3])) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool(fixnum_from_obj(r[2]) <= (+1));
  } else {
    { const flonum_t v14307_tmp = ((flonum_t)(+1));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14307_tmp)); } 
  }
  } else {
    r[3] = obj_from_bool(0);
  }
  } else {
  if (((((r[1]) == obj_from_char('b')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool((+1) <= fixnum_from_obj(r[2]));
  } else {
    { const flonum_t v14306_tmp = ((flonum_t)(+1));
    r[3] = obj_from_bool((v14306_tmp) <= flonum_from_obj(r[2])); } 
  }
  if (bool_from_obj(r[3])) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool(fixnum_from_obj(r[2]) <= (+2));
  } else {
    { const flonum_t v14305_tmp = ((flonum_t)(+2));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14305_tmp)); } 
  }
  } else {
    r[3] = obj_from_bool(0);
  }
  } else {
  if (((((r[1]) == obj_from_char('t')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool((+2) <= fixnum_from_obj(r[2]));
  } else {
    { const flonum_t v14304_tmp = ((flonum_t)(+2));
    r[3] = obj_from_bool((v14304_tmp) <= flonum_from_obj(r[2])); } 
  }
  if (bool_from_obj(r[3])) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool(fixnum_from_obj(r[2]) <= (+3));
  } else {
    { const flonum_t v14303_tmp = ((flonum_t)(+3));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14303_tmp)); } 
  }
  } else {
    r[3] = obj_from_bool(0);
  }
  } else {
  if (((((r[1]) == obj_from_char('#')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
  if ((is_fixnum_obj(r[2]))) {
    r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+0));
  } else {
    { const flonum_t v14302_tmp = ((flonum_t)(+0));
    r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14302_tmp)); } 
  }
  } else {
    r[3] = obj_from_bool(((((r[1]) == obj_from_char('@')) || ((is_flonum_obj(r[1])) && (0))) && (1)) && (0));
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 82: /* xform-integrable k ig tail env */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_xform_2Dintegrable: /* k ig tail env */
    { /* define integrable-type */
    static obj c[] = { obj_from_objptr(vmcases+10) };
    r[4] = obj_from_objptr(c); }
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(83);
    r[5] = (hendblk(4+1));
    r[6+0] = r[4];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 83: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env tail k ig */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(84);
    r[6] = (hendblk(4+1));
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[7] = obj_from_fixnum(n); }
    r[0] = r[6];  
    /* r[1] */    
    r[2] = r[7];  
    goto gs_integrable_2Dargc_2Dmatch_3F;

case 84: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env tail k ig */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(87);
    r[6] = (hendblk(2+1));
    r[0] = r[6];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v13630;
  } else {
    { /* define integrable-global */
    static obj c[] = { obj_from_objptr(vmcases+11) };
    r[6] = obj_from_objptr(c); }
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(88);
    r[7] = (hendblk(3+1));
    r[0] = r[6];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

s_loop_v13630: /* k l env */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(85);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v13630;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 85: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(86);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = obj_from_bool(0);
    r[6+2] = (car((r[3])));
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;

case 86: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 87: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k ig */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("integrable")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 88: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env tail k */
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = (mksymbol(internsym("ref")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[7+0] = r[4];  
    r[7+1] = r[6];  
    r[7+2] = r[3];  
    r[7+3] = r[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform_2Dcall;

case 89: /* xform-lambda k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dlambda: /* k tail env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(90);
    r[3] = (hendblk(3+1));
  if (bool_from_obj(cxs_list1_2B_3F((r[1])))) {
    r[0] = r[3];  
    r[1] = (car((r[1])));
    goto gs_idslist_3F;
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = obj_from_bool(0);
    r[4+2] = r[2];  
    r[4+3] = r[1];  
    r[4+4] = r[0];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v13538;
  }

case 90: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v13538: /* ek r env tail k */
  if (bool_from_obj(r[1])) {
    r[5] = (car((r[3])));
    r[6+0] = r[4];  
    r[6+1] = r[5];  
    r[6+2] = r[2];  
    r[6+3] = (mknull());
    r[6+4] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v13539;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cx__23826);
    r[3] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 91: /* clo k vars ienv ipars */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v13539: /* k vars ienv ipars tail */
  if ((ispair((r[1])))) {
    r[5] = (car((r[1])));
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = obj_from_case(91);
    r[6] = (hendblk(1+1));
    hreserve(hbsz(6+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = obj_from_case(92);
    r[6] = (hendblk(6+1));
    r[0] = r[6];  
    r[1] = r[5];  
    goto gs_id_2D_3Esym;
  } else {
  if ((isnull((r[1])))) {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(95);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = (cdr((r[4])));
    /* r[2] */    
    goto gs_xform_2Dbody;
  } else {
    hreserve(hbsz(5+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(96);
    r[5] = (hendblk(5+1));
    r[0] = r[5];  
    /* r[1] */    
    goto gs_id_2D_3Esym;
  }
  }

case 92: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek r ienv var loop ipars vars k */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(93);
    r[8] = (hendblk(6+1));
    r[9+0] = (cx_gensym);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[8];  
    r[9+2] = r[1];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 93: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek r ienv var loop ipars vars k */
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(94);
    r[8] = (hendblk(5+1));
    r[9+0] = r[8];  
    r[9+1] = r[3];  
    r[9+2] = r[1];  
    r[9+3] = r[2];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_add_2Dvar;

case 94: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop ipars r vars k */
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[8+0] = r[2];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[6];  
    r[8+2] = (cdr((r[5])));
    r[8+3] = r[1];  
    r[8+4] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 95: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k ipars */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { fixnum_t v14301_tmp;
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14301_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14301_tmp);
    hreserve(hbsz(3)*c, 5); /* 5 live regs */
    l = r[3];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[5] = (o); } }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 96: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r ienv vars tail ipars k */
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(97);
    r[7] = (hendblk(5+1));
    r[8+0] = (cx_gensym);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 97: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r ienv vars tail ipars k */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(98);
    r[7] = (hendblk(4+1));
    r[8+0] = r[7];  
    r[8+1] = r[3];  
    r[8+2] = r[1];  
    r[8+3] = r[2];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_add_2Dvar;

case 98: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r tail r ipars k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(99);
    r[6] = (hendblk(3+1));
    r[7+0] = r[6];  
    r[7+1] = (cdr((r[2])));
    r[7+2] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform_2Dbody;

case 99: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r ipars k */
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(100);
    r[6] = (hendblk(2+1));
    { fixnum_t v14300_tmp;
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14300_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14300_tmp);
    hreserve(hbsz(3)*c, 7); /* 7 live regs */
    l = r[3];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[7] = (o); } }
    r[8+0] = (cx__25append);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[6];  
    r[8+2] = r[7];  
    r[8+3] = r[2];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 100: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 101: /* xform-lambda* k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dlambda_2A: /* k tail env */
  if ((islist((r[1])))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(107);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v13494;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__23869);
    r[4+3] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

s_loop_v13494: /* k l env */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(102);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v13494;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 102: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env k l */
    r[5] = (car((r[4])));
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(103);
    r[6] = (hendblk(2+1));
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = obj_from_case(104);
    r[6] = (hendblk(3+1));
  if (bool_from_obj(cxs_list2_3F((r[5])))) {
    r[7] = (car((r[5])));
    r[7] = (cxs_list2_3F((r[7])));
  if (bool_from_obj(r[7])) {
    r[7] = (car((r[5])));
    r[7] = (car((r[7])));
    r[7] = obj_from_bool(is_fixnum_obj(r[7]));
  if (bool_from_obj(r[7])) {
    r[7] = (car((r[5])));
    r[7] = (cdr((r[7])));
    r[7] = (car((r[7])));
    r[7] = obj_from_bool(is_bool_obj(r[7]));
  } else {
    r[7] = obj_from_bool(0);
  }
  } else {
    r[7] = obj_from_bool(0);
  }
  if (bool_from_obj(r[7])) {
    hreserve(hbsz(2+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(103);
    r[8] = (hendblk(2+1));
    r[9+0] = obj_from_ktrap();
    r[9+1] = r[7];  
    r[9+2] = r[2];  
    r[9+3] = r[5];  
    r[9+4] = r[8];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v13498;
  } else {
    r[0] = r[6];  
    r[1] = (car((r[5])));
    goto gs_idslist_3F;
  }
  } else {
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(103);
    r[7] = (hendblk(2+1));
    r[8+0] = obj_from_ktrap();
    r[8+1] = obj_from_bool(0);
    r[8+2] = r[2];  
    r[8+3] = r[5];  
    r[8+4] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v13498;
  }

case 103: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 104: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v13498: /* ek r env aexp k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(105);
    r[5] = (hendblk(2+1));
    r[6] = (cdr((r[3])));
    r[6] = (car((r[6])));
    r[7+0] = r[5];  
    r[7+1] = obj_from_bool(0);
    r[7+2] = r[6];  
    r[7+3] = r[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;
  } else {
    r[0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cx__23871);
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 105: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r aexp k */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(106);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = (car((r[2])));
    goto gs_normalize_2Darity;

case 106: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 107: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("lambda*")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 108: /* xform-letcc k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dletcc: /* k tail env */
  if (bool_from_obj(cxs_list2_2B_3F((r[1])))) {
    r[3] = (car((r[1])));
    r[3] = (cxs_id_3F((r[3])));
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    r[3] = (car((r[1])));
    hreserve(hbsz(4+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(109);
    r[4] = (hendblk(4+1));
    r[0] = r[4];  
    r[1] = r[3];  
    goto gs_id_2D_3Esym;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("letcc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__23910);
    r[4+3] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 109: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env var tail k */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(110);
    r[6] = (hendblk(4+1));
    r[7+0] = (cx_gensym);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[6];  
    r[7+2] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 110: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r env var tail k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(111);
    r[6] = (hendblk(3+1));
    r[7+0] = r[6];  
    r[7+1] = r[3];  
    r[7+2] = r[1];  
    r[7+3] = r[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_add_2Dvar;

case 111: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r tail k r */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(112);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = (cdr((r[2])));
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform_2Dbody;

case 112: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = (mksymbol(internsym("letcc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 113: /* xform-withcc k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dwithcc: /* k tail env */
  if (bool_from_obj(cxs_list2_2B_3F((r[1])))) {
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(114);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    r[1] = (cdr((r[1])));
    /* r[2] */    
    goto gs_xform_2Dbody;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("withcc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__23926);
    r[4+3] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 114: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env tail k */
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(115);
    r[6] = (hendblk(2+1));
    r[7+0] = r[6];  
    r[7+1] = obj_from_bool(0);
    r[7+2] = (car((r[3])));
    r[7+3] = r[2];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;

case 115: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("withcc")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 116: /* xform-body k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dbody: /* k tail env */
  if ((isnull((r[1])))) {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = (mksymbol(internsym("begin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if (bool_from_obj(cxs_list1_3F((r[1])))) {
    r[3+0] = r[0];  
    r[3+1] = obj_from_bool(0);
    r[3+2] = (car((r[1])));
    r[3+3] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;
  } else {
    { const bool_t v14299_tmp = (islist((r[1])));
    r[3] = obj_from_bool(!(v14299_tmp)); } 
  if (bool_from_obj(r[3])) {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("body")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__231063);
    r[4+3] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3+0] = r[0];  
    r[3+1] = r[2];  
    r[3+2] = (mknull());
    r[3+3] = (mknull());
    r[3+4] = (mknull());
    r[3+5] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v13343;
  }
  }
  }

case 117: /* clo k env ids inits nids body */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
s_loop_v13343: /* k env ids inits nids body */
  if ((ispair((r[5])))) {
    r[6] = (car((r[5])));
    r[6] = obj_from_bool(ispair((r[6])));
  } else {
    r[6] = obj_from_bool(0);
  }
  if (bool_from_obj(r[6])) {
    r[6] = (car((r[5])));
    r[7] = (cdr((r[5])));
    r[8] = (car((r[6])));
    r[9] = (cdr((r[6])));
    hreserve(hbsz(0+1), 10); /* 10 live regs */
    *--hp = obj_from_case(117);
    r[10] = (hendblk(0+1));
    hreserve(hbsz(10+1), 11); /* 11 live regs */
    *--hp = r[9];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = (r[10]);
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(118);
    r[10] = (hendblk(10+1));
    r[11+0] = (r[10]);
    r[11+1] = obj_from_bool(1);
    r[11+2] = r[8];  
    r[11+3] = r[1];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;
  } else {
    { fixnum_t v14298_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14298_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14298_tmp);
    hreserve(hbsz(3)*c, 6); /* 6 live regs */
    l = r[2];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[6] = (o); } }
    { fixnum_t v14297_tmp;
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14297_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14297_tmp);
    hreserve(hbsz(3)*c, 7); /* 7 live regs */
    l = r[3];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[7] = (o); } }
    { fixnum_t v14296_tmp;
    { /* length */
    int n; obj l = r[4];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14296_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14296_tmp);
    hreserve(hbsz(3)*c, 8); /* 8 live regs */
    l = r[4];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[8] = (o); } }
    r[9+0] = r[0];  
    r[9+1] = r[6];  
    r[9+2] = r[7];  
    r[9+3] = r[8];  
    r[9+4] = r[5];  
    r[9+5] = r[1];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform_2Dlabels;
  }

case 118: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek r body first rest loop nids inits ids env k tail */
  if ((((r[1]) == (mksymbol(internsym("begin")))) && (1))) {
  if ((islist((r[11])))) {
    hreserve(hbsz(6+1), 12); /* 12 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(119);
    r[12] = (hendblk(6+1));
    r[0] = (cx__25append);
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[12]);
    r[2] = (r[11]);
    r[3] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = (cx__231051);
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  } else {
  if ((((r[1]) == (mksymbol(internsym("define")))) && (1))) {
  if (bool_from_obj(cxs_list2_3F((r[11])))) {
    r[12] = (car((r[11])));
    r[12] = obj_from_bool(isnull((r[12])));
  } else {
    r[12] = obj_from_bool(0);
  }
  if (bool_from_obj(r[12])) {
    r[12] = (cdr((r[11])));
    r[12] = (car((r[12])));
    { /* cons */ 
    hreserve(hbsz(3), 13); /* 13 live regs */
    *--hp = r[8];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[13] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 14); /* 14 live regs */
    *--hp = r[7];  
    *--hp = (r[12]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[14] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 15); /* 15 live regs */
    *--hp = r[6];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[15] = (hendblk(3)); }
    r[16+0] = r[5];  
    pc = objptr_from_obj(r[16+0])[0];
    r[16+1] = (r[10]);
    r[16+2] = r[9];  
    r[16+3] = (r[13]);
    r[16+4] = (r[14]);
    r[16+5] = (r[15]);
    r[16+6] = r[4];  
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;
  } else {
  if (bool_from_obj(cxs_list2_3F((r[11])))) {
    r[12] = (car((r[11])));
    r[12] = (cxs_id_3F((r[12])));
  } else {
    r[12] = obj_from_bool(0);
  }
  if (bool_from_obj(r[12])) {
    r[12] = (car((r[11])));
    r[13] = (cdr((r[11])));
    r[13] = (car((r[13])));
    hreserve(hbsz(9+1), 14); /* 14 live regs */
    *--hp = (r[10]);
    *--hp = (r[12]);
    *--hp = r[8];  
    *--hp = (r[13]);
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[9];  
    *--hp = obj_from_case(120);
    r[14] = (hendblk(9+1));
    r[0] = (r[14]);
    r[1] = (r[12]);
    goto gs_id_2D_3Esym;
  } else {
    hreserve(hbsz(9+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[9];  
    *--hp = r[3];  
    *--hp = obj_from_case(123);
    r[12] = (hendblk(9+1));
  if (bool_from_obj(cxs_list2_2B_3F((r[11])))) {
    r[13] = (car((r[11])));
    r[13] = obj_from_bool(ispair((r[13])));
  if (bool_from_obj(r[13])) {
    r[13] = (car((r[11])));
    r[13] = (car((r[13])));
    r[13] = (cxs_id_3F((r[13])));
  if (bool_from_obj(r[13])) {
    r[13] = (car((r[11])));
    r[13] = (cdr((r[13])));
    r[0] = (r[12]);
    r[1] = (r[13]);
    goto gs_idslist_3F;
  } else {
    r[13+0] = obj_from_ktrap();
    r[13+1] = obj_from_bool(0);
    r[13+2] = r[3];  
    r[13+3] = r[9];  
    r[13+4] = r[5];  
    r[13+5] = r[4];  
    r[13+6] = r[6];  
    r[13+7] = r[7];  
    r[13+8] = r[8];  
    r[13+9] = (r[10]);
    r[13+10] = (r[11]);
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v13359;
  }
  } else {
    r[13+0] = obj_from_ktrap();
    r[13+1] = obj_from_bool(0);
    r[13+2] = r[3];  
    r[13+3] = r[9];  
    r[13+4] = r[5];  
    r[13+5] = r[4];  
    r[13+6] = r[6];  
    r[13+7] = r[7];  
    r[13+8] = r[8];  
    r[13+9] = (r[10]);
    r[13+10] = (r[11]);
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v13359;
  }
  } else {
    r[13+0] = obj_from_ktrap();
    r[13+1] = obj_from_bool(0);
    r[13+2] = r[3];  
    r[13+3] = r[9];  
    r[13+4] = r[5];  
    r[13+5] = r[4];  
    r[13+6] = r[6];  
    r[13+7] = r[7];  
    r[13+8] = r[8];  
    r[13+9] = (r[10]);
    r[13+10] = (r[11]);
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v13359;
  }
  }
  }
  } else {
  if ((((r[1]) == (mksymbol(internsym("define-syntax")))) && (1))) {
  if (bool_from_obj(cxs_list2_3F((r[11])))) {
    r[12] = (car((r[11])));
    r[12] = (cxs_id_3F((r[12])));
  } else {
    r[12] = obj_from_bool(0);
  }
  if (bool_from_obj(r[12])) {
    r[12] = (car((r[11])));
    r[13] = (cdr((r[11])));
    r[13] = (car((r[13])));
    hreserve(hbsz(8+1), 14); /* 14 live regs */
    *--hp = (r[10]);
    *--hp = (r[12]);
    *--hp = r[8];  
    *--hp = (r[13]);
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_case(128);
    r[14] = (hendblk(8+1));
    r[0] = (r[14]);
    r[1] = (r[12]);
    r[2] = (cx__23976);
    r[3] = r[9];  
    goto gs_add_2Dlocation;
  } else {
    r[0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = (cx__23969);
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  } else {
  if ((isprocedure((r[1])))) {
    hreserve(hbsz(7+1), 12); /* 12 live regs */
    *--hp = r[4];  
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = obj_from_case(129);
    r[12] = (hendblk(7+1));
    r[0] = r[1];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[12]);
    r[2] = r[3];  
    r[3] = r[9];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    { fixnum_t v14295_tmp;
    { /* length */
    int n; obj l = r[8];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14295_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14295_tmp);
    hreserve(hbsz(3)*c, 12); /* 12 live regs */
    l = r[8];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[12] = (o); } }
    { fixnum_t v14294_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14294_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14294_tmp);
    hreserve(hbsz(3)*c, 13); /* 13 live regs */
    l = r[7];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[13] = (o); } }
    { fixnum_t v14293_tmp;
    { /* length */
    int n; obj l = r[6];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14293_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14293_tmp);
    hreserve(hbsz(3)*c, 14); /* 14 live regs */
    l = r[6];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[14] = (o); } }
    r[15+0] = (r[10]);
    r[15+1] = (r[12]);
    r[15+2] = (r[13]);
    r[15+3] = (r[14]);
    r[15+4] = r[2];  
    r[15+5] = r[9];  
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform_2Dlabels;
  }
  }
  }
  }

case 119: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop nids inits ids env k */
    r[8+0] = r[2];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = r[6];  
    r[8+3] = r[5];  
    r[8+4] = r[4];  
    r[8+5] = r[3];  
    r[8+6] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 120: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek r env loop rest nids inits init ids id k */
    hreserve(hbsz(9+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(121);
    r[11] = (hendblk(9+1));
    r[12+0] = (cx_gensym);
    pc = objptr_from_obj(r[12+0])[0];
    r[12+1] = (r[11]);
    r[12+2] = r[1];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 121: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek r env loop rest nids inits init ids id k */
    hreserve(hbsz(9+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(122);
    r[11] = (hendblk(9+1));
    r[12+0] = (r[11]);
    r[12+1] = r[9];  
    r[12+2] = r[1];  
    r[12+3] = r[2];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_add_2Dvar;

case 122: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop rest nids r inits init ids id k */
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = r[8];  
    *--hp = r[9];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[11] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 12); /* 12 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[12] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 13); /* 13 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[13] = (hendblk(3)); }
    r[14+0] = r[2];  
    pc = objptr_from_obj(r[14+0])[0];
    r[14+1] = (r[10]);
    r[14+2] = r[1];  
    r[14+3] = (r[11]);
    r[14+4] = (r[12]);
    r[14+5] = (r[13]);
    r[14+6] = r[3];  
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 123: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
s_l_v13359: /* ek r first env loop rest nids inits ids k tail */
  if (bool_from_obj(r[1])) {
    r[11] = (car((r[10])));
    r[11] = (car((r[11])));
    hreserve(hbsz(9+1), 12); /* 12 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = (r[11]);
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(124);
    r[12] = (hendblk(9+1));
    { /* box */ 
    hreserve(hbsz(2), 13); /* 13 live regs */
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(BOX_BTAG); 
    r[13] = (hendblk(2)); }
    r[0] = (r[12]);
    r[1] = (mksymbol(internsym("lambda")));
    r[2] = (r[13]);
    goto gs_new_2Did;
  } else {
    r[11+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[11+0])[0];
    r[11+1] = r[9];  
    r[11+2] = (cx__23989);
    r[11+3] = r[2];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 124: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek r env loop rest nids inits ids id k tail */
    r[11] = (cdr((r[10])));
    r[12] = (car((r[10])));
    r[12] = (cdr((r[12])));
    { /* cons */ 
    hreserve(hbsz(3), 13); /* 13 live regs */
    *--hp = (r[11]);
    *--hp = (r[12]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[11] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[11] = (hendblk(3)); }
    hreserve(hbsz(9+1), 12); /* 12 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = (r[11]);
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(125);
    r[12] = (hendblk(9+1));
    r[0] = (r[12]);
    r[1] = r[8];  
    goto gs_id_2D_3Esym;

case 125: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek r env loop rest nids inits init ids id k */
    hreserve(hbsz(9+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(126);
    r[11] = (hendblk(9+1));
    r[12+0] = (cx_gensym);
    pc = objptr_from_obj(r[12+0])[0];
    r[12+1] = (r[11]);
    r[12+2] = r[1];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 126: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek r env loop rest nids inits init ids id k */
    hreserve(hbsz(9+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(127);
    r[11] = (hendblk(9+1));
    r[12+0] = (r[11]);
    r[12+1] = r[9];  
    r[12+2] = r[1];  
    r[12+3] = r[2];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_add_2Dvar;

case 127: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop rest nids r inits init ids id k */
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = r[8];  
    *--hp = r[9];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[11] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 12); /* 12 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[12] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 13); /* 13 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[13] = (hendblk(3)); }
    r[14+0] = r[2];  
    pc = objptr_from_obj(r[14+0])[0];
    r[14+1] = (r[10]);
    r[14+2] = r[1];  
    r[14+3] = (r[11]);
    r[14+4] = (r[12]);
    r[14+5] = (r[13]);
    r[14+6] = r[3];  
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 128: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop rest nids inits init ids id k */
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[7];  
    *--hp = r[8];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[11] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 12); /* 12 live regs */
    *--hp = r[4];  
    *--hp = obj_from_bool(1);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[12] = (hendblk(3)); }
    r[13+0] = r[2];  
    pc = objptr_from_obj(r[13+0])[0];
    r[13+1] = r[9];  
    r[13+2] = r[1];  
    r[13+3] = (r[10]);
    r[13+4] = (r[11]);
    r[13+5] = (r[12]);
    r[13+6] = r[3];  
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 129: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop nids inits ids env k rest */
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    r[10+0] = r[2];  
    pc = objptr_from_obj(r[10+0])[0];
    r[10+1] = r[7];  
    r[10+2] = r[6];  
    r[10+3] = r[5];  
    r[10+4] = r[4];  
    r[10+5] = r[3];  
    r[10+6] = r[9];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 130: /* xform-labels k ids inits nids body env */
    assert(rc == 7);
    r += 1; /* shift reg. wnd */
gs_xform_2Dlabels: /* k ids inits nids body env */
    r[6+0] = r[0];  
    r[6+1] = r[1];  
    r[6+2] = r[2];  
    r[6+3] = r[3];  
    r[6+4] = (mknull());
    r[6+5] = (mknull());
    r[6+6] = r[5];  
    r[6+7] = r[4];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v13246;

case 131: /* clo k ids inits nids sets lids */
    assert(rc == 7);
    { obj* p = objptr_from_obj(r[0]);
    r[1+6] = p[1];
    r[1+7] = p[2]; }
    r += 1; /* shift reg. wnd */
s_loop_v13246: /* k ids inits nids sets lids env body */
    hreserve(hbsz(2+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = obj_from_case(131);
    r[8] = (hendblk(2+1));
  if ((isnull((r[1])))) {
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[5];  
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = obj_from_case(134);
    r[9] = (hendblk(3+1));
    r[0] = r[9];  
    r[1] = r[7];  
    r[2] = r[6];  
    goto s_loop_v13300;
  } else {
    r[9] = (car((r[1])));
    r[9] = obj_from_bool(!bool_from_obj(r[9]));
  if (bool_from_obj(r[9])) {
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = r[8];  
    *--hp = obj_from_case(138);
    r[9] = (hendblk(7+1));
    r[0] = r[9];  
    r[1] = obj_from_bool(0);
    r[2] = (car((r[2])));
    r[3] = r[6];  
    goto gs_xform;
  } else {
    r[9] = (car((r[3])));
    r[9] = obj_from_bool(issymbol((r[9])));
  if (bool_from_obj(r[9])) {
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = r[8];  
    *--hp = obj_from_case(139);
    r[9] = (hendblk(7+1));
    r[10] = (car((r[2])));
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = (mknull());
    *--hp = (r[10]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    r[11] = (car((r[1])));
    { /* cons */ 
    hreserve(hbsz(3), 12); /* 12 live regs */
    *--hp = (r[10]);
    *--hp = (r[11]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    r[0] = r[9];  
    r[1] = (r[10]);
    r[2] = r[6];  
    goto gs_xform_2Dset_21;
  } else {
    hreserve(hbsz(8+1), 9); /* 9 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[8];  
    *--hp = r[6];  
    *--hp = obj_from_case(140);
    r[9] = (hendblk(8+1));
    r[10+0] = r[6];  
    pc = objptr_from_obj(r[10+0])[0];
    r[10+1] = r[9];  
    r[10+2] = (car((r[1])));
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }

s_loop_v13300: /* k l env */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(132);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v13300;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 132: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(133);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = obj_from_bool(0);
    r[6+2] = (car((r[3])));
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;

case 133: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 134: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r sets k lids */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(135);
    r[5] = (hendblk(2+1));
    { fixnum_t v14292_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14292_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14292_tmp);
    hreserve(hbsz(3)*c, 6); /* 6 live regs */
    l = r[2];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[6] = (o); } }
    r[7+0] = (cx__25append);
    pc = objptr_from_obj(r[7+0])[0];
    r[7+1] = r[5];  
    r[7+2] = r[6];  
    r[7+3] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 135: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k lids */
  if (bool_from_obj(cxs_list1_3F((r[1])))) {
    r[4] = (car((r[1])));
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("begin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
  }
  if ((isnull((r[3])))) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(137);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[3];  
    goto s_loop_v13281;
  }

s_loop_v13281: /* k l */
  if ((ispair((r[1])))) {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(136);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v13281;
  } else {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 136: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (cx__231135);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 137: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r lids xexp k */
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { fixnum_t v14291_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14291_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14291_tmp);
    hreserve(hbsz(3)*c, 6); /* 6 live regs */
    l = r[2];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[6] = (o); } }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_pair_2A);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (mksymbol(internsym("call")));
    r[6+3] = (r[5]);
    r[6+4] = (r[1]);
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 138: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop lids nids inits ids k sets */
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    r[10+0] = r[2];  
    pc = objptr_from_obj(r[10+0])[0];
    r[10+1] = r[7];  
    r[10+2] = (cdr((r[6])));
    r[10+3] = (cdr((r[5])));
    r[10+4] = (cdr((r[4])));
    r[10+5] = r[9];  
    r[10+6] = r[3];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 139: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop lids nids inits ids k sets */
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    r[10] = (car((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = r[3];  
    *--hp = (r[10]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    r[11+0] = r[2];  
    pc = objptr_from_obj(r[11+0])[0];
    r[11+1] = r[7];  
    r[11+2] = (cdr((r[6])));
    r[11+3] = (cdr((r[5])));
    r[11+4] = (cdr((r[4])));
    r[11+5] = r[9];  
    r[11+6] = (r[10]);
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 140: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek r env loop lids sets nids inits ids k */
    hreserve(hbsz(8+1), 10); /* 10 live regs */
    *--hp = r[1];  
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(141);
    r[10] = (hendblk(8+1));
    r[11+0] = (r[10]);
    r[11+1] = obj_from_bool(1);
    r[11+2] = (car((r[7])));
    r[11+3] = r[2];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;

case 141: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop lids sets nids inits ids k r */
    (void)(boxref((r[9])) = (r[1]));
    r[10+0] = r[2];  
    pc = objptr_from_obj(r[10+0])[0];
    r[10+1] = r[8];  
    r[10+2] = (cdr((r[7])));
    r[10+3] = (cdr((r[6])));
    r[10+4] = (cdr((r[5])));
    r[10+5] = r[4];  
    r[10+6] = r[3];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 7;
    goto jump;

case 142: /* xform-begin k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dbegin: /* k tail env */
  if ((islist((r[1])))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(145);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v13221;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("begin!")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__231051);
    r[4+3] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

s_loop_v13221: /* k l env */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(143);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v13221;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 143: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r env l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(144);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = obj_from_bool(0);
    r[6+2] = (car((r[3])));
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;

case 144: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 145: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    r[3] = obj_from_bool(isnull((r[3])));
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    r[3] = (car((r[1])));
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("begin")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
  }
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 146: /* xform-define k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Ddefine: /* k tail env */
  if (bool_from_obj(cxs_list2_3F((r[1])))) {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(isnull((r[3])));
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[1])));
    r[3] = (car((r[3])));
    r[4+0] = r[0];  
    r[4+1] = obj_from_bool(0);
    r[4+2] = r[3];  
    r[4+3] = r[2];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;
  } else {
  if (bool_from_obj(cxs_list2_3F((r[1])))) {
    r[3] = (car((r[1])));
    r[3] = (cxs_id_3F((r[3])));
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(147);
    r[3] = (hendblk(2+1));
    r[4] = (cdr((r[1])));
    r[4] = (car((r[4])));
    r[5+0] = r[3];  
    r[5+1] = obj_from_bool(0);
    r[5+2] = r[4];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;
  } else {
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(149);
    r[3] = (hendblk(3+1));
  if (bool_from_obj(cxs_list2_2B_3F((r[1])))) {
    r[4] = (car((r[1])));
    r[4] = obj_from_bool(ispair((r[4])));
  if (bool_from_obj(r[4])) {
    r[4] = (car((r[1])));
    r[4] = (car((r[4])));
    r[4] = (cxs_id_3F((r[4])));
  if (bool_from_obj(r[4])) {
    r[4] = (car((r[1])));
    r[4] = (cdr((r[4])));
    r[0] = r[3];  
    r[1] = r[4];  
    goto gs_idslist_3F;
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = obj_from_bool(0);
    r[4+2] = r[2];  
    r[4+3] = r[1];  
    r[4+4] = r[0];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v13178;
  }
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = obj_from_bool(0);
    r[4+2] = r[2];  
    r[4+3] = r[1];  
    r[4+4] = r[0];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v13178;
  }
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = obj_from_bool(0);
    r[4+2] = r[2];  
    r[4+3] = r[1];  
    r[4+4] = r[0];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v13178;
  }
  }
  }

case 147: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r tail k */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(148);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = (car((r[2])));
    goto gs_id_2D_3Esym;

case 148: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 149: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v13178: /* ek r env tail k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(150);
    r[5] = (hendblk(2+1));
    r[6] = (cdr((r[3])));
    r[7] = (car((r[3])));
    r[7] = (cdr((r[7])));
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[0] = r[5];  
    r[1] = r[6];  
    /* r[2] */    
    goto gs_xform_2Dlambda;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cx__23989);
    r[3] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 150: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r tail k */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(151);
    r[5] = (hendblk(2+1));
    r[6] = (car((r[2])));
    r[6] = (car((r[6])));
    r[0] = r[5];  
    r[1] = r[6];  
    goto gs_id_2D_3Esym;

case 151: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("define")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 152: /* xform-define-syntax k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Ddefine_2Dsyntax: /* k tail env */
  if (bool_from_obj(cxs_list2_3F((r[1])))) {
    r[3] = (car((r[1])));
    r[3] = (cxs_id_3F((r[3])));
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(153);
    r[3] = (hendblk(2+1));
    r[4] = (cdr((r[1])));
    r[4] = (car((r[4])));
    r[5+0] = r[3];  
    r[5+1] = obj_from_bool(1);
    r[5+2] = r[4];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_xform;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("define-syntax")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__23969);
    r[4+3] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 153: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r tail k */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(154);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = (car((r[2])));
    goto gs_id_2D_3Esym;

case 154: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("define-syntax")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 155: /* xform-syntax-lambda k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dsyntax_2Dlambda: /* k tail env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(156);
    r[3] = (hendblk(3+1));
  if (bool_from_obj(cxs_list2_2B_3F((r[1])))) {
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(162);
    r[4] = (hendblk(0+1));
    r[5+0] = r[3];  
    r[5+1] = r[4];  
    r[5+2] = (car((r[1])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_andmap;
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = obj_from_bool(0);
    r[4+2] = r[0];  
    r[4+3] = r[2];  
    r[4+4] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v13109;
  }

case 156: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v13109: /* ek r k env tail */
  if (bool_from_obj(r[1])) {
    r[5] = (car((r[4])));
    r[6] = (cdr((r[4])));
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = obj_from_case(157);
    r[5] = (hendblk(3+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("syntax-lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[2];  
    r[2] = (cx__231249);
    r[3] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 157: /* clo k use useenv */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* k use useenv forms env vars */
  if (bool_from_obj(cxs_list1_2B_3F((r[1])))) {
    { fixnum_t v14290_tmp;
    { fixnum_t v14289_tmp;
    { /* length */
    int n; obj l = r[5];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14290_tmp = (n); }
    r[6] = (cdr((r[1])));
    { /* length */
    int n; obj l = r[6];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14289_tmp = (n); }
    r[6] = obj_from_bool((v14290_tmp) == (v14289_tmp)); } }
  } else {
    r[6] = obj_from_bool(0);
  }
  if (bool_from_obj(r[6])) {
    r[6] = (cdr((r[1])));
    r[7+0] = r[0];  
    r[7+1] = r[5];  
    r[7+2] = r[6];  
    r[7+3] = r[4];  
    r[7+4] = r[2];  
    r[7+5] = r[3];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v13112;
  } else {
    r[6+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[0];  
    r[6+2] = (cx__231257);
    r[6+3] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 158: /* clo k vars exps env */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1];
    r[1+5] = p[2]; }
    r += 1; /* shift reg. wnd */
s_loop_v13112: /* k vars exps env useenv forms */
  if ((isnull((r[1])))) {
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(159);
    r[6] = (hendblk(1+1));
    r[0] = r[6];  
    r[1] = r[5];  
    r[2] = r[3];  
    goto gs_xform_2Dbody;
  } else {
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(158);
    r[6] = (hendblk(2+1));
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = obj_from_case(160);
    r[6] = (hendblk(5+1));
    r[0] = r[6];  
    r[1] = obj_from_bool(1);
    r[2] = (car((r[2])));
    r[3] = r[4];  
    goto gs_xform;
  }

case 159: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("syntax-quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 160: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r env loop exps vars k */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(161);
    r[7] = (hendblk(4+1));
    r[8+0] = r[7];  
    r[8+1] = (car((r[5])));
    r[8+2] = r[1];  
    r[8+3] = r[2];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_add_2Dlocation;

case 161: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop exps vars k */
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (cdr((r[4])));
    r[6+3] = (cdr((r[3])));
    r[6+4] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 162: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_id_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 163: /* xform-syntax-rules k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dsyntax_2Drules: /* k tail env */
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(164);
    r[3] = (hendblk(3+1));
  if (bool_from_obj(cxs_list2_2B_3F((r[1])))) {
    r[4] = (car((r[1])));
    r[4] = (cxs_id_3F((r[4])));
  if (bool_from_obj(r[4])) {
    hreserve(hbsz(0+1), 4); /* 4 live regs */
    *--hp = obj_from_case(167);
    r[4] = (hendblk(0+1));
    r[5] = (cdr((r[1])));
    r[5] = (car((r[5])));
    r[6+0] = r[3];  
    r[6+1] = r[4];  
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_andmap;
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = obj_from_bool(0);
    r[4+2] = r[1];  
    r[4+3] = r[2];  
    r[4+4] = r[0];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v13077;
  }
  } else {
    r[4+0] = obj_from_ktrap();
    r[4+1] = obj_from_bool(0);
    r[4+2] = r[1];  
    r[4+3] = r[2];  
    r[4+4] = r[0];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v13077;
  }

case 164: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v13077: /* ek r tail env k */
  if (bool_from_obj(r[1])) {
    r[5] = (cdr((r[2])));
    r[5] = (car((r[5])));
    r[6] = (cdr((r[2])));
    r[6] = (cdr((r[6])));
    r[7+0] = r[4];  
    r[7+1] = r[3];  
    r[7+2] = (car((r[2])));
    r[7+3] = r[5];  
    r[7+4] = r[6];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_syntax_2Drules_2A;
  } else {
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(165);
    r[5] = (hendblk(3+1));
  if (bool_from_obj(cxs_list1_2B_3F((r[2])))) {
    hreserve(hbsz(0+1), 6); /* 6 live regs */
    *--hp = obj_from_case(166);
    r[6] = (hendblk(0+1));
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = (car((r[2])));
    goto gs_andmap;
  } else {
    r[0] = obj_from_ktrap();
    r[1] = obj_from_bool(0);
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_l_v13085;
  }
  }

case 165: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v13085: /* ek r tail env k */
  if (bool_from_obj(r[1])) {
    r[5+0] = r[4];  
    r[5+1] = r[3];  
    r[5+2] = obj_from_bool(0);
    r[5+3] = (car((r[2])));
    r[5+4] = (cdr((r[2])));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_syntax_2Drules_2A;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("syntax-rules")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = (cx__231283);
    r[6+3] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 166: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_id_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 167: /* clo k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (cxs_id_3F((r[1])));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 168: /* xform-syntax-length k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dsyntax_2Dlength: /* k tail env */
  if (bool_from_obj(cxs_list1_3F((r[1])))) {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool(islist((r[3])));
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    r[3] = (car((r[1])));
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[3] = obj_from_fixnum(n); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = (mksymbol(internsym("quote")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = (mksymbol(internsym("syntax-length")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx__231303);
    r[4+3] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 169: /* xform-syntax-error k tail env */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_xform_2Dsyntax_2Derror: /* k tail env */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(172);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    goto s_loop_v13037;

s_loop_v13037: /* k l */
  if ((ispair((r[1])))) {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(170);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v13037;
  } else {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 170: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r l k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(171);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = (car((r[2])));
    goto gs_xform_2Dsexp_2D_3Edatum;

case 171: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 172: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r tail k */
  if (bool_from_obj(cxs_list1_2B_3F((r[1])))) {
    r[4] = (car((r[1])));
    r[4] = obj_from_bool(isstring((r[4])));
  } else {
    r[4] = obj_from_bool(0);
  }
  if (bool_from_obj(r[4])) {
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (cx_x_2Derror);
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = (mksymbol(internsym("syntax-error")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[3];  
    r[5+2] = (cx__231328);
    r[5+3] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 173: /* top-transformer-env k id */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_top_2Dtransformer_2Denv: /* k id */
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(174);
    r[2] = (hendblk(2+1));
  if (bool_from_obj(cx__2Atop_2Dtransformer_2Denv_2A)) {
    r[3+0] = obj_from_ktrap();
    r[3+1] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    r[3+2] = r[0];  
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v13008;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(180);
    r[3] = (hendblk(1+1));
    r[0] = r[3];  
    r[1] = (cx__2Atransformers_2A);
    goto s_loop_v12984;
  }

case 174: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v13008: /* ek . k id */
  if ((isprocedure((r[3])))) {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(175);
    r[4] = (hendblk(1+1));
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;
  } else {
    { /* assq */
    obj x = (r[3]), l = (cx__2Atop_2Dtransformer_2Denv_2A), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[4] = (l == mknull() ? obj_from_bool(0) : p); }
  if (bool_from_obj(r[4])) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (cdr((r[4])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    { /* define lookup-integrable */
    static obj c[] = { obj_from_objptr(vmcases+9) };
    r[5] = obj_from_objptr(c); }
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(176);
    r[6] = (hendblk(2+1));
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 175: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[3+0] = r[2];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = (cdr((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 176: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k id */
  if (bool_from_obj(r[1])) {
    r[4] = r[1];  
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = (mknull());
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = (mksymbol(internsym("ref")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
  }
    { /* box */ 
    hreserve(hbsz(2), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = obj_from_size(BOX_BTAG); 
    r[5] = (hendblk(2)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = (cx__2Atop_2Dtransformer_2Denv_2A);
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    cx__2Atop_2Dtransformer_2Denv_2A = (hendblk(3)); }
    r[6] = r[5];  
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

s_loop_v12984: /* k l */
  if ((ispair((r[1])))) {
    r[2] = (cdr((r[1])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(177);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    r[1] = r[2];  
    goto s_loop_v12984;
  } else {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 177: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k l */
    r[4] = (car((r[3])));
    r[5] = (cdr((r[4])));
    hreserve(hbsz(1), 6); /* 6 live regs */
    *--hp = r[5];  
    r[6] = (hendblk(1));
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(178);
    r[7] = (hendblk(4+1));
    r[8] = (objptr_from_obj(r[6])[0]);
    r[8] = obj_from_bool(ispair((r[8])));
  if (bool_from_obj(r[8])) {
    r[8] = (objptr_from_obj(r[6])[0]);
    r[8] = (car((r[8])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("syntax-rules"))));
  } else {
    r[8] = obj_from_bool(0);
  }
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(2+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_case(179);
    r[8] = (hendblk(2+1));
    r[9] = (objptr_from_obj(r[6])[0]);
    r[10] = (cdr((r[9])));
    r[9] = (car((r[10])));
    r[9] = (cxs_id_3F((r[9])));
  if (bool_from_obj(r[9])) {
    r[9] = (objptr_from_obj(r[6])[0]);
    r[10] = (cdr((r[9])));
    r[9] = (car((r[10])));
    r[10] = (objptr_from_obj(r[6])[0]);
    r[11] = (cdr((r[10])));
    r[11] = (cdr((r[11])));
    r[10] = (car((r[11])));
    r[11] = (objptr_from_obj(r[6])[0]);
    r[12] = (cdr((r[11])));
    r[12] = (cdr((r[12])));
    r[11] = (cdr((r[12])));
    r[0] = r[8];  
    r[1] = (cx_top_2Dtransformer_2Denv);
    r[2] = r[9];  
    r[3] = (r[10]);
    r[4] = (r[11]);
    goto gs_syntax_2Drules_2A;
  } else {
    r[9] = (objptr_from_obj(r[6])[0]);
    r[10] = (cdr((r[9])));
    r[9] = (car((r[10])));
    r[10] = (objptr_from_obj(r[6])[0]);
    r[11] = (cdr((r[10])));
    r[10] = (cdr((r[11])));
    r[0] = r[8];  
    r[1] = (cx_top_2Dtransformer_2Denv);
    r[2] = obj_from_bool(0);
    r[3] = r[9];  
    r[4] = (r[10]);
    goto gs_syntax_2Drules_2A;
  }
  } else {
    r[8+0] = obj_from_ktrap();
    r[8+1] = obj_from_void(0);
    r[8+2] = r[2];  
    r[8+3] = r[1];  
    r[8+4] = r[4];  
    r[8+5] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v12994;
  }

case 178: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
s_l_v12994: /* ek . k r bnd v */
    r[6] = (objptr_from_obj(r[5])[0]);
    { /* box */ 
    hreserve(hbsz(2), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = obj_from_size(BOX_BTAG); 
    r[6] = (hendblk(2)); }
    r[7] = (car((r[4])));
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 179: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k v */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = (objptr_from_obj(r[3])[0] = (r[1]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 180: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    cx__2Atop_2Dtransformer_2Denv_2A = r[1];  
    r[3] = obj_from_void(0);
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 181: /* install-transformer! k s t */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k s t */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(182);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_top_2Dtransformer_2Denv;

case 182: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k t */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(boxref((r[1])) = (r[3]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 183: /* clo k appos? sexp optenv */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k appos? sexp optenv */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    r[3] = ((isnull((r[3]))) ? (cx_top_2Dtransformer_2Denv) : (car((r[3]))));
    goto gs_xform;

case 184: /* syntax-rules* k mac-env ellipsis pat-literals rules */
    assert(rc == 6);
    r += 1; /* shift reg. wnd */
gs_syntax_2Drules_2A: /* k mac-env ellipsis pat-literals rules */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(186);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = obj_from_case(188);
    r[6] = (hendblk(1+1));
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(185);
    r[7] = (hendblk(1+1));
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[4];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(195);
    r[5] = (hendblk(6+1));
    r[6+0] = r[0];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 185: /* clo k id */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k id pat-literals */
    { /* memq */
    obj x = (r[1]), l = r[2];  
    for (; l != mknull(); l = cdr(l)) if (car(l) == x) break;
    r[3] = (l == mknull() ? obj_from_bool(0) : l); }
    r[3] = obj_from_bool(!bool_from_obj(r[3]));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 186: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k x mac-env ellipsis */
  if ((ispair((r[1])))) {
    r[4] = (car((r[1])));
  if (bool_from_obj(r[3])) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool((r[4]) == (r[3]));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if (bool_from_obj(cxs_id_3F((r[4])))) {
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(187);
    r[5] = (hendblk(1+1));
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[4];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 187: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[3] = (boxref((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("..."))));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 188: /* clo k x include-scalars pred? */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k x include-scalars pred? ellipsis-pair? */
    r[5+0] = r[0];  
    r[5+1] = r[1];  
    r[5+2] = r[2];  
    r[5+3] = (mknull());
    r[5+4] = r[4];  
    r[5+5] = r[3];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_collect;

case 189: /* clo k x inc l */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1];
    r[1+5] = p[2]; }
    r += 1; /* shift reg. wnd */
s_collect: /* k x inc l ellipsis-pair? pred? */
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(189);
    r[6] = (hendblk(2+1));
  if (bool_from_obj(cxs_id_3F((r[1])))) {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(190);
    r[7] = (hendblk(3+1));
  if (bool_from_obj(r[2])) {
    r[8+0] = r[5];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[8+0] = obj_from_ktrap();
    r[8+1] = obj_from_bool(0);
    r[8+2] = r[0];  
    r[8+3] = r[3];  
    r[8+4] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v12903;
  }
  } else {
  if ((isvector((r[1])))) {
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = obj_from_case(191);
    r[7] = (hendblk(4+1));
    r[8+0] = (cx_vector_2D_3Elist);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = r[1];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((ispair((r[1])))) {
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(192);
    r[7] = (hendblk(5+1));
    r[8+0] = r[4];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = (cdr((r[1])));
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }

case 190: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v12903: /* ek r k l x */
  if (bool_from_obj(r[1])) {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 191: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r collect l inc k */
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r[6+3] = r[4];  
    r[6+4] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 192: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r l inc collect x k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(193);
    r[7] = (hendblk(3+1));
    r[8] = (cdr((r[5])));
    r[8] = (cdr((r[8])));
    r[9+0] = r[4];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[7];  
    r[9+2] = r[8];  
    r[9+3] = r[3];  
    r[9+4] = r[2];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_case(194);
    r[7] = (hendblk(4+1));
    r[8+0] = r[4];  
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[7];  
    r[8+2] = (cdr((r[5])));
    r[8+3] = r[3];  
    r[8+4] = r[2];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  }

case 193: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r collect x k */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (car((r[3])));
    r[5+3] = obj_from_bool(1);
    r[5+4] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 194: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r collect inc x k */
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (car((r[4])));
    r[6+3] = r[3];  
    r[6+4] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 195: /* clo k use use-env */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4];
    r[1+7] = p[5];
    r[1+8] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* k use use-env pat-literals mac-env not-pat-literal? ellipsis-pair? list-ids rules */
    r[9+0] = r[0];  
    r[9+1] = r[8];  
    r[9+2] = r[2];  
    r[9+3] = r[3];  
    r[9+4] = r[1];  
    r[9+5] = r[4];  
    r[9+6] = r[5];  
    r[9+7] = r[6];  
    r[9+8] = r[7];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v12553;

case 196: /* clo k rules */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
s_loop_v12553: /* k rules use-env pat-literals use mac-env not-pat-literal? ellipsis-pair? list-ids */
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(196);
    r[9] = (hendblk(7+1));
    hreserve(hbsz(10+1), 10); /* 10 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[9];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(197);
    r[9] = (hendblk(10+1));
  if ((isnull((r[1])))) {
    r[0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[9];  
    r[2] = (cx__231770);
    r[3] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    hreserve(hbsz(7+1), 10); /* 10 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(196);
    r[10] = (hendblk(7+1));
    r[11+0] = obj_from_ktrap();
    r[11+1] = obj_from_void(0);
    r[11+2] = r[2];  
    r[11+3] = r[3];  
    r[11+4] = r[4];  
    r[11+5] = (r[10]);
    r[11+6] = r[5];  
    r[11+7] = r[6];  
    r[11+8] = r[7];  
    r[11+9] = r[8];  
    r[11+10] = r[0];  
    r[11+11] = r[1];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v12555;
  }

case 197: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
s_l_v12555: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellipsis-pair? list-ids k rules */
    r[12] = (car((r[11])));
    r[13] = (car((r[12])));
    r[14] = (cdr((r[12])));
    r[14] = (car((r[14])));
    hreserve(hbsz(9+1), 15); /* 15 live regs */
    *--hp = (r[10]);
    *--hp = (r[14]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = (r[13]);
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = (r[11]);
    *--hp = r[5];  
    *--hp = obj_from_case(198);
    r[15] = (hendblk(9+1));
    hreserve(hbsz(8+1), 16); /* 16 live regs */
    *--hp = (r[13]);
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[6];  
    *--hp = r[2];  
    *--hp = r[7];  
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = obj_from_case(224);
    r[16] = (hendblk(8+1));
    r[0] = (cx_call_2Dwith_2Dcurrent_2Dcontinuation);
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[15]);
    r[2] = (r[16]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 198: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop rules mac-env not-pat-literal? pat ellipsis-pair? list-ids tmpl k */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(1), 11); /* 11 live regs */
    *--hp = obj_from_void(0);
    r[11] = (hendblk(1));
    hreserve(hbsz(1), 12); /* 12 live regs */
    *--hp = obj_from_void(0);
    r[12] = (hendblk(1));
    hreserve(hbsz(10+1), 13); /* 13 live regs */
    *--hp = (r[12]);
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[1];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(199);
    r[13] = (hendblk(10+1));
    hreserve(hbsz(1+1), 14); /* 14 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(223);
    r[14] = (hendblk(1+1));
    r[15+0] = r[8];  
    pc = objptr_from_obj(r[15+0])[0];
    r[15+1] = (r[13]);
    r[15+2] = r[9];  
    r[15+3] = obj_from_bool(1);
    r[15+4] = (r[14]);
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 199: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek r mac-env not-pat-literal? pat ellipsis-pair? list-ids r tmpl k ellipsis-vars new-literals */
    hreserve(hbsz(9+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(204);
    r[12] = (hendblk(9+1));
    r[0] = (r[12]);
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v12824;

s_loop_v12824: /* k l mac-env */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(200);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v12824;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 200: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r mac-env k l */
    r[5] = (car((r[4])));
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(201);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[5];  
    goto gs_id_2D_3Esym;

case 201: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r mac-env k r id */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(202);
    r[6] = (hendblk(4+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 202: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k r id */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(203);
    r[6] = (hendblk(3+1));
    r[7+0] = r[6];  
    r[7+1] = r[2];  
    r[7+2] = r[1];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_new_2Did;

case 203: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r id */
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[6] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 204: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek r not-pat-literal? pat ellipsis-pair? list-ids r tmpl k ellipsis-vars new-literals */
    hreserve(hbsz(8+1), 11); /* 11 live regs */
    *--hp = r[1];  
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(205);
    r[11] = (hendblk(8+1));
    r[12+0] = r[5];  
    pc = objptr_from_obj(r[12+0])[0];
    r[12+1] = (r[11]);
    r[12+2] = r[3];  
    r[12+3] = obj_from_bool(0);
    r[12+4] = r[2];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 205: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek r ellipsis-pair? list-ids r tmpl k ellipsis-vars new-literals r */
    (void)(objptr_from_obj(r[8])[0] = (r[9]));
    (void)(objptr_from_obj(r[7])[0] = (r[1]));
    r[10+0] = r[6];  
    r[10+1] = r[5];  
    r[10+2] = r[4];  
    r[10+3] = r[2];  
    r[10+4] = r[3];  
    r[10+5] = r[7];  
    r[10+6] = r[8];  
    r[10+7] = r[4];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_expand;

case 206: /* clo k tmpl bindings */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4];
    r[1+7] = p[5]; }
    r += 1; /* shift reg. wnd */
s_expand: /* k tmpl bindings ellipsis-pair? list-ids ellipsis-vars new-literals r */
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(206);
    r[8] = (hendblk(5+1));
    r[9+0] = r[0];  
    r[9+1] = r[1];  
    r[9+2] = r[3];  
    r[9+3] = r[4];  
    r[9+4] = r[5];  
    r[9+5] = r[8];  
    r[9+6] = r[6];  
    r[9+7] = r[7];  
    r[9+8] = r[2];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_expand_2Dpart;

case 207: /* clo k tmpl */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-literals r bindings */
    hreserve(hbsz(7+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(207);
    r[9] = (hendblk(7+1));
  if (bool_from_obj(cxs_id_3F((r[1])))) {
    { /* assq */
    obj x = (r[1]), l = (r[8]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[10] = (l == mknull() ? obj_from_bool(0) : p); }
  if (bool_from_obj(r[10])) {
    r[10] = (r[10]);
  } else {
    { /* assq */
    obj x = (r[1]), l = (r[7]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[11] = (l == mknull() ? obj_from_bool(0) : p); }
  if (bool_from_obj(r[11])) {
    r[10] = (r[11]);
  } else {
    r[12] = (objptr_from_obj(r[6])[0]);
    { /* assq */
    obj x = (r[1]), l = (r[12]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[10] = (l == mknull() ? obj_from_bool(0) : p); }
  }
  }
    r[10] = (cdr((r[10])));
    r[11+0] = r[0];  
    pc = objptr_from_obj(r[11+0])[0];
    r[11+1] = obj_from_ktrap();
    r[11+2] = (r[10]);
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((isvector((r[1])))) {
    hreserve(hbsz(2+1), 10); /* 10 live regs */
    *--hp = r[0];  
    *--hp = r[9];  
    *--hp = obj_from_case(208);
    r[10] = (hendblk(2+1));
    r[11+0] = (cx_vector_2D_3Elist);
    pc = objptr_from_obj(r[11+0])[0];
    r[11+1] = (r[10]);
    r[11+2] = r[1];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(7+1), 10); /* 10 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[0];  
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(210);
    r[10] = (hendblk(7+1));
  if ((ispair((r[1])))) {
    r[11+0] = r[2];  
    pc = objptr_from_obj(r[11+0])[0];
    r[11+1] = (r[10]);
    r[11+2] = (cdr((r[1])));
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[11+0] = obj_from_ktrap();
    r[11+1] = obj_from_bool(0);
    r[11+2] = r[3];  
    r[11+3] = r[4];  
    r[11+4] = r[8];  
    r[11+5] = r[9];  
    r[11+6] = r[0];  
    r[11+7] = r[5];  
    r[11+8] = r[1];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v12712;
  }
  }
  }

case 208: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r expand-part k */
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(209);
    r[4] = (hendblk(1+1));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 209: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[3+0] = (cx_list_2D_3Evector);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 210: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
s_l_v12712: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */
  if (bool_from_obj(r[1])) {
    hreserve(hbsz(5+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(211);
    r[9] = (hendblk(5+1));
    hreserve(hbsz(1+1), 10); /* 10 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(220);
    r[10] = (hendblk(1+1));
    r[11+0] = r[2];  
    pc = objptr_from_obj(r[11+0])[0];
    r[11+1] = r[9];  
    r[11+2] = (car((r[8])));
    r[11+3] = obj_from_bool(1);
    r[11+4] = (r[10]);
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
  if ((ispair((r[8])))) {
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[6];  
    *--hp = r[8];  
    *--hp = r[5];  
    *--hp = obj_from_case(221);
    r[9] = (hendblk(3+1));
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[9];  
    r[2] = (cdr((r[8])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[6];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[8];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 211: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r bindings expand-part k expand tmpl */
    hreserve(hbsz(1), 7); /* 7 live regs */
    *--hp = obj_from_void(0);
    r[7] = (hendblk(1));
    hreserve(hbsz(3+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = obj_from_case(212);
    r[8] = (hendblk(3+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[8] = (hendblk(3)); }
    (void)(objptr_from_obj(r[7])[0] = (r[8]));
  if ((isnull((r[1])))) {
    hreserve(hbsz(3+1), 8); /* 8 live regs */
    *--hp = r[4];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = obj_from_case(214);
    r[8] = (hendblk(3+1));
    r[9] = (cdr((r[6])));
    r[9] = (cdr((r[9])));
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = r[9];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 8); /* 8 live regs */
    *--hp = r[4];  
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = r[7];  
    *--hp = obj_from_case(217);
    r[8] = (hendblk(4+1));
    r[0] = r[8];  
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v12751;
  }

case 212: /* clo k vals */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* k vals r expand tmpl */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(213);
    r[5] = (hendblk(3+1));
    r[6+0] = (cx__25residual_2Dmap);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (cx__25residual_2Dcons);
    r[6+3] = r[2];  
    r[6+4] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 213: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r expand tmpl k */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (car((r[3])));
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 214: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r expand-part tmpl k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(215);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (car((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 215: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

s_loop_v12751: /* k l bindings */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(216);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v12751;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 216: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r k bindings l */
    r[5] = (car((r[4])));
    { /* assq */
    obj x = (r[5]), l = (r[3]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[6] = (l == mknull() ? obj_from_bool(0) : p); }
    r[5] = (cdr((r[6])));
    { /* cons */ 
    hreserve(hbsz(3), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = obj_from_ktrap();
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 217: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r expand-using-vals expand-part tmpl k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(218);
    r[6] = (hendblk(3+1));
    r[7] = (objptr_from_obj(r[2])[0]);
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[8+0] = (cx_apply);
    pc = objptr_from_obj(r[8+0])[0];
    r[8+1] = r[6];  
    r[8+2] = (cx__25residual_2Dmap);
    r[8+3] = r[7];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 218: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r expand-part tmpl k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(219);
    r[5] = (hendblk(2+1));
    r[6] = (cdr((r[3])));
    r[6] = (cdr((r[6])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 219: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = (cx__25append);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[2];  
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 220: /* clo k id */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k id ellipsis-vars */
    r[3] = (objptr_from_obj(r[2])[0]);
    { /* memq */
    obj x = (r[1]), l = r[3];  
    for (; l != mknull(); l = cdr(l)) if (car(l) == x) break;
    r[3] = (l == mknull() ? obj_from_bool(0) : l); }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 221: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r expand-part tmpl k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(222);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (car((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 222: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 223: /* clo k id */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k id r */
    { /* assq */
    obj x = (r[1]), l = (r[2]), p = mknull();
    for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
    r[3] = (l == mknull() ? obj_from_bool(0) : p); }
    r[3] = obj_from_bool(!bool_from_obj(r[3]));
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 224: /* clo k return */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* k return ellipsis-pair? list-ids not-pat-literal? use-env mac-env pat-literals use pat */
    r[10+0] = r[0];  
    r[10+1] = r[9];  
    r[10+2] = r[8];  
    r[10+3] = (mknull());
    r[10+4] = r[2];  
    r[10+5] = r[3];  
    r[10+6] = r[4];  
    r[10+7] = r[5];  
    r[10+8] = r[6];  
    r[10+9] = r[7];  
    r[10+10] = r[1];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_match;

case 225: /* clo k pat sexp bindings */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1];
    r[1+5] = p[2];
    r[1+6] = p[3];
    r[1+7] = p[4];
    r[1+8] = p[5];
    r[1+9] = p[6];
    r[1+10] = p[7]; }
    r += 1; /* shift reg. wnd */
s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env mac-env pat-literals return */
    hreserve(hbsz(7+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(225);
    r[11] = (hendblk(7+1));
    hreserve(hbsz(2+1), 12); /* 12 live regs */
    *--hp = r[3];  
    *--hp = (r[10]);
    *--hp = obj_from_case(226);
    r[12] = (hendblk(2+1));
  if (bool_from_obj(cxs_id_3F((r[1])))) {
    { /* memq */
    obj x = (r[1]), l = r[9];  
    for (; l != mknull(); l = cdr(l)) if (car(l) == x) break;
    r[13] = (l == mknull() ? obj_from_bool(0) : l); }
  if (bool_from_obj(r[13])) {
  if (bool_from_obj(cxs_id_3F((r[2])))) {
    hreserve(hbsz(4+1), 13); /* 13 live regs */
    *--hp = r[0];  
    *--hp = (r[12]);
    *--hp = r[1];  
    *--hp = r[8];  
    *--hp = obj_from_case(227);
    r[13] = (hendblk(4+1));
    r[14+0] = r[7];  
    pc = objptr_from_obj(r[14+0])[0];
    r[14+1] = (r[13]);
    r[14+2] = r[2];  
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    /* r[0] */    
    r[1] = obj_from_bool(0);
    r[2] = (r[10]);
    /* r[3] */    
    goto s_l_v12678;
  }
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 13); /* 13 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[13] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 14); /* 14 live regs */
    *--hp = r[3];  
    *--hp = (r[13]);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[13] = (hendblk(3)); }
    r[14+0] = r[0];  
    pc = objptr_from_obj(r[14+0])[0];
    r[14+1] = obj_from_ktrap();
    r[14+2] = (r[13]);
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  } else {
  if ((isvector((r[1])))) {
    hreserve(hbsz(5+1), 13); /* 13 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = (r[11]);
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(229);
    r[13] = (hendblk(5+1));
  if ((isvector((r[2])))) {
    r[14+0] = obj_from_ktrap();
    r[14+1] = obj_from_bool(isvector((r[2])));
    r[14+2] = r[1];  
    r[14+3] = r[2];  
    r[14+4] = (r[11]);
    r[14+5] = r[3];  
    r[14+6] = r[0];  
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v12648;
  } else {
    r[0] = (r[10]);
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[13]);
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  } else {
  if ((!(ispair((r[1]))))) {
    r[13] = obj_from_bool(isequal((r[1]), (r[2])));
    /* r[0] */    
    r[1] = (r[13]);
    r[2] = (r[10]);
    /* r[3] */    
    goto s_l_v12678;
  } else {
    hreserve(hbsz(8+1), 13); /* 13 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = (r[11]);
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = (r[10]);
    *--hp = obj_from_case(232);
    r[13] = (hendblk(8+1));
    r[14+0] = r[4];  
    pc = objptr_from_obj(r[14+0])[0];
    r[14+1] = (r[13]);
    r[14+2] = (cdr((r[1])));
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }

case 226: /* clo k condition */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v12678: /* k condition return bindings */
  if (bool_from_obj(r[1])) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = obj_from_bool(0);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 227: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r mac-env pat continue-if k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(228);
    r[6] = (hendblk(3+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 228: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r continue-if r k */
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = obj_from_bool((r[3]) == (r[1]));
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 229: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
s_l_v12648: /* ek . pat sexp match bindings k */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(230);
    r[7] = (hendblk(4+1));
    r[0] = (cx_vector_2D_3Elist);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 230: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r sexp match bindings k */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(231);
    r[6] = (hendblk(4+1));
    r[0] = (cx_vector_2D_3Elist);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 231: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r match bindings r k */
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[4];  
    r[6+3] = r[1];  
    r[6+4] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 232: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek r return list-ids not-pat-literal? match bindings k sexp pat */
  if (bool_from_obj(r[1])) {
    r[10] = (cdr((r[9])));
    r[10] = (cdr((r[10])));
    { /* length */
    int n; obj l = (r[10]);
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[10] = obj_from_fixnum(n); }
    hreserve(hbsz(9+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[9];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(233);
    r[11] = (hendblk(9+1));
  if ((islist((r[8])))) {
    { /* length */
    int n; obj l = r[8];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[12] = obj_from_fixnum(n); }
    r[13+0] = obj_from_ktrap();
    r[13+1] = (r[12]);
    r[13+2] = r[2];  
    r[13+3] = r[3];  
    r[13+4] = r[4];  
    r[13+5] = r[5];  
    r[13+6] = r[6];  
    r[13+7] = r[9];  
    r[13+8] = r[7];  
    r[13+9] = r[8];  
    r[13+10] = (r[10]);
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v12568;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[11]);
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  } else {
  if ((ispair((r[8])))) {
    hreserve(hbsz(4+1), 10); /* 10 live regs */
    *--hp = r[7];  
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[5];  
    *--hp = obj_from_case(244);
    r[10] = (hendblk(4+1));
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = (cdr((r[9])));
    r[3] = (cdr((r[8])));
    r[4] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 233: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
s_l_v12568: /* ek r return list-ids not-pat-literal? match bindings pat k sexp tail-len */
    hreserve(hbsz(9+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[1];  
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(234);
    r[11] = (hendblk(9+1));
  if (((fxsub(fixnum_from_obj(r[1]), fixnum_from_obj(r[10]))) < 0)) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[11]);
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[12+0] = obj_from_ktrap();
    r[12+1] = obj_from_void(0);
    r[12+2] = r[3];  
    r[12+3] = r[4];  
    r[12+4] = r[5];  
    r[12+5] = r[6];  
    r[12+6] = r[7];  
    r[12+7] = r[8];  
    r[12+8] = r[9];  
    r[12+9] = r[1];  
    r[12+10] = (r[10]);
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v12570;
  }

case 234: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
s_l_v12570: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-len */
    { const fixnum_t v14286_tail_2Dlen = fixnum_from_obj(r[10]);
    { /* list-tail */
    obj l = r[8];   int c = (fxsub(fixnum_from_obj(r[9]), (v14286_tail_2Dlen)));
    while (c-- > 0) l = cdr(l);
    r[11] = (l); }
    { fixnum_t v14287_tmp;
    { /* length */
    int n; obj l = r[8];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14287_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14287_tmp);
    hreserve(hbsz(3)*c, 12); /* 12 live regs */
    l = r[8];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[12] = (o); } }
    { /* list-tail */
    obj l = (r[12]); int c = (v14286_tail_2Dlen);
    while (c-- > 0) l = cdr(l);
    r[12] = (l); }
    { fixnum_t v14288_tmp;
    { /* length */
    int n; obj l = (r[12]);
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14288_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14288_tmp);
    hreserve(hbsz(3)*c, 13); /* 13 live regs */
    l = (r[12]); /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[12] = (o); } }
    hreserve(hbsz(6+1), 13); /* 13 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = (r[11]);
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = (r[12]);
    *--hp = obj_from_case(235);
    r[13] = (hendblk(6+1));
    r[14+0] = r[2];  
    pc = objptr_from_obj(r[14+0])[0];
    r[14+1] = (r[13]);
    r[14+2] = (car((r[6])));
    r[14+3] = obj_from_bool(1);
    r[14+4] = r[3];  
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump; } 

case 235: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek r seq match bindings r pat k */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(241);
    r[8] = (hendblk(6+1));
    r[0] = r[8];  
    r[1] = r[2];  
    r[2] = r[3];  
    r[3] = r[6];  
    goto s_loop_v12591;

s_loop_v12591: /* k l match pat */
  if ((ispair((r[1])))) {
    r[4] = (cdr((r[1])));
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(236);
    r[5] = (hendblk(4+1));
    r[0] = r[5];  
    r[1] = r[4];  
    /* r[2] */    
    /* r[3] */    
    goto s_loop_v12591;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 236: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r match pat k l */
    r[6] = (car((r[5])));
    r[7] = (cx__25residual_2Dcdr);
    hreserve(hbsz(3+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[7];  
    *--hp = obj_from_case(237);
    r[8] = (hendblk(3+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = (car((r[3])));
    r[3] = r[6];  
    r[4] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 237: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r f k r */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(240);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v12602;

s_loop_v12602: /* k l f */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(238);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v12602;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 238: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r f l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(239);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (car((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 239: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 240: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 241: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek r match bindings r pat k r */
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[8] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = (cx__25residual_2Dlist);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    hreserve(hbsz(5+1), 10); /* 10 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(242);
    r[10] = (hendblk(5+1));
    r[0] = (cx_apply);
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[10]);
    r[2] = (cx__25residual_2Dmap);
    r[3] = r[9];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 242: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r match bindings r pat k */
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = obj_from_case(243);
    r[7] = (hendblk(2+1));
    r[8] = (cdr((r[5])));
    r[8] = (cdr((r[8])));
    r[9+0] = r[2];  
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[7];  
    r[9+2] = r[8];  
    r[9+3] = r[4];  
    r[9+4] = r[3];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 243: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = (cx__25append);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[2];  
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 244: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r match sexp pat k */
    r[6+0] = r[2];  
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = (car((r[4])));
    r[6+3] = (car((r[3])));
    r[6+4] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 5;
    goto jump;

case 245: /* clo k msg args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k msg args */
    { /* string-append */
    int *d = stringcat(stringdata((cx__231804)), stringdata((r[1])));
    r[3] = (hpushstr(3, d)); }
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto gs_error_2A;

case 246: /* write-serialized-char k x port */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_write_2Dserialized_2Dchar: /* k x port */
    { const char_t v14285_x = char_from_obj(r[1]);
  if ((((v14285_x) == ('%')) || (((v14285_x) == (34)) || (((v14285_x) == (92)) || (((v14285_x) < (' ')) || ((v14285_x) > ('~'))))))) {
    (void)(oportputc(('%'), (r[2])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(247);
    r[3] = (hendblk(2+1));
    r[4+0] = (cx_fixnum_2D_3Estring);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = obj_from_fixnum((fixnum_t)(v14285_x));
    r[4+3] = obj_from_fixnum(+16);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc((v14285_x), (r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } } 

case 247: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k port */
    (void)(((stringlen((r[1]))) == (+1)) ? (void)(oportputc(('0'), (r[3]))) : (void)(0));
    r[4] = obj_from_void(oportputs(stringchars((r[1])), (r[3])));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 248: /* write-serialized-byte k x port */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_write_2Dserialized_2Dbyte: /* k x port */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(249);
    r[3] = (hendblk(2+1));
    r[4+0] = (cx_fixnum_2D_3Estring);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r[4+3] = obj_from_fixnum(+16);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 249: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k port */
    (void)(((stringlen((r[1]))) == (+1)) ? (void)(oportputc(('0'), (r[3]))) : (void)(0));
    r[4] = obj_from_void(oportputs(stringchars((r[1])), (r[3])));
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 250: /* write-serialized-size k n port */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k n port */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(251);
    r[3] = (hendblk(2+1));
    r[4+0] = (cx_fixnum_2D_3Estring);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r[4+3] = obj_from_fixnum(+10);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 251: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k port */
    (void)(oportputs(stringchars((r[1])), (r[3])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc((':'), (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 252: /* write-serialized-element k x port */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k x port */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(253);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto gs_write_2Dserialized_2Dsexp;

case 253: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc((';'), (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 254: /* write-serialized-sexp k x port */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_write_2Dserialized_2Dsexp: /* k x port */
  if (((r[1]) == obj_from_bool(0))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc(('f'), (r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if (((r[1]) == obj_from_bool(1))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc(('t'), (r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if (((r[1]) == (mknull()))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc(('n'), (r[2])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((is_char_obj(r[1]))) {
    (void)(oportputc(('c'), (r[2])));
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_write_2Dserialized_2Dchar;
  } else {
  if (((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1])))) {
    (void)(oportputc(((is_fixnum_obj(r[1])) ? ('i') : ('j')), (r[2])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(255);
    r[3] = (hendblk(2+1));
  if ((is_fixnum_obj(r[1]))) {
    r[4+0] = (cx_fixnum_2D_3Estring);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r[4+3] = obj_from_fixnum(+10);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[4+0] = (cx_flonum_2D_3Estring);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  } else {
  if ((islist((r[1])))) {
    (void)(oportputc(('l'), (r[2])));
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[3] = obj_from_fixnum(n); }
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(256);
    r[4] = (hendblk(3+1));
    r[5+0] = (cx_fixnum_2D_3Estring);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[3];  
    r[5+3] = obj_from_fixnum(+10);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((ispair((r[1])))) {
    (void)(oportputc(('p'), (r[2])));
    r[3] = (car((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(259);
    r[4] = (hendblk(3+1));
    r[5+0] = (cx_write_2Dserialized_2Dsexp);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[3];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((isvector((r[1])))) {
    (void)(oportputc(('v'), (r[2])));
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(261);
    r[3] = (hendblk(3+1));
    r[4+0] = (cx_fixnum_2D_3Estring);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = obj_from_fixnum(vectorlen((r[1])));
    r[4+3] = obj_from_fixnum(+10);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((isstring((r[1])))) {
    (void)(oportputc(('s'), (r[2])));
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(264);
    r[3] = (hendblk(3+1));
    r[4+0] = (cx_fixnum_2D_3Estring);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = obj_from_fixnum(stringlen((r[1])));
    r[4+3] = obj_from_fixnum(+10);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((isbytevector((r[1])))) {
    (void)(oportputc(('b'), (r[2])));
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(267);
    r[3] = (hendblk(3+1));
    r[4+0] = (cx_fixnum_2D_3Estring);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = obj_from_fixnum(bytevectorlen((r[1])));
    r[4+3] = obj_from_fixnum(+10);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((issymbol((r[1])))) {
    (void)(oportputc(('y'), (r[2])));
    r[3] = (hpushstr(3, newstring(symbolname(getsymbol((r[1]))))));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = obj_from_case(270);
    r[4] = (hendblk(3+1));
    r[5+0] = (cx_fixnum_2D_3Estring);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = obj_from_fixnum(stringlen((r[3])));
    r[5+3] = obj_from_fixnum(+10);
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((isbox((r[1])))) {
    (void)(oportputc(('z'), (r[2])));
    r[3] = (boxref((r[1])));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(273);
    r[4] = (hendblk(2+1));
    r[5+0] = (cx_write_2Dserialized_2Dsexp);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[3];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3+0] = (cx_c_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (cx__231839);
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }

case 255: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k port */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(oportputs(stringchars((r[1])), (r[3])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 256: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r x k port */
    (void)(oportputs(stringchars((r[1])), (r[4])));
    (void)(oportputc((':'), (r[4])));
    r[0] = r[3];  
    r[1] = r[2];  
    r[2] = r[4];  
    goto s_loop_v12458;

case 257: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v12458: /* k x port */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(257);
    r[4] = (hendblk(1+1));
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(258);
    r[4] = (hendblk(4+1));
    r[5+0] = (cx_write_2Dserialized_2Dsexp);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = r[3];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 258: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop x k port */
    (void)(oportputc((';'), (r[5])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 259: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . k x port */
    (void)(oportputc((';'), (r[4])));
    r[5] = (cdr((r[3])));
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = obj_from_case(260);
    r[6] = (hendblk(2+1));
    r[0] = (cx_write_2Dserialized_2Dsexp);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[5];  
    r[3] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 260: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc((';'), (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 261: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r x k port */
    (void)(oportputs(stringchars((r[1])), (r[4])));
    (void)(oportputc((':'), (r[4])));
    r[5+0] = r[3];  
    r[5+1] = obj_from_fixnum(+0);
    r[5+2] = r[4];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v12429;

case 262: /* clo k i */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_loop_v12429: /* k i port x */
  if ((fixnum_from_obj(r[1]) == (vectorlen((r[3]))))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[4] = (vectorref((r[3]), fixnum_from_obj(r[1])));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(262);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = obj_from_case(263);
    r[5] = (hendblk(4+1));
    r[6+0] = (cx_write_2Dserialized_2Dsexp);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[5];  
    r[6+2] = r[4];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 263: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop i k port */
    (void)(oportputc((';'), (r[5])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 264: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r x k port */
    (void)(oportputs(stringchars((r[1])), (r[4])));
    (void)(oportputc((':'), (r[4])));
    r[5+0] = r[3];  
    r[5+1] = obj_from_fixnum(+0);
    r[5+2] = r[4];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v12412;

case 265: /* clo k i */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_loop_v12412: /* k i port x */
  if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(265);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(266);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1])));
    /* r[2] */    
    goto gs_write_2Dserialized_2Dchar;
  }

case 266: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop i k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 267: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r x k port */
    (void)(oportputs(stringchars((r[1])), (r[4])));
    (void)(oportputc((':'), (r[4])));
    r[5+0] = r[3];  
    r[5+1] = obj_from_fixnum(+0);
    r[5+2] = r[4];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v12395;

case 268: /* clo k i */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_loop_v12395: /* k i port x */
  if ((fixnum_from_obj(r[1]) == (bytevectorlen((r[3]))))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(268);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(269);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = obj_from_fixnum(*bytevectorref((r[3]), fixnum_from_obj(r[1])));
    /* r[2] */    
    goto gs_write_2Dserialized_2Dbyte;
  }

case 269: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop i k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 270: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r x k port */
    (void)(oportputs(stringchars((r[1])), (r[4])));
    (void)(oportputc((':'), (r[4])));
    r[5+0] = r[3];  
    r[5+1] = obj_from_fixnum(+0);
    r[5+2] = r[4];  
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v12378;

case 271: /* clo k i */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_loop_v12378: /* k i port x */
  if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(271);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(272);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1])));
    /* r[2] */    
    goto gs_write_2Dserialized_2Dchar;
  }

case 272: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop i k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 273: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc((';'), (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 274: /* write-serialized-arg k arg port */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_write_2Dserialized_2Darg: /* k arg port */
  if (((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1])))) {
  if ((is_fixnum_obj(r[1]))) {
    { const fixnum_t v14284_arg = fixnum_from_obj(r[1]);
    r[3] = obj_from_bool(((+0) <= (v14284_arg)) && ((v14284_arg) <= (+9))); } 
  } else {
    r[3] = obj_from_bool(0);
  }
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    { const char_t v14283_tmp = (*(unsigned char*)stringref((cx__231935), fixnum_from_obj(r[1])));
    r[3] = obj_from_void(oportputc((v14283_tmp), (r[2]))); } 
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    (void)(oportputc(('('), (r[2])));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(275);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto gs_write_2Dserialized_2Dsexp;
  }

case 275: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc((')'), (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 276: /* find-free* k x* b */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_find_2Dfree_2A: /* k x* b */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(277);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    r[1] = (car((r[1])));
    /* r[2] */    
    goto gs_find_2Dfree;
  }

case 277: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r b x* k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(278);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = (cdr((r[3])));
    /* r[2] */    
    goto gs_find_2Dfree_2A;

case 278: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dunion;

case 279: /* find-free k x b */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_find_2Dfree: /* k x b */
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("quote"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(280);
    r[3] = (hendblk(0+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("ref"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(281);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("set!"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(282);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("set&"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(284);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(285);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda*"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(288);
    r[3] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("letcc"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(292);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("withcc"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(294);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("if"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(297);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("begin"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(302);
    r[3] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("integrable"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(303);
    r[3] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("call"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(304);
    r[3] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("define"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(307);
    r[3] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mksymbol(internsym("record-case-miss")));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }

case 280: /* clo k obj */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k obj */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 281: /* clo k id */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k id b */
  if (bool_from_obj(cxs_set_2Dmember_3F((r[1]), (r[2])))) {
    r[3] = (mknull());
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 282: /* clo k id exp */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k id exp b */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(283);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[2];  
    r[2] = r[3];  
    goto gs_find_2Dfree;

case 283: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r id b k */
  if (bool_from_obj(cxs_set_2Dmember_3F((r[2]), (r[3])))) {
    r[5] = (mknull());
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
  }
    r[6+0] = r[4];  
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dunion;

case 284: /* clo k id */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k id b */
  if (bool_from_obj(cxs_set_2Dmember_3F((r[1]), (r[2])))) {
    r[3] = (mknull());
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 285: /* clo k idsi exp */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k idsi exp b */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(286);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    /* r[1] */    
    goto gs_flatten_2Didslist;

case 286: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r b exp k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(287);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    /* r[1] */    
    /* r[2] */    
    goto gs_set_2Dunion;

case 287: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r exp k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_find_2Dfree;

case 288: /* clo k clauses */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k clauses b */
    r[3] = (cx__25residual_2Dcadr);
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(291);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    /* r[1] */    
    r[2] = r[3];  
    goto s_loop_v12255;

s_loop_v12255: /* k l f */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(289);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v12255;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 289: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r f l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(290);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (car((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 290: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 291: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r b k */
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto gs_find_2Dfree_2A;

case 292: /* clo k kid exp */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k kid exp b */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(293);
    r[4] = (hendblk(2+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[0] = r[4];  
    r[1] = r[5];  
    r[2] = r[3];  
    goto gs_set_2Dunion;

case 293: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r exp k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_find_2Dfree;

case 294: /* clo k kexp exp */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k kexp exp b */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(295);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    /* r[1] */    
    r[2] = r[3];  
    goto gs_find_2Dfree;

case 295: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r b exp k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(296);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[3];  
    /* r[2] */    
    goto gs_find_2Dfree;

case 296: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dunion;

case 297: /* clo k test then else */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k test then else b */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = obj_from_case(298);
    r[5] = (hendblk(4+1));
    r[0] = r[5];  
    /* r[1] */    
    r[2] = r[4];  
    goto gs_find_2Dfree;

case 298: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r then b else k */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(299);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[2];  
    r[2] = r[3];  
    goto gs_find_2Dfree;

case 299: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r b else r k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(300);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = r[3];  
    /* r[2] */    
    goto gs_find_2Dfree;

case 300: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(301);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = r[2];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dunion;

case 301: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dunion;

case 302: /* clo k exps */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k exps b */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_find_2Dfree_2A;

case 303: /* clo k ig args */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k ig args b */
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto gs_find_2Dfree_2A;

case 304: /* clo k exp args */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k exp args b */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(305);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    /* r[1] */    
    r[2] = r[3];  
    goto gs_find_2Dfree;

case 305: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r b args k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(306);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[3];  
    /* r[2] */    
    goto gs_find_2Dfree_2A;

case 306: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dunion;

case 307: /* clo k tail */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k tail x */
    r[3+0] = (cx_c_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (cx__231956);
    r[3+3] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 308: /* find-sets* k x* v */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_find_2Dsets_2A: /* k x* v */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(309);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    r[1] = (car((r[1])));
    /* r[2] */    
    goto gs_find_2Dsets;
  }

case 309: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r v x* k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(310);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = (cdr((r[3])));
    /* r[2] */    
    goto gs_find_2Dsets_2A;

case 310: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dunion;

case 311: /* find-sets k x v */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_find_2Dsets: /* k x v */
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("quote"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(312);
    r[3] = (hendblk(0+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("ref"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(313);
    r[3] = (hendblk(0+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("set!"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(314);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("set&"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(316);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(317);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda*"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(320);
    r[3] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("letcc"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(324);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("withcc"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(326);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("begin"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(329);
    r[3] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("if"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(330);
    r[3] = (hendblk(1+1));
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("integrable"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(335);
    r[3] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("call"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(336);
    r[3] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("define"))));
  if (bool_from_obj(r[3])) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(339);
    r[3] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = r[3];  
    r[4+3] = (cdr((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mksymbol(internsym("record-case-miss")));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }

case 312: /* clo k obj */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k obj */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 313: /* clo k id */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k id */
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = (mknull());
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 314: /* clo k id x */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k id x v */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(315);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[2];  
    r[2] = r[3];  
    goto gs_find_2Dsets;

case 315: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r id v k */
  if (bool_from_obj(cxs_set_2Dmember_3F((r[2]), (r[3])))) {
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
  } else {
    r[5] = (mknull());
  }
    r[6+0] = r[4];  
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dunion;

case 316: /* clo k id */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k id v */
  if (bool_from_obj(cxs_set_2Dmember_3F((r[1]), (r[2])))) {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
  } else {
    r[3] = (mknull());
  }
    r[4+0] = r[0];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 317: /* clo k idsi exp */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k idsi exp v */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(318);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    /* r[1] */    
    goto gs_flatten_2Didslist;

case 318: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r v exp k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(319);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = r[2];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dminus;

case 319: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r exp k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_find_2Dsets;

case 320: /* clo k clauses */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k clauses v */
    r[3] = (cx__25residual_2Dcadr);
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(323);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    /* r[1] */    
    r[2] = r[3];  
    goto s_loop_v12038;

s_loop_v12038: /* k l f */
  if ((ispair((r[1])))) {
    r[3] = (cdr((r[1])));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(321);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v12038;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mknull());
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 321: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r f l k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = obj_from_case(322);
    r[5] = (hendblk(2+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (car((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 322: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    { /* cons */ 
    hreserve(hbsz(3), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    r[5+0] = r[2];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 323: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r v k */
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto gs_find_2Dsets_2A;

case 324: /* clo k kid exp */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k kid exp v */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(325);
    r[4] = (hendblk(2+1));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[5] = (hendblk(3)); }
    r[6+0] = r[4];  
    r[6+1] = r[3];  
    r[6+2] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dminus;

case 325: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r exp k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_find_2Dsets;

case 326: /* clo k kexp exp */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k kexp exp v */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(327);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    /* r[1] */    
    r[2] = r[3];  
    goto gs_find_2Dsets;

case 327: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r v exp k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(328);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[3];  
    /* r[2] */    
    goto gs_find_2Dsets;

case 328: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dunion;

case 329: /* clo k exps */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k exps v */
    /* r[0] */    
    /* r[1] */    
    /* r[2] */    
    goto gs_find_2Dsets_2A;

case 330: /* clo k test then else */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k test then else v */
    hreserve(hbsz(4+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = obj_from_case(331);
    r[5] = (hendblk(4+1));
    r[0] = r[5];  
    /* r[1] */    
    r[2] = r[4];  
    goto gs_find_2Dsets;

case 331: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r then v else k */
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(332);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[2];  
    r[2] = r[3];  
    goto gs_find_2Dsets;

case 332: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r v else r k */
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(333);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = r[3];  
    /* r[2] */    
    goto gs_find_2Dsets;

case 333: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r r k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(334);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = r[2];  
    r[6+2] = r[1];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dunion;

case 334: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dunion;

case 335: /* clo k ig args */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k ig args v */
    /* r[0] */    
    r[1] = r[2];  
    r[2] = r[3];  
    goto gs_find_2Dsets_2A;

case 336: /* clo k exp args */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k exp args v */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(337);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    /* r[1] */    
    r[2] = r[3];  
    goto gs_find_2Dsets;

case 337: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r v args k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = obj_from_case(338);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[3];  
    /* r[2] */    
    goto gs_find_2Dsets_2A;

case 338: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    r[4+0] = r[3];  
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dunion;

case 339: /* clo k tail */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k tail x */
    r[3+0] = (cx_c_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (cx__231956);
    r[3+3] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 340: /* codegen k x l f s g k port */
    assert(rc == 9);
    r += 1; /* shift reg. wnd */
gs_codegen: /* k x l f s g k port */
    r[8] = (car((r[1])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("quote"))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(2+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = obj_from_case(341);
    r[8] = (hendblk(2+1));
    r[9+0] = (cx_apply);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r[9+3] = (cdr((r[1])));
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[8] = (car((r[1])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("ref"))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(343);
    r[8] = (hendblk(5+1));
    r[9+0] = (cx_apply);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r[9+3] = (cdr((r[1])));
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[8] = (car((r[1])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("set!"))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_case(347);
    r[8] = (hendblk(6+1));
    r[9+0] = (cx_apply);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r[9+3] = (cdr((r[1])));
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[8] = (car((r[1])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("set&"))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(4+1), 8); /* 8 live regs */
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[3];  
    *--hp = obj_from_case(350);
    r[8] = (hendblk(4+1));
    r[9+0] = (cx_apply);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r[9+3] = (cdr((r[1])));
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[8] = (car((r[1])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("begin"))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_case(352);
    r[8] = (hendblk(6+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[8] = (hendblk(3)); }
    r[9+0] = (cx_apply);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r[9+3] = (cdr((r[1])));
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[8] = (car((r[1])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("if"))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_case(356);
    r[8] = (hendblk(6+1));
    r[9+0] = (cx_apply);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r[9+3] = (cdr((r[1])));
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[8] = (car((r[1])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("lambda"))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(360);
    r[8] = (hendblk(6+1));
    r[9+0] = (cx_apply);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r[9+3] = (cdr((r[1])));
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[8] = (car((r[1])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("lambda*"))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_case(376);
    r[8] = (hendblk(6+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[8] = (hendblk(3)); }
    r[9+0] = (cx_apply);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r[9+3] = (cdr((r[1])));
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[8] = (car((r[1])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("letcc"))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(385);
    r[8] = (hendblk(6+1));
    r[9+0] = (cx_apply);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r[9+3] = (cdr((r[1])));
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[8] = (car((r[1])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("withcc"))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_case(392);
    r[8] = (hendblk(5+1));
    r[9+0] = (cx_apply);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r[9+3] = (cdr((r[1])));
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[8] = (car((r[1])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("integrable"))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[7];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = obj_from_case(397);
    r[8] = (hendblk(6+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    r[8] = (hendblk(3)); }
    r[9+0] = (cx_apply);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r[9+3] = (cdr((r[1])));
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[8] = (car((r[1])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("call"))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = r[7];  
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(432);
    r[8] = (hendblk(6+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = obj_from_fixnum(+1);
    *--hp = obj_from_objptr(appcases+1);
    r[8] = (hendblk(3)); }
    r[9+0] = (cx_apply);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r[9+3] = (cdr((r[1])));
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[8] = (car((r[1])));
    r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("define"))));
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(1+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = obj_from_case(453);
    r[8] = (hendblk(1+1));
    { /* make-improper-lambda */
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = obj_from_fixnum(+0);
    *--hp = obj_from_objptr(appcases+1);
    r[8] = (hendblk(3)); }
    r[9+0] = (cx_apply);
    pc = objptr_from_obj(r[9+0])[0];
    r[9+1] = r[0];  
    r[9+2] = r[8];  
    r[9+3] = (cdr((r[1])));
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (mksymbol(internsym("record-case-miss")));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }

case 341: /* clo k obj */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k obj port k */
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(342);
    r[4] = (hendblk(3+1));
  if (((((r[1]) == obj_from_bool(1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    r[5] = obj_from_void(oportputc(('t'), (r[2])));
    r[6+0] = obj_from_ktrap();
    r[6+1] = r[5];  
    r[6+2] = r[0];  
    r[6+3] = r[2];  
    r[6+4] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v11895;
  } else {
  if (((((r[1]) == obj_from_bool(0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    r[5] = obj_from_void(oportputc(('f'), (r[2])));
    r[6+0] = obj_from_ktrap();
    r[6+1] = r[5];  
    r[6+2] = r[0];  
    r[6+3] = r[2];  
    r[6+4] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v11895;
  } else {
  if (((((r[1]) == (mknull())) || ((is_flonum_obj(r[1])) && ((is_flonum_obj(mknull())) && (flonum_from_obj(r[1]) == flonum_from_obj(mknull()))))) && (1))) {
    r[5] = obj_from_void(oportputc(('n'), (r[2])));
    r[6+0] = obj_from_ktrap();
    r[6+1] = r[5];  
    r[6+2] = r[0];  
    r[6+3] = r[2];  
    r[6+4] = r[3];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v11895;
  } else {
    (void)(oportputc((39), (r[2])));
    r[0] = r[4];  
    /* r[1] */    
    /* r[2] */    
    goto gs_write_2Dserialized_2Darg;
  }
  }
  }

case 342: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v11895: /* ek . k port k */
  if (bool_from_obj(r[4])) {
    (void)(oportputc((']'), (r[3])));
    r[0] = r[2];  
    r[1] = r[4];  
    r[2] = r[3];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 343: /* clo k id */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* k id f s port k l */
    r[7] = (cxs_posq((r[1]), (r[6])));
    hreserve(hbsz(3+1), 8); /* 8 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[0];  
    *--hp = obj_from_case(344);
    r[8] = (hendblk(3+1));
  if (bool_from_obj(r[7])) {
    (void)(oportputc(('.'), (r[4])));
    hreserve(hbsz(4+1), 9); /* 9 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[8];  
    *--hp = obj_from_case(345);
    r[9] = (hendblk(4+1));
    r[0] = r[9];  
    r[1] = r[7];  
    r[2] = r[4];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    r[9] = (cxs_posq((r[1]), (r[2])));
  if (bool_from_obj(r[9])) {
    (void)(oportputc((':'), (r[4])));
    hreserve(hbsz(4+1), 10); /* 10 live regs */
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[8];  
    *--hp = obj_from_case(346);
    r[10] = (hendblk(4+1));
    r[0] = (r[10]);
    r[1] = r[9];  
    r[2] = r[4];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    (void)(oportputc(('@'), (r[4])));
    r[0] = r[8];  
    /* r[1] */    
    r[2] = r[4];  
    goto gs_write_2Dserialized_2Darg;
  }
  }

case 344: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port k */
  if (bool_from_obj(r[4])) {
    (void)(oportputc((']'), (r[3])));
    r[0] = r[2];  
    r[1] = r[4];  
    r[2] = r[3];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 345: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port id s */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(bool_from_obj(cxs_set_2Dmember_3F((r[4]), (r[5]))) ? (void)(oportputc(('^'), (r[3]))) : (void)(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 346: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port id s */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(bool_from_obj(cxs_set_2Dmember_3F((r[4]), (r[5]))) ? (void)(oportputc(('^'), (r[3]))) : (void)(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 347: /* clo k id x */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4];
    r[1+7] = p[5];
    r[1+8] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* k id x g s f port k l */
    hreserve(hbsz(6+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[5];  
    *--hp = obj_from_case(348);
    r[9] = (hendblk(6+1));
    r[10+0] = r[9];  
    r[10+1] = r[2];  
    r[10+2] = r[8];  
    r[10+3] = r[5];  
    r[10+4] = r[4];  
    r[10+5] = r[3];  
    r[10+6] = obj_from_bool(0);
    r[10+7] = r[6];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 348: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek . f k port k id l */
    r[8] = (cxs_posq((r[6]), (r[7])));
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(349);
    r[9] = (hendblk(3+1));
  if (bool_from_obj(r[8])) {
    (void)(oportputc(('.'), (r[4])));
    (void)(oportputc(('!'), (r[4])));
    r[0] = r[9];  
    r[1] = r[8];  
    r[2] = r[4];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    r[10] = (cxs_posq((r[6]), (r[2])));
  if (bool_from_obj(r[10])) {
    (void)(oportputc((':'), (r[4])));
    (void)(oportputc(('!'), (r[4])));
    r[0] = r[9];  
    r[1] = (r[10]);
    r[2] = r[4];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    (void)(oportputc(('@'), (r[4])));
    (void)(oportputc(('!'), (r[4])));
    r[0] = r[9];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_write_2Dserialized_2Darg;
  }
  }

case 349: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port k */
  if (bool_from_obj(r[4])) {
    (void)(oportputc((']'), (r[3])));
    r[0] = r[2];  
    r[1] = r[4];  
    r[2] = r[3];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 350: /* clo k id */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* k id f port k l */
    r[6] = (cxs_posq((r[1]), (r[5])));
    hreserve(hbsz(3+1), 7); /* 7 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = obj_from_case(351);
    r[7] = (hendblk(3+1));
  if (bool_from_obj(r[6])) {
    (void)(oportputc(('.'), (r[3])));
    r[0] = r[7];  
    r[1] = r[6];  
    r[2] = r[3];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    r[8] = (cxs_posq((r[1]), (r[2])));
  if (bool_from_obj(r[8])) {
    (void)(oportputc((':'), (r[3])));
    r[0] = r[7];  
    r[1] = r[8];  
    r[2] = r[3];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    (void)(oportputc(('`'), (r[3])));
    r[0] = r[7];  
    /* r[1] */    
    r[2] = r[3];  
    goto gs_write_2Dserialized_2Darg;
  }
  }

case 351: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port k */
  if (bool_from_obj(r[4])) {
    (void)(oportputc((']'), (r[3])));
    r[0] = r[2];  
    r[1] = r[4];  
    r[2] = r[3];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 352: /* clo k exps */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* k exps g s f l port k */
    hreserve(hbsz(4+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = obj_from_case(355);
    r[8] = (hendblk(4+1));
    r[9+0] = r[8];  
    r[9+1] = r[1];  
    r[9+2] = r[6];  
    r[9+3] = r[2];  
    r[9+4] = r[3];  
    r[9+5] = r[4];  
    r[9+6] = r[5];  
    r[9+7] = r[7];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v11821;

case 353: /* clo k xl */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
s_loop_v11821: /* k xl port g s f l k */
  if ((ispair((r[1])))) {
    r[8] = (cdr((r[1])));
    r[8] = obj_from_bool(ispair((r[8])));
  if (bool_from_obj(r[8])) {
    r[8] = obj_from_bool(0);
  } else {
    r[8] = r[7];  
  }
    hreserve(hbsz(6+1), 9); /* 9 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(353);
    r[9] = (hendblk(6+1));
    hreserve(hbsz(3+1), 10); /* 10 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[9];  
    *--hp = obj_from_case(354);
    r[9] = (hendblk(3+1));
    r[10+0] = r[9];  
    r[10+1] = (car((r[1])));
    r[10+2] = r[6];  
    r[10+3] = r[5];  
    r[10+4] = r[4];  
    r[10+5] = r[3];  
    r[10+6] = r[8];  
    r[10+7] = r[2];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 354: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop xl k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 355: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port exps k */
  if ((bool_from_obj(r[5]) && (isnull((r[4]))))) {
    (void)(oportputc((']'), (r[3])));
    r[0] = r[2];  
    r[1] = r[5];  
    r[2] = r[3];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 356: /* clo k test then else */
    assert(rc == 5);
    { obj* p = objptr_from_obj(r[0]);
    r[1+4] = p[1];
    r[1+5] = p[2];
    r[1+6] = p[3];
    r[1+7] = p[4];
    r[1+8] = p[5];
    r[1+9] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* k test then else g s f l k port */
    hreserve(hbsz(9+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = obj_from_case(357);
    r[10] = (hendblk(9+1));
    r[11+0] = (r[10]);
    r[11+1] = r[1];  
    r[11+2] = r[7];  
    r[11+3] = r[6];  
    r[11+4] = r[5];  
    r[11+5] = r[4];  
    r[11+6] = obj_from_bool(0);
    r[11+7] = r[9];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 357: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek . then g s f l else k k port */
    (void)(oportputc(('?'), (r[10])));
    (void)(oportputc(('{'), (r[10])));
    hreserve(hbsz(8+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(358);
    r[11] = (hendblk(8+1));
    r[12+0] = (r[11]);
    r[12+1] = r[2];  
    r[12+2] = r[6];  
    r[12+3] = r[5];  
    r[12+4] = r[4];  
    r[12+5] = r[3];  
    r[12+6] = r[9];  
    r[12+7] = (r[10]);
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 358: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek . g s f l else k k port */
    (void)(oportputc(('}'), (r[9])));
  if (bool_from_obj(r[8])) {
    r[10+0] = r[7];  
    r[10+1] = r[6];  
    r[10+2] = r[5];  
    r[10+3] = r[4];  
    r[10+4] = r[3];  
    r[10+5] = r[2];  
    r[10+6] = r[8];  
    r[10+7] = r[9];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  } else {
    r[10] = obj_from_bool(isequal((r[6]), (cx__232772)));
  if (bool_from_obj(r[10])) {
    r[0] = r[7];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = (r[10]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if (bool_from_obj(r[6])) {
    (void)(oportputc(('{'), (r[9])));
    hreserve(hbsz(2+1), 11); /* 11 live regs */
    *--hp = r[9];  
    *--hp = r[7];  
    *--hp = obj_from_case(359);
    r[11] = (hendblk(2+1));
    r[12+0] = (r[11]);
    r[12+1] = r[6];  
    r[12+2] = r[5];  
    r[12+3] = r[4];  
    r[12+4] = r[3];  
    r[12+5] = r[2];  
    r[12+6] = r[8];  
    r[12+7] = r[9];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  } else {
    r[0] = r[7];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }

case 359: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc(('}'), (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 360: /* clo k idsi exp */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4];
    r[1+7] = p[5];
    r[1+8] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* k idsi exp f l s g k port */
    hreserve(hbsz(9+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(361);
    r[9] = (hendblk(9+1));
    r[0] = r[9];  
    /* r[1] */    
    goto gs_flatten_2Didslist;

case 361: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek r f l idsi s g exp k k port */
    hreserve(hbsz(10+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(362);
    r[11] = (hendblk(10+1));
    r[12+0] = (r[11]);
    r[12+1] = r[7];  
    r[12+2] = r[1];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_find_2Dfree;

case 362: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek r f l idsi s g r exp k k port */
    hreserve(hbsz(10+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(363);
    r[12] = (hendblk(10+1));
    r[0] = (r[12]);
    /* r[1] */    
    r[2] = r[6];  
    goto gs_set_2Dminus;

case 363: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek r f l idsi s g r exp k k port */
    hreserve(hbsz(11+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(364);
    r[12] = (hendblk(11+1));
    r[0] = (r[12]);
    r[1] = r[8];  
    r[2] = r[7];  
    goto gs_find_2Dsets;

case 364: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10];
    r[1+12] = p[11]; }
    r += 1; /* shift reg. wnd */
    /* ek r f l idsi s g r r exp k k port */
    { fixnum_t v14282_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14282_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14282_tmp);
    hreserve(hbsz(3)*c, 13); /* 13 live regs */
    l = r[7];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[13] = (o); } }
    hreserve(hbsz(10+1), 14); /* 14 live regs */
    *--hp = (r[12]);
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[1];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(367);
    r[14] = (hendblk(10+1));
    r[15+0] = (r[14]);
    r[15+1] = (r[13]);
    r[15+2] = r[3];  
    r[15+3] = r[6];  
    r[15+4] = r[2];  
    r[15+5] = (r[12]);
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v11750;

case 365: /* clo k free l */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3]; }
    r += 1; /* shift reg. wnd */
s_loop_v11750: /* k free l g f port */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(365);
    r[6] = (hendblk(3+1));
    hreserve(hbsz(5+1), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = obj_from_case(366);
    r[6] = (hendblk(5+1));
    r[7] = (car((r[1])));
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = (mknull());
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = (mksymbol(internsym("ref")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[8+0] = r[6];  
    r[8+1] = r[7];  
    r[8+2] = r[2];  
    r[8+3] = r[4];  
    r[8+4] = (mknull());
    r[8+5] = r[3];  
    r[8+6] = obj_from_bool(0);
    r[8+7] = r[5];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }

case 366: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop l free k port */
    (void)(oportputc((','), (r[6])));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[4])));
    r[3] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 367: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek . idsi s r g r r exp k k port */
    (void)(oportputc(('&'), (r[11])));
    hreserve(hbsz(10+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(368);
    r[12] = (hendblk(10+1));
    { /* length */
    int n; obj l = r[6];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[13] = obj_from_fixnum(n); }
    r[0] = (r[12]);
    r[1] = (r[13]);
    r[2] = (r[11]);
    goto gs_write_2Dserialized_2Darg;

case 368: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek . idsi s r g r r exp k k port */
    (void)(oportputc(('{'), (r[11])));
    hreserve(hbsz(9+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(369);
    r[12] = (hendblk(9+1));
  if ((islist((r[2])))) {
    (void)(oportputc(('%'), (r[11])));
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[13] = obj_from_fixnum(n); }
    r[0] = (r[12]);
    r[1] = (r[13]);
    r[2] = (r[11]);
    goto gs_write_2Dserialized_2Darg;
  } else {
    (void)(oportputc(('%'), (r[11])));
    (void)(oportputc(('!'), (r[11])));
    r[0] = (r[12]);
    r[1] = (cxs_idslist_2Dreq_2Dcount((r[2])));
    r[2] = (r[11]);
    goto gs_write_2Dserialized_2Darg;
  }

case 369: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek . s r g r r exp k k port */
    hreserve(hbsz(9+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(372);
    r[11] = (hendblk(9+1));
    r[12+0] = (r[11]);
    r[12+1] = r[6];  
    r[12+2] = obj_from_fixnum(+0);
    r[12+3] = (r[10]);
    r[12+4] = r[3];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v11725;

case 370: /* clo k ids n */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
s_loop_v11725: /* k ids n port r */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(370);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = obj_from_case(371);
    r[5] = (hendblk(4+1));
    r[6] = (car((r[1])));
    r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4])));
  if (bool_from_obj(r[6])) {
    (void)(oportputc(('#'), (r[3])));
    r[0] = r[5];  
    r[1] = r[2];  
    r[2] = r[3];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(370);
    r[6] = (hendblk(2+1));
    r[7+0] = obj_from_ktrap();
    r[7+1] = obj_from_void(0);
    r[7+2] = r[6];  
    r[7+3] = r[2];  
    r[7+4] = r[1];  
    r[7+5] = r[0];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v11727;
  }
  }

case 371: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
s_l_v11727: /* ek . loop n ids k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[4])));
    r[3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 372: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek . s r g r r exp k k port */
    hreserve(hbsz(8+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(373);
    r[11] = (hendblk(8+1));
    r[0] = (r[11]);
    r[1] = r[2];  
    r[2] = r[5];  
    goto gs_set_2Dintersect;

case 373: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek r r g r r exp k k port */
    hreserve(hbsz(7+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(374);
    r[10] = (hendblk(7+1));
    r[11+0] = (r[10]);
    r[11+1] = r[2];  
    r[11+2] = r[1];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_set_2Dunion;

case 374: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek r g r r exp k k port */
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = obj_from_case(375);
    r[9] = (hendblk(3+1));
    { /* length */
    int n; obj l = r[4];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[10] = obj_from_fixnum(n); }
    r[11+0] = r[9];  
    r[11+1] = r[5];  
    r[11+2] = r[4];  
    r[11+3] = r[3];  
    r[11+4] = r[1];  
    r[11+5] = r[2];  
    r[11+6] = (r[10]);
    r[11+7] = r[8];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 375: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . k k port */
    (void)(oportputc(('}'), (r[4])));
  if (bool_from_obj(r[3])) {
    (void)(oportputc((']'), (r[4])));
    r[0] = r[2];  
    r[1] = r[3];  
    r[2] = r[4];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 376: /* clo k clauses */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* k clauses g s f l k port */
    { fixnum_t v14281_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14281_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14281_tmp);
    hreserve(hbsz(3)*c, 8); /* 8 live regs */
    l = r[1];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[8] = (o); } }
    hreserve(hbsz(4+1), 9); /* 9 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(379);
    r[9] = (hendblk(4+1));
    r[10+0] = r[9];  
    r[10+1] = r[8];  
    r[10+2] = r[5];  
    r[10+3] = r[2];  
    r[10+4] = r[3];  
    r[10+5] = r[4];  
    r[10+6] = r[7];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v11668;

case 377: /* clo k clauses l */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4]; }
    r += 1; /* shift reg. wnd */
s_loop_v11668: /* k clauses l g s f port */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(377);
    r[7] = (hendblk(4+1));
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[7];  
    *--hp = obj_from_case(378);
    r[7] = (hendblk(5+1));
    r[8] = (car((r[1])));
    r[9] = (cdr((r[8])));
    r[8] = (car((r[9])));
    r[9+0] = r[7];  
    r[9+1] = r[8];  
    r[9+2] = r[2];  
    r[9+3] = r[5];  
    r[9+4] = r[4];  
    r[9+5] = r[3];  
    r[9+6] = obj_from_bool(0);
    r[9+7] = r[6];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }

case 378: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop l clauses k port */
    (void)(oportputc(('%'), (r[6])));
    (void)(oportputc(('x'), (r[6])));
    (void)(oportputc((','), (r[6])));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[4])));
    r[3] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 379: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . clauses k k port */
    (void)(oportputc(('&'), (r[5])));
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(380);
    r[6] = (hendblk(4+1));
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[7] = obj_from_fixnum(n); }
    r[0] = r[6];  
    r[1] = r[7];  
    r[2] = r[5];  
    goto gs_write_2Dserialized_2Darg;

case 380: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . clauses k k port */
    (void)(oportputc(('{'), (r[5])));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(384);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = r[2];  
    r[2] = obj_from_fixnum(+0);
    r[3] = r[5];  
    goto s_loop_v11641;

case 381: /* clo k clauses i */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v11641: /* k clauses i port */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[4] = (car((r[1])));
    r[4] = (car((r[4])));
    r[5] = (car((r[4])));
    r[6] = (cdr((r[4])));
    r[6] = (car((r[6])));
    (void)(oportputc(('|'), (r[3])));
    (void)(bool_from_obj(r[6]) ? (void)(oportputc(('!'), (r[3]))) : (void)(0));
    hreserve(hbsz(1+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(381);
    r[7] = (hendblk(1+1));
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[7];  
    *--hp = r[3];  
    *--hp = obj_from_case(382);
    r[7] = (hendblk(5+1));
    r[0] = r[7];  
    r[1] = r[5];  
    r[2] = r[3];  
    goto gs_write_2Dserialized_2Darg;
  }

case 382: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . port loop i clauses k */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(383);
    r[7] = (hendblk(4+1));
    r[0] = r[7];  
    r[1] = r[4];  
    /* r[2] */    
    goto gs_write_2Dserialized_2Darg;

case 383: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop i clauses k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[4])));
    r[3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 384: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . k k port */
    (void)(oportputc(('%'), (r[4])));
    (void)(oportputc(('%'), (r[4])));
    (void)(oportputc(('}'), (r[4])));
  if (bool_from_obj(r[3])) {
    (void)(oportputc((']'), (r[4])));
    r[0] = r[2];  
    r[1] = r[3];  
    r[2] = r[4];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 385: /* clo k kid exp */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4];
    r[1+7] = p[5];
    r[1+8] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* k kid exp s g f l port k */
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = (mknull());
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    hreserve(hbsz(10+1), 10); /* 10 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[9];  
    *--hp = obj_from_case(386);
    r[10] = (hendblk(10+1));
    r[0] = (r[10]);
    r[1] = r[2];  
    r[2] = r[9];  
    goto gs_find_2Dsets;

case 386: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek r ids s g f l exp k kid port k */
    hreserve(hbsz(9+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[1];  
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(387);
    r[12] = (hendblk(9+1));
    r[0] = (r[12]);
    r[1] = r[3];  
    /* r[2] */    
    goto gs_set_2Dminus;

case 387: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek r g f l exp k kid r port k */
    hreserve(hbsz(9+1), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(388);
    r[11] = (hendblk(9+1));
    r[0] = (r[11]);
    /* r[1] */    
    r[2] = r[8];  
    goto gs_set_2Dunion;

case 388: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek r g f l exp k kid r port k */
  if (bool_from_obj(r[10])) {
    (void)(oportputc(('k'), (r[9])));
    hreserve(hbsz(10+1), 11); /* 11 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = (r[10]);
    *--hp = obj_from_case(389);
    r[11] = (hendblk(10+1));
    r[0] = (r[11]);
    r[1] = (r[10]);
    r[2] = r[9];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    (void)(oportputc((36), (r[9])));
    (void)(oportputc(('{'), (r[9])));
    (void)(oportputc(('k'), (r[9])));
    (void)(oportputc(('0'), (r[9])));
    (void)(oportputc((','), (r[9])));
  if (bool_from_obj(cxs_set_2Dmember_3F((r[7]), (r[8])))) {
    (void)(oportputc(('#'), (r[9])));
    (void)(oportputc(('0'), (r[9])));
  } else {
  }
    hreserve(hbsz(2+1), 11); /* 11 live regs */
    *--hp = r[9];  
    *--hp = r[6];  
    *--hp = obj_from_case(390);
    r[11] = (hendblk(2+1));
    { /* cons */ 
    hreserve(hbsz(3), 12); /* 12 live regs */
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[12] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 13); /* 13 live regs */
    *--hp = (r[12]);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[12] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 13); /* 13 live regs */
    *--hp = (r[12]);
    *--hp = r[7];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[12] = (hendblk(3)); }
    r[13+0] = (r[11]);
    r[13+1] = r[5];  
    r[13+2] = (r[12]);
    r[13+3] = r[3];  
    r[13+4] = r[1];  
    r[13+5] = r[2];  
    r[13+6] = obj_from_bool(0);
    r[13+7] = r[9];  
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }

case 389: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek . k g r f l exp k kid r port */
    (void)(oportputc((','), (r[11])));
  if (bool_from_obj(cxs_set_2Dmember_3F((r[9]), (r[10])))) {
    (void)(oportputc(('#'), (r[11])));
    (void)(oportputc(('0'), (r[11])));
  } else {
  }
    { /* cons */ 
    hreserve(hbsz(3), 12); /* 12 live regs */
    *--hp = r[6];  
    *--hp = r[9];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[12] = (hendblk(3)); }
    r[13+0] = r[8];  
    r[13+1] = r[7];  
    r[13+2] = (r[12]);
    r[13+3] = r[5];  
    r[13+4] = r[4];  
    r[13+5] = r[3];  
    r[13+6] = obj_from_fixnum(fxadd(fixnum_from_obj(r[2]), (+1)));
    r[13+7] = (r[11]);
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 390: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port */
    (void)(oportputc(('_'), (r[3])));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(391);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = obj_from_fixnum(+3);
    r[2] = r[3];  
    goto gs_write_2Dserialized_2Darg;

case 391: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc(('}'), (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 392: /* clo k kexp exp */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4];
    r[1+7] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* k kexp exp g s f l port */
    r[8] = (car((r[2])));
    { /* memq */
    obj x = (r[8]), l = (cx__232607);
    for (; l != mknull(); l = cdr(l)) if (car(l) == x) break;
    r[8] = (l == mknull() ? obj_from_bool(0) : l); }
  if (bool_from_obj(r[8])) {
    hreserve(hbsz(7+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(393);
    r[8] = (hendblk(7+1));
    r[9+0] = r[8];  
    r[9+1] = r[2];  
    r[9+2] = r[6];  
    r[9+3] = r[5];  
    r[9+4] = r[4];  
    r[9+5] = r[3];  
    r[9+6] = obj_from_bool(0);
    r[9+7] = r[7];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  } else {
    hreserve(hbsz(7+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(395);
    r[8] = (hendblk(7+1));
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = (mknull());
    *--hp = r[2];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = (mknull());
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = (mksymbol(internsym("lambda")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    r[10+0] = r[8];  
    r[10+1] = r[9];  
    r[10+2] = r[6];  
    r[10+3] = r[5];  
    r[10+4] = r[4];  
    r[10+5] = r[3];  
    r[10+6] = obj_from_bool(0);
    r[10+7] = r[7];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }

case 393: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek . g s f l kexp k port */
    (void)(oportputc((','), (r[8])));
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = obj_from_case(394);
    r[9] = (hendblk(2+1));
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    r[11+0] = r[9];  
    r[11+1] = r[6];  
    r[11+2] = (r[10]);
    r[11+3] = r[4];  
    r[11+4] = r[3];  
    r[11+5] = r[2];  
    r[11+6] = obj_from_bool(0);
    r[11+7] = r[8];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 394: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port */
    (void)(oportputc(('w'), (r[3])));
    r[4] = obj_from_void(oportputc(('!'), (r[3])));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 395: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek . g s f l kexp k port */
    (void)(oportputc((','), (r[8])));
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = obj_from_case(396);
    r[9] = (hendblk(2+1));
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    r[11+0] = r[9];  
    r[11+1] = r[6];  
    r[11+2] = (r[10]);
    r[11+3] = r[4];  
    r[11+4] = r[3];  
    r[11+5] = r[2];  
    r[11+6] = obj_from_bool(0);
    r[11+7] = r[8];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 396: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc(('w'), (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 397: /* clo k ig args */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4];
    r[1+7] = p[5];
    r[1+8] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* k ig args g s f l port k */
    { /* define integrable-code */
    static obj c[] = { obj_from_objptr(vmcases+12) };
    r[9] = obj_from_objptr(c); }
    hreserve(hbsz(9+1), 10); /* 10 live regs */
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = obj_from_case(398);
    r[10] = (hendblk(9+1));
    r[11+0] = r[9];  
    pc = objptr_from_obj(r[11+0])[0];
    r[11+1] = (r[10]);
    r[11+2] = r[1];  
    r[11+3] = obj_from_fixnum(+0);
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 398: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek r ig g s f l args k port k */
    { /* define integrable-type */
    static obj c[] = { obj_from_objptr(vmcases+10) };
    r[11] = obj_from_objptr(c); }
    hreserve(hbsz(10+1), 12); /* 12 live regs */
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(399);
    r[12] = (hendblk(10+1));
    r[0] = (r[11]);
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[12]);
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 399: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek r ig g s f l args r k port k */
    hreserve(hbsz(3+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = obj_from_case(400);
    r[12] = (hendblk(3+1));
  if (((((r[1]) == obj_from_char('0')) || ((is_flonum_obj(r[1])) && (0))) ? (1) : ((((r[1]) == obj_from_char('1')) || ((is_flonum_obj(r[1])) && (0))) ? (1) : ((((r[1]) == obj_from_char('2')) || ((is_flonum_obj(r[1])) && (0))) ? (1) : ((((r[1]) == obj_from_char('3')) || ((is_flonum_obj(r[1])) && (0))) && (1)))))) {
    { fixnum_t v14280_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14280_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14280_tmp);
    hreserve(hbsz(3)*c, 13); /* 13 live regs */
    l = r[7];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[13] = (o); } }
    hreserve(hbsz(3+1), 14); /* 14 live regs */
    *--hp = (r[10]);
    *--hp = r[8];  
    *--hp = (r[12]);
    *--hp = obj_from_case(403);
    r[14] = (hendblk(3+1));
    r[0] = (r[14]);
    r[1] = (r[13]);
    r[2] = r[6];  
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    r[6] = (r[10]);
    goto s_loop_v11520;
  } else {
  if (((((r[1]) == obj_from_char('p')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
  if ((isnull((r[7])))) {
    { /* define integrable-code */
    static obj c[] = { obj_from_objptr(vmcases+12) };
    r[13] = obj_from_objptr(c); }
    hreserve(hbsz(2+1), 14); /* 14 live regs */
    *--hp = (r[10]);
    *--hp = (r[12]);
    *--hp = obj_from_case(404);
    r[14] = (hendblk(2+1));
    r[0] = (r[13]);
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[14]);
    /* r[2] */    
    r[3] = obj_from_fixnum(+1);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    { fixnum_t v14278_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14278_tmp = (n); }
    r[13] = obj_from_fixnum(fxsub((v14278_tmp), (+1))); }
    { fixnum_t v14279_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14279_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14279_tmp);
    hreserve(hbsz(3)*c, 14); /* 14 live regs */
    l = r[7];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[14] = (o); } }
    hreserve(hbsz(4+1), 15); /* 15 live regs */
    *--hp = (r[12]);
    *--hp = (r[13]);
    *--hp = (r[10]);
    *--hp = r[8];  
    *--hp = obj_from_case(407);
    r[15] = (hendblk(4+1));
    r[0] = (r[15]);
    r[1] = (r[14]);
    r[2] = r[6];  
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    r[6] = (r[10]);
    goto s_loop_v11495;
  }
  } else {
  if (((((r[1]) == obj_from_char('m')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    r[13] = (cdr((r[7])));
    r[13] = obj_from_bool(isnull((r[13])));
  if (bool_from_obj(r[13])) {
    { /* define integrable-code */
    static obj c[] = { obj_from_objptr(vmcases+12) };
    r[13] = obj_from_objptr(c); }
    hreserve(hbsz(7+1), 14); /* 14 live regs */
    *--hp = (r[10]);
    *--hp = (r[12]);
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(408);
    r[14] = (hendblk(7+1));
    r[0] = (r[13]);
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[14]);
    /* r[2] */    
    r[3] = obj_from_fixnum(+1);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    { fixnum_t v14276_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14276_tmp = (n); }
    r[13] = obj_from_fixnum(fxsub((v14276_tmp), (+1))); }
    { fixnum_t v14277_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14277_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14277_tmp);
    hreserve(hbsz(3)*c, 14); /* 14 live regs */
    l = r[7];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[14] = (o); } }
    hreserve(hbsz(4+1), 15); /* 15 live regs */
    *--hp = (r[12]);
    *--hp = (r[13]);
    *--hp = (r[10]);
    *--hp = r[8];  
    *--hp = obj_from_case(412);
    r[15] = (hendblk(4+1));
    r[0] = (r[15]);
    r[1] = (r[14]);
    r[2] = r[6];  
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    r[6] = (r[10]);
    goto s_loop_v11459;
  }
  } else {
  if (((((r[1]) == obj_from_char('c')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    { fixnum_t v14274_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14274_tmp = (n); }
    r[13] = obj_from_fixnum(fxsub((v14274_tmp), (+1))); }
    { fixnum_t v14275_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14275_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14275_tmp);
    hreserve(hbsz(3)*c, 14); /* 14 live regs */
    l = r[7];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[14] = (o); } }
    hreserve(hbsz(9+1), 15); /* 15 live regs */
    *--hp = (r[10]);
    *--hp = (r[12]);
    *--hp = (r[13]);
    *--hp = r[8];  
    *--hp = (r[14]);
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(413);
    r[15] = (hendblk(9+1));
    r[16+0] = (r[15]);
    r[16+1] = (car((r[14])));
    r[16+2] = r[6];  
    r[16+3] = r[5];  
    r[16+4] = r[4];  
    r[16+5] = r[3];  
    r[16+6] = obj_from_bool(0);
    r[16+7] = (r[10]);
    r += 16; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  } else {
  if (((((r[1]) == obj_from_char('x')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    { fixnum_t v14272_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14272_tmp = (n); }
    r[13] = obj_from_fixnum(fxsub((v14272_tmp), (+1))); }
    { fixnum_t v14273_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14273_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14273_tmp);
    hreserve(hbsz(3)*c, 14); /* 14 live regs */
    l = r[7];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[14] = (o); } }
    hreserve(hbsz(4+1), 15); /* 15 live regs */
    *--hp = (r[12]);
    *--hp = (r[13]);
    *--hp = (r[10]);
    *--hp = r[8];  
    *--hp = obj_from_case(419);
    r[15] = (hendblk(4+1));
    r[0] = (r[15]);
    r[1] = (r[14]);
    r[2] = r[6];  
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    r[6] = (r[10]);
    goto s_loop_v11405;
  } else {
  if (((((r[1]) == obj_from_char('u')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(3+1), 13); /* 13 live regs */
    *--hp = (r[10]);
    *--hp = r[8];  
    *--hp = (r[12]);
    *--hp = obj_from_case(420);
    r[13] = (hendblk(3+1));
  if ((isnull((r[7])))) {
    { /* define integrable-code */
    static obj c[] = { obj_from_objptr(vmcases+12) };
    r[14] = obj_from_objptr(c); }
    hreserve(hbsz(2+1), 15); /* 15 live regs */
    *--hp = (r[10]);
    *--hp = (r[13]);
    *--hp = obj_from_case(421);
    r[15] = (hendblk(2+1));
    r[0] = (r[14]);
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[15]);
    /* r[2] */    
    r[3] = obj_from_fixnum(+1);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[14+0] = (r[13]);
    r[14+1] = (car((r[7])));
    r[14+2] = r[6];  
    r[14+3] = r[5];  
    r[14+4] = r[4];  
    r[14+5] = r[3];  
    r[14+6] = obj_from_bool(0);
    r[14+7] = (r[10]);
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }
  } else {
  if (((((r[1]) == obj_from_char('b')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(8+1), 13); /* 13 live regs */
    *--hp = (r[10]);
    *--hp = r[8];  
    *--hp = (r[12]);
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(422);
    r[13] = (hendblk(8+1));
    r[14] = (cdr((r[7])));
    r[14] = obj_from_bool(isnull((r[14])));
  if (bool_from_obj(r[14])) {
    { /* define integrable-code */
    static obj c[] = { obj_from_objptr(vmcases+12) };
    r[14] = obj_from_objptr(c); }
    hreserve(hbsz(2+1), 15); /* 15 live regs */
    *--hp = (r[10]);
    *--hp = (r[13]);
    *--hp = obj_from_case(424);
    r[15] = (hendblk(2+1));
    r[0] = (r[14]);
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[15]);
    /* r[2] */    
    r[3] = obj_from_fixnum(+1);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[14] = (cdr((r[7])));
    r[14] = (car((r[14])));
    r[15+0] = (r[13]);
    r[15+1] = (r[14]);
    r[15+2] = r[6];  
    r[15+3] = r[5];  
    r[15+4] = r[4];  
    r[15+5] = r[3];  
    r[15+6] = obj_from_bool(0);
    r[15+7] = (r[10]);
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }
  } else {
  if (((((r[1]) == obj_from_char('t')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    hreserve(hbsz(8+1), 13); /* 13 live regs */
    *--hp = (r[10]);
    *--hp = r[8];  
    *--hp = (r[12]);
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(425);
    r[13] = (hendblk(8+1));
    r[14] = (cdr((r[7])));
    r[14] = (cdr((r[14])));
    r[14] = obj_from_bool(isnull((r[14])));
  if (bool_from_obj(r[14])) {
    { /* define integrable-code */
    static obj c[] = { obj_from_objptr(vmcases+12) };
    r[14] = obj_from_objptr(c); }
    hreserve(hbsz(2+1), 15); /* 15 live regs */
    *--hp = (r[10]);
    *--hp = (r[13]);
    *--hp = obj_from_case(428);
    r[15] = (hendblk(2+1));
    r[0] = (r[14]);
    pc = objptr_from_obj(r[0])[0];
    r[1] = (r[15]);
    /* r[2] */    
    r[3] = obj_from_fixnum(+1);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[14] = (cdr((r[7])));
    r[14] = (cdr((r[14])));
    r[14] = (car((r[14])));
    r[15+0] = (r[13]);
    r[15+1] = (r[14]);
    r[15+2] = r[6];  
    r[15+3] = r[5];  
    r[15+4] = r[4];  
    r[15+5] = r[3];  
    r[15+6] = obj_from_bool(0);
    r[15+7] = (r[10]);
    r += 15; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }
  } else {
  if (((((r[1]) == obj_from_char('#')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
    { fixnum_t v14271_tmp;
    { /* length */
    int n; obj l = r[7];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14271_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14271_tmp);
    hreserve(hbsz(3)*c, 13); /* 13 live regs */
    l = r[7];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[13] = (o); } }
    hreserve(hbsz(4+1), 14); /* 14 live regs */
    *--hp = (r[10]);
    *--hp = r[8];  
    *--hp = (r[12]);
    *--hp = r[7];  
    *--hp = obj_from_case(431);
    r[14] = (hendblk(4+1));
    r[0] = (r[14]);
    r[1] = (r[13]);
    r[2] = r[6];  
    /* r[3] */    
    /* r[4] */    
    /* r[5] */    
    r[6] = (r[10]);
    goto s_loop_v11327;
  } else {
    r[13+0] = (cx_c_2Derror);
    pc = objptr_from_obj(r[13+0])[0];
    r[13+1] = (r[12]);
    r[13+2] = (cx__232300);
    r[13+3] = r[1];  
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  }
  }
  }
  }
  }
  }
  }
  }

case 400: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port k */
  if (bool_from_obj(r[4])) {
    (void)(oportputc((']'), (r[3])));
    r[0] = r[2];  
    r[1] = r[4];  
    r[2] = r[3];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 401: /* clo k args l */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4]; }
    r += 1; /* shift reg. wnd */
s_loop_v11520: /* k args l g s f port */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(401);
    r[7] = (hendblk(4+1));
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[7];  
    *--hp = obj_from_case(402);
    r[7] = (hendblk(5+1));
    r[8+0] = r[7];  
    r[8+1] = (car((r[1])));
    r[8+2] = r[2];  
    r[8+3] = r[5];  
    r[8+4] = r[4];  
    r[8+5] = r[3];  
    r[8+6] = obj_from_bool(0);
    r[8+7] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }

case 402: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop l k port args */
    r[7] = (cdr((r[6])));
    r[7] = obj_from_bool(isnull((r[7])));
  if (bool_from_obj(r[7])) {
    (void)((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void)(oportputc((','), (r[5])));
  }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cdr((r[6])));
    r[3] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 403: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . k r port */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 404: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k port */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(oportputs(stringchars((r[1])), (r[3])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 405: /* clo k args l */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4]; }
    r += 1; /* shift reg. wnd */
s_loop_v11495: /* k args l g s f port */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(405);
    r[7] = (hendblk(4+1));
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[7];  
    *--hp = obj_from_case(406);
    r[7] = (hendblk(5+1));
    r[8+0] = r[7];  
    r[8+1] = (car((r[1])));
    r[8+2] = r[2];  
    r[8+3] = r[5];  
    r[8+4] = r[4];  
    r[8+5] = r[3];  
    r[8+6] = obj_from_bool(0);
    r[8+7] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }

case 406: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop l k port args */
    r[7] = (cdr((r[6])));
    r[7] = obj_from_bool(isnull((r[7])));
  if (bool_from_obj(r[7])) {
    (void)((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void)(oportputc((','), (r[5])));
  }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cdr((r[6])));
    r[3] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 407: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . r port opc k */
    r[0] = r[5];  
    r[1] = obj_from_fixnum(+0);
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v11486;

s_loop_v11486: /* k i r port opc */
    { const fixnum_t v14270_i = fixnum_from_obj(r[1]);
  if (((v14270_i) >= fixnum_from_obj(r[4]))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    (void)(oportputs(stringchars((r[2])), (r[3])));
    /* r[0] */    
    r[1] = obj_from_fixnum(fxadd((v14270_i), (+1)));
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v11486;
  } } 

case 408: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7]; }
    r += 1; /* shift reg. wnd */
    /* ek r g s f l args k port */
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = obj_from_case(409);
    r[9] = (hendblk(3+1));
    r[10+0] = r[9];  
    r[10+1] = (car((r[6])));
    r[10+2] = r[5];  
    r[10+3] = r[4];  
    r[10+4] = r[3];  
    r[10+5] = r[2];  
    r[10+6] = obj_from_bool(0);
    r[10+7] = r[8];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 409: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . k r port */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 410: /* clo k args l */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4]; }
    r += 1; /* shift reg. wnd */
s_loop_v11459: /* k args l g s f port */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(410);
    r[7] = (hendblk(4+1));
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[7];  
    *--hp = obj_from_case(411);
    r[7] = (hendblk(5+1));
    r[8+0] = r[7];  
    r[8+1] = (car((r[1])));
    r[8+2] = r[2];  
    r[8+3] = r[5];  
    r[8+4] = r[4];  
    r[8+5] = r[3];  
    r[8+6] = obj_from_bool(0);
    r[8+7] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }

case 411: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop l k port args */
    r[7] = (cdr((r[6])));
    r[7] = obj_from_bool(isnull((r[7])));
  if (bool_from_obj(r[7])) {
    (void)((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void)(oportputc((','), (r[5])));
  }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cdr((r[6])));
    r[3] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 412: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . r port opc k */
    r[0] = r[5];  
    r[1] = obj_from_fixnum(+0);
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v11450;

s_loop_v11450: /* k i r port opc */
    { const fixnum_t v14269_i = fixnum_from_obj(r[1]);
  if (((v14269_i) >= fixnum_from_obj(r[4]))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    (void)(oportputs(stringchars((r[2])), (r[3])));
    /* r[0] */    
    r[1] = obj_from_fixnum(fxadd((v14269_i), (+1)));
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v11450;
  } } 

case 413: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek . g s f l args r opc k port */
    (void)(oportputc((','), (r[10])));
    r[11] = (cdr((r[6])));
    { /* cons */ 
    hreserve(hbsz(3), 12); /* 12 live regs */
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[12] = (hendblk(3)); }
    hreserve(hbsz(4+1), 13); /* 13 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = (r[10]);
    *--hp = r[7];  
    *--hp = obj_from_case(416);
    r[13] = (hendblk(4+1));
    r[14+0] = (r[13]);
    r[14+1] = (r[11]);
    r[14+2] = (r[12]);
    r[14+3] = r[2];  
    r[14+4] = r[3];  
    r[14+5] = r[4];  
    r[14+6] = (r[10]);
    r += 14; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v11431;

case 414: /* clo k args l */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4]; }
    r += 1; /* shift reg. wnd */
s_loop_v11431: /* k args l g s f port */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(414);
    r[7] = (hendblk(4+1));
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[7];  
    *--hp = obj_from_case(415);
    r[7] = (hendblk(5+1));
    r[8+0] = r[7];  
    r[8+1] = (car((r[1])));
    r[8+2] = r[2];  
    r[8+3] = r[5];  
    r[8+4] = r[4];  
    r[8+5] = r[3];  
    r[8+6] = obj_from_bool(0);
    r[8+7] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }

case 415: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop l k port args */
    r[7] = (cdr((r[6])));
    r[7] = obj_from_bool(isnull((r[7])));
  if (bool_from_obj(r[7])) {
    (void)((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void)(oportputc((','), (r[5])));
    (void)(oportputc((','), (r[5])));
  }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cdr((r[6])));
    r[3] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 416: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . r port opc k */
    r[0] = r[5];  
    r[1] = obj_from_fixnum(+0);
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v11422;

s_loop_v11422: /* k i r port opc */
    { const fixnum_t v14268_i = fixnum_from_obj(r[1]);
  if (((v14268_i) >= fixnum_from_obj(r[4]))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    (void)(((v14268_i) == 0) ? ((0) ? obj_from_bool(0) : obj_from_void(0)) : obj_from_void(oportputc((';'), (r[3]))));
    (void)(oportputs(stringchars((r[2])), (r[3])));
    /* r[0] */    
    r[1] = obj_from_fixnum(fxadd((v14268_i), (+1)));
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v11422;
  } } 

case 417: /* clo k args l */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4]; }
    r += 1; /* shift reg. wnd */
s_loop_v11405: /* k args l g s f port */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(417);
    r[7] = (hendblk(4+1));
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[1];  
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[7];  
    *--hp = obj_from_case(418);
    r[7] = (hendblk(5+1));
    r[8+0] = r[7];  
    r[8+1] = (car((r[1])));
    r[8+2] = r[2];  
    r[8+3] = r[5];  
    r[8+4] = r[4];  
    r[8+5] = r[3];  
    r[8+6] = obj_from_bool(0);
    r[8+7] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }

case 418: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop l k port args */
    r[7] = (cdr((r[6])));
    r[7] = obj_from_bool(isnull((r[7])));
  if (bool_from_obj(r[7])) {
    (void)((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void)(oportputc((','), (r[5])));
  }
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cdr((r[6])));
    r[3] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 419: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . r port opc k */
    r[0] = r[5];  
    r[1] = obj_from_fixnum(+0);
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v11396;

s_loop_v11396: /* k i r port opc */
    { const fixnum_t v14267_i = fixnum_from_obj(r[1]);
  if (((v14267_i) >= fixnum_from_obj(r[4]))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    (void)(oportputs(stringchars((r[2])), (r[3])));
    /* r[0] */    
    r[1] = obj_from_fixnum(fxadd((v14267_i), (+1)));
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v11396;
  } } 

case 420: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . k r port */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 421: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k port */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(oportputs(stringchars((r[1])), (r[3])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 422: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek . g s f l args k r port */
    (void)(oportputc((','), (r[9])));
    hreserve(hbsz(3+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = obj_from_case(423);
    r[10] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[11] = (hendblk(3)); }
    r[12+0] = (r[10]);
    r[12+1] = (car((r[6])));
    r[12+2] = (r[11]);
    r[12+3] = r[4];  
    r[12+4] = r[3];  
    r[12+5] = r[2];  
    r[12+6] = obj_from_bool(0);
    r[12+7] = r[9];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 423: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . k r port */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 424: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k port */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(oportputs(stringchars((r[1])), (r[3])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 425: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek . g s f l args k r port */
    (void)(oportputc((','), (r[9])));
    hreserve(hbsz(8+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(426);
    r[10] = (hendblk(8+1));
    r[11] = (cdr((r[6])));
    r[11] = (car((r[11])));
    { /* cons */ 
    hreserve(hbsz(3), 12); /* 12 live regs */
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[12] = (hendblk(3)); }
    r[13+0] = (r[10]);
    r[13+1] = (r[11]);
    r[13+2] = (r[12]);
    r[13+3] = r[4];  
    r[13+4] = r[3];  
    r[13+5] = r[2];  
    r[13+6] = obj_from_bool(0);
    r[13+7] = r[9];  
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 426: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8]; }
    r += 1; /* shift reg. wnd */
    /* ek . g s f l args k r port */
    (void)(oportputc((','), (r[9])));
    hreserve(hbsz(3+1), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = obj_from_case(427);
    r[10] = (hendblk(3+1));
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = r[5];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[11] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[11] = (hendblk(3)); }
    r[12+0] = (r[10]);
    r[12+1] = (car((r[6])));
    r[12+2] = (r[11]);
    r[12+3] = r[4];  
    r[12+4] = r[3];  
    r[12+5] = r[2];  
    r[12+6] = obj_from_bool(0);
    r[12+7] = r[9];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 427: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . k r port */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 428: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k port */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(oportputs(stringchars((r[1])), (r[3])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 429: /* clo k args l */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4]; }
    r += 1; /* shift reg. wnd */
s_loop_v11327: /* k args l g s f port */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(429);
    r[7] = (hendblk(4+1));
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[7];  
    *--hp = obj_from_case(430);
    r[7] = (hendblk(5+1));
    r[8+0] = r[7];  
    r[8+1] = (car((r[1])));
    r[8+2] = r[2];  
    r[8+3] = r[5];  
    r[8+4] = r[4];  
    r[8+5] = r[3];  
    r[8+6] = obj_from_bool(0);
    r[8+7] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }

case 430: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop l args k port */
    (void)(oportputc((','), (r[6])));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[4])));
    r[3] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 431: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . args k r port */
    (void)(oportputs(stringchars((r[4])), (r[5])));
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[6] = obj_from_fixnum(n); }
    r[0] = r[3];  
    r[1] = r[6];  
    r[2] = r[5];  
    goto gs_write_2Dserialized_2Darg;

case 432: /* clo k exp args */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4];
    r[1+7] = p[5];
    r[1+8] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* k exp args s l port g f k */
    r[9] = (car((r[1])));
    r[9] = obj_from_bool((r[9]) == (mksymbol(internsym("lambda"))));
  if (bool_from_obj(r[9])) {
    r[9] = (cdr((r[1])));
    r[9] = (car((r[9])));
    r[9] = obj_from_bool(islist((r[9])));
  if (bool_from_obj(r[9])) {
    { fixnum_t v14266_tmp;
    { fixnum_t v14265_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14266_tmp = (n); }
    r[9] = (cdr((r[1])));
    r[9] = (car((r[9])));
    { /* length */
    int n; obj l = r[9];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14265_tmp = (n); }
    r[9] = obj_from_bool((v14266_tmp) == (v14265_tmp)); } }
  } else {
    r[9] = obj_from_bool(0);
  }
  } else {
    r[9] = obj_from_bool(0);
  }
  if (bool_from_obj(r[9])) {
    { fixnum_t v14264_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14264_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14264_tmp);
    hreserve(hbsz(3)*c, 9); /* 9 live regs */
    l = r[2];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[9] = (o); } }
    hreserve(hbsz(9+1), 10); /* 10 live regs */
    *--hp = r[1];  
    *--hp = r[8];  
    *--hp = r[0];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(435);
    r[10] = (hendblk(9+1));
    r[11+0] = (r[10]);
    r[11+1] = r[9];  
    r[11+2] = r[4];  
    r[11+3] = r[6];  
    r[11+4] = r[3];  
    r[11+5] = r[7];  
    r[11+6] = r[5];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v11296;
  } else {
  if (bool_from_obj(r[8])) {
    { fixnum_t v14263_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14263_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14263_tmp);
    hreserve(hbsz(3)*c, 9); /* 9 live regs */
    l = r[2];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[9] = (o); } }
    hreserve(hbsz(4+1), 10); /* 10 live regs */
    *--hp = r[5];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = r[8];  
    *--hp = obj_from_case(446);
    r[10] = (hendblk(4+1));
    r[11+0] = (r[10]);
    r[11+1] = r[9];  
    r[11+2] = r[4];  
    r[11+3] = r[5];  
    r[11+4] = r[6];  
    r[11+5] = r[3];  
    r[11+6] = r[7];  
    r[11+7] = r[1];  
    r += 11; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v11228;
  } else {
    (void)(oportputc((36), (r[5])));
    (void)(oportputc(('{'), (r[5])));
    { fixnum_t v14262_tmp;
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14262_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14262_tmp);
    hreserve(hbsz(3)*c, 9); /* 9 live regs */
    l = r[2];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[9] = (o); } }
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[4];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 11); /* 11 live regs */
    *--hp = (r[10]);
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[10] = (hendblk(3)); }
    hreserve(hbsz(3+1), 11); /* 11 live regs */
    *--hp = r[5];  
    *--hp = r[0];  
    *--hp = r[2];  
    *--hp = obj_from_case(450);
    r[11] = (hendblk(3+1));
    r[12+0] = (r[11]);
    r[12+1] = r[9];  
    r[12+2] = (r[10]);
    r[12+3] = r[5];  
    r[12+4] = r[6];  
    r[12+5] = r[3];  
    r[12+6] = r[7];  
    r[12+7] = r[1];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v11203;
  }
  }

case 433: /* clo k args l */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4]; }
    r += 1; /* shift reg. wnd */
s_loop_v11296: /* k args l g s f port */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(433);
    r[7] = (hendblk(4+1));
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[6];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[7];  
    *--hp = obj_from_case(434);
    r[7] = (hendblk(5+1));
    r[8+0] = r[7];  
    r[8+1] = (car((r[1])));
    r[8+2] = r[2];  
    r[8+3] = r[5];  
    r[8+4] = r[4];  
    r[8+5] = r[3];  
    r[8+6] = obj_from_bool(0);
    r[8+7] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }

case 434: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop l args k port */
    (void)(oportputc((','), (r[6])));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[4])));
    r[3] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 435: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek . s l port args g f k k exp */
    r[11] = (cdr((r[10])));
    r[11] = (car((r[11])));
    r[12] = (cdr((r[10])));
    r[12] = (cdr((r[12])));
    r[12] = (car((r[12])));
    hreserve(hbsz(10+1), 13); /* 13 live regs */
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = (r[12]);
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = (r[11]);
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(436);
    r[13] = (hendblk(10+1));
    r[0] = (r[13]);
    r[1] = (r[12]);
    r[2] = (r[11]);
    goto gs_find_2Dsets;

case 436: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek r s l ids port args g f exp k k */
    hreserve(hbsz(10+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(437);
    r[12] = (hendblk(10+1));
    r[0] = (r[12]);
    r[1] = r[2];  
    r[2] = r[4];  
    goto gs_set_2Dminus;

case 437: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek r l r ids port args g f exp k k */
    hreserve(hbsz(10+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(438);
    r[12] = (hendblk(10+1));
    r[0] = (r[12]);
    /* r[1] */    
    r[2] = r[3];  
    goto gs_set_2Dunion;

case 438: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek r l r ids port args g f exp k k */
    hreserve(hbsz(10+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[8];  
    *--hp = r[1];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(439);
    r[12] = (hendblk(10+1));
    r[13+0] = (cx__25append);
    pc = objptr_from_obj(r[13+0])[0];
    r[13+1] = (r[12]);
    r[13+2] = r[4];  
    r[13+3] = r[2];  
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 439: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9];
    r[1+11] = p[10]; }
    r += 1; /* shift reg. wnd */
    /* ek r r ids port args g r f exp k k */
    hreserve(hbsz(9+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[9];  
    *--hp = r[1];  
    *--hp = r[8];  
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = obj_from_case(442);
    r[12] = (hendblk(9+1));
    r[13+0] = (r[12]);
    r[13+1] = r[3];  
    r[13+2] = obj_from_fixnum(+0);
    r[13+3] = r[4];  
    r[13+4] = r[2];  
    r += 13; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v11263;

case 440: /* clo k ids n */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2]; }
    r += 1; /* shift reg. wnd */
s_loop_v11263: /* k ids n port r */
  if ((isnull((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(440);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[5];  
    *--hp = obj_from_case(441);
    r[5] = (hendblk(4+1));
    r[6] = (car((r[1])));
    r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4])));
  if (bool_from_obj(r[6])) {
    (void)(oportputc(('#'), (r[3])));
    r[0] = r[5];  
    r[1] = r[2];  
    r[2] = r[3];  
    goto gs_write_2Dserialized_2Darg;
  } else {
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(440);
    r[6] = (hendblk(2+1));
    r[7+0] = obj_from_ktrap();
    r[7+1] = obj_from_void(0);
    r[7+2] = r[6];  
    r[7+3] = r[2];  
    r[7+4] = r[1];  
    r[7+5] = r[0];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v11265;
  }
  }

case 441: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
s_l_v11265: /* ek . loop n ids k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[4])));
    r[3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 442: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6];
    r[1+8] = p[7];
    r[1+9] = p[8];
    r[1+10] = p[9]; }
    r += 1; /* shift reg. wnd */
    /* ek . port args g r f r exp k k */
  if (bool_from_obj(r[10])) {
    { fixnum_t v14261_tmp;
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14261_tmp = (n); }
    r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[10]), (v14261_tmp))); }
    r[12+0] = r[9];  
    r[12+1] = r[8];  
    r[12+2] = r[7];  
    r[12+3] = r[6];  
    r[12+4] = r[5];  
    r[12+5] = r[4];  
    r[12+6] = (r[11]);
    r[12+7] = r[2];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  } else {
    hreserve(hbsz(3+1), 11); /* 11 live regs */
    *--hp = r[2];  
    *--hp = r[9];  
    *--hp = r[3];  
    *--hp = obj_from_case(443);
    r[11] = (hendblk(3+1));
    r[12+0] = (r[11]);
    r[12+1] = r[8];  
    r[12+2] = r[7];  
    r[12+3] = r[6];  
    r[12+4] = r[5];  
    r[12+5] = r[4];  
    r[12+6] = obj_from_bool(0);
    r[12+7] = r[2];  
    r += 12; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }

case 443: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . args k port */
    (void)(oportputc(('_'), (r[4])));
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[5] = obj_from_fixnum(n); }
    r[0] = r[3];  
    r[1] = r[5];  
    r[2] = r[4];  
    goto gs_write_2Dserialized_2Darg;

case 444: /* clo k args l */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4];
    r[1+7] = p[5]; }
    r += 1; /* shift reg. wnd */
s_loop_v11228: /* k args l port g s f exp */
  if ((isnull((r[1])))) {
    r[8+0] = r[0];  
    r[8+1] = r[7];  
    r[8+2] = r[2];  
    r[8+3] = r[6];  
    r[8+4] = r[5];  
    r[8+5] = r[4];  
    r[8+6] = obj_from_bool(0);
    r[8+7] = r[3];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  } else {
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(444);
    r[8] = (hendblk(5+1));
    hreserve(hbsz(5+1), 9); /* 9 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[8];  
    *--hp = obj_from_case(445);
    r[8] = (hendblk(5+1));
    r[9+0] = r[8];  
    r[9+1] = (car((r[1])));
    r[9+2] = r[2];  
    r[9+3] = r[6];  
    r[9+4] = r[5];  
    r[9+5] = r[4];  
    r[9+6] = obj_from_bool(0);
    r[9+7] = r[3];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }

case 445: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop l args k port */
    (void)(oportputc((','), (r[6])));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[4])));
    r[3] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 446: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . k args k port */
    (void)(oportputc(('['), (r[5])));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[5];  
    *--hp = obj_from_case(447);
    r[6] = (hendblk(3+1));
    r[0] = r[6];  
    r[1] = r[2];  
    r[2] = r[5];  
    goto gs_write_2Dserialized_2Darg;

case 447: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . port args k */
    { /* length */
    int n; obj l = r[3];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[5] = obj_from_fixnum(n); }
    r[0] = r[4];  
    r[1] = r[5];  
    /* r[2] */    
    goto gs_write_2Dserialized_2Darg;

case 448: /* clo k args l */
    assert(rc == 4);
    { obj* p = objptr_from_obj(r[0]);
    r[1+3] = p[1];
    r[1+4] = p[2];
    r[1+5] = p[3];
    r[1+6] = p[4];
    r[1+7] = p[5]; }
    r += 1; /* shift reg. wnd */
s_loop_v11203: /* k args l port g s f exp */
  if ((isnull((r[1])))) {
    r[8+0] = r[0];  
    r[8+1] = r[7];  
    r[8+2] = r[2];  
    r[8+3] = r[6];  
    r[8+4] = r[5];  
    r[8+5] = r[4];  
    r[8+6] = obj_from_bool(0);
    r[8+7] = r[3];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  } else {
    hreserve(hbsz(5+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(448);
    r[8] = (hendblk(5+1));
    hreserve(hbsz(5+1), 9); /* 9 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = r[8];  
    *--hp = obj_from_case(449);
    r[8] = (hendblk(5+1));
    r[9+0] = r[8];  
    r[9+1] = (car((r[1])));
    r[9+2] = r[2];  
    r[9+3] = r[6];  
    r[9+4] = r[5];  
    r[9+5] = r[4];  
    r[9+6] = obj_from_bool(0);
    r[9+7] = r[3];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;
  }

case 449: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop l args k port */
    (void)(oportputc((','), (r[6])));
    { /* cons */ 
    hreserve(hbsz(3), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = obj_from_bool(0);
    *--hp = obj_from_size(PAIR_BTAG); 
    r[7] = (hendblk(3)); }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cdr((r[4])));
    r[3] = r[7];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 450: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . args k port */
    (void)(oportputc(('['), (r[4])));
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(451);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = obj_from_fixnum(+0);
    r[2] = r[4];  
    goto gs_write_2Dserialized_2Darg;

case 451: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . args k port */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(452);
    r[5] = (hendblk(2+1));
    { /* length */
    int n; obj l = r[2];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    r[6] = obj_from_fixnum(n); }
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_write_2Dserialized_2Darg;

case 452: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k port */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc(('}'), (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 453: /* clo k tail */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* k tail x */
    r[3+0] = (cx_c_2Derror);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = (cx__231956);
    r[3+3] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 454: /* compile-to-string k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k x */
    { /* open-output-string */
    r[2] = (mkoport_string(2, newcb())); }
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(455);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    r[2] = (mknull());
    goto gs_find_2Dfree;

case 455: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r x k p */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(456);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = r[2];  
    r[6+2] = (mknull());
    r[6+3] = (mknull());
    r[6+4] = (mknull());
    r[6+5] = r[1];  
    r[6+6] = obj_from_bool(0);
    r[6+7] = r[4];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 456: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k p */
    { /* get-output-string */
    obj o = r[3];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
        vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[4] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); 
    r[4] = (hpushstr(4, newstring(cbdata(pcb)))); } }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 457: /* execute k code */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_execute: /* k code */
    { /* define make-closure */
    static obj c[] = { obj_from_objptr(vmcases+1) };
    r[2] = obj_from_objptr(c); }
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(458);
    r[3] = (hendblk(1+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 458: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { /* define execute-thunk-closure */
    static obj c[] = { obj_from_objptr(vmcases+0) }; 
    r[3] = obj_from_objptr(c); }
    r[4+0] = r[3];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[2];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 459: /* evaluate k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_evaluate: /* k x */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(460);
    r[2] = (hendblk(1+1));
    r[3+0] = (cx_transform);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = obj_from_bool(0);
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 460: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { /* open-output-string */
    r[3] = (mkoport_string(3, newcb())); }
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(461);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    /* r[1] */    
    r[2] = (mknull());
    goto gs_find_2Dfree;

case 461: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k p */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(462);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = r[2];  
    r[6+2] = (mknull());
    r[6+3] = (mknull());
    r[6+4] = (mknull());
    r[6+5] = r[1];  
    r[6+6] = obj_from_bool(0);
    r[6+7] = r[4];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 462: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k p */
    { /* get-output-string */
    obj o = r[3];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
        vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[4] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); 
    r[4] = (hpushstr(4, newstring(cbdata(pcb)))); } }
    { /* define decode */
    static obj c[] = { obj_from_objptr(vmcases+3) };
    r[5] = obj_from_objptr(c); }
    hreserve(hbsz(1+1), 6); /* 6 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(463);
    r[6] = (hendblk(1+1));
    r[0] = r[5];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 463: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[0] = r[2];  
    /* r[1] */    
    goto gs_execute;

case 464: /* display-code k cstr oport */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_display_2Dcode: /* k cstr oport */
    r[3+0] = r[0];  
    r[3+1] = obj_from_fixnum(+0);
    r[3+2] = obj_from_fixnum(stringlen((r[1])));
    r[3+3] = r[1];  
    r[3+4] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v11102;

s_loop_v11102: /* k i l cstr oport */
    { const fixnum_t v14260_i = fixnum_from_obj(r[1]);
  if (((fxsub(fixnum_from_obj(r[2]), (v14260_i))) <= (+70))) {
    (void)(oportputcircular((cx__232915), (r[4]), 1));
    { /* substring */
    int *d = substring(stringdata((r[3])), (v14260_i), fixnum_from_obj(r[2]));
    r[5] = (hpushstr(5, d)); }
    (void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    r[5] = obj_from_void(oportputcircular((cx__232919), (r[4]), 1));
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[5];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    (void)(oportputcircular((cx__232915), (r[4]), 1));
    { /* substring */
    int *d = substring(stringdata((r[3])), (v14260_i), (fxadd((v14260_i), (+70))));
    r[5] = (hpushstr(5, d)); }
    (void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    (void)(oportputcircular((cx__232910), (r[4]), 1));
    /* r[0] */    
    r[1] = obj_from_fixnum(fxadd((v14260_i), (+70)));
    /* r[2] */    
    /* r[3] */    
    /* r[4] */    
    goto s_loop_v11102;
  } } 

case 465: /* process-syntax k id xval oport */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k id xval oport */
    (void)(oportputc('\n', (r[3])));
    (void)(oportputcircular((cx__232944), (r[3]), 1));
    (void)(oportputcircular((r[1]), (r[3]), 1));
    (void)(oportputcircular((cx__232943), (r[3]), 1));
    { /* open-output-string */
    r[4] = (mkoport_string(4, newcb())); }
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = obj_from_case(466);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[2];  
    r[2] = r[4];  
    goto gs_write_2Dserialized_2Dsexp;

case 466: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . p k oport */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(467);
    r[5] = (hendblk(2+1));
    { /* get-output-string */
    obj o = r[2];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
        vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); 
    r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } }
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_display_2Dcode;

case 467: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k oport */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc('\n', (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 468: /* process-alias k id oldid oport */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
    /* k id oldid oport */
    (void)(oportputc('\n', (r[3])));
    (void)(oportputcircular((cx__232954), (r[3]), 1));
    (void)(oportputcircular((r[1]), (r[3]), 1));
    (void)(oportputcircular((cx__232919), (r[3]), 1));
    (void)(oportputcircular((cx__232953), (r[3]), 1));
    (void)(oportputcircular((r[2]), (r[3]), 1));
    r[4] = obj_from_void(oportputcircular((cx__232943), (r[3]), 1));
    r[5+0] = r[0];  
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = obj_from_ktrap();
    r[5+2] = r[4];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 469: /* process-command k xval oport */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
    /* k xval oport */
    hreserve(hbsz(1), 3); /* 3 live regs */
    *--hp = obj_from_void(0);
    r[3] = (hendblk(1));
    { /* open-output-string */
    r[4] = (mkoport_string(4, newcb())); }
    hreserve(hbsz(5+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(470);
    r[5] = (hendblk(5+1));
    r[0] = r[5];  
    /* r[1] */    
    r[2] = (mknull());
    goto gs_find_2Dfree;

case 470: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r xval k oport cstr p */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(471);
    r[7] = (hendblk(4+1));
    r[8+0] = r[7];  
    r[8+1] = r[2];  
    r[8+2] = (mknull());
    r[8+3] = (mknull());
    r[8+4] = (mknull());
    r[8+5] = r[1];  
    r[8+6] = obj_from_bool(0);
    r[8+7] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 471: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . k oport cstr p */
    { /* get-output-string */
    obj o = r[5];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
        vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); 
    r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } }
    (void)(objptr_from_obj(r[4])[0] = (r[6]));
    (void)(oportputc('\n', (r[3])));
    (void)(oportputcircular((cx__232965), (r[3]), 1));
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(472);
    r[7] = (hendblk(2+1));
    r[0] = r[7];  
    r[1] = (objptr_from_obj(r[4])[0]);
    r[2] = r[3];  
    goto gs_display_2Dcode;

case 472: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k oport */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc('\n', (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 473: /* process-define k id xlam oport */
    assert(rc == 5);
    r += 1; /* shift reg. wnd */
gs_process_2Ddefine: /* k id xlam oport */
    hreserve(hbsz(1), 4); /* 4 live regs */
    *--hp = obj_from_void(0);
    r[4] = (hendblk(1));
    { /* open-output-string */
    r[5] = (mkoport_string(5, newcb())); }
    hreserve(hbsz(6+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(474);
    r[6] = (hendblk(6+1));
    r[0] = r[6];  
    r[1] = r[2];  
    r[2] = (mknull());
    goto gs_find_2Dfree;

case 474: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek r k id oport xlam cstr p */
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[7];  
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(475);
    r[8] = (hendblk(6+1));
    r[9+0] = r[8];  
    r[9+1] = r[5];  
    r[9+2] = (mknull());
    r[9+3] = (mknull());
    r[9+4] = (mknull());
    r[9+5] = r[1];  
    r[9+6] = obj_from_bool(0);
    r[9+7] = r[7];  
    r += 9; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 475: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
    /* ek . k id oport xlam cstr p */
    { /* get-output-string */
    obj o = r[7];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
        vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[8] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); 
    r[8] = (hpushstr(8, newstring(cbdata(pcb)))); } }
    (void)(objptr_from_obj(r[6])[0] = (r[8]));
    { fixnum_t v14255_len;
    r[9] = (objptr_from_obj(r[6])[0]);
    v14255_len = (stringlen((r[9])));
    r[9] = (car((r[5])));
    r[9] = obj_from_bool((r[9]) == (mksymbol(internsym("lambda"))));
  if (bool_from_obj(r[9])) {
  if (((v14255_len) > (+4))) {
    { char_t v14259_tmp;
    r[9] = (objptr_from_obj(r[6])[0]);
    v14259_tmp = (*(unsigned char*)stringref((r[9]), (+0)));
    r[9] = obj_from_bool((v14259_tmp) == ('&')); }
  if (bool_from_obj(r[9])) {
    { char_t v14258_tmp;
    r[9] = (objptr_from_obj(r[6])[0]);
    v14258_tmp = (*(unsigned char*)stringref((r[9]), (+1)));
    r[9] = obj_from_bool((v14258_tmp) == ('0')); }
  if (bool_from_obj(r[9])) {
    { char_t v14257_tmp;
    r[9] = (objptr_from_obj(r[6])[0]);
    v14257_tmp = (*(unsigned char*)stringref((r[9]), (+2)));
    r[9] = obj_from_bool((v14257_tmp) == ('{')); }
  if (bool_from_obj(r[9])) {
    { char_t v14256_tmp;
    r[9] = (objptr_from_obj(r[6])[0]);
    v14256_tmp = (*(unsigned char*)stringref((r[9]), (fxsub((v14255_len), (+1)))));
    r[9] = obj_from_bool((v14256_tmp) == ('}')); }
  } else {
    r[9] = obj_from_bool(0);
  }
  } else {
    r[9] = obj_from_bool(0);
  }
  } else {
    r[9] = obj_from_bool(0);
  }
  } else {
    r[9] = obj_from_bool(0);
  }
  } else {
    r[9] = obj_from_bool(0);
  }
  if (bool_from_obj(r[9])) {
    (void)(oportputc('\n', (r[4])));
    (void)(oportputcircular((cx__232988), (r[4]), 1));
    (void)(oportputcircular((r[3]), (r[4]), 1));
    (void)(oportputcircular((cx__232943), (r[4]), 1));
    hreserve(hbsz(2+1), 9); /* 9 live regs */
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = obj_from_case(476);
    r[9] = (hendblk(2+1));
    r[10] = (objptr_from_obj(r[6])[0]);
    { /* substring */
    int *d = substring(stringdata((r[10])), (+3), (fxsub((v14255_len), (+1))));
    r[10] = (hpushstr(11, d)); }
    r[0] = r[9];  
    r[1] = (r[10]);
    r[2] = r[4];  
    goto gs_display_2Dcode;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 9); /* 9 live regs */
    *--hp = (mknull());
    *--hp = r[5];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = r[3];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    { /* cons */ 
    hreserve(hbsz(3), 10); /* 10 live regs */
    *--hp = r[9];  
    *--hp = (mksymbol(internsym("set!")));
    *--hp = obj_from_size(PAIR_BTAG); 
    r[9] = (hendblk(3)); }
    hreserve(hbsz(1), 10); /* 10 live regs */
    *--hp = obj_from_void(0);
    r[10] = (hendblk(1));
    { /* open-output-string */
    r[11] = (mkoport_string(11, newcb())); }
    hreserve(hbsz(5+1), 12); /* 12 live regs */
    *--hp = (r[11]);
    *--hp = (r[10]);
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = r[9];  
    *--hp = obj_from_case(477);
    r[12] = (hendblk(5+1));
    r[0] = (r[12]);
    r[1] = r[9];  
    r[2] = (mknull());
    goto gs_find_2Dfree;
  } }

case 476: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k oport */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc('\n', (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 477: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r xval k oport cstr p */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(478);
    r[7] = (hendblk(4+1));
    r[8+0] = r[7];  
    r[8+1] = r[2];  
    r[8+2] = (mknull());
    r[8+3] = (mknull());
    r[8+4] = (mknull());
    r[8+5] = r[1];  
    r[8+6] = obj_from_bool(0);
    r[8+7] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 478: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . k oport cstr p */
    { /* get-output-string */
    obj o = r[5];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
        vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); 
    r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } }
    (void)(objptr_from_obj(r[4])[0] = (r[6]));
    (void)(oportputc('\n', (r[3])));
    (void)(oportputcircular((cx__232965), (r[3]), 1));
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(479);
    r[7] = (hendblk(2+1));
    r[0] = r[7];  
    r[1] = (objptr_from_obj(r[4])[0]);
    r[2] = r[3];  
    goto gs_display_2Dcode;

case 479: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k oport */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc('\n', (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 480: /* scan-top-form k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_scan_2Dtop_2Dform: /* k x */
  if (bool_from_obj(cxs_list2_3F((r[1])))) {
    r[2] = (car((r[1])));
    r[2] = obj_from_bool((r[2]) == (mksymbol(internsym("load"))));
  if (bool_from_obj(r[2])) {
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
    r[2] = obj_from_bool(isstring((r[2])));
  } else {
    r[2] = obj_from_bool(0);
  }
  } else {
    r[2] = obj_from_bool(0);
  }
  if (bool_from_obj(r[2])) {
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
    r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233049))));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(481);
    r[4] = (hendblk(1+1));
  if (bool_from_obj(r[3])) {
    r[5] = (mkiport_file(5, (void*)((r[3]))));
    r[6+0] = obj_from_ktrap();
    r[6+1] = r[5];  
    r[6+2] = r[0];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v10958;
  } else {
    r[5+0] = (cx_file_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__233053);
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  } else {
  if ((ispair((r[1])))) {
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(487);
    r[2] = (hendblk(2+1));
    r[3+0] = (cx_transform);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = obj_from_bool(1);
    r[3+3] = (car((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }

case 481: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_l_v10958: /* ek r k */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(482);
    r[3] = (hendblk(2+1));
    r[4+0] = (cx__25read);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r[4+3] = obj_from_bool(0);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 482: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(486);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v10967;

case 483: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v10967: /* k x r */
  if ((iseof((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(483);
    r[3] = (hendblk(1+1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(484);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_scan_2Dtop_2Dform;
  }

case 484: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . r loop k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(485);
    r[5] = (hendblk(2+1));
    r[0] = (cx__25read);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    /* r[2] */    
    r[3] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 485: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop k */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 486: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . r k */
    r[0] = (cx_close_2Dinput_2Dport);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 487: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r x k */
  if (((r[1]) == (mksymbol(internsym("begin"))))) {
    r[4] = (cdr((r[2])));
    r[0] = r[3];  
    r[1] = r[4];  
    goto s_loop_v10942;
  } else {
  if (((r[1]) == (mksymbol(internsym("define-syntax"))))) {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(490);
    r[4] = (hendblk(2+1));
    r[5] = (cdr((r[2])));
    r[5] = (cdr((r[5])));
    r[5] = (car((r[5])));
    r[6+0] = (cx_transform);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = obj_from_bool(1);
    r[6+3] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((isprocedure((r[1])))) {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(492);
    r[4] = (hendblk(1+1));
    r[0] = r[1];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    /* r[2] */    
    r[3] = (cx_top_2Dtransformer_2Denv);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }
  }
  }

case 488: /* clo k l */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
s_loop_v10942: /* k l */
  if ((ispair((r[1])))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(488);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(489);
    r[2] = (hendblk(3+1));
    r[0] = r[2];  
    r[1] = (car((r[1])));
    goto gs_scan_2Dtop_2Dform;
  } else {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_void(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 489: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop l k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 490: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k x */
    r[4] = (cdr((r[3])));
    r[4] = (car((r[4])));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(491);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[4];  
    goto gs_top_2Dtransformer_2Denv;

case 491: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(boxref((r[1])) = (r[3]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 492: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[0] = r[2];  
    /* r[1] */    
    goto gs_scan_2Dtop_2Dform;

case 493: /* process-top-form k x oport */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_process_2Dtop_2Dform: /* k x oport */
  if (bool_from_obj(cxs_list2_3F((r[1])))) {
    r[3] = (car((r[1])));
    r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("load"))));
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[1])));
    r[3] = (car((r[3])));
    r[3] = obj_from_bool(isstring((r[3])));
  } else {
    r[3] = obj_from_bool(0);
  }
  } else {
    r[3] = obj_from_bool(0);
  }
  if (bool_from_obj(r[3])) {
    r[3] = (cdr((r[1])));
    r[3] = (car((r[3])));
    r[4] = ((obj)fopen(stringchars((r[3])), stringchars((cx__233049))));
    hreserve(hbsz(1+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(494);
    r[5] = (hendblk(1+1));
  if (bool_from_obj(r[4])) {
    r[6] = (mkiport_file(6, (void*)((r[4]))));
    r[7+0] = obj_from_ktrap();
    r[7+1] = r[6];  
    r[7+2] = r[0];  
    r += 7; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v10880;
  } else {
    r[0] = (cx_file_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (cx__233053);
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  } else {
  if ((ispair((r[1])))) {
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(500);
    r[3] = (hendblk(3+1));
    r[4+0] = (cx_transform);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = obj_from_bool(1);
    r[4+3] = (car((r[1])));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(513);
    r[3] = (hendblk(2+1));
    r[4+0] = (cx_transform);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = obj_from_bool(0);
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  }

case 494: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_l_v10880: /* ek r k */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(495);
    r[3] = (hendblk(2+1));
    r[4+0] = (cx__25read);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r[4+3] = obj_from_bool(0);
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 495: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(499);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v10889;

case 496: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v10889: /* k x r */
  if ((iseof((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(496);
    r[3] = (hendblk(1+1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(497);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_scan_2Dtop_2Dform;
  }

case 497: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . r loop k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(498);
    r[5] = (hendblk(2+1));
    r[0] = (cx__25read);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    /* r[2] */    
    r[3] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 498: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop k */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 499: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . r k */
    r[0] = (cx_close_2Dinput_2Dport);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 500: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r oport x k */
  if (((r[1]) == (mksymbol(internsym("begin"))))) {
    r[5] = (cdr((r[3])));
    r[0] = r[4];  
    r[1] = r[5];  
    /* r[2] */    
    goto s_loop_v10864;
  } else {
  if (((r[1]) == (mksymbol(internsym("define-syntax"))))) {
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = obj_from_case(503);
    r[5] = (hendblk(3+1));
    r[6] = (cdr((r[3])));
    r[6] = (cdr((r[6])));
    r[6] = (car((r[6])));
    r[0] = (cx_transform);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = obj_from_bool(1);
    r[3] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if (((r[1]) == (mksymbol(internsym("define"))))) {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = obj_from_case(507);
    r[5] = (hendblk(2+1));
    r[0] = (cx_transform);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = obj_from_bool(0);
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((isprocedure((r[1])))) {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = obj_from_case(508);
    r[5] = (hendblk(2+1));
    r[0] = r[1];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = r[3];  
    r[3] = (cx_top_2Dtransformer_2Denv);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_case(509);
    r[5] = (hendblk(2+1));
    r[0] = (cx_transform);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = obj_from_bool(0);
    /* r[3] */    
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  }
  }
  }

case 501: /* clo k x* */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v10864: /* k x* oport */
  if ((ispair((r[1])))) {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(501);
    r[3] = (hendblk(1+1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = obj_from_case(502);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    r[1] = (car((r[1])));
    /* r[2] */    
    goto gs_process_2Dtop_2Dform;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 502: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop x* k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 503: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r oport k x */
    r[5] = (cdr((r[4])));
    r[5] = (car((r[5])));
    hreserve(hbsz(4+1), 6); /* 6 live regs */
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(504);
    r[6] = (hendblk(4+1));
    r[0] = r[6];  
    r[1] = r[5];  
    goto gs_top_2Dtransformer_2Denv;

case 504: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r oport k x r */
    (void)(boxref((r[1])) = (r[5]));
    r[6] = (cdr((r[4])));
    r[6] = (car((r[6])));
    { /* memq */
    obj x = (r[6]), l = (mknull());
    for (; l != mknull(); l = cdr(l)) if (car(l) == x) break;
    r[6] = (l == mknull() ? obj_from_bool(0) : l); }
  if (bool_from_obj(r[6])) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[6] = (cdr((r[4])));
    r[6] = (cdr((r[6])));
    r[6] = (car((r[6])));
    r[6] = obj_from_bool(issymbol((r[6])));
  if (bool_from_obj(r[6])) {
    r[6] = (cdr((r[4])));
    r[6] = (car((r[6])));
    r[7] = (cdr((r[4])));
    r[7] = (cdr((r[7])));
    r[7] = (car((r[7])));
    (void)(oportputc('\n', (r[2])));
    (void)(oportputcircular((cx__232954), (r[2]), 1));
    (void)(oportputcircular((r[6]), (r[2]), 1));
    (void)(oportputcircular((cx__232919), (r[2]), 1));
    (void)(oportputcircular((cx__232953), (r[2]), 1));
    (void)(oportputcircular((r[7]), (r[2]), 1));
    r[6] = obj_from_void(oportputcircular((cx__232943), (r[2]), 1));
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[6] = (cdr((r[4])));
    r[6] = (car((r[6])));
    r[7] = (cdr((r[4])));
    r[7] = (cdr((r[7])));
    r[7] = (car((r[7])));
    (void)(oportputc('\n', (r[2])));
    (void)(oportputcircular((cx__232944), (r[2]), 1));
    (void)(oportputcircular((r[6]), (r[2]), 1));
    (void)(oportputcircular((cx__232943), (r[2]), 1));
    { /* open-output-string */
    r[8] = (mkoport_string(8, newcb())); }
    hreserve(hbsz(3+1), 9); /* 9 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = r[8];  
    *--hp = obj_from_case(505);
    r[9] = (hendblk(3+1));
    r[0] = r[9];  
    r[1] = r[7];  
    r[2] = r[8];  
    goto gs_write_2Dserialized_2Dsexp;
  }
  }

case 505: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . p k oport */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(506);
    r[5] = (hendblk(2+1));
    { /* get-output-string */
    obj o = r[2];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
        vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); 
    r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } }
    r[0] = r[5];  
    r[1] = r[6];  
    r[2] = r[4];  
    goto gs_display_2Dcode;

case 506: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k oport */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc('\n', (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 507: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r oport k */
    r[4] = (cdr((r[1])));
    r[4] = (cdr((r[4])));
    r[4] = (car((r[4])));
    r[5] = (cdr((r[1])));
    r[5] = (car((r[5])));
    r[6+0] = r[3];  
    r[6+1] = r[5];  
    r[6+2] = r[4];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_process_2Ddefine;

case 508: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r oport k */
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto gs_process_2Dtop_2Dform;

case 509: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k oport */
    hreserve(hbsz(1), 4); /* 4 live regs */
    *--hp = obj_from_void(0);
    r[4] = (hendblk(1));
    { /* open-output-string */
    r[5] = (mkoport_string(5, newcb())); }
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(510);
    r[6] = (hendblk(5+1));
    r[0] = r[6];  
    /* r[1] */    
    r[2] = (mknull());
    goto gs_find_2Dfree;

case 510: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k oport cstr p */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(511);
    r[7] = (hendblk(4+1));
    r[8+0] = r[7];  
    r[8+1] = r[2];  
    r[8+2] = (mknull());
    r[8+3] = (mknull());
    r[8+4] = (mknull());
    r[8+5] = r[1];  
    r[8+6] = obj_from_bool(0);
    r[8+7] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 511: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . k oport cstr p */
    { /* get-output-string */
    obj o = r[5];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
        vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); 
    r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } }
    (void)(objptr_from_obj(r[4])[0] = (r[6]));
    (void)(oportputc('\n', (r[3])));
    (void)(oportputcircular((cx__232965), (r[3]), 1));
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(512);
    r[7] = (hendblk(2+1));
    r[0] = r[7];  
    r[1] = (objptr_from_obj(r[4])[0]);
    r[2] = r[3];  
    goto gs_display_2Dcode;

case 512: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k oport */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc('\n', (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 513: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k oport */
    hreserve(hbsz(1), 4); /* 4 live regs */
    *--hp = obj_from_void(0);
    r[4] = (hendblk(1));
    { /* open-output-string */
    r[5] = (mkoport_string(5, newcb())); }
    hreserve(hbsz(5+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(514);
    r[6] = (hendblk(5+1));
    r[0] = r[6];  
    /* r[1] */    
    r[2] = (mknull());
    goto gs_find_2Dfree;

case 514: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k oport cstr p */
    hreserve(hbsz(4+1), 7); /* 7 live regs */
    *--hp = r[6];  
    *--hp = r[5];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(515);
    r[7] = (hendblk(4+1));
    r[8+0] = r[7];  
    r[8+1] = r[2];  
    r[8+2] = (mknull());
    r[8+3] = (mknull());
    r[8+4] = (mknull());
    r[8+5] = r[1];  
    r[8+6] = obj_from_bool(0);
    r[8+7] = r[6];  
    r += 8; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 515: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek . k oport cstr p */
    { /* get-output-string */
    obj o = r[5];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
        vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); 
    r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } }
    (void)(objptr_from_obj(r[4])[0] = (r[6]));
    (void)(oportputc('\n', (r[3])));
    (void)(oportputcircular((cx__232965), (r[3]), 1));
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(516);
    r[7] = (hendblk(2+1));
    r[0] = r[7];  
    r[1] = (objptr_from_obj(r[4])[0]);
    r[2] = r[3];  
    goto gs_display_2Dcode;

case 516: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k oport */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(oportputc('\n', (r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 517: /* path-strip-directory k filename */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_path_2Dstrip_2Ddirectory: /* k filename */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(518);
    r[2] = (hendblk(1+1));
    r[3+0] = (cx_string_2D_3Elist);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 518: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    { fixnum_t v14254_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14254_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14254_tmp);
    hreserve(hbsz(3)*c, 3); /* 3 live regs */
    l = r[1];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[3] = (o); } }
    r[0] = r[2];  
    r[1] = r[3];  
    r[2] = (mknull());
    goto s_loop_v10761;

s_loop_v10761: /* k l r */
  if ((isnull((r[1])))) {
    r[3+0] = (cx_list_2D_3Estring);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (car((r[1])));
    r[3] = (ismemv((r[3]), (cx__233174)));
  if (bool_from_obj(r[3])) {
    r[3+0] = (cx_list_2D_3Estring);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[3] = (cdr((r[1])));
    r[4] = (car((r[1])));
    { /* cons */ 
    hreserve(hbsz(3), 5); /* 5 live regs */
    *--hp = r[2];  
    *--hp = r[4];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[4] = (hendblk(3)); }
    /* r[0] */    
    r[1] = r[3];  
    r[2] = r[4];  
    goto s_loop_v10761;
  }
  }

case 519: /* path-strip-extension k filename */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_path_2Dstrip_2Dextension: /* k filename */
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(520);
    r[2] = (hendblk(2+1));
    r[3+0] = (cx_string_2D_3Elist);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 520: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r filename k */
    { fixnum_t v14252_tmp;
    { /* length */
    int n; obj l = r[1];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14252_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14252_tmp);
    hreserve(hbsz(3)*c, 4); /* 4 live regs */
    l = r[1];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[4] = (o); } }
    r[5] = (ismemv(obj_from_char('.'), (r[4])));
  if (bool_from_obj(r[5])) {
    r[6] = (cdr((r[5])));
    { fixnum_t v14253_tmp;
    { /* length */
    int n; obj l = r[6];  
    for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
    v14253_tmp = (n); }
    { /* reverse */
    obj l, o = mknull(); int c = (v14253_tmp);
    hreserve(hbsz(3)*c, 7); /* 7 live regs */
    l = r[6];   /* gc-safe */
    for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
    *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }  
    r[6] = (o); } }
    r[0] = (cx_list_2D_3Estring);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 521: /* module-name k filename */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_module_2Dname: /* k filename */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(522);
    r[2] = (hendblk(1+1));
    r[0] = r[2];  
    /* r[1] */    
    goto gs_path_2Dstrip_2Ddirectory;

case 522: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[0] = r[2];  
    /* r[1] */    
    goto gs_path_2Dstrip_2Dextension;

case 523: /* process-file k fname */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_process_2Dfile: /* k fname */
    r[2] = (cx__2Acurrent_2Doutput_2Dport_2A);
    hreserve(hbsz(1), 3); /* 3 live regs */
    *--hp = obj_from_void(0);
    r[3] = (hendblk(1));
    hreserve(hbsz(1), 4); /* 4 live regs */
    *--hp = obj_from_void(0);
    r[4] = (hendblk(1));
    hreserve(hbsz(5+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(524);
    r[5] = (hendblk(5+1));
    r[0] = r[5];  
    /* r[1] */    
    goto gs_module_2Dname;

case 524: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5]; }
    r += 1; /* shift reg. wnd */
    /* ek r k oport mname iport fname */
    r[7] = ((obj)fopen(stringchars((r[6])), stringchars((cx__233049))));
    hreserve(hbsz(6+1), 8); /* 8 live regs */
    *--hp = r[5];  
    *--hp = r[1];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = r[6];  
    *--hp = obj_from_case(525);
    r[8] = (hendblk(6+1));
  if (bool_from_obj(r[7])) {
    r[9] = (mkiport_file(9, (void*)((r[7]))));
    r[10+0] = obj_from_ktrap();
    r[10+1] = r[9];  
    r[10+2] = r[6];  
    r[10+3] = r[2];  
    r[10+4] = r[3];  
    r[10+5] = r[4];  
    r[10+6] = r[1];  
    r[10+7] = r[5];  
    r += 10; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v10685;
  } else {
    r[0] = (cx_file_2Derror);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[8];  
    r[2] = (cx__233053);
    r[3] = r[6];  
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 525: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4];
    r[1+6] = p[5];
    r[1+7] = p[6]; }
    r += 1; /* shift reg. wnd */
s_l_v10685: /* ek r fname k oport mname r iport */
    (void)(objptr_from_obj(r[7])[0] = (r[1]));
    (void)(objptr_from_obj(r[5])[0] = (r[6]));
    (void)(oportputcircular((cx__233222), (r[4]), 1));
    r[8] = (objptr_from_obj(r[5])[0]);
    (void)(oportputcircular((r[8]), (r[4]), 1));
    (void)(oportputcircular((cx__233221), (r[4]), 1));
    hreserve(hbsz(4+1), 8); /* 8 live regs */
    *--hp = r[4];  
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[7];  
    *--hp = obj_from_case(526);
    r[8] = (hendblk(4+1));
    r[0] = r[8];  
    r[1] = r[2];  
    goto gs_path_2Dstrip_2Ddirectory;

case 526: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3];
    r[1+5] = p[4]; }
    r += 1; /* shift reg. wnd */
    /* ek r iport k mname oport */
    (void)(oportputcircular((r[1]), (r[5]), 1));
    (void)(oportputcircular((cx__233220), (r[5]), 1));
    (void)(oportputc('\n', (r[5])));
    (void)(oportputc('\n', (r[5])));
    (void)(oportputcircular((cx__233219), (r[5]), 1));
    r[6] = (objptr_from_obj(r[4])[0]);
    (void)(oportputcircular((r[6]), (r[5]), 1));
    (void)(oportputcircular((cx__233218), (r[5]), 1));
    (void)(oportputc('\n', (r[5])));
    hreserve(hbsz(3+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(527);
    r[6] = (hendblk(3+1));
    r[0] = (cx__25read);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[6];  
    r[2] = (objptr_from_obj(r[2])[0]);
    r[3] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 527: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r iport k oport */
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(531);
    r[5] = (hendblk(3+1));
    r[6+0] = r[5];  
    r[6+1] = r[1];  
    r[6+2] = r[4];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_loop_v10696;

case 528: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_loop_v10696: /* k x oport iport */
  if ((iseof((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(528);
    r[4] = (hendblk(2+1));
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[0];  
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(529);
    r[4] = (hendblk(3+1));
    r[0] = r[4];  
    /* r[1] */    
    /* r[2] */    
    goto gs_process_2Dtop_2Dform;
  }

case 529: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . iport loop k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(530);
    r[5] = (hendblk(2+1));
    r[0] = (cx__25read);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (objptr_from_obj(r[2])[0]);
    r[3] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 530: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop k */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 531: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . iport k oport */
    (void)(oportputcircular((cx__233210), (r[4]), 1));
    r[0] = (cx_close_2Dinput_2Dport);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = (objptr_from_obj(r[2])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 532: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    { /* define make-closure */
    static obj c[] = { obj_from_objptr(vmcases+1) };
    r[2] = obj_from_objptr(c); }
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(533);
    r[3] = (hendblk(0+1));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 533: /* clo ek r */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* ek r */
    cx_callmv_2Dadapter_2Dclosure = r[1];  
    { /* define install-global-lambdas */
    static obj c[] = { obj_from_objptr(vmcases+6) };
    cx_install_2Dglobal_2Dlambdas = obj_from_objptr(c); }
    { /* define install-global-lambdas */
    static obj c[] = { obj_from_objptr(vmcases+6) };
    r[2] = obj_from_objptr(c); }
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(534);
    r[3] = (hendblk(0+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 534: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    r += 1; /* shift reg. wnd */
    /* ek . */
    { /* define initialize-modules */
    static obj c[] = { obj_from_objptr(vmcases+7) };
    cx_initialize_2Dmodules = obj_from_objptr(c); }
    { /* define initialize-modules */
    static obj c[] = { obj_from_objptr(vmcases+7) };
    r[2] = obj_from_objptr(c); }
    hreserve(hbsz(0+1), 3); /* 3 live regs */
    *--hp = obj_from_case(535);
    r[3] = (hendblk(0+1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 535: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    r += 1; /* shift reg. wnd */
    /* ek . */
    cx_test1 = (cx__233249);
    cx_test2 = (cx__233519);
    cx_test3 = (cx__233721);
    cx_test4 = (cx__234123);
    cx_test5 = (cx__234253);
    cx__2Averbose_2A = obj_from_bool(0);
    cx__2Areset_2A = obj_from_bool(0);
    { static obj c[] = { obj_from_case(536) }; cx__25residual_2Dtty_2Dport_3F = (obj)c; }
    { static obj c[] = { obj_from_case(537) }; cx_error_2A = (obj)c; }
    { static obj c[] = { obj_from_case(539) }; cx_run_2Dtests = (obj)c; }
    { static obj c[] = { obj_from_case(545) }; cx_repl_2Deval = (obj)c; }
    { static obj c[] = { obj_from_case(552) }; cx_repl_2Deval_2Dtop_2Dform = (obj)c; }
    { static obj c[] = { obj_from_case(561) }; cx_repl_2Dread = (obj)c; }
    { static obj c[] = { obj_from_case(562) }; cx_repl_2Dfrom_2Dport = (obj)c; }
    { static obj c[] = { obj_from_case(567) }; cx_repl_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(570) }; cx_benchmark_2Dfile = (obj)c; }
    { static obj c[] = { obj_from_case(576) }; cx_service_2Drepl = (obj)c; }
    { static obj c[] = { obj_from_case(577) }; cx_tcode_2Drepl = (obj)c; }
    { static obj c[] = { obj_from_case(579) }; cx_debug_2Drepl = (obj)c; }
    { static obj c[] = { obj_from_case(585) }; cx_main = (obj)c; }
    r[2] = obj_from_void(0);
    r[3+0] = r[0];
    pc = 0; /* exit from module init */
    r[3+1] = r[2];  
    r += 3; /* shift reg wnd */
    rc = 2;
    goto jump;

case 536: /* %residual-tty-port? k o */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k o */
    { /* tty-port? */
    extern int is_tty_port(obj o);
    int x = is_tty_port((r[1]));
    r[2] = obj_from_bool(x); }
    r[3+0] = r[0];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = obj_from_ktrap();
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 537: /* error* k msg args */
    assert(rc == 4);
    r += 1; /* shift reg. wnd */
gs_error_2A: /* k msg args */
  if ((isprocedure((cx__2Areset_2A)))) {
    r[3] = (cx__2Acurrent_2Derror_2Dport_2A);
    (void)(oportputcircular((r[1]), (r[3]), 1));
    (void)(oportputc('\n', (r[3])));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(538);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    r[1] = r[2];  
    r[2] = r[3];  
    goto s_loop_v10647;
  } else {
    { /* cons */ 
    hreserve(hbsz(3), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_size(PAIR_BTAG); 
    r[3] = (hendblk(3)); }
    r[4+0] = (cx_apply);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r[4+2] = (cx_error);
    r[4+3] = r[3];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

s_loop_v10647: /* k l p */
  if ((ispair((r[1])))) {
    r[3] = (car((r[1])));
    (void)(oportputcircular((r[3]), (r[2]), 0));
    (void)(oportputc('\n', (r[2])));
    r[3] = (cdr((r[1])));
    /* r[0] */    
    r[1] = r[3];  
    /* r[2] */    
    goto s_loop_v10647;
  } else {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 538: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek . k */
    r[0] = (cx__2Areset_2A);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[2];  
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 539: /* run-tests k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
gs_run_2Dtests: /* k */
    hreserve(hbsz(1), 1); /* 1 live regs */
    *--hp = obj_from_void(0);
    r[1] = (hendblk(1));
    r[2] = obj_from_flonum(2, clock());
    (void)(objptr_from_obj(r[1])[0] = (r[2]));
    (void)(oportputcircular((cx__234688), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[1];  
    *--hp = r[0];  
    *--hp = obj_from_case(540);
    r[2] = (hendblk(2+1));
    r[0] = r[2];  
    r[1] = (cx_test1);
    goto gs_evaluate;

case 540: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k start */
    (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(541);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = (cx_test2);
    goto gs_evaluate;

case 541: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k start */
    (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(542);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = (cx_test3);
    goto gs_evaluate;

case 542: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k start */
    (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(543);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = (cx_test4);
    goto gs_evaluate;

case 543: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k start */
    (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(544);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = (cx_test5);
    goto gs_evaluate;

case 544: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k start */
    (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
    (void)(oportputcircular((cx__234687), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    { flonum_t v14250_b;
    { flonum_t v14249_a;
    { const flonum_t v14248_b = (CLOCKS_PER_SEC);
    { const flonum_t v14246_a = (clock());
    r[4] = (objptr_from_obj(r[3])[0]);
  if ((is_fixnum_obj(r[4]))) {
    { const flonum_t v14247_tmp = ((flonum_t)fixnum_from_obj(r[4]));
    v14249_a = ((v14246_a) - (v14247_tmp)); } 
  } else {
    v14249_a = ((v14246_a) - flonum_from_obj(r[4]));
  } } 
    v14250_b = ((v14249_a) / (v14248_b)); }  }
    { const flonum_t v14251_tmp = ((flonum_t)(+1000));
    r[4] = obj_from_flonum(4, (v14251_tmp) * (v14250_b)); }  }
    (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    (void)(oportputcircular((cx__234663), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    r[4] = obj_from_void(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 545: /* repl-eval k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_repl_2Deval: /* k x */
    cx__2Areset_2A = r[0];  
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(546);
    r[2] = (hendblk(1+1));
    r[3+0] = (cx_transform);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = obj_from_bool(0);
    r[3+3] = r[1];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 546: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
  if (bool_from_obj(cx__2Averbose_2A)) {
    (void)(oportputcircular((cx__234760), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
    (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
  } else {
  }
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(547);
    r[3] = (hendblk(2+1));
  if ((ispair((r[1])))) {
    r[4+0] = obj_from_ktrap();
    r[4+1] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    r[4+2] = r[2];  
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v10568;
  } else {
    r[4+0] = (cx_x_2Derror);
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = (cx__234758);
    r[4+3] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 547: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v10568: /* ek . k r */
    r[4] = (car((r[3])));
    r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("define"))));
  if (bool_from_obj(r[4])) {
    (void)(car((r[3])) = (mksymbol(internsym("set!"))));
  } else {
  }
  if (bool_from_obj(cx__2Averbose_2A)) {
    (void)(oportputcircular((cx__234751), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
  } else {
  }
    { /* open-output-string */
    r[4] = (mkoport_string(4, newcb())); }
    hreserve(hbsz(3+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(548);
    r[5] = (hendblk(3+1));
    r[0] = r[5];  
    r[1] = r[3];  
    r[2] = (mknull());
    goto gs_find_2Dfree;

case 548: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek r r k p */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(549);
    r[5] = (hendblk(2+1));
    r[6+0] = r[5];  
    r[6+1] = r[2];  
    r[6+2] = (mknull());
    r[6+3] = (mknull());
    r[6+4] = (mknull());
    r[6+5] = r[1];  
    r[6+6] = obj_from_bool(0);
    r[6+7] = r[4];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_codegen;

case 549: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . k p */
    { /* get-output-string */
    obj o = r[3];   cxtype_oport_t *vt = ckoportvt(o); 
    if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
        vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[4] = (mkeof());
    else { cbuf_t *pcb = oportdata(o); 
    r[4] = (hpushstr(4, newstring(cbdata(pcb)))); } }
    hreserve(hbsz(1), 5); /* 5 live regs */
    *--hp = obj_from_bool(0);
    r[5] = (hendblk(1));
  if (bool_from_obj(cx__2Averbose_2A)) {
    (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
    (void)(oportputcircular((cx__234744), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
    r[6] = obj_from_flonum(6, clock());
    (void)(objptr_from_obj(r[5])[0] = (r[6]));
  } else {
  }
    { /* define decode */
    static obj c[] = { obj_from_objptr(vmcases+3) };
    r[6] = obj_from_objptr(c); }
    hreserve(hbsz(2+1), 7); /* 7 live regs */
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = obj_from_case(550);
    r[7] = (hendblk(2+1));
    r[0] = r[6];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[7];  
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 550: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k start */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(551);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    /* r[1] */    
    goto gs_execute;

case 551: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k start */
  if (((r[1]) == obj_from_void(0))) {
    (void)((0) ? obj_from_bool(0) : obj_from_void(0));
  } else {
    (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
  }
  if (bool_from_obj(cx__2Averbose_2A)) {
    (void)(oportputcircular((cx__234687), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    { flonum_t v14244_b;
    { flonum_t v14243_a;
    { const flonum_t v14242_b = (CLOCKS_PER_SEC);
    { const flonum_t v14240_a = (clock());
    r[4] = (objptr_from_obj(r[3])[0]);
  if ((is_fixnum_obj(r[4]))) {
    { const flonum_t v14241_tmp = ((flonum_t)fixnum_from_obj(r[4]));
    v14243_a = ((v14240_a) - (v14241_tmp)); } 
  } else {
    v14243_a = ((v14240_a) - flonum_from_obj(r[4]));
  } } 
    v14244_b = ((v14243_a) / (v14242_b)); }  }
    { const flonum_t v14245_tmp = ((flonum_t)(+1000));
    r[4] = obj_from_flonum(4, (v14245_tmp) * (v14244_b)); }  }
    (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
    (void)(oportputcircular((cx__234663), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    r[4] = obj_from_void(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
  } else {
    r[4] = obj_from_void(0);
  }
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 552: /* repl-eval-top-form k x */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_repl_2Deval_2Dtop_2Dform: /* k x */
  if (bool_from_obj(cxs_list2_3F((r[1])))) {
    r[2] = (car((r[1])));
    r[2] = obj_from_bool((r[2]) == (mksymbol(internsym("load"))));
  if (bool_from_obj(r[2])) {
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
    r[2] = obj_from_bool(isstring((r[2])));
  } else {
    r[2] = obj_from_bool(0);
  }
  } else {
    r[2] = obj_from_bool(0);
  }
  if (bool_from_obj(r[2])) {
    r[2] = (cdr((r[1])));
    r[2] = (car((r[2])));
    r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233049))));
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(553);
    r[4] = (hendblk(1+1));
  if (bool_from_obj(r[3])) {
    r[5] = (mkiport_file(5, (void*)((r[3]))));
    r[6+0] = obj_from_ktrap();
    r[6+1] = r[5];  
    r[6+2] = r[0];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v10548;
  } else {
    r[5+0] = (cx_file_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__233053);
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }
  } else {
  if ((ispair((r[1])))) {
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(555);
    r[2] = (hendblk(2+1));
    r[3+0] = (cx_transform);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = obj_from_bool(1);
    r[3+3] = (car((r[1])));
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    /* r[0] */    
    /* r[1] */    
    goto gs_repl_2Deval;
  }
  }

case 553: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_l_v10548: /* ek r k */
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = r[1];  
    *--hp = obj_from_case(554);
    r[3] = (hendblk(2+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_repl_2Dfrom_2Dport;

case 554: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . r k */
    r[0] = (cx_close_2Dinput_2Dport);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    /* r[2] */    
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 555: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r x k */
  if (((r[1]) == (mksymbol(internsym("begin"))))) {
    r[4] = (cdr((r[2])));
    r[0] = r[3];  
    r[1] = r[4];  
    goto s_loop_v10532;
  } else {
  if (((r[1]) == (mksymbol(internsym("define-syntax"))))) {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(558);
    r[4] = (hendblk(2+1));
    r[5] = (cdr((r[2])));
    r[5] = (cdr((r[5])));
    r[5] = (car((r[5])));
    r[6+0] = (cx_transform);
    pc = objptr_from_obj(r[6+0])[0];
    r[6+1] = r[4];  
    r[6+2] = obj_from_bool(1);
    r[6+3] = r[5];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
  if ((isprocedure((r[1])))) {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = obj_from_case(560);
    r[4] = (hendblk(1+1));
    r[0] = r[1];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    /* r[2] */    
    r[3] = (cx_top_2Dtransformer_2Denv);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  } else {
    r[0] = r[3];  
    r[1] = r[2];  
    goto gs_repl_2Deval;
  }
  }
  }

case 556: /* clo k x* */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
s_loop_v10532: /* k x* */
  if ((ispair((r[1])))) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(556);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(3+1), 3); /* 3 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(557);
    r[2] = (hendblk(3+1));
    r[0] = r[2];  
    r[1] = (car((r[1])));
    goto gs_repl_2Deval_2Dtop_2Dform;
  } else {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_void(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 557: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop x* k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[4];  
    r[2] = (cdr((r[3])));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 558: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k x */
    r[4] = (cdr((r[3])));
    r[4] = (car((r[4])));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(559);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[4];  
    goto gs_top_2Dtransformer_2Denv;

case 559: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r k r */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = obj_from_ktrap();
    r[4+2] = obj_from_void(boxref((r[1])) = (r[3]));
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 560: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[0] = r[2];  
    /* r[1] */    
    goto gs_repl_2Deval_2Dtop_2Dform;

case 561: /* repl-read k iport */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_repl_2Dread: /* k iport */
    (void)(((r[1]) == (cx__2Acurrent_2Dinput_2Dport_2A)) ? (void)(oportputcircular((cx__234816), (cx__2Acurrent_2Doutput_2Dport_2A), 1)) : (void)(0));
    r[2+0] = (cx__25read);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[0];  
    r[2+2] = r[1];  
    r[2+3] = obj_from_bool(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 562: /* repl-from-port k iport */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_repl_2Dfrom_2Dport: /* k iport */
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(563);
    r[2] = (hendblk(2+1));
    r[0] = r[2];  
    /* r[1] */    
    goto gs_repl_2Dread;

case 563: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r iport k */
    r[0] = r[3];  
    /* r[1] */    
    /* r[2] */    
    goto s_loop_v10479;

case 564: /* clo k x */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
s_loop_v10479: /* k x iport */
  if ((iseof((r[1])))) {
    /* r[0] */    
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    hreserve(hbsz(1+1), 3); /* 3 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(564);
    r[3] = (hendblk(1+1));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[0];  
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(565);
    r[3] = (hendblk(3+1));
    r[0] = r[3];  
    /* r[1] */    
    goto gs_repl_2Deval_2Dtop_2Dform;
  }

case 565: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
    /* ek . iport loop k */
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[4];  
    *--hp = r[3];  
    *--hp = obj_from_case(566);
    r[5] = (hendblk(2+1));
    r[0] = r[5];  
    r[1] = r[2];  
    goto gs_repl_2Dread;

case 566: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop k */
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[3];  
    r[4+2] = r[1];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 567: /* repl-file k fname */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_repl_2Dfile: /* k fname */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233049))));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = obj_from_case(568);
    r[4] = (hendblk(2+1));
  if (bool_from_obj(r[3])) {
    r[5] = (mkiport_file(5, (void*)((r[3]))));
    r[6+0] = obj_from_ktrap();
    r[6+1] = r[5];  
    r[6+2] = r[0];  
    r[6+3] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v10460;
  } else {
    r[5+0] = (cx_file_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__233053);
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 568: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
s_l_v10460: /* ek r k iport */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[3];  
    *--hp = obj_from_case(569);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = (objptr_from_obj(r[3])[0]);
    goto gs_repl_2Dfrom_2Dport;

case 569: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . iport k */
    r[0] = (cx_close_2Dinput_2Dport);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = (objptr_from_obj(r[2])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 570: /* benchmark-file k fname */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
gs_benchmark_2Dfile: /* k fname */
    hreserve(hbsz(1), 2); /* 2 live regs */
    *--hp = obj_from_void(0);
    r[2] = (hendblk(1));
    r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233049))));
    hreserve(hbsz(3+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(571);
    r[4] = (hendblk(3+1));
  if (bool_from_obj(r[3])) {
    r[5] = (mkiport_file(5, (void*)((r[3]))));
    r[6+0] = obj_from_ktrap();
    r[6+1] = r[5];  
    r[6+2] = r[1];  
    r[6+3] = r[0];  
    r[6+4] = r[2];  
    r += 6; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto s_l_v10424;
  } else {
    r[5+0] = (cx_file_2Derror);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[4];  
    r[5+2] = (cx__233053);
    r[5+3] = r[1];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 571: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2];
    r[1+4] = p[3]; }
    r += 1; /* shift reg. wnd */
s_l_v10424: /* ek r fname k iport */
    (void)(objptr_from_obj(r[4])[0] = (r[1]));
    hreserve(hbsz(2+1), 5); /* 5 live regs */
    *--hp = r[3];  
    *--hp = r[4];  
    *--hp = obj_from_case(572);
    r[5] = (hendblk(2+1));
    hreserve(hbsz(2+1), 6); /* 6 live regs */
    *--hp = r[5];  
    *--hp = r[2];  
    *--hp = obj_from_case(575);
    r[5] = (hendblk(2+1));
    r[0] = (cx__25read);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[5];  
    r[2] = (objptr_from_obj(r[4])[0]);
    r[3] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 572: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . iport k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(573);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = (objptr_from_obj(r[2])[0]);
    goto gs_repl_2Dfrom_2Dport;

case 573: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . iport k */
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(574);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    r[1] = (cx__234847);
    goto gs_repl_2Deval_2Dtop_2Dform;

case 574: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . iport k */
    r[0] = (cx_close_2Dinput_2Dport);
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    r[2] = (objptr_from_obj(r[2])[0]);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 575: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r fname k */
    r[4] = (cxs_syntax_2Dmatch_3F((cx__234853), (r[1])));
  if (bool_from_obj(r[4])) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[5+0] = (cx_error);
    pc = objptr_from_obj(r[5+0])[0];
    r[5+1] = r[3];  
    r[5+2] = (cx__234852);
    r[5+3] = r[2];  
    r += 5; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;
  }

case 576: /* service-repl k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
gs_service_2Drepl: /* k */
    r[1+0] = r[0];  
    r[1+1] = (cx__2Acurrent_2Dinput_2Dport_2A);
    r += 1; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    goto gs_repl_2Dfrom_2Dport;

case 577: /* tcode-repl k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
gs_tcode_2Drepl: /* k */
    { /* define decode */
    static obj c[] = { obj_from_objptr(vmcases+3) };
    r[1] = obj_from_objptr(c); }
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(578);
    r[2] = (hendblk(1+1));
    r[3+0] = r[1];  
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r[3+2] = (cx__234866);
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;

case 578: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[0] = r[2];  
    /* r[1] */    
    goto gs_execute;

case 579: /* debug-repl k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
gs_debug_2Drepl: /* k */
    hreserve(hbsz(1), 1); /* 1 live regs */
    *--hp = obj_from_void(0);
    r[1] = (hendblk(1));
    (void)(objptr_from_obj(r[1])[0] = obj_from_bool(0));
    { /* tty-port? */
    extern int is_tty_port(obj o);
    int x = is_tty_port((cx__2Acurrent_2Dinput_2Dport_2A));
    r[2] = obj_from_bool(x); }
  if (bool_from_obj(r[2])) {
    hreserve(hbsz(0+1), 2); /* 2 live regs */
    *--hp = obj_from_case(581);
    r[2] = (hendblk(0+1));
    hreserve(hbsz(2+1), 3); /* 3 live regs */
    *--hp = r[1];  
    *--hp = r[2];  
    *--hp = obj_from_case(580);
    r[2] = (hendblk(2+1));
    r[3+0] = (cx_call_2Dwith_2Dcurrent_2Dcontinuation);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[0];  
    r[3+2] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[2+0] = r[0];  
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = obj_from_ktrap();
    r[2+2] = obj_from_void(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  }

case 580: /* clo k k */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* k k loop outer-k */
    (void)(objptr_from_obj(r[3])[0] = (r[1]));
    r[4+0] = r[2];  
    pc = objptr_from_obj(r[4+0])[0];
    r[4+1] = r[0];  
    r += 4; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 581: /* clo k */
    assert(rc == 2);
    r += 1; /* shift reg. wnd */
    /* k */
    (void)(oportputcircular((cx__234893), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    hreserve(hbsz(0+1), 1); /* 1 live regs */
    *--hp = obj_from_case(581);
    r[1] = (hendblk(0+1));
    hreserve(hbsz(2+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = r[1];  
    *--hp = obj_from_case(582);
    r[1] = (hendblk(2+1));
    r[2+0] = (cx__25read);
    pc = objptr_from_obj(r[2+0])[0];
    r[2+1] = r[1];  
    r[2+2] = (cx__2Acurrent_2Dinput_2Dport_2A);
    r[2+3] = obj_from_bool(0);
    r += 2; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 4;
    goto jump;

case 582: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop k */
  if ((iseof((r[1])))) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_bool(0);
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("?")))) && (1))) {
    (void)(oportputcircular((cx__234887), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("r")))) && (1))) {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(583);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    goto gs_tcode_2Drepl;
  } else {
  if ((((r[1]) == (mksymbol(internsym("a")))) && (1))) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = obj_from_void(exit(1));
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
  if ((((r[1]) == (mksymbol(internsym("s")))) && (1))) {
    hreserve(hbsz(2+1), 4); /* 4 live regs */
    *--hp = r[3];  
    *--hp = r[2];  
    *--hp = obj_from_case(584);
    r[4] = (hendblk(2+1));
    r[0] = r[4];  
    goto gs_service_2Drepl;
  } else {
    (void)(oportputcircular((cx__234872), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;
  }
  }
  }
  }
  }

case 583: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek r loop k */
    r[4] = obj_from_bool((r[1]) == obj_from_bool(1));
  if (bool_from_obj(r[4])) {
    r[0] = r[3];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[4];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;
  }

case 584: /* clo ek . */
    assert(rc >= 2);
    r[2] = obj_from_void(0); /* ignored */
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1];
    r[1+3] = p[2]; }
    r += 1; /* shift reg. wnd */
    /* ek . loop k */
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 585: /* main k argv */
    assert(rc == 3);
    r += 1; /* shift reg. wnd */
    /* k argv */
    hreserve(hbsz(1+1), 2); /* 2 live regs */
    *--hp = r[0];  
    *--hp = obj_from_case(586);
    r[2] = (hendblk(1+1));
    r[3+0] = (cx_command_2Dline);
    pc = objptr_from_obj(r[3+0])[0];
    r[3+1] = r[2];  
    r += 3; /* shift reg wnd */
    rreserve(MAX_HOSTREGS);
    rc = 2;
    goto jump;

case 586: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[3] = (cdr((r[1])));
  if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234940), (r[3])))) {
    r[4] = (cdr((r[3])));
    r[4] = (car((r[4])));
    r[0] = r[2];  
    r[1] = r[4];  
    goto gs_process_2Dfile;
  } else {
  if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234932), (r[3])))) {
    r[4] = (cdr((r[3])));
    r[4] = (car((r[4])));
    r[0] = r[2];  
    r[1] = r[4];  
    goto gs_repl_2Dfile;
  } else {
  if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234924), (r[3])))) {
    r[4] = (cdr((r[3])));
    r[4] = (car((r[4])));
    r[0] = r[2];  
    r[1] = r[4];  
    goto gs_benchmark_2Dfile;
  } else {
  if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234918), (r[3])))) {
    r[0] = r[2];  
    goto gs_run_2Dtests;
  } else {
  if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234915), (r[3])))) {
    cx__2Averbose_2A = obj_from_bool(1);
    r[0] = r[2];  
    goto gs_service_2Drepl;
  } else {
  if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234911), (r[3])))) {
    r[0] = r[2];  
    goto gs_service_2Drepl;
  } else {
    hreserve(hbsz(1+1), 4); /* 4 live regs */
    *--hp = r[2];  
    *--hp = obj_from_case(587);
    r[4] = (hendblk(1+1));
    r[0] = r[4];  
    goto gs_tcode_2Drepl;
  }
  }
  }
  }
  }
  }

case 587: /* clo ek r */
    assert(rc == 3);
    { obj* p = objptr_from_obj(r[0]);
    r[1+2] = p[1]; }
    r += 1; /* shift reg. wnd */
    /* ek r k */
    r[3] = obj_from_bool((r[1]) == obj_from_bool(1));
  if (bool_from_obj(r[3])) {
    r[0] = r[2];  
    pc = objptr_from_obj(r[0])[0];
    r[1] = obj_from_ktrap();
    r[2] = r[3];  
    rreserve(MAX_HOSTREGS);
    rc = 3;
    goto jump;
  } else {
    r[0] = r[2];  
    goto gs_debug_2Drepl;
  }

default: /* inter-host call */
    cxg_hp = hp;
    cxm_rgc(r, MAX_HOSTREGS);
    cxg_rc = rc;
    return pc;
  }
}

/* module load */
void MODULE(void)
{
  obj pc;
  if (!root.next) {
    root.next = cxg_rootp;
    cxg_rootp = &root;
    LOAD();
    pc = obj_from_case(0);
    cxg_rc = 0;
    while (pc) pc = (*(cxhost_t*)pc)(pc); 
    assert(cxg_rc == 2);
  }
}

/* basic runtime */
#define HEAP_SIZE 131072 /* 2^17 */
#define REGS_SIZE 4092

obj *cxg_heap = NULL;
cxoint_t cxg_hmask = 0;
obj *cxg_hp = NULL;
static cxroot_t cxg_root = { 0, NULL, NULL };
cxroot_t *cxg_rootp = &cxg_root;
obj *cxg_regs = NULL, *cxg_rend = NULL;
int cxg_rc = 0;
char **cxg_argv = NULL;

static obj *cxg_heap2 = NULL;
static size_t cxg_hsize = 0; 
static cxoint_t cxg_hmask2 = 0;
static int cxg_gccount = 0, cxg_bumpcount = 0;

static obj *toheap2(obj* p, obj *hp, obj *h1, cxoint_t m1, obj *h2, cxoint_t m2)
{
  obj o = *p, *op, fo, *fop;
  if (((char*)(o) - (char*)h1) & m1) return hp;
  fo = (op = objptr_from_obj(o))[-1]; assert(fo);
  if (notaptr(fo)) {
    fop = op + size_from_obj(fo); while (fop >= op) *--hp = *--fop;
    *p = *fop = obj_from_objptr(hp+1);
  } else if (((char*)(fo) - (char*)h2) & m2) {
    *--hp = *op--; *--hp = *op;
    *p = *op = obj_from_objptr(hp+1);
  } else *p = fo;
  return hp;
}

static void finalize(obj *hp1, obj *he1, obj *h2, cxoint_t m2)
{
  while (hp1 < he1) {
    obj fo = *hp1++; assert(fo);
    if (notaptr(fo)) hp1 += size_from_obj(fo);
    else if (((char*)(fo) - (char*)h2) & m2) ((cxtype_t*)fo)->free((void*)*hp1++);
    else if (notaptr(fo = objptr_from_obj(fo)[-1])) hp1 += size_from_obj(fo);
    else ++hp1;
  } assert(hp1 == he1);
}

static obj *relocate(cxroot_t *pr, obj *regs, obj *regp, 
obj *he2, obj *he1, obj *hp, obj *h1, cxoint_t m1, obj *h2, cxoint_t m2) 
{
  obj *p, *hp1 = hp; hp = he2;
  for (p = regs; p < regp; ++p) hp = toheap2(p, hp, h1, m1, h2, m2);
  for (; pr; pr = pr->next) {
    obj **pp = pr->globv; int c = pr->globc;
    while (c-- > 0) hp = toheap2(*pp++, hp, h1, m1, h2, m2);
  }
  for (p = he2; p > hp; --p) hp = toheap2(p-1, hp, h1, m1, h2, m2);
  if (he1) finalize(hp1, he1, h2, m2);
  return hp;
}

obj *cxm_hgc(obj *regs, obj *regp, obj *hp, size_t needs) 
{
  obj *h1 = cxg_heap, *h2 = cxg_heap2; cxoint_t m1 = cxg_hmask, m2 = cxg_hmask2;
  size_t hs = cxg_hsize; cxroot_t *pr = cxg_rootp;

  obj *h = h1, *he1 = h1 + hs, *he2 = h2 + hs; 
  ++cxg_gccount;
  if (h1) hp = relocate(pr, regs, regp, he2, he1, hp, h1, m1, h2, m2), 
    needs += (h2 + hs - hp)*2; /* make heap half empty */
  else hp = h2 + hs;
  if (hs < needs) {
    size_t s = HEAP_SIZE; while (s < needs) s *= 2;
    m2 = 1 | ~(s*sizeof(obj)-1);
    if (!(h = realloc(h1, s*sizeof(obj)))) { perror("alloc[h]"); exit(2); }
    h1 = h2; h2 = h; he2 = h2 + s; he1 = 0; /* no finalize flag */
    if (h1) hp = relocate(pr, regs, regp, he2, he1, hp, h1, m1, h2, m2);
    else hp = h2 + s;
    if (!(h = realloc(h1, s*sizeof(obj)))) { perror("alloc[h]"); exit(2); }
    hs = s; m1 = m2; ++cxg_bumpcount;
  }
  h1 = h2; h2 = h;

  cxg_heap = h1; cxg_hmask = m1; cxg_heap2 = h2; cxg_hmask2 = m2;
  cxg_hsize = hs; return cxg_hp = hp;
}

obj *cxm_rgc(obj *regs, size_t needs) 
{
  obj *p = cxg_regs; assert(needs > 0);
  if (!p || cxg_rend < p + needs) {
    size_t roff = regs ? regs - p : 0;
    if (!(p = realloc(p, needs*sizeof(obj)))) { perror("alloc[r]"); exit(2); }
    cxg_regs = p; cxg_rend = p + needs;
    regs = p + roff;
  }
  if (regs && regs > p) while (needs--) *p++ = *regs++;
  return cxg_regs;
}

void cxm_check(int x, char *msg)
{
  if (!x) { 
    perror(msg); exit(2); 
  }
}

void *cxm_cknull(void *p, char *msg)
{
  cxm_check(p != NULL, msg); 
  return p;
}

/* os entry point */
int main(int argc, char **argv) {
  int res; obj pc;
  obj retcl[1] = { 0 };
  cxm_rgc(NULL, REGS_SIZE);
  cxg_argv = argv;
  MODULE();
  cxg_regs[0] = cx_main;
  cxg_regs[1] = (obj)retcl;
  cxg_regs[2] = (obj)argv;
  cxg_rc = 3;
  pc = objptr_from_obj(cx_main)[0];
  while (pc) pc = (*(cxhost_t*)pc)(pc); 
  assert(cxg_rc == 3);
  res = (cxg_regs[2] != 0); 
  /* fprintf(stderr, "%d collections, %d reallocs\n", cxg_gccount, cxg_bumpcount); */
  return res; 
}