;2e8(U*U*UPROG2CONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCQUOTEU*U.U;Loading STACKS DEFPROPVERSIONxFEATURECOMPLRU*U*U*EXPRFIXNUMTSTACK%-POPSTACK%-TOPSTACK-ZEROSTACK%-ZEROSTACK%-PUSHSTACK%-EMPTY-PU*U*uSTACK-PUSHSTACK-POPSTACK-EMPTY-PSTACK-TOP*LEXPRMAKE-STACK%MAKE-STACK   xstack underflowPSUBR,8 ,,8,8,8,8",ERROR $]</,xWRNG-TYPE-ARGstack overflow@ ,8 , ,8,8 ,8,8 ",</0 0,x0LSUBR-0,<0,<,8 1.+1n+#$ ,,81n+73Too few arguments supplied ",8 gQP ULISTIFY $-,,8DIM&OPTIONALDIM-INCU*U%1+/MAX-DIM*zAscC-,Q,X-,,8,84",<*EVAL+2 Z(,81n+Z(+! &... Nw "w,8 g1n+$@Z(+& g( Np "p,8 ,1,80,84,8g~,8g~,8 ,/,8,8,85  g{..,< (p,8",*ARRAY</0F,8",HUNK<//I$R/,xToo many arguments supplied WRNG-NO-ARGSSTACK%%A@`0  -0,<,<,8 1.+:1n+E ,D,81n+< @07] ",8 g $-,,8(`zAscC-,,X-,,8,8^",D <+\ Z(,81n+H@Z(+K &... Nw "w,8 g@ 1n+NZ(+P g( Np "p,8 ,[,8,8^,8g~,8_,8g},8 ,Y,8,8,8_ gz..,< (p,8",00</,8",<//0J%/,xSTACK", 5,<,8Z,8,<,< . ..,<Z3n+z,< g[,8 gZ .` Np *p,8 g4No g~Z (3n 1+r g~ $ "w~ +y ,v,8@0,8g~,8,8",*REARRAY< `-,  g~,8XB(/// p Nw *w ` . ( Q w~ Nw0 (w,X,\  Q,X-,/0`0,x H`,8,8,<Z[ ..,8,< gZ3n+,< gZ,8 gZ .` Np *p,8 g4N g~[ (3n 1+ g~ $ g~ + ,,8@0,8g~,8(,8",< `-, g~@`0,8XB(/// p Nw *w "(-, gQB *g-,0,X,\,8(.4.%QC +&XC   g-,//,x X`X,8Z,8,< . ,<4n3/. Nw *w ` . ( Q `B p -, +4 g /00/,x(),8,<[,< p4n@/. Nw *w "(-, `QB Z` p(.4.?[+@Z ``0+B `//,xX`6,8Z,8 . ,<5NI gD +J ` -, /`/,x0C,8[ 5NP `D+U `[,8Zg `(.`04.T[+UZ//,xXpLZ  . (6@g " ,xPV0[6@g " ,xhZ,8,8aZ 2 . ` Q/,X+X@\,8,8e `QJ/,X+2.@`8aSTACK-REF,<,8,8[ / Np *p,8 (4noZg (@ (.4.n[+nZ+q g g P//,x`eSTACK-SET,<0,8,8,8[ / Np *p ,8 (4n~-,Z g (,8(.4.|QC +}XC ,X+ g g  $ g~//,xh rx;