FASLPU*U*WREMFLAGQUOTELIST2LIST3LIST4LIST5REVERSIPLOSExPF
EXPR  NCONS XCONS$`;   $  
 DH@`0   H $( `0 BH DH    Hh H$0(
 *  4BZ   XO 
  + h1,x8EQN EQ5B NUMBERPBFU4B EQUAL,x`EXPLODE2EXPLODECh%"FLUID,8 `4B.MODBIND "	GETDi#

4B#MODE $
[`GET5B#SYMBOLIC (`1R &[`PUT[`
4B(cannot be fluid &a$Q[`Function "
  "
ERRORRG"
[` $	FLAG*DEFN 5B- $[`QSETZ` B`+//,xX	#Q,8,8 & $ERRORSETATOMF4B5 g `SET/6,xx0W);PSETQxFLUIDP $	FLAGP$ 6GLOBAL,8Pb@ `4BI "	
4B> $
[`5B>   &[`[`
4BCcannot be global &[`!A! "
  "
[` $P 5BG $[`Z` B`+8/J.H;W,x07GLOBALP $$@JOBLISTxW+U.W*PI*	xFTYPES*xFEXPRMACROxCOMPILExU+B
PUTD%PUTDCDR
x.o59**LAMBIND*NAMEA  Dg Fg SUBR0B+Q "+RR$QFSUBR0B+T " Bg(F)SUBR converted to (F)EXPR in PUTD "WARNING!( $ 4BW "+m  gMEMQHb!R4B` 
4B` 5B`redefined $NH* TRACE $ REMPROPTRACECNT!D $ *COMP 4Bg $ g(b4Bg gCODEP5Bg g g COMPDH	+m  g g g4Bl He#+m  *SPECRSTR* /o,x/TxKxUNFLUID +s [!@(] $
Z 5Bq $	 $pASSOC.~59* B` 4B} Dg[[ `@5B|Zg `+v[g/~,xhuDE,8ZZZ[CONS`@	"LAMBDA $"  $[`/&h DEFLIST.59*4B B` Dg[Z[[[[`[ Bg g@bZ`# g/,x0P@DELETE.59* B` 4B Dg[ `@ 4BZg+Zg `#[g /,x8DF,8ZZ
Z[" $"  $[`/".@&@DM,8ZZZ[" $"  $[`/)&]H#EXPAND.259*4B1 B`Z5B.[`+1 Dg% [` g/2,x.BP*EXPT.L59* B` Dg QD0MINUSP&4B; gMINUS&  `%40R   0 "'/LQUOTIENT$' g1B()A +> `0B(+? "(+K "( BgRF  $) gDIVIDE) Bg~Z1B(+G(` g `TIMES2* Bg[g~1B(+J[g~` Bg ` * B`+@ g/M,xt   X3MAPOBL.X59*@ +V Bg[+U Bg[  APPLY+Zg5BRZg5BP /Yu$,x(MMAXMAX2 $,Z$%XF8Y,8,8LESSP,4B^ g+^ `u$/_,x@[MINMIN2 $-Z$%XFP`,8,8GREATERP.4Bd g+e `t/f,xXaONEP  $(5Bj ! $' ,xhfPAIR.y59* B`@  Dg5Bn 4Bx `4Bp 5Bs `a$mismatched - PAIR $/ U "0[@0[`" BgZgZ`/ g/yu$,xpjPLUSPLUS2 $1Z$%] zSASSOC.59* B` 5B   ++ Dg[[ `@4B[g+ Zg `1 /	t,x{SUBLIS.59* B` Dg5B
 + Bg5B g5B[g@0 `2 Bg~Zg `2 g~ BgD g4B g+ g+[[D g5BZg Bg+
[gZ/t@,x   	TIMES $*Z$%(UG?QUITT "3FREEZE"40 FASLP