; P@QU*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 @[@  00 "p`1K<0.U*w,xarguments but got 57p99xu+]jU9 xwanted ;px xFAIL-ACTERRORNARG-ERRORP2SUBR,8 ,,8-, 9 @0-, g-,7 $-,0`K,8K<,x=x 1NARG-CHECK,8 3N`1a?+ *U ",x )Unknown command tow:@ !C"Ep##x# xUNKNOWN-COMMAND,8 A,8* -, $#-,3CK :P</,x=8 SET-PENCALL3 (u * $$jI@ "MOVE-PENCALL3-MAP2-DISPATCH (* $%hC]jKP $VECTOR-PEN (* $&jK` &DRAW-POINTw* (* MjKh (DRAW-LINECALL5-MAP2-DISPATCH,8 ,8 c,8e,80`K,8",oO,x'p 0*U(;UTYOCALL2GRAPHICS-STREAM-TYO & $(iQ 3SET-VIEWPORTCALL5,8,8 ,<,8,8=00,8,8",<*,x%jTC]S iVIEWPORTCALL1GET-VIEWPORT U$+8 {SET-WINDOW,8,8 ,F,8,8G00,8,8",<*,x%jH;P,@ }WINDOWGET-WINDOW Y$+P SET-INVISIBLEP &!n@C] [iQX SET-DOTTEP & $.iQ` JDRAW-FRAME@-[Z[Z [(Z([ &,8,8$ `@0 g~%,X% g3 %,X%/,xh U( 0CALL0CALL4BROADCAST-STREAM-0 @Z g7@``Z`,8` [`/+a "`M g@ 00N`7@``Z`,8` Z( [`++h "`M`7@``Z`,8` Z(A [`aQ` "`M0N+@`+~Z`,8` Z(A0aAZ([`bI` "`M@ 0+7@`+Z`,8` Z(0aAZ(B[`b_+ @  "`M0N`+7@``) ,,8@`3 Bg[` B` Z(@Z(@Z(",<* + "`M ./g "p`1D3+% I,8O@3 Bg~[` B` Z(@Z( @Z(,8g|",<`1 "```K,x3PMAKE-BROADCAST-STREAM-0`1 $ "0-,%u*u,x(ARGS1ac2xOUT-STREAMU*TGRAPHICS-SFASFA-CREATESFA-STOREMAKE-GRAPHICS-SFA-,e &3" H g "34e cai+AP ,SFA-GETWHICH-OPERATIONS,80D(`o0C cak ` $(aQ+;0D6`s(z<;` ``]+; $3aG,x0 2BROADCAST-SFAP"MAKE-BROADCAST-SFA-0`1 m gm04 cai,x_*U*p<17c2x+TYOPRINTPRIN1OPENCLOSE,80D(+N cak7@``Z` ,8`[` gao` "C+0D8` cak7@`@+W ,8,8gZg,8g[` B`1@aA",<8` "+0D+c!@ cak7@`` ,a,8,8gZg1 ,8g[` B`",<+[ "0+q` cak7@`+l ,8,8gZg,8g[` B`",P  oq` "+0D9+x c"ak7@`+v ,8@3 Bgb[` B`K<9+p g-,0+s` cak7@`+ Z`,8`[``s` "Q +0D6`(8q9sz#E+ maG,xh [C`/,xp [E`/,x0 [G`/,x  [I`/,xH [K`/,xx 0` 9,8333333",s0.@,x 8-CALL3-MAP2L,8,83+'@3As3[ `a Dg g~ bI/`? "/j@,x ;ARRAY-DIMENSION-NCALL3-MAP2A,8,8A!A@gau,<,<3Np`o 4.1a`cA ` i@0 bP+5BP gbI@;+- "A://,x0 QCALL3-MAP2A$,8,8Agau,<,<@3Np+G `a (h gbI@;/+>  P "//,x8 sCALL3-MAP2A%00,8,8Agau,<,<3Np` ` w0 (p gbI@;/ @`]` "//,x@ (IWRNG-TYPE-ARGPCALL3-MAP2-DISPATCH-WTA,8,8 ,8@`,8K<,X &3*g/1Ru*UjKyP FIXNUMFLONUMARRAYARRAY-TYPEBad tU*Unuype of array to map over @ABpx xwn tyU;\pe to MAP !CDBpx x,8,8`A4F & Z0{+i @0B>+k g g~bI+!+n gE g~:+}+ g?1B @ +r5Bu g g~;+0B>1A+y g g~bw+{+} g g~<+ g3 g~ 3 =+ * g &  g~ =` "/h,xX (bCALL5-MAP2L3+ ),8,8g},8g}Zg},8g}[` B`Zg},8g}[` B`Zg},8g}[` B`Z g},8g}[` B`3b@0 Fg|3",<*` "/,x]P8 CALL5-MAP2A3gau,<,<3Np+. ,-,8,8g},8g} g} 4.@``?@ g} 4.#``G@ g} 4.'``O@ g} 4.+``W@ @0",<*@;+ "//0.@C,xX8-CALL5-MAP2A$3gau,<",<3Np+D ,8,8g},8g} g} *h g} (h,8 g} &h g}00 *h",<*/@; @`]`e "//,x``80CALL5-MAP2A%C3gau,<,<3Np+Z ,8,8g},8g} g} *p g} w (p,8 g} &p g} w~ *pA@",<*/@;` "/t/,xh`8FCALL5-MAP2-DISPATCH-WTA ,8,8g},8g} ,8,8g{,8g|K<,8g}0`K,8g},8g}",oO,xyp@\w;]` @ABpx x !CDBpHHxH x3+`AA " Z0{`0B>+q ,8333333",P"<*+!` ,w,8333333",<E+}`) g~"?1B `5B ,8,8g|,8g|1A,8g|,8g|,8g|,8g|",o`'0B>` ,,8,8g|,8g|,8g|,8g|,8g|,8g|",P"<F`'{+ ,8,8g|,8g|,8g|,8g|,8g|,8g|",o`' ',89333333K<G0D+ ,,8,8,8g|,8g|,8g|,8g|`a ,8g|,8g|K<G`7 "/0p,xHx`8f;