;"M(U)0"-STRING-MACROSUBR" "NCONS,8[`0B:+Z`4D `NREVERSEMAKNAM+  0 ,READCH `CONS B`+/0.Uj,xGCTWATxSTRINGP,8TYPEP4@QSYMBOL0B+ $ `GETCHAR BF0B+ `FLATC,< $p `  /0B+ `-,+ "t /,xX MKSTRING,85B$ *RT* ( -,BASE *NOPOINT ,80(` gEXPLODEN B`4B"LAST ,8!@3 "XC` g "/ L +#z8$f/,/h,xMAKE-ATOM,8 Z,8,8Zg 5F* "+.ZgZ4B-Zg Dg``]+*Rag `/,x8%STRINGLENGTHA:P/.-, ,x@/CATENATELSUBR-00@dQ,8,<-,~ $EQUAL a 4B7 Z(-,+E * 0`Z J` Bg BgZgZ4B=Zg Dg+: `.. Np "p .0` B`Z8 ZXEg `3/g~+:A@`] g//,xH 1SUBSTR -0,8,<,< @`Z( ,8,8 Z( 0 (,8,< g~1n+QZ(+R (b ",8NUMBERP4B[ ,Z,8 gFIX,8 g~/p..,< (p,8",QABMIN</+] g/p.. Nw  "w,8 p4nm2og+mPLUSP4Bm@ pp0n+b `/. Nw "w B`4BjZg~ Dg~+e@1 g~ Zg~XB g~+n "/0 0/,x` GCONCAT-0,<0A@,8,8,8 g3o`+v gF $ " *APPLY+}.. g.0`0Z@,< g,\ Np *p  Bg Jg+r//,x]@ oSUBSTRING-0,8,<,<`` Z(  (,8,<@ g1n+Z(+ ",8 g ,< w4N 7D`+ 4N w5n 1.p.. Nw4D*5B p.`.. Nw~ "w~ B`7B`+ 2.w+@+ , ,8,8g *w,87Bg~+ @/w.. Nw "w+ ",8",< @`]+! "//,x NTHCHAR 0,8,84B+ g `3n+( @ "+1..,< $p g/ +1 g0B+/ ` g+1@``] g `/,x "SETSYNTAXU;`QUOTEMACROx;