; QPQU*U*USETQTilde-ascii-value|CONDSTATUSFEATURESAILGETCHARNQUOTEU:T~  xFORMATLSUBR-0-,5 E"CTL-STRINGARGSSTANDARD-OUTPUT 1.Da++ ,,8,8,8+",FORMAT:FERROR Ao,8 @T0B ` @)" "`@5B ( **STREAM**-,1@ H``@Z(-, B gQ@1LISTIFY ZZ `-, B"FORMAT-ARGLIST 4N 8an+(b 1 FORMAT-CTL-STRING `M -,7B+&[A an`E $*[ +$[FORMAT-CTL-LISTa Z D`9,3`SZ`NREVERSE  MAKNAM`+R.@bNot enough args to FORMAT0 SUBR-,ZA 01[FORMAT-CTL-OP+\ W-,(t@5*FLATSIZE` *-,CTL-INDEX CTL-LENGTH-,~3/!"*1+7++  FORMAT:STRING-SEARCH-CHARa!5B>"1 0N+= ? "a!5B>B  Bg s` & FORMAT:NSUBSTRINGa# ,F,8,8,8-K|-->< g (3/`++ ,M 1,8,8[,8.K*ARRAYo%](T 0-,ATSIGN-FLAGCOLON-FLAG',8D1,<,8ˀ-,!# 3/+U+)ˀ $p @ Nw} "w} 1.`9`7@`+^ `` .$. /0@. Np "p * B` Jg+Q0N +f!B * J+Q0N` * '+Q1N+D `0N;`A@ g~ˀ[ ` g  2+r 33 Bg~+Q0N`7@g`ˀ Nw "w `-,  4.}0`@@` * @  Jg+Q+a`0n=`/. Nw~ "w~ ˀ-,7@g`ˀ `-,@ 4.0`@@g@@`@@g}HR0N.+ˀ &p . " a!5B ,,8,8,8/",oˀ ` $p a#2STRING-UPCASE`)/+ASCIIA# Bg~4B% gG-L-P`+ &,X2a g~+) ,),8,8_``03,8",o/,0A@`0`i/,+5J%STRING-OUT -Unmatched \ in control string.%`b/~C is an unknown FORMAT op in "~A"X/-,)0 ,8FORMAT-CTL-ONE-ARG 1GET B`w+9 ,9,8,83Ko !3`E`@`FORMAT-CTL-NO-ARG 3 g@ B`4B@@B`FORMAT-CTL-MULTI-ARG $ gR B` $E``FORMAT-CTL-REPEAT-CHAR 50 g B`[ `a5Da` ,N,8,8,8P3K@j%o+Arg required for ~A, but no more args"~S" is not defined as a FORMAT command.%jUjp7p 0DEFPROPFFORMAT-CTL-DECIMAL91xD;1x,<0,8[Z[ ,8'J1+Y 0.P+Y4nY $ROMAN-STEP+r 17@+] ,8KENGLISH-PRINTo=+r"T* * --,BASE*NOPOINT?6@`+b * J`` ` 8`nb` ` Np "p B`4Fn0 ,8FLATCA *p(`a3KFORMAT-CTL-JUSTIFY<! ,8,8``0,8g}K<,/0)*p,xPRIN1C OFORMAT-CTL-OCTAL"E1x,<0,8[Z[ ,8 B@ *#-,  * J``(  `nb` ` Np "pD B`4F  ,8A *p`a3K<! ,8,8``0,8g}K<,/0u.,xCtAFORMAT-CTL-ASCIIG$1x-0  1.`!;`7 5,8;i +Too few arguments supplied I g $$-,0*U%ARGPARAMS&OPTIONALPRIN1P%K&Mz~c -,1 ,X-,,8WKERROR<'*EVALA@0`O`,<1n`= @ + " Z(@@,<,<as@[@Z`[@-, ,8,85B+ ` * +0 `nb+0 @ Nw "w7@g}+5 i,8@,83K<`q q,8,8`,8X3K<7@g+T7@g}+= g~ 0+? g~A@3` g~a5 ` Np "p  B`7@g` ,8,8g~,8g",MAX<( .g&g$g/``a g~ "pa5+S ,S,8 ,8g~,8g3K<!` "@`R,xToo many arguments supplied QR*pWRNG-NO-ARGS)C SFORMAT-CTL-SEXPS*1x@,8 ,],8,8,8^K<$/0u. ,x P CFORMAT-CTL-CHARACTERU+1x ",xAX PFORMAT-CTL-PLURALW,1x =Nb " `" ,8,8,8gK<I:W,xTYOYs-` *FORMAT-CTL-IGNORE[.x-,,8[ NTHCDR:Wa]+p GFORMAT-CTL-GOTO/_x00,8[ a],x]+@ | %FORMAT-CTL-NEWLINES0a3x[ `!,< p3O`+y ,x,8,8,8{@(",<:p` "/u.,xNEWLINE1&FORMAT-CTL-FRESH-LINEc23x ,8@a$],8,8,<,x:FRESH-LINEeXu*UnW3 5xPUTPROP|LISPMFg 4i5- 5x5xANDkg 5x@,8,< ps+ ,,8@ ,8,8 3K<:p+ "0 00/,xY -0 1.+;+ ,,8;` @0KI g $!-,U) `WIDTHSIZECHAR6m&7 zH5-&h-,1,X-,@f,8&K<'`O`I1n`5 0@+ "  Z(@G {`G gAB@0 "pa5+$ "0*u,xQ) QFORMAT-CTL-APPLYo81x*APPLYiq MCASE-SCAN-0 +`UD ;`k i,8;+-7cIP U g $9-,GOALLIMTIMES(`s&:u z-,1,X-,K1<'`O+b1n+8 `q  ;+<  (`y  @ "9 $a0,< p3.w+C " +`,<0 ,<,8k` $9  "` ˀ $p  Nwb "wˀ B`-,# `0N?` ˀ $p ˀ B`-, `2Ogy+Y " +^[` @1,8,8d ",<9` `0/:p`+ 0 %/,xQ)]!; '[FORMAT-CTL-START-CASEw<1x'`P "5Bl ,l,8,8 ,8{",o4.y ,8Ka<95Bs ,s,8,8,8|",o  ,x,8,8g3K(<9` "/,x RI$]The FORMAT "[" command must be given a numeric parametery;Unbalenced conditional in FORMAT control string=;{ ] FORMAT-CTL-STOP-CASE>}3x ",x};FORMAT-CTL-DELIMIT-CASE?3x @`KP,8,8K<9,x;~MAKE-LIST-ARRAYC# ,,8,8,8 LENGTH *pKo%,XFILLARRAYAu*U,x ENGLISH-SMALLonetwothreefourU*U*UfivesixseveneightnineteneleventwelvethirteenU*U.Ufourteenfifteensixteenseventeeneighteennineteen@ BCDEFGHIJKxENGLISH-MEDIUMtwentyU*U*uthirtyfortyfiftysixtyseventyeightyninty@ LMNOxENGLISH-LARGEU*U.thousandmillionbilliontrillionquadrillionquintillionP@ QRSx-0  ++1n+ ,,81nP4`!I g =-,) `NSTREAM&Tz%-,1,X-,@f,8YK<'`O`;`7 0@`Z(+  1E ,",8,8ZK<`1_ M,8,8[K< ,* 1,83,8\K< ],8"p0a *p,8g",o=`@ ,<],<,8,8@  w5.<4n;7@`+9 ,9,830 1,8^K< gENGLISH-PRINT-THOUSANDa`w @ "`k+Sû Np "pû;7@`+F ,83,8_K<+G * J` ga" ,L,83,8`K< ,S,8H3 P w 4.Q``@ K<&.t>w`e/0 /DR,xQ)zeroUminus"D"Y B Y Y Y",   ,<,<,<,8 p&.2,<&.2 Nw *w ( ,o,8,8; 4.m@1``@K< ,8,8g1,8=K< ,v,8,8g,8?0K< p ,8,8g,8 A0K< p " +0. +  ,8,8g,8! `+1@K<+ ,8,8gC&./. `+ @0K< p&.;  B`5N " + ),8,8g,8"EK< ,,8,8g,8# 4.@00``5@K</0J",xY hundredVY"DX Y-a0,8 ; `[&. ,< $p "p&. Pw~ "w~!/ `kROMAN-OLD6BW`k(` ` "ROMAN-CHARa `ˀ $p "Ca+K`q ` aB+K0N+>6BW+> ` "a `!D a+K;+C ` a `3/g`+JC3 "a `ˀ Np "p B``   "/,xX ! G,8 ,U,8,8 .𪪪.I+,&C"MXYZ[z g$f(` "pNTHaK<.R/,xYMGENSYM\xCOMLAP;FORMAT 73_1 l 0$ W-0 @ Z( g1n`@+_ "! g6 8+gQ+Y`Zg `-,+}PRINC P(1B]`0C`0B`C+m `4EXPLODE` ,+n `EXPLODEN^ ( ZgNRECONCa+}1B1`e`e`ZgZZg[8 80N` R[ 8 `Zg+}Zg "_ -, --,+} "XCg g-,`CY+ ,83,8g~",oY`C1B]+0B` , ,83,8g~",<]`CC+ ,83,8g~",oC`C0B1+ #,83KTERPRIo`Ce+! 9,83+ " +7 8++as5E "K11CHARPOS<`4N ?,83Ko`C P X "`C "/,x ` ",8,<A2np+.ˀ`` $p `S+-@0-,`]@;+& "//0`+  #,<,8,<13.p`k `+;ˀ ` $p `3-,:w0A@`X+2//,x 0-00@ Z(*` ZZ@`C-, $-, $ "aq @5BI ,83KD<'+M ,M,83,8@0`K<',xD yARRAYDIMS` Z[8 8,8,<@b3.p+U ` ` ` +X@ `-,@; B`+R/0p/,xN;