;"A(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading GRAPHS pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPGRAPHSU*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS           xMAKE-ARDS-STREAMLISTU*U*UGRAPHAAUTOLOADMAKE-TEK-STREAMGRAPHTMAKE-GRAPHICS-STREAMGRAPH$MAKE-Z-CLIP-STREAMGRAPH3MAKE-Z-PERSPECTIVE-STREAMu*U.W              xFUNCALLGETCARNAMELISTFASLOAD  xREMPROP  xU*@`LISTIFYLEXPR-FUNCALLCALLLSUBR-0,8 , ,8 Z([,8Z(,8 ./g~ 00,< "p,8",<//0.U*w,xarguments but gotpxu+]jU xwantedpx xFAIL-ACTERRORNARG-ERRORP2SUBR,8,8,8 ,,8-, $ @0-, g-, $-,,8@``%,8,8",</,xx PNARG-CHECK,8,8,8 3N++ *U "/,x Unknown command tow:@!!""p##x# xUNKNOWN-COMMAND,8,8 , ,8* -, $#-,,8,8g~,8!", :P</,x8 SET-PENCALL3 (u * $$($@ "MOVE-PENCALL3-MAP2-DISPATCH (* $%hC](%P $VECTOR-PEN (* $&(%` &DRAW-POINTw* (* $&(%h (DRAW-LINECALL5-MAP2-DISPATCH,8,8 ,8,8,8 ,1,8,8,82,8,8``%,8,8",<'/,x'p 0*U(;UTYOCALL2GRAPHICS-STREAM-TYO & $(&( 3SET-VIEWPORTCALL5,8,8,8,8,8 ,<,8,8,8=00,8,8,8,8",<*/,x%jTC]) 04VIEWPORTCALL1GET-VIEWPORT $*$+8 =SET-WINDOW,8,8,8,8,8 ,F,8,8,8G00,8,8,8,8",<*/,x%jH;P,@ 0>WINDOWGET-WINDOW $,$+P GSET-INVISIBLEP &!n@C] $-&(X HSET-DOTTEP & $.&(` JDRAW-FRAME@,8-[Z[Z [(Z([,8 &,8,8 g~,8$ g `@0 g~% g~,X g~% g g g~%,X,X g%/,xh KU( 0CALL0CALL4BROADCAST-STREAM-0,8 Z(,8Z,8 g=Nf7@`+eZ`,8`  Bg[`//+a "+& g@ 00N+n7@`+mZ`,8` Z(  Bg[`+/+h "+&0N+v7@`+uZ`,8` Z(Z(  Bg[`(/+o "+&0N+7@`+~Z`,8` Z(Z(`a Z( Bg[`$/+w "+&@ 00N+7@`+Z`,8` Z(00Z(Z(Z ( Bg[` //+ @  "+&0N+7@`+ ,,8Zg`,8g Bg[` B` Z(,8Z(,8Z(,8Z(,8Z(,8",<* + "+& ./g,< "p,8D7@g+% ,$,8,8'Zg~,8g~ Bg~[` B` Z(,8Z(,8Z(,8 Z(,8Z(,8,8g|",<+ "@`%///,x\PMAKE-BROADCAST-STREAM-0,8 $ "0-,u*u/,x(ARGS1012 xOUT-STREAMU*TGRAPHICS-SFASFA-CREATESFA-STOREMAKE-GRAPHICS-SFA-,2 &3" H $3 "34 2 $1,84,X+5j@ P ,SFA-GETWHICH-OPERATIONS,8,8,80D(+7!A $15 ` $((+;0D6+9(z<;` ``]+; $3 g#/,x0 2BROADCAST-SFAP"MAKE-BROADCAST-SFA-0,8,8 &6 $3 "604,X $1,84,X/,x_*U*p<1712 x+TYOPRINTPRIN1OPENCLOSE,8,8,80D(+N $15,87@`+LZ` ,8`[` Bg g7/+G "C/+0D8+X $15,87@`@+W ,V,8,8gZg,8g Bg~[` B`Ea ",<8+P "/+0D+c!@ $15,87@`+a ,a,8,8gZg1 ,8g Bg~[` B`",<+[ "/0P(0+0D8+m $15,87@`+l ,k,8,8gZg,8g Bg~[` B`",P  <8+e "/+0D9+x $1"5,87@`+v ,u,8Zg,8g Bgb[` B`",<9+p/ g-,0P(0+0D9+ $15,87@`+ Z`,8` Bg[`9/+z "Q /+0D6+(8899z]`6#"+ $6 g#/,xh C,8[,8 gC`/,xp ,8[,8 gE`/,x0 ,8[,8 gG`/,x  ,8[,8 gI`/,xH (,8[,8 gK`/,xx 0[g},8 ,,8,8g|,8g|,8g|,8g|,8g|,8g|",}g|/0.@,x `8CALL3-MAP2L,8,8,8,87@g+'Zg,8gZg,8g[ `[g Dg g~  Bg~ g}$/+ "/j@,x (ARRAY-DIMENSION-NCALL3-MAP2A,8,8,8,8*!A@ "3:,<,< w3Np+7 g@ (.4.1[+1Z ` w(.4.4@0 [ +5Z g g~$:w+- "A://,x0 ((CALL3-MAP2A$,8,8,8,8* "3:,<,< w@3Np+G g  `,: w  ,:0 (h &o g g~$:w/+>  P "//,x8 (9CALL3-MAP2A%,800,8,8,8* "3:,<,< w3Np+V g  `,< w  0,< (p &w g g~$:w~/ @`]+M "//,x@ (IWRNG-TYPE-ARGPCALL3-MAP2-DISPATCH-WTA,8,8,8,8,8 ,^,8,8@`,8,8a",<,X & g*g/1Ru*U(%<P 0XFIXNUMFLONUMARRAYARRAY-TYPEBad tU*Unuype of array to map over?@@AABpBBxB xwn tyU;\pe to MAP !CCDBpDDxD x,8,8,8,8` 4F7@ & (F{Z,81B=+i @0B>+k g g~$+0B+n gE g~:+0B>+ g?,81B @ +r5Bu g g~ g~ g};+0B>1 +y g g~ g~ g};+0B=+} g g~ g~ g}<+ g g~ g~  g} "B =/+ * g &  g~ "D =/+ "/h,xX (bCALL5-MAP2L7@g~+ ,,8,8g},8g}Zg},8g} Bg|[` B`Zg},8g}[` B`Zg},8g}[` B`Z g},8g}[` B` Dg{b@0 Fg| Hg|",<*+ "/,x]P`8CALL5-MAP2A g~ "3:,<,< wD3Np+. ,-,8,8g},8g} g}(.4.@[+Z,8 g} w(.4.#[+#Z,8 g} w(.4.'[+'Z,8 g} w(.4.+[++Z @0,8",<*:w+ "//0.@C,xX`8CALL5-MAP2A$ g~ "3:,<",< w3Np+D ,B,8,8g},8g} g} ,: *h,8 g} w ,: (h,8 g} w ,: &h,8 g} w00 ,: *h,8",<*/:w @`]+2 "//,x``80CALL5-MAP2A% g~ "3:,<,< w3Np+Z ,X,8,8g},8g} g} ,< *p,8 g} w ,< (p,8 g} w~ ,< &p,8 g} w~ ,< *p,8A@",<*/:w+H "/t/,xh`8FCALL5-MAP2-DISPATCH-WTA ,d,8,8g},8g} ,a,8,8g{,8g|,8e",<,8,8g}``%,8g},8g}",<'/,x<p@\w;]`?@@AABpGGxG x!CCDBpHHxH x7@g~+7Bg~ @A " (B{Z,81B=+k0B>+q ,p,8,8g|,8g|,8g|,8g|,8g|,8g|",P"<*+0B+w ,w,8,8g|,8g|,8g|,8g|,8g|,8g|",<E+0B>+ g~"?,81B +{5B ,,8,8g|,8g|1 ,8g|,8g|,8g|,8g|",<E+0B>+ ,,8,8g|,8g|,8g|,8g|,8g|,8g|",P"<F+0B=+ , ,8,8g|,8g|,8g|,8g|,8g|,8g|",<F+ ,,8,8,8g{,8g{,8g{,8g{,8g{,8g{",<G/0D+ ,,8,8,8g|,8g|,8g|,8g|`a ,8g|,8g|",<G/+ "/0p,xGHx`8f;