,+ < d d WUP%P͘=s͐-͛P͒ņ1؂u!u.0_ ņ0P ظPņP. 0_ ظPņP. 0_]]_0 write-char0current-output-port< $$ WUP)P͘=t͐͒ņ1؂u!u ņ0'.P.PņP. 0P͓]]_ː0error0unbox0~s is not a box<$& $& 'WUP)P͘=t͐͒ņ1؂u!u"ņPņ[01ظ'.P.PņP. 0P͓]]_0error0set-box!0~s is not a Box<()$9$: ;d<$=$> ?WUP9P͘=t͐͒ņ1؂u!u~ņ0Ň1؂ u!u$ņ0ŇP. 0P͓7.Pņ0ŇP.0_P.0P͓!. P.$P.0P͓]]_ː0 string-copy0 string-append0g0number->string0error0symbol->string0 Non Symbol ~sinteger0Invalid Character: ~s<!$+$, -$/WUP-P͘=t͐͒_PWUPņP.0P͓!uņ0ظ'.P.PņP. 0P͓]]_ː0error0 integer->char0Invalid Integer: ~s0integer?<0d;d<WUP%P͘=t͐͒ņ1؂u=uņ1؂u!uņPņ[[19}(ņPņP.0_P. 0_]]_ː0 positive?0-<=dHdIWUP%P͘=t͐͒ņ1؂u=uņ1؂u!uņPņ[[19~(ņPņP.0_P. 0_]]_ː0 negative?0-<JdZ dZ d[WUP)P͘=t͐͒ņ1؂u=uņ1؂u!uņPņ[[19wņPņP.0_PņP.0_Pņ!uņņPظP. 0_]]_ː0=0 positive?0-<]dm dm dnWUP)P͘=t͐͒ņ1؂u=uņ1؂u!uņPņ[[19|wņPņP.0_PņP.0_Pņ!uņņPظP. 0_]]_ː0=0 negative?0-<pd}d}WUP%P͘=t͐͒ņ1؂u!uFņPظ[[19~!uظPņXX)؎ظņ4ņP.0_!uņP. 0_ņ]]_ː0-0 negative?<4d d dWUP)P͘=t͐͒ņPņP.0_PņP.0_PņP.0_PņPņ!uņņPņ!u7ņPņ!uņņ1!uņ!uņPņ P. 0_ņ ]]_ː0+0 remainder0 negative?exact0-0*0rand12!0/<|D $$ d$ $dd $$$d$dWUPUP͘=t͐͒ņP.@0_Pņ!u4PWUPņP.<0P͓1!uņPņ!uņXPWUPņP.40P͓Pņ!uņP.@0_ņ!u0.P.PņPņP. 0P͓ņP.@0_!uPWUPņPPWUPņP.$0_P. 0P͓P.0_P.0P͓PņP.(0_!u ظظP.0_7_PWUPņP.40P͓Pņ!uņP.80_ņ!u ظPWUPņP.40P͓!u ظPWUPņP.<0P͓Pņ!u[4PWUPņP.<0P͓Pņ!uņP.80_ņņ!uظPņPPWUPņP.40P͓!uņQņ PņP.0_ PWUPņP.00P͓|OņPMPWUPņP. 0P͓P.0_P.0P͓]]_ː0error0expt0undefined for values ~s and ~s0*0exp20log20-0even?0loop0sub10zero?0 positive?0integer?0 negative?<$%d&$&WUP)P͘=t͐͒ņPePWUPظP.0P͓P.0_P. 0P͓]]_ː0exp20*0 real-constant<(($7$8 $8$: $: ;d=WUP9P͘=t͐͒ņP.$0_!uhPWUPņP.0P͓PPWUPظP.0P͓P. 0P͓'.P. PņP.0P͓]]_0/0log20 real-constant0error0log0undefined for argument ~s0 positive?<?dNWUPņPņP-P͘=t͐͒ņ1؂!u!udņ PņPņPظP. 0_PņPظP. 0_P&Ņ0ŇP͓/ņ PņPņPņP&Ņ 0ŇP͓]]_ː0quotient=0 negative?0-0*0sub10add10+0abs0quotient<dd$WUPņP/P͘=t͐͒aPWUPņP.0P͓PPWUPņP.0P͓PņP.0_PņP.0_PPWUPņ PņPņ PņP&Ņ0ŇP͓Pņ0Pņ0ŇPņ!uCņPņ [Y9øu9u1ێ!uņņP. 0_%ņ!uņP. 0_ņ ]]_ː0-0 negative?0abs<< WUPP͘=t͐͒1ظ]]_ː<$ $$WUP)P͘=t͐͒ņPņPiPWUPņP.0P͓!uņDPWUPņP.0P͓ņ0Ň]]_ː0loop0sub10zero?< $$ WUPņ PņP5P͘=t͐͒ņ1؂u!uBņ0PPWUPņ0ŇP&Ņ0ŇP͓͜Uņ1؂u!u&Ņ 0Ň0'.P.PņP. 0P͓]]_ː0error0append0~s is not a proper list< WUPņP&ŅP*P͘=t͐͒ņ1؂u!uņ\ņPPWUPņ0Pņ0ŇP&Ņ 0ŇP͓P&Ņ0ŇP͓]]_ː<,, dWUPņP/P͘=s͐-͛P͒ņP.0_PņPظ[Y9øu9u1ێ!u ظ*ņPظ[Y9øu9u1ێ!u ņ0ņPظ[Y9øu9u1ێ!u_ņ0P1ظPņ͙. 0_Ş0Oņ0ŇP͓jņ0Pņ0ŇP1ظPņ͙.0_Ş0Oņ0ŇP͓]]_0length< WUPņP&ŅP*P͘=t͐͒ņ1؂u!uņ\ņPPWUPņ0Pņ0ŇP&Ņ 0ŇP͓P&Ņ0ŇP͓]]_ː<$ $F$G$H I, dJWUPņP;P͘=s͐-͛P͒ņP. 0_PņPظ[Y9øu9u1ێ!u ظņPظ[Y9øu9u1ێ!u ņ0ņPظ[Y9øu9u1ێ!uņ0Pņ0Ň0Pņ1؂u!uņņPņ1؂u!ueņ0Ň1؂u!u+ņPņ[0ņņ0Ň3PWUP.P.PņP.0P͓jņ0Pņ0ŇP1ظPņ͙.0_Ş0Oņ0ŇP͓]]_ː0loop0error0append0~s is not a proper list0length< LWUPņP#P͘=t͐͒ņ1؂u!uBņ0PPWUPņ0ŇP&Ņ0ŇP͓͜ņ]]_ː< VWUPņP#P͘=t͐͒ņ1؂u!ugwPWUPņ0P&Ņ0ŇP͓PPWUPņ0ŇP&Ņ0ŇP͓͜ņ]]_ː<b$o$p q $rWUP-P͘=t͐͒ņ1؂t!u*.P.PņP. 0P͓PņPņ0Ň1؂u!uņ0Ňņ]]_ː0error0 last-pair0~s is not a pair0loop:PWUPņP.PņPņ0P.0P͓ ]]_ː0loop0error0&Length Error or not a proper list~s ~s0=0 length-check<06$I$I$JWUPņPņP5P͘=t͐͒ņ1؂u!uPWUPņ0PPWUP.0PņP. 0P͓͜P&ŅP͔PPWUPņ0ŇPPWUP.0PņP. 0P͓P&Ņ 0ŇP͓͜ظ]]_0map0car0cdr<K $h$idj,6WUPņPņP9P͘=s͐-͛P͒ņ1؂u!u 1ظ.PWUP. PņPņP&ŅP͓PWUP. PņP&Ņ P͓ņ1؂u!uظPņPņ1؂u!uP-PWUPņ0PņP͓Pņ͜ņ0ŇņP.0_\ņPņP1ظPņ͙.0_Ş0Oņ0ŇP͓ ]]_0map0loop0reverse!$?$@WUP)P͘=s͐-͛P͒ņ1؂u!u. ņ0Pņ0ŇPņ1؂u!uņPPWUPņPņ0P.0P͓ņ0Ň]]_ː00loop0%string-append<\B GWUPņP'P͘=t͐͒ņP. P&ŅP͓]]_ː0<<I $\$] _$`WUP-P͘=t͐͒ņ1؂ u!u 1ظ3PWUP.P.PņP. 0P͓ظPņPņ0[[19u!uņ_ņPņPņPņ[0Ã0ظstring0 *print-radix*<d $ dWUP-P͘=t͐͒ņ1؂u!u. 0_Yņ0P.0_!u ņ0,ņP.Pņ0P.0P͓]]_0current-output-port0error0Invalid Port: ~s0 output-port?<hd[$\ ]d^d_$` ` a a b b d e e dg h$idj j k l mdnWUP&ŅP&ŅP&ŅP&Ņ PņPņP&ŅPP͘=t͐͒ņ1؂u!uņ0ŇPņ1؂ u!uņP&Ņ P&ŅP͓QOPWUP.PņP.0_P.0P͓P&Ņ P. 0_Sņ1؂u!u(ظP&Ņ P.0_PWUPņ0P&Ņ0ŇP͓ņ0ŇPņ1؂u!u!)ظP&Ņ P.0_ņ1؂u!us ظP&Ņ P.0_PWUPņ0P&Ņ0ŇP͓ņ0ŇIn.$P&Ņ P. 0_PWUPņP&Ņ0ŇP͓)ظP&Ņ P.0_ņP.d0_!uņP&Ņ P&ŅP͓Zņ1؀u!uņPظ[Y9øu9u1ێ!u.(P&Ņ P. 0_ņPظ[Y9øu9u1ێ!u.,P&Ņ P. 0_~ņPظ[Y9øu9u1ێ!u.0P&Ņ P. 0_6ņP1ظ[Y9øu9u1ێ!u.4P&Ņ P. 0_ņPظ[Y9øu9u1ێ!u.8P&Ņ P. 0_ņ1؂u!uņP&Ņ P&ŅP͓pņ1؂u!u.<P&Ņ P. 0_:.@P&Ņ P. 0_ņP.D0_.ņ1؂ u!uņP&Ņ P&ŅP͓ņ1؂"u!uņ0P.HP&Ņ P. 0_ņPظP.P0_!u 1ظ PWUPņPظ[0@P&Ņ0ŇP͓ظPņPņ[[19u!u 1ظ| ظP&Ņ P.0_PWUPņPņ[0@P&Ņ0ŇP͓ņCۉe)ظP&Ņ P.0_Qņ1؂u!uM.TP&Ņ P. 0_ņ0P&Ņ0ŇP͓PWUPņP&Ņ P͓!u.XP&Ņ P. 0_ņ1؂*u!u.\P&Ņ P. 0_pņ1؂u!u.`P&Ņ P. 0_:.@P&Ņ P. 0_ņP.D0_]]_ː0 write-string0 string-append0g0number->string0 write-char0f0 . 0()0#t0#f0 #unspecified0 #undefined0#eof00%write0#(0vec-loop0=0#&0 000number?<o,WUP&Ņ PņPņP&ŅPņPAP͘=t͐͒PWUPņP1ظPņ͙. 0_Ş0Oņ0ŇP͓1ظ]]_uninterned-symbol0Argument must be a string: ~s0gensym$?$@WUP=P͘=t͐͒ņ1؂u!uņ0P.([Y9øu9u1ێ!uņOņ0P.[Y9øu9u1ێ!um.Pņ0Ň0PPWUP.0Pņ0Ň0ŇP.0P͓P. 0_[PWUPņ0P.$0P͓!u_PWUPņPPWUPņ0P. 0P͓P͓P.0P͓$.0PņP.0P͓ņ]]_ː0list*0lambda0map0expand0expand0 get-expander0 expander?0quote<A$N OWUP%P͘=t͐͒ņ0Ň1؂uPņ!u$ņ0Ň0Ň1؂uņ!u 1ظ,ņ0P.PņP. 0P͓]]_ː0error0Invalid Syntax ~svector0 vector->list0add10sub10=0expand0unquote-splicing0unquote0 quasiquote< $WUPņPņP-P͘=t͐͒cPWUPņP&Ņ 0ŇP͓P&Ņ!u(PWUPņP. 0P͓1ظņ]]_ː0check-qq-expansion ? , $@ $B , $C $E ,$F $G ,$H $I ,$J $K , $L $M  N dO ,A,Q,j,$P $Q $R ,$S ,,= $T $U ,P $V $W ,\ $W $X ,g $Y $Z ,x $Z $[ , $\ $\ , $] $^ , $_ $` , $a $b , $c $c , $d $e , $g $i WUPP͘=t͐͒. 0_.0O.0_.0O.0_. 0O.$0_.(0O.,0_.00O.40_.80O.<0_.@0O.D0_.H0O.L0_.P0O.T0_.X0O.\0_.`0O.d0_.h0O.l0_.p0O.t0_.x0O.|0_.0O.0_.0O.0.0O.0_.0O..0_.0O..0_.0O..0_.0O..0_.0O..0_.0O..0_.0O..0_.0O..0_.0O..0_.0O..0_. 0O..0_.0O.. 0_.$0O.(.,0_.00O.4.80_.<0O.@.D0_.H0O.L.P0_.T0O.X.\0_.`0O.d.h0_.l0O.p0_.t0O.x0_.|0O.0_.0O.0_.0O.0_.0O.0_.0O.0.0O.0_.0O.0.0O.0_.0O.0_.0O.0_.0O.0_.0O..0_.0O..0_.0O..0_.0O.1ظP1ظPņ͙ņ͙.0_Ş0O.0_Ş0O.0_.0O.. 0_.0O.0_.0O1ظPņ͙.0_Ş0Oņ0Ň. 0O1ظPņ͙.$0_Ş0Oņ0Ň.(0O1ظPņ͙.,0_Ş0Oņ0Ň.00O1ظPņ͙.40_Ş0Oņ0Ň.80O.<0_.@0O.D0_.H0O1ظPņ͙.L0_Ş0Oņ0Ň.P0O.T0_.X0O.\0_.`0O.0_P.0_P.0_PRPWUP.P0PņP.dPņP͓.h0OPWUP.`0PņP.lPņP͓.p0OPWUPPWUP.`0P.tPņP͓P.x0P.|PņP͓.0ObPWUP@PWUP.P0P.PņP͓P.x0P.PņP͓.0O .0_P.0_P.0_.0O.0_.0O.0_.0O.0_.0O.0_P1PWUP.P0PņP͓.0OdPWUP.H0PņP͓.0OPWUP.`0PņP͓.0O1ظظ.0Oظ.0Oظ.0O.0.0O.0_.0O.0_.0O.0P.0_.0O.0_.0O.0_. 0O.0_.0O.0_.0O. 0_.$0O.0_.(0O.,0.00O.40_.80OظP.t0_P.x0_P.0Pņ ͙ 1ظPņ͙.<0_Ş0O ظ.@0OPWUP.H0_P.L0_P.P0_Pņ0ŇP͓P.D0_.T0OkPWUP.\0_P.`0_P.d0_Pņ0ŇP͓P.X0_.h0O.l0_.p0O1ظ.|0_.0O.0_.0O.0_P.0_P.0_P.0_.0O.0_.0O.0_.0O 1ظPņ͙.0_Ş0Oņ0Ň.0O..0_.0O..0_.0O..0_.0O..0_.0O..0_.0O..0_.0O..ظP1ظP1ظPņ͙ņ͙.0_Ş0OظPņ͙1ظP1ظP1ظPņ͙ ņ͙ņ͙. 0_Ş0O.0_Ş0O.0_Ş0O.0_ Ş0OPWUP. Pņ0ŇP.0P͓MPWUP.$P.(0_P.0P͓PWUP.,P.00_P.0P͓1ظ.40_.80O.<.@0_.D0O.H.L0_.P0O.T.X0_.\0O.`.d0_.h0O.l.p0_.t0O.x.|0_.0O..0_.0O..0_.0O..0_.0O..0_.0O..0_.0O.]]_ː0newline0unbox0set-box!0symbol->string0 eof-object?0null?0boolean?0pair?0bignum?0box?0symbol?0string?0char?0vector?0not0 procedure?0proc?0char=?0char=?0 char-ci=?0 char-ci=?0char?0char>?0 char-ci>?0 char-ci>?0char<=?0char<=?0 char-ci<=?0 char-ci<=?0char>=?0char>=?0 char-ci>=?0 char-ci>=?0char-alphabetic?0char-alphabetic?0 char-numeric?0 char-numeric?0char-lower-case?0char-lower-case?0char-upper-case?0char-upper-case?0 char-downcase0 char-downcase0 char-upcase0 char-upcase0 char->integer0 char->integer0 integer->char0 integer->char0>0<0>=0<=0abs0modulo0sub101-0add101+0zero?0fixnum?0integer?0random0random0expt0expt0exp0exp0log0log0%bignum-quotient0%bignum-quotient0void0 list-tail0append0append!0 list-copy0 tree-copy0 last-pair0eq?0equal?0atom?0eqv?0member0member0memv0memv0assv0car0assq0assv0assoc0assoc0map0andmap0ormap0for-each0subst0substq0substv0t0nil0false0call/cc0call-with-current-continuation0string->symbol0 string-append0%string-append0 string-copy0string-downcase!0 substring0string=?0current-input-port0standard-input0current-output-port0standard-output0console0close-output-port0get-output-string0port?0 *print-radix*0write0display0writeln0uninterned-symbol?0string->uninterned-symbol0putprop0getprop0remprop0 syntax-check?0 syntax.so0install-expander0install-expander0remove-expander0remove-expander0 expand-top0 expand-top0 expander?0 expander?0 get-expander0 get-expander0expand0expand0 macrop.ss0gensym0install-expander0 quasiquote0unquote0unquote-splicing0format0format0printf0printf0fprintf0fprintf0exec0exec0shell0shell0dir0dir0 current-drive0 current-drive0 set-drive0 set-drive0freesp0freesp0gc0gc0autoload-from-file0autoload-from-file0autoload-macros-from-file0autoload-macros-from-file