skint/s.c

/* s.c -- generated via skint -c s.scm */

char *s_code[] = {

  "eq?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25isq;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py13:%25residual-eq?;y12:syntax-rules;;;l2:y"
  "1:_;y13:%25residual-eq?;;",

  0,
  "&0{%2.1,.1q]2}@!(y13:%25residual-eq?)",

  "eqv?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25isv;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py14:%25residual-eqv?;y12:syntax-rules;;;l2:"
  "y1:_;y14:%25residual-eqv?;;",

  0,
  "&0{%2.1,.1v]2}@!(y14:%25residual-eqv?)",

  "equal?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25ise;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py16:%25residual-equal?;y12:syntax-rules;;;l"
  "2:y1:_;y16:%25residual-equal?;;",

  0,
  "&0{%2.1,.1e]2}@!(y16:%25residual-equal?)",

  "fixnum?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25fixp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py17:%25residual-fixnum?;y12:syntax-rules;;;l2:y1:_;y"
  "17:%25residual-fixnum?;;",

  0,
  "&0{%1.0I0]1}@!(y17:%25residual-fixnum?)",

  "fxzero?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y7:%25izerop;y1:x;;;l2:py1:_"
  ";y12:syntax-rules;;py17:%25residual-fxzero?;y12:syntax-rules;;;l2:y1:_"
  ";y17:%25residual-fxzero?;;",

  0,
  "&0{%1.0I=0]1}@!(y17:%25residual-fxzero?)",

  "fxpositive?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25iposp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py21:%25residual-fxpositive?;y12:syntax-rules;;;l2:y"
  "1:_;y21:%25residual-fxpositive?;;",

  0,
  "&0{%1.0I>0]1}@!(y21:%25residual-fxpositive?)",

  "fxnegative?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25inegp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py21:%25residual-fxnegative?;y12:syntax-rules;;;l2:y"
  "1:_;y21:%25residual-fxnegative?;;",

  0,
  "&0{%1.0I<0]1}@!(y21:%25residual-fxnegative?)",

  "fx+",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25iadd;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py13:%25residual-fx+;y12:syntax-rules;;;l2:"
  "y1:_;y13:%25residual-fx+;;",

  0,
  "&0{%2.1,.1I+]2}@!(y13:%25residual-fx+)",

  "fx*",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25imul;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py13:%25residual-fx*;y12:syntax-rules;;;l2:"
  "y1:_;y13:%25residual-fx*;;",

  0,
  "&0{%2.1,.1I*]2}@!(y13:%25residual-fx*)",

  "fx-",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25isub;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py13:%25residual-fx-;y12:syntax-rules;;;l2:"
  "y1:_;y13:%25residual-fx-;;",

  0,
  "&0{%2.1,.1I-]2}@!(y13:%25residual-fx-)",

  "fx/",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25idiv;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py13:%25residual-fx/;y12:syntax-rules;;;l2:"
  "y1:_;y13:%25residual-fx/;;",

  0,
  "&0{%2.1,.1I/]2}@!(y13:%25residual-fx/)",

  "fxquotient",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25iquo;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py20:%25residual-fxquotient;y12:syntax-rule"
  "s;;;l2:y1:_;y20:%25residual-fxquotient;;",

  0,
  "&0{%2.1,.1Iq]2}@!(y20:%25residual-fxquotient)",

  "fxremainder",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25irem;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py21:%25residual-fxremainder;y12:syntax-rul"
  "es;;;l2:y1:_;y21:%25residual-fxremainder;;",

  0,
  "&0{%2.1,.1Ir]2}@!(y21:%25residual-fxremainder)",

  "fxmodquo",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25imqu;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py18:%25residual-fxmodquo;y12:syntax-rules;"
  ";;l2:y1:_;y18:%25residual-fxmodquo;;",

  0,
  "&0{%2.1,.1I3]2}@!(y18:%25residual-fxmodquo)",

  "fxmodulo",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25imlo;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py18:%25residual-fxmodulo;y12:syntax-rules;"
  ";;l2:y1:_;y18:%25residual-fxmodulo;;",

  0,
  "&0{%2.1,.1I4]2}@!(y18:%25residual-fxmodulo)",

  "fxeucquo",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25ieuq;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py18:%25residual-fxeucquo;y12:syntax-rules;"
  ";;l2:y1:_;y18:%25residual-fxeucquo;;",

  0,
  "&0{%2.1,.1I5]2}@!(y18:%25residual-fxeucquo)",

  "fxeucrem",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25ieur;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py18:%25residual-fxeucrem;y12:syntax-rules;"
  ";;l2:y1:_;y18:%25residual-fxeucrem;;",

  0,
  "&0{%2.1,.1I6]2}@!(y18:%25residual-fxeucrem)",

  "fxneg",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25ineg;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py15:%25residual-fxneg;y12:syntax-rules;;;l2:y1:_;y15"
  ":%25residual-fxneg;;",

  0,
  "&0{%1.0I-!]1}@!(y15:%25residual-fxneg)",

  "fxabs",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25iabs;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py15:%25residual-fxabs;y12:syntax-rules;;;l2:y1:_;y15"
  ":%25residual-fxabs;;",

  0,
  "&0{%1.0Ia]1}@!(y15:%25residual-fxabs)",

  "fx<?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25ilt;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py14:%25residual-fx<?;y12:syntax-rules;;;l2:"
  "y1:_;y14:%25residual-fx<?;;",

  0,
  "&0{%2.1,.1I<]2}@!(y14:%25residual-fx<?)",

  "fx<=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25ile;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py15:%25residual-fx<=?;y12:syntax-rules;;;l2"
  ":y1:_;y15:%25residual-fx<=?;;",

  0,
  "&0{%2.1,.1I>!]2}@!(y15:%25residual-fx<=?)",

  "fx>?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25igt;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py14:%25residual-fx>?;y12:syntax-rules;;;l2:"
  "y1:_;y14:%25residual-fx>?;;",

  0,
  "&0{%2.1,.1I>]2}@!(y14:%25residual-fx>?)",

  "fx>=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25ige;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py15:%25residual-fx>=?;y12:syntax-rules;;;l2"
  ":y1:_;y15:%25residual-fx>=?;;",

  0,
  "&0{%2.1,.1I<!]2}@!(y15:%25residual-fx>=?)",

  "fx=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25ieq;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py14:%25residual-fx=?;y12:syntax-rules;;;l2:"
  "y1:_;y14:%25residual-fx=?;;",

  0,
  "&0{%2.1,.1I=]2}@!(y14:%25residual-fx=?)",

  "fxmin",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25imin;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py15:%25residual-fxmin;y12:syntax-rules;;;l"
  "2:y1:_;y15:%25residual-fxmin;;",

  0,
  "&0{%2.1,.1In]2}@!(y15:%25residual-fxmin)",

  "fxmax",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25imax;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py15:%25residual-fxmax;y12:syntax-rules;;;l"
  "2:y1:_;y15:%25residual-fxmax;;",

  0,
  "&0{%2.1,.1Ix]2}@!(y15:%25residual-fxmax)",

  "fixnum->flonum",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25itoj;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py24:%25residual-fixnum->flonum;y12:syntax-rules;;;l2"
  ":y1:_;y24:%25residual-fixnum->flonum;;",

  0,
  "&0{%1.0Ij]1}@!(y24:%25residual-fixnum->flonum)",

  "flonum?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25flop;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py17:%25residual-flonum?;y12:syntax-rules;;;l2:y1:_;y"
  "17:%25residual-flonum?;;",

  0,
  "&0{%1.0J0]1}@!(y17:%25residual-flonum?)",

  "flzero?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y7:%25jzerop;y1:x;;;l2:py1:_"
  ";y12:syntax-rules;;py17:%25residual-flzero?;y12:syntax-rules;;;l2:y1:_"
  ";y17:%25residual-flzero?;;",

  0,
  "&0{%1.0J=0]1}@!(y17:%25residual-flzero?)",

  "flpositive?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25jposp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py21:%25residual-flpositive?;y12:syntax-rules;;;l2:y"
  "1:_;y21:%25residual-flpositive?;;",

  0,
  "&0{%1.0J>0]1}@!(y21:%25residual-flpositive?)",

  "flnegative?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25jnegp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py21:%25residual-flnegative?;y12:syntax-rules;;;l2:y"
  "1:_;y21:%25residual-flnegative?;;",

  0,
  "&0{%1.0J<0]1}@!(y21:%25residual-flnegative?)",

  "flinteger?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25jintp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py20:%25residual-flinteger?;y12:syntax-rules;;;l2:y1"
  ":_;y20:%25residual-flinteger?;;",

  0,
  "&0{%1.0Jw]1}@!(y20:%25residual-flinteger?)",

  "flnan?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25jnanp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py16:%25residual-flnan?;y12:syntax-rules;;;l2:y1:_;y"
  "16:%25residual-flnan?;;",

  0,
  "&0{%1.0Ju]1}@!(y16:%25residual-flnan?)",

  "flinfinite?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25jinfp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py21:%25residual-flinfinite?;y12:syntax-rules;;;l2:y"
  "1:_;y21:%25residual-flinfinite?;;",

  0,
  "&0{%1.0Jh]1}@!(y21:%25residual-flinfinite?)",

  "flfinite?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25jfinp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py19:%25residual-flfinite?;y12:syntax-rules;;;l2:y1:"
  "_;y19:%25residual-flfinite?;;",

  0,
  "&0{%1.0Jf]1}@!(y19:%25residual-flfinite?)",

  "fleven?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25jevnp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py17:%25residual-fleven?;y12:syntax-rules;;;l2:y1:_;"
  "y17:%25residual-fleven?;;",

  0,
  "&0{%1.0Je]1}@!(y17:%25residual-fleven?)",

  "flodd?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25joddp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py16:%25residual-flodd?;y12:syntax-rules;;;l2:y1:_;y"
  "16:%25residual-flodd?;;",

  0,
  "&0{%1.0Jo]1}@!(y16:%25residual-flodd?)",

  "fl+",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25jadd;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py13:%25residual-fl+;y12:syntax-rules;;;l2:"
  "y1:_;y13:%25residual-fl+;;",

  0,
  "&0{%2.1,.1J+]2}@!(y13:%25residual-fl+)",

  "fl-",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25jsub;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py13:%25residual-fl-;y12:syntax-rules;;;l2:"
  "y1:_;y13:%25residual-fl-;;",

  0,
  "&0{%2.1,.1J-]2}@!(y13:%25residual-fl-)",

  "fl*",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25jmul;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py13:%25residual-fl*;y12:syntax-rules;;;l2:"
  "y1:_;y13:%25residual-fl*;;",

  0,
  "&0{%2.1,.1J*]2}@!(y13:%25residual-fl*)",

  "fl/",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25jdiv;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py13:%25residual-fl/;y12:syntax-rules;;;l2:"
  "y1:_;y13:%25residual-fl/;;",

  0,
  "&0{%2.1,.1J/]2}@!(y13:%25residual-fl/)",

  "flneg",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25jneg;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py15:%25residual-flneg;y12:syntax-rules;;;l2:y1:_;y15"
  ":%25residual-flneg;;",

  0,
  "&0{%1.0J-!]1}@!(y15:%25residual-flneg)",

  "flabs",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25jabs;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py15:%25residual-flabs;y12:syntax-rules;;;l2:y1:_;y15"
  ":%25residual-flabs;;",

  0,
  "&0{%1.0Ja]1}@!(y15:%25residual-flabs)",

  "fl<?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25jlt;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py14:%25residual-fl<?;y12:syntax-rules;;;l2:"
  "y1:_;y14:%25residual-fl<?;;",

  0,
  "&0{%2.1,.1J<]2}@!(y14:%25residual-fl<?)",

  "fl<=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25jle;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py15:%25residual-fl<=?;y12:syntax-rules;;;l2"
  ":y1:_;y15:%25residual-fl<=?;;",

  0,
  "&0{%2.1,.1J>!]2}@!(y15:%25residual-fl<=?)",

  "fl>?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25jgt;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py14:%25residual-fl>?;y12:syntax-rules;;;l2:"
  "y1:_;y14:%25residual-fl>?;;",

  0,
  "&0{%2.1,.1J>]2}@!(y14:%25residual-fl>?)",

  "fl>=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25jge;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py15:%25residual-fl>=?;y12:syntax-rules;;;l2"
  ":y1:_;y15:%25residual-fl>=?;;",

  0,
  "&0{%2.1,.1J<!]2}@!(y15:%25residual-fl>=?)",

  "fl=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25jeq;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py14:%25residual-fl=?;y12:syntax-rules;;;l2:"
  "y1:_;y14:%25residual-fl=?;;",

  0,
  "&0{%2.1,.1J=]2}@!(y14:%25residual-fl=?)",

  "flmin",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25jmin;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py15:%25residual-flmin;y12:syntax-rules;;;l"
  "2:y1:_;y15:%25residual-flmin;;",

  0,
  "&0{%2.1,.1Jn]2}@!(y15:%25residual-flmin)",

  "flmax",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25jmax;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py15:%25residual-flmax;y12:syntax-rules;;;l"
  "2:y1:_;y15:%25residual-flmax;;",

  0,
  "&0{%2.1,.1Jx]2}@!(y15:%25residual-flmax)",

  "flonum->fixnum",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25jtoi;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py24:%25residual-flonum->fixnum;y12:syntax-rules;;;l2"
  ":y1:_;y24:%25residual-flonum->fixnum;;",

  0,
  "&0{%1.0Ji]1}@!(y24:%25residual-flonum->fixnum)",

  "number?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25nump;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py17:%25residual-number?;y12:syntax-rules;;;l2:y1:_;y"
  "17:%25residual-number?;;",

  0,
  "&0{%1.0N0]1}@!(y17:%25residual-number?)",

  "integer?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25intp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py18:%25residual-integer?;y12:syntax-rules;;;l2:y1:_;"
  "y18:%25residual-integer?;;",

  0,
  "&0{%1.0N4]1}@!(y18:%25residual-integer?)",

  "complex?",
  "l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py7:number?;y4:args;;;l2:y1:_;"
  "y7:number?;;",

  "real?",
  "l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py7:number?;y4:args;;;l2:y1:_;"
  "y7:number?;;",

  "rational?",
  "l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py8:integer?;y4:args;;;l2:y1:_"
  ";y8:integer?;;",

  "exact-integer?",
  "l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py7:fixnum?;y4:args;;;l2:y1:_;"
  "y7:fixnum?;;",

  "exact?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25fixp;l2:y4:%25ckn;y1:x"
  ";;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-exact?;y12:syntax-rule"
  "s;;;l2:y1:_;y16:%25residual-exact?;;",

  0,
  "&0{%1.0%nI0]1}@!(y16:%25residual-exact?)",

  "inexact?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25flop;l2:y4:%25ckn;y1:x"
  ";;;;l2:py1:_;y12:syntax-rules;;py18:%25residual-inexact?;y12:syntax-ru"
  "les;;;l2:y1:_;y18:%25residual-inexact?;;",

  0,
  "&0{%1.0%nJ0]1}@!(y18:%25residual-inexact?)",

  "finite?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25finp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py17:%25residual-finite?;y12:syntax-rules;;;l2:y1:_;y"
  "17:%25residual-finite?;;",

  0,
  "&0{%1.0N6]1}@!(y17:%25residual-finite?)",

  "infinite?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25infp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py19:%25residual-infinite?;y12:syntax-rules;;;l2:y1:_"
  ";y19:%25residual-infinite?;;",

  0,
  "&0{%1.0N7]1}@!(y19:%25residual-infinite?)",

  "nan?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25nanp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py14:%25residual-nan?;y12:syntax-rules;;;l2:y1:_;y14:"
  "%25residual-nan?;;",

  0,
  "&0{%1.0N5]1}@!(y14:%25residual-nan?)",

  "zero?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25zerop;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py15:%25residual-zero?;y12:syntax-rules;;;l2:y1:_;y1"
  "5:%25residual-zero?;;",

  0,
  "&0{%1.0=0]1}@!(y15:%25residual-zero?)",

  "positive?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25posp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py19:%25residual-positive?;y12:syntax-rules;;;l2:y1:_"
  ";y19:%25residual-positive?;;",

  0,
  "&0{%1.0>0]1}@!(y19:%25residual-positive?)",

  "negative?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25negp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py19:%25residual-negative?;y12:syntax-rules;;;l2:y1:_"
  ";y19:%25residual-negative?;;",

  0,
  "&0{%1.0<0]1}@!(y19:%25residual-negative?)",

  "even?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25evnp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py15:%25residual-even?;y12:syntax-rules;;;l2:y1:_;y15"
  ":%25residual-even?;;",

  0,
  "&0{%1.0N8]1}@!(y15:%25residual-even?)",

  "odd?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25oddp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py14:%25residual-odd?;y12:syntax-rules;;;l2:y1:_;y14:"
  "%25residual-odd?;;",

  0,
  "&0{%1.0N9]1}@!(y14:%25residual-odd?)",

  "min",
  "l7:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;y1:x;;l2:l3:y1:_;y1:x;y1:y;;l3:"
  "y4:%25min;y1:x;y1:y;;;l2:l5:y1:_;y1:x;y1:y;y1:z;y3:...;;l4:y3:min;l3:y"
  "3:min;y1:x;y1:y;;y1:z;y3:...;;;l2:py1:_;y4:args;;py13:%25residual-min;"
  "y4:args;;;l2:y1:_;y13:%25residual-min;;",

  "max",
  "l7:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;y1:x;;l2:l3:y1:_;y1:x;y1:y;;l3:"
  "y4:%25max;y1:x;y1:y;;;l2:l5:y1:_;y1:x;y1:y;y1:z;y3:...;;l4:y3:max;l3:y"
  "3:max;y1:x;y1:y;;y1:z;y3:...;;;l2:py1:_;y4:args;;py13:%25residual-max;"
  "y4:args;;;l2:y1:_;y13:%25residual-max;;",

  "+",
  "l7:y12:syntax-rules;n;l2:l1:y1:_;;i0;;l2:l2:y1:_;y1:x;;l2:y4:%25ckn;y1"
  ":x;;;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25add;y1:x;y1:y;;;l2:l5:y1:_;y1:x;y1"
  ":y;y1:z;y3:...;;l4:y1:+;l3:y1:+;y1:x;y1:y;;y1:z;y3:...;;;l2:y1:_;y10:%"
  "25residual+;;",

  "*",
  "l7:y12:syntax-rules;n;l2:l1:y1:_;;i1;;l2:l2:y1:_;y1:x;;l2:y4:%25ckn;y1"
  ":x;;;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25mul;y1:x;y1:y;;;l2:l5:y1:_;y1:x;y1"
  ":y;y1:z;y3:...;;l4:y1:*;l3:y1:*;y1:x;y1:y;;y1:z;y3:...;;;l2:y1:_;y10:%"
  "25residual*;;",

  "-",
  "l7:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25neg;y1:x;;;l2:l3:y1:_;"
  "y1:x;y1:y;;l3:y4:%25sub;y1:x;y1:y;;;l2:l5:y1:_;y1:x;y1:y;y1:z;y3:...;;"
  "l4:y1:-;l3:y1:-;y1:x;y1:y;;y1:z;y3:...;;;l2:py1:_;y4:args;;py10:%25res"
  "idual-;y4:args;;;l2:y1:_;y10:%25residual-;;",

  "/",
  "l7:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l3:y4:%25div;i1;y1:x;;;l2:l3:y1"
  ":_;y1:x;y1:y;;l3:y4:%25div;y1:x;y1:y;;;l2:l5:y1:_;y1:x;y1:y;y1:z;y3:.."
  ".;;l4:y1:/;l3:y1:/;y1:x;y1:y;;y1:z;y3:...;;;l2:py1:_;y4:args;;py10:%25"
  "residual/;y4:args;;;l2:y1:_;y10:%25residual/;;",

  "=",
  "l6:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y3:%25eq;y1:x;y1:y;;;l2"
  ":l5:y1:_;y1:x;y1:y;y1:z;y3:...;;l3:y3:let;l1:l2:y1:t;y1:y;;;l3:y3:and;"
  "l3:y1:=;y1:x;y1:t;;l4:y1:=;y1:t;y1:z;y3:...;;;;;l2:py1:_;y4:args;;py10"
  ":%25residual=;y4:args;;;l2:y1:_;y10:%25residual=;;",

  "<",
  "l6:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y3:%25lt;y1:x;y1:y;;;l2"
  ":l5:y1:_;y1:x;y1:y;y1:z;y3:...;;l3:y3:let;l1:l2:y1:t;y1:y;;;l3:y3:and;"
  "l3:y1:<;y1:x;y1:t;;l4:y1:<;y1:t;y1:z;y3:...;;;;;l2:py1:_;y4:args;;py10"
  ":%25residual<;y4:args;;;l2:y1:_;y10:%25residual<;;",

  ">",
  "l6:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y3:%25gt;y1:x;y1:y;;;l2"
  ":l5:y1:_;y1:x;y1:y;y1:z;y3:...;;l3:y3:let;l1:l2:y1:t;y1:y;;;l3:y3:and;"
  "l3:y1:>;y1:x;y1:t;;l4:y1:>;y1:t;y1:z;y3:...;;;;;l2:py1:_;y4:args;;py10"
  ":%25residual>;y4:args;;;l2:y1:_;y10:%25residual>;;",

  "<=",
  "l6:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y3:%25le;y1:x;y1:y;;;l2"
  ":l5:y1:_;y1:x;y1:y;y1:z;y3:...;;l3:y3:let;l1:l2:y1:t;y1:y;;;l3:y3:and;"
  "l3:y2:<=;y1:x;y1:t;;l4:y2:<=;y1:t;y1:z;y3:...;;;;;l2:py1:_;y4:args;;py"
  "11:%25residual<=;y4:args;;;l2:y1:_;y11:%25residual<=;;",

  ">=",
  "l6:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y3:%25ge;y1:x;y1:y;;;l2"
  ":l5:y1:_;y1:x;y1:y;y1:z;y3:...;;l3:y3:let;l1:l2:y1:t;y1:y;;;l3:y3:and;"
  "l3:y2:>=;y1:x;y1:t;;l4:y2:>=;y1:t;y1:z;y3:...;;;;;l2:py1:_;y4:args;;py"
  "11:%25residual>=;y4:args;;;l2:y1:_;y11:%25residual>=;;",

  "abs",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25abs;y1:x;;;l2:py1:_;y1"
  "2:syntax-rules;;py13:%25residual-abs;y12:syntax-rules;;;l2:y1:_;y13:%2"
  "5residual-abs;;",

  0,
  "&0{%1.0G0]1}@!(y13:%25residual-abs)",

  "quotient",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25quo;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py18:%25residual-quotient;y12:syntax-rules;;"
  ";l2:y1:_;y18:%25residual-quotient;;",

  0,
  "&0{%2.1,.1,@(y4:%25quo)[22}@!(y18:%25residual-quotient)",

  "remainder",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25rem;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py19:%25residual-remainder;y12:syntax-rules;"
  ";;l2:y1:_;y19:%25residual-remainder;;",

  0,
  "&0{%2.1,.1,@(y4:%25rem)[22}@!(y19:%25residual-remainder)",

  "truncate-quotient",
  "l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py8:quotient;y4:args;;;l2:y1:_"
  ";y8:quotient;;",

  "truncate-remainder",
  "l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py9:remainder;y4:args;;;l2:y1:"
  "_;y9:remainder;;",

  "modquo",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25mqu;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py16:%25residual-modquo;y12:syntax-rules;;;l"
  "2:y1:_;y16:%25residual-modquo;;",

  0,
  "&0{%2.1,.1,@(y4:%25mqu)[22}@!(y16:%25residual-modquo)",

  "modulo",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25mlo;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py16:%25residual-modulo;y12:syntax-rules;;;l"
  "2:y1:_;y16:%25residual-modulo;;",

  0,
  "&0{%2.1,.1,@(y4:%25mlo)[22}@!(y16:%25residual-modulo)",

  "floor-quotient",
  "l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py6:modquo;y4:args;;;l2:y1:_;y"
  "6:modquo;;",

  "floor-remainder",
  "l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py6:modulo;y4:args;;;l2:y1:_;y"
  "6:modulo;;",

  "boolean?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25boolp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py18:%25residual-boolean?;y12:syntax-rules;;;l2:y1:_"
  ";y18:%25residual-boolean?;;",

  0,
  "&0{%1.0Y1]1}@!(y18:%25residual-boolean?)",

  "not",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25not;y1:x;;;l2:py1:_;y1"
  "2:syntax-rules;;py13:%25residual-not;y12:syntax-rules;;;l2:y1:_;y13:%2"
  "5residual-not;;",

  0,
  "&0{%1.0~]1}@!(y13:%25residual-not)",

  "char?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25charp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py15:%25residual-char?;y12:syntax-rules;;;l2:y1:_;y1"
  "5:%25residual-char?;;",

  0,
  "&0{%1.0C0]1}@!(y15:%25residual-char?)",

  "char-cmp",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25ccmp;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py18:%25residual-char-cmp;y12:syntax-rules;"
  ";;l2:y1:_;y18:%25residual-char-cmp;;",

  0,
  "&0{%2.1,.1O0]2}@!(y18:%25residual-char-cmp)",

  "char=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25ceq;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py16:%25residual-char=?;y12:syntax-rules;;;l"
  "2:y1:_;y16:%25residual-char=?;;",

  0,
  "&0{%2.1,.1C=]2}@!(y16:%25residual-char=?)",

  "char<?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25clt;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py16:%25residual-char<?;y12:syntax-rules;;;l"
  "2:y1:_;y16:%25residual-char<?;;",

  0,
  "&0{%2.1,.1C<]2}@!(y16:%25residual-char<?)",

  "char<=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25cle;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py17:%25residual-char<=?;y12:syntax-rules;;;"
  "l2:y1:_;y17:%25residual-char<=?;;",

  0,
  "&0{%2.1,.1C>!]2}@!(y17:%25residual-char<=?)",

  "char>?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25cgt;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py16:%25residual-char>?;y12:syntax-rules;;;l"
  "2:y1:_;y16:%25residual-char>?;;",

  0,
  "&0{%2.1,.1C>]2}@!(y16:%25residual-char>?)",

  "char>=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25cge;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py17:%25residual-char>=?;y12:syntax-rules;;;"
  "l2:y1:_;y17:%25residual-char>=?;;",

  0,
  "&0{%2.1,.1C<!]2}@!(y17:%25residual-char>=?)",

  "char-ci-cmp",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y6:%25cicmp;y1:x;y1:y;;"
  ";l2:py1:_;y12:syntax-rules;;py18:%25residual-char-cmp;y12:syntax-rules"
  ";;;l2:y1:_;y18:%25residual-char-cmp;;",

  0,
  "&0{%2.1,.1O1]2}@!(y18:%25residual-char-cmp)",

  "char-ci=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25cieq;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py19:%25residual-char-ci=?;y12:syntax-rules"
  ";;;l2:y1:_;y19:%25residual-char-ci=?;;",

  0,
  "&0{%2.1,.1Ci=]2}@!(y19:%25residual-char-ci=?)",

  "char-ci<?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25cilt;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py19:%25residual-char-ci<?;y12:syntax-rules"
  ";;;l2:y1:_;y19:%25residual-char-ci<?;;",

  0,
  "&0{%2.1,.1Ci<]2}@!(y19:%25residual-char-ci<?)",

  "char-ci<=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25cile;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py20:%25residual-char-ci<=?;y12:syntax-rule"
  "s;;;l2:y1:_;y20:%25residual-char-ci<=?;;",

  0,
  "&0{%2.1,.1Ci>!]2}@!(y20:%25residual-char-ci<=?)",

  "char-ci>?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25cigt;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py19:%25residual-char-ci>?;y12:syntax-rules"
  ";;;l2:y1:_;y19:%25residual-char-ci>?;;",

  0,
  "&0{%2.1,.1Ci>]2}@!(y19:%25residual-char-ci>?)",

  "char-ci>=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25cige;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py20:%25residual-char-ci>=?;y12:syntax-rule"
  "s;;;l2:y1:_;y20:%25residual-char-ci>=?;;",

  0,
  "&0{%2.1,.1Ci<!]2}@!(y20:%25residual-char-ci>=?)",

  "char-alphabetic?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25calp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py26:%25residual-char-alphabetic?;y12:syntax-rules;;;"
  "l2:y1:_;y26:%25residual-char-alphabetic?;;",

  0,
  "&0{%1.0C4]1}@!(y26:%25residual-char-alphabetic?)",

  "char-numeric?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25cnup;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py23:%25residual-char-numeric?;y12:syntax-rules;;;l2:"
  "y1:_;y23:%25residual-char-numeric?;;",

  0,
  "&0{%1.0C5]1}@!(y23:%25residual-char-numeric?)",

  "char-whitespace?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25cwsp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py26:%25residual-char-whitespace?;y12:syntax-rules;;;"
  "l2:y1:_;y26:%25residual-char-whitespace?;;",

  0,
  "&0{%1.0C1]1}@!(y26:%25residual-char-whitespace?)",

  "char-upper-case?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25cucp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py26:%25residual-char-upper-case?;y12:syntax-rules;;;"
  "l2:y1:_;y26:%25residual-char-upper-case?;;",

  0,
  "&0{%1.0C3]1}@!(y26:%25residual-char-upper-case?)",

  "char-lower-case?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25clcp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py26:%25residual-char-lower-case?;y12:syntax-rules;;;"
  "l2:y1:_;y26:%25residual-char-lower-case?;;",

  0,
  "&0{%1.0C2]1}@!(y26:%25residual-char-lower-case?)",

  "char-upcase",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25cupc;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py21:%25residual-char-upcase;y12:syntax-rules;;;l2:y1"
  ":_;y21:%25residual-char-upcase;;",

  0,
  "&0{%1.0C6]1}@!(y21:%25residual-char-upcase)",

  "char-downcase",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25cdnc;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py23:%25residual-char-downcase;y12:syntax-rules;;;l2:"
  "y1:_;y23:%25residual-char-downcase;;",

  0,
  "&0{%1.0C7]1}@!(y23:%25residual-char-downcase)",

  "char->integer",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25ctoi;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py23:%25residual-char->integer;y12:syntax-rules;;;l2:"
  "y1:_;y23:%25residual-char->integer;;",

  0,
  "&0{%1.0X8]1}@!(y23:%25residual-char->integer)",

  "integer->char",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25itoc;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py23:%25residual-integer->char;y12:syntax-rules;;;l2:"
  "y1:_;y23:%25residual-integer->char;;",

  0,
  "&0{%1.0X9]1}@!(y23:%25residual-integer->char)",

  "symbol?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25symp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py17:%25residual-symbol?;y12:syntax-rules;;;l2:y1:_;y"
  "17:%25residual-symbol?;;",

  0,
  "&0{%1.0Y0]1}@!(y17:%25residual-symbol?)",

  "symbol->string",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25ytos;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py24:%25residual-symbol->string;y12:syntax-rules;;;l2"
  ":y1:_;y24:%25residual-symbol->string;;",

  0,
  "&0{%1.0X4]1}@!(y24:%25residual-symbol->string)",

  "string->symbol",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25stoy;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py24:%25residual-string->symbol;y12:syntax-rules;;;l2"
  ":y1:_;y24:%25residual-string->symbol;;",

  0,
  "&0{%1.0X5]1}@!(y24:%25residual-string->symbol)",

  "null?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25nullp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py15:%25residual-null?;y12:syntax-rules;;;l2:y1:_;y1"
  "5:%25residual-null?;;",

  0,
  "&0{%1.0u]1}@!(y15:%25residual-null?)",

  "pair?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25pairp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py15:%25residual-pair?;y12:syntax-rules;;;l2:y1:_;y1"
  "5:%25residual-pair?;;",

  0,
  "&0{%1.0p]1}@!(y15:%25residual-pair?)",

  "car",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25car;y1:x;;;l2:py1:_;y1"
  "2:syntax-rules;;py13:%25residual-car;y12:syntax-rules;;;l2:y1:_;y13:%2"
  "5residual-car;;",

  0,
  "&0{%1.0a]1}@!(y13:%25residual-car)",

  "set-car!",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:v;;l3:y7:%25setcar;y1:x;y1:v;"
  ";;l2:py1:_;y12:syntax-rules;;py18:%25residual-set-car!;y12:syntax-rule"
  "s;;;l2:y1:_;y18:%25residual-set-car!;;",

  0,
  "&0{%2.1,.1a!]2}@!(y18:%25residual-set-car!)",

  "cdr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25cdr;y1:x;;;l2:py1:_;y1"
  "2:syntax-rules;;py13:%25residual-cdr;y12:syntax-rules;;;l2:y1:_;y13:%2"
  "5residual-cdr;;",

  0,
  "&0{%1.0d]1}@!(y13:%25residual-cdr)",

  "set-cdr!",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:v;;l3:y7:%25setcdr;y1:x;y1:v;"
  ";;l2:py1:_;y12:syntax-rules;;py18:%25residual-set-cdr!;y12:syntax-rule"
  "s;;;l2:y1:_;y18:%25residual-set-cdr!;;",

  0,
  "&0{%2.1,.1d!]2}@!(y18:%25residual-set-cdr!)",

  "c?r",
  "l5:y12:syntax-rules;l2:y1:a;y1:d;;l2:l2:y3:c?r;y1:x;;y1:x;;l2:l5:y3:c?"
  "r;y1:a;y1:?;y3:...;y1:x;;l2:y3:car;l4:y3:c?r;y1:?;y3:...;y1:x;;;;l2:l5"
  ":y3:c?r;y1:d;y1:?;y3:...;y1:x;;l2:y3:cdr;l4:y3:c?r;y1:?;y3:...;y1:x;;;"
  ";",

  "caar",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l4:y3:c?r;y1:a;y1:a;y1:x;;;l2:p"
  "y1:_;y12:syntax-rules;;py14:%25residual-caar;y12:syntax-rules;;;l2:y1:"
  "_;y14:%25residual-caar;;",

  0,
  "&0{%1.0aa]1}@!(y14:%25residual-caar)",

  "cadr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l4:y3:c?r;y1:a;y1:d;y1:x;;;l2:p"
  "y1:_;y12:syntax-rules;;py14:%25residual-cadr;y12:syntax-rules;;;l2:y1:"
  "_;y14:%25residual-cadr;;",

  0,
  "&0{%1.0da]1}@!(y14:%25residual-cadr)",

  "cdar",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l4:y3:c?r;y1:d;y1:a;y1:x;;;l2:p"
  "y1:_;y12:syntax-rules;;py14:%25residual-cdar;y12:syntax-rules;;;l2:y1:"
  "_;y14:%25residual-cdar;;",

  0,
  "&0{%1.0ad]1}@!(y14:%25residual-cdar)",

  "cddr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l4:y3:c?r;y1:d;y1:d;y1:x;;;l2:p"
  "y1:_;y12:syntax-rules;;py14:%25residual-cddr;y12:syntax-rules;;;l2:y1:"
  "_;y14:%25residual-cddr;;",

  0,
  "&0{%1.0dd]1}@!(y14:%25residual-cddr)",

  "caaar",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:a;y1:a;y1:a;y1:x;;"
  ";l2:py1:_;y12:syntax-rules;;py15:%25residual-caaar;y12:syntax-rules;;;"
  "l2:y1:_;y15:%25residual-caaar;;",

  0,
  "&0{%1.0aaa]1}@!(y15:%25residual-caaar)",

  "caadr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:a;y1:a;y1:d;y1:x;;"
  ";l2:py1:_;y12:syntax-rules;;py15:%25residual-caadr;y12:syntax-rules;;;"
  "l2:y1:_;y15:%25residual-caadr;;",

  0,
  "&0{%1.0daa]1}@!(y15:%25residual-caadr)",

  "cadar",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:a;y1:d;y1:a;y1:x;;"
  ";l2:py1:_;y12:syntax-rules;;py15:%25residual-cadar;y12:syntax-rules;;;"
  "l2:y1:_;y15:%25residual-cadar;;",

  0,
  "&0{%1.0ada]1}@!(y15:%25residual-cadar)",

  "caddr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:a;y1:d;y1:d;y1:x;;"
  ";l2:py1:_;y12:syntax-rules;;py15:%25residual-caddr;y12:syntax-rules;;;"
  "l2:y1:_;y15:%25residual-caddr;;",

  0,
  "&0{%1.0dda]1}@!(y15:%25residual-caddr)",

  "cdaar",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:d;y1:a;y1:a;y1:x;;"
  ";l2:py1:_;y12:syntax-rules;;py15:%25residual-cdaar;y12:syntax-rules;;;"
  "l2:y1:_;y15:%25residual-cdaar;;",

  0,
  "&0{%1.0aad]1}@!(y15:%25residual-cdaar)",

  "cdadr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:d;y1:a;y1:d;y1:x;;"
  ";l2:py1:_;y12:syntax-rules;;py15:%25residual-cdadr;y12:syntax-rules;;;"
  "l2:y1:_;y15:%25residual-cdadr;;",

  0,
  "&0{%1.0dad]1}@!(y15:%25residual-cdadr)",

  "cddar",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:d;y1:d;y1:a;y1:x;;"
  ";l2:py1:_;y12:syntax-rules;;py15:%25residual-cddar;y12:syntax-rules;;;"
  "l2:y1:_;y15:%25residual-cddar;;",

  0,
  "&0{%1.0add]1}@!(y15:%25residual-cddar)",

  "cdddr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:d;y1:d;y1:d;y1:x;;"
  ";l2:py1:_;y12:syntax-rules;;py15:%25residual-cdddr;y12:syntax-rules;;;"
  "l2:y1:_;y15:%25residual-cdddr;;",

  0,
  "&0{%1.0ddd]1}@!(y15:%25residual-cdddr)",

  "caaaar",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:a;y1:a;y1:a;y1:a;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-caaaar;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-caaaar;;",

  0,
  "&0{%1.0aaaa]1}@!(y16:%25residual-caaaar)",

  "caaadr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:a;y1:a;y1:a;y1:d;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-caaadr;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-caaadr;;",

  0,
  "&0{%1.0daaa]1}@!(y16:%25residual-caaadr)",

  "caadar",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:a;y1:a;y1:d;y1:a;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-caadar;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-caadar;;",

  0,
  "&0{%1.0adaa]1}@!(y16:%25residual-caadar)",

  "caaddr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:a;y1:a;y1:d;y1:d;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-caaddr;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-caaddr;;",

  0,
  "&0{%1.0ddaa]1}@!(y16:%25residual-caaddr)",

  "cadaar",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:a;y1:d;y1:a;y1:a;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-cadaar;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-cadaar;;",

  0,
  "&0{%1.0aada]1}@!(y16:%25residual-cadaar)",

  "cadadr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:a;y1:d;y1:a;y1:d;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-cadadr;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-cadadr;;",

  0,
  "&0{%1.0dada]1}@!(y16:%25residual-cadadr)",

  "caddar",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:a;y1:d;y1:d;y1:a;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-caddar;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-caddar;;",

  0,
  "&0{%1.0adda]1}@!(y16:%25residual-caddar)",

  "cadddr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:a;y1:d;y1:d;y1:d;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-cadddr;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-cadddr;;",

  0,
  "&0{%1.0ddda]1}@!(y16:%25residual-cadddr)",

  "cdaaar",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:d;y1:a;y1:a;y1:a;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-cdaaar;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-cdaaar;;",

  0,
  "&0{%1.0aaad]1}@!(y16:%25residual-cdaaar)",

  "cdaadr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:d;y1:a;y1:a;y1:d;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-cdaadr;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-cdaadr;;",

  0,
  "&0{%1.0daad]1}@!(y16:%25residual-cdaadr)",

  "cdadar",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:d;y1:a;y1:d;y1:a;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-cdadar;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-cdadar;;",

  0,
  "&0{%1.0adad]1}@!(y16:%25residual-cdadar)",

  "cdaddr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:d;y1:a;y1:d;y1:d;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-cdaddr;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-cdaddr;;",

  0,
  "&0{%1.0ddad]1}@!(y16:%25residual-cdaddr)",

  "cddaar",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:d;y1:d;y1:a;y1:a;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-cddaar;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-cddaar;;",

  0,
  "&0{%1.0aadd]1}@!(y16:%25residual-cddaar)",

  "cddadr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:d;y1:d;y1:a;y1:d;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-cddadr;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-cddadr;;",

  0,
  "&0{%1.0dadd]1}@!(y16:%25residual-cddadr)",

  "cdddar",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:d;y1:d;y1:d;y1:a;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-cdddar;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-cdddar;;",

  0,
  "&0{%1.0addd]1}@!(y16:%25residual-cdddar)",

  "cddddr",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l6:y3:c?r;y1:d;y1:d;y1:d;y1:d;y"
  "1:x;;;l2:py1:_;y12:syntax-rules;;py16:%25residual-cddddr;y12:syntax-ru"
  "les;;;l2:y1:_;y16:%25residual-cddddr;;",

  0,
  "&0{%1.0dddd]1}@!(y16:%25residual-cddddr)",

  "cons",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25cons;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py14:%25residual-cons;y12:syntax-rules;;;l2"
  ":y1:_;y14:%25residual-cons;;",

  0,
  "&0{%2.1,.1c]2}@!(y14:%25residual-cons)",

  "list?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25listp;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py15:%25residual-list?;y12:syntax-rules;;;l2:y1:_;y1"
  "5:%25residual-list?;;",

  0,
  "&0{%1.0L0]1}@!(y15:%25residual-list?)",

  0,
  "&0{%2n,.1%k,,#0.4,.1,&2{%2'0,.1I>!?{.1]2}.1,:1c,'1,.2I-,:0^[22}.!0.0^_"
  "1[22}@!(y10:%25make-list)",

  "make-list",
  "l6:y12:syntax-rules;n;l2:l2:y1:_;y1:n;;l3:y10:%25make-list;y1:n;f;;;l2"
  ":l3:y1:_;y1:n;y1:i;;l3:y10:%25make-list;y1:n;y1:i;;;l2:py1:_;y4:args;;"
  "py19:%25residual-make-list;y4:args;;;l2:y1:_;y19:%25residual-make-list"
  ";;",

  "list",
  "l6:y12:syntax-rules;n;l2:l1:y1:_;;l2:y5:quote;n;;;l2:l2:y1:_;y1:x;;l3:"
  "y5:%25cons;y1:x;l2:y5:quote;n;;;;l2:l3:y1:_;y1:x;y3:...;;l3:y5:%25list"
  ";y1:x;y3:...;;;l2:y1:_;y14:%25residual-list;;",

  "length",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25llen;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py16:%25residual-length;y12:syntax-rules;;;l2:y1:_;y1"
  "6:%25residual-length;;",

  0,
  "&0{%1.0g]1}@!(y16:%25residual-length)",

  "list-ref",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:i;;l3:y5:%25lget;y1:x;y1:i;;;"
  "l2:py1:_;y12:syntax-rules;;py18:%25residual-list-ref;y12:syntax-rules;"
  ";;l2:y1:_;y18:%25residual-list-ref;;",

  0,
  "&0{%2.1,.1L4]2}@!(y18:%25residual-list-ref)",

  "list-set!",
  "l5:y12:syntax-rules;n;l2:l4:y1:_;y1:x;y1:i;y1:v;;l4:y5:%25lput;y1:x;y1"
  ":i;y1:v;;;l2:py1:_;y12:syntax-rules;;py19:%25residual-list-set!;y12:sy"
  "ntax-rules;;;l2:y1:_;y19:%25residual-list-set!;;",

  0,
  "&0{%3.2,.2,.2L5]3}@!(y19:%25residual-list-set!)",

  "append",
  "l7:y12:syntax-rules;n;l2:l1:y1:_;;l2:y5:quote;n;;;l2:l2:y1:_;y1:x;;y1:"
  "x;;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25lcat;y1:x;y1:y;;;l2:l5:y1:_;y1:x;y1:"
  "y;y1:z;y3:...;;l3:y5:%25lcat;y1:x;l4:y6:append;y1:y;y1:z;y3:...;;;;l2:"
  "y1:_;y16:%25residual-append;;",

  "memq",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:v;y1:y;;l3:y5:%25memq;y1:v;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py14:%25residual-memq;y12:syntax-rules;;;l2"
  ":y1:_;y14:%25residual-memq;;",

  0,
  "&0{%2.1,.1A0]2}@!(y14:%25residual-memq)",

  "memv",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:v;y1:y;;l3:y5:%25memv;y1:v;l2:y4:%"
  "25ckl;y1:y;;;;l2:py1:_;y12:syntax-rules;;py14:%25residual-memv;y12:syn"
  "tax-rules;;;l2:y1:_;y14:%25residual-memv;;",

  0,
  "&0{%2.1%l,.1A1]2}@!(y14:%25residual-memv)",

  0,
  "&0{%3.1p?{${.3a,.3,.6[02}?{.1]3}.2,.2d,.2,@(y7:%25member)[33}f]3}@!(y7"
  ":%25member)",

  "member",
  "l6:y12:syntax-rules;n;l2:l3:y1:_;y1:v;y1:y;;l3:y5:%25meme;y1:v;l2:y4:%"
  "25ckl;y1:y;;;;l2:l4:y1:_;y1:v;y1:y;y2:eq;;l4:y7:%25member;y1:v;y1:y;y2"
  ":eq;;;l2:py1:_;y4:args;;py16:%25residual-member;y4:args;;;l2:y1:_;y16:"
  "%25residual-member;;",

  "assq",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:v;y1:y;;l3:y5:%25assq;y1:v;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py14:%25residual-assq;y12:syntax-rules;;;l2"
  ":y1:_;y14:%25residual-assq;;",

  0,
  "&0{%2.1,.1A3]2}@!(y14:%25residual-assq)",

  "assv",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:v;y1:y;;l3:y5:%25assv;y1:v;l2:y4:%"
  "25ckl;y1:y;;;;l2:py1:_;y12:syntax-rules;;py14:%25residual-assv;y12:syn"
  "tax-rules;;;l2:y1:_;y14:%25residual-assv;;",

  0,
  "&0{%2.1%l,.1A4]2}@!(y14:%25residual-assv)",

  0,
  "&0{%3.1p?{${.3aa,.3,.6[02}?{.1a]3}.2,.2d,.2,@(y6:%25assoc)[33}f]3}@!(y"
  "6:%25assoc)",

  "assoc",
  "l6:y12:syntax-rules;n;l2:l3:y1:_;y1:v;y2:al;;l3:y5:%25asse;y1:v;l2:y4:"
  "%25ckl;y2:al;;;;l2:l4:y1:_;y1:v;y2:al;y2:eq;;l4:y6:%25assoc;y1:v;y2:al"
  ";y2:eq;;;l2:py1:_;y4:args;;py15:%25residual-assoc;y4:args;;;l2:y1:_;y1"
  "5:%25residual-assoc;;",

  "list-copy",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l3:y5:%25lcat;y1:x;l2:y5:quote;"
  "n;;;;l2:py1:_;y12:syntax-rules;;py19:%25residual-list-copy;y12:syntax-"
  "rules;;;l2:y1:_;y19:%25residual-list-copy;;",

  0,
  "&0{%1n,.1L6]1}@!(y19:%25residual-list-copy)",

  "list-tail",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:i;;l3:y6:%25ltail;y1:x;y1:i;;"
  ";l2:py1:_;y12:syntax-rules;;py19:%25residual-list-tail;y12:syntax-rule"
  "s;;;l2:y1:_;y19:%25residual-list-tail;;",

  0,
  "&0{%2.1,.1A6]2}@!(y19:%25residual-list-tail)",

  "last-pair",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25lpair;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py19:%25residual-last-pair;y12:syntax-rules;;;l2:y1:"
  "_;y19:%25residual-last-pair;;",

  0,
  "&0{%1.0A7]1}@!(y19:%25residual-last-pair)",

  "reverse",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25lrev;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py17:%25residual-reverse;y12:syntax-rules;;;l2:y1:_;y"
  "17:%25residual-reverse;;",

  0,
  "&0{%1.0A8]1}@!(y17:%25residual-reverse)",

  "reverse!",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25lrevi;y1:x;;;l2:py1:_;"
  "y12:syntax-rules;;py18:%25residual-reverse!;y12:syntax-rules;;;l2:y1:_"
  ";y18:%25residual-reverse!;;",

  0,
  "&0{%1.0A9]1}@!(y18:%25residual-reverse!)",

  "list*",
  "l7:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;y1:x;;l2:l3:y1:_;y1:x;y1:y;;l3:"
  "y5:%25cons;y1:x;y1:y;;;l2:l5:y1:_;y1:x;y1:y;y1:z;y3:...;;l3:y5:%25cons"
  ";y1:x;l4:y5:list*;y1:y;y1:z;y3:...;;;;l2:py1:_;y4:args;;py15:%25residu"
  "al-list*;y4:args;;;l2:y1:_;y15:%25residual-list*;;",

  "cons*",
  "l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py5:list*;y4:args;;;l2:y1:_;y5"
  ":list*;;",

  "vector?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25vecp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py17:%25residual-vector?;y12:syntax-rules;;;l2:y1:_;y"
  "17:%25residual-vector?;;",

  0,
  "&0{%1.0V0]1}@!(y17:%25residual-vector?)",

  "vector",
  "l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py4:%25vec;y4:args;;;l2:y1:_;y"
  "4:%25vec;;",

  "make-vector",
  "l6:y12:syntax-rules;n;l2:l2:y1:_;y1:n;;l3:y4:%25vmk;y1:n;f;;;l2:l3:y1:"
  "_;y1:n;y1:v;;l3:y4:%25vmk;y1:n;y1:v;;;l2:py1:_;y4:args;;py21:%25residu"
  "al-make-vector;y4:args;;;l2:y1:_;y21:%25residual-make-vector;;",

  "vector-length",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25vlen;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py23:%25residual-vector-length;y12:syntax-rules;;;l2:"
  "y1:_;y23:%25residual-vector-length;;",

  0,
  "&0{%1.0V3]1}@!(y23:%25residual-vector-length)",

  "vector-ref",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:i;;l3:y5:%25vget;y1:x;y1:i;;;"
  "l2:py1:_;y12:syntax-rules;;py20:%25residual-vector-ref;y12:syntax-rule"
  "s;;;l2:y1:_;y20:%25residual-vector-ref;;",

  0,
  "&0{%2.1,.1V4]2}@!(y20:%25residual-vector-ref)",

  "vector-set!",
  "l5:y12:syntax-rules;n;l2:l4:y1:_;y1:x;y1:i;y1:v;;l4:y5:%25vput;y1:x;y1"
  ":i;y1:v;;;l2:py1:_;y12:syntax-rules;;py21:%25residual-vector-set!;y12:"
  "syntax-rules;;;l2:y1:_;y21:%25residual-vector-set!;;",

  0,
  "&0{%3.2,.2,.2V5]3}@!(y21:%25residual-vector-set!)",

  "vector-append",
  "l7:y12:syntax-rules;n;l2:l1:y1:_;;l2:y5:quote;v0:;;;l2:l2:y1:_;y1:x;;l"
  "2:y4:%25ckv;y1:x;;;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25vcat;y1:x;y1:y;;;l2:"
  "l5:y1:_;y1:x;y1:y;y1:z;y3:...;;l3:y13:vector-append;y1:x;l4:y13:vector"
  "-append;y1:y;y1:z;y3:...;;;;l2:y1:_;y23:%25residual-vector-append;;",

  "vector->list",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25vtol;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py22:%25residual-vector->list;y12:syntax-rules;;;l2:y"
  "1:_;y22:%25residual-vector->list;;",

  0,
  "&0{%1.0X0]1}@!(y22:%25residual-vector->list)",

  "list->vector",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25ltov;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py22:%25residual-list->vector;y12:syntax-rules;;;l2:y"
  "1:_;y22:%25residual-list->vector;;",

  0,
  "&0{%1.0X1]1}@!(y22:%25residual-list->vector)",

  "string?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25strp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py17:%25residual-string?;y12:syntax-rules;;;l2:y1:_;y"
  "17:%25residual-string?;;",

  0,
  "&0{%1.0S0]1}@!(y17:%25residual-string?)",

  "string",
  "l4:y12:syntax-rules;n;l2:l3:y1:_;y1:c;y3:...;;l3:y4:%25str;y1:c;y3:..."
  ";;;l2:y1:_;y16:%25residual-string;;",

  "make-string",
  "l6:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l3:y4:%25smk;y1:x;c ;;;l2:l3:y1"
  ":_;y1:x;y1:y;;l3:y4:%25smk;y1:x;y1:y;;;l2:py1:_;y4:args;;py21:%25resid"
  "ual-make-string;y4:args;;;l2:y1:_;y21:%25residual-make-string;;",

  "string-length",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25slen;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py23:%25residual-string-length;y12:syntax-rules;;;l2:"
  "y1:_;y23:%25residual-string-length;;",

  0,
  "&0{%1.0S3]1}@!(y23:%25residual-string-length)",

  "string-ref",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:i;;l3:y5:%25sget;y1:x;y1:i;;;"
  "l2:py1:_;y12:syntax-rules;;py20:%25residual-string-ref;y12:syntax-rule"
  "s;;;l2:y1:_;y20:%25residual-string-ref;;",

  0,
  "&0{%2.1,.1S4]2}@!(y20:%25residual-string-ref)",

  "string-set!",
  "l5:y12:syntax-rules;n;l2:l4:y1:_;y1:x;y1:i;y1:v;;l4:y5:%25sput;y1:x;y1"
  ":i;y1:v;;;l2:py1:_;y12:syntax-rules;;py21:%25residual-string-set!;y12:"
  "syntax-rules;;;l2:y1:_;y21:%25residual-string-set!;;",

  0,
  "&0{%3.2,.2,.2S5]3}@!(y21:%25residual-string-set!)",

  "string-append",
  "l7:y12:syntax-rules;n;l2:l1:y1:_;;s0:;;l2:l2:y1:_;y1:x;;l2:y4:%25cks;y"
  "1:x;;;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25scat;y1:x;y1:y;;;l2:l5:y1:_;y1:x;"
  "y1:y;y1:z;y3:...;;l3:y13:string-append;y1:x;l4:y13:string-append;y1:y;"
  "y1:z;y3:...;;;;l2:y1:_;y23:%25residual-string-append;;",

  "substring",
  "l5:y12:syntax-rules;n;l2:l4:y1:_;y1:x;y1:s;y1:e;;l4:y5:%25ssub;y1:x;y1"
  ":s;y1:e;;;l2:py1:_;y12:syntax-rules;;py19:%25residual-substring;y12:sy"
  "ntax-rules;;;l2:y1:_;y19:%25residual-substring;;",

  0,
  "&0{%3.2,.2,.2S7]3}@!(y19:%25residual-substring)",

  "string-cmp",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25scmp;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py20:%25residual-string-cmp;y12:syntax-rule"
  "s;;;l2:y1:_;y20:%25residual-string-cmp;;",

  0,
  "&0{%2.1,.1O2]2}@!(y20:%25residual-string-cmp)",

  "string=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25seq;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py18:%25residual-string<?;y12:syntax-rules;;"
  ";l2:y1:_;y18:%25residual-string<?;;",

  0,
  "&0{%2.1,.1S=]2}@!(y18:%25residual-string<?)",

  "string<?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25slt;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py18:%25residual-string<?;y12:syntax-rules;;"
  ";l2:y1:_;y18:%25residual-string<?;;",

  0,
  "&0{%2.1,.1S<]2}@!(y18:%25residual-string<?)",

  "string<=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25sle;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py19:%25residual-string<=?;y12:syntax-rules;"
  ";;l2:y1:_;y19:%25residual-string<=?;;",

  0,
  "&0{%2.1,.1S>!]2}@!(y19:%25residual-string<=?)",

  "string>?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25sgt;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py18:%25residual-string>?;y12:syntax-rules;;"
  ";l2:y1:_;y18:%25residual-string>?;;",

  0,
  "&0{%2.1,.1S>]2}@!(y18:%25residual-string>?)",

  "string>=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25sge;y1:x;y1:y;;;l"
  "2:py1:_;y12:syntax-rules;;py19:%25residual-string>=?;y12:syntax-rules;"
  ";;l2:y1:_;y19:%25residual-string>=?;;",

  0,
  "&0{%2.1,.1S<!]2}@!(y19:%25residual-string>=?)",

  "string-ci-cmp",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y6:%25sicmp;y1:x;y1:y;;"
  ";l2:py1:_;y12:syntax-rules;;py20:%25residual-string-cmp;y12:syntax-rul"
  "es;;;l2:y1:_;y20:%25residual-string-cmp;;",

  0,
  "&0{%2.1,.1O3]2}@!(y20:%25residual-string-cmp)",

  "string-ci=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25sieq;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py18:%25residual-string<?;y12:syntax-rules;"
  ";;l2:y1:_;y18:%25residual-string<?;;",

  0,
  "&0{%2.1,.1Si=]2}@!(y18:%25residual-string<?)",

  "string-ci<?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25silt;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py18:%25residual-string<?;y12:syntax-rules;"
  ";;l2:y1:_;y18:%25residual-string<?;;",

  0,
  "&0{%2.1,.1Si<]2}@!(y18:%25residual-string<?)",

  "string-ci<=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25sile;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py19:%25residual-string<=?;y12:syntax-rules"
  ";;;l2:y1:_;y19:%25residual-string<=?;;",

  0,
  "&0{%2.1,.1Si>!]2}@!(y19:%25residual-string<=?)",

  "string-ci>?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25sigt;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py18:%25residual-string>?;y12:syntax-rules;"
  ";;l2:y1:_;y18:%25residual-string>?;;",

  0,
  "&0{%2.1,.1Si>]2}@!(y18:%25residual-string>?)",

  "string-ci>=?",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25sige;y1:x;y1:y;;;"
  "l2:py1:_;y12:syntax-rules;;py19:%25residual-string>=?;y12:syntax-rules"
  ";;;l2:y1:_;y19:%25residual-string>=?;;",

  0,
  "&0{%2.1,.1Si<!]2}@!(y19:%25residual-string>=?)",

  "string->list",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25stol;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py22:%25residual-string->list;y12:syntax-rules;;;l2:y"
  "1:_;y22:%25residual-string->list;;",

  0,
  "&0{%1.0X2]1}@!(y22:%25residual-string->list)",

  "list->string",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25ltos;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py22:%25residual-list->string;y12:syntax-rules;;;l2:y"
  "1:_;y22:%25residual-list->string;;",

  0,
  "&0{%1.0X3]1}@!(y22:%25residual-list->string)",

  "fixnum->string",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:r;;l3:y5:%25itos;y1:x;y1:r;;;"
  "l2:py1:_;y12:syntax-rules;;py24:%25residual-fixnum->string;y12:syntax-"
  "rules;;;l2:y1:_;y24:%25residual-fixnum->string;;",

  0,
  "&0{%2.1,.1X6]2}@!(y24:%25residual-fixnum->string)",

  "string->fixnum",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:r;;l3:y5:%25stoi;y1:x;y1:r;;;"
  "l2:py1:_;y12:syntax-rules;;py24:%25residual-string->fixnum;y12:syntax-"
  "rules;;;l2:y1:_;y24:%25residual-string->fixnum;;",

  0,
  "&0{%2.1,.1X7]2}@!(y24:%25residual-string->fixnum)",

  "flonum->string",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25jtos;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py24:%25residual-flonum->string;y12:syntax-rules;;;l2"
  ":y1:_;y24:%25residual-flonum->string;;",

  0,
  "&0{%1.0E6]1}@!(y24:%25residual-flonum->string)",

  "string->flonum",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25stoj;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py24:%25residual-string->flonum;y12:syntax-rules;;;l2"
  ":y1:_;y24:%25residual-string->flonum;;",

  0,
  "&0{%1.0E7]1}@!(y24:%25residual-string->flonum)",

  "number->string",
  "l6:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:r;;l3:y5:%25ntos;y1:x;y1:r;;;"
  "l2:l2:y1:_;y1:x;;l3:y5:%25ntos;y1:x;i10;;;l2:py1:_;y4:args;;py24:%25re"
  "sidual-number->string;y4:args;;;l2:y1:_;y24:%25residual-number->string"
  ";;",

  "string->number",
  "l6:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:r;;l3:y5:%25ston;y1:x;y1:r;;;"
  "l2:l2:y1:_;y1:x;;l3:y5:%25ston;y1:x;i10;;;l2:py1:_;y4:args;;py24:%25re"
  "sidual-string->number;y4:args;;;l2:y1:_;y24:%25residual-string->number"
  ";;",

  "procedure?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25funp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py20:%25residual-procedure?;y12:syntax-rules;;;l2:y1:"
  "_;y20:%25residual-procedure?;;",

  0,
  "&0{%1.0K0]1}@!(y20:%25residual-procedure?)",

  "apply",
  "l6:y12:syntax-rules;n;l2:l3:y1:_;y1:p;y1:l;;l3:y5:%25appl;y1:p;y1:l;;;"
  "l2:l6:y1:_;y1:p;y1:a;y1:b;y3:...;y1:l;;l3:y5:%25appl;y1:p;l5:y5:list*;"
  "y1:a;y1:b;y3:...;y1:l;;;;l2:py1:_;y4:args;;py15:%25residual-apply;y4:a"
  "rgs;;;l2:y1:_;y15:%25residual-apply;;",

  "call/cc",
  "l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py4:%25ccc;y4:args;;;l2:y1:_;y"
  "4:%25ccc;;",

  "call-with-current-continuation",
  "l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py7:call/cc;y4:args;;;l2:y1:_;"
  "y7:call/cc;;",

  "values",
  "l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py5:%25sdmv;y4:args;;;l2:y1:_;"
  "y5:%25sdmv;;",

  "call-with-values",
  "l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py5:%25cwmv;y4:args;;;l2:y1:_;"
  "y5:%25cwmv;;",

  "map",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y3:fun;y3:lst;;l3:y3:let;l1:l2:y1:f;y"
  "3:fun;;;l4:y3:let;y4:loop;l1:l2:y1:l;y3:lst;;;l4:y2:if;l2:y5:pair?;y1:"
  "l;;l3:y4:cons;l2:y1:f;l2:y4:%25car;y1:l;;;l2:y4:loop;l2:y4:%25cdr;y1:l"
  ";;;;l2:y5:quote;n;;;;;;l2:py1:_;y4:args;;py13:%25residual-map;y4:args;"
  ";;l2:y1:_;y13:%25residual-map;;",

  "for-each",
  "l5:y12:syntax-rules;n;l2:l3:y1:_;y3:fun;y3:lst;;l3:y3:let;l1:l2:y1:f;y"
  "3:fun;;;l4:y3:let;y4:loop;l1:l2:y1:l;y3:lst;;;l3:y2:if;l2:y5:pair?;y1:"
  "l;;l3:y5:begin;l2:y1:f;l2:y4:%25car;y1:l;;;l2:y4:loop;l2:y4:%25cdr;y1:"
  "l;;;;;;;;l2:py1:_;y4:args;;py18:%25residual-for-each;y4:args;;;l2:y1:_"
  ";y18:%25residual-for-each;;",

  0,
  "&0{%!2.0u?{.2S3,'(c ),.1S2,'0,,#0.0,.3,.8,.8,.7,&5{%1:0,.1I<!?{:3]1}${"
  ".2,:2S4,:1[01},.1,:3S5.0'1,.1I+,:4^[11}.!0.0^_1[51}${@(y22:%25residual"
  "-string->list),${.5,.8c,,#0.4,.1,&2{%1.0p?{${.2d,:0^[01},${.3a,:1[01}c"
  "]1}n]1}.!0.0^_1[01}_1,.4c,@(y13:%25residual-map),@(y5:%25appl)[02}X3]3"
  "}@!(y10:string-map)",

  0,
  "&0{%!2.0u?{.2V3,f,.1V2,'0,,#0.0,.3,.8,.8,.7,&5{%1:0,.1I<!?{:3]1}${.2,:"
  "2V4,:1[01},.1,:3V5.0'1,.1I+,:4^[11}.!0.0^_1[51}${@(y22:%25residual-vec"
  "tor->list),${.5,.8c,,#0.4,.1,&2{%1.0p?{${.2d,:0^[01},${.3a,:1[01}c]1}n"
  "]1}.!0.0^_1[01}_1,.4c,@(y13:%25residual-map),@(y5:%25appl)[02}X1]3}@!("
  "y10:vector-map)",

  0,
  "&0{%!2.0u?{.2S3,'0,,#0.2,.6,.6,.3,&4{%1:3,.1I<!,.0?{.0]2}${.3,:2S4,:1["
  "01}.1'1,.2I+,:0^[21}.!0.0^_1[41}@(y22:%25residual-string->list),${.3,."
  "6c,,#0.4,.1,&2{%1.0p?{${.2d,:0^[01},${.3a,:1[01}c]1}n]1}.!0.0^_1[01}_1"
  ",.2c,@(y18:%25residual-for-each),@(y5:%25appl)[32}@!(y15:string-for-ea"
  "ch)",

  0,
  "&0{%!2.0u?{.2V3,'0,,#0.2,.6,.6,.3,&4{%1:3,.1I<!,.0?{.0]2}${.3,:2V4,:1["
  "01}.1'1,.2I+,:0^[21}.!0.0^_1[41}@(y22:%25residual-vector->list),${.3,."
  "6c,,#0.4,.1,&2{%1.0p?{${.2d,:0^[01},${.3a,:1[01}c]1}n]1}.!0.0^_1[01}_1"
  ",.2c,@(y18:%25residual-for-each),@(y5:%25appl)[32}@!(y15:vector-for-ea"
  "ch)",

  "input-port?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25ipp;y1:x;;;l2:py1:_;y1"
  "2:syntax-rules;;py21:%25residual-input-port?;y12:syntax-rules;;;l2:y1:"
  "_;y21:%25residual-input-port?;;",

  0,
  "&0{%1.0P00]1}@!(y21:%25residual-input-port?)",

  "output-port?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25opp;y1:x;;;l2:py1:_;y1"
  "2:syntax-rules;;py22:%25residual-output-port?;y12:syntax-rules;;;l2:y1"
  ":_;y22:%25residual-output-port?;;",

  0,
  "&0{%1.0P01]1}@!(y22:%25residual-output-port?)",

  "input-port-open?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25ipop;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py26:%25residual-input-port-open?;y12:syntax-rules;;;"
  "l2:y1:_;y26:%25residual-input-port-open?;;",

  0,
  "&0{%1.0P20]1}@!(y26:%25residual-input-port-open?)",

  "output-port-open?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25opop;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py27:%25residual-output-port-open?;y12:syntax-rules;;"
  ";l2:y1:_;y27:%25residual-output-port-open?;;",

  0,
  "&0{%1.0P21]1}@!(y27:%25residual-output-port-open?)",

  "current-input-port",
  "l5:y12:syntax-rules;n;l2:l1:y1:_;;l1:y4:%25sip;;;l2:py1:_;y12:syntax-r"
  "ules;;py28:%25residual-current-input-port;y12:syntax-rules;;;l2:y1:_;y"
  "28:%25residual-current-input-port;;",

  0,
  "&0{%0P10]0}@!(y28:%25residual-current-input-port)",

  "current-output-port",
  "l5:y12:syntax-rules;n;l2:l1:y1:_;;l1:y4:%25sop;;;l2:py1:_;y12:syntax-r"
  "ules;;py29:%25residual-current-output-port;y12:syntax-rules;;;l2:y1:_;"
  "y29:%25residual-current-output-port;;",

  0,
  "&0{%0P11]0}@!(y29:%25residual-current-output-port)",

  "current-error-port",
  "l5:y12:syntax-rules;n;l2:l1:y1:_;;l1:y4:%25sep;;;l2:py1:_;y12:syntax-r"
  "ules;;py28:%25residual-current-error-port;y12:syntax-rules;;;l2:y1:_;y"
  "28:%25residual-current-error-port;;",

  0,
  "&0{%0P12]0}@!(y28:%25residual-current-error-port)",

  "open-output-string",
  "l5:y12:syntax-rules;n;l2:l1:y1:_;;l1:y4:%25oos;;;l2:py1:_;y12:syntax-r"
  "ules;;py28:%25residual-open-output-string;y12:syntax-rules;;;l2:y1:_;y"
  "28:%25residual-open-output-string;;",

  0,
  "&0{%0P51]0}@!(y28:%25residual-open-output-string)",

  "open-input-file",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25otip;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py25:%25residual-open-input-file;y12:syntax-rules;;;l"
  "2:y1:_;y25:%25residual-open-input-file;;",

  0,
  "&0{%1.0P40]1}@!(y25:%25residual-open-input-file)",

  "open-output-file",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25otop;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py26:%25residual-open-output-file;y12:syntax-rules;;;"
  "l2:y1:_;y26:%25residual-open-output-file;;",

  0,
  "&0{%1.0P41]1}@!(y26:%25residual-open-output-file)",

  "open-input-string",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25ois;y1:x;;;l2:py1:_;y1"
  "2:syntax-rules;;py27:%25residual-open-input-string;y12:syntax-rules;;;"
  "l2:y1:_;y27:%25residual-open-input-string;;",

  0,
  "&0{%1.0P50]1}@!(y27:%25residual-open-input-string)",

  "close-input-port",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25cip;y1:x;;;l2:py1:_;y1"
  "2:syntax-rules;;py26:%25residual-close-input-port;y12:syntax-rules;;;l"
  "2:y1:_;y26:%25residual-close-input-port;;",

  0,
  "&0{%1.0P60]1}@!(y26:%25residual-close-input-port)",

  "close-output-port",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25cop;y1:x;;;l2:py1:_;y1"
  "2:syntax-rules;;py27:%25residual-close-output-port;y12:syntax-rules;;;"
  "l2:y1:_;y27:%25residual-close-output-port;;",

  0,
  "&0{%1.0P61]1}@!(y27:%25residual-close-output-port)",

  "get-output-string",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25gos;y1:x;;;l2:py1:_;y1"
  "2:syntax-rules;;py27:%25residual-get-output-string;y12:syntax-rules;;;"
  "l2:y1:_;y27:%25residual-get-output-string;;",

  0,
  "&0{%1.0P9]1}@!(y27:%25residual-get-output-string)",

  0,
  "&0{%1.0P00,.0?{.0]2}.1P01]2}@!(y5:port?)",

  0,
  "&0{%1.0P00?{.0P60}.0P01?{.0P61]1}]1}@!(y10:close-port)",

  0,
  "&0{%2.0,&1{%!0${:0,@(y10:close-port)[01}.0,@(y5:%25sdmv),@(y5:%25appl)"
  "[12},.1,.3,&2{%0:1,:0[01},@(y5:%25cwmv)[22}@!(y14:call-with-port)",

  0,
  "&0{%2.1,.1P40,@(y14:call-with-port)[22}@!(y20:call-with-input-file)",

  0,
  "&0{%2.1,.1P41,@(y14:call-with-port)[22}@!(y21:call-with-output-file)",

  "read-char",
  "l6:y12:syntax-rules;n;l2:l1:y1:_;;l2:y4:%25rdc;l1:y4:%25sip;;;;l2:l2:y"
  "1:_;y1:p;;l2:y4:%25rdc;y1:p;;;l2:py1:_;y4:args;;py19:%25residual-read-"
  "char;y4:args;;;l2:y1:_;y19:%25residual-read-char;;",

  "peek-char",
  "l6:y12:syntax-rules;n;l2:l1:y1:_;;l2:y5:%25rdac;l1:y4:%25sip;;;;l2:l2:"
  "y1:_;y1:p;;l2:y5:%25rdac;y1:p;;;l2:py1:_;y4:args;;py19:%25residual-pee"
  "k-char;y4:args;;;l2:y1:_;y19:%25residual-peek-char;;",

  "char-ready?",
  "l5:y12:syntax-rules;n;l2:l1:y1:_;;l2:y5:%25rdcr;l1:y4:%25sip;;;;l2:l2:"
  "y1:_;y1:p;;l2:y5:%25rdcr;y1:p;;;l2:y1:_;y21:%25residual-char-ready?;;",

  0,
  "&0{%1P51,t,,#0.3,.3,.2,&3{%1:2R0,.0R8,.0?{.0}{'(c%0a),.2C=}_1?{.0R8?{."
  "1}{f}?{.0]2}:1P9,:1P61.0]3}'(c%0d),.1C=?{f,:0^[21}:1,.1W0f,:0^[21}.!0."
  "0^_1[21}@!(y10:%25read-line)",

  "read-line",
  "l5:y12:syntax-rules;n;l2:l1:y1:_;;l2:y10:%25read-line;l1:y4:%25sip;;;;"
  "l2:l2:y1:_;y1:p;;l2:y10:%25read-line;y1:p;;;l2:y1:_;y19:%25residual-re"
  "ad-line;;",

  "eof-object?",
  "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25eofp;y1:x;;;l2:py1:_;y"
  "12:syntax-rules;;py21:%25residual-eof-object?;y12:syntax-rules;;;l2:y1"
  ":_;y21:%25residual-eof-object?;;",

  0,
  "&0{%1.0R8]1}@!(y21:%25residual-eof-object?)",

  "eof-object",
  "l5:y12:syntax-rules;n;l2:l1:y1:_;;l1:y4:%25eof;;;l2:py1:_;y12:syntax-r"
  "ules;;py20:%25residual-eof-object;y12:syntax-rules;;;l2:y1:_;y20:%25re"
  "sidual-eof-object;;",

  0,
  "&0{%0R9]0}@!(y20:%25residual-eof-object)",

  "write-char",
  "l6:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l3:y4:%25wrc;y1:x;l1:y4:%25sop;"
  ";;;l2:l3:y1:_;y1:x;y1:p;;l3:y4:%25wrc;y1:x;y1:p;;;l2:py1:_;y4:args;;py"
  "20:%25residual-write-char;y4:args;;;l2:y1:_;y20:%25residual-write-char"
  ";;",

  "write-string",
  "l6:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l3:y4:%25wrs;y1:x;l1:y4:%25sop;"
  ";;;l2:l3:y1:_;y1:x;y1:p;;l3:y4:%25wrs;y1:x;y1:p;;;l2:py1:_;y4:args;;py"
  "22:%25residual-write-string;y4:args;;;l2:y1:_;y22:%25residual-write-st"
  "ring;;",

  "display",
  "l6:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l3:y5:%25wrcd;y1:x;l1:y4:%25sop"
  ";;;;l2:l3:y1:_;y1:x;y1:p;;l3:y5:%25wrcd;y1:x;y1:p;;;l2:py1:_;y4:args;;"
  "py17:%25residual-display;y4:args;;;l2:y1:_;y17:%25residual-display;;",

  "write",
  "l6:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l3:y5:%25wrcw;y1:x;l1:y4:%25sop"
  ";;;;l2:l3:y1:_;y1:x;y1:p;;l3:y5:%25wrcw;y1:x;y1:p;;;l2:py1:_;y4:args;;"
  "py15:%25residual-write;y4:args;;;l2:y1:_;y15:%25residual-write;;",

  "newline",
  "l6:y12:syntax-rules;n;l2:l1:y1:_;;l2:y5:%25wrnl;l1:y4:%25sop;;;;l2:l2:"
  "y1:_;y1:p;;l2:y5:%25wrnl;y1:p;;;l2:py1:_;y4:args;;py17:%25residual-new"
  "line;y4:args;;;l2:y1:_;y17:%25residual-newline;;",

  "write-shared",
  "l6:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l3:y5:%25wrhw;y1:x;l1:y4:%25sop"
  ";;;;l2:l3:y1:_;y1:x;y1:p;;l3:y5:%25wrhw;y1:x;y1:p;;;l2:py1:_;y4:args;;"
  "py22:%25residual-write-shared;y4:args;;;l2:y1:_;y22:%25residual-write-"
  "shared;;",

  "write-simple",
  "l6:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l3:y5:%25wriw;y1:x;l1:y4:%25sop"
  ";;;;l2:l3:y1:_;y1:x;y1:p;;l3:y5:%25wriw;y1:x;y1:p;;;l2:py1:_;y4:args;;"
  "py22:%25residual-write-simple;y4:args;;;l2:y1:_;y22:%25residual-write-"
  "simple;;",

  0,
  "&0{%!0.0]1}@!(y14:%25residual-list)",

  0,
  "&0{%!1.0u?{f,.2,@(y10:%25make-list)[22}.0a,.2,@(y10:%25make-list)[22}@"
  "!(y19:%25residual-make-list)",

  0,
  "&0{%!1.0u?{f,.2V2]2}.0a,.2V2]2}@!(y21:%25residual-make-vector)",

  0,
  "&0{%!1.0u?{'(c ),.2S2]2}.0a,.2S2]2}@!(y21:%25residual-make-string)",

  0,
  "&0{%!0.0u,.0?{.0]2}.1d,.2a,,#0.0,&1{%2.1u,.0?{.0]3}.2a,.0,.3=?{.3d,.1,"
  ":0^[42}f]4}.!0.0^_1[22}@!(y10:%25residual=)",

  0,
  "&0{%!0.0u,.0?{.0]2}.1d,.2a,,#0.0,&1{%2.1u,.0?{.0]3}.2a,.0,.3<?{.3d,.1,"
  ":0^[42}f]4}.!0.0^_1[22}@!(y10:%25residual<)",

  0,
  "&0{%!0.0u,.0?{.0]2}.1d,.2a,,#0.0,&1{%2.1u,.0?{.0]3}.2a,.0,.3>?{.3d,.1,"
  ":0^[42}f]4}.!0.0^_1[22}@!(y10:%25residual>)",

  0,
  "&0{%!0.0u,.0?{.0]2}.1d,.2a,,#0.0,&1{%2.1u,.0?{.0]3}.2a,.0,.3>!?{.3d,.1"
  ",:0^[42}f]4}.!0.0^_1[22}@!(y11:%25residual<=)",

  0,
  "&0{%!0.0u,.0?{.0]2}.1d,.2a,,#0.0,&1{%2.1u,.0?{.0]3}.2a,.0,.3<!?{.3d,.1"
  ",:0^[42}f]4}.!0.0^_1[22}@!(y11:%25residual>=)",

  "minmax-reducer",
  "l3:y12:syntax-rules;n;l2:l2:y1:_;y1:f;;l3:y6:lambda;py1:x;y4:args;;l4:"
  "y3:let;y4:loop;l2:l2:y1:x;y1:x;;l2:y4:args;y4:args;;;l4:y2:if;l2:y5:nu"
  "ll?;y4:args;;y1:x;l3:y4:loop;l3:y1:f;y1:x;l2:y3:car;y4:args;;;l2:y3:cd"
  "r;y4:args;;;;;;;",

  0,
  "&0{%!1.0,.2,,#0.0,&1{%2.1u?{.0]2}.1d,.2a,.2M2,:0^[22}.!0.0^_1[22}@!(y1"
  "3:%25residual-min)",

  0,
  "&0{%!1.0,.2,,#0.0,&1{%2.1u?{.0]2}.1d,.2a,.2M3,:0^[22}.!0.0^_1[22}@!(y1"
  "3:%25residual-max)",

  0,
  "&0{%!0.0u?{'0]1}.0d,.1a,,#0.0,&1{%2.1u?{.0]2}.1d,.2a,.2+,:0^[22}.!0.0^"
  "_1[12}@!(y10:%25residual+)",

  0,
  "&0{%!0.0u?{'1]1}.0d,.1a,,#0.0,&1{%2.1u?{.0]2}.1d,.2a,.2*,:0^[22}.!0.0^"
  "_1[12}@!(y10:%25residual*)",

  0,
  "&0{%!1.0u?{.1-!]2}.0,.2,,#0.0,&1{%2.1u?{.0]2}.1d,.2a,.2-,:0^[22}.!0.0^"
  "_1[22}@!(y10:%25residual-)",

  0,
  "&0{%!1.0u?{.1,'1/]2}.0,.2,,#0.0,&1{%2.1u?{.0]2}.1d,.2a,.2/,:0^[22}.!0."
  "0^_1[22}@!(y10:%25residual/)",

  0,
  "&0{%!2.0u?{.2%l,.2A2]3}.0a,.3,.3,@(y7:%25member)[33}@!(y16:%25residual"
  "-member)",

  0,
  "&0{%!2.0u?{.2%l,.2A5]3}.0a,.3,.3,@(y6:%25assoc)[33}@!(y15:%25residual-"
  "assoc)",

  0,
  "&0{%!1.0,.2,,#0.0,&1{%2.1u?{.0]2}${.3d,.4a,:0^[02},.1c]2}.!0.0^_1[22}@"
  "!(y15:%25residual-list*)",

  0,
  "&0{%!2${.2,.5,,#0.0,&1{%2.1u?{.0]2}${.3d,.4a,:0^[02},.1c]2}.!0.0^_1[02"
  "},.2,@(y5:%25appl)[32}@!(y15:%25residual-apply)",

  0,
  "&0{%!2.0u?{n,.3,,#0.0,.5,&2{%2.0p?{.1,${.3a,:0[01}c,.1d,:1^[22}.1A9]2}"
  ".!0.0^_1[32}n,.1,.4c,,#0.0,.5,&2{%2${.2,,#0.0,&1{%1.0u,.0?{.0]2}.1ap?{"
  ".1d,:0^[21}f]2}.!0.0^_1[01}?{.1,${@(y13:%25residual-car),${.6,,#0.4,.1"
  ",&2{%1.0p?{${.2d,:0^[01},${.3a,:1[01}c]1}n]1}.!0.0^_1[01}_1,:0,@(y5:%2"
  "5appl)[02}c,@(y13:%25residual-cdr),${.4,,#0.4,.1,&2{%1.0p?{${.2d,:0^[0"
  "1},${.3a,:1[01}c]1}n]1}.!0.0^_1[01}_1,:1^[22}.1A9]2}.!0.0^_1[32}@!(y13"
  ":%25residual-map)",

  0,
  "&0{%!2.0u?{.2,,#0.3,.1,&2{%1.0p?{${.2a,:1[01}.0d,:0^[11}]1}.!0.0^_1[31"
  "}.0,.3c,,#0.3,.1,&2{%1${.2,,#0.0,&1{%1.0u,.0?{.0]2}.1ap?{.1d,:0^[21}f]"
  "2}.!0.0^_1[01}?{${@(y13:%25residual-car),${.5,,#0.4,.1,&2{%1.0p?{${.2d"
  ",:0^[01},${.3a,:1[01}c]1}n]1}.!0.0^_1[01}_1,:1,@(y5:%25appl)[02}@(y13:"
  "%25residual-cdr),${.3,,#0.4,.1,&2{%1.0p?{${.2d,:0^[01},${.3a,:1[01}c]1"
  "}n]1}.!0.0^_1[01}_1,:0^[11}]1}.!0.0^_1[31}@!(y18:%25residual-for-each)",

  0,
  "&0{%!0.0,,#0.0,&1{%1.0u?{n]1}.0du?{.0a]1}${.2d,:0^[01},.1aL6]1}.!0.0^_"
  "1[11}@!(y16:%25residual-append)",

  0,
  "&0{%!0.0,,#0.0,&1{%1.0u?{'(s0:)]1}.0du?{.0a]1}${.2d,:0^[01},.1aS6]1}.!"
  "0.0^_1[11}@!(y23:%25residual-string-append)",

  0,
  "&0{%!0.0,,#0.0,&1{%1.0u?{'(v0:)]1}.0du?{.0a]1}${.2d,:0^[01},.1aV6]1}.!"
  "0.0^_1[11}@!(y23:%25residual-vector-append)",

  0,
  "&0{%!1.0u?{'(i10),.2E8]2}.0a,.2E8]2}@!(y24:%25residual-number->string)",

  0,
  "&0{%!1.0u?{'(i10),.2E9]2}.0a,.2E9]2}@!(y24:%25residual-string->number)",

  0,
  "&0{%!0.0u?{P10R0]1}.0aR0]1}@!(y19:%25residual-read-char)",

  0,
  "&0{%!0.0u?{P10R1]1}.0aR1]1}@!(y19:%25residual-peek-char)",

  0,
  "&0{%!0.0u?{P10R2]1}.0aR2]1}@!(y21:%25residual-char-ready?)",

  0,
  "&0{%!0.0u?{P10,@(y10:%25read-line)[11}.0a,@(y10:%25read-line)[11}@!(y1"
  "9:%25residual-read-line)",

  0,
  "&0{%!1.0u?{P11,.2W0]2}.0a,.2W0]2}@!(y20:%25residual-write-char)",

  0,
  "&0{%!1.0u?{P11,.2W1]2}.0a,.2W1]2}@!(y22:%25residual-write-string)",

  0,
  "&0{%!0.0u?{P11W6]1}.0aW6]1}@!(y17:%25residual-newline)",

  0,
  "&0{%!1.0u?{P11,.2W4]2}.0a,.2W4]2}@!(y17:%25residual-display)",

  0,
  "&0{%!1.0u?{P11,.2W5]2}.0a,.2W5]2}@!(y15:%25residual-write)",

  0,
  "&0{%!1.0u?{P11,.2W8]2}.0a,.2W8]2}@!(y22:%25residual-write-simple)",

  0,
  "&0{%!1.0u?{P11,.2W7]2}.0a,.2W7]2}@!(y22:%25residual-write-shared)",

  0, 0
};