;$MHUT$QTOPSUBR-,*RSET "EVALFRAMED]Z[*FRAME*-*POINTER* B+BOT H2-, " B+]( 0FRLSUBR-0,8 5N b+ Z(-, B/h@],x@FMZZ[,xP UPP3FSUBR,8Z[ABS,87Dg+[+ ",84D[ 8+ R .,8,<,86Bg~+T-O-S "QH PRINT +B6Dg~++B gNUMBERP@4B">p0.+? g~+BZg~Z [ATOM5B?Zg~-, B`)$ 4B? gI1B ++F1B ++C i 1B ++M0B +< `SYSP 5B<AU g0B +/ g~+B0B +3EXPRFEXPR((b z J,0(T `GETL 4B3 g~+B g0B @b+8z a5i ` 4B8 g~+B g0B 1+?MACRO $ `GET 4B? g~+B g2B`+? g~+BZg~[A@b Bg~+// B,xXPDN,8Z[,87Dg+H[ +I ",84DK[ 8+L .,8$,<,86Bg~+PB-O-S "  1+u6Dg~+R+u g4BV>p0.+s g~+uZg~Z[5BsZg~b -, B`4Bs g1B +_1B +_1B +_0B +p ` 5Bp g @(0B +c g~+u0B +g z J,0(T ` 4Bg g~+u g0B +lz a5i ` 4Bl g~+u g0B +s $ ` 4Bs g~+u g2B`+s g~+uZg~@ `1[ Bg~+M// Bh ,x`DRET-0,8 0N+}  Z(Z(Z[FRETURN+=N Z(Z[+  )5N[EVAL0D+ , ,8ZZ [,8Z-, ,8",< $ 4AZ[+APPLY0D+ ,,8Z-, ,8Z-, ,8Z-, ,8",< $Z[ I# +DAMM-LISP $T "*BREAK+WRONG-NUMBER-OF-ARGS" P $ "/,xpwEV-00,8 0N+" ,!,8  Z(,8Z(-, ,8",<+)@ =N( ,',8 Z(,8Z-,0bD ,8",<+) $ "/0.@!,x0EVQ,85B- $ " +;Z5D3 ,3,8[,8Z-,0b ,8",<+;Z5F9 ,9,8 [,8[-, ,8",<+;" x $ "/,x8*;