Miroirs/skint
1
0
Fork 0
mirror of https://github.com/false-schemers/skint.git synced 2024-11-16 07:47:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions
skint/s.c
ESL 166d6dbd8c runs init code from s.c
2023-03-03 13:18:00 -05:00

1725 lines
51 KiB
C
Raw Blame History

/* s.c -- generated via skint -c s.scm */
char *s_code[] = {
"eq?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25isq;y1:x;y1:y;;;l"
"2:y1:_;y13:%25residual-eq?;;",
0,
"&0{%2.1,.1q]2}@!(y13:%25residual-eq?)",
"eqv?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25isv;y1:x;y1:y;;;l"
"2:y1:_;y14:%25residual-eqv?;;",
0,
"&0{%2.1,.1v]2}@!(y14:%25residual-eqv?)",
"equal?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25ise;y1:x;y1:y;;;l"
"2:y1:_;y16:%25residual-equal?;;",
0,
"&0{%2.1,.1e]2}@!(y16:%25residual-equal?)",
"fixnum?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25fixp;y1:x;;;l2:y1:_;y1"
"7:%25residual-fixnum?;;",
0,
"&0{%1.0I0]1}@!(y17:%25residual-fixnum?)",
"fxzero?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y7:%25izerop;l2:y4:%25cki;y1"
":x;;;;l2:y1:_;y17:%25residual-fxzero?;;",
0,
"&0{%1.0%iI=0]1}@!(y17:%25residual-fxzero?)",
"fxpositive?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25iposp;l2:y4:%25cki;y1:"
"x;;;;l2:y1:_;y21:%25residual-fxpositive?;;",
0,
"&0{%1.0%iI>0]1}@!(y21:%25residual-fxpositive?)",
"fxnegative?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25inegp;l2:y4:%25cki;y1:"
"x;;;;l2:y1:_;y21:%25residual-fxnegative?;;",
0,
"&0{%1.0%iI<0]1}@!(y21:%25residual-fxnegative?)",
"fx+",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25iadd;l2:y4:%25cki"
";y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y13:%25residual-fx+;;",
0,
"&0{%2.1%i,.1%iI+]2}@!(y13:%25residual-fx+)",
"fx*",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25imul;l2:y4:%25cki"
";y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y13:%25residual-fx*;;",
0,
"&0{%2.1%i,.1%iI*]2}@!(y13:%25residual-fx*)",
"fx-",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25isub;l2:y4:%25cki"
";y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y13:%25residual-fx-;;",
0,
"&0{%2.1%i,.1%iI-]2}@!(y13:%25residual-fx-)",
"fx/",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25idiv;l2:y4:%25cki"
";y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y13:%25residual-fx/;;",
0,
"&0{%2.1%i,.1%iI/]2}@!(y13:%25residual-fx/)",
"fxquotient",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25iquo;l2:y4:%25cki"
";y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y20:%25residual-fxquotient;;",
0,
"&0{%2.1%i,.1%iIq]2}@!(y20:%25residual-fxquotient)",
"fxremainder",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25irem;l2:y4:%25cki"
";y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y21:%25residual-fxremainder;;",
0,
"&0{%2.1%i,.1%iIr]2}@!(y21:%25residual-fxremainder)",
"fxmodquo",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25imqu;l2:y4:%25cki"
";y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y18:%25residual-fxmodquo;;",
0,
"&0{%2.1%i,.1%iI3]2}@!(y18:%25residual-fxmodquo)",
"fxmodulo",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25imlo;l2:y4:%25cki"
";y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y18:%25residual-fxmodulo;;",
0,
"&0{%2.1%i,.1%iI4]2}@!(y18:%25residual-fxmodulo)",
"fxeucquo",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25ieuq;l2:y4:%25cki"
";y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y18:%25residual-fxeucquo;;",
0,
"&0{%2.1%i,.1%iI5]2}@!(y18:%25residual-fxeucquo)",
"fxeucrem",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25ieur;l2:y4:%25cki"
";y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y18:%25residual-fxeucrem;;",
0,
"&0{%2.1%i,.1%iI6]2}@!(y18:%25residual-fxeucrem)",
"fxneg",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25ineg;l2:y4:%25cki;y1:x"
";;;;l2:y1:_;y15:%25residual-fxneg;;",
0,
"&0{%1.0%iI-!]1}@!(y15:%25residual-fxneg)",
"fxabs",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25iabs;l2:y4:%25cki;y1:x"
";;;;l2:y1:_;y15:%25residual-fxabs;;",
0,
"&0{%1.0%iIa]1}@!(y15:%25residual-fxabs)",
"fx<?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25ilt;l2:y4:%25cki;"
"y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y14:%25residual-fx<?;;",
0,
"&0{%2.1%i,.1%iI<]2}@!(y14:%25residual-fx<?)",
"fx<=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25ile;l2:y4:%25cki;"
"y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y15:%25residual-fx<=?;;",
0,
"&0{%2.1%i,.1%iI>!]2}@!(y15:%25residual-fx<=?)",
"fx>?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25igt;l2:y4:%25cki;"
"y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y14:%25residual-fx>?;;",
0,
"&0{%2.1%i,.1%iI>]2}@!(y14:%25residual-fx>?)",
"fx>=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25ige;l2:y4:%25cki;"
"y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y15:%25residual-fx>=?;;",
0,
"&0{%2.1%i,.1%iI<!]2}@!(y15:%25residual-fx>=?)",
"fx=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25ieq;l2:y4:%25cki;"
"y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y14:%25residual-fx=?;;",
0,
"&0{%2.1%i,.1%iI=]2}@!(y14:%25residual-fx=?)",
"fxmin",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25imin;l2:y4:%25cki"
";y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y15:%25residual-fxmin;;",
0,
"&0{%2.1%i,.1%iIn]2}@!(y15:%25residual-fxmin)",
"fxmax",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25imax;l2:y4:%25cki"
";y1:x;;l2:y4:%25cki;y1:y;;;;l2:y1:_;y15:%25residual-fxmax;;",
0,
"&0{%2.1%i,.1%iIx]2}@!(y15:%25residual-fxmax)",
"fixnum->flonum",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25itoj;l2:y4:%25cki;y1:x"
";;;;l2:y1:_;y24:%25residual-fixnum->flonum;;",
0,
"&0{%1.0%iIj]1}@!(y24:%25residual-fixnum->flonum)",
"flonum?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25flop;y1:x;;;l2:y1:_;y1"
"7:%25residual-flonum?;;",
0,
"&0{%1.0J0]1}@!(y17:%25residual-flonum?)",
"flzero?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y7:%25jzerop;l2:y4:%25ckj;y1"
":x;;;;l2:y1:_;y17:%25residual-flzero?;;",
0,
"&0{%1.0%jJ=0]1}@!(y17:%25residual-flzero?)",
"flpositive?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25jposp;l2:y4:%25ckj;y1:"
"x;;;;l2:y1:_;y21:%25residual-flpositive?;;",
0,
"&0{%1.0%jJ>0]1}@!(y21:%25residual-flpositive?)",
"flnegative?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25jnegp;l2:y4:%25ckj;y1:"
"x;;;;l2:y1:_;y21:%25residual-flnegative?;;",
0,
"&0{%1.0%jJ<0]1}@!(y21:%25residual-flnegative?)",
"flinteger?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25jintp;l2:y4:%25ckj;y1:"
"x;;;;l2:y1:_;y20:%25residual-flinteger?;;",
0,
"&0{%1.0%jJw]1}@!(y20:%25residual-flinteger?)",
"flnan?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25jnanp;l2:y4:%25ckj;y1:"
"x;;;;l2:y1:_;y16:%25residual-flnan?;;",
0,
"&0{%1.0%jJu]1}@!(y16:%25residual-flnan?)",
"flinfinite?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25jinfp;l2:y4:%25ckj;y1:"
"x;;;;l2:y1:_;y21:%25residual-flinfinite?;;",
0,
"&0{%1.0%jJh]1}@!(y21:%25residual-flinfinite?)",
"flfinite?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25jfinp;l2:y4:%25ckj;y1:"
"x;;;;l2:y1:_;y19:%25residual-flfinite?;;",
0,
"&0{%1.0%jJf]1}@!(y19:%25residual-flfinite?)",
"fleven?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25jevnp;l2:y4:%25ckj;y1:"
"x;;;;l2:y1:_;y17:%25residual-fleven?;;",
0,
"&0{%1.0%jJe]1}@!(y17:%25residual-fleven?)",
"flodd?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25joddp;l2:y4:%25ckj;y1:"
"x;;;;l2:y1:_;y16:%25residual-flodd?;;",
0,
"&0{%1.0%jJo]1}@!(y16:%25residual-flodd?)",
"fl+",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25jadd;l2:y4:%25ckj"
";y1:x;;l2:y4:%25ckj;y1:y;;;;l2:y1:_;y13:%25residual-fl+;;",
0,
"&0{%2.1%j,.1%jJ+]2}@!(y13:%25residual-fl+)",
"fl-",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25jsub;l2:y4:%25ckj"
";y1:x;;l2:y4:%25ckj;y1:y;;;;l2:y1:_;y13:%25residual-fl-;;",
0,
"&0{%2.1%j,.1%jJ-]2}@!(y13:%25residual-fl-)",
"fl*",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25jmul;l2:y4:%25ckj"
";y1:x;;l2:y4:%25ckj;y1:y;;;;l2:y1:_;y13:%25residual-fl*;;",
0,
"&0{%2.1%j,.1%jJ*]2}@!(y13:%25residual-fl*)",
"fl/",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25jdiv;l2:y4:%25ckj"
";y1:x;;l2:y4:%25ckj;y1:y;;;;l2:y1:_;y13:%25residual-fl/;;",
0,
"&0{%2.1%j,.1%jJ/]2}@!(y13:%25residual-fl/)",
"flneg",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25jneg;l2:y4:%25ckj;y1:x"
";;;;l2:y1:_;y15:%25residual-flneg;;",
0,
"&0{%1.0%jJ-!]1}@!(y15:%25residual-flneg)",
"flabs",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25jabs;l2:y4:%25ckj;y1:x"
";;;;l2:y1:_;y15:%25residual-flabs;;",
0,
"&0{%1.0%jJa]1}@!(y15:%25residual-flabs)",
"fl<?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25jlt;l2:y4:%25ckj;"
"y1:x;;l2:y4:%25ckj;y1:y;;;;l2:y1:_;y14:%25residual-fl<?;;",
0,
"&0{%2.1%j,.1%jJ<]2}@!(y14:%25residual-fl<?)",
"fl<=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25jle;l2:y4:%25ckj;"
"y1:x;;l2:y4:%25ckj;y1:y;;;;l2:y1:_;y15:%25residual-fl<=?;;",
0,
"&0{%2.1%j,.1%jJ>!]2}@!(y15:%25residual-fl<=?)",
"fl>?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25jgt;l2:y4:%25ckj;"
"y1:x;;l2:y4:%25ckj;y1:y;;;;l2:y1:_;y14:%25residual-fl>?;;",
0,
"&0{%2.1%j,.1%jJ>]2}@!(y14:%25residual-fl>?)",
"fl>=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25jge;l2:y4:%25ckj;"
"y1:x;;l2:y4:%25ckj;y1:y;;;;l2:y1:_;y15:%25residual-fl>=?;;",
0,
"&0{%2.1%j,.1%jJ<!]2}@!(y15:%25residual-fl>=?)",
"fl=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25jeq;l2:y4:%25ckj;"
"y1:x;;l2:y4:%25ckj;y1:y;;;;l2:y1:_;y14:%25residual-fl=?;;",
0,
"&0{%2.1%j,.1%jJ=]2}@!(y14:%25residual-fl=?)",
"flmin",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25jmin;l2:y4:%25ckj"
";y1:x;;l2:y4:%25ckj;y1:y;;;;l2:y1:_;y15:%25residual-flmin;;",
0,
"&0{%2.1%j,.1%jJn]2}@!(y15:%25residual-flmin)",
"flmax",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25jmax;l2:y4:%25ckj"
";y1:x;;l2:y4:%25ckj;y1:y;;;;l2:y1:_;y15:%25residual-flmax;;",
0,
"&0{%2.1%j,.1%jJx]2}@!(y15:%25residual-flmax)",
"flonum->fixnum",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25jtoi;l2:y4:%25ckj;y1:x"
";;;;l2:y1:_;y24:%25residual-flonum->fixnum;;",
0,
"&0{%1.0%jJi]1}@!(y24:%25residual-flonum->fixnum)",
"number?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25nump;y1:x;;;l2:y1:_;y1"
"7:%25residual-number?;;",
0,
"&0{%1.0N0]1}@!(y17:%25residual-number?)",
"integer?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25intp;y1:x;;;l2:y1:_;y1"
"8:%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?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25fixp;l2:y4:%25ckn;y1:x"
";;;;l2:y1:_;y16:%25residual-exact?;;",
0,
"&0{%1.0%nI0]1}@!(y16:%25residual-exact?)",
"inexact?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25flop;l2:y4:%25ckn;y1:x"
";;;;l2:y1:_;y18:%25residual-inexact?;;",
0,
"&0{%1.0%nJ0]1}@!(y18:%25residual-inexact?)",
"finite?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25finp;l2:y4:%25ckn;y1:x"
";;;;l2:y1:_;y17:%25residual-finite?;;",
0,
"&0{%1.0%nN6]1}@!(y17:%25residual-finite?)",
"infinite?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25infp;l2:y4:%25ckn;y1:x"
";;;;l2:y1:_;y19:%25residual-infinite?;;",
0,
"&0{%1.0%nN7]1}@!(y19:%25residual-infinite?)",
"nan?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25nanp;l2:y4:%25ckn;y1:x"
";;;;l2:y1:_;y14:%25residual-nan?;;",
0,
"&0{%1.0%nN5]1}@!(y14:%25residual-nan?)",
"zero?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25zerop;l2:y4:%25ckn;y1:"
"x;;;;l2:y1:_;y15:%25residual-zero?;;",
0,
"&0{%1.0%n=0]1}@!(y15:%25residual-zero?)",
"positive?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25posp;l2:y4:%25ckn;y1:x"
";;;;l2:y1:_;y19:%25residual-positive?;;",
0,
"&0{%1.0%n>0]1}@!(y19:%25residual-positive?)",
"negative?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25negp;l2:y4:%25ckn;y1:x"
";;;;l2:y1:_;y19:%25residual-negative?;;",
0,
"&0{%1.0%n<0]1}@!(y19:%25residual-negative?)",
"even?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25evnp;l2:y4:%25ckn;y1:x"
";;;;l2:y1:_;y15:%25residual-even?;;",
0,
"&0{%1.0%nN8]1}@!(y15:%25residual-even?)",
"odd?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25oddp;l2:y4:%25ckn;y1:x"
";;;;l2:y1:_;y14:%25residual-odd?;;",
0,
"&0{%1.0%nN9]1}@!(y14:%25residual-odd?)",
"min",
"l6:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;y1:x;;l2:l3:y1:_;y1:x;y1:y;;l3:"
"y4:%25min;l2:y4:%25ckn;y1:x;;l2:y4:%25ckn;y1:y;;;;l2:l5:y1:_;y1:x;y1:y"
";y1:z;y3:...;;l4:y3:min;l3:y3:min;y1:x;y1:y;;y1:z;y3:...;;;l2:y1:_;y13"
":%25residual-min;;",
"max",
"l6:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;y1:x;;l2:l3:y1:_;y1:x;y1:y;;l3:"
"y4:%25max;l2:y4:%25ckn;y1:x;;l2:y4:%25ckn;y1:y;;;;l2:l5:y1:_;y1:x;y1:y"
";y1:z;y3:...;;l4:y3:max;l3:y3:max;y1:x;y1:y;;y1:z;y3:...;;;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;l2:y4:%25ckn;y1:x;;l2:y4:%25ck"
"n;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;l2:y4:%25ckn;y1:x;;l2:y4:%25ck"
"n;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*;;",
"-",
"l6:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25neg;l2:y4:%25ckn;y1:x;"
";;;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25sub;l2:y4:%25ckn;y1:x;;l2:y4:%25ckn;"
"y1:y;;;;l2:l5:y1:_;y1:x;y1:y;y1:z;y3:...;;l4:y1:-;l3:y1:-;y1:x;y1:y;;y"
"1:z;y3:...;;;l2:y1:_;y10:%25residual-;;",
"/",
"l6:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l3:y4:%25div;i1;l2:y4:%25ckn;y1"
":x;;;;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25div;l2:y4:%25ckn;y1:x;;l2:y4:%25c"
"kn;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/;;",
"=",
"l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y3:%25eq;l2:y4:%25ckn;y"
"1:x;;l2:y4:%25ckn;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:y1:_;y10:%25residual=;;",
"<",
"l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y3:%25lt;l2:y4:%25ckn;y"
"1:x;;l2:y4:%25ckn;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:y1:_;y10:%25residual<;;",
">",
"l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y3:%25gt;l2:y4:%25ckn;y"
"1:x;;l2:y4:%25ckn;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:y1:_;y10:%25residual>;;",
"<=",
"l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y3:%25le;l2:y4:%25ckn;y"
"1:x;;l2:y4:%25ckn;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:y1:_;y11:%25residual<=;;",
">=",
"l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y3:%25ge;l2:y4:%25ckn;y"
"1:x;;l2:y4:%25ckn;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:y1:_;y11:%25residual>=;;",
"abs",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25abs;l2:y4:%25ckn;y1:x;"
";;;l2:y1:_;y13:%25residual-abs;;",
0,
"&0{%1.0%nG0]1}@!(y13:%25residual-abs)",
"quotient",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l2:y4:%25quo;l2:y4:%25ckn;"
"y1:x;;;;l2:y1:_;y18:%25residual-quotient;;",
0,
"&0{%2.0%nG5]2}@!(y18:%25residual-quotient)",
"remainder",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l2:y4:%25rem;l2:y4:%25ckn;"
"y1:x;;;;l2:y1:_;y19:%25residual-remainder;;",
0,
"&0{%2.0%nG6]2}@!(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",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l2:y4:%25mqu;l2:y4:%25ckn;"
"y1:x;;;;l2:y1:_;y16:%25residual-modquo;;",
0,
"&0{%2.0%nG3]2}@!(y16:%25residual-modquo)",
"modulo",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l2:y4:%25mlo;l2:y4:%25ckn;"
"y1:x;;;;l2:y1:_;y16:%25residual-modulo;;",
0,
"&0{%2.0%nG4]2}@!(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?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25boolp;y1:x;;;l2:y1:_;y"
"18:%25residual-boolean?;;",
0,
"&0{%1.0Y1]1}@!(y18:%25residual-boolean?)",
"not",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25not;y1:x;;;l2:y1:_;y13"
":%25residual-not;;",
0,
"&0{%1.0~]1}@!(y13:%25residual-not)",
"char?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25charp;y1:x;;;l2:y1:_;y"
"15:%25residual-char?;;",
0,
"&0{%1.0C0]1}@!(y15:%25residual-char?)",
"char-cmp",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25ccmp;l2:y4:%25ckc"
";y1:x;;l2:y4:%25ckc;y1:y;;;;l2:y1:_;y18:%25residual-char-cmp;;",
0,
"&0{%2.1%c,.1%cO0]2}@!(y18:%25residual-char-cmp)",
"char=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25ceq;l2:y4:%25ckc;"
"y1:x;;l2:y4:%25ckc;y1:y;;;;l2:y1:_;y16:%25residual-char=?;;",
0,
"&0{%2.1%c,.1%cC=]2}@!(y16:%25residual-char=?)",
"char<?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25clt;l2:y4:%25ckc;"
"y1:x;;l2:y4:%25ckc;y1:y;;;;l2:y1:_;y16:%25residual-char<?;;",
0,
"&0{%2.1%c,.1%cC<]2}@!(y16:%25residual-char<?)",
"char<=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25cle;l2:y4:%25ckc;"
"y1:x;;l2:y4:%25ckc;y1:y;;;;l2:y1:_;y17:%25residual-char<=?;;",
0,
"&0{%2.1%c,.1%cC>!]2}@!(y17:%25residual-char<=?)",
"char>?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25cgt;l2:y4:%25ckc;"
"y1:x;;l2:y4:%25ckc;y1:y;;;;l2:y1:_;y16:%25residual-char>?;;",
0,
"&0{%2.1%c,.1%cC>]2}@!(y16:%25residual-char>?)",
"char>=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25cge;l2:y4:%25ckc;"
"y1:x;;l2:y4:%25ckc;y1:y;;;;l2:y1:_;y17:%25residual-char>=?;;",
0,
"&0{%2.1%c,.1%cC<!]2}@!(y17:%25residual-char>=?)",
"char-ci-cmp",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y6:%25cicmp;l2:y4:%25ck"
"c;y1:x;;l2:y4:%25ckc;y1:y;;;;l2:y1:_;y18:%25residual-char-cmp;;",
0,
"&0{%2.1%c,.1%cO1]2}@!(y18:%25residual-char-cmp)",
"char-ci=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25cieq;l2:y4:%25ckc"
";y1:x;;l2:y4:%25ckc;y1:y;;;;l2:y1:_;y19:%25residual-char-ci=?;;",
0,
"&0{%2.1%c,.1%cCi=]2}@!(y19:%25residual-char-ci=?)",
"char-ci<?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25cilt;l2:y4:%25ckc"
";y1:x;;l2:y4:%25ckc;y1:y;;;;l2:y1:_;y19:%25residual-char-ci<?;;",
0,
"&0{%2.1%c,.1%cCi<]2}@!(y19:%25residual-char-ci<?)",
"char-ci<=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25cile;l2:y4:%25ckc"
";y1:x;;l2:y4:%25ckc;y1:y;;;;l2:y1:_;y20:%25residual-char-ci<=?;;",
0,
"&0{%2.1%c,.1%cCi>!]2}@!(y20:%25residual-char-ci<=?)",
"char-ci>?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25cigt;l2:y4:%25ckc"
";y1:x;;l2:y4:%25ckc;y1:y;;;;l2:y1:_;y19:%25residual-char-ci>?;;",
0,
"&0{%2.1%c,.1%cCi>]2}@!(y19:%25residual-char-ci>?)",
"char-ci>=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25cige;l2:y4:%25ckc"
";y1:x;;l2:y4:%25ckc;y1:y;;;;l2:y1:_;y20:%25residual-char-ci>=?;;",
0,
"&0{%2.1%c,.1%cCi<!]2}@!(y20:%25residual-char-ci>=?)",
"char-alphabetic?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25calp;l2:y4:%25ckc;y1:x"
";;;;l2:y1:_;y26:%25residual-char-alphabetic?;;",
0,
"&0{%1.0%cC4]1}@!(y26:%25residual-char-alphabetic?)",
"char-numeric?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25cnup;l2:y4:%25ckc;y1:x"
";;;;l2:y1:_;y23:%25residual-char-numeric?;;",
0,
"&0{%1.0%cC5]1}@!(y23:%25residual-char-numeric?)",
"char-whitespace?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25cwsp;l2:y4:%25ckc;y1:x"
";;;;l2:y1:_;y26:%25residual-char-whitespace?;;",
0,
"&0{%1.0%cC1]1}@!(y26:%25residual-char-whitespace?)",
"char-upper-case?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25cucp;l2:y4:%25ckc;y1:x"
";;;;l2:y1:_;y26:%25residual-char-upper-case?;;",
0,
"&0{%1.0%cC3]1}@!(y26:%25residual-char-upper-case?)",
"char-lower-case?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25clcp;l2:y4:%25ckc;y1:x"
";;;;l2:y1:_;y26:%25residual-char-lower-case?;;",
0,
"&0{%1.0%cC2]1}@!(y26:%25residual-char-lower-case?)",
"char-upcase",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25cupc;l2:y4:%25ckc;y1:x"
";;;;l2:y1:_;y21:%25residual-char-upcase;;",
0,
"&0{%1.0%cC6]1}@!(y21:%25residual-char-upcase)",
"char-downcase",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25cdnc;l2:y4:%25ckc;y1:x"
";;;;l2:y1:_;y23:%25residual-char-downcase;;",
0,
"&0{%1.0%cC7]1}@!(y23:%25residual-char-downcase)",
"char->integer",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25ctoi;l2:y4:%25ckc;y1:x"
";;;;l2:y1:_;y23:%25residual-char->integer;;",
0,
"&0{%1.0%cX8]1}@!(y23:%25residual-char->integer)",
"integer->char",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25itoc;l2:y4:%25cki;y1:x"
";;;;l2:y1:_;y23:%25residual-integer->char;;",
0,
"&0{%1.0%iX9]1}@!(y23:%25residual-integer->char)",
"symbol?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25symp;y1:x;;;l2:y1:_;y1"
"7:%25residual-symbol?;;",
0,
"&0{%1.0Y0]1}@!(y17:%25residual-symbol?)",
"symbol->string",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25ytos;l2:y4:%25cky;y1:x"
";;;;l2:y1:_;y24:%25residual-symbol->string;;",
0,
"&0{%1.0%yX4]1}@!(y24:%25residual-symbol->string)",
"string->symbol",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25stoy;l2:y4:%25cks;y1:x"
";;;;l2:y1:_;y24:%25residual-string->symbol;;",
0,
"&0{%1.0%sX5]1}@!(y24:%25residual-string->symbol)",
"null?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25nullp;y1:x;;;l2:y1:_;y"
"15:%25residual-null?;;",
0,
"&0{%1.0u]1}@!(y15:%25residual-null?)",
"pair?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25pairp;y1:x;;;l2:y1:_;y"
"15:%25residual-pair?;;",
0,
"&0{%1.0p]1}@!(y15:%25residual-pair?)",
"car",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25car;l2:y4:%25ckp;y1:x;"
";;;l2:y1:_;y13:%25residual-car;;",
0,
"&0{%1.0%pa]1}@!(y13:%25residual-car)",
"set-car!",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:v;;l3:y7:%25setcar;l2:y4:%25c"
"kp;y1:x;;y1:v;;;l2:y1:_;y18:%25residual-set-car!;;",
0,
"&0{%2.1,.1%pa!]2}@!(y18:%25residual-set-car!)",
"cdr",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25cdr;l2:y4:%25ckp;y1:x;"
";;;l2:y1:_;y13:%25residual-cdr;;",
0,
"&0{%1.0%pd]1}@!(y13:%25residual-cdr)",
"set-cdr!",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:v;;l3:y7:%25setcdr;l2:y4:%25c"
"kp;y1:x;;y1:v;;;l2:y1:_;y18:%25residual-set-cdr!;;",
0,
"&0{%2.1,.1%pd!]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",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l4:y3:c?r;y1:a;y1:a;y1:x;;;l2:y"
"1:_;y14:%25residual-caar;;",
0,
"&0{%1.0%pa%pa]1}@!(y14:%25residual-caar)",
"cadr",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l4:y3:c?r;y1:a;y1:d;y1:x;;;l2:y"
"1:_;y14:%25residual-cadr;;",
0,
"&0{%1.0%pd%pa]1}@!(y14:%25residual-cadr)",
"cdar",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l4:y3:c?r;y1:d;y1:a;y1:x;;;l2:y"
"1:_;y14:%25residual-cdar;;",
0,
"&0{%1.0%pa%pd]1}@!(y14:%25residual-cdar)",
"cddr",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l4:y3:c?r;y1:d;y1:d;y1:x;;;l2:y"
"1:_;y14:%25residual-cddr;;",
0,
"&0{%1.0%pd%pd]1}@!(y14:%25residual-cddr)",
"caaar",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:a;y1:a;y1:a;y1:x;;"
";l2:y1:_;y15:%25residual-caaar;;",
0,
"&0{%1.0%pa%pa%pa]1}@!(y15:%25residual-caaar)",
"caadr",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:a;y1:a;y1:d;y1:x;;"
";l2:y1:_;y15:%25residual-caadr;;",
0,
"&0{%1.0%pd%pa%pa]1}@!(y15:%25residual-caadr)",
"cadar",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:a;y1:d;y1:a;y1:x;;"
";l2:y1:_;y15:%25residual-cadar;;",
0,
"&0{%1.0%pa%pd%pa]1}@!(y15:%25residual-cadar)",
"caddr",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:a;y1:d;y1:d;y1:x;;"
";l2:y1:_;y15:%25residual-caddr;;",
0,
"&0{%1.0%pd%pd%pa]1}@!(y15:%25residual-caddr)",
"cdaar",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:d;y1:a;y1:a;y1:x;;"
";l2:y1:_;y15:%25residual-cdaar;;",
0,
"&0{%1.0%pa%pa%pd]1}@!(y15:%25residual-cdaar)",
"cdadr",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:d;y1:a;y1:d;y1:x;;"
";l2:y1:_;y15:%25residual-cdadr;;",
0,
"&0{%1.0%pd%pa%pd]1}@!(y15:%25residual-cdadr)",
"cddar",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:d;y1:d;y1:a;y1:x;;"
";l2:y1:_;y15:%25residual-cddar;;",
0,
"&0{%1.0%pa%pd%pd]1}@!(y15:%25residual-cddar)",
"cdddr",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l5:y3:c?r;y1:d;y1:d;y1:d;y1:x;;"
";l2:y1:_;y15:%25residual-cdddr;;",
0,
"&0{%1.0%pd%pd%pd]1}@!(y15:%25residual-cdddr)",
"caaaar",
"l4: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:y1:_;y16:%25residual-caaaar;;",
0,
"&0{%1.0%pa%pa%pa%pa]1}@!(y16:%25residual-caaaar)",
"caaadr",
"l4: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:y1:_;y16:%25residual-caaadr;;",
0,
"&0{%1.0%pd%pa%pa%pa]1}@!(y16:%25residual-caaadr)",
"caadar",
"l4: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:y1:_;y16:%25residual-caadar;;",
0,
"&0{%1.0%pa%pd%pa%pa]1}@!(y16:%25residual-caadar)",
"caaddr",
"l4: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:y1:_;y16:%25residual-caaddr;;",
0,
"&0{%1.0%pd%pd%pa%pa]1}@!(y16:%25residual-caaddr)",
"cadaar",
"l4: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:y1:_;y16:%25residual-cadaar;;",
0,
"&0{%1.0%pa%pa%pd%pa]1}@!(y16:%25residual-cadaar)",
"cadadr",
"l4: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:y1:_;y16:%25residual-cadadr;;",
0,
"&0{%1.0%pd%pa%pd%pa]1}@!(y16:%25residual-cadadr)",
"caddar",
"l4: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:y1:_;y16:%25residual-caddar;;",
0,
"&0{%1.0%pa%pd%pd%pa]1}@!(y16:%25residual-caddar)",
"cadddr",
"l4: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:y1:_;y16:%25residual-cadddr;;",
0,
"&0{%1.0%pd%pd%pd%pa]1}@!(y16:%25residual-cadddr)",
"cdaaar",
"l4: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:y1:_;y16:%25residual-cdaaar;;",
0,
"&0{%1.0%pa%pa%pa%pd]1}@!(y16:%25residual-cdaaar)",
"cdaadr",
"l4: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:y1:_;y16:%25residual-cdaadr;;",
0,
"&0{%1.0%pd%pa%pa%pd]1}@!(y16:%25residual-cdaadr)",
"cdadar",
"l4: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:y1:_;y16:%25residual-cdadar;;",
0,
"&0{%1.0%pa%pd%pa%pd]1}@!(y16:%25residual-cdadar)",
"cdaddr",
"l4: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:y1:_;y16:%25residual-cdaddr;;",
0,
"&0{%1.0%pd%pd%pa%pd]1}@!(y16:%25residual-cdaddr)",
"cddaar",
"l4: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:y1:_;y16:%25residual-cddaar;;",
0,
"&0{%1.0%pa%pa%pd%pd]1}@!(y16:%25residual-cddaar)",
"cddadr",
"l4: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:y1:_;y16:%25residual-cddadr;;",
0,
"&0{%1.0%pd%pa%pd%pd]1}@!(y16:%25residual-cddadr)",
"cdddar",
"l4: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:y1:_;y16:%25residual-cdddar;;",
0,
"&0{%1.0%pa%pd%pd%pd]1}@!(y16:%25residual-cdddar)",
"cddddr",
"l4: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:y1:_;y16:%25residual-cddddr;;",
0,
"&0{%1.0%pd%pd%pd%pd]1}@!(y16:%25residual-cddddr)",
"cons",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25cons;y1:x;y1:y;;;"
"l2:y1:_;y14:%25residual-cons;;",
0,
"&0{%2.1,.1c]2}@!(y14:%25residual-cons)",
"list?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25listp;y1:x;;;l2:y1:_;y"
"15:%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",
"l5: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:y1:_;y19:%25res"
"idual-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",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25llen;l2:y4:%25ckl;y1:x"
";;;;l2:y1:_;y16:%25residual-length;;",
0,
"&0{%1.0%lg]1}@!(y16:%25residual-length)",
"list-ref",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:i;;l3:y5:%25lget;l2:y4:%25ckl"
";y1:x;;l2:y4:%25cki;y1:i;;;;l2:y1:_;y18:%25residual-list-ref;;",
0,
"&0{%2.1%i,.1%lL4]2}@!(y18:%25residual-list-ref)",
"list-set!",
"l4:y12:syntax-rules;n;l2:l4:y1:_;y1:x;y1:i;y1:v;;l4:y5:%25lput;l2:y4:%"
"25ckl;y1:x;;l2:y4:%25cki;y1:i;;y1:v;;;l2:y1:_;y19:%25residual-list-set"
"!;;",
0,
"&0{%3.2,.2%i,.2%lL5]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;l2:y4:%25ckl;y1:x;;y1:y;;;l2:l5"
":y1:_;y1:x;y1:y;y1:z;y3:...;;l3:y5:%25lcat;l2:y4:%25ckl;y1:x;;l4:y6:ap"
"pend;y1:y;y1:z;y3:...;;;;l2:y1:_;y16:%25residual-append;;",
"memq",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:v;y1:y;;l3:y5:%25memq;y1:v;l2:y4:%"
"25ckl;y1:y;;;;l2:y1:_;y14:%25residual-memq;;",
0,
"&0{%2.1%l,.1A0]2}@!(y14:%25residual-memq)",
"memv",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:v;y1:y;;l3:y5:%25memv;y1:v;l2:y4:%"
"25ckl;y1:y;;;;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",
"l5: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:y1:_;y16:%25residual-member;;",
"assq",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:v;y1:y;;l3:y5:%25assq;y1:v;l2:y4:%"
"25ckl;y1:y;;;;l2:y1:_;y14:%25residual-assq;;",
0,
"&0{%2.1%l,.1A3]2}@!(y14:%25residual-assq)",
"assv",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:v;y1:y;;l3:y5:%25assv;y1:v;l2:y4:%"
"25ckl;y1:y;;;;l2:y1:_;y14:%25residual-assv;;",
0,
"&0{%2.1%l,.1A4]2}@!(y14:%25residual-assv)",
0,
"&0{%3.1p?{${.3a%pa,.3,.6[02}?{.1a]3}.2,.2d,.2,@(y6:%25assoc)[33}f]3}@!"
"(y6:%25assoc)",
"assoc",
"l5: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:y1:_;y15:%25residual-assoc;;",
"list-copy",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l3:y5:%25lcat;l2:y4:%25ckl;y1:x"
";;l2:y5:quote;n;;;;l2:y1:_;y19:%25residual-list-copy;;",
0,
"&0{%1n,.1%lL6]1}@!(y19:%25residual-list-copy)",
"list-tail",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:i;;l3:y6:%25ltail;l2:y4:%25ck"
"l;y1:x;;l2:y4:%25cki;y1:i;;;;l2:y1:_;y19:%25residual-list-tail;;",
0,
"&0{%2.1%i,.1%lA6]2}@!(y19:%25residual-list-tail)",
"last-pair",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25lpair;l2:y4:%25ckp;y1:"
"x;;;;l2:y1:_;y19:%25residual-last-pair;;",
0,
"&0{%1.0%pA7]1}@!(y19:%25residual-last-pair)",
"reverse",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25lrev;l2:y4:%25ckl;y1:x"
";;;;l2:y1:_;y17:%25residual-reverse;;",
0,
"&0{%1.0%lA8]1}@!(y17:%25residual-reverse)",
"reverse!",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y6:%25lrevi;l2:y4:%25ckl;y1:"
"x;;;;l2:y1:_;y18:%25residual-reverse!;;",
0,
"&0{%1.0%lA9]1}@!(y18:%25residual-reverse!)",
"list*",
"l6: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:y1:_;y15:%25residual-list*;;",
"cons*",
"l4:y12:syntax-rules;n;l2:py1:_;y4:args;;py5:list*;y4:args;;;l2:y1:_;y5"
":list*;;",
"map",
"l4: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:y1:_;y13:%25residual-map;;",
"for-each",
"l4: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:y1:_;y18:%25residual-for-each;;",
"vector?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25vecp;y1:x;;;l2:y1:_;y1"
"7:%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",
"l5:y12:syntax-rules;n;l2:l2:y1:_;y1:n;;l3:y4:%25vmk;l2:y4:%25ckk;y1:n;"
";f;;;l2:l3:y1:_;y1:n;y1:v;;l3:y4:%25vmk;l2:y4:%25ckk;y1:n;;y1:v;;;l2:y"
"1:_;y21:%25residual-make-vector;;",
"vector-length",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25vlen;l2:y4:%25ckv;y1:x"
";;;;l2:y1:_;y23:%25residual-vector-length;;",
0,
"&0{%1.0%vV3]1}@!(y23:%25residual-vector-length)",
"vector-ref",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:i;;l3:y5:%25vget;l2:y4:%25ckv"
";y1:x;;l2:y4:%25cki;y1:i;;;;l2:y1:_;y20:%25residual-vector-ref;;",
0,
"&0{%2.1%i,.1%vV4]2}@!(y20:%25residual-vector-ref)",
"vector-set!",
"l4:y12:syntax-rules;n;l2:l4:y1:_;y1:x;y1:i;y1:v;;l4:y5:%25vput;l2:y4:%"
"25ckv;y1:x;;l2:y4:%25cki;y1:i;;y1:v;;;l2:y1:_;y21:%25residual-vector-s"
"et!;;",
0,
"&0{%3.2,.2%i,.2%vV5]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;l2:y4:%25ckv;y1"
":x;;l2:y4:%25ckv;y1:y;;;;l2:l5:y1:_;y1:x;y1:y;y1:z;y3:...;;l3:y13:vect"
"or-append;y1:x;l4:y13:vector-append;y1:y;y1:z;y3:...;;;;l2:y1:_;y23:%2"
"5residual-vector-append;;",
"vector->list",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25vtol;l2:y4:%25ckv;y1:x"
";;;;l2:y1:_;y22:%25residual-vector->list;;",
0,
"&0{%1.0%vX0]1}@!(y22:%25residual-vector->list)",
"list->vector",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25ltov;l2:y4:%25ckl;y1:x"
";;;;l2:y1:_;y22:%25residual-list->vector;;",
0,
"&0{%1.0%lX1]1}@!(y22:%25residual-list->vector)",
"string?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25strp;y1:x;;;l2:y1:_;y1"
"7:%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;l2:y4:%25ck"
"c;y1:c;;y3:...;;;l2:y1:_;y16:%25residual-string;;",
"make-string",
"l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l3:y4:%25smk;l2:y4:%25ckk;y1:x;"
";c ;;;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25smk;l2:y4:%25ckk;y1:x;;l2:y4:%25c"
"kc;y1:y;;;;l2:y1:_;y21:%25residual-make-string;;",
"string-length",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25slen;l2:y4:%25cks;y1:x"
";;;;l2:y1:_;y23:%25residual-string-length;;",
0,
"&0{%1.0%sS3]1}@!(y23:%25residual-string-length)",
"string-ref",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:i;;l3:y5:%25sget;l2:y4:%25cks"
";y1:x;;l2:y4:%25cki;y1:i;;;;l2:y1:_;y20:%25residual-string-ref;;",
0,
"&0{%2.1%i,.1%sS4]2}@!(y20:%25residual-string-ref)",
"string-set!",
"l4:y12:syntax-rules;n;l2:l4:y1:_;y1:x;y1:i;y1:v;;l4:y5:%25sput;l2:y4:%"
"25cks;y1:x;;l2:y4:%25cki;y1:i;;l2:y4:%25ckc;y1:v;;;;l2:y1:_;y21:%25res"
"idual-string-set!;;",
0,
"&0{%3.2%c,.2%i,.2%sS5]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;l2:y4:%25cks;y1:x;;l2:y4:%25"
"cks;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-str"
"ing-append;;",
"substring",
"l4:y12:syntax-rules;n;l2:l4:y1:_;y1:x;y1:s;y1:e;;l4:y5:%25ssub;l2:y4:%"
"25cks;y1:x;;l2:y4:%25cki;y1:s;;l2:y4:%25cki;y1:e;;;;l2:y1:_;y19:%25res"
"idual-substring;;",
0,
"&0{%3.2%i,.2%i,.2%sS7]3}@!(y19:%25residual-substring)",
"string-cmp",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25scmp;l2:y4:%25cks"
";y1:x;;l2:y4:%25cks;y1:y;;;;l2:y1:_;y20:%25residual-string-cmp;;",
0,
"&0{%2.1%s,.1%sO2]2}@!(y20:%25residual-string-cmp)",
"string=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25seq;l2:y4:%25cks;"
"y1:x;;l2:y4:%25cks;y1:y;;;;l2:y1:_;y18:%25residual-string<?;;",
0,
"&0{%2.1%s,.1%sS=]2}@!(y18:%25residual-string<?)",
"string<?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25slt;l2:y4:%25cks;"
"y1:x;;l2:y4:%25cks;y1:y;;;;l2:y1:_;y18:%25residual-string<?;;",
0,
"&0{%2.1%s,.1%sS<]2}@!(y18:%25residual-string<?)",
"string<=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25sle;l2:y4:%25cks;"
"y1:x;;l2:y4:%25cks;y1:y;;;;l2:y1:_;y19:%25residual-string<=?;;",
0,
"&0{%2.1%s,.1%sS>!]2}@!(y19:%25residual-string<=?)",
"string>?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25sgt;l2:y4:%25cks;"
"y1:x;;l2:y4:%25cks;y1:y;;;;l2:y1:_;y18:%25residual-string>?;;",
0,
"&0{%2.1%s,.1%sS>]2}@!(y18:%25residual-string>?)",
"string>=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y4:%25sge;l2:y4:%25cks;"
"y1:x;;l2:y4:%25cks;y1:y;;;;l2:y1:_;y19:%25residual-string>=?;;",
0,
"&0{%2.1%s,.1%sS<!]2}@!(y19:%25residual-string>=?)",
"string-ci-cmp",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y6:%25sicmp;l2:y4:%25ck"
"s;y1:x;;l2:y4:%25cks;y1:y;;;;l2:y1:_;y20:%25residual-string-cmp;;",
0,
"&0{%2.1%s,.1%sO3]2}@!(y20:%25residual-string-cmp)",
"string-ci=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25sieq;l2:y4:%25cks"
";y1:x;;l2:y4:%25cks;y1:y;;;;l2:y1:_;y18:%25residual-string<?;;",
0,
"&0{%2.1%s,.1%sSi=]2}@!(y18:%25residual-string<?)",
"string-ci<?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25silt;l2:y4:%25cks"
";y1:x;;l2:y4:%25cks;y1:y;;;;l2:y1:_;y18:%25residual-string<?;;",
0,
"&0{%2.1%s,.1%sSi<]2}@!(y18:%25residual-string<?)",
"string-ci<=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25sile;l2:y4:%25cks"
";y1:x;;l2:y4:%25cks;y1:y;;;;l2:y1:_;y19:%25residual-string<=?;;",
0,
"&0{%2.1%s,.1%sSi>!]2}@!(y19:%25residual-string<=?)",
"string-ci>?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25sigt;l2:y4:%25cks"
";y1:x;;l2:y4:%25cks;y1:y;;;;l2:y1:_;y18:%25residual-string>?;;",
0,
"&0{%2.1%s,.1%sSi>]2}@!(y18:%25residual-string>?)",
"string-ci>=?",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:y;;l3:y5:%25sige;l2:y4:%25cks"
";y1:x;;l2:y4:%25cks;y1:y;;;;l2:y1:_;y19:%25residual-string>=?;;",
0,
"&0{%2.1%s,.1%sSi<!]2}@!(y19:%25residual-string>=?)",
"string->list",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25stol;l2:y4:%25cks;y1:x"
";;;;l2:y1:_;y22:%25residual-string->list;;",
0,
"&0{%1.0%sX2]1}@!(y22:%25residual-string->list)",
"list->string",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25ltos;l2:y4:%25ckl;y1:x"
";;;;l2:y1:_;y22:%25residual-list->string;;",
0,
"&0{%1.0%lX3]1}@!(y22:%25residual-list->string)",
"fixnum->string",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:r;;l3:y5:%25itos;l2:y4:%25cki"
";y1:x;;l2:y4:%25cki;y1:r;;;;l2:y1:_;y24:%25residual-fixnum->string;;",
0,
"&0{%2.1%i,.1%iX6]2}@!(y24:%25residual-fixnum->string)",
"string->fixnum",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:r;;l3:y5:%25stoi;l2:y4:%25cks"
";y1:x;;l2:y4:%25cki;y1:r;;;;l2:y1:_;y24:%25residual-string->fixnum;;",
0,
"&0{%2.1%i,.1%sX7]2}@!(y24:%25residual-string->fixnum)",
"flonum->string",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25jtos;l2:y4:%25ckj;y1:x"
";;;;l2:y1:_;y24:%25residual-flonum->string;;",
0,
"&0{%1.0%jE6]1}@!(y24:%25residual-flonum->string)",
"string->flonum",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25stoj;l2:y4:%25cks;y1:x"
";;;;l2:y1:_;y24:%25residual-string->flonum;;",
0,
"&0{%1.0%sE7]1}@!(y24:%25residual-string->flonum)",
"number->string",
"l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:r;;l3:y5:%25ntos;l2:y4:%25cki"
";y1:x;;l2:y4:%25cki;y1:r;;;;l2:l2:y1:_;y1:x;;l3:y5:%25ntos;l2:y4:%25ck"
"i;y1:x;;i10;;;l2:y1:_;y24:%25residual-number->string;;",
"string->number",
"l5:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:r;;l3:y5:%25ston;l2:y4:%25cks"
";y1:x;;l2:y4:%25cki;y1:r;;;;l2:l2:y1:_;y1:x;;l3:y5:%25ston;l2:y4:%25ck"
"s;y1:x;;i10;;;l2:y1:_;y24:%25residual-string->number;;",
"procedure?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25funp;y1:x;;;l2:y1:_;y2"
"0:%25residual-procedure?;;",
0,
"&0{%1.0K0]1}@!(y20:%25residual-procedure?)",
"apply",
"l5:y12:syntax-rules;n;l2:l3:y1:_;y1:p;y1:l;;l3:y5:%25appl;y1:p;l2:y4:%"
"25ckl;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: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;;",
"input-port?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25ipp;y1:x;;;l2:y1:_;y21"
":%25residual-input-port?;;",
0,
"&0{%1.0P00]1}@!(y21:%25residual-input-port?)",
"output-port?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25opp;y1:x;;;l2:y1:_;y22"
":%25residual-output-port?;;",
0,
"&0{%1.0P01]1}@!(y22:%25residual-output-port?)",
"eof-object?",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25eofp;y1:x;;;l2:y1:_;y2"
"1:%25residual-eof-object?;;",
0,
"&0{%1.0Y9]1}@!(y21:%25residual-eof-object?)",
"current-input-port",
"l4:y12:syntax-rules;n;l2:l1:y1:_;;l1:y4:%25sip;;;l2:y1:_;y28:%25residu"
"al-current-input-port;;",
0,
"&0{%0P10]0}@!(y28:%25residual-current-input-port)",
"current-ouput-port",
"l4:y12:syntax-rules;n;l2:l1:y1:_;;l1:y4:%25sop;;;l2:y1:_;y28:%25residu"
"al-current-ouput-port;;",
0,
"&0{%0P11]0}@!(y28:%25residual-current-ouput-port)",
"current-error-port",
"l4:y12:syntax-rules;n;l2:l1:y1:_;;l1:y4:%25sep;;;l2:y1:_;y28:%25residu"
"al-current-error-port;;",
0,
"&0{%0P12]0}@!(y28:%25residual-current-error-port)",
"open-output-string",
"l4:y12:syntax-rules;n;l2:l1:y1:_;;l1:y4:%25oos;;;l2:y1:_;y28:%25residu"
"al-open-output-string;;",
0,
"&0{%0P51]0}@!(y28:%25residual-open-output-string)",
"open-input-file",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25otip;l2:y4:%25cks;y1:x"
";;;;l2:y1:_;y25:%25residual-open-input-file;;",
0,
"&0{%1.0%sP40]1}@!(y25:%25residual-open-input-file)",
"open-output-file",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y5:%25otop;l2:y4:%25cks;y1:x"
";;;;l2:y1:_;y26:%25residual-open-output-file;;",
0,
"&0{%1.0%sP41]1}@!(y26:%25residual-open-output-file)",
"open-input-string",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25ois;l2:y4:%25cks;y1:x;"
";;;l2:y1:_;y27:%25residual-open-input-string;;",
0,
"&0{%1.0%sP50]1}@!(y27:%25residual-open-input-string)",
"close-input-port",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25cip;l2:y4:%25ckr;y1:x;"
";;;l2:y1:_;y26:%25residual-close-input-port;;",
0,
"&0{%1.0%rP60]1}@!(y26:%25residual-close-input-port)",
"close-output-port",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25cop;l2:y4:%25ckw;y1:x;"
";;;l2:y1:_;y27:%25residual-close-output-port;;",
0,
"&0{%1.0%wP61]1}@!(y27:%25residual-close-output-port)",
"get-output-string",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y4:%25gos;l2:y4:%25ckw;y1:x;"
";;;l2:y1:_;y27:%25residual-get-output-string;;",
0,
"&0{%1.0%wP9]1}@!(y27:%25residual-get-output-string)",
"write-char",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:p;;l3:y4:%25wrc;l2:y4:%25ckc;"
"y1:x;;l2:y4:%25ckw;y1:p;;;;l2:y1:_;y20:%25residual-write-char;;",
0,
"&0{%2.1%w,.1%cW0]2}@!(y20:%25residual-write-char)",
"write-string",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:p;;l3:y4:%25wrs;l2:y4:%25cks;"
"y1:x;;l2:y4:%25ckw;y1:p;;;;l2:y1:_;y22:%25residual-write-string;;",
0,
"&0{%2.1%w,.1%sW1]2}@!(y22:%25residual-write-string)",
"display",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:p;;l3:y5:%25wrcd;y1:x;l2:y4:%"
"25ckw;y1:p;;;;l2:y1:_;y17:%25residual-display;;",
0,
"&0{%2.1%w,.1W4]2}@!(y17:%25residual-display)",
"write",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:p;;l3:y5:%25wrcw;y1:x;l2:y4:%"
"25ckw;y1:p;;;;l2:y1:_;y15:%25residual-write;;",
0,
"&0{%2.1%w,.1W5]2}@!(y15:%25residual-write)",
"newline",
"l4:y12:syntax-rules;n;l2:l2:y1:_;y1:p;;l2:y5:%25wrnl;l2:y4:%25ckw;y1:p"
";;;;l2:y1:_;y17:%25residual-newline;;",
0,
"&0{%1.0%wW6]1}@!(y17:%25residual-newline)",
"write-shared",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:p;;l3:y5:%25wrhw;y1:x;l2:y4:%"
"25ckw;y1:p;;;;l2:y1:_;y22:%25residual-write-shared;;",
0,
"&0{%2.1%w,.1W7]2}@!(y22:%25residual-write-shared)",
"write-simple",
"l4:y12:syntax-rules;n;l2:l3:y1:_;y1:x;y1:p;;l3:y5:%25wriw;y1:x;l2:y4:%"
"25ckw;y1:p;;;;l2:y1:_;y22:%25residual-write-simple;;",
0,
"&0{%2.1%w,.1W8]2}@!(y22:%25residual-write-simple)",
0,
"&0{%!0.0]1}@!(y14:%25residual-list)",
0,
"&0{%!1.0u?{f,.2,@(y10:%25make-list)[22}.0%pa,.2,@(y10:%25make-list)[22"
"}@!(y19:%25residual-make-list)",
0,
"&0{%!1.0u?{f,.2%kV2]2}.0%pa,.2%kV2]2}@!(y21:%25residual-make-vector)",
0,
"&0{%!1.0u?{'(c ),.2%kS2]2}.0%pa%c,.2%kS2]2}@!(y21:%25residual-make-str"
"ing)",
0,
"&0{%!0.0u,.0?{.0]2}.1%pd,.2%pa,,#0.0,&1{%2.1u,.0?{.0]3}.2%pa,.0%n,.3%n"
"=?{.3%pd,.1,:0^[42}f]4}.!0.0^_1[22}@!(y10:%25residual=)",
0,
"&0{%!0.0u,.0?{.0]2}.1%pd,.2%pa,,#0.0,&1{%2.1u,.0?{.0]3}.2%pa,.0%n,.3%n"
"<?{.3%pd,.1,:0^[42}f]4}.!0.0^_1[22}@!(y10:%25residual<)",
0,
"&0{%!0.0u,.0?{.0]2}.1%pd,.2%pa,,#0.0,&1{%2.1u,.0?{.0]3}.2%pa,.0%n,.3%n"
">?{.3%pd,.1,:0^[42}f]4}.!0.0^_1[22}@!(y10:%25residual>)",
0,
"&0{%!0.0u,.0?{.0]2}.1%pd,.2%pa,,#0.0,&1{%2.1u,.0?{.0]3}.2%pa,.0%n,.3%n"
">!?{.3%pd,.1,:0^[42}f]4}.!0.0^_1[22}@!(y11:%25residual<=)",
0,
"&0{%!0.0u,.0?{.0]2}.1%pd,.2%pa,,#0.0,&1{%2.1u,.0?{.0]3}.2%pa,.0%n,.3%n"
"<!?{.3%pd,.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}.1%pd,.2%pa%n,.2%nM2,:0^[22}.!0.0^_1["
"22}@!(y13:%25residual-min)",
0,
"&0{%!1.0,.2,,#0.0,&1{%2.1u?{.0]2}.1%pd,.2%pa%n,.2%nM3,:0^[22}.!0.0^_1["
"22}@!(y13:%25residual-max)",
0,
"&0{%!0.0u?{'0]1}.0%pd,.1%pa,,#0.0,&1{%2.1u?{.0]2}.1%pd,.2%pa%n,.2%n+,:"
"0^[22}.!0.0^_1[12}@!(y10:%25residual+)",
0,
"&0{%!0.0u?{'1]1}.0%pd,.1%pa,,#0.0,&1{%2.1u?{.0]2}.1%pd,.2%pa%n,.2%n*,:"
"0^[22}.!0.0^_1[12}@!(y10:%25residual*)",
0,
"&0{%!1.0u?{.1%n-!]2}.0,.2,,#0.0,&1{%2.1u?{.0]2}.1%pd,.2%pa%n,.2%n-,:0^"
"[22}.!0.0^_1[22}@!(y10:%25residual-)",
0,
"&0{%!1.0u?{.1%n,'1/]2}.0,.2,,#0.0,&1{%2.1u?{.0]2}.1%pd,.2%pa%n,.2%n/,:"
"0^[22}.!0.0^_1[22}@!(y10:%25residual/)",
0,
"&0{%!2.0u?{.2%l,.2A2]3}.0%pa,.3,.3,@(y7:%25member)[33}@!(y16:%25residu"
"al-member)",
0,
"&0{%!2.0u?{.2%l,.2A5]3}.0%pa,.3,.3,@(y6:%25assoc)[33}@!(y15:%25residua"
"l-assoc)",
0,
"&0{%!1.0,.2,,#0.0,&1{%2.1u?{.0]2}${.3%pd,.4%pa,:0^[02},.1c]2}.!0.0^_1["
"22}@!(y15:%25residual-list*)",
0,
"&0{%!2${.2,.5,,#0.0,&1{%2.1u?{.0]2}${.3%pd,.4%pa,:0^[02},.1c]2}.!0.0^_"
"1[02}%l,.2,@(y5:%25appl)[32}@!(y15:%25residual-apply)",
0,
"&0{%!2.0u?{n,.3,,#0.0,.5,&2{%2.0p?{.1,${.3%pa,:0[01}c,.1%pd,:1^[22}.1%"
"lA9]2}.!0.0^_1[32}n,.1,.4c,,#0.0,.5,&2{%2${.2,,#0.0,&1{%1.0u,.0?{.0]2}"
".1%pap?{.1%pd,: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%"
"l,:0,@(y5:%25appl)[02}c,@(y13:%25residual-cdr),${.4,,#0.4,.1,&2{%1.0p?"
"{${.2d,:0^[01},${.3a,:1[01}c]1}n]1}.!0.0^_1[01}_1,:1^[22}.1%lA9]2}.!0."
"0^_1[32}@!(y13:%25residual-map)",
0,
"&0{%!2.0u?{.2,,#0.3,.1,&2{%1.0p?{${.2%pa,:1[01}.0%pd,:0^[11}]1}.!0.0^_"
"1[31}.0,.3c,,#0.3,.1,&2{%1${.2,,#0.0,&1{%1.0u,.0?{.0]2}.1%pap?{.1%pd,:"
"0^[21}f]2}.!0.0^_1[01}?{${@(y13:%25residual-car),${.5,,#0.4,.1,&2{%1.0"
"p?{${.2d,:0^[01},${.3a,:1[01}c]1}n]1}.!0.0^_1[01}_1%l,: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{%!2.0u?{.2%sS3,'(c ),.1%kS2,'0,,#0.0,.3,.7,.9,.7,&5{%1:0%i,.1%iI<!?"
"{:3]1}${.2%i,:1%sS4,:2[01}%c,.1%i,:3%sS5.0'1%i,.1%iI+,: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}%lX3]3}@!(y10:string-map)",
0,
"&0{%!2.0u?{.2%vV3,f,.1%kV2,'0,,#0.0,.3,.8,.8,.7,&5{%1:0%i,.1%iI<!?{:3]"
"1}${.2%i,:2%vV4,:1[01},.1%i,:3%vV5.0'1%i,.1%iI+,:4^[11}.!0.0^_1[51}${@"
"(y22:%25residual-vector->list),${.5,.8c,,#0.4,.1,&2{%1.0p?{${.2d,:0^[0"
"1},${.3a,:1[01}c]1}n]1}.!0.0^_1[01}_1,.4c,@(y13:%25residual-map),@(y5:"
"%25appl)[02}%lX1]3}@!(y10:vector-map)",
0,
"&0{%!2.0u?{.2%sS3,'0,,#0.2,.6,.6,.3,&4{%1:3%i,.1%iI<!,.0?{.0]2}${.3%i,"
":2%sS4,:1[01}.1'1%i,.2%iI+,: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-each)",
0,
"&0{%!2.0u?{.2%vV3,'0,,#0.2,.6,.6,.3,&4{%1:3%i,.1%iI<!,.0?{.0]2}${.3%i,"
":2%vV4,:1[01}.1'1%i,.2%iI+,: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-each)",
0,
"&0{%!0.0,,#0.0,&1{%1.0u?{n]1}.0%pdu?{.0%pa]1}${.2%pd,:0^[01},.1%pa%lL6"
"]1}.!0.0^_1[11}@!(y16:%25residual-append)",
0,
"&0{%!0.0,,#0.0,&1{%1.0u?{'(s0:)]1}.0%pdu?{.0%pa]1}${.2%pd,:0^[01}%s,.1"
"%pa%sS6]1}.!0.0^_1[11}@!(y23:%25residual-string-append)",
0,
"&0{%!0.0,,#0.0,&1{%1.0u?{'(v0:)]1}.0%pdu?{.0%pa]1}${.2%pd,:0^[01}%v,.1"
"%pa%vV6]1}.!0.0^_1[11}@!(y23:%25residual-vector-append)",
0,
"&0{%!1.0u?{'(i10),.2%iE8]2}.0%pa%i,.2%iE8]2}@!(y24:%25residual-number-"
">string)",
0,
"&0{%!1.0u?{'(i10),.2%sE9]2}.0%pa%i,.2%sE9]2}@!(y24:%25residual-string-"
">number)",
0, 0
};
Reference in a new issue View git blame Copy permalink