;2e8(U*U*UPROG2CONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCQUOTEU*U.U;Loading FFORMA 12DEFPROPVERSIONxPRINT-FIXED-FIELD-FLOATINGLSUBR-0,8 1.+1n+ , 4@,81n+7rToo few arguments supplied " ,8 gLISTIFYA*U $-,,8ICANDIDATEIWIDTHIFRAC&OPTIONALU 0OPTIONSFILE zf!YQk-,,X-,,8(t1,8r",ERROR< *EVAL +q1n+( Z(+ ",81n+ 0Z(+ ",8 Z(,8J Z(,8Z(,8 ( &-,5 E"QBASE+OR-FILLER*NOPOINTQ EXPLODE(B{ an@+ `+!  `FLOAT,8-,},:)R,:7BgT "(B{ZFIXNUM0B +' g+'+b Pw7Bg~ "(B{Z20B+, g~+,+b hP Np Po3Phg 2#` g~ Po RwOUT-SET|! * J B` h5.6 ( H@ T p4.b0n +b ./p..|10S "Nno3ns+b2.s+b%.j.(?.(` Pw} "w}NDD| Nw~ w/p/./w~@ */nw4.b7@`+F g} 1OUT| g}(`  "wREPEAT-OUT|6@`+J g} !$ hN3Nh+N g} " g} C "w}NOUT| g} " p4N_`.. ,: w}-, oh0%0j0(G. Rw~ "w~ p/ g}R $,< "p g} "w}/0BA/6B+a "+bZNREVERSE@ +n g~4Jn[(Z (0H +c ,n@,8 g}-, $p-, $w-,0H $h-, $-,,8,8t `0,8t",< ",//0 ///,xToo many arguments supplied %$RWRNG-NO-ARGSq}']fY OUT OF RANGEFAIL-ACT]@PRINT-FIXED-PRECISION-FLOATING-0,8 1.+x1n@+ ,,81n+{7 " ,8 gA*R $-,,8IPRECBAL  z"fk -,,X-,,8,8 ",< @ `  + 1n+ Z(+ "  ,81n+ Z(+ ",8A@1n+ Z(+ ",8 0"Z(,8Z(,8Z(,8 ( &D"-,(B{ 0an@+ `+ `-,~ @`-,|-,},:,:7Bg~ "(B{Z0B+ g~+ +z Pw A7Bg} "(B{Z0B+% g}+%+z hP"2 Np@@wz Nw}@@wz . Nw{". Nw{ . g} Nw| Po Rw|)4 g} B`E "MEMQ * J Bg o3Nhg .#o Nw~ Po g|(N{6 8+J[g| Bg7@ "(B{Z20B+< g Nw{Zg|[ Bg7@ H "(B{Z0B+B g Nw{3. +zZg|Z[ Bg7@ "(B{Z20B+I g Nw|0n+z+N7Bg| H "(B{Z0B+N g| Nw{ h "5.P ( H20 +S5Pz .@@w| NwzD"+-20 +Z30 +Z%0j0(G.,<@ Q "p/./+[ "oLG10|  Nw} p1n+z0.+z w}/p Nw~@"1n+b o2.+o+c3n+o w~ .... Nno w}.. Nw..@(  0.w,: |.10S h/02no+o w:w~ Nw}6@g+ w}@(2nw|+r2.w{+t * Jg+5.w#w~/. 0 Nw} Pwz+ o%.j.(?. Pwz "wz p/ Nwz Pw}5p @0N+ wz..3nw+ * Jg7@g+- w{4.z0n+z p/w{ w}/w{.0 Nw} Pw}0P+ o. + ./.. o 0/w}.0 0,:  oh / Ro %.j.(?. Pwz "wz Nwz w{"5N o2.+!+2nwz+ wz5N!@ o4N!!. no>w}". Nwz+( w{"5N$ o3.+(+%2.wz+( o. :w}"0 No Pwz wz5.- o%.j.`(?. Pwz "wz Nwz w}4nA w|5.8@ ` wz5N1 o+3-, o  0.w},:  h%.j.(?.@ Pw|/ 1N+I w|5N< .@ Nw}+I w|&.5P@ w|&.>w} Nw|D+<+I5.G ./w}.. %.j.(?. wz Pw&$w Nwz .@@w| Nw}@$6@g+K .+P 1N+O w}0nD +O2.+O7 . w/wz/w}/w~/ Pw~40z6@`+V g| $ "w~  g|  hN3Nh+[ g| "`C g| "wz g| " w}4Nf@@ "w| w}/ g| $,< "p  g| "w|/7@g+t g|"!@  " w}5.k ./nw}7 . g| @,< "p 0N+r w}0.+r 00 g| " g| "w}/7@`! +w g| $ "w~6B+y "+zD Z+ g}4J[(Z (0H +{ 0 ,,8 g{-, g|-, $p 2-, $w-, $h-, $" -,,8,8,8",< ",0 /////,xz( 0?|l?rg4e9Lf3 0{%h (uPRINT-FIXED-FIELD-FIXED-0,8 1.+D 1n+! , ,81n+7 " ,8P U g $-,,8CANDIDATEWIDTHFOOBASE(`  ziVaP!-,,X-,,8,8 ",D<  +1n+$ Z(+$ ` ",81n+' Z(+( " ,81n++ Z(++  0! (,8Z(,8,< ( & D"-, ,< ,:(B{ `n +7 `FIX@`0! B`,8,8-,~7Bg~ H "(B{Z0B+y g~1.+y@ 0n+y g~-, B g~ Bg! 0N+D * Jg g5.G * J # gABS! Bg gHAULONG" Nw @0N+M w/.&... +g wH0.?+X 0N+X w0.+T g +g g,: "h.. 0 /+g g,: "hLOG`" ,:",Z Po "o/0(` B`IFIX#,8` Nw~ "w~ Bg `/2N+e `+g `..$  Pw6B+j 1N+j7 . w~/w/ Pp40y7@g+p g}  g}  "p6@g+t g} d g} g6B+x "+yZ@ + g~4J[(Z (0H +z ,D,8 g}-, -, $w~-,0H g~-, $-,,8,8  `0,8 ",< ",//0 ////KP,xpSUBR,80@,:,< h(Nr/.@-, 3.%.j.(?.,</0,<203 +". Np,8 w.p&. Nw "w ..  B`2nh+  Np+  Nw w/p0n+ ..w@  0.w,:  h/@ 2nh+' w-, +0 ..p 0 0.p,:  h/2nhB+/ p-, +0 p/.-,   ///,xs"jA@mX# ,8,< p2.H+C0.'+=0.2+;0.+:7I .+G0.t@"+<7I .+G2.J+A0.P+@7JD" .+G2.K+B7K .+G2.L+GD02.L+F7M .+G ./,xkaB 1@Pdn5JA@H#4-,,8,86@g+QBH `+c[gLEFT0B$+T * J`+bRBAR.0B$+V@@+b1B+YEXPLODEC1B% (+YEXPLODEN0B%+\0B%g "-,i$ B+b+0B&+^ *& J+bRF!01B'+aNUMBERP'4Bb5Nb * J Zg Bg+O/,x0#M,<,8DQ6F+j ,i,8,8,8",TYO<( +n[4Hl-,+lASCII(Z `0-,XC "//,xXBP#d,8,86F+u ,u,8,8,8 ",PRIN1<)+z,8[4Hx%+x(` Z`NRECONC)XC`/ "/0,,xh#p,<,<,8 w4n,<@ p4N ` "w>p+ "/0P + "//,xX# |U*U*UANDORNULLGETARRAYARRAYDIMSPROGNFLONUM'U*U*USTORE ' ? 9 0FEATUREU*U*UBIGNUMDOI1+VALTIMEST1T2U*U*ULINV=>SETQHAIPART U*U*Ur LSH-FSC@PLUSPBOOLEU*U*U2*QUO0 @<#3 !U;`*$QUOTIENT**++,+,-,-.,-..//.00.01.1223344545656778840997"5:96:5;7::5;<97<96:5;7=:5=;7=;796=5=;77/.4>6&>7*?7.4>?@=&@7;7A.=04>:98AB5;=B7*C4C.=04>?@==D7;::8;<A344545DE5D840.45.=04E25x;