[comp.binaries.atari.st] v10i038: fools -- Fools' Lisp

koreth@panarthea.ebay.sun.com (Steven Grimm) (03/07/90)

Submitted-by: gjh@hplb.hpl.hp.com (Graham Higgins)
Posting-number: Volume 10, Issue 38
Archive-name: fools/part03

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin part c fools.uac
MV71H:50=&V\>S!L$K%I8B4;KLM+U&WVQG<SA)2!%_@Y?:G[NR,H[1PMT.94En
MIPK\+ #!E,\NY(:JY9PAI'\RJH_ILMQ$/'CA2%CT@2*<7X$B^&%B#^##D3: m
M+CF6GFQ0#1W3I]&GP'3D4BH1<D;>P.$LW1<*<3?WCKL W4Y_=2/42A\^9>WCl
MP#\U0$Z*UK2LY9P$6GE]I=N^-RXB1&&,8^Q8>]W<2FP^%S@;.6DN/UG;!1M]k
MY-/:Y,5O1]?+9MO8@^V?@ >[!W[_:#-_64R;PE_,K_\8SBOH0H?==MI&Z2NDj
MZ>TA:WC3W4I?W0E0TE%T!]@PC "[7.[NYW.L!/,M2E7+\O7=$K,&(VRS;Z!Ki
MZWQYAK3J#N(?GHOB+JZC9J>Q3-9U=Y7T O7N[D X*VT]\FH+FGLT12(6&.*&h
M%=L:HJ7.YM]\1G'U][C6$K552$A*SAQK,]A6P!'B06 ;,AC:H-!B2KY K"':g
M_QXB(K0S@F,@6E9P=9-FP-LI<LP8<9 5(7?C>&R<.7J[W^#F&9;=4%BHYW$Uf
M87>LB&SM21^S*ELX7QOW*):K'=<AR)VZV')J??D$Y/4XI7U!]?.,V%'1G0X6e
MPR-S=CRM*C*E),FV(5N%@%B7A4F*DE8 L*<)#2PHG!D>0SI=ED!4WC8).XZ"d
M4N9MYZ10)Z4* >&'*;PXP=Q4F^-V4<:<S_!S[_@ H03!N#2=P@C()X\9?:+,c
M@W\L>FU!O#;SSA>! %LG]*($XM1+E4A?TC*28K2Q:I*$:J6/A'A$"8D\_0=,b
MTFO4#?H5B>T_+]@@!E3(S3QK?% $Q^4(FG'O; #"Q8$CR7,0:R%CX/4JWVD;a
M>#\?*?3W$I12 G;H]+^<0*;AT+*B^DM@(1+7B LH(PDXKOC(IO UTIOHP7,*z
M>"'K',=<)SLG?$NU+ -VEA"5.)""N%2%]&4IX;*)L3&9XL]^L+\1*IIKM1WCy
M:@17[,Q]=#KA]AG)MH%\@_3N].11PVIL=#80OX'RZB%CL9^$IM9@BB6J!0)Ux
M2"5XR/UG.Q]\S4KSNM2YHN=_2UA&9:^"! *F$$'M2(@O/ NH%N!? L\N/>&+w
MM^_4;.0M^_;$!ZW?9<$'@_MAZ$CW8%#3,0ARN&? IV9N3+*C:<>A7S?2G@'Jv
M&C$#]?B2CL*,*C0<9"E%-R#S^%3ME*^3.8)FRWG*_G#2P#-QL!3(08$/>"'&u
M%@%F9LO:F:H$;3 4<C$FL0!/]3]6 $Z,BEY%X6]#5?E9Z!VBX!E8RT/<_>,Ht
M%)?<_>4X+C&>V+CSML]]OG0H5CKG[CU(0DTBB*K0QA^>C)RFF9:T'1?8'&B-s
MZ.:>/AWP++L>($MY4L)C3,F&AAE/3)S)6&]7[<1]/S(S_@[;N^>8B3F'KC?Nr
M8:W4 ,<?5'>2GNGJ]CGU)7-=(O9_<CNO[D;TZY26JC+NI++JR%]U"F=4N_QRq
MR/(/I9_ .)GU3$)LM4 .;R;H$?5HR,<BY8;JT=K]\T2#+']$8"!KY9,913:>p
ME%7$RCR()R4=P]SA2WA^R*4H(WQT+&(85HRN$-%&ZL9.__)N_S[O%:$XL0LFo
MKNXAO$?D4/!A$2W8I?",=.UA<A60.Y<RK2 %UR6[X%UOG4-"R[=+H$)PZ358n
M7T_ N+;_3Z=GAC U__:K\>8>RN=G_R0 I^K_QEO5E>=NNH#=4 Z[<Y7DC[[*m
M_Z0GYQ&+'95^@AMWA@.^,M)#.3VJ?I>QQZZ.YHV>)K/2/I.=#TF2N;RXF'L#l
MG1+*1D45;\NDM9:76[+=O:-]VXP-]J8CU2Q7"CQUR2)XHNG4(V.N0)T/-G%Ak
M+GMR[!WO.56NWN'-JK\'&YR#<,U7T6Z%8<EDW&"^TG9".,1^;)W%"P@Q))UGj
MN/M3-\"#Y&)V:'_$+($J:/W!SMO!KVEMQVXN&JG:K]_]!,LEN$;#%H[W,W)Si
ML9AZ\7_F-D!'&"7/#AN!7+9O,O;8OU8B)8)7,/PSBY98!Q<M_QG%U5^(<3ZPh
M_A.)R)H'%NT *6OF(Y]#JZJ%#AM!$]/-W.'0#M,'Z[HS%%KIC!AWXIY$L]AAg
M.5ONGS66-[.[@K(UA.2W!1KTA&5W=J'I$:UFV;HXCX;)4D;UWD5H>1?IP#DEf
MY'ZF,3!/Y;"5^N,Q$Y40($IH.A@48A.5ALQV1*>PVU(Q!77D95;R\R**1CNDe
MRDUI>];"++ALU4CLX.R]@:2*;C#74E#5.NS)2RJ<_36-C,*I1(PFF@2HBBBPd
M4A5$;)D;="'SD2U$<2TJO-*20LC;Y^:5K730GD].K%@7BYMZ]S+X$R,*)9#%c
M<^/*JOK[,%RY:/**A@YO3.UB?I,:MHFQ-Q;\D#/V91AM4 ]D/&E+>K=@_YE-b
M&=[Z9<0%VO#,C-&GJQ.'T-7JSX_K"-##]_XT2H?1Q8(P&U<]A_(8'Q6U?@$7a
M'J7URC\-;$@Q??PPQ-"%@SZ' 6YR(, NF'BO#)0"+$;K!T@Y5!Q(.YE(&QBEz
M1R8?\/LC ,G]GRF<ZPL1*^,-2C.<;BSM+6QH,2V1 P  .PD  ,A*8A0@  IMy
M86-R;W,N<V-M)IQ5 ,BK[B6D@10N"@#CXN'6?$$ ,']?#<_\%OK_VX&%^;GWx
M_[]W>6M-I;6?Z _6A9G[.6#^UI6/\K6H%77MD#%G%5+1"NUD%,D2XU.J]YX8w
M'BGPM''>DBQ(\23=,AQ7*3TMB%L*8U=AZ&RY]]:WH0?.O8)ECAS4J,E<(/')v
MW2GW3?QRW5+5+(1D$Z8/ :$'T0)E<N\9CUC7-?-\M 5$MY.58EJ<2%0,1JH1u
M^).18C)[9G32^-[\ZJ%NPN,9I <NO4?% C*#\]K?\Z?!A2C6@%=+$I>5PC41t
M>"-XXZ\]<A] ?EZ%9Z,,R*<(,WHIFX?C%425.R7_1;<"0#VMB#&R>_(+_"B^s
MED!I#<T2*@ 8QCD2.$.BX=@>R<F3-<3%,G>N&FL,)?O>_^_X,V1?\*_%O[O_r
M0:TY(?*ODN[@U<H3-/T;X0L>G1,&;0>69(NF<:#1PS+'^]M&7_19NX-Z&'H+q
M<(7>-WT'J,INI05T!E_^K=5@GGK'\M[V2KL2? W--WY2XBV^/+GT=)P8GG.?p
MJ" PI,[]7V9!V]<NV7+[0G@*XFU/7(\ZX]F ;[*KF</\A4PY@:=L&K7=5B\:o
M."0@AG-+(!]\+8S/52^HSJF#"!60BH1!'$805%"!W!&,*+F<4/'UQ0X0L"B n
MCD6$)8QM=8"6DEUNFA9[M(7BENA8+F5]26@!AK?29-6(TBZAOT:VD5P1%BOHm
MEH8U[U#'N.I/85OC0(,Z7UX6]O]*BWZR5<2#O?:-*%Z^'\5>X3[VC.E;QV'9l
MZM1N<>XNHJ>YK-3V8:R7\"E'R#,78,E5LM:2D#WSS%X%]DELK%J@[Q)O0>Z/k
MP[W\?2/WO"0Q-0)YD4)[)ORLC#AJRW.KL*!^LM6< V$!'\LFP,L'C00A2AK+j
M(_%!35'R..]YI2M;Y[4"SOVH@0#DQ9)+(/0Q!^;#FEV;$6:>(2L&R+EM(,5/i
M"U*LC:(N5TE'MU[.RN9B*HJ+\G)2HHQ=$ZTET6H@ODX&3N*>GE_O%!8I!:D)h
M%?5][U&(8HQ>A$X69*-HPCH?BN(M"G.%O-2_(]\5'4[T4<>S#_4- (&B6V] g
MXW]>J5KX_P$+E6(_P[<Y[S#-Y 5*9UM8E]!3$XA>M\'S>QEC#,?(Y8S+S/"Of
M:6/\A7UN:7TDBAD##,JSH %%?RW6#/4!34/ZREH0CYSY8'9UQM)9(F.IC%@Ie
M&YA]Y"^L?0A&Y0 A#@?:KH6<N8Z#%'+".UZ,P1$>(2")9+*@*&\M;&@Q+9L(d
M  !&'P  R$IB%"  !G!P+G-C;2*+50#(J^XEM($4+@H X^+AUG\_WQ +X%C c
M-]?U<PO_[_I?_FQ8L@EX%;>G=_NZKY:EVF#@5@%4^$UC9T*6UE5527N8O;;?b
M><^=X"%#$_^'WKD$CY3D@X(CTCP2/MP/9B(&@II'[JGK6%?NEP'4M(Q -D2Ia
MIZ&;:9%L[;QZ\L+,LG!%J *Y\3'>"-6+NW1RVTPRZLW ,YF!V[\0"9B)D:N'z
MP74S$@>G 8 XQ^!C%31IW!!FJ+,A@?6TP!PLNE!BM[ODA_>2<'HY+]>BTY@Ey
M,(5 &/5 )4SS=<3D*11>N>.F:+[=Z- Y)--_Q?!&VT3XA[Y/ C__Z$R)QJ*?x
MTN-AP/?6%>EG80=GOT'MW:2 8=6-)![#GZ%UNMJK%MH#!<?J/4#H(QA6BL3Rw
M*_YWKO52]\;P8=I!3,)]",S-1X99O4IV.;\!(8'#KZ#FEU_3^G2:$B?;L<&%v
M-:^A0R.EY+35O^<OA[[\_>O/AWG/$P,W=>M,59U"FE44:AXA3E^D#IC%T ,.u
M3NW/)>!WF5V.28,EWKK? \A@*US^'JNV-\N[<0,VV(//36E:= 9YUD&R.9R&t
M(]"V-IDW= )57#_P.: -\@R5;/MYY!+4JO@CX G00T@1]G,$_.&<7.5PKW8Js
M+"_XG!?23^!YW.?@D!J)X2&8D/0JM%3A%RW;RZ/0)X.F).LC3G,@:C'!P%D*r
M/E]UL.";\ET]EJA+QNPEZZW9090^I*W,RQ<@.829@G4V^=ADYJ!1MD7=1EULq
M@EQ//;Q<9W+;R\19?YH3XPRED*#U -_1&\; "Q$-N,)'EBX0FCAG0)JV*\3Cp
M2+K&]7K/ QR2%=8B4YGU$9Y"T8_'3/,Z5#4^L >3,N-"A9/?C=3QI*AR 0PCo
MX[+JA/.#3.D6OIA[UGDP(&K,+]S_K.S&D4I)EP?@^ZDIGM CSVJQ8$GG,<S&n
MB+XD7ORJ,C)]C3I-+HJLZ,$F8FKNF*L\5*Y-I$:G#EQZF:10'YG/F<E51#.3m
MD[-)82QE"P@/"7HLYQH)#JL%61,IO+RDAEG-<TN6D=NJ"V]@?<HU/:0PQ H<l
M?,X*N]24BJUV>8JWU6N1Y5G",.?,N&":G/I1)3D0.<?=(35 6=(;F6Z4'.UEk
MJ.JJ%&L0#Z!%!Z$?>I?P)@S.H1).P:V$7%\37>*7>EF>>Y^H'>0229%NQ0<5j
MN@ME3]FK@+ERP96$$EI74C"!DN41@23E&EA4TB->5>Q%6VY-P(>PMC?96 %$i
M.6/:7?.<XY8RC)1L26YFOJL.K_D-"]<0KRY@=J_Q78=FH2"[3YJF\*.N'7SOh
M).DFA"F:C\XWOAJRW9RX\N0N'5TI'T?%8-3&@U40<2[&5=K!:9D!W]73C+^Tg
ME7F,.H 70G?5N:S-7U?2_U?_:-:Q\0"=5IV5ZY]WO1F"K$/RU@TUF<O1#K#,f
M)-<?^<'&DO )64^W=3IAUPIVM*.H214YE"T)[:>>:>.JQWAK9?AL&X#_&X.]e
M)_TU:S8[=C23XJ[2751QP&<.>\5BG#'^AD%CC#L[M&O<.9Y!+M3O;%/BQ>2Gd
MKKOQN&G'+=,P14S&?GE<RCT(/.JT0C-V@Y3BY* :;5,;0?YT5<A"1F%ZOC9 c
M%<#!:V>04'=MA9F4@ 7+[^7J9S8\_JJVAV4!\!$UCJ!+EX65CM:]GIF]84?;b
MPN;D?FF9_'-J.K[==EET-.Z0G[#(^<'KRUP(5D\8K%;9 X"W@7L0]3\%D=BLa
M)XTI_&G0%FC7\"7G-G\@VH_!W!K,+TEEB^&>SQ=@*XC/\-BWZN0-\W Z:O% z
MW%;/']KVPY33;YPNM50C<]?B??RG?Q?@60Y[P9.K\Y+V362NN+3L07EV3!YIy
M6XC YCE<D_\/6AG,()8>I%PS,7F*WNAF&4SP2?6.BN1$U7#BK>*';]F#.H&9x
M2QP]M!MS9MY:AXK_&?*H7S1435[%=K'J1#^LE]/38IW?7D,4C=;/L^"(J=4Bw
MB3=E&KO;OA./EZ#C*E'FU1^5J!^6)+BO<Q+F2!_?A@Y'*YGD>PUSUW+@_2R*v
M_FUYB::6GS=I5+L+MR09?PCY_#31JV*6@U;&ZU*17VIKP77]@?^GBK-Y.?[\u
MP_:95RG.^[,N,)_\)@/;=Q&50CK7#T4PU<(8YX]6X,'>$_/FB9R5TO,(G+^Pt
MJGZ^+CN$F$+QS2$ET]@XM^S8G"<.)0GR[=UJ!_KJW$BF3F(&-9CRZIW2AI-]s
M>T#M)1MECJD!KSAUA+5UJB6+^:'/_4RM=?1C^53J?-X5Z,C*Q6-DIYRXJL(Mr
MA16BON @)2?" :U6F2D=2<1HM]A<9@X173$K=4]]!?K=/G_WP>>?!TSWW[2Aq
M^FPUK8?<_1+L^]VCKW?2]7#+]]OGBN!LO'/-,"5-'+1HWW&'E5Q8N-Q$[KZ;p
MF@D<5A4V(:7?Y[A%QWHIF*6C+G]-XL%70K#N(UE^QE@1;=T0BC5V<:O'(%*Oo
M>(5SI52GRI>C5+T-\.8:/7T/PF.ON+1*JV(20)R?B;,7+^YB\%9GE"^>%"GSn
MOHT?6-GAI]OY\K#:;;.<HS0A)0'OC8<P'6IQ=D"=+]4WWN??FUZ-7NLVW5>.m
M9(TV4D':0W^\M)FI<M7_UDK-L"@M)LAB/;!MJ<*1<&R]$GBBB1/2%K7,)Q Ql
MKFP7B;S09N-!%KXBH]*Q"H='^D$FXJQCX$=BSSU0]M?OI=TTZ@CPX#PW2&?Ik
MB98W7GC*T;:"<A3ZE;XX%85T(!8$@5RQ+\\G? O1Y-%&?#I/O*.+1DG1U *,j
M1$P4%-TOV7]CEW']\>':6/.:(>GEK(0HQIW8Y]"$]2#5+"F,^)).+\EW.Q/@i
M.@M\S\W2VI.[79I#IL]]\Q#\.5Y;-,/W^/#O("5N1,^IU=J!.A!_(K!.;;(8h
M$B>.B*&=!4(YVY11AZF P;?&EEK1TBL@V/C[BVF??L.TC2'6JP!579@CJ?J'g
@9YT0ROB&>7Y[:N1"63>*),E>4DLJ65[$-5AUCA,$  "Tf
 e
end