FASLPU*U*uPUTINTERNASCII
QUOTENEWNAM$x>u+U Qx^EXPTxTWOMEMEXPR NUMVAL@4@]*A4BT ",xXFLAGW*UjWLOSExGLOBALTTYPE*SCNVAL		xREMFLAGTOKEN

xQDIFL* 5B*INT 4BTOKEN1 %SCAN)# B	0B
+	 	" 	' h`J0B
+
RREAD  "LIST2,x_*Uju(
xLOADSTATRLISxNOFORMxTRu:U.UxTRSTxUNTRUNTRSTIGNORExCREFSIMPFGU*UjUPROGFISLMRCREFCREFONCREFOFFxCDIFCMINUSCMODU+U.UCPLUSCTIMESSETMODxFLUIDLARGEST-SMALL-MODULUSxSETQW($QxLOGAND2   "BOOLE&]C]H
LOGOR2   "&`LOGXOR2):U   "&pLEFTSHIFTSMACROLAMBDAU+U*WUNLSH  !!""!"xCOMMANDATSOCPRINTPROMPTRESETPARSER
##$$xU+\EDIT**DEMO*PRET%%&x
#x.U59*@@`@@gH#% %4B  B`4BTERPRI& "RDS!Q'READCH'Z`' %4BEDITLINE(
4!Q+FLG* (5B5*SLIN )4B-%NEXTTYI)R(T"
; "*SEMIC* B*KEY* B+ 4B#PGLINE(t*+[XCONS,CLOC* B,LREADFN* -4B&%40 $APPLY-+'READ. B` +0B*(b+3 `ATOM.4B+ `+,[` B+
B2+3SCAN/ 4B0+[, B,Q	0CURSYM* / B+ "XREAD10 B` &4B5(d& `RPRINT0 (4B= 4B=ZQhE#CLOSE1IPL* 1 DELETE2 B14B<D![Z'@@@@( )5B@ `FORM 1U2 B` ,4BG `.5BGDEDFRBFRDM334z [`MEMQ44BG ,LOCN $5C$Z`[+S ,4BSPROGN $5 `EQCAR@64BSZ`Z4BS[.5BS `QTb$CAADDR6334z 44BS , $5Z`Z`[Z[ `/U,x_+T0#xTSLIN*7)xRDFNEV.f59* B` Dg$ Fg3B)+[4B] )4B] 2B-+]@$*@@g+b 4B` - )CONS8 B7@
 ` B) g B- 4Be[/gEVAL]"8 g/g,xx VSLISPU:A$"RLISPGO
99:xFEXPR Standard Lisp parsing . . . &; $ "BHD(7:h Rlisp parsing . . . &; $ "(7:jU*].PPUTDLISPCDRGETD<<:==9x*BACKTRACE>xRMOSTAT.B:%59* / Bg2B++t/DELIM $?FLAGPi 
?4BvSYMBOLIC "@*MODE B@ g/NCONS)2"A $SYNTAX ERROR "ASYMERRB / B+ @HZ B` "@ B@ > $0zERRORSETB Bgb% ` B@ g.5BZg4B $% "CERRORC[g g/$8{]nqhm9>x9>x99:x998x99x
$x )
(i#%4B "RDSLSHD "SCANSET"D "COMM1z]*W"EH$xOFF
E8x*S**S1**PI*FFGxU:].WREMPROPVALUEG!HxWGHHxXGIHxYGIHxU*UjWCONDEQUALSYSTEM*MINUSSETSITEJJKK<L!xCOREOPFNLMxU:]juINITFN*BEGINMNx*GCGAGNxx*NOUUOOx*RAISEu:]juOxKLISTPxTMODE*Px7x*BEGINQx*COMPu:U*UQx*FSLOUTRxEQEXCOREFISLSIZEnBFLOATFAPSIZEU*U*UCOMPLRFACTORFAPHEPHYSINTMATRSOLVEW*U*UJRK
5SMSTTUUUVUVUWWUWXUXYUUW0UYUZxSTDIRALISTJSYSMKQUOTERETURNCARU+^SETSYS:SETSYSJRK<Z!![[B[\
\!
]J.[
][^<^!!_Z!xFASLP