@CAT,P 1008-002-002.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1008-002-002,,,127740053241,000 )@@G@@**PF**@@@[?.@@@@@@@@@@@[@A,@@@]FE /^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@F@@@@@@@@N@@@@@@@@@@@@@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@W@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@V@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M@@@@@@@@@@@#@@@@@@@@@AE )@@G@@@@@@@B@@]@@J@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@R@@@@@^@@@@@D@@@@@@@@[@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@K@@Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@E@@E@@XAN )@@G@@SNOBOL-15 @@@@@@@@A@@@ C_#W @@@@J8@@@@W@IG*FDABUBBLESORT-IAO )@@G@@@@@@@@@@[@@@ @ @@@[[@@@@[@@@@:8GE8FGABUBBLESORT-F@@@@@@@@[@@@AP )@@G@@ @ @@@[[@@@@B@@@@:9GE/FGAQUICKSORT-I @@@@@@@@[@@@ AQ )@@G@@@ @@@[[@@@@[@@@@?@GFJFGAQUICKSORT-F @@@@@@@@[@@@ @ @@@[[@@@@DAR )@@G@@@@@@?[GFSFGAGCD-D @@@@@@@@[@@@ @ @@@[[@@@@A@@@@?EGF)FGAAS )@@G@@GCD-I @@@@@@@@[@@@ @ @@@[[@@@@[@@@@?KGF(FGAGCD-F AT )@@G@@@@@@@@@@[@@@ @ @@@[[@@@@ @@@@?LGF5FGAINDEX @@@@@@@@[@@@AU )@@G@@ @ @@@[[@@@@:@@@@?QGGGFGASORT-DATA-D @@@@@@@@[@@@ AV )@@G@@@ @@@[[@@@@ @@@@![GGHFGASORT-DATA @@@@@@@@[@@@ @ @@@[[@@@@KAW )@@G@@@@@@!AGGLFGAFREEZE-D @@@@@@@@[@@@ @ @@@[[@@@@H@@@@!QHTIFXAAX )@@G@@FREEZE-I @@@@@@@@[@@@ @ @@@[[@@@@]@@@@!HTJFXAMIN-MAX-D @@@@@@@@[@@@AZ )@@G@@ @ @@@[[@@@@B@@@@!\HTKFXAMIN-MAX-I @@@@@@@@[@@@ BA )@@G@@@ @@@[[@@@@]@@@@!6HTLFXAMIN-MAX-F @@@@@@@@[@@@ @ @@@[[@@@@#BB )@@G@@@@@@!8HTLFXABUBBLESORT-D@@@@@@@@[@@@ @ @[@][@@@@J@@@@!;JWPFXABC )@@G@@QUICKSORT-D @@@@@@@@[@@@ @ @]@#[@@@@K@@@@,EJWSFXAPATCHMERGE-DBD )@@G@@@@@@@@@@[@@@ @ @@@[[@@@@P@@@@,UG :[VBPATCHMERGE @@@@@@@@[@@@BE )@@G@@ @ @@@[[@@@@+@@@@,\G ,[VBINDEX-D @@@@@@@@[@@@ BF )@@G@@@ @]@#[@@@@>@@@@\LM.5]KBSNOBOL @@@@@@@^ @@S @@@[]^@@^@MIBG )@@G@@@@@@\6H A#^BSNOBOL @@T@@@@ A@@@ ?UC6. 8@@K-@@@[]CIIV#^BBH )@@G@@SNOBOL @@@@@@@@A@@@V3-4-4 SGB7O *@@J0@@@[M(O!>#^BNEWS BI )@@G@@@@@@@@@@[@@@ @ @@@[[@@@@E@@@[+TO!&#^BEXTERNAL-D @@@@@@@@[@@@BJ )@@G@@ @ @@@[[@@@[3@@@[+BF1##QB@H@@@@^@)^[DC0) []EK1^@.^@0 C)CDIC)) [GD9#AC)DDI^[VA@, 1HCDSBM )@@G@@F9[EL C9X C)CDIC))E)1^@)@^@@@@^@)^@)^@)E-CC(I^[]C(BDDI@E@@@@^@)^@)^@)C9 BN )@@G@@D1DD1NE)*^[JE[#D9^C*?^[GD9#AC?^[]EK2 ))D-JCS2 C;@C@@@@^@)^@)^@)C1MC( []BO )@@G@@EK2 ))D-JCS2 ))AC?^[OAK(BS)^@)@#@@@@^@)^@)^@)C(IC))^@)@#@@@@^@)^@)^@)C(GBP )@@G@@ET ^@)@E@@@@^@)^@)^@)DDA^[BC(O @)EL C9ZE-TE@?^@1 ))CLM ))D-JCS?^[OC(HE@(BQ )@@G@@@ @@@@^@)^@)^@)^@)^[OD[ D0)CL C9DD0)@F@@@@^@)^@)^@)^@)^[BC(IDDIETO @)D-^BR )@@G@@F9JE@?^[GD9# ))CLMAC?^[GD9#AC(BS)^@)@F@@@@^@)^@)^@)^@)^[BC(IDDIETO @)D9KBS )@@G@@CTJC- ))D-JCS?^[]EK2 ))D-JCS2 C;^@)@C@@@@^@)^@)^@)^@)^[AEL C**CLMAC?^[GBT )@@G@@D9#AC?^@1 ))E)1 C;@D@@@@^@)^@)^@)^@)^[AEL C**^[]EK2 ))D-JCS2 ))AC?^[OAK(BU )@@G@@BS)^@)@ @@@@^@)^@)^@)^@)^[]EK1^@'B*)CLMBS)@A@@@@^@)^@)^@)^@)^[GD9#AC)BK.BV )@@G@@^[GD9#BS)^@)@ @@@@^@)^@)^@)^@)^[OAC)BK.^[OC(HE@;@#@@@@^@)^@)^@)^@)^[ D1^BW )@@G@@@ @@@@^@)^@)^@)^@)^[ D-NC*)CL C9DD0)@I@@@@ @%^[^E(NE), 0,^[DD(KD- D( D1OBX )@@G@@C(^^[AD9M^[NDDIC9GC*)EL C9DETOC(M^[PET ^[JD1GFC) K(^@)@F@@@@^@)^@)^@)^@)BY )@@G@@^[BC(IDDIETO [GC-ZD9K ))ET#ELZEL C8?^[]EK1 ))D-JCS1 C;@G@@@@^@)^@)^@)^@)BZ )@@G@@^[BC(IDDIETO @)D9KCTJC- ))ET#ELZEL C8?^[]EK2 ))D-JCS2 C;^@)@F@@@@^@)^@)CA )@@G@@^@)^@)^[BC(IDDIETO @)ETOF9JE@?^[NCTMF9MC(B ))CLM ))D-JCS(BS)@C@@@@^@)^@)CB )@@G@@^@)^@)^[AEL C**CLMAC?^[GD9#AC?^@1 ))E)1 C;@C@@@@^@)^@)^@)^@)^[AEL C**CLMCC )@@G@@AK?^[GD9#AK?^@1 ))E)2 C;@ @@@@^@)^@)^@)^@)^[]EK1^@'B*)CLMBS)@A@@@@^@)^@)CD )@@G@@^@)^@)^[GD9#AC)BK.^[GD9#BS)^@)@ @@@@^@)^@)^@)^@)^[OAC)BK.^[OC(HE@;@^@@@@CE )@@G@@^@)^@)^@)^@)^[ D1^BS)^@)@]@@@@^@)^[ D1^BS)@@@@@@@@@@@@@J@@@@E[MD9#C(^E(MCF )@@G@@C*)C1MC( @)CLM ))D-JCS?^[GC(IC9OD@)BK)DDIE- C9 EK;^[OC(HE@)BK)CLJD9GC([CG )@@G@@D0(BS)@A@@@@E1[EK)^[AEL C(ZEL C8)BK)DDIE- C9 EK;@]@@@@^@)^[]C(BDDI@I@@@@CH )@@G@@^@)^[DC0*CLM^@.^@0 C)CDIC)) [GD9#^[DD0)FTHDDIF9[EL C8, 1HCDSF9[EL C9X C)CI )@@G@@CDIC))E- D(K@^@@@@^@)^@)^@)E-CC(I^[]C(BDDI@G@@@@^@)^@)^@)C1JEK)C1MC( F9MCJ )@@G@@C(B^@'B*)D-JCS)E-J^[GD9#^@:^[GC(IC9OD@) *)AC)C-J@D@@@@^@)^@)^@)^@)^[[D-GCK )@@G@@D9#F9MC(BES) S'B*)FTAEL C(ZEL C9XBS)@#@@@@^@)^@)^@)C(IC);^@)@]@@@@^@)^[ CL )@@G@@D1^BS)@@@@@@@@@@@@@O@@@@C1PD1#E-DD9I^[BC(O @)E-TE@?^[GC(IC9OD@)BK)DDIE- CM )@@G@@C9 EK;^[QCDM^[]EK?^[GD9#^@'^[DD1OC(BC(MBS)E1[EK)E- D(K^@'^@)CLJD9GC([D0(CN )@@G@@@^@@@@^@)^@'^[]D9JD- CDIBS)^@)@ @@@@E1[EK)C9JE-DE))BK)CLJD9GC([D0;@ @@@@CO )@@G@@^@)^[#D9IE-DC8)BK)DDIE- C9 EK;@D@@@@^@)^[OD[DETZEL C8)BK)D(DD1ZCDMC(B 0,CP )@@G@@D([F[ZCDMC(BBS)^@)@]@@@@^@)^[]C(BDDI@ @@@@^@)^[BD9ODDO^@'B*)C1[D-NC*;^@)CQ )@@G@@@ @@@@^@)^[DC0)E-TE@)B*)EL C9ZE-TE@)@^@@@@^@)^@)^@)E-CC(I^[]C(BDDI@B@@@@CR )@@G@@^@)^@)^@)E-CDDNF9MC(B^@'B*)D(DD1ZCDMC(BBS)@I@@@@^@)^@)^@)E9CDDGC*) [OD[DCS )@@G@@ETZEL C8)B).^[HCDSF9[EL C8(^[[D1^^@*D1JE))C9JE-DE)(^[^D8)^@)@^@@@@^@)^@)CT )@@G@@^@)^@)^[]C(BDDI^@)@D@@@@^@)^@)^@)^@)^[DC0)E-CDDNF9MC(B^[DD0)CDGD-JCTZEL CU )@@G@@C9N^@)@A@@@@^@)^@)^@)^@)^@)^@)E-CC(I^[]C(BDDI^@)@A@@@@^@)^@)^@)^@)^@)^@)CV )@@G@@CTJD1ODDB^@'B*)AC;@B@@@@^@)^@)^@)^@)^@)^@)C9JE-DE))BK.^[OELPC*;^@)@G@@@@CW )@@G@@^@)^@)^@)^@)^@)^@)E9CDDGC*)C9JE-DE))CDIC)) [#D9IE-DC8)B))D- D1BE-C C)C-JCX )@@G@@@I@@@@^@)^@)^@)^@)^@)^@)DDA^[ID9O @*^[OD[DETZEL C8) S)CTJD1ODDB C)DDI^[[CY )@@G@@D-GD9#F9MC(BES(^@)@D@@@@^@)^@)^@)^@)^@)^@)^@)^[OD[ D0)C9JE-DE))BK.^[ACDGCZ )@@G@@ET BS)@B@@@@^@)^@)^@)^@)^@)^@)DDA^[BD9ODDO^@.^[OELPC*)@B@@@@^@)^@)^@)^@)DA )@@G@@^@)^@)^@)^[OD[ D0)CL C9DD0)^@)@B@@@@^@)^@)^@)^@)^@)^@)^@)^[OC(HE@)BK.^[ODB )@@G@@ELPC*;@C@@@@^@)^@)^@)^@)^@)^@)^@)^[GD9#^@'B*)E-CDDNF9MC(BBS)@A@@@@^@)^@)DC )@@G@@^@)^@)^@)^@)^@)^[]EK)BK.^@0BS)@L@@@@^@)^@)^@)^@)^@)^@)^@)^[AD9M^[OD[DETZDD )@@G@@EL C8)BK.^[OD[DETZEL C8)E-J^[OD[DETZEL C8) S)D- D1BE-C^@!AC)C-J^@)@F@@@@DE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)CDGD-JCTZEL C9N^@!BK.^[VE-CDDNF9MC(BF*;@ @@@@DF )@@G@@^@)^@)^@)^@)^@)^@)^@)^[ D1^BS)@B@@@@^@)^@)^@)^@)^@)^@)CTJD1ODDB^@:BK.^@1DG )@@G@@BS)^@)@^@@@@^@)^@)^@)^@)^@)^@)C(IC);@^@@@@^@)^@)^@)^@)^[ D1^BS)^@)@#@@@@DH )@@G@@^@)^@)^@)C(IC);^@)@^@@@@^@)^[DC0)D1JE))C9JE-DE))@^@@@@^@)^@)^@)E-CC(I^[]DI )@@G@@C(BDDI@[@@@@ @%^@)@B@@@@^@)^@)^@)CLM^@'B*)CTPELMF9^DDNE[GCDTBS)^@)@H@@@@DJ )@@G@@^@)^@)^@)ETTD(ZE-[CLVCTPELMF9^DDNE[GCDTF*,CDMF9GC(IC9OD@) S'B*)D- D1BE-CDK )@@G@@BS)^@)@F@@@@^@)^@)^@)D-JCS)BK.^[NFDHE-[CLVCTPELMF9^DDNE[GCDTF*,CDMF9GC(IDL )@@G@@C9OD@;@ @@@@^@)^@)^@)E- D(K^@'B*)C1[D-NC*;@]@@@@^@)^@)^@) K(@M@@@@^@)^@)DM )@@G@@^@)E9MDDOC(GD0*^8<^S<^[#H9!I[(H->IK)G(2IL\IK) *)IL-H0)H95I))H9&^[-H-?H9^[2G($HD3I->IL3 0$ C;@#@@@@^@)^@)^@)CD]D9ME);@#@@@@^@)^@)^@)C(IDO )@@G@@C);^@)@^@@@@^@)^[BC(O^@'B*)C9JE-DE);@]@@@@^@)^[ D1^BS)@@@@@@@@@@@@@D@@@@DP )@@G@@E[MD9#C(^E(MC*)E[PETCETN [QCDMF9OFDK^@'^[DD1OC(BC(M C;@]@@@@^@)^[]C(BDDIDQ )@@G@@@B@@@@^@)^[DC0)ET D(ZE-JE@)B*)D([F[ZET D(ZETODS)@^@@@@^@)^@)^@)E-CC(I^[]DR )@@G@@C(BDDI@A@@@@^@)^@)^@)CTJC- F9BC(I^@'B*)C1[D-NC*;@L@@@@^@)^@)^@)E9MDDOC(GDS )@@G@@D0*^8<^S<^[#H9!I[(H->IK)G(2IL\IK) *)IT>H(-H14HD<^[3I--GT:^[\I1>IL&H-\I8)DT )@@G@@^S<^S$ C;^@)@#@@@@^@)^@)^@)C(IC))^@)@^@@@@^@)^@)^@)C(GET ^[]C(BDDI@ @@@@DU )@@G@@^@)^@)^@)ET D(ZE-JE@) S'B*)AC;@A@@@@^@)^@)^@)CT[ET ^[QCDMF9OFDK^[JC0)^@)DV )@@G@@@H@@@@^@)^@)^@)C-ZET#CDGCDM^@'^[IC(R [NC(HF9NE-[CTFFTNC(HF9OD9KF*?^[^F9NDW )@@G@@CT[D-[EK(BS)@H@@@@^@)^@)^@)C-ZCDMEL[FC)BK)D1 E8*ET D(ZETOCD#DTVET D(ZE-JDX )@@G@@E[X ))C-ZCDMEL[FC(BS)^@)@H@@@@^@)^@)^@)C-ZEL CTJEL^^@'^[IC(R [NC(HF9NE-[DY )@@G@@CTFFTNC(HF9OD9KF*?^[^F9MC(#D9MC)(BS)@G@@@@^@)^@)^@)C-ZE[MD9#^@'^[IC(R [NDZ )@@G@@C(HF9NE-[CTFFTNC(HF9OD9KF*?^[^F9KELJCS(BS)@G@@@@^@)^@)^@)C-ZC1PD1#^@'^[IEA )@@G@@C(R [NC(HF9NE-[CTFFTNC(HF9OD9KF*?^[^F9AE(ICS(BS)@I@@@@^@)^@)^@)C-ZC1PD1#EB )@@G@@E1[EK)BK)D1 E8*ET D(ZETOCD#DTVET D(ZE-JE[X ))C-ZC1PD1#E1[EK(BS)^@)@H@@@@EC )@@G@@^@)^@)^@)C-ZD1#D9IETO^@'^[IC(R [NC(HF9NE-[CTFFTNC(HF9OD9KF*?^[^F9ICTJD1NED )@@G@@E)(BS)@H@@@@^@)^@)^@)C-ZD1OFDKC*)BK)D1 E8*ET D(ZETOCD#DTVET D(ZE-JE[X ))EE )@@G@@C-ZD1OFDKC*(BS)^@)@F@@@@^@)^@)^@)C-ZDD^^@'^[IC(R [NC(HF9NE-[CTFFTNC(HF9OEF )@@G@@D9KF*?^[^F9DC)(BS)@F@@@@^@)^@)^@)C-ZD9K^@'^[IC(R [NC(HF9NE-[CTFFTNC(HF9OEG )@@G@@D9KF*?^[^F9JE@(BS)@#@@@@^@)^@)^@)C(IC);^@)@#@@@@^@)^@)^@)C(IC);^@)@]@@@@EH )@@G@@^@)^[ D1^BS)@@@@@@@@@@@@@D@@@@E[MD9#C(^E(MC*)E[JE[NES*E-DD( ES)BK)DDIE- EI )@@G@@C9 EK(BS)^@)@ @@@@E1[EK)CTJE(IE))BK)DDIE- C9 EK;@]@@@@^@)^[]C(BDDI@^@@@@EJ )@@G@@^@)^[#D9PD1O^@'B*)A@;^@)@B@@@@^@)^[RD[DD- ^[#D9PD1O^@/^[ODDHC(N^[^D8)^@)EK )@@G@@@#@@@@^@)^@)^@)CL C9DD0)@ @@@@^@)^@)^@)CTJE(IE)) S'B*)AC;^@)@C@@@@^@)^@)EL )@@G@@^@)DDA^[NC(HF9OD9K^@/^[HDDIF9NC(HF9NE-F^@)@ @@@@^@)^@)^@)^@)^[OD[ D0)CL EM )@@G@@C9DD0)@N@@@@^@)^@)^@)^@)^[RELDE- D-I @$^S<^S)CT\H(0HD?G(2^[>IL2H92^@!^[3EN )@@G@@G(!GD,I-(GS)IT4GDIL&H-\I8) *)GD+H92I)$ C;^@)@^@@@@^@)^@)^@)^@)EO )@@G@@^[[CLJELOBS)@#@@@@^@)^@)^@)^@)^[ D1^@ @@@@^@)^@)^@)^@)^[ D-NC*)CL C9DD0)EP )@@G@@@E@@@@^@)^@)^@)^@)^[^DDNE[JET [NC(HF9NE-[CTFFTNC(HF9OD9KF*(BS)^@)@A@@@@EQ )@@G@@^@)^@)^@)^@)^[NC(HF9OD9K^@!BK.^@1BS)@^@@@@^@)^@)^@)^@)^[ D1^BS)^@)@#@@@@ER )@@G@@^@)^@)^@)C(IC);^@)@]@@@@^@)^[ D1^BS)@@@@@@@@@@@@@@@@@@@^@@@@ @%^@)^[JE[OES )@@G@@DDJD1NBK)^@)@C@@@@^@)^@)^[G^@)^[ND9PEL#C*)B*)ETJE(MCT ^[GDDNE-DD1B@D@@@@ET )@@G@@^@)^@)^[[^@)^[[ETNC(HCLGFC)B*)CDNET D(]D-T^[GDDNE-DD1B@D@@@@^@)^@)^[]^@)EU )@@G@@^[#D9^C*)C9 D1 EL[E-DD9I^[NE(KE[MC(NET C))@C@@@@^@)^@)^[N^@)^[OEL[CT AC)EV )@@G@@B*)ET#CDID1 EK)E-MCD#C*)@D@@@@^@)^@)^[K^@)^[KCDMET F9OEL[CT ^@.^[NETG^[^EW )@@G@@DDNE[GCDT^@)@F@@@@^@)^@)^[M^@)^[ME(IF9OEL[CT ^@.^[ME(IE-DD( ^[ F[ CTPE-DEX )@@G@@D9I^[OEL[CT @E@@@@^@)^@)^[#^@)^[ID9O^[#D9^C(ZC9 D0)B*)CTCC(#DS)D9PE))D(JEY )@@G@@C- ^@)@D@@@@^@)^@)^@)^@)^[ODDHC*)C- C1[E(GE))B*)A*0A@0^[#FD#D- ES)@D@@@@EZ )@@G@@^@)^@)^[O^@)^[ODDHC*)B*)E-DD( ^@:^@1A@0A@0^[#FD#D- ES)@D@@@@^@)^@)^[P^@)FA )@@G@@^[ODDHC*)B*)E-DD( ^@:^@2A*0A@0^[#FD#D- ES)@[@@@@ K(^@)@@@@@@@A@@@@E[MD9#FB )@@G@@C(^E(MC*)DDIDDODD[D-DFL BS)^@)@ @@@@E1[EK)DC?DK)BK)DDIE- C9 EK;^@)@]@@@@FC )@@G@@^@)^[]C(BDDI@E@@@@^@)^[#D9^C(ZC9 D0)BK.^[ID9O @)^9]^8)DDI^[JE[ODDJD1N^@(FD )@@G@@BS)^@)@B@@@@^@)^[ND9PEL#C*)BK.^@$D)$^[DD0)D9KE-DD9IES;@C@@@@^@)^[[ETNC(HFE )@@G@@CLGFC)BK.^@$CC$^[DD0)D9KE-DD9IES;^@)@D@@@@^@)^[KCDMET F9OEL[CT ^@'B*)^9KFF )@@G@@^8)DDI^[JE[ODDJD1NBS)^@)@B@@@@^@)^[OEL[CT AC)BK.^@$ES$^[DD0)D9KE-DD9IES;FG )@@G@@@ @@@@^@)^[ME(IF9OEL[CT ^@'B*)A@;^@)@F@@@@^@)^[DC0)^9M^8)DDI^[JE[ODDJD1NFH )@@G@@^[OD[ D0)ELPD1ZE-MCD#C*)BK.^@1BS)^@)@A@@@@^@)^[ODDHC(ZD-DD(DE))BK.^@5A@0FI )@@G@@A@;^@)@G@@@@^@)^[DC0)^9O^8)DDI^[JE[ODDJD1N^[OD[ D0)E-DD( F9GDDHDDO^@:BK.FJ )@@G@@^@1A@0A@0BS)@G@@@@^@)^[DC0)^9P^8)DDI^[JE[ODDJD1N^[OD[ D0)E-DD( F9GDDHDDOFK )@@G@@^@:BK.^@2A*0A@0BS)@A@@@@^@)^[KCDMET F9JD1GFC)BK.^[ACDGET BS)@A@@@@^@)^[GFL )@@G@@DDIC(ID9ZEL C8)BK.^[GDDIC(ID8;@#@@@@^@)^[ ELMF9DD1DE);@#@@@@^@)^[HDDNF9DFM )@@G@@D1DE);@E@@@@^@)^@* K)EL CD^^[DD0)DDIETOELPCTODDJD0)DDIC1JELHCDODDJD0) K(FN )@@G@@@D@@@@^@)^[AD9M^[D^@'B*)AC)E-J^[HCDSF9DD1NE-ZDDIC- F@)C-J^@)@#@@@@^@)^@)FO )@@G@@^@)CL C9DD0)@D@@@@^@)^@)^@)C1JEK)DK)BK.^@1^[OD8)D([F[ZD(IC(HF9NDDUC*)C-JFP )@@G@@@D@@@@^@)^@)^@)^@)^[MC([C)*DDIETOFTDF*,D(IC(HD9IDD#FTEF*(BS)@F@@@@^@)^@)FQ )@@G@@^@)EL CD^ [DD1NE-VDDX 1ADD D-^ES?DDIETOFTDF*,D9KCTJC- C;^@)@^@@@@^@)^@)FR )@@G@@^@)EL CD^D-IBS)^@)@#@@@@^@)^@)^@)C(IC);^@)@^@@@@^@)^[UC(MD8)BK.^@0BS)^@)FS )@@G@@@ @@@@^@)^[OE-ME( ^@'B*)**PF**@@@[NM@@@@@@@@@@@[@JY@@@]FE /^@@@@J@@#4@@@FT )@@G@@]F^AA=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ FU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FV )@@G@@@@@@@^@@@@@O@@@@@K@@_@@@@@@@@J@@@@@@@@@@@@@@T@@@@@@@@@@[F@@@@@@@@@@@@@@@FW )@@G@@@@@@@@@@@@@@@@@@@@@@)@@G@@@@@!@@@@@V@@@@@@@@R@@@@@@@@@@@@@@@@@@@@@@[H@@@FX )@@G@@@@@@[O@@@@[N@@%@@@@@9@@&@[C@@@@@A@@@@@@@@@@@C@@@@@@@@,@@@@@@@@@@@@@@]@@@FY )@@G@@@@@@@Q@@@@@@@@@@@@@@@@@W@@@@@@@[]@@@@@@@@@@@@@@@@@@@@@@@@@[M@@@@@@@@@@@@FZ )@@G@@@[A@@@@@@@@@@@@@@@@@@@@"@@H@@@@@@@@@@@@@@@@@@@@@@@@@@$@@S@@@@@@@@@@@@@@@GA )@@G@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@@@@@@@@@@@@@@@@@@@/@[G@@@GB )@@G@@@@@@@@@@4@@@@@@@@@@@@@@@@@@@[D@@ @@@@@@@@@@@@@@@@[@@@Z@@@@@@@@@@@@@@@@@BGC )@@G@@@@@@@2@@@@[P@@E@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>@@@@@@@@@@[ @@@@@@GD )@@G@@@@@@@N@@@@[I@@Y@@@@@@@@3@@@@@@@@@@[[@@*@@@@@@@@@@@:@@@@@F@@@@@@@[K@@@@@@GE )@@G@@@@<@@@@@U@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@7@@@@@@@@@@@@@@@@@5GF )@@G@@@@M@@@@@@@@@@@@@@@@@@@@@@@@@@6@@+@[E@@@@@@@@D@@@@@@@@[@@X@@@@@@@@'@@@@@\GG )@@G@@@@@@@@@@@@@@@@@@@8@@E@[PDOWN @@@@@@@@A@@@ @XL^F!^@@@[PGH )@@G@@@@@@W@KJ-D^BUOMMAP @@@@@@@@A@@@ [YQ#AF^@@@D8@@@@XPCL)^GCGI )@@G@@ERROR$ @@@@@?@@A@@@ [ U@@@^@@@]=@@@@$HK^.[TDED GJ )@@G@@@@@@@@@@A@@@ @@@@:P^@@@[L@@@@(1IL+C#DED$ @@@@[B@@A@@@GK )@@G@@ [N\@:P^@@@#M@@@@:]IMOC#DAPSNAP @@@@@I@@ @@@APL GL )@@G@@@@@@,P@@[@@[@@@@,OP^ACBDASINOU @@@@@@@@ @@@APL @@@@,6@@^@@)GM )@@G@@@@@@,QP^SCBDBITMAP @@@@@@@@ @@@ @@@@,_@@[@@ @@@@,'P CBDGN )@@G@@CLEAR @@@@@@@@ @@@APL @@@@\A@@#@@A@@@@\@P ,CBDCODSTO GO )@@G@@@@@@@@@@ @@@APL @@@@\J@@#@@A@@@@\D@@GCCDCOMMO @@@@@@@@ @@@GP )@@G@@APL @@@@\X@@^@@F@@@@\M@[NCCDDASINCO$ @@@@@@@@ @@@APL GQ )@@G@@@@@@\>@@]@@^@@@@\-@[\CCDDASINCOH$ @@@@@@@@ @@@APL @@@@\%@@[@@#GR )@@G@@@@@@\$@[2CCDDATAN$ @@@@@@@@ @@@APL @@@@\2@@[@@B@@@@\:@[5CCDGS )@@G@@DATANH$ @@@@@@@@ @@@APL @@@@\5@@[@@]@@@@\3@[7CCDDCOSH$ GT )@@G@@@@@@@@@@ @@@APL @@@@\8@@[@@]@@@@\6@[9CCDDEXP$ @@@@@.@@ @@@GU )@@G@@APL @@@@\"@@[@@ @@@@\9@[;CCDDGAMMA @@@@@@@@ @@@APL GV )@@G@@@@@@0G@@[@@H@@@@\_@[_CCDDLOG$ @@@@@@@@ @@@APL @@@@0M@@[@@ GW )@@G@@@@@@0H@]#CCDDSINCO$ @@@@@@@@ @@@APL @@@@0S@@[@@ @@@@0N@]KCCDGX )@@G@@DSINH$ @@@@@@@@ @@@APL @@@@0V@@[@@]@@@@0T@]MCCDDSQRT$ GY )@@G@@@@@@@=@@ @@@APL @@@@0Y@@[@@]@@@@0W@]OCCDDTAN$ @@@@@@@@ @@@GZ )@@G@@APL @@@@0-@@[@@]@@@@0Z@]QCCDDTANH$ @@@@@@@@ @@@APL HA )@@G@@@@@@0=@@[@@]@@@@0+@]SCCDEDLEAP @@@@@@@@ @@@APL @@@@00@@#@@FHB )@@G@@@@@@0>@##CCDERASER @@@@@@@@ @@@APL @@@@1[@@#@@I@@@@03@#KCCDHC )@@G@@ERRMSG @@@@@@@@ @@@APL @@@@1-@@D@@X@@@@1^@^2CCDFDINOU HD )@@G@@@@@@@@@@ @@@APL @@@@2S@@ @@,@@@@1%@ +CCDFHANAL @@@@@(@@ @@@HE )@@G@@APL @@@@21@@#@@O@@@@2X@ 3CCDFILASG @@@@@@@@ @@@APL HF )@@G@@@@@@3^@@^@@K@@@@24@ /CCDFILRWR @@@@[J@@ @@@APL @@@@4 @@ @@.HG )@@G@@@@@@3C@AXCCDFILSUP @@@@@@@@ @@@APL @@@@5M@@ @[C@@@@4E@BCCCDHH )@@G@@FNHPRT @@@@@@@@ @@@APL @@@@5X@@]@@A@@@@5R@BICCDFNHXQT HI )@@G@@@@@@[#@@ @@@APL @@@@5%@@#@@F@@@@5Z@BSCCDFRMTNG @@@@@@@@ @@@HJ )@@G@@APL @@@@6 @@^@@S@@@@5!@B>CCDFUNDEF @@@@@1@@ @@@APL HK )@@G@@@@@@7^@@A@@;@@@@6D@C^CCDFUNLBL @@@@[L@@ @@@APL @@@@7I@@#@@^HL )@@G@@@@@@7E@C$CCDFUNNYM @@@@@@@@ @@@APL @@@@7Z@@#@@I@@@@7L@C2CCDHM )@@G@@FUNTBL @@@@@@@@ @@@APL @@@@7'@@^@@S@@@@7+@D[CCDIBEAMS HN )@@G@@@@@@@@@@ @@@APL @@@@9<@@C@[>@@@@7"@E@CCDLDPEND @@@@@@@@ @@@HO )@@G@@APL @@@@93@@]@@C@@@@9:@FBCCDL$IJSIM @@@@@@@@ @@@APL HP )@@G@@@@@@98@@]@@#@@@@95@F\CCDLINEKO @@@@@@@@ @@@APL @@@@']@@#@@CHQ )@@G@@@@@@9'@GOCCDMICROP @@@@@@@@ @@@APL @@@@'I@@#@@D@@@@' @H;CCDHR )@@G@@MTHLIB @@@@@0@@ @@@APL @@@@'Z@@ @@I@@@@'L@I.CCDNEXPB$ HS )@@G@@@@@@@@@@ @@@APL @@@@'*@@[@@^@@@@'=@J@CCDPRNTNG @@@@@@@@ @@@HT )@@G@@APL @@@@'9@@^@@K@@@@'(@JDCCDSORTOPS @@@@@@@@ @@@APL HU )@@G@@@@@@;E@@#@@H@@@@'.@K9CCDSTACK @@@@@@@@ @@@APL @@@@;O@@#@@BHV )@@G@@@@@@;H@K"CCDSTOPTR @@@@@@@@ @@@APL @@@@;+@@#@@F@@@@;R@L CCDHW )@@G@@STORAG @@@@@@@@ @@@APL @@@@;.@@ @@S@@@@;>@LMCCDXQTSUP HX )@@G@@@@@@@@@@ @@@APL @@@@.P@@B@[N@@@@/]@PGCCDDOMINO @@@@@@@@ @@@HY )@@G@@APL @@@@.;@@#@@Z@@@@.W](ACCDSYSCMD @@@@@@@@ @@@APL HZ )@@G@@@@@@_-@@E@[<@@@@."H*DQDXQTSEG-RMAP @@@@@@@@[@@@IX )@@G@@APL @ @[@]A@@@@A@@@[MR[N"DQDBUSTER @@@@@@@@[@@@APL IY )@@G@@@ @@@[@@@@@0@@@[MXG$0ECDSITEPAR @@@@@@@@ @@@APL @@@[NH@@ @@@IZ )@@G@@@@@[NHF'>ETD[@@DAEC@@@@@H@@DAU(@@@@G/K@@S4C@@@@@H@@DAV*@@@@G/K@@SDC/@@@[JA )@@G@@G@@@@@T@@@@@;K@@@[[@@DAF/K@@SJC@@@@@H@@DAW*@@@@G/K@@W/C@@@@@[@@DAFC/@__"JB )@@G@@G@@DAFR@KDA&R@)DA*R@0DA$R[@DA>[@@@[^RA0DAE$'0@@ 8];@ST/K@@SY/K@@S)/K@@SDA+N@0@W;/K@@X @]&DA+KA )@@G@@/,0[&_@@@DAZ@@@DAY@@@DAR@@@DAY@]$DA+N@0@X^/K@@X @]*DA+R]0DA<9!)DA99,@DA;KB )@@G@@9,)DA.9\@DA_9\)DB[R@KDB#R@)DB^R@0DB R[@DBAN[@DBBN[KDBC*4@TA)/K@TA)/K@#KSKC )@@G@@AA0DA<9()DA99%@DA;9%)DA.9:@DA_9:)DB[A@KDB#A@)DB^A@0DB A[@DBA^[@DBB^[KDBCKD )@@G@@C8FK@@[^@@S6[^@@S5[^@DA$C8FK@[[^@DA>[^@@S7C8FK@][^@DA*C8FK@#[^@DA&C8FK@^KE )@@G@@[^@@VX[^@@U][^@@TL[^@@TH[^@@S^[^@@SH[^@@U [^@@TD[^@@S [^@@UF[^@@VI[^@@TBKF )@@G@@[^@@TFC8FK@ [^@@VH[^@@VZ[^@@T [^@@UC[^@@U[C@VK@A[@KDA2C@VK@B[@KDA3C8FK@CKG )@@G@@[^@@R;[^@@R_[^@@SD/K@@R C/@__"G@FK@ C@:K@BH@:K@^C[FK@AH[FK@^C[:K@^;[)@@[])DB&[#)DB$C/@@@[[@@DBDC@:K@DH@)DBJ*@@@@I/K@@ZHG/@@@[KM )@@G@@[@@DBDC@FK@EH@@DBJ*@@@@G/K@@ZOC/@@@]G@@DBD[@@DBDC@@@@@H@@DBK*@@@@G/K@@)]KN )@@G@@R@KDB=R@)DBZR@0DBRA0DBD$'0@@ 8];@Z-/K@@Z&/K@@Z*/K@@Z:KO )@@G@@/K@@Z\/K@@Z3'^@#KA@[NDBRD@#@@@[@^@@@/K@@Z5"/[@@@D@@@@G[@^@@@/K@@Z5D@#@@@KP )@@G@@"8@@@G9*]@@@/K@@Z590[@@@9*]@@@O/K@@]O/)@@]O/0@@[O.@@@[8LK@ZYO@KDB$O@)DB&KQ )@@G@@O@0DBVO[@DB)8L@@ZXN@0@)[/K@@-[@[YDBRC@@@@@H@@DBL*@@@@G/K@@)GC/@@@[G@@DB*KR )@@G@@T@@DB*;K@@@[[@@DBG/K@@)MC@@@@@H@@DBM*@@@@G/K@@)8C@@DB*[@@DBGC/@__"G@@DBGKS )@@G@@R@KDBYR@)DBWR@0DBXR[@DBU[@@@[^RA0DBD$'0@@ 8];@)W/K@@)-/K@@)@@@LQ )@@G@@@@@@@@@@@@@@@@@@@@@@/@@@@@@@[M@@@@@ @@;@@@@@T@@4@@K@@@@@I@@@@@@@@@@@L@@@LR )@@G@@@@@@[#@@@@@@@@@@@@@@@@@@@@@@@=@@@@@@@@@@@@@@@@@%@@@@@@@@S@@@@@@@@@@@@@@@LS )@@G@@@@@@@@@@@@[T@@@@[)@@@@@@@[[@@@@@@@@@@@@@@@@@@@[ @@V@@@@@@@@@@@@@@C@@@@@@LT )@@G@@@@@@@5@@&@@@@@@@@@@@@@@@@@@@@@@@<@@@@@@@@@@@@@[P@@@@@@@@@@@@@@@@@@@@Q@[SLU )@@G@@@@@@@@@@@@@@@@@@[X@[G@@@@@@@@@@[I@@@@@@@@@@@@@@@@@@@@O@@7@@@@@@@@@@@@@@@LV )@@G@@@[R@@F@@@@@@@@@@@@@@@@@J@@@@[E@@@@[<@@P@@\@@@@[O@@@@@@@@@@@@@@@@@@@@B@@@LW )@@G@@@@@@@3@@@@@@@@@@[B@@@@@@@@@@@-@@[@@^@@?@@@@[-@[F@@@@@@@@@@[H@@6@[+@@@@@@LX )@@G@@@@.@@@@@R@@@@@@@@#@@@@@@@@1@@@@@*@@A@@@@@_@@@@[V@@@@@@@@@@@@@@@@@@@@@@@@LY )@@G@@@@@@@"@@@@@@@@@@@@@@@@[Q@@)@@@@@@@@@@@@@@D@@@@@@@@@@[Y@@0@@G@[K@@@@@N@@@LZ )@@G@@@@@@@@@@:@@@@@@@@9@@@@[^@@@@@@@@@@@@@@@@@M@@E@[*P]?CBDADRMAP @@@@@@@@[@@@MK )@@G@@APL @ @[@]]@@@]Q@@@@\YP#>CBDAPSNAP @@@@@W@@[@@@APL ML )@@G@@@ @[@]]@@@@P@@@@14P^ACBDASINOU @@@@@@@@[@@@APL @ @[@]]@@@#1MM )@@G@@@@@@2DP^ICBDBEATNG @@@@@@@@[@@@APL @ @[@]]@@@[_@@@@5'P^$CBDMN )@@G@@BITMAP @@@@@@@@[@@@ @ @[@]]@@@@0@@@@79P ^CBDBUFMAN MO )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@@"@@@@8(P ECBDCLEAR @@@@@@@@[@@@MP )@@G@@APL @ @[@]]@@@@0@@@@9$P SCBDCMPOUN @@@@@@@@[@@@APL MQ )@@G@@@ @[@]]@@@]6@@@@'RP 4CBDCODSTO @@@@@@@@[@@@APL @ @[@]]@@@@=MR )@@G@@@@@@.H@@DCCDCOMPIL @@@@@Z@@[@@@APL @ @[@]]@@@##@@@@.1@@PCCDMS )@@G@@COMMO @@@@@@@@[@@@APL @ @[@]]@@@@_@@@[@4@@'CCDCONTIN MT )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@[]@@@[[3@[TCCDCOPIER @@@@@@@@[@@@MU )@@G@@APL @ @[@]]@@@[&@@@[]5@[>CCDDASINCO$ @@@@@@@@[@@@APL MV )@@G@@@ @[@]]@@@@R@@@[^V@[,CCDDASINCOH$ @@@@@@@@[@@@APL @ @[@]]@@@@QMW )@@G@@@@@[^2@[1CCDDATAN$ @@@@@@@@[@@@APL @ @[@]]@@@[^@@@[ C@[3CCDMX )@@G@@DATANH$ @@@@[L@@[@@@APL @ @[@]]@@@@I@@@[AG@[6CCDDCOSH$ MY )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@@D@@@[AU@[8CCDDEXP$ @@@@@@@@[@@@MZ )@@G@@APL @ @[@]]@@@@<@@@[A<@['CCDDGAMMA @@@@@@@@[@@@APL NA )@@G@@@ @[@]]@@@[M@@@[BA@[.CCDDLOG$ @@@@@@@@[@@@APL @ @[@]]@@@@WNB )@@G@@@@@[CS@][CCDDSINCO$ @@@@@@@@[@@@APL @ @[@]]@@@@%@@@[C4@]JCCDNC )@@G@@DSINH$ @@@@@@@@[@@@APL @ @[@]]@@@@D@@@[DY@]LCCDDSQRT$ ND )@@G@@@@@@@2@@[@@@APL @ @[@]]@@@@T@@@[D$@]NCCDDTAN$ @@@@@@@@[@@@NE )@@G@@APL @ @[@]]@@@@C@@@[E@@]QCCDDTANH$ @@@@@@@@[@@@APL NF )@@G@@@ @[@]]@@@@G@@@[EC@]RCCDEDLEAP @@@@@@@@[@@@APL @ @[@]]@@@[ANG )@@G@@@@@[EO@]&CCDERASER @@@@@@@@[@@@APL @ @[@]]@@@[8@@@[FU@#ECCDNH )@@G@@ERRMSG @@@@@@@@[@@@APL @ @[@]]@@@[#@@@[HM@#:CCDFDINOU NI )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@#>@@@[IP@ [CCDFHANAL @@@@@8@@[@@@NJ )@@G@@APL @ @[@]]@@@@'@@@[L'@ (CCDFILASG @@@@@@@@[@@@APL NK )@@G@@@ @[@]]@@@[F@@@[M4@ 8CCDFILRWR @@@@@@@@[@@@APL @ @[@]]@@@^(NL )@@G@@@@@[N_@ADCCDFILSUP @@@@@@@@[@@@APL @ @[@]]@@@^(@@@[S*@A:CCDNM )@@G@@FNHPRT @@@@@@@@[@@@APL @ @[@]]@@@@(@@@[XL@BGCCDFNHXQT NN )@@G@@@@@@@'@@[@@@APL @ @[@]]@@@@(@@@[X'@BOCCDFRMTNG @@@@@@@@[@@@NO )@@G@@APL @ @[@]]@@@]L@@@[Y<@BYCCDFUNDEF @@@@[D@@[@@@APL NP )@@G@@@ @[@]]@@@^U@@@[)4@B1CCDFUNLBL @@@@[W@@[@@@APL @ @[@]]@@@@-NQ )@@G@@@@@[>I@CJCCDFUNNYM @@@@@@@@[@@@APL @ @[@]]@@@[<@@@[>\@C!CCDNR )@@G@@FUNTBL @@@@@@@@[@@@APL @ @[@]]@@@]>@@@[$M@C9CCDIBEAMS NS )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@AN@@@[(7@DSCCDINTERP @@@@@@@@[@@@NT )@@G@@APL @ @[@]]@@@ R@@@[0E@EPCCDLDPEND @@@@@@@@[@@@APL NU )@@G@@@ @[@]]@@@[A@@@[5-@F^CCDLEXANL @@@@@@@@[@@@APL @ @[@]]@@@]4NV )@@G@@@@@[6$@FKCCDLEXCAN @@@@@@@@[@@@APL @ @[@]]@@@[3@@@[9V@F&CCDNW )@@G@@L$IJSIM @@@@@@@@[@@@APL @ @[@]]@@@@T@@@[;I@F\CCDLINEAR NX )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@]Y@@@[;$@F9CCDLINEKO @@@@@@@@[@@@NY )@@G@@APL @ @[@]]@@@[B@@@[" @GMCCDLODSAV @@@@[Z@@[@@@APL NZ )@@G@@@ @[@]]@@@F#@@@[_G@G'CCDMICROP @@@@@@@@[@@@APL @ @[@]]@@@@"OA )@@G@@@@@]EJ@H8CCDMIXED @@@@[A@@[@@@APL @ @[@]]@@@^'@@@]FH@ICCCDOB )@@G@@MIXED2 @@@@@@@@[@@@APL @ @[@]]@@@]=@@@]KB@I&CCDMTHLIB OC )@@G@@@@@@[C@@[@@@APL @ @[@]]@@@["@@@]M:@I'CCDNEXPB$ @@@@@@@@[@@@OD )@@G@@APL @ @[@]]@@@@-@@@]O(@I"CCDPRNTNG @@@@@@@@[@@@APL OE )@@G@@@ @[@]]@@@[+@@@]PE@J^CCDRANDAC @@@@@@@@[@@@APL @ @[@]]@@@#.OF )@@G@@@@@]Q?@JNCCDRESERV @@@@@@@@[@@@APL @ @[@]]@@@[6@@@]U(@J:CCDOG )@@G@@SETUP @@@@@@@@[@@@APL @ @[@]]@@@#/@@@]WZ@K^CCDSORTOPS OH )@@G@@@@@@[J@@[@@@APL @ @[@]]@@@@7@@@])V@K5CCDSTACK @@@@@@@@[@@@OI )@@G@@APL @ @[@]]@@@@\@@@]-M@K/CCDSTOPTR @@@@@@@@[@@@APL OJ )@@G@@@ @[@]]@@@@/@@@]+[@L]CCDSTORAG @@@@@@@@[@@@APL @ @[@]]@@@#*OK )@@G@@@@@]+.@LGCCDSUBSCR @@@@[N@@[@@@APL @ @[@]]@@@@"@@@]&>@L)CCDOL )@@G@@TEXSTO @@@@@@@@[@@@APL @ @[@]]@@@[2@@@]$<@O-CCDXQTSUP OM )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@^[@@@](P@O4CCDCULLIT @@@@@@@@[@@@ON )@@G@@APL @ @[@][@@@@]@@@]!Q@SICCDADVTESTS @@@@@@@@[@@@APL OO )@@G@@@ @[@]@@@@@^@@@]!S@SKCCDASHCAN @@@@@@@@[@@@APL @ @[@][@@@F]OP )@@G@@@@@]!W@SSCCDBUSTER @@@@@@@@[@@@APL @ @[@]@@@@@,@@@]8Y@STCCDOQ )@@G@@EXAMPLES @@@@@@@@[@@@APL @ @[@]@@@@@[@@@]9G@SUCCDMIXTESTS OR )@@G@@@@@@@@@@[@@@APL @ @[@][@@@@S@@@]9H@SVCCDSAMPLE @@@@@@@@[@@@OS )@@G@@APL @ @[@]@@@@@+@@@]9>@SWCCDDOMINO @@@@@@@@[@@@APL OT )@@G@@@ @ @ ]@@@[(@@@]'B[[@CCDTABLES @@@@@@@@[@@@APL @ @#@^]@@@]MOU )@@G@@@@@];0]H2CCDPRCPKG @@@@@@@@[@@@APL @ @]@#@@@@@C@@@]"]]I]CCDOV )@@G@@ROOTSEG-RMAP@@@@@@@@[@@@APL @ @@@[A@@@@J@@@]"EFTHCCDXQTSEG-RMAP OW )@@G@@@@@@@@@@[@@@APL @ @@@[A@@@@A@@@]"TFUICCDSYSSEG-RMAP @@@@@@@@[@@@OX )@@G@@APL @ @@@[A@@@@^@@@]"Z^^BCCDNOTREP @@@@@@@@[@@@APL OY )@@G@@@@@^@ A@@@@C@@@]"!CGDPA )@@G@@SYMBOL @@@@@@@@[@@@APL @ @]@#]@@@[E@@@#B)H&HCGDSYSMAP-ABS PB )@@G@@@@@@@@@@[@@@APL @@@]@#A@@@@B@@@#C%C9;CIDXQTMAP-ABS @@@@@@@@[@@@PC )@@G@@APL @ @@@[A@@@@B@@@#C1D[RCIDDBMAP-ABS @@@@@@@@[@@@APL PD )@@G@@@ @[@]A@@@@B@@@#C8HV9CIDSITEPAR @@@@@@@@[@@@APL @ @@@[]@@@[7PE )@@G@@@@@#C_F'ZETDC8)@@@)@@@@I/=K[$-C@@EGGT/@@@EG@@EGEG/@__J[@@EGG/K@[&5D@@EGGPF )@@G@@/C@[$>*@@@@G/K@[$!/,0[)2@@@EGQ@@@EF_@@@EG#@#GEGXN@0[$?/K@[,1@#HEGXR@)EF_PG )@@G@@C*]EQVH@@EGG*@@@@G1@@@@G/K@[$;/,0[)2@@@EGR@@@EF_@@@EG#@#LEGXN@0[$'/K@[,1PH )@@G@@@#MEGXC/@@@[H@@EGD]@@EGDR@0EF_C?C@@EG+/)@[:-E@@EG=C/)@@^R@KEG>C@1EFQ;)/@@@QA )@@G@@;G)@@D;@0UG<[@1EFQC@@EGEH@@ERM*@@@@G/K@[:!E@@EG=C/)@@@R@)EG>C@2EFQ;)/@@@QB )@@G@@;G)@@D;@0UG<[@2EFQG_)@@[8L@[:CC@@EGL;K@@@][@@EG /,0[9 @@@EFR@@@EG @^WEGXQC )@@G@@C/@@@[[@@EG@/K@[=!N@0[:;/K@[,1@^)EGX @@EGIC@@EGAC@)@@GG/)__21@@@@IC/@@@HQD )@@G@@[@@EGAC/)@@=H@)EF9C.@@@[C[)EG^H[)EF/*@@@@MC9@@@@G/@__.C_)@@][@@@[^[@)EG+QE )@@G@@[[@EG>[#)EGDC@@EGDG@@EF;;O@@@=W@@EF'R@0@@GC/@@@[H@@EGD;O@@@=W@@EF'E@K@@HQF )@@G@@T@KEF9E@)EG+C[#ER!;-H@@@;DI@@@[[@EGEC@@EG>/)@[?&/,0[9I@@@EGE@^(EGX[@@EGEQG )@@G@@C@@EGEH@@ERI(@@@@G/K@[!]C/@@@[G@@EGI[@@EGIG/@@@ ;O@@@=W/@@@AC/)@@[H@)EGIQH )@@G@@;O)@@=W/)@@AR@K@@GE@0@@JT/0@@A[@0EG/K@[,1@ IEGXC/@@@[[@@EG@/K@[+DR@KEF_QR )@@G@@C0[EQVG/@__"[0[EQV/K@[=!N@0[,0/K@[,1@ MEGXR]0EGY9!)EG&9,@EG*9\)EG%R@KEG?QS )@@G@@R@)EG!R@0EG,N[@EG\*4@UGV/K@UGV/K@[[FAA0EGY[^@EGV9()EG&9%@EG*9:)EG%A@KEG?QT )@@G@@A@)EG!A@0EG,^[@EG\/KH@@@C8@@@]/\K[,/C@VK@@[@KEG)/K@[+#C8@@@#/\K[,/C@VK@@QU )@@G@@[@KEG)C8FK@[[@@EG-/K@[=OC/@__"G@FK@[[@@EHYC@@ERSH@@EHN(@@@@G/K@[\%/,0@&JQV )@@G@@@@[EG1@[ZEHU'^@[AC/,0@&J@@[EH]@[+EHUR@KEHOQ@KEHXN[@EHYC8[)@@'^K[A^8L@[\1)*ASILCD,ASC(B)+(ASC(B)=0)*(B>1)*ASUNDF @ @[@@ LI$T RO )@@G@@ . @ @[@@ END . @[@[@@. @ @[@@RP )@@G@@T PROC . @I@[@@TBL2* NAME . GENERATE RQ )@@G@@ASCII TABLE PORTION WITH OVERLAYS @A@[@@ UNLI$T RR )@@G@@ . @A@[@@DLV FORM 18,18,18,18 @G@[@@C DO MRS )@@G@@AXCNT(1) , DLV W1(C),ASC(ASCMAX(1)+2*C)+(ASC(ASCMAX(1)+2*C)=0); @G@[@@RT )@@G@@ *ASUNDF,W2(C),ASC(ASCMAX(1)+2*C+1)+(ASC(ASCMAX(1)+2*C+1)=0)*ASUNDF RU )@@G@@@ @[@@ LI$T . @ @[@@ END . RV )@@G@@@[@[@@. @G@[@@APASCI TBL1 . GENERATE 1ST HALF OF ASCII-RW )@@G@@APL-ASCII TABLE @[@@[[/. @[@@[[. @G@@[[. TABLE USED TO TRANSLARX )@@G@@TE INTERNAL APL CODE TO IVERSON ASCII OVERLAY @D@@[[. AND RY )@@G@@IVERSON ASCII TO APL INTERNAL CODE @[@@[[. @F@@[[. TRZ )@@G@@HE FIRST 0177 ENTRIES IN THE TABLE LOOK LIKE: @F@@[[. INDEX ISA )@@G@@N WITH ASCII . INDEX IN WITH INTERNAL@F@@[[. AND PSB )@@G@@ICK UP INTERNAL . AND PICK UP ASCII @G@@[[. ............SC )@@G@@......................................................@G@@[[. . SD )@@G@@ . . ASCII(INTERNAL). .@G@@[[. SE )@@G@@. .INTERNAL(ASCII). ZERO IF CHAR . ASCII(INTERNAL).@G@@[[SF )@@G@@. . 0 . . IS NOT AN . .SG )@@G@@@G@@[[. . . . OVERSTRIKE . SH )@@G@@ .@G@@[[. ......................................................SI )@@G@@............@[@@[[. @[@@[[. @D@@[[. THE REMAINDER OFSJ )@@G@@ THE TABLE LOOKS LIKE: @C@@[[. ( TWO WORD ENSK )@@G@@TRIES)@G@@[[. ......................................................SL )@@G@@............@G@@[[. . . .ASCII(INTERNAL) SM )@@G@@. ASCII(INTERNAL).@G@@[[. . INTERNAL CODE. INTERNAL CODE . ZERO IF CSN )@@G@@HAR . .@G@@[[. . . . IS SO )@@G@@NOT AN . .@G@@[[. . . SP )@@G@@ . OVERSTRIKE . .@G@@[[. ........................SQ )@@G@@..........................................@G@@[[. . . SR )@@G@@ . ASCII(INTERNAL). ASCII(INTERNAL).@G@@[[. . 0 SS )@@G@@ . INTERNAL CODE . ZERO IF CHAR . .@G@@[[. . ST )@@G@@ . OF OVERSTRIKE . IS NOT AN . .@G@@[[. SU )@@G@@. . . OVERSTRIKE . .@G@@[[SV )@@G@@. ..................................................................SW )@@G@@@[@@[[. @F@[@@OVRTBL TBL2 . GENERATE 2ND HALF (WITH OVESX )@@G@@RSTRIKES) @#@@[[ VARBLS . @F@@[[APASCI* RES 256 . RESSY )@@G@@ERVED SPACE FOR TRANSLATION TABLE @D@@[[OVRTBL EQU APASCI+128 . STASZ )@@G@@RT OF OVER-STRIKE TABLE @E_@@@/. STORAGE SHARED BY SEVERAL SUBROUTINES OTA )@@G@@F THIS ELEMENT-- @[@@@@. @ @@@@ VARBLS . @C@@@@TB )@@G@@ASBUFR* RES 133//4 . INPUT-OUTPUT BUFFER @E@@@@ASWDCT RES 1 TC )@@G@@ . WORDCOUNT FOR INPUT/OUTPUT LINES @[@@@@. @ @[@@ CONSTTD )@@G@@S . @^@[@@P FORM 12,6,18 @D@[@@ASLFCW P 0,1,$+1 TE )@@G@@ . LINE FEED CONTROL WORD @A@[@@ + 0777012177177 . LINTF )@@G@@E FEED@C^@@@/. DRIVER FOR INPUT FROM ASCII-APL TERMINALS - @E@@@@. TG )@@G@@ PROMPT IMAGE IS IN CIOBUF, TERMINATED BY AN EOL CHAR @ @@@@ INSTRTH )@@G@@S . @B@@@@TREASC* SX X11,TALINK . SAVE RETURN @B@@@@TI )@@G@@ SAVER X2,TASVX2,2 . SAVE X2,X3 @B@@@@ SAVER A14,TA14SV,TJ )@@G@@2 . SAVE A14,A15 @F@@@@TA0010 LA,U A14,0777770 . SET NO OF CHARS TO COTK )@@G@@NV TO INFINITE @E@@@@ LMJ X11,WREDIA . TRANSLATE INTERNAL TOTL )@@G@@ ASCII/APL @E@@@@ ER ERR$ . NO ERROR RETURN AS OTM )@@G@@F YET @E@@@@ SA A14,TAPSIZ . SAVE SIZE OF PROMPT IN APLCHARS TN )@@G@@@D@@@@ LA,U A1,ASCBEL . GET AN ASCII BELL CHAR @D@@@@ TO )@@G@@ TNZ A14 . IS PROMPT ZERO CHARS LONG? @F@@@@ LMJ X2,0,TP )@@G@@X2 . YES, BE SURE TERMINAL SIGNALS READY @E@@@@ LA,U A1,ASTQ )@@G@@CXON . GET XON WHICH STARTS TAPE READER @E@@@@ TZ RCPTIF TR )@@G@@ . IS PAPER TAPE INPUT FLAG UP? @F@@@@ LMJ X2,0,X2 . YESTS )@@G@@, SEND CHAR WHICH TURNS READER ON @C@@@@ LA,U A1,ASNULL . GETTT )@@G@@ ASCII IIDLE CHAR @C@@@@ DO 3 , LMJ X2,0,X2 . STASH THREE OF THEM TU )@@G@@@C@@@@ LA,U A0,0,X3 . CURRENT WORD POINTER @D@@@@ ANA,UTV )@@G@@ A0,ASBUFR . LESS FWA OF WRITE BUFFER @D@@@@TA0040 SA,S3 A0,TATPKT TW )@@G@@ . SET LENTH IN TREAD PKT @C@@@@ TIMEON . TURN INPUTX )@@G@@T TIMER ON @C@@@@ LA,U A0,TATPKT . GET POINTER TO PKT @^@@@@TY )@@G@@ ER TREAD$ @D@@@@ SA A0,ASWDCT . SAVE NUMBER OF TZ )@@G@@WORDS READ @B@@@@ TIMOFF . CLEAR TIMER @D@@@@ UA )@@G@@ SZ RCADDF . CLEAR ADD FILE READ FLAG @E@@@@ LA A0,ASUB )@@G@@WDCT . GET CTL WORD RETURNED FROM TREAD$@^@@@@ TEP A0,(1*/34) UC )@@G@@@D@@@@ SA A0,RCADDF . GO SET ADD FILE FLAG IN RCB@F@@@@ UD )@@G@@ LA,S1 A0,ASBUFR . GET FIRST SIXTH WORD OF INPUT BUFFER @B@@@@ UE )@@G@@ TE,U A0,ASCFLG . IS INPUT ASCII?@B@@@@ TNZ RCADDF . IS UF )@@G@@ADD FLAG ON?@E@@@@ J TA0100 . LET RFTRAN HANDLE THIS IMAGUG )@@G@@E @C@@@@. LINE IS FIELDATA AND IT IS IN AN ADD FILE @E@[@@ UH )@@G@@ SZ READDF . SET FLAG IN FDINOU TO SKIP READ$.@D@[@@ LA UI )@@G@@ A0,ASWDCT . GET CTL WORD FROM READ$ @E@[@@ SA A0,REASAV UJ )@@G@@ . SAVE IT WHERE FDINOU CAN GET IT @^@[@@ LMJ X11,TREAFD @E@@[[UK )@@G@@ LA A0,ASWDCT . GET STATUS WD LEFT BY OUR READ$ @E@@[[ UL )@@G@@ LMJ X11,TREAFA . CALL FDINOU TO CONVERT THIS IMAGE@D^@@@ ER UM )@@G@@ ERR$ . BETTER NEVER GET EOF EXIT! @D@[@@ J TA0200 UN )@@G@@ . GO EXIT FROM READ ROUTINE @D@@][ J TA0300 . GO EXIT FUO )@@G@@ROM READ ROUTINE @F[@@@. NOW SET UP TO CONVERT IMAGE JUST READ TO APLCHUP )@@G@@ARS IN CIOBUF @G@@@@TA0100 LA A0,TAPSIZ . GET LENTH OF ORIGINALUQ )@@G@@ PROMPT IN APL CHARS @D@@@@ DSL A0,2 . DIV BY 4 TO GETUR )@@G@@ WORDCT @E@@@@ LX,U X3,CIOBUF,A0 . PUT START WORD IN STASH REUS )@@G@@G @ @@@@ LXI,U X3,1 . @C@@@@ SSL A1,36-2 UT )@@G@@ . LINE UP CHAR POINTER @F@@@@ LMJ X2,*AQINIT,A1 . INITIALIZE LIUU )@@G@@NKREG FOR CIOBUF STASH @E@@@@ LMJ X11,RFTRAN . TRASLATE IMAGE UV )@@G@@TO INTERNAL CODE @F@@@@ J TA0010 . OOPS, CHAR ERR- REPROUW )@@G@@MPT WITH GOOD PART@D@[@@TA0140 LA A0,ASLFCW . GET LINE FEED CTL WORUX )@@G@@D @B@[@@ ER PRINT$ . SEND LINE FEED @E@@[[TA0140 LA UY )@@G@@ A0,TFCCTL . GET PRINT$ FOR CARRIER CONTROL @F@@[[ ER PRINTUZ )@@G@@$ . SEND CR (IN CASE OF TYPEAHEAD) AND LF @F@[@@. CHECK WHETHER OUVA )@@G@@TPUT SHOULD BE COPIED TO AN ALTERNATE FILE - @ @[@@TA0200 NOP VB )@@G@@ . @ ^@@@. NORMAL EXIT . @ @@@@TA0300 LX X11,TVC )@@G@@ALINK . @B@@@@ LOADR X2,TASVX2,2 . RESTORE X2,X3 @C@@@@ VD )@@G@@ LOADR A14,TA14SV,2 . RESTORE A14,A15 @B@@@@ J 1,X11 VE )@@G@@ . NORMAL RETURN @]@@@@. EOF EXIT @^@@@@TA0400 LX X11,TALINK @B@@@@VF )@@G@@ LOADR X2,TASVX2,2 . RESTORE X2 @C@@@@ LOADR A14,TA14SV,VG )@@G@@2 . RESTORE A14,A15 @#@@@@ J 0,X11@[@@@@. @#@@@@ VH )@@G@@ VARBLS . @B@@@@TALINK EQUF $,,H1 . RETURN ADDR @D@@@@TAPSIZVI )@@G@@ EQUF $,,H2 . PROMPT SIZE IN APLCHARS @ @@@@ RES 1 VJ )@@G@@ . @B@@@@TA14SV RES 2 . SAVE A14,A15 @C@@@@TASVX2VK )@@G@@ RES 2 . SAVE LOCN OF X2,X3 @#@@@@ VARCON . @#@@@@VL )@@G@@TATPKT + 0,ASBUFR@^@@@@ + TA0400,ASBUFR @#@@[[ CONSTS . VM )@@G@@@C@@[[TFCCTL +1,$+1 . PRINT$ CONTROL WORD FOR... @F@@[[ +ASCFVN )@@G@@LG,ASCRRT,ASLNFD,ASNULL . CR-LF AFTER ACCEPTING INPUT @G@@@@/ . WRITAS -VO )@@G@@ THIS ROUTINE REPLACES WRITFD IF SPECIAL ASCII TERMINALS @F@@@@. VP )@@G@@ ARE USED . IT'S ADDR IS PUT IN THE RUN CTL BLOCK IF THE @C@@@@. VQ )@@G@@ Q - OPT IS PRESENT AT SIGN-ON TIME. @[@@[[. @F@@[[P PROC VR )@@G@@ . PROC TO CLOSE LINE IMAGES WITH CR-LF OR BLANKS--- @B@@[[LICLOS* NAMEVS )@@G@@ . NORMAL LINE TERMINALTION @ @@[[ UNLI$T . @ @@[[VT )@@G@@XLF EQU ASLNFD . @ @@[[XCR EQU ASCRRT . @ @@[[VU )@@G@@XXF EQU ASXOFF . @^@@[[XNU EQU ASNULL @C@@[[ VV )@@G@@ LA,U A1,XLF . LINE FEED (OR SPACE) @ @@[[ LMJ X2,0,X2 VW )@@G@@ . @B@@[[ LA,U A1,XCR . CARRIAGE RETURN@A@@[[ LMJ VX )@@G@@ X2,0,X2 . STASH IT @A@@[[ LA,U A1,XXF . XOFF @ @@[[VY )@@G@@ LMJ X2,0,X2 . @ @@[[ LA,U A1,XNU . @G@@[[VZ )@@G@@ LA,U A2,3 . NO. OF CHARS MINUS 1 TO FILL TO WORD BOUNDARYWA )@@G@@@E@@[[ TNZ RCPTCH . IS SPECIAL PADDING REQUESTED? @ @@[[WB )@@G@@ J LI0010 . NO @D@@[[ LA A3,A13 . PICK UP CWC )@@G@@HARACTER COUNT @C@@[[ LA,U A2,0 . SET UP FOR DIVIDE WD )@@G@@@F@@[[ DI A2,RCPTCH . DIVIDE BY NO. OF PRINT CHARS SPECIFIED WE )@@G@@@G@@[[ MSI A2,RCPDCH . MULTIPLY BY NUMBER OF PAD CHARS SPECIFIWF )@@G@@ED @F@@[[ AA A13,A2 . INCREASE CHAR COUNT BY NO. OF PADWG )@@G@@ CHARS@G@@[[ AA,U A2,3 . NO. OF CHARS MINUS 1 TO FILL TO WWH )@@G@@ORD BOUNDARY@A@@[[LI0010 LMJ X2,0,X2 . STASH EM @ @@[[ JGD WI )@@G@@ A2,LI0010 . @#@@[[ LI$T . @#@@[[ END . @[@@[[WJ )@@G@@. @G@@[[. PROC TO OUTPUT ASCII-APLCODE IMAGES-- NOTE: NOT USED FOR PWK )@@G@@ROMPTING @#@@[[P PROC . @B@@[[ASCPRT* NAME . PRINT$ PACKET IWL )@@G@@S IN A0-- @ @@[[ UNLI$T . @F@@[[ SA A0,RCWM )@@G@@ALTP . SAVE PACKET FOR POSSIBLE ALT PRINT @C@@[[ TNZ RCOUTWN )@@G@@I . IS OUTPUT INHIBITED? @D@@[[ ER PRINT$ . NO, XMIT WO )@@G@@FUNNYMODE IMAGE @E@@[[ LA,U A0,RCALTP . GET ALT FILE PACWP )@@G@@KET ADDR @E@@[[ TZ RCALTF . ARE ALT PRINTS TURNED WQ )@@G@@ON? @D@@[[ ER APRNTA$ . BANG!! SMASH!!!! ZOWIE!!!!!@#@@[[WR )@@G@@ LI$T . @#@@[[ END . @[@@[[. @#@@@@ INSTRWS )@@G@@S . @ @@@@WRITAS* SX X11,WSLINK . @C@@@@ SZ WSMKFL WT )@@G@@ . TURN OFF MARK FLAG @^@@@@ J WS0010 @ @@@@WRMKAS* SX WU )@@G@@ X11,WSLINK . @C@@@@ SX X11,WSMKFL . TURN ON MARK FLAG WV )@@G@@@C@@@@ SA A0,WSMCOL . SAVE MARK LOCATION @B@@@@WS0010 SAVERWW )@@G@@ A13,WSA13S,2 . SAVE A13,A14 @B@@@@ SAVER X2,WSXRSV,4 . SAVE X2-XWX )@@G@@5 @ @@@@. INITIALIZE EDITING ROUTINE @C@@@@ LA,U A14,132 WY )@@G@@ . MAX NO TO CONVERT @C@@@@ LMJ X11,WREDIA . GO CONVERT BUFFWZ )@@G@@ER @E@@@@ ER ERR$ . NO ERROR EXIT EXISTS NOW XA )@@G@@@A@[@@ LA,U A1,ASLNFD . LINE FEED@A@[@@ LMJ X2,0,X2 XB )@@G@@ . STASH IT @A@[@@ LA,U A1,ASCRRT . CAR RET @A@[@@ LMJ XC )@@G@@ X2,0,X2 . STASH IT @B@[@@ LA,U A1,ASXOFF . X-OFF CHARACTERXD )@@G@@@A@[@@ LMJ X2,0,X2 . STASH IT @A@[@@ LA,U A1,ASNULL XE )@@G@@ . PAD CHAR @A@[@@ DO 4 , LMJ X2,0,X2 . STASH EM @E@@[[ LICLOXF )@@G@@S . CLOSE LINE IMAGE WITH CR-LF-ETC. @BC@@@ LA A0,A1XG )@@G@@3 . GET CHAR COUNT @B@@@@ AA,U A0,3 . CORRECT COUNT XH )@@G@@@E@@@@ DSL A0,2 . DIVIDE BY 4 TO GET WORD COUNT @D@@@@XI )@@G@@ TE,U A1,0 . INCREASE WORD COUNT BY ONE?@D@@@@ AA,U XJ )@@G@@ A0,1 . YES - ADD ONE TO WORD COUNT@ @@@@. NOW PRINT CONVERTED LIXK )@@G@@NE @C@@@@WS0015 LSSL A0,18 . ALIGN WORD COUNT @A@@@@ XL )@@G@@ LXM,U A0,ASBUFR . FORM PKT @ @[@@ ER PRINT$ . @C@@[[XM )@@G@@ ASCPRT . PRINT ASCII LINE @E[@@@ TNZ WSMKFXN )@@G@@L . WAS THIS A TYPE AND MARK OPN? @B@@@@ J WS0100 XO )@@G@@ . NO- GET OUT @C@@@@WS0016 SZ WSSPBF . CLEAR SPLIT BUFFER FLAG XP )@@G@@@B@@@@ LA A13,WSMCOL . COL OF MARK @E@@@@ TNG,U A13,8XQ )@@G@@5 . WILL IT FIT IN ONE PRINT$ BUFFER?@B@@@@ J WS0018 XR )@@G@@ . YES- GO DOIT @F@@@@ ANA,U A13,87 . NO - COMPUTE REMAININXS )@@G@@G BLANKS TO GO @E@@@@ SA A13,WSMCOL . SAVE BLANKS TO GO FORXT )@@G@@ NEXT PRINT$@F@@@@ LA,U A13,87 . COUNT FOR FULL BUFFER FULL XU )@@G@@OF BLANKS @C@@@@ SX X11,WSSPBF . SET SPLIT BUFFER FLAG@C@@@@XV )@@G@@WS0018 LX X2,PUTARY+ZMOCHR . SET UP STASH @C@@@@ LX X3,(+XW )@@G@@1,ASBUFR) . AND BUFFER ADDR @B@@@@ LA,U A1,ASCFLG . ASCII FLAXX )@@G@@G @A@@@@ LMJ X2,0,X2 . STASH IT @ @@@@. NOW MOVE BLANKS XY )@@G@@TO OUTBUF @A@@@@ LA,U A1,ASBLNK . BLANK @ @@@@WS0020 JNGD XZ )@@G@@ A13,WS0030 . @A@@@@ LMJ X2,0,X2 . STASH IT @ @@@@ YA )@@G@@ J WS0020 . @D@@@@WS0030 TZ WSSPBF . IS SPLIT BUFFERYB )@@G@@ FLAG ON? @E@@@@ J WS0050 . YES- GO DO PRINT$ ON FIRST YC )@@G@@HALF @F@@@@ LA,U A1,ASMARK . NO- GET OUT WERE DONE WITH SPLIT YD )@@G@@IMAGE @A@@@@ LMJ X2,0,X2 . STASH IT @A@[@@ LA,U A1,ASYE )@@G@@LNFD . LINE FEED@A@[@@ LMJ X2,0,X2 . STASH IT @A@[@@ YF )@@G@@ LA,U A1,ASCRRT . CAR RET. @A@[@@ LMJ X2,0,X2 . STASH IT YG )@@G@@@A@[@@ LA,U A1,ASNULL . PAD CHAR @A@[@@ DO 3 , LMJ X2,0,X2 YH )@@G@@ . STASH EM @C@@[[ LICLOS . CLOSE LINE WITH CR-LF@BA@@@YI )@@G@@ SZ WSMKFL . CLEAR MARK FLAG@C@@@@. COMPUTE WORD COUNT ANDYJ )@@G@@ GO PRINT THE IMAGE @ @@@@WS0050 LA A0,X3 . @C@@@@ YK )@@G@@ ANA A0,(+1,ASBUFR) . COMPUTE WD COUNT @B@@@@ J WS0015 YL )@@G@@ . TRANSMIT LINE @ @@@@WS0100 LX X11,WSLINK . @B@@@@ LOADRYM )@@G@@ A13,WSA13S,2 . SAVE A13,A14 @B@@@@ LOADR X2,WSXRSV,4 . RESTORE YN )@@G@@X2-X5 @A@@@@ J 0,X11 . RETURN @ @[@@WS0999 ERROR YSYSTYO )@@G@@M . @A@@[[WS0999 EQU 0 . SYSERR @#[@@@ VARBLYP )@@G@@S . @B@@@@WSLINK EQUF $,,H1 . RETURN ADDR @A@@@@WSMKFL EQUF YQ )@@G@@ $,,H2 . MARK FLAG@ @@@@ RES 1 . @E@@@@WSMCOLYR )@@G@@ EQUF $,,H1 . COLUMN NUMBER IN WHICH MARK GOES @F@@@@WSSPBF EQUF YS )@@G@@ $,,H2 . SPLIT BUFFER FLAG FOR TYPE AND MARK @ @@@@ RES YT )@@G@@ 1 . @D@@@@WSA13S RES 2 . SAVE LOCATIONS FOR A1YU )@@G@@3,A14 @C@@@@WSXRSV RES 4 . SAVE LOCN FOR X2 - X5@F@@@@/. ROUYV )@@G@@TINE TO CONVERT APLCODE TO ASCII-OVERLAY. IF NECESSARY, THIS@G@@@@. ROUTYW )@@G@@INE WILL PRINT$ A PARTIAL IMAGE, BUT THE LAST PART OF THE IMAGE @G@@@@YX )@@G@@. WILL BE LEFT IN THE BUF. THE CR-LF SEQUENCE IS NOT ADDED SINCE THIS YY )@@G@@@#@@@@. MAY BE A TREAD$ @[@@@@. @D@@@@. ENTRY CONDITIONS - X5=(+1YZ )@@G@@,BUF) FOR SOURCE STRING @G@@@@. A14=MAX NO OF CHAR ZA )@@G@@TO CONVERT (ALSO STOPS AT EOL)@F@@@@. EXIT CONDITIONS X2,X3 SET TOZB )@@G@@ STASH NEXT CHAR IN ASCIBUF @D@@@@. A14=NO OF APLZC )@@G@@ CHARS TRANSLATED @F@@@@. A13= NO OF CHAR (ASCII) SZD )@@G@@TORED INCL 077 @#@@@@ INSTRS . @ @@@@WREDIA SX X11,WALINK ZE )@@G@@ . @C@@@@ SA A14,WACHCT . SAVE NO OF CHARS @E@@@@ ZF )@@G@@ LX X4,GLFTBL+ZMOCHR . SET FETCH CHREG POINTER @ @@@@ LX ZG )@@G@@ X5,(+1,CIOBUF) . @C@@@@. INITIALIZE STASH IN ASCII-FUNNYMODE OUTPUT BUFZH )@@G@@@D@@@@WA0010 LX X2,PUTARY+ZMOCHR . SET STASH POINTER @D@@@@ ZI )@@G@@ LX X3,(+1,ASBUFR) . AND BUFFER ADDRESS @G@@@@ LA,U A13,WZJ )@@G@@RBMAX-3 . SET MAX NUMBER OF CHARS BUF WILL HOLD @D@@@@ LA,U ZK )@@G@@ A1,ASCFLG . GET FUNNYMODE FLAG @D@@@@ LMJ X2,0,X2 ZL )@@G@@ . STORE IT AS FIRST CHAR @C@@@@. NOW MOVE CHARS FROM APLCODE BUF TOZM )@@G@@ OUTBUF @D@@@@WA0100 JGD A13,WA0110 . IF ROOM,GO GET NEXT CHAR ZN )@@G@@@C@@@@ LA,U A1,ASNULL . ELSE GET ASCII NULL @B@@@@ DO 3 , LMJ ZO )@@G@@ X2,0,X2 . PAD OUTBUF @F@@@@ LA A0,WAPCTL . GET PRINTZP )@@G@@$ CONTROL WORD FOR FULL BUFFER@C@[@@ ER PRINT$ . TRANSMIT ZQ )@@G@@THE BUFFER @ @@[[ ASCPRT . @F[@@@ J WA001ZR )@@G@@0 . AND REINITIALIZE TO START NEW BUFLOAD @ @@@@. THERE IS ROOM FOZS )@@G@@R NEXT CHAR @E@@@@WA0110 JNGD A14,WA0200 . IF INPUT STRING EXHAUSTED, ZT )@@G@@QUIT @C@@@@ LMJ X4,0,X4 . ELSE FETCH NEXT CHAR @F@@@@ ZU )@@G@@ JE,U A1,AEOL WA0200 . QUIT IF IT'S AN END OF LINE FLAG @C@@@@ ZV )@@G@@ LA,H2 A1,APASCI,A1 . GET TRANSLATION @F@@@@ JG,U A1,01000 WAZW )@@G@@0130 . IF NOT OVERSTRIKE, GO STASH IT @^@@@@. CHAR IS AN OVERSTRIKE ZX )@@G@@@B@@@@WA0120 DSL A1,9 . SAVE 2ND IN A2 @A@@@@ LMJ X2,0,ZY )@@G@@X2 . STORE IT @A@@@@ JGD A13,$+1 . COUNT IT @D@@@@ ZZ )@@G@@ LA,U A1,ASCIBS . GET AN ASCII BACKSPACE @A@@@@ LMJ X2,0,AA )@@G@@X2 . STORE IT @A@@@@ JGD A13,$+1 . COUNT IT @ @@@@ AB )@@G@@ LA,U A1,0 . @B@@@@ LDSL A1,9 . GET SECOND CHARAC )@@G@@@A@@@@. PUT NEXT CHAR INTO ASCII IMAGE @A@@@@WA0130 LMJ X2,0,X2 AD )@@G@@ .STORE IT @C@@@@ J WA0100 . GO FETCH NEXT APLCHAR@ @@@@AE )@@G@@. END OF STRING ENCOUNTERED @ @@@@WA0200 LNA A13,A13 . @D@@@@AF )@@G@@ AA,U A13,WRBMAX-3 . ASCII CHAR COUNT INCL 077 @ @@@@ LNA AG )@@G@@ A14,A14 . @C@@@@ AA A14,WACHCT . APL CHAR CONVERTED AH )@@G@@@B@@@@ ANA,U A14,1 . DON'T COUNT EOL@ @@@@ LX X11,WAI )@@G@@ALINK . @B@@@@ J 1,X11 . NORMAL EXIT @[@@@@. AJ )@@G@@@#@@@@ VARBLS . @#@@@@WALINK RES 1 @F@@@@WRBMAX EQU 88 AK )@@G@@ . MAX NUMBER OF CHARS BUFFER WILL HOLD @B@@@@WACHCT RES 1 AL )@@G@@ . CHAR COUNT @#@@@@ CONSTS . @^@@@@WAPCTL + 22,ASAM )@@G@@BUFR @[@@@@. @ @@@@/ . PROCS USED BY RFTRAN -- @#@@@@P PROC AN )@@G@@ . @#@@@@GETCUR* NAME . @#@@@@ UNLI$T . @D@@@@ SA AO )@@G@@ A1,A2 . MOVE NEW CHAR IN A1 TO A2 @G@@@@ LMJ X2,1,X2 AP )@@G@@ . PICK UP PREVIOUSLY STORED CHAR AND PUT IN A1 @D@@@@ LDSC A1,36AQ )@@G@@ . SWITCH A1 AND A2 LEAVING: @E@@@@ LI$T . A1=AR )@@G@@NEW CHAR A2=OLD CHAR @ @@@@ END . @ @@@@AS )@@G@@. . @ @@@@. . @[@@@@AT )@@G@@. @#@@@@P PROC . @#@@@@BACKSP* NAME . @#@@@@ UNLI$AU )@@G@@T @D@@@@ LMJ X2,0,X2 . BACKUP ONE CHAR POSITION @F@@@@AV )@@G@@ ANA,U A15,1 . MOVE CURRENT COL POINTER BACK BY ONE @E@@@@AW )@@G@@ TLE,U A15,0 . HAVE WE BACKSPACED OFF THE END? @G@@@@ AX )@@G@@ LA,U A15,0 . YES CORRECT IT COL 0 IS AS FAR BACK AS WE GO @ @@@@AY )@@G@@ LI$T . @ @@@@ END . @[@@@@AZ )@@G@@. @#@@@@P PROC . @#@@@@ASTASH* NAME . @#@@@@ UNLI$BA )@@G@@T . @B@@@@ LMJ X2,3,X2 . STASH VALUE @F@@@@ AA,U BB )@@G@@ A15,1 . MOVE CURRENT COL POINTER FOWARD BY ONE @F@@@@ TG BC )@@G@@ A15,A13 . A13 HAVE FARTHEST COL STORED IN TO? @C@@@@ LA BD )@@G@@ A13,A15 . NO - SO MAKE IT SO @]@@@@ LI$T @]@@@@ END BE )@@G@@@[@@@@. @#@@@@P PROC . @#@@@@GETCOL* NAME . @#@@@@ BF )@@G@@ UNLI$T . @E@@@@ LA A1,A15 . PUT CURRENT COL POSITION IBG )@@G@@N A1 @#@@@@ LI$T . @#@@@@ END . @[@@@@. @[@@@@BH )@@G@@. @[@@@@. @[@@@@. @#@@@@P PROC . @#@@@@CURCOL* NAMEBI )@@G@@ . @#@@@@ UNLI$T @C@@@@ LA A0,RFICOL . GET ILEGABJ )@@G@@L CHAR FLAG @B@@@@ AA,U A0,2 . FUDGE FACTOR @G@@@@ BK )@@G@@ TG A15,A0 . TEST TO SEE IF LEFT MOST ILCHAR IS TO RIGHT @ @@@@BL )@@G@@ J $+2 .NO @B@@@@ SNA A15,RFICOL . YES CLEARBM )@@G@@ FLAG @ @@@@ LI$T . @]@@@@ END @F@@@@/. THIBN )@@G@@S ROUTINE ACCEPTS IMAGES IN THE FULL APL OVERLAY OF AN ASCII@#@@@@. KEYBO )@@G@@BOARD - @G@@@@. THE IMAGE IS CONSTRUCTED IN THE APLCODE BUFFER.BP )@@G@@ ALTHOUGH BACK- @G@@@@. SPACE CHARS CAN OVERWRITE THE PROMPT, IT IS NBQ )@@G@@OT LOST, AS IT HAS BEEN @G@@@@. PREVIOUSLY XLATED INTO THE TREAD$/PRINTBR )@@G@@$ BUFFER BEFORE BEING ISSUED. @ @@@@. ENTRY CONDITIONS ARE: @G@@@@BS )@@G@@. (1) BUFMAN PTRS (X2,X3) ARE SET TO STASH FROM A1 INTO NEXT POS BT )@@G@@@F@@@@. (2) INITIAL TREAD$ HAS BEEN DONE; IMAGE IS IN 'ASBUFR' BU )@@G@@@^@@@@. EXIT CONDITIONS -@F@@@@. 0,X11 RE-ISSUE PROMPT ANDBV )@@G@@ TREAD$, A CHAR ERROR OCCURED @ @@@@. 1,X11 NORMAL RETURN@[@@@@BW )@@G@@. @[@@@@. @#@@@@ INSTRS . @ @@@@RFTRAN* SX X11,RTLINK BX )@@G@@ . @E@@@@ SZ RFRDFG . CLEAR CONTINUATION READ FLAG BY )@@G@@@C@@@@ SZ QESCAP . CLEAR ESCAPE FLAG @G@@@@ LA,U BZ )@@G@@ A0,10 . MAKE SURE WE STORE NEG. IN RFPSOF & RFICOL @D@@@@ CA )@@G@@ SNA A0,RFPSOF . CLEAR POSSIBLE O-U-T FLAG @B@@@@ SX X2,RTCB )@@G@@SVX2 . SAVE POINTERS @B@@@@ SX X3,RTSVX3 . SAVE POINTERS CC )@@G@@@D@@@@RT0010 SNA A0,RFICOL . TURN OFF ILCHAR COL FLAG @ @@@@. SET CD )@@G@@FETCH TO START OF INBUF@A@@@@RT0020 LX X4,GLFTBL+ZMOCHR . @A@@@@CE )@@G@@ LX X5,(+1,ASBUFR) . @E@@@@ LA A14,ASWDCT . NUMCF )@@G@@BER OF WORDS READ BY TREAD$ @D@@@@ LSSL A14,2 . TIMES 4=NCG )@@G@@O OF CHAR TO SCAN @F@@@@ TZ RFRDFG . SKIP THIS CODE IF CONCH )@@G@@TINUATION READ @ @@@@ J RT0027 . @E@@@@ SA CI )@@G@@ A14,RTCHEX . SAVE NUMBER OF CHARS TO EXAMINE @^@@@@ LA,U A1,ASCJ )@@G@@PACE @ @@@@ LNA A14,TAPSIZ . @G@@@@ AA,U A14,133 CK )@@G@@ . NUMBER OF BLANKS TO FILL EDITTING BUFFER @ @@@@RT0022 JNGD A14,RCL )@@G@@T0025 . @D@@@@ LMJ X2,3,X2 . INITIALIZE BUFFER TO SPACESCM )@@G@@@ @@@@ J RT0022 . @D@@@@RT0025 LA A14,RTCHEX . NUMCN )@@G@@BER OF CHAR TO EXAMINE @F@@@@ LA A15,TAPSIZ . SET COL POS POICO )@@G@@NTER TO PROMPT SIZE @E@@@@ LA A13,TAPSIZ . POSITION OF FARCP )@@G@@THEST CHAR STORED @B@@@@ LX X3,RTSVX3 . LOAD POINTERS @B@@@@CQ )@@G@@ LX X2,RTSVX2 . LOAD POINTERS @E@@@@RT0027 SZ RFRDFG CR )@@G@@ . CLEAR READ CONTINUATION FLAG @F@@@@ JNGD A14,RT0030 . COUCS )@@G@@NT FIRST CHAR- IF NO CHARS, SYSERR @B@@@@ LMJ X4,0,X4 . GETCT )@@G@@ 1ST CHAR @ @@@@ SSL A1,3 . @B@@@@ TNE,U A1,07CU )@@G@@7 . IS IMAGE ASCII?@C@@@@ J RT0100 . YES - GO PROCESCV )@@G@@S @D@@@@. SEND 'TYPE SHIFT OUT (CTL N)' AND GO RE-READ IMAGE @C@@@@CW )@@G@@RT0030 LA A0,RTSOPK . NO - GET MESSAGE @B@@@@ ER PRINTCX )@@G@@$ . AND PRINT IT @B@@@@ LA,U A1,AEOL . PUT BACK EOL CY )@@G@@@C@@@@ SA,Q1 A1,CIOBUF . PUT EOL IN CIOBUF @ @@@@ SZ CZ )@@G@@ BFEOLP . @D@@@@ LX X11,RTLINK . GO RE-READ IMAGE AGAIDA )@@G@@N @A@@@@ J 0,X11 . RETURN @[@@@@. @[@@@@. DB )@@G@@@B@@@@. PROCESS NEXT CHAR OF FUNNYMODE IMAGE @G@@@@RT0100 JNGD A14,RDC )@@G@@T0300 . IF NO MORE CHARS, GO READ IMAGE CONTINUATION @ @@@@. THERE IS ADD )@@G@@NOTHER CHAR TO GET@C@@@@ TNE,U A15,133 . STORING 133 CHAR? DE )@@G@@@G@@@@ J RT0210 . YES - CLOSE IMAGE AS IF CAR RET WAS SEEDF )@@G@@N @A@@@@RT0120 LMJ X4,0,X4 . GET IT @E@@@@ JG,U A1,04DG )@@G@@0 RT0200 . CONTRL CHAR, SPECIAL HANDLING @E@@[[ JE,U A1,ASCRUB RDH )@@G@@T0100 . IF RUBOUT IGNORE THIS CHAR @F@@@@ LA,H1 A1,APASCI,A1 . ALDI )@@G@@FAMERIC. GET APL CODE FOR THIS CHAR @D@@@@ JE,U A1,ASILCD RT0170 DJ )@@G@@. IS THIS CHAR ALLOWED? @D@@@@ LA A0,RFPSOF . GET POSSIBLE O-DK )@@G@@U-T FLAG @G@@@@ JN A0,RT0130 . IF POSSIBLE O-U-T FLAG NOT DL )@@G@@SET SKIP TESTS @B@@@@. TEST TO SEE IF O-U-T HAS BEEN FOUND @D@@@@DM )@@G@@ TNE A0,A15 . SAME COL AS O-U FOUND? @B@@@@ TE,U DN )@@G@@ A1,AT . 'T' FOUND? @E@@@@ J RT0125 . NO CLEAR DO )@@G@@O-U FLAG AND PROCEED @C@@@@ SX X11,QESCAP . YES - WE HAVE ODP )@@G@@-U-T @^@@@@ LX X11,RTLINK @B@@@@ J 1,X11 . NORDQ )@@G@@MAL EXIT @D@@@@RT0125 SNA A0,RFPSOF . CLEAR POSSIBLE O-U-T FLAG DR )@@G@@@B@@@@. APL CHAR IN A1 - CHECK OVERSTRIKES, ETC.@F@@@@RT0130 GETCUR DS )@@G@@ . BRING CURRENT CHAR IN THIS POSN TO A2 @C@@@@ TNE,U A1,ASDT )@@G@@PACE . IS NEW CHAR A SPACE @E@@@@ LDSC A1,36 . YES, SHUFDU )@@G@@FLE AS IF OLD WERE SPACE@D@@@@ TE,U A2,ASPACE . IS 'OLD' CHAR ADV )@@G@@ SPACE? @E@@@@ TNE A1,A2 . NO- IS CHAR STRUCK OVER ITSDW )@@G@@ELF? @D@@@@ J RT0180 . IF EITHER GO STASH NEW CHAR@B@@@@DX )@@G@@. THIS IS SOME KIND OF OVERSTRIKE --- @D@@@@RT0140 TG A1,A2 DY )@@G@@ . IS LARGER CHAR ON RIGHT? @B@@@@ LDSC A1,36 . NO FORCE DZ )@@G@@IT @G@@@@ LA A0,A1 . PREPARE TO TEST ALFA CHAR IN A0 FEA )@@G@@OR TEST @D@@@@ TALFA . IS SMALLER ALPHABETIC? EB )@@G@@@E@@@@ J RT0150 . NO, NOT UL SO GO CHECK TABLES @F@@@@EC )@@G@@ TLE,U A1,AABAR . IS SMALLER CHAR ALREADY UNDERLINED? @C@@@@ED )@@G@@ AA,U A1,AABAR-AA . NO, UNDERLINE IT @E@@@@ TE,U A2,AUEE )@@G@@NDRL . WAS LARGER CHAR AN UNDERLINE? @E@@@@ TNE A1,A2 EF )@@G@@ . NO, WAS CHAR STRUCK OVER ITSELF? @E@@@@ J RT0180 . IF EG )@@G@@EITHER, GO STASH CHAR IN A1 @ @@@@. TEST FOR ESCAPE (O-U-T) FLAG@D@@@@EH )@@G@@ TNE,U A1,AOBAR . IS SMALLER CHAR A 'O' @C@@@@ TE,U EI )@@G@@ A2,AU . IS SECOND CHAR A 'U' @G@@@@ J RT0145 . ALPEJ )@@G@@HEBETIC OVRSTK SOMTHING GO LOOK IN TABLE @G@@@@ SA A15,RFPSOF EK )@@G@@ . STORE PRESENT COL NO. IN POSSIBLE OUT FLAG @E@@@@ J RT017EL )@@G@@0 . BUT NON THE LESS TREAT AS ILCHAR @C@@@@. CHAR IS COMPOUND- PACKEM )@@G@@ UP AND LOOK IN TABLE @C@@@@RT0145 ANA,U A1,AABAR-AA . REMOVE UNDERLINEN )@@G@@E @^@@@@RT0150 LSSL A2,36-9 @#@@@@ LDSL A1,9 @E@[@@ EO )@@G@@ LR,U R1,OVRNUM(1) . NUMBER OF OVERSTRIKES IN TABLE @E@@][ LR,U EP )@@G@@ R1,OVRNUM . NUMBER OF OVERSTRIKES IN TABLE @A[@@@ LA A2,(+EQ )@@G@@2,OVRTBL-1) . @C@@@@ SE,H1 A1,1,*A2 . LOOK FOR THE CHAR ER )@@G@@@D@@@@ J RT0170 . ILCHAR NOT FOUND IN TABLE @D@@@@ ES )@@G@@ LA,Q2 A1,0,A2 . GET COMPOUND CHAR CODE @B@@@@ J RT018ET )@@G@@0 . AND GO STASH IT@^@@@@. ILLEGAL OVERSTRIKE ---@E@@@@RT0170 GETCOEU )@@G@@L . PICK UP CURRENT COL NO (TO AI) @D@@@@ LA A2,RFEV )@@G@@ICOL . AND CURRENT ILCHAR FLAG @F@@@@ JN A2,$+2 . IF EW )@@G@@ILCHAR FLAG OFF,ALWAYS TURN IT ON @C@@@@ TG A2,A1 . IS EX )@@G@@OLD COL .GT. NEW? @E@@@@ SA A1,RFICOL . YES, STASH SMALLER ILEY )@@G@@CHAR COLNUM @C@@@@ LA,U A1,AEOL . GET BAD CHAR MARKER @B@@@@EZ )@@G@@. STASH CHAR FROM A1 TO APLCODE IMAGE @B@@@@RT0180 ASTASH FA )@@G@@ . STORE CHARACTER@C@@@@ J RT0100 . GO GET NEXT CHAR FB )@@G@@@[@@@@. @D@@@@. ASCII INPUT CHAR IS COMMO CONTROL /EDIT CONTROL FC )@@G@@@F@@@@. ANYTHING OTHER THAN BS, CR OR ERASE RIGHT IS IGNORED- FD )@@G@@@[@@@@. @E@@@@RT0200 JNE,U A1,ASCRRT RT0230 . IF NOT CR , GO CHECK FFE )@@G@@OR BS @A@@@@. CARRIAGE RETURN-- CLOSE THE IMAGE @D@@@@RT0210 TN RFICOFF )@@G@@L . IS ILEGAL CHAR FLAG ON? @D@@@@ J RT0220 . YESFG )@@G@@ GO SET UP FOR REPROMPT @D@@@@ LA A0,A13 . FARTHERSET CHARFH )@@G@@ STORED @E@@@@ DSL A0,2 . DIVIDE BY 4 TO GET WORD COUFI )@@G@@NT @E@@@@ LX,U X3,CIOBUF,A0 . POINT LINK REG FOR CIOBUF STASHFJ )@@G@@@ @@@@ LXI,U X3,1 . @D@@@@ SSL A1,36-2 . LINFK )@@G@@E UP FOR CHAR POINTER @E@@@@ LMJ X2,*AQINIT,A1 . POINT LINK REFL )@@G@@R TO CORRECT CHAR @E@@@@ LA,U A1,AEOL . NO, LINE WAS OK, GET FM )@@G@@EOL FLAG @A@@@@ ASTASH . STORE EOL@ @@@@ LX FN )@@G@@ X11,RTLINK . @B@@@@ J 1,X11 . NORMAL EXIT @^@@@@FO )@@G@@. SET UP FOR RE-PROMPT @E@@@@RT0220 LA A0,RTILPK . PICK UP PACKET FP )@@G@@FOR ILCHAR MSG @A@@@@ ER PRINT$ . XMIT IT @D@@@@ FQ )@@G@@ SZ RCPTIF . CLEAR PAPER TAPE INPUT FLAG@ @@@@ LX X11,RFR )@@G@@TLINK . @G@@@@ J 0,X11 . RE-PROMPT WITH ALL OF LINE FS )@@G@@UP TO THE ERROR @ @@@@. BACK SPACE HANDLED HERE @G@@@@RT0230 JNE,UFT )@@G@@ A1,ASCIBS RT0240 . IF NOT BS GO CHECK FOR ERASE TO RIGHT @E@@@@ FU )@@G@@ BACKSP . MOVE STORE POINTER BACK ONE POS @B@@@@ J FV )@@G@@ RT0100 . GET NEXT CHAR @B@@@@. CHECK INPUT FOR ERASE TO RIGHT FUNFW )@@G@@CTION @D@@@@RT0240 JNE,U A1,ASATTN RT0100 . IF NOT ATTN IGNORE IT@A@@@@FX )@@G@@. PRINT LINE MARKING POSN OF EDITING@G@@@@ CURCOL . CLEFY )@@G@@AR INVALID CHAR FLAG IF IT IS TO THE RIGHT@C@@@@ SA A15,TAPSIZ FZ )@@G@@ . SAVE CURRENT COL POS @ @@@@ LNA A0,A15 . @F@@@@ GA )@@G@@ AA A0,A13 . NO. OF BLNKS NEEDED TO BLANK TO RIGHT @^@@@@ GB )@@G@@ SX X2,RTSVX2 @ @@@@ SX X3,RTSVX3 . @B@@@@ LA,U GC )@@G@@ A1,ASPACE . GET A SPACE @ @@@@RT0250 JNGD A0,RT0260 . @B@@@@GD )@@G@@ LMJ X2,3,X2 . STORE BLANKS @ @@@@ J RT0250 GE )@@G@@ . @D@@@@RT0260 LA A15,TAPSIZ . RESTORE CURRENT COL POS @D@@@@GF )@@G@@ LA A13,TAPSIZ . FARTHEREST COL TO THE RIGHT@ @@@@ LX GG )@@G@@ X2,RTSVX2 . @ @@@@ LX X3,RTSVX3 . @B@@@@ J GH )@@G@@ RT0100 . GET NEXT CHAR @^@@@@RT0300 LA A0,RTPKRD @ @@@@ GI )@@G@@ ER READ$ . @B@@@@ LA,U A0,0,A0 . ISOLATE WORDCT GJ )@@G@@@A@@@@ SA A0,ASWDCT . POST IT @D@@@@ SX X11,RFRDFG GK )@@G@@ . SET CONTINUATION READ FLAG @E@@@@ J RT0020 . AND GO INGL )@@G@@ITIALIZE SCAN POINTERS @F@@@@RT0400 CALREP,SYSREP X11, SINOFF . EOF ENCGM )@@G@@OUNTERED, GO SIGN OFF @#@@@@ VARBLS . @ @@@@RTLINK RES 1 GN )@@G@@ . @D@@@@RTCHEX RES 1 . NUMBER OF CHARS TO EXAMINE GO )@@G@@@ @@@@RFICOL RES 1 . @ @@@@RTSVX2 RES 1 . GP )@@G@@@ @@@@RTSVX3 RES 1 . @D@@@@RFRDFG EQUF $,,H1 . REAGQ )@@G@@D CONTINUATION FLAG @ @@@@ RES 1 . @F@@@@RFPSOFGR )@@G@@ RES 1 . POSSIBLE O-U-T FLAG (MUST BE WHOLE WD) @ @@@@RFTPKTGS )@@G@@ + 0,ASBUFR . @^@@@@RTPKRD + RT0400,ASBUFR@C@@@@AQBFWA EQU CGT )@@G@@IOBUF . FIRST WORD OF BUFFER @ @@@@ CONSTS . GU )@@G@@@ @@@@P FORM 12,6,18 . @ @@@@RTSOPK P 0,7,$+1 . GV )@@G@@@D@@@@ '_[4JD0G*)IT*HD&I))H95I))BLIK)G(2IL\IKE[*@' . GX )@@G@@CHARACTER ERROR MSG @G@@@@/. UTILITIES TO MOVE CHARS IN APLCODE BUF GY )@@G@@FOR ASCII TO APL CONVERSION @E@@@@. LINKAGE- 0,X2=BACKSPACE; 1,X2=GZ )@@G@@EXAMINE; 3,X2=STASH @[@@@@. @#@@@@ INSTRS . @#@@@@AQINITHA )@@G@@ +AQ1LNK . @#@@@@ +AQ2LNK . @#@@@@ +AQ3LNK . @#@@@@ HB )@@G@@ +AQ4LNK . @[@@@@. @F@@@@. SPECIAL TREATMENT FOR Q1 BECAUSE BKSP WIHC )@@G@@LL CROSS WORD BNDRY @F@@@@AQ1LNK LMJ X2,0,X2 . ESTABLISH LINK HD )@@G@@SO NEXT CHAR IS IN Q1 @E@@@@ J AQ1TST . BACKSPACE- GO THE )@@G@@EST FOR BEGIN BUF @A@@@@ LA,Q1 A1,0,X3 . EXAMINE @A@@@@ HF )@@G@@ J AQ1LNK . RETURN @A@@@@ SA,Q1 A1,0,X3 . STASH HG )@@G@@@A@@@@ J AQ2LNK . RETURN @D@@@@AQ1TST LA,U A1,0,X3 HH )@@G@@ . GET CURRENT WORD POINTER @D@@@@ TNE,U A1,AQBFWA . ALREADY AHI )@@G@@T 1ST WD OF BUF? @B@@@@ J AQ1LNK . YES, DONT RESET@C@@@@HJ )@@G@@ ANX,U X3,1 . NO STEP BACK ONE WORD@D@@@@ J AQ4LNHK )@@G@@K . AND GO SET LINKAGE FOR Q4 @E@@@@AQ2LNK LMJ X2,0,X2 . SETHL )@@G@@ LINKAGE SO Q2 IS NEXT CHAR @A@@@@ J AQ1LNK . BACKSPACEHM )@@G@@@A@@@@ LA,Q2 A1,0,X3 . EXAMINE @A@@@@ J AQ2LNK HN )@@G@@ . RETURN @A@@@@ SA,Q2 A1,0,X3 . STASH @[@@@@. @ @@@@HO )@@G@@AQ3LNK LMJ X2,0,X2 . @ @@@@ J AQ2LNK . @ @@@@HP )@@G@@ LA,Q3 A1,0,X3 . @ @@@@ J AQ3LNK . @ @@@@HQ )@@G@@ SA,Q3 A1,0,X3 . @ @@@@. . @ @@@@HR )@@G@@AQ4LNK LMJ X2,0,X2 . @ @@@@ J AQ3LNK . @ @@@@HS )@@G@@ LA,Q4 A1,0,X3 . @ @@@@ J AQ4LNK . @ @@@@HT )@@G@@ SA,Q4 A1,0,*X3 . @ @@@@ J AQ1LNK . @[@@@@HU )@@G@@. @[@@@@. @[@@@@. @[@@@@. @#@@@@ END . ___@@@HV )@@G@@ SX X11,RFRDFG . SET CONTINUATION READ FLAG @E@@@@ J HW )@@G@@ RT0020 . AND GO INITIALIZE SCAN POINTERS @F@@@@RT0400 CALREP,SYSRHX )@@G@@*[S@@@*SDFF*@G@@[[. ****************************************************HY )@@G@@*************** @G@@[[. STANDARD PROCS - INCLUDED BY AN @ADD PRCPKG/APHZ )@@G@@L IN SOURCE DECKS * @[@@[[. @G@@[[ AXR$ . IA )@@G@@ * @G@@[[ CONFIG . DEFINE AIB )@@G@@SSEMBLY PARAMETERS * @G@@[[ APSYMB . DEIC )@@G@@FINE APL SYMBOL SET * @G@@[[ FDSYMID )@@G@@B . DEFINE FIELDATA SYMBOLS * @G@@[[ IE )@@G@@ WSDEF . DEFINE WORKSPACE * @G@@[[IF )@@G@@WORKSP INFO 2 20 . SET ASIDE THE SPACE * IG )@@G@@@G@@[[ RUNCTL . DEFINE RUN CTRL BLOK(S) IH )@@G@@ * @G@@[[RUNCON INFO 2 22 . AND SET ASIDE ITS SPACE II )@@G@@ * @G@@[[ CBLOCK . DEFINE CONTROL BLOCK TYPES IJ )@@G@@ * @[@@[[. @ @@[[. END OF STANDARD PROC BLOCK @G@@[[IK )@@G@@. ******************************************************************* IL )@@G@@@[@@[[. @[@@[[/. @[@@[[. @[@@[[. @A@@[[ SKMARX . DIM )@@G@@EFINE STACK MARKS @D@@[[/. POP AND EXAMINE A COORDINATE SELECTING EXPRESIN )@@G@@SION @[@@[[. @#@@[[ INSTRS . @]@@[[CRDPOP* . @E@@[[ IO )@@G@@ ANA,U A2,1 . DECREMENT COORD FLAGFOR TESTING @B@@[[ SX IP )@@G@@ X11,CDLINK . STORE LINK @D@@[[ SZ CDNONI . CLEAR NONIQ )@@G@@-INTEGER FLAG @D@@[[ LMJ X11,PIKRIT . SET-UP TO FETCH VARIAIR )@@G@@BLE @ @@[[ J CD0990 . @E@@[[ JNE,U A5,1 CD0900IS )@@G@@ . IF NOT ONE-ELEMENT, LENGTH ERR @F@@[[ JNE,U A3,ZMOHFI CD0010 IT )@@G@@. IF NOT HALFINT, GO CHECK DFLOAT @D@@[[ LMJ X6,0,X6 . ELSIU )@@G@@E FETCH HALFINT VALUE @B@@[[ DS A4,CDCOOR . SAVE VALUE IV )@@G@@@B@@[[ J CD0020 . AND GO EXIT @E@@[[CD0010 JNE,U A3,ZMIW )@@G@@ODFL CD0910 . IF NOT DLOAT, DOMAIN ERR @B@@[[ LMJ X6,0,X6 IX )@@G@@ . PICK IT UP @C@@[[ DS A4,CDCOOR . TEMP SAVE DFLOAT VAL IY )@@G@@@C@@[[ FUZZDN . AND TAKE ITS FLOOR @D@@[[ JNE IZ )@@G@@ A1,CD0910 . IF TOO BIG, RANK ERROR @E@@[[ DL A4,CDCOOR JA )@@G@@ . RECOVER ORIGINAL FLOATING VALUE @C@@[[ DS A1,CDCOOR . ANDJB )@@G@@ SAVE THE INTEGER @D@@[[ DFLOAT A0,A1 . CONVERT BACK TO FLOATJC )@@G@@ING @E@@[[ FUZDIF A1,A4 . AND COMPARE WITH ORIGINAL VALUE JD )@@G@@@F@@[[ DJZ A1,CD0020 . IF FUZZY DIF ZERO, VALUE WAS INTEGER JE )@@G@@@E@@[[ SX X11,CDNONI . ELSE TURN ON NON-INTEGER FLAG @#@@[[JF )@@G@@. NORMAL EXIT @F@@[[CD0020 LMJ X11,ERASET . FREE THE SPACE USED BJG )@@G@@Y THE COORD VALUE @ @@[[ J CD0990 . @B@@[[ SZ JH )@@G@@ RITDSC . MARK IT ERASED @G@@[[ VERIFY CD0030,CD0920,CD0920 .JI )@@G@@ LOOK IN STACK FOR TRAILING BRACKET @C@@[[ J CD0920 . IF JJ )@@G@@NONE, SYNTAX ERROR@F@@[[CD0030 TE,U A6,SKMESL . BE SURE STAKMARK WAS JK )@@G@@FOR RITE BRACKET @C@@[[ J CD0920 . IF NOT, SYNTAX ERROR JL )@@G@@@D@@[[ DL A1,CDCOOR . RECOVER INTEGER OF COORD @C@@[[ JM )@@G@@ LA A0,CDNONI . AND NON-INTEGER FLAG @C@@[[ TNZ WSIXOR JN )@@G@@ . ZERO ORIGIN INDEXING?@E@@[[ AA,U A2,1 . YES, BUMP VALUEJO )@@G@@ INTO RANGE 1 TO N@D@@[[ JG,U A2,1 CD0910 . IF = OR < 0, INDEX ERJP )@@G@@ROR @ @@[[ LX X11,CDLINK . @ @@[[ J 1,X11 JQ )@@G@@ . @[@@[[. @ @@[[CD0900 ERROR YLENGT,CD0990 . @ @@[[CD0910 ERRORJR )@@G@@ YRANK,CD0990 . @ @@[[CD0920 ERROR YSYNTA,CD0990 . @ @@[[CD0990 LX JS )@@G@@ X11,CDLINK . @ @@[[ J 0,X11 . @#@@[[ VARBLJT )@@G@@S . @ @@[[CDNONI EQUF $,,H1 . @ @@[[CDLINK EQUF $,,H2 JU )@@G@@ . @ @@[[ RES 1 . @ @@[[CDCOOR RES 2 JV )@@G@@ . @#@@[[/. THIS ROUTINE: @F@@[[. (1) FARBLES POINTERS TO SUBJW )@@G@@SCRIPTAND FOR HANDLING BEATING@C@@[[. BEATING (HITTING, KICKIJX )@@G@@NG, ETC) @D@@[[. (2) RESERVES SPACE TO STASH SUBSCRIPTAND JY )@@G@@@A@@[[. (3) MOVES SUBSCRIPTAND @[@@[[. @E@@[[. NOTE: ON EJZ )@@G@@NTRY X4 CONTAINS ADDRESS OF FARBLING ROUTINE @C@@[[. XKA )@@G@@6 IS ADDRESS OF FETCH ROUTINES@[@@[[. @ @@[[. ISN'T THAT WONDERFUL!!KB )@@G@@!! @[@@[[. @#@@[[ INSTRS . @]@@[[BEMOVN* . @A@@[[ KC )@@G@@ SX X11,BELINK . SAVE LINK@D@@[[ LX,H2 X2,PUTARY+ZMOHFI . ADDRKD )@@G@@ OF DIM STASH RTNE@E@@[[ LX X3,(+1,RESDIM) . INITIAL RESULT WRDKE )@@G@@ PONTER @D@@[[ LX X5,(1,0) . INITIALIZE X5 FOR FETCH KF )@@G@@@B@@[[ LA A14,AMNSIG . LOAD FOR COUNT @ @@[[BE0010 JNGD A14,BKG )@@G@@E0030 . @B@@[[ LA A2,OMRANG,*0 . LOAD DIM VALUE@A@@[[ KH )@@G@@ LMJ X2,0,X2 . AND STORE@ @@[[ J BE0010 . @]@@[[KI )@@G@@BEMOVE* . @ @@[[ SX X11,BELINK . @[@@[[. @]@@[[. FAKJ )@@G@@RBLE @[@@[[. @A@@[[BE0020 LMJ X4,0,X4 . DO FARBLE@B@@[[ KK )@@G@@ J BE0999 . ERROR RETURN @[@@[[. @#@@[[. RESERVE SPACEKL )@@G@@@[@@[[. @]@@[[BE0030 . @D@@[[ LA,U A0,RESDIM . ADDR OF CKM )@@G@@REATED DIMVECT @A@@[[ RELADR A0 . ADJUST IT@E@@[[ KN )@@G@@ SA,H2 A0,RESDDB+1 . PUT INTO DUMMY DESCR OF DIMVECT @A@@[[ LA KO )@@G@@ A1,PMMODE . GET MODE @D@@[[ LX,H2 X6,PIKTBL,A1 . LOAD PICK ROUTKP )@@G@@INE ADDRESS @A@@[[ LA A0,RESRNK . GET RANK @E@@[[ JNE,UKQ )@@G@@ A0,ZRANKS BE0050 . IF NON-SCALAR, DON'T FARBLE @F@@[[ TNE,U A1,ZMKR )@@G@@OCHR . BUT IF SCALAR, IS IT ALSO CHARCTER? @G@@[[ LA,U A0,ZRKS )@@G@@ANKV . IF BOTH, FORCE TO VECTOR *** TEMP *** @F@@[[ SA,S3KT )@@G@@ A0,RESBLK . PUT RANK INTO DUMMY DESCR FOR RESULT @D@@[[ LA,U KU )@@G@@ A0,1 . GET APPROPRIATE LENGTH @E@@[[ SA,H2 A0,RESBLK KV )@@G@@ . TO LENGTH FIELD OF DUMMY DESCR @C@@[[BE0050 SA,H2 A0,RESDDB . RANKW )@@G@@K TO LENGTH FIELD @A@@[[ LA A0,PMRANK . LOAD RANK@C@@[[ KX )@@G@@ JNE,U A0,ZRANKS BE0060 . IF NOT SCALAR @B@@[[ LA,U A0,ZRANKV KY )@@G@@ . FORCE TO VECTOR@B@@[[ SA A0,PMRANK . STORE INTO @]@@[[KZ )@@G@@BE0060 . @C@@[[ LA,U A0,RESDDB . LOC OF DIMVECT DBLOK @#@@[[LA )@@G@@ RELADR A0 .@C@@[[ SA,H1 A0,RESBLK+1 . PUT INTO DUMMY DBLOK LB )@@G@@@D@@[[ LA,U A0,RESBLK . ADDR OF THE DUMMY DBLOK @F@@[[ LC )@@G@@ LMJ X11,PUTANS . SET UP X2 AND X3 FOR STASHING RESULT @B@@[[ LD )@@G@@ J BE0999 . OOPS, WS FULL @E@@[[ SA A2,RESDSC . SAVLE )@@G@@E RELADR OF RESULT DESCRIPTOR @E@@[[ LA A14,RESLNT . GET LENGTLF )@@G@@H OF RESULT FOR COUNTING@[@@[[. @]@@[[. MOVE @[@@[[. @D@@[[LG )@@G@@BE0100 JNGD A14,BE0110 . MORE TO DO? IF NOT, EXIT @D@@[[ LMJ LH )@@G@@ X6,0,X6 . YES, GO ACCESS SUBSCRITEE @B@@[[ J BE0990 LI )@@G@@ . ERROR - GO AWAY@A@@[[ LMJ X2,0,X2 . STORE @A@@[[ LJ )@@G@@ J BE0100 . REPEAT @[@@[[. @#@@[[. ALL FINISHED @[@@[[LK )@@G@@. @D@@[[BE0110 LA A0,RESDSC . GET DESCR ADDR OF RESULT @A@@[[LL )@@G@@ PUSH A0 . STACK IT @ @@[[ LX X11,BELINK . LM )@@G@@@A@@[[ J 1,X11 . GOO-BY @[@@[[. @#@@[[. EROOR EXLN )@@G@@ITS @[@@[[. @ @@[[BE0900 ERROR YSYSTM,BE0990 . @[@@[[. @ @@[[LO )@@G@@. FREE ANY RESERVED SPACE @[@@[[. @B@@[[BE0990 SA A0,BETEMP LP )@@G@@ . SAVE ERROR CODE@D@@[[ LA A6,RESDSC . GET DESCR ADDR OF RESLQ )@@G@@ULT @B@@[[ LMJ X11,ERASET . ERASE SPACE @B@@[[ J LR )@@G@@ BE0999 . ERROR RETURN @C@@[[ LA A0,BETEMP . RELOAD ERLS )@@G@@ROR CODE @ @@[[BE0999 LX X11,BELINK . @ @@[[ J 0,X11LT )@@G@@ . @#@@[[ VARBLS . @#@@[[BETEMP RES 1 . @#@@[[BELINKLU )@@G@@ RES 1 . @G@@[[/. ERASE TEMPORARY EXPRS USED AS SUBSCRS. THIS ROUTINELV )@@G@@ IS CALLED BY THE @F@@[[. SUBSCRIPTING ROUTINES WHEN THEY ARE DONE OR (LW )@@G@@ERROR). THE SUBSCR@G@@[[. ROUTINES ARE THE ONLY OONES FOR WHICH ARBITRALX )@@G@@RY APL EXPRESSIONS COULD@ @@[[. HAVE APPEARED AS SUBSCRIPTS@[@@[[. LY )@@G@@@#@@[[ INSTRS . @]@@[[BEBERS* . @ @@[[ SX X11,BELINLZ )@@G@@K . @A@@[[ SX X8,PMX8ST . SA E X8 @ @@[[ LA A4,PMMA )@@G@@RANK . @ @@[[ LX X8,(1,0) . @C@@[[. LOOP THRU AMDESMB )@@G@@C, LOOKING FOR DBLOK ADDRESSES@ @@[[BE0600 JNGD A4,BE0610 . @B@@[[MC )@@G@@ TNZ AMDESC . EQ TO ZERO? @C@@[[ J BE0600 MD )@@G@@ . YES, NO DBLOK ADDR @B@@[[ LA A6,AMDESC-1 . LOAD DBLOK ADDRME )@@G@@@D@@[[ DS A3,BEREGS .SAVE REGISTERS FROM ERASET @C@@[[ MF )@@G@@ LMJ X11,ERASET . ERASE SUBSCR EXP @B@@[[ J BE0650 MG )@@G@@ . ERROR RETURN @G@@[[ DL A3,BEREGS . RECOVER REGS (COMPUTEMH )@@G@@R TALK FOR REGISTERS) @C@@[[ SZ AMDESC-1 . ZERO EXPRESSIONMI )@@G@@ OUT @^@@[[ J BE0600 . @B@@[[BE0610 LX X11,BELINK . NORMJ )@@G@@MAL EXIT @B@@[[ LX X8,PMX8ST . RESTORE X8 @ @@[[ MK )@@G@@ J 1,X11 . @B@@[[BE0650 LX X11,BELINK . ERROR EXIT ML )@@G@@@ @@[[ LX X8,PMX8ST . @ @@[[ J 0,X11 . MM )@@G@@@#@@[[ VARBLS . @B@@[[BEREGS RES 2 . SAVE PLACE FOR A2 AND A3 MN )@@G@@@D@@[[/. ROUTINE TO MODIFY TABLES FOR USE IN SUBSCRIPTING @B@@[[. SUBMO )@@G@@SCRIPTS ARE PICKED ONE BY ONE AND @D@@[[. TABLES VALUES MODIFIED - IFMP )@@G@@ SUBSCRIPT IS ELIDED, @ @@[[. TABLES ARE LEFT UNCHANGED @[@@[[. MQ )@@G@@@G@@[[. INITIALIZE THE SETUP OF THE DIMVECT OF THE RESULT-OUTER PROD OFMR )@@G@@ SUBS @#@@[[ INSTRS . @]@@[[SSUB* . @A@@[[ SX X8,PMMS )@@G@@X8ST . SAVE X8 @E@@[[ LA,U A13,0 . TOTALIZER FOR RANK OFMT )@@G@@ RESULT @C@@[[ LA,U A3,ZMOHFI . SET-UP FOR DIM STASH @D@@[[MU )@@G@@ LX,H2 X2,PUTARY,A3 . ADDR OF DIM STASH RTNE @E@@[[ LX MV )@@G@@ X3,(+1,RESDIM) . INITIAL RESULT WORD POINTER @[@@[[. @G@@[[. INIMW )@@G@@TIALIZE TO ACTUALLY FETCH THE SUBSCRS AND SET UP THE CTRL BLOX @[@@[[MX )@@G@@. @B@@[[ LA A14,AMNSIG . LOAD FOR COUNT @G@@[[ SZ MY )@@G@@ AMNSIG . CLEAR PTR TO MOST RARIDLY VARYING SUBSCR @D@@[[ MZ )@@G@@ LA,U A7,1 . INITIALIZE LENGTH COUNTER @ @@[[ SA A7,RENA )@@G@@SLNT . @D@@[[ LX X8,(+1,0) . SET POINTER TO ADDR MAP NB )@@G@@@ @@[[ LX X5,(+1,0) . @[@@[[. @]@@[[. FETCH LOOP@[@@[[NC )@@G@@. @]@@[[SS0010 . @B@@[[ JNGD A14,SS0200 . MORE TO DO ? ND )@@G@@@E@@[[ VERIFY SS0030,SS0900,SS0999 . POP NEXT EXPRESSION @C@@[[NE )@@G@@ SA A1,SSDIMA . SAVE DIM DATA ADDR @F@@[[ SA A6,OMNF )@@G@@DESC . SAVE DESCR ADDR (FOR ERASE AT EXIT) @E@@[[ JZ A5,SSNG )@@G@@0020 . IF NULL, NO MODE CHECK NEEDED @E@@[[ JE,U A3,ZMOCHR SNH )@@G@@S0930 . IF CHAR SUBSCR, DOMAIN ERR @E@@[[ TNE,U A3,ZMODFL . IS NI )@@G@@SUBSCR EXPRESSION DFLOAT? @F@@[[ LA,U A3,ZMODFI . YES, SET NJ )@@G@@FLAG TO FORCE IT TO INTEGER @F@@[[SS0020 LMJ X11,PIKRIU . SET RITEANK )@@G@@RG FETCH REGS FOR THIS SUBSCR @[@@[[. @F@@[[. SET UP TABLE ENTRIES NL )@@G@@FOR FETCHING VALS OF THIS SUBSCR EXPR @[@@[[. @D@@[[ JZ NM )@@G@@ A5,SS0120 . IF NULL, GO SET UP FOR IT @C@@[[ TE,U A5,1 NN )@@G@@ . IS IT OF LENGTH 1 @D@@[[ J SS0100 . NO, SET UP FETCNO )@@G@@H ROUTINES @[@@[[. @ @@[[. SUBSCRIPT HAS A LENGTH OF 1@A@@[[. FETNP )@@G@@CH VALUE AND ADD TO ABASE @ @@[[. THEN UPDATE RESULT RANK @[@@[[NQ )@@G@@. @ @@[[ SA A4,AMCVAL . @ @@[[ LA A0,X8 NR )@@G@@ . @D@@[[ LMJ X6,0,X6 . IMMEDIATELY FETCH THE VALUE@F@@[[NS )@@G@@ JNZ A4,SS0910 . IF NOT REALLY HALFINT, INDEX ERROR @E@@[[NT )@@G@@ ANA A5,WSIXOR . COMPENSATE FOR CURRENT INDEX ORIG@B@@[[ NU )@@G@@ JZ A5,SS0050 . IF ZERO OK @D@@[[ JN A5,SS0910 . BUTNV )@@G@@ NEGATIVE IS INDEX ERROR@D@@[[ TG A5,OMRANG . IS SUBSCR WITHINW )@@G@@N RANGE? @B@@[[ J SS0910 . NO, INDEX ERROR@B@@[[ NX )@@G@@ LA A4,AMCVAL . RELOAD RANK @C@@[[ J SS0050 . CALNY )@@G@@CULATE INTO ABASE @[@@[[. @F@@[[. STACKMARK HIT DURING SUBSCRIPT PONZ )@@G@@P, CHECK FOR ELIDED INDEX @[@@[[. @D@@[[SS0030 TE,U A6,SKMELX OA )@@G@@ . IS THERE AN ELIDED INDEX? @B@@[[ J SS0910 . NO, INDEXOB )@@G@@ ERROR@C@@[[ LA,U A4,ZRANKV . FORCE RANK TO VECTOR @D@@[[ OC )@@G@@ LA A5,OMRANG . LOAD LENGTH FOR COMPARE @C@@[[ TNE,U A5,1 OD )@@G@@ . IF LENGTH NOT = 1 @B@@[[ J SS0120 . GO MOVE DOE )@@G@@IMS @]@@[[SS0045 . @ @@[[ LA A15,X8 . @D@@[[ OF )@@G@@ TNE A15,X5 . IF NO SCALAR SUBS SO FAR @C@@[[ J SS011OG )@@G@@5 . NO MOVING NECESSARY @[@@[[. @^@@[[. MOVE ENTRIES OVER OH )@@G@@@[@@[[. @C@@[[ LA A6,OMLINI . MOVE INITIAL LINK @ @@[[OI )@@G@@ SA A6,AMLINI . @B@@[[ LA A6,OMRANG . MOVE MAXOJ )@@G@@ RANGE@ @@[[ SA A6,AMRANG . @B@@[[ LA A6,OMCINI OK )@@G@@ . MOVE INITAL @B@@[[ SA A6,AMCINI . COUNT @A@@[[OL )@@G@@ LA A6,OMWGHT . MOVE @A@@[[ SA A6,AMWGHT . WOM )@@G@@EIGHT @C@@[[ LA,U A4,ZRANKV . FORCE RANK TO VECTOR @ @@[[ ON )@@G@@ J SS0115 . @C@@[[SS0050 MSI A5,OMWGHT . MULTIPLY BY WEIOO )@@G@@GHT @B@@[[ AA A5,ABASE . ADD IN ABASE @A@@[[ SA OP )@@G@@ A5,ABASE . AND STORE@C@@[[ LA,U A5,1 . SET LENGTH BACKOQ )@@G@@ TO 1 @D@@[[ JE,U A4,ZRANKS SS0180 . IF SCALAR, GO AWAY @ @@[[OR )@@G@@ J SS0120 . @[@@[[. @^@@[[. SET UP FETCH ROUTINES OS )@@G@@@[@@[[. @]@@[[SS0100 . @C@@[[ SX X6,AMLINI . STORE FETOT )@@G@@CH SUBR ADDR@C@@[[ SX X7,AMDINI . STORE WORD POINTER @ @@[[OU )@@G@@ ANU,U A5,1 . @C@@[[ SA A6,AMCINI . STORE INIOV )@@G@@TIAL COUNT @B@@[[ LA A0,X7 . DUPE WORD PTR @B@@[[ OW )@@G@@ SSL A0,18 . ISOLATE STEP @B@@[[ SA A0,AMDINC . OX )@@G@@ AND SAVE IT@D@@[[ LA A0,OMRANG . IN CASE, X8 AND X5 DIFFER OY )@@G@@@C@@[[ SA A0,AMRANG . UPDATE MAX RANGE @[@@[[. @A@@[[OZ )@@G@@. FOR SUBSCRIPTS WITH LENGTH > 1 @[@@[[. @]@@[[SS0115 . @D@@[[PA )@@G@@ LA,U A2,1,X8 . GET INDEX OF CURRENT SUB @F@@[[ SA PB )@@G@@ A2,AMNSIG . POST AS MOST RAPIDLY VARYING SUBSCRIPT @B@@[[ NOP PC )@@G@@ 0,0,*X8 . BUMP 'TO' PTR @[@@[[. @B@@[[. ADJUST RESULT RANK, PPD )@@G@@REPARE TO MOVE DIM@[@@[[. @C@@[[SS0120 AA A13,A4 . BUMP RESUPE )@@G@@LT RANK @D@@[[ TG,U A13,MAXSUB+1 . IS IT STILL WITHIN RANGE?PF )@@G@@@C@@[[ J SS0940 . NO, LENGTH ERROR @ @@[[ LA PG )@@G@@ A7,RESLNT . @C@@[[ MSI A7,A5 . MULTIPLY BY LENGTH PH )@@G@@@ @@[[ SA A7,RESLNT . @D@@[[ JNE,U A4,ZRANKV SS0140 PI )@@G@@. IF ARRAY,G O COPY DIMS@E@@[[ LA A2,A5 . MOVE VECTOR LENPJ )@@G@@GTH TO DIM REG @D@@[[ LMJ X2,0,X2 . STASH AS NEXT DIM OF PK )@@G@@RESULT@ @@[[ J SS0180 . @E@@[[SS0140 LX,H2 X6,GRITBL+ZPL )@@G@@MOHFI . SETUP HALFINT PICK SUBR ADDR@C@@[[ LX X7,SSDIMA . SETPM )@@G@@ UP DIM DATA ADDR @ @@[[ LXI,U X7,1 . @F@@[[ LA PN )@@G@@ A15,A4 . REPEAT CT-NO OF DIMS= RANK OF ARRAY @B@@[[SS0145 JNGD PO )@@G@@ A15,SS0180 . MORE TO MOVE? @D@@[[ LMJ X6,0,X6 . PICK UP DPP )@@G@@IM OF SUBSCR EXPR @B@@[[ LA A2,A5 . MOVE FOR STASH @D@@[[PQ )@@G@@ LMJ X2,0,X2 . STORE IN DIM OF RESULT @A@@[[ J PR )@@G@@ SS0145 . REPEAT @B@@[[SS0180 NOP 0,0,*X5 . BUMP 'FROM' PTRPS )@@G@@@ @@[[ J SS0010 . @[@@[[. @^@@[[. ALL DONE-CLEAN UPT )@@G@@P @[@@[[. @B@@[[SS0200 SA A13,RESRNK . STORE RANK @A@@[[PU )@@G@@ VERIFY SS0210,SS0900,SS0999 .@D@@[[ J SS0910 . IF PV )@@G@@NO STAKMARK, INDEX ERROR@G@@[[SS0210 TE,U A6,SKMESL . DOES STAKMARK IPW )@@G@@NDICATE END OF SUBSCR LIST? @B@@[[ J SS0910 . NO, INDEXPX )@@G@@ ERROR@ @@[[ LX X8,PMX8ST . @A@@[[ J 1,X4 PY )@@G@@ . FINISHED @#@@[[ VARBLS . @#@@[[SSDIMA RES 1 . @B@@[[/. ROPZ )@@G@@UTINE TO MODIFY TABLES FOR USE IN @#@@[[. TAKE AND DROP @[@@[[. QA )@@G@@@^@@[[. LOOP THRU LEFT ARG @[@@[[. @B@@[[. TAKE: AMCINI=ABS(PIQB )@@G@@CKED VAL) - 1 @C@@[[. AMDINI=WSIXOR IF PICKED VALUE IS + QC )@@G@@@G@@[[. (AMCINI+1) - PICKED VAL + WSIXOR IF PICKED VAL IQD )@@G@@S - @[@@[[. @E@@[[. DROP: AMCINI= AMCINI - ABS(PICKED VAL) - 1 QE )@@G@@+ WSIXOR @B@@[[. AMDINI=PICKED VAL + WSIXOR IF +@B@@[[. QF )@@G@@ 1 IF PICKED VAL IS - @[@@[[. @#@@[[ INSTRS . QG )@@G@@@]@@[[STADR* . @A@@[[ SX X8,PMX8ST . SAVE X8 @C@@[[ QH )@@G@@ LA,U A3,ZMOHFI . SET-UP FOR DIM STASH @D@@[[ LX,H2 X2,PUTARY,AQI )@@G@@3 . ADDR OF DIM STASH TRTNE @D@@[[ LX X3,(+1,RESDIM) . INITIAQJ )@@G@@L RESULT WRD PTR @B@@[[ LA A14,AMNSIG . LOAD FOR COUNT @C@@[[QK )@@G@@ LX X8,(+1,0) . SET PTR TO TABLE @D@@[[ LA,U A7,1 QL )@@G@@ . INITIALIZE LENGTH COUNTER @C@@[[ST0100 JNGD A14,ST0300 . ANYQM )@@G@@ MORE TO DO ? @B@@[[ LMJ X6,0,X6 . GET NEXT VALUE @D@@[[QN )@@G@@ JNZ A4,SS0930 . DFLOAT IS TOO BIG.. DOM ERR@[@@[[. @ @@[[QO )@@G@@. CALCULATE AMRANG AND AMCINI@[@@[[. @C@@[[ LA A2,AMRANG QP )@@G@@ . LAOD NUM OF ELEMENTS @D@@[[ LMA A4,A5 . PUT MAG OF PICKQQ )@@G@@ED VAL IN A4@B@@[[ TZ DTTEST . IS IT DROP? @A@@[[ QR )@@G@@ J ST0150 . NO, TAKE @G@@[[ TNG A2,A4 . IF ABS(PIQS )@@G@@CKED VAL) > OR = NUM OF ELEMENTS @B@@[[ LA A4,A2 . QT )@@G@@ THEN SET = @D@@[[ ANA A2,A4 . SUB NU OF ELS TO BE DROPPEDQU )@@G@@@F@@[[ LNA A5,A5 . INVERT SIGN SO DROP LOOKS LIKE TAKE QV )@@G@@@ @@[[ J ST0200 . @F@@[[ST0150 TNG A2,A4 . IS PQW )@@G@@ICKED VAL = OR OR = NO LEFT IN WORD, TRAILUK )@@G@@ING ZEROES OR ONES@G@@@@BS0030 AA A0,A4 . BUMP FIELD WIDTH BY NUL )@@G@@O OF BITS LEFT IN WORD @E@@@@ TE,U A4,1,A3 . WAS NO OF BITS UM )@@G@@SHIFTED = NO LEFT?@F@@@@ J BS0010 . NO, GTR-- CONTINUE SCUN )@@G@@AN OF ZERO FIELD @G@@@@. SINCE WORD STARTED AS LJZF, SHIFTCT=NO BITS IMUO )@@G@@PLIES TRAILING ONES-- @F@@@@BS0040 NEXTWD BS0110 BS0110,BS0020 . IF STUP )@@G@@ARTBIE=1, KEEP COUNTING @G@@@@ J BS0110 . ZERO STARTBIT, UQ )@@G@@GO CHECK LENGTH OF 1'S FIELD @ @@@@. END OF FIELD WITHIN WORD @E@@@@UR )@@G@@BS0100 LDSC A1,1 . MOVE OUT LAST BIT OF OLD FIELD @F@@@@ US )@@G@@ AA,U A0,1,A3 . BUMP FIELD WIDTH BY NO BITS SHIFTED @G@@@@ UT )@@G@@ ANA,U A4,1,A3 . DECREMENT BITS LEFT TO SCAN IN THIS WORD @G@@@@UU )@@G@@ JNB A2,BS0120 . IF FIELD WE JUST SCANNED WAS ZEROES, DO NEXT UV )@@G@@@C@@@@. END OF 1'S FIELD DETECTED-- CHECK ITS SIZE @C@@@@BS0110 LA,U UW )@@G@@ A5,0,A0 . ISOLATE FIELD WIDTH @B@@@@ TNE A5,BSREQS . EXAUX )@@G@@CT MATCH? @A@@@@ J BS0210 . YES, QUIT@F@@@@ TG,H2UY )@@G@@ A5,BSMPAR . NO, LARGET THAN CURRENT MAX BLOCK? @E@@@@ SA UZ )@@G@@ A0,BSMPAR . YES, SAVE PARAMS FOR MAX BLOCK @E@@@@ TG A5,BSVA )@@G@@REQS . WILL REQUEST FIT IN THIS BLOCK @F@@@@ TG,H2 A5,BSFPAR VB )@@G@@ . YES, IS THIS THE SMALLEST SUCH BLOCK? @D@@@@ J BS0120 VC )@@G@@ . NOFIT OR NOT THE BEST FIT--@E@@@@ SA A0,BSFPAR . BEST FIT VD )@@G@@SO FAR, SAVE PARAMS @A@@@@. UPDATA TO START OF NEXT FIELD @G@@@@VE )@@G@@BS0120 LSSC A0,18 . MOVE WIDTH TO INCREMENT, ADDR TO MODIFIER VF )@@G@@@F@@@@ NOP A0,0,*A0 . SO WE CAN BUMP THE INDEX INTO THE MAP VG )@@G@@@G@@@@ LSSL A0,18 . ALIGN START ADDR OF NEW FIELD, CLEAR ITVH )@@G@@S WIDT@F@@@@ TNZ R1 . HAVE WE BEEN SCANNING THE LAST WOVI )@@G@@RD? @E@@@@ JZ A4,BS0200 . YES, IF IT'S EXHAUSTED, GET OUT VJ )@@G@@@G@@@@ DJZ A1,BS0030 . IF BS0040 GAVE US A 0-WORD, DO DIRECT CVK )@@G@@OUNT @C@@@@ J BS0020 . ELSE SHIFT AND COUNT @#@@@@. END VL )@@G@@OF SEARCH---@D@@@@BS0200 LA A0,BSFPAR . GET PARAMS OF BEST FIT VM )@@G@@@E@@@@BS0210 TP A0 . WAS A BEST FIT REALLY FOUND? @E@@@@VN )@@G@@ LA A0,BSMPAR . NO, GET PARAMS FOR MAX BLOCK @C@@@@ VO )@@G@@ DSL A0,18 . LINE UP ADDRESS IN A0@B@@@@ SSL A1,18 VP )@@G@@ . AND COUNT IN A1@E@@@@ LDSC A0,36 . THEN PUT THEM IN THE VQ )@@G@@CORRECT REGS@ @@@@ LX X11,R2 . @D@@@@ TG A0,BSVR )@@G@@REQS . DID WE REALLY GET A FIT? @C@@@@ J 1,X11 . YESVS )@@G@@, NORMAL EXIT @B@@@@ J 0,X11 . NO, NOFIT EXIT @[@@@@VT )@@G@@$(2) .@D@@@@BSFPAR RES 1 . PARAMS OF BESTFIT BLOCK @D@@@@VU )@@G@@BSMPAR RES 1 . PARAMS OF MAX FOUND BLOCK @B@@@@BSREQS RES VV )@@G@@ 1 . REQUEST SIZE @#@@@@/. MARK BIT MAP-- @F@@@@. SINCE THISVW )@@G@@ ROUTINE ONLY INVERTS BITS, IT CAN BE USED EITHER TO @C@@@@. MARK FREE VX )@@G@@SPACE ALLOCATED, OR VICE-VERSA-- @E@@@@. A0=NO OF BITS, A1VY )@@G@@=STARTBIT INDEX, A2=MAP ADDR @[@@@@. @]@@@@$(1) . @ @@@@BMMARKVZ )@@G@@* SX X11,R2 . @F@@@@ SA A2,BMAPAD . SAVE ADDR OF 1SWA )@@G@@T DOUBLEWORD OF MAP @C@@@@ SA A1,BMAPST . AND INDEX OF STWB )@@G@@ARTBIT@B@@@@ AA A0,A1 . GET STARTBIT+1 @B@@@@ LR,U WC )@@G@@ R1,1 . SET LOOP CT @C@@@@ SA A0,BMAPEN . WHICH WE WD )@@G@@ALSO NEED @[@@@@. @G@@@@BM0010 DSL A0,6 . DIV BIT INDEX BWE )@@G@@Y 64, GIVING DOUBLEWORD INDEX @G@@@@ SSL A1,30 . ALIGN BITWF )@@G@@ WITHIN WORD FOR USE AS SHIFT INDEX @D@@@@ TZ R1 . IS WG )@@G@@THIS THE RIGHTMOST WORD?@G@@@@ JZ A1,BM0015 . YES, IF ZEROTH WH )@@G@@BIT, SKIP TO PREVENT SLOP @G@@@@ . WITHOUT TWI )@@G@@HE ABOVE, TABLES WOULD NEED 2 EXTRA @D@@@@ . WORWJ )@@G@@DS WHICH WOULD BE UNUSED@G@@@@ LSSL A0,1 . CONVERT DOUBLEWWK )@@G@@ORD INDEX TO SINGLEWORD OFFSET@G@@@@ AA A0,BMAPAD . NOW A0=ABWL )@@G@@S ADDR OF 1ST WD OF DESIRED DOUBLEWD@F@@@@ LA A2,(+040000000000WM )@@G@@0) . GET MASK TO INVERT LEFT PART @ @@@@ LA,U A3,0 . WN )@@G@@@E@@@@ TNZ R1 . ARE WE DOINT THE LAST ENTRY? @G@@@@WO )@@G@@ DLN A2,A2 . NO, 1ST-- CHANGE MASK SO IT FLIPS RIGHT PART WP )@@G@@@D@@@@ DSA A2,7,A1 . ALIGN MASK TO INDICATED BIT@D@@@@ WQ )@@G@@ XOR A3,1,A0 . MASK RIGHT SIDE OF ENTRY @B@@@@ XOR A2,0,WR )@@G@@A0 . AND LEFT SIDE @D@@@@ DS A3,0,A0 . SAVE MASKED DOUWS )@@G@@BLEWORD @C@@@@BM0015 LA A0,BMAPST . GET INDEX OF STARTBIT@D@@@@WT )@@G@@ JGD R1,BM0010 . AND IF WE HAVENT, GO DO IT @E@@@@. 1ST AND LAWU )@@G@@ST ENTRIES DONE, CHECK FOR INTERMEDIATE WORDS @E@@@@BM0020 LA A1,BMWV )@@G@@APEN . RECOVER INDEX OF LAST BIT +1 @C@@@@ SSL A1,6 WW )@@G@@ . CONVERT TO DOUBLEWORD@E@@@@ SSL A0,6 . AND LIKEWISE FOWX )@@G@@R THE 1ST ENTRY @G@@@@ AA,U A0,1 . BUMP INDEX OF 1ST ENTWY )@@G@@RY TO ENTRY AFTER IT @E@@@@ ANA A1,A0 . LAST ENTRY LESSWZ )@@G@@ ENTRY AFTER 1ST @E@@@@ JZ A1,BM0050 . IF IDENTICAL, NO WORDXA )@@G@@S TO INVERT @D@@@@ TP A1 . IF POS, INTERVENING WORDS XB )@@G@@@G@@@@ ANA,U A0,1 . 1ST ENTRY FLIPPED TWICE, GET ITS INDEX XC )@@G@@BACK @B@@@@. INVERT REQUIRED NUMBER OF TABLE ENTRIES @C@@@@BM0030 ANA,UXD )@@G@@ A1,1 . ADJUST LOOPCT FOR JGD@F@@@@ LSSL A0,1 . CONXE )@@G@@VERT INDEX OF 1ST TO FLIP TO AN ADDR@C@@@@ AA A0,BMAPAD . MAKXF )@@G@@E ADDR ABSOLUTE @D@@@@ LXI,U A0,2 . SET INCR TO GO THRU MXG )@@G@@AP @D@@@@BM0040 DLN A3,0,A0 . GET NEXT WORD INVERTED @B@@@@XH )@@G@@ DS A3,0,*A0 . AND PUT IT BACK@D@@@@ JGD A1,BM0040 XI )@@G@@ . CONTINUE TILL ALL ARE DONE @ @@@@BM0050 LX X11,R2 . @ @@@@XJ )@@G@@ J 0,X11 . @]@@@@$(2) . @C@@@@BMAPAD EQUF $,,H1XK )@@G@@ . ABS ADDR OF THE MAP @ @@@@ RES 1 . @C@@@@XL )@@G@@BMAPST EQUF $,,H1 . INDEX TO 1ST BIT @C@@@@BMAPEN EQUF $,,H2XM )@@G@@ . INDEX TO LASTBIT+1 @ @@@@ RES 1 . @#@@@@XN )@@G@@ END . ___,U R1,1 . SET LOOP CT @C@@@@ SA XO )@@G@@ A0,BMAPEN . WHICH WE ALSO NEED @[@@@@. @G@@@@BM0010 DSL A0,6 XP )@@G@@ . DIV BIT INDEX B*[S@@@*SDFF*@G@@@@. ****************************XQ )@@G@@***************************************** @G@@@@. STANDARD PROCS - INCLUXR )@@G@@DED BY AN @ADD PRCPKG/APL IN SOURCE DECKS * @G@@@@. XS )@@G@@ * @G@@@@ AXR$ XT )@@G@@ . * @G@@@@ XU )@@G@@ CONFIG . DEFINE ASSEMBLY PARAMETERS * @G@@@@XV )@@G@@ APSYMB. DEFINE APL SYMBOL SET * XW )@@G@@@G@@@@ WSDEF. DEFINE WORKSPACE XX )@@G@@ * @G@@@@WORKSP INFO 2 20. SET ASIDE THE SPACE XY )@@G@@ * @G@@@@ RUNCTL. DEFINE RUN CTRL BLOK(S) XZ )@@G@@ * @G@@@@RUNCON INFO 2 22. AND SET ASIDE ITS SPACEYA )@@G@@ * @G@@@@ CBLOCK . DEFINE CONTROL YB )@@G@@BLOCK TYPES * @G@@@@. YC )@@G@@ * @G@@@@. END OF STANDARD PROC BLOCK YD )@@G@@ * @G@@@@. **********************YE )@@G@@*********************************************** @[@@@@. @A@@@@/. BUFYF )@@G@@FER MANAGEMENT FOR CONSOLE I/O@#@@@@ VARBLS . @#@@@@. BUFFER SPAYG )@@G@@CE-- @G@@@@. NOTE: SPACE RESERVED EXCEEDS THE ACTUAL CAPACITY OF A LINEYH )@@G@@ PRINTER-- @F@@@@. THE EXTRA WORDS ARE INSURANCE, PARTICULARLY AGAINSTYI )@@G@@ OVERFLOW @E@@@@. OF THE BUFFER CAUSED BY THE LAST (END OF LINE) CHARAYJ )@@G@@CTER @[@@@@. @G@@@@. ROOM MUST BE ALLOWED FOR CHARS READ AFTER DOINYK )@@G@@G QUOTE-QUAD OUTPUT @F@@@@CIOBUF* RES 60 . ROOM FOR 240 CYL )@@G@@HARS (132+80+SOME EXTRA)@]@@@@ . @G@@@@ . STORE ONE YM )@@G@@CHARACTER FROM A1 INTO OUTPUT LINE IMAGE(OLI) @G@@@@ . NOTEYN )@@G@@ THE HIGH ORDER 3 QUARTERS OF A1 ARE CLEARED TO 0 @C@@@@ . YO )@@G@@ BY THE CHARACTER STASH ROUTINE @ @@@@S PROC . YP )@@G@@@ @@@@STASH* NAME . @ @@@@ LMJ X2,0,X2 . YQ )@@G@@@]@@@@ END @]@@@@ . @#@@@@C PROC . @ @@@@OCHAR*YR )@@G@@ NAME . @ @@@@ UNLI$T . @ @@@@ YS )@@G@@ LA,U A1,C(1,1) . @ @@@@ LMJ X2,0,X2 . @ @@@@ YT )@@G@@ LI$T . @ @@@@ END . @]@@@@ YU )@@G@@ . @]@@@@ . @]@@@@/ . @B@@@@ . CHARACTER YV )@@G@@STASH ROUTINES @E@@@@ . STASH A CHARACTER IN SPECIFIED QWYW )@@G@@ OF 0,X3 @D@@@@ . STASHES ONE CHARACTER FROM A1 INTO OLI YX )@@G@@@]@@@@ . @#@@@@N PROC . @#@@@@NPUT* NAME . @ @@@@YY )@@G@@ UNLI$T . @E@@@@ SA A1,BFCHAR . TEMP SAVEYZ )@@G@@ CHAR TO BE STASHED @C@@@@ LMJ A1,BFOFLO . GO CHECK WIDTH,ZA )@@G@@ ETC @G@@@@ I$ 01,N(1,1),A1-A0,X3,2*(N(1,1)=Q4),CIOBUF . STORE FRZB )@@G@@OM A1 TO BUF@A@@@@ LMJ X2,0,X2 . RETURN @#@@@@ LI$T ZC )@@G@@ . @#@@@@ END . @[@@@@. @G@@@@. BUFFER STASH ROUTINES ZD )@@G@@AT THIS POINT PUT CHARS INTO THE BUF. IF A @G@@@@. CHAR WOULD CAUSEZE )@@G@@ BUF OFLO, THE BUF IS FLUSHED. THESE ROUTINES NORMAL-@G@@@@. LY USE ONLZF )@@G@@Y THE FETCH AND STASH REGS. IF A BUF OFLO OCCURS, HOWEVER, @H@@@@. THE ZG )@@G@@INVOKE THE LINE PRINT ROUTINE, WHICH MAY DESTROY PRACTACALLY EVERY- ZH )@@G@@@G@@@@. THING. HENCE, NOTHING SHOULD BE SAVED IN REGS ACROSS A STASH UNZI )@@G@@LESS @D@@@@. THERE IS NO POSSIBILITY THAT THE BUF WILL OVERFLOW @[@@@@ZJ )@@G@@. @ @@@@ INSTRS . @ @@@@BF0010 NPUT Q1 ZK )@@G@@ . @ @@@@BF0020 NPUT Q2 . @ @@@@BF0030 NPUT Q3 ZL )@@G@@ . @ @@@@BF0040 NPUT Q4 . @ @@@@ J BF0010 ZM )@@G@@ . @[@@@@. @G@@@@. THIS ROUTINE IS CALLED BY THE ABOVE FOR EVERY ZN )@@G@@CHARACTER, AND IS THE @D@@@@. PLACE WHERE THE OVERFLOW CHECKS ARE ACTUZO )@@G@@ALLY MADE @[@@@@. @D@@@@BFOFLO SA,H2 A1,BFOSTO . SAVE ADDR OF QWZP )@@G@@ STORE INSTR@G@@@@ TG,U A13,250 . HAS LINE EXCEEDED TOTAL AVAZQ )@@G@@ILABLE SPACE? @C@@@@ ER ERR$ . YES, SYSTEM ERROR ZR )@@G@@@G@@@@ LA A1,BFCHAR . NO, RECOVER CHAR (AND CLEAR A1 UPPER, TZS )@@G@@OO) @D@@@@ TE,U A1,AEOL . IS THE CHARACTER AN AEOL? @F@@@@ZT )@@G@@ J BF0075 . NO , CONTINUE PROCESSING IT NORMALY @F@@@@ZU )@@G@@ TNZ BFEOLP . IS THIS THE FIRST EOL ON THIS LINE? @F@@@@ZV )@@G@@ SA A13,BFEOLP . YES, SAVE ITS POSITION AND CONTINUE @E@@@@ZW )@@G@@BF0075 TNZ BFOLET . IS LINE BUF OFLO TO BE CHECKED? @G@@@@ ZX )@@G@@ TLE A13,WSWDTH . YES, IS BUF ALREADY FILLED TO MAX )WIDTH? @E@@@@ZY )@@G@@ J BF0110 . NO, GO COUNT AND STORE THIS CHAR @E@@@@ ZZ )@@G@@ TE,U A1,AEOL . YES, IS CHAR AN END OF LINE? @C@@@@ TNE,UAA )@@G@@ A1,ACRTRN . OR A CARRIAGE RETURN?@D@@@@ J BF0110 . IF AB )@@G@@EITHER, GO STORE ANYWAY @F@@@@. CURRENT CHAR CAUSES BUF OFLO-- CLEAR OLDAC )@@G@@ BUF, INDENT TO NEW LINE@D@@@@BF0100 LA,U A1,AEOL . GET AN END OF LAD )@@G@@INE FLAG @E@@@@ EX *BFOSTO . STASH IN NEXT CHAR POSN OF AE )@@G@@BUF @D@@@@ LMJ X11,*RCWRIT . PRINT THE TRUNCATED LINE @G@@@@AF )@@G@@ LX X3,(+1,0) . RESET WORD STASH POINTER TO START OF BUF AG )@@G@@@F@@@@ LA A1,(+ASPACE,ASPACE,ASPACE,ASPACE) . GET 4 BLANKS AH )@@G@@@E@@@@ SA A1,CIOBUF,*X3 . PUT INTO BEGINNING OF BUF @E@@@@AI )@@G@@ LA,U A13,4 . POST COUNT OF 4 CHARS NOW IN BUF @D@@@@ AJ )@@G@@ SZ BFLAST . CLEAR NON-BLANK INDICATOR @C@@@@ SZ BFEOAK )@@G@@LP . CLEAR EOL SEEN FLAG @E@@@@ LA A1,BFCHAR . RECOVER TAL )@@G@@HE INITIALICHARACTER @G@@@@ J BF0010 . AND GO BACK TO AM )@@G@@STASH AS IF WE NEVER CAME HERE@B@@@@. CURRENT CHAR IS OK- COUNT AND STASAN )@@G@@H IT @E@@@@BF0110 AA,U A13,1 . BUMP CT OF NO CHARS IN BUFFER AO )@@G@@@C@@@@ TE,U A1,ASPACE . IS CHAR A BLANK? @F@@@@ SA AP )@@G@@ A13,BFLAST . NO, POST COL NO OF LAST NON-BLANK CHAR @G@@@@ J AQ )@@G@@ *BFOSTO . GO BACK TO ROUTINE USED FOR ACTUAL STORE @[@@@@. AR )@@G@@@D@@@@. BACK UP STASH IN BUF TO START AFTER SPECIFIED COLUMN@[@@@@. AS )@@G@@@B@@@@. THIS ENTRY TO SURPRESS TRAILING BLANKS @E@@@@BFTRLB* LA A0,BFAT )@@G@@LAST . GET COL NO OF LAST NON-BLANK COL @D@@@@. THIS ENTRY TO BACK UP AU )@@G@@TO COL 'N', WHERE N IS IN A0 @E@@@@BFBAKN* TLE,U A0,0 . TRYING TOAV )@@G@@ GO BACK PAST COL 1? @E@@@@ ER ERR$ . YES, HOW ABSURDAW )@@G@@, BETTER WIPE OUT @G@@@@ LA,U A13,0,A0 . WE'RE OK, RESET POINTAX )@@G@@ER TO LAST COLUMN USED @E@@@@ DSL A0,2 . DIVIDE COL BY 4AY )@@G@@, GIVING WORD NO @D@@@@ LXM,U X3,0,A0 . PUT WORD CT IN POINTEAZ )@@G@@R REG @E@@@@ SSL A1,34 . ALIGN CHAR NO IN WORD (REMAINDER)BA )@@G@@@H@@@@ LXM X2,BFTBLE,A1 . AND SET UP ADDR OF REQUIRED CHAR STBB )@@G@@ASH ROUTINE @C@@@@ J 0,X11 . RETURN TO CALLER @[@@@@BC )@@G@@. @F@@@@. TABLE USED BY BACKUP ROUTINE TO LOCATE APPROPRIATE QW STASBD )@@G@@H @ @@@@BFTBLE +BF0010 . @ @@@@ +BF0020 BE )@@G@@ . @ @@@@ +BF0030 . @ @@@@ +BF0040 BF )@@G@@ . @]@@@@ . @ @@@@ VARBLS . @G@@@@BFLASTBG )@@G@@ EQUF $,,Q1 . COL NO OF LAST NON-BLANK STASHED, IF ANY @#@@@@BH )@@G@@ RES 1 . @F@@@@BFEOLP* RES 1 . POSITION OF FIRST EOLBI )@@G@@ IN LINE IMAGE @]@@@@ . @ @@@@ VARCON . BJ )@@G@@@G@@@@BFOSTO +0,$-$ . **** CAUTION**** INDIRECTION THRU THIS BK )@@G@@WORD @F@@@@BFCHAR EQUF BFOSTO,,Q1 . TEMP STORAGE OF CHAR BEING STASHEBL )@@G@@D @G@@@@BFOLET* +0 . ON TO ALLOW BUF OFLO (NUMERIC FORBM )@@G@@MATS ONLY) @F@@@@/. ROUTINES TO SAVE AND RESTORE BUF POINTERS, PRINT LIBN )@@G@@NES, ETC. @[@@@@. @#@@@@ INSTRS . @C@@[[. FORCE BUFFEBO )@@G@@R TO PRINT (EVEN IF EMPTY) @H@@[[LINFRS* JNZ A13,LINSTR BP )@@G@@ . IF BUFFER FULL PROCEEDE NORMALLY @ @@[[ OCHAR ASPACE BQ )@@G@@ . @ @@[[ J LINSTR . @G@@@@. RELOAD BUF POINTERS (ABR )@@G@@SSUMING PREVIOUS SUSPEND) AND FLUSH TO PRINTER @G@@@@LNFLSH* LA A13,LBS )@@G@@NCNTR . RESTORE NO OF CHARS IN LINE (ALL WE NEED) @C@@@@. PRINT BUF BT )@@G@@THRU NO OF CHARS SPECIFIED IN A13 @C@@@@LINSTR* SX X11,LNBACK . SAVBU )@@G@@E RETURN ADDR @F@@@@ JZ A13,LINITL . IF LINE IS EMPTY, JUSBV )@@G@@T RESET POINTERS @G@@@@ LA A0,BFLAST . ELSE GET COL NO OF LABW )@@G@@ST NON-BLANK STASHED @D@@@@ TNZ A0 . WAS ENTIRE LINEBX )@@G@@ BLANK? @G@@@@ LA,U A0,1 . YES, BE SURE WE PRINT AT LEBY )@@G@@AST ONE OF THEM @G@@@@ TG A0,A13 . IS NO TO BE PRINTED PBZ )@@G@@AST LAST NON-BLANK? @G@@@@ LA A0,A13 . NO, WE'RE TRUNCCA )@@G@@ATING-- RESET FINAL COLUMN @G@@@@ LMJ X11,BFBAKN . RESET STACB )@@G@@SH POINTERS TO STORE AFTER GIVEN COL@D@@@@ LA,U A1,AEOL . GETCC )@@G@@ AN END OF LINE FLAG @C@@@@ LMJ X2,0,X2 . STASH IT IN THECD )@@G@@ LINE @D@@@@ LMJ X11,*RCWRIT . AND WRITE THE LINE OUT @G@@@@CE )@@G@@ LX X11,LNBACK . THEN RESTORE LINK TO CALLER AND FALL THRU CF )@@G@@@B@@@@. INITIALIZE POINTERS TO AN EMPTY LINE @E@@@@LINITL* LX,U X2,BFCG )@@G@@0010 . SET XFER ADDR TO STASH IN Q1 @F@@@@ LX X3,(+1,0) CH )@@G@@ . AND SET WORD POINTER TO 1ST WD IN BUF @D@@@@ LA,U A13,0 CI )@@G@@ . CLEAR NO OF CHARS IN LINE @G@@@@ SZ BFLAST . CLEAR COLCJ )@@G@@ NO OF LAST NON-BLANK AND FALL THRU @E@@@@ SZ BFOLET . ANDCK )@@G@@ CLEAR BUF OFLO ALLOW FLAG @E@@@@ SZ BFEOLP . TURN END CL )@@G@@OF LINE SEEN FLAG OFF @F@@@@. SAVE BUF POINTERS SO WE CAN SUSPEND STASCM )@@G@@HING AND LATER RESUME @D@@@@LINSUS* SX X2,LNCHAR . SAVE CHARACTER CN )@@G@@POINTER REG @B@@@@ SX X3,LNWORD . AND WORD REG @G@@@@ CO )@@G@@ SA A13,LNCNTR . SAVE NO OF CHARS CURRENTLY STORED IN LINE @E@@@@CP )@@G@@ J 0,X11 . AND (FINALLY) RETURN TO USER @E@@@@. RESTCQ )@@G@@ORE BUF POINTERS TO RESUME A PREVIOUSLY SUSPENDED LINE@D@@@@LINRES* LX CR )@@G@@ X2,LNCHAR . RESET CHARACTER POINTER @C@@@@ LX X3,LNWORD CS )@@G@@ . AND WORD POINTER @E@@@@ LA A13,LNCNTR . DITTO NO OF CHACT )@@G@@RS STASHED IN LINE@B@@@@ J 0,X11 . THEN RETURN @]@@@@CU )@@G@@ . @#@@@@LINMRK* . @ @@@@ SX X11,LNBACK . CV )@@G@@@ @@@@ LMJ X11,*RCWRMK . @ @@@@ LX X11,LNBACK . CW )@@G@@@ @@@@ J LINITL . @]@@@@ . @ @@@@ VARBLCX )@@G@@S . @B@@@@LNBACK EQUF $,,H1 . RETURN ADDR @E@@@@CY )@@G@@LNCNTR EQUF $,,H2 . COUNTER FOR NO CHARS IN LINE @#@@@@ CZ )@@G@@ RES 1 . @F@@@@LNCHAR RES 1 . STORAGE OF CHAR POINTER WHIDA )@@G@@LC SUSPENDED@C@@@@LNWORD RES 1 . DITTO WORD POINTER @A@@@@DB )@@G@@/ . FILL INPUT BUFFER @B@@@@ . JUST FOR NOW, KLDC )@@G@@UGE IT UP @ @@@@ INSTRS . @ @@@@BUFILL* J *RCTDD )@@G@@REA . @]@@@@ END ___RESTORE NO OF CHARS IN LINE (ALL WE NEEDE )@@G@@*[S@@@*SDFF*@G@@@@. ****************************************************DF )@@G@@***************** @G@@@@. STANDARD PROCS - INCLUDED BY AN @ADD PRCPKG/APDG )@@G@@L IN SOURCE DECKS * @G@@@@. DH )@@G@@ * @G@@@@ AXR$ . DI )@@G@@ * @G@@@@ CONFIG . DEFINE ASSDJ )@@G@@EMBLY PARAMETERS * @G@@@@ APSYMB. DEFINDK )@@G@@E APL SYMBOL SET * @G@@@@ FDSYMB. DL )@@G@@ DEFINE FIELDATA SYMBOLS * @G@@@@ WSDEFDM )@@G@@. DEFINE WORKSPACE * @G@@@@WORKSPDN )@@G@@ INFO 2 20. SET ASIDE THE SPACE * @G@@@@DO )@@G@@ RUNCTL. DEFINE RUN CTRL BLOK(S) * DP )@@G@@@G@@@@RUNCON INFO 2 22. AND SET ASIDE ITS SPACE DQ )@@G@@ * @G@@@@ CBLOCK . DEFINE CONTROL BLOCK TYPES DR )@@G@@ * @G@@@@. DS )@@G@@ * @G@@@@. END OF STANDARD PROC BLOCK DT )@@G@@ * @G@@@@. ****************************************DU )@@G@@***************************** @[@@@@. @[@@@@. @#@@@@ STATEDV )@@G@@V . @F@@@@ FUZDEF . DEFINE FUZZ PARAMS FOR USE BY )CLDW )@@G@@EAR @]@@@@ IODEF@[@@@@. @G@@@@. THIS CODE MAY BE USED BY EITDX )@@G@@HER SEGMENT, HENCE IT HAS ITS OWN ELEMENT @[@@@@. @G@@@@. COME HERE DY )@@G@@TO INITIALIZE ALL POINTERS IN LOWER WS, AND SET PARAMETERS @D@@@@. IN ADZ )@@G@@LL SUBROUTINES WHICH NEED TO BE INITIALIZED @[@@@@. @ @@@@ EA )@@G@@ INSTRS . @G@[@@CLOWER* LA,U A0,WSSIZE . SET ALLOCATABLEEB )@@G@@ FREE STORAGE TO DEFAULT VAL @E@[@@ LA,U A1,WSYSIZ . DEFAULT SEC )@@G@@IZE OF SYMBLO TABLE @F@[@@ SZ ERRITH . BE SURE ARITH OED )@@G@@FLOS ARE TAKEN CARE OF @F@[@@. ENTER HERE IF SYMBOLS AND/OR FREE SPACE EE )@@G@@ARE NOT DEFAULT VALUES @ @[@@CLOWEN* SX X11,CLLINK . @G@@[[. THISEF )@@G@@ ENTRY (FOR )PACK) LEAVES WSNAME, ORIGIN, SIZE, ETC., UNDISTURBED @G@@[[EG )@@G@@CLOWEP* LA A0,WSNSIZ . SET NOMINAL FREE SIZE TO WHAT IT IS NOW EH )@@G@@@G@@[[ LA A1,WSYMAX . SET SYMBOLS TO ITS PRESENT VALUE, EI )@@G@@TOO @F@@[[ . FALL THRU TO SET NOCHANGE FLEJ )@@G@@AG @G@@[[. THIS ENTRY (FOR )SYMBOLX) ASSUMES FREESPACE AND SYMBOLS ALEK )@@G@@READY IN REG@G@@[[CLOWES* SX X11,CLNCHG . RAISE NOCHG FLAG FOR )EL )@@G@@SYMBOLS AND )PACK @D@@[[ J CL0100 . AND GO DO THE DEEM )@@G@@ED @D@@[[. THIS ENTRY IS FOR NORMAL )CLEAR USING DEFAULT VALUES@G@@[[EN )@@G@@CLOWER* LA,U A0,4096 . SET INITIAL ALLOCATION TO THE MINIMUM EO )@@G@@@G@@[[ LA,U A1,WSYSIZ . DEFAULT SYMBOLS IS AN ASSEMBLY PAREP )@@G@@AM @D@@[[ SZ CLNCHG . CLEAR NOCHANGE FLAG @ @@[[EQ )@@G@@. EVERYBODY CONVERGES HERE -- @A@@[[CL0100 SX X11,CLLINK . ER )@@G@@@G @@@ LMJ X11,CLFSET . SET UP FREE LIST AND SYMBOL TABLE POINTES )@@G@@ERS @D@[@@ TLD A0,CLWSID . GET WSNAME OF 'CLEAR WS' @ @[@@ET )@@G@@ TSTO A0,WSID . @C]@@@ LMJ X11,SVCLEA . CLEAR THEEU )@@G@@ STATEVECTOR@^@@@@ ER ERR$ . @D@@@@ LMJ X11,SMCLEA EV )@@G@@ . CLEAR THE SYMBOL TABLE @E@@@@ LMJ X11,STCLEA . SET STACKEW )@@G@@ TO EMPTY CONDITION @F@@[[ TZ CLNCHG . SHOULD LOWEX )@@G@@ER WS PARAMS BE CHANGED?@D@@[[ J CL0200 . NO, BYPASSEY )@@G@@ THIS STUFF @D@@[[. SET WS TO DEFAULT VALUES (DIGITS,WIDTH,ORIGINS...) EZ )@@G@@@D@@[[ TLD A0,CLWSID . GET WS NAME OF 'CLEAR WS' @C@@[[ FA )@@G@@ TSTO A0,WSID . MAKE THIS CLEAR WS @D@@@@ SZ WSDBUG FB )@@G@@ . TURN OF F DEBUGGING FLAG @E@@@@ X$OFF . AND TURN FC )@@G@@THE DUMPS OFF, ALSO @ @@@@ LA,U A0,1 . @D@@@@ FD )@@G@@ SA A0,WSIXOR . SET INDEXING ORIGIN TO ONE @ @@@@ LA,U A0,10FE )@@G@@ . @F@@@@ SA A0,WSDGTS . SET NO OF SIGNIFICANT DIGITFF )@@G@@S TO TEN @F@@@@ LA A0,RCLSIZ . GET LINE SIZE FOR THIS TYPEFG )@@G@@ OF TERMINAL@C@@@@ SA A0,WSWDTH . MAKE IT THE WS WIDTH @F@@@@FH )@@G@@ LMJ A0,RANSED . INITIALIZE RANDOM NUMBER GENERATOR @B@@@@FI )@@G@@ DL A0,CLSFEI . GET QUAD-COLON @E@@@@ DS A0,WSSFEI FJ )@@G@@ . AND SET AS SIG FLAG, EVAL INPUT @ @@@@ DL A0,SPACES . FK )@@G@@@C@@@@ DS A0,WSPASW . CLEAR CURRENT KEY @G@@[[ LA FL )@@G@@ A0,RCDFWS . GET MAX EXPANSION ALLOWED FOR DEFAULT WS@B@@[[ FM )@@G@@ SA A0,WSMSIZ . POST IT @D@@[[ LA,U A2,FUZIND . GETFN )@@G@@ DEFAULT FUZZ INDEX @C@@[[ SETFUZ . PUT FUZZ PARM IFO )@@G@@NTO WS@E@[@@ LA,U A0,STSUSP . SUSPENDED STATE (KEYBOARD MODE) FP )@@G@@@E@@][CL0200 LA,U A0,STSUSP . SUSPENDED STATE (KEYBOARD MODE) @D[@@@FQ )@@G@@ SA A0,STVCUR . MAKE IT THE CURRENT STATE @E@@@@ LA,U FR )@@G@@ A0,PGVERS . VERSION OF THIS ASSEMBLY OF APL @B@@@@ SA A0,WSFS )@@G@@VERS . TO WORKSPACE @B@@@@ LA,U A0,PGLEVL . DITTO FOR LEVELFT )@@G@@@ @@@@ SA A0,WSLEVL . @D@[@@ LA,U A2,FUZIND . GETFU )@@G@@ DEFAULT FUZZ INDEX @C@[@@ SETFUZ . POST PARAMS IN FV )@@G@@THE WS@F]@@@ LMJ X11,LINITL . INITIALIZE CONSOLE I/O BUF TO EMPFW )@@G@@TY @ @@@@ L X11,CLLINK . @A@@@@ J 0,X11 FX )@@G@@ . ALL DONE @[@@@@. @B@@@@. SET POINTERS FOR FREELIST / SYMBOL TABLEFY )@@G@@@G@@@@. ENTER WITH A1=NO ENTRIES IN SYMBOL TBL, A0=NOMINAL WS SIZE (FZ )@@G@@WORDS)@F@[@@WSYREL EQU WSYTBL**0777777 . REL ADDR OF 1ST WD OF SYMBOL GA )@@G@@TABLE @[@@[[. @E@[@@CLFSET* SA A0,WSNSIZ . SAVE NOMINAL SIZE OFGB )@@G@@ THIS WS @E@@][CLFSET SA A0,WSNSIZ . SAVE NOMINAL SIZE OF THIS GC )@@G@@WS @E]@@@ SA A1,WSYMAX . AND NO OF SYMBOLS TO BE ALLOWED GD )@@G@@@F@[@@ LSC A0,A0 . COUNT NO LEADING 0'S IN THIS POWER OF 2GE )@@G@@@G@[@@ AN,U A1,36-13 . LESS NO LDG BITS IF 4096 =-(NO BITS>409GF )@@G@@6) @G@[@@ SN A1,WSISIZ . SAVE INDEX FOR THIS WS SIZE (0,1,GG )@@G@@2=4K,8K,16K)@G@@[[ SSL A0,12 . DIVIDE NOMINAL SIZE INGH )@@G@@ WORDS BY 4096 @D@@[[ SA A0,WSISIZ . AND POST SIZE INGI )@@G@@DEX @C@@[[. CLEAR OUT UNUSED WORDS IN LOWER WORKSPACE @A@@[[ GJ )@@G@@ LA,U A1,WSFLGD+1 . @A@@[[ LXI,U A1,1 . GK )@@G@@@A@@[[ LR,U R1,66-1 . @A@@[[ SZ 0,*A1 GL )@@G@@ . @A@@[[ JGD R1,$-1 . @A@@[[ LXM,GM )@@G@@U A1,WSFPNT+1 . @A@@[[ LR,U R1,16-1 . @A@@[[GN )@@G@@ SZ 0,*A1 . @A@@[[ JGD R1,$-1 GO )@@G@@. @F@@[[ SZ ERRITH . CLEAR ARITHMTEIC CINTINGENCYGP )@@G@@ FLAG @F#@@@ LA A1,WSYMAX . RECOVER MAX NO OF SLOTS FOR SYMBOGQ )@@G@@LS @E@@@@ MSI,U A1,3 . GET NO OF WDS FOR SYMBOL TABLE GR )@@G@@@E@[@@ AA,U A1,WSYREL . PLUS BASE ADDR OF SYMBOL TABLE @G@@[[GS )@@G@@ AA,U A1,WSYTBL-WSID . PLUS BASE ADDR OF SYMBOL TBL (RELATIVE) GT )@@G@@@E[@@@ SA A1,WSFREE . GIVES ADDR OF 1ST WD ON FREE LIST@C@@@@GU )@@G@@ ANU,U A1,3 . LESS NO WDS PER ENTRY@G@@@@ SA A2,WSGV )@@G@@YEND . GIVES ADDR OF LAST ENTRY IN SYMBOL TABLE @G@[@@ LA,U GW )@@G@@ A2,WSYREL+3*WSYSIZ . NOMINAL START LOC FOR FREE LIST @E@@[[ GX )@@G@@ LA,U A2,WSWORK-WSID . NOMINAL START OF FREE SPACE @E[@@@ ANA GY )@@G@@ A2,A1 . LESS ACTUAL = NO OF EXTRA WORDS @G@@@@ AA A2,WSGZ )@@G@@NSIZ . PLUS NOMINAL FREE SPACE SIZE=ACTUAL FREE SIZE@D@@@@ LSSL HA )@@G@@ A2,18 . ALIGN SIZE, CLEAR LINK @F@@@@ ABSADR A1 HB )@@G@@ . ACTUAL ADDR OF 1ST WD ON FREE LIST @F@@@@ SA A2,0,A1 HC )@@G@@ . PLUG SIZE INTO 1ST WD OF FREE LIST @D@@@@ SZ WSFFWA HD )@@G@@ . CLEAR OPEN TEXTBLOK POINTER@E@@@@ SZ WSYNUM . CLEAR NO HE )@@G@@OF TABULATED SYMBOLS @D@@[[ SZ WSGARB . CLEAR GARBHF )@@G@@AGE POINTER @A@@@@ J 0,X11 . RETURN @[@@@@. @#@@@@HG )@@G@@ CONSTS. @ @@@@CLWSID APLBCI 'CLEAR WS ' @A@@@@CLSFEI +AQUAHH )@@G@@D,ACOLON,AEOL,AEOL .@A@@@@ +AEOL,AEOL,AEOL,AEOL . @[@@@@HI )@@G@@. @ @@@@ VARBLS . @[@@@@. @ @[@@CLLINK + HJ )@@G@@ 0 . @E@@[[CLNCHG EQUF $,,H1 . NO CHANGE (OF LOHK )@@G@@WER WS) FLAG@D@@[[CLLINK EQUF $,,H2 . X11-SAVE ,RETURN ADDR HL )@@G@@@#@@[[ + 0 @#[@@@ END . ___SET* SA A0,WSNSIZ HM )@@G@@*[S@@@*SDFF*@G@@@@. ****************************************************HN )@@G@@***************** @G@@@@. STANDARD PROCS - INCLUDED BY AN @ADD PRCPKG/APHO )@@G@@L IN SOURCE DECKS * @G@@@@. HP )@@G@@ * @G@@@@ AXR$ . HQ )@@G@@ * @G@@@@ CONFIG . DEFINE ASSHR )@@G@@EMBLY PARAMETERS * @G@@@@ WSDEF. DEFINHS )@@G@@E WORKSPACE * @G@@@@WORKSP INFO 2 20.HT )@@G@@ SET ASIDE THE SPACE * @G@@@@ RUNCTHU )@@G@@L. DEFINE RUN CTRL BLOK(S) * @G@@@@RUNCONHV )@@G@@ INFO 2 22. AND SET ASIDE ITS SPACE * @G@@@@HW )@@G@@ CBLOCK . DEFINE CONTROL BLOCK TYPES * HX )@@G@@@G@@@@. HY )@@G@@ * @G@@@@. END OF STANDARD PROC BLOCK HZ )@@G@@ * @G@@@@. ****************************************************IA )@@G@@***************** @[@@@@. @[@@@@. @D@@@@/. COMPOUND OPERATORSIB )@@G@@ - INNER AND OUTER PRODUCT @[@@@@. @#@@@@ INSTRS . @ @@@@IC )@@G@@OUTPRD* SX X11,CPLINK . @D@@@@ SZ CPINNR . TURN OFF ID )@@G@@INNER PRODUCT FLAG@ @@@@ J DV0010 . @ @@@@. INNER PRODIE )@@G@@UCT ENTRY . @ @@@@INPROD* SX X11,CPLINK . @D@@@@ SX IF )@@G@@ X11,CPINNR . TURN ON INNER PROD FLAG @C@@@@ DS A0,CPIDRT IG )@@G@@ . SAVE RITEOP PARAMS @E@@@@ DL A0,A4 . MOVE LEFTOP PARIH )@@G@@AMS OVER FOR STORE@B@@@@. EXAMINE L AND R ARGS, CREATE DIMVECT @D@@@@II )@@G@@DV0010 DS A0,CPIDEN . SAVE OPCODE TABLE ADDR @G@@@@ SZ IJ )@@G@@ CPMODC . TURN OFF OUTER LOOP MODE CONVERSION FLAG @C@@@@ IK )@@G@@ SZ CGMODC . AND INNER ONE, TOO @C@@@@ LMJ X11,PIKTWO IL )@@G@@ . DECODE BOTH ARGS @ @@@@ J CP0999 . @C@@@@ IM )@@G@@ SA,S2 A3,CPDESC . SAVE MODE OF FETCHING@D@@@@ DL A0,X4 IN )@@G@@ . GET INITIAL FETCH PARAMS @G@@@@ ANA,U A0,1 . IN CASE IIO )@@G@@NNER, SET UP LEFTARG R-TO-L PICKUP @D@@@@ TNZ CPINNR . IS IP )@@G@@THIS INNER PRODUCT? @G@@@@ DL A0,X6 . NO OUTER, GET RIQ )@@G@@ITEARG REGS FOR RECYCLING @E@@@@ DS A0,CPRITF . TEMP SAVEIR )@@G@@ INITIAL PICKUP REGS @A@@@@. GET RANK, SHAPE, ETC OF RESULT @C@@@@IS )@@G@@DV0100 LA A0,LFTRNK . RANK OF LEFT ARG @D@@@@ TNZ CPINNIT )@@G@@R . IS THIS INNER PRODUCT? @E@@@@ J DV0105 . NO,IU )@@G@@ OUTER. NO ADJUSTMENTS NEEDED@D@@@@ TNZ LFTRNK . YES, IS LIV )@@G@@EFTARG A SCALAR? @F@@@@ AA,U A0,1 . YES, TREAT AS IF EXTEIW )@@G@@NDED TO VECTOR @D@@@@ TNZ RITRNK . SAME THING FOR RIGHT IX )@@G@@ARG @ @@@@ AA,U A0,1 . @G@@@@ ANA,U A0,2 IY )@@G@@ . ADJUST FOR THE DIMS WHICH WILL BE REDUCED OUT@D@@@@DV0105 AA A0,RIIZ )@@G@@TRNK . ADD IN RANK OF RIGHTARG @F@@@@ TLE,U A0,1 . WILJA )@@G@@L RESULT RANK BE AT LEAST VECTOR? @E@@@@ SSL A0,36 . NO-JB )@@G@@ FORCE TO PLUS ZERO FOR SCALAR@E@@@@ TG,U A0,MAXSUB+1 . IS RANK OJC )@@G@@F RESULT WITHIN RANGE? @C@@@@ J CP0910 . NO, LENGTH ERROJD )@@G@@R @C@@@@ SA,S3 A0,CPDESC . POST RANK OF RESULT @D@@@@ JE )@@G@@ SA,H2 A0,CPDIMD . SET DIMVECT LENGTH, TOO @F@@@@. NOW INITIALIZE DJF )@@G@@IMVECT OF RESULT=CATEN OF DIMS OF L AND R ARGS @D@@@@DV0110 LX,H2 X2,PUJG )@@G@@TARY+ZMOHFI . USE LEFTARG STASH RTNE@G@@@@ LX X3,(+1,RESDIM) JH )@@G@@. AND SAVE IN ERASABLE STORE IN RANDAC @D@@@@ LA,U A6,1 JI )@@G@@ . INITIALIZE LENGTH OF RESULT@F@@@@ SA A6,CPINRD . AND ALSO JJ )@@G@@SET INNER DIM REDUCE LENGTH @C@@@@ LX,U X11,2 . SET JK )@@G@@LOOP CT @D@@@@DV0120 JNGD X11,DV0150 . IF BOTH ARGS SCANNED, EXIT JL )@@G@@@D@@@@ LA A0,*PNTRNK,X11 . GET RANK OF THIS ARG @E@@@@ JM )@@G@@ JE,U A0,ZRANKS DV0120 . IF SCALAR, FORGET THE DIMS @F@@@@ JNE,UJN )@@G@@ A0,ZRANKV DV0130 . IF NOT VECTOR, GO MOVE DIMVECT @E@@@@ LA JO )@@G@@ A2,*PNTSIZ,X11 . FOR VECTOR, DIMENSION=SIZE @B@@@@ TNZ CPINNJP )@@G@@R . INNER PRODUCT? @D@@@@ J DV0126 . NO, GO SAVE LENJQ )@@G@@GTH (OUTER) @B@@@@ TNZ,U 0,X11 . YES- LEFTARG? @F@@@@ JR )@@G@@ J DV0123 . NO, RITEARG-GO CHECK FOR LENGTH MATCH @F@@@@ JS )@@G@@ SA A2,CPINRD . LEFTARG; SAVE LENGTH OF INNER DIMENSION@C@@@@ JT )@@G@@ J DV0120 . GO BACK FOR RITEARG @D@@@@DV0123 TNE A2,CPINRD JU )@@G@@ . DO INNER DIMENSIONS MATCH? @B@@@@ J DV0120 . YES, CONTJV )@@G@@INUE @C@@@@ TZ LFTRNK . IS LEFTARG A SCALAR? @B@@@@ JW )@@G@@ J CP0930 . NO, RANK ERROR @G@@@@ SA A2,CPINRD . YESJX )@@G@@, SAVE THIS VAL AS LENGTH OF INNER DIM @B@@@@ J DV0120 JY )@@G@@ . AND CONTINUE @E@@@@DV0126 MSI A6,A2 . FOLD THIS DIM INTO TOJZ )@@G@@TAL LENGTH @C@@@@ LMJ X2,0,X2 . SAVE LENGTH @C@@@@KA )@@G@@ J DV0120 . GO FOR OTHER ARG@E@@@@. OPERAND IS ARRAYKB )@@G@@-COPY ITS DIMVECT (USE RITEARG FETCHREGS) @C@@@@DV0130 LX X7,*PNTDMD,KC )@@G@@X11 . DIM DATA ADDR @B@@@@ LXI,U X7,1 . STEP=1 KD )@@G@@@E@@@@ LX,H2 X6,GRITBL+ZMOHFI . FETCH RTNE ADDR FOR HALFINTS@E@@@@KE )@@G@@ LA A15,*PNTRNK,X11 . SET NO OF COORDS (=RANK) @D@@@@ KF )@@G@@ TNZ CPINNR . IS THIS INNER PRODUCT? @D@@@@ J DV014KG )@@G@@0 . NO, OUTER. GO FOLD IN DIMS @C@@@@ TNZ,U 0,X11 . IS KH )@@G@@THIS LEFT ARG? @D@@@@ J DV0136 . NO, RIGHT. GO CHECK 1KI )@@G@@ST DIM@C@@@@. INNER PRODUCT LEFTARG-- MOVE ALL BUT LAST DIM @F@@@@ KJ )@@G@@ JGD A15,DV0134 . DECR COUNT TO COMPENSATE FOR LAST DIM @B@@@@DV0132KK )@@G@@ LMJ X6,0,X6 . PICK VALUE @C@@@@ MSI A6,A5 . FOLKL )@@G@@D INTO LENGTH @B@@@@ DL A1,A4 . MOVE FOR STOR @C@@@@KM )@@G@@ LMJ X2,0,X2 . STASH IN DIMVECT @E@@@@DV0134 JGD A15,DKN )@@G@@V0132 . GO BACK FOR NEXT DIM, IF ANY @C@@@@ LMJ X6,0,X6 KO )@@G@@ . GET RIGHTMOST VALUE @D@@@@ SA A5,CPINRD . SAVE LENGTH OF KP )@@G@@INNER DIM @C@@@@ J DV0120 . GO BACK FOR RITE ARG @D@@@@KQ )@@G@@. INNER PRODUCT RITEARG- CHECK FOR MATCH ON INNER DIM @A@@@@DV0136 JGD KR )@@G@@ A15,$+1 . COUNT DIM@C@@@@ LMJ X6,0,X6 . PICK UP LEFTMOSKS )@@G@@T DIM @F@@@@ TNE A5,CPINRD . IS IT EQUAL TO RITEMOST OF LEFTARKT )@@G@@G? @D@@@@ J DV0140 . YES, GO MOVE REMAINING DIMS@C@@@@KU )@@G@@ TZ LFTRNK . IS LEFTARG A SCALAR? @B@@@@ J CP093KV )@@G@@0 . NO, RANK ERROR @G@@@@ SA A5,CPINRD . YES, SAVE THIS KW )@@G@@VAL AS LENGTH OF INNER DIM @^@@@@. MOVE REMAINING DIMS @G@@@@DV0140KX )@@G@@ JNGD A15,DV0120 . IF NO MORE DIMS TO MOVE, GO GET NEXT ARG @B@@@@KY )@@G@@ LMJ X6,0,X6 . PICK UP DIMVAL @C@@@@ MSI A6,A5 KZ )@@G@@ . FOLD INTO LENGTH @A@@@@ DL A1,A4 . MOVE @A@@@@LA )@@G@@ LMJ X2,0,X2 . STASH @ @@@@ J DV0140 . LB )@@G@@@F@@@@. NOW THAT DIMVECT HAS BEEN CREATED, CLEAN UP TO STORE RESULT LC )@@G@@@D@@@@DV0150 TG,U A6,0400000 . IS LENGTH WITHIN RANGE? @C@@@@ LD )@@G@@ J CP0910 . NO, LENGTH ERROR @D@@@@ SA,H2 A6,CPDESC LE )@@G@@ . YES, PLUG INTO DESCRIPTOR @C@@@@ LA,U A0,RESDIM . GET ADDR LF )@@G@@OF DIM DATA @ @@@@ RELADR A0 . @E@@@@ SA A0,CPLG )@@G@@DIMD+1 . TO DATA POINTER OF DIM DESCR @C@@@@ LA,U A0,CPDIMD LH )@@G@@ . ADDR OF DIM DESCR @#@@@@ RELADR A0 .@E@@@@ SA,H1 A0,CPLI )@@G@@DESC+1 . PLUG INTO DUMMY DESCR OF RESULT @C@@@@ TZ,H2 CPDESC LJ )@@G@@ . WILL RESULT BE NULL? @D@@@@ J DV0160 . NO, GO GET SET LK )@@G@@TO DO THE OP@D@@@@ LA,U A6,CPDESC . YES, GET DUMMY DESCR ADDR LL )@@G@@@ @@@@ RELADR A6 . @B@@@@ LMJ X11,DUPE . COPLM )@@G@@Y THE NULL @ @@@@ J CP0999 . @ @@@@ PUSH A2 LN )@@G@@ . @B@@@@ J CP0050 . NORMAL EXIT @D@@@@DV0160LO )@@G@@ TZ CPINNR . IS THIS INNER PRODUCT? @B@@@@ J IN010LP )@@G@@0 . YES, GO DO IT @E@@@@ . NO, OUTER -- FALQ )@@G@@LL THRU TO OP0100 @^@@@@/. OUTER PRODUCT @C@@@@. PREPARE TO PERFOLR )@@G@@RM THE SPECIFIED DYADIC OP @E@@@@OP0100 DL A0,CPIDEN . GET IDENTLS )@@G@@ITY FLAG AND TABLE ADDR @F@@@@ AA,S2 A1,CPDESC . TBL ADDR+FETCH LT )@@G@@MODE=ENTRY FOR THIS OP @D@@@@ TP 0,A1 . IS OP LEGAL IN LU )@@G@@THIS MODE? @C@@@@ J CP0900 . NO, DOMAIN ERROR @E@@@@LV )@@G@@ LA,S1 A0,0,A1 . GET MODE TO BE USED FOR RESULT @C@@@@ LW )@@G@@ SA,S2 A0,CPDESC . INTO DUMMY DESCRIPTOR@C@@@@ LA,H2 A0,0,A1 LX )@@G@@ . GET ADDR OF CODE RTNE@E@@@@ SA A0,CPMAJR . TEMP SAVE POINTLY )@@G@@ER TO OP SUBRTNE @C@@@@ LA,S2 A1,CPDESC . GET MODE OF STORAGE LZ )@@G@@@C@@@@ LA,U A0,CPDESC . ADDR OF DUMMY DESCR @E@@@@ LMJ MA )@@G@@ X11,PUTANS . SET UP REGS TO RECIEVE RESULT @ @@@@ J CP099MB )@@G@@9 . @D@@@@ PUSH A6 . RESULT DESCRIPTOR TO STACK MC )@@G@@@B@@@@. NOW INITIALIZE COMPUTATIONAL LOOP AND GO@D@@@@OP0110 LX X11,CMD )@@G@@PMAJR . SET LINK TO OPCODE RTNE @C@@@@ LA A14,LFTSIZ . SETME )@@G@@ UP LOOP COUNTERS @E@@@@OP0120 JNGD A14,CP0050 . IF NO MORE LEFTARGS, MF )@@G@@END OF OP @D@@@@ LMJ X4,0,X4 . YES, PICK UP NEXT LEFTARG MG )@@G@@@C@@@@ DS A1,CPIDEN . TEMP STORE LEFT VALUE@E@@@@ LX MH )@@G@@ X6,CPRITF . SET UP TO STEP THRU RIGHT ARG @ @@@@ LX X7,CPMI )@@G@@RITF+1 . @ @@@@ LA A15,RITSIZ . @E@@@@OP0130 JNGD A15,OMJ )@@G@@P0120 . IF NO MORE RITEARG, STEP THE LEFT@C@@@@ LMJ X6,0,X6 MK )@@G@@ . ELSE GET NEXT RITEVAL@C@@@@ DL A1,CPIDEN . CURRENT LEFT VAML )@@G@@LUE @B@@@@ LMJ X11,0,X11 . PERFORM DYAD @C@@@@ J MM )@@G@@ CP0900 . OOPS, DOMAIN ERR @B@@@@ LMJ X2,0,X2 . STAMN )@@G@@SH RESULT @D@@@@ J OP0130 . GO BACK FOR NEXT RITEARG MO )@@G@@@^@@@@/. INNER PRODUCT @D@@@@IN0100 TNZ CPINRD . IS INNER MP )@@G@@DIMENSION NULL? @G@@@@ J RD0200 . YES, USE REDUCE TO FIMQ )@@G@@LL WITH LEFTOP IDENTITY @^@@@@. INITIALIZE INNER LOOP @G@@@@IN0110 LA,S2MR )@@G@@ A2,CPDESC . GET FETCHMODE OF OPERANDS (=MODE OF INNER OP)@G@@@@ MS )@@G@@ SA A2,CPINNR . TEMP SAVE TO DETERMINE FETCHRTNE FOR RITEARG @G@@@@MT )@@G@@ AU A2,CPIDRT+1 . MODE +TBL BASE=OPTBL ENTRY ADDR FOR MODE MU )@@G@@@E@@@@ TP 0,A3 . IS OP DEFINED FOR THIS MODE? @B@@@@MV )@@G@@ J CP0900 . NO, DOMAIN ERR @G@@@@ LA,H2 A4,0,A3 MW )@@G@@ . YES, GET ADDR OF SUBRTNE FOR THIS OPCODE @E@@@@ SA A4,CPMX )@@G@@MINR . MAKE IT INNER LOOP OP SUBRTNE @C@@@@ LA,U A0,CGMINR MY )@@G@@ . ADDR OF INNER LOOP @E@@@@ SA A0,CPGMAJ . MAKE IT THE OUTMZ )@@G@@ER LOOP FETCH RTNE@D@@@@ SZ CGMODC . TURN MODE CHG FLAG OFNA )@@G@@F @D@@@@ LA,S1 A2,0,A3 . OUTPUT MODE OF INNER OPCODE@F@@@@NB )@@G@@ JNE,U A2,ZMOINT IN0130 . IF NOT LARGE INTEGER, DON'T CHANGE@F@@@@NC )@@G@@IN0120 LA,U A2,ZMODFL . SET MODE OF INNER LOOP RESULT=DFLOAT @F@@@@ND )@@G@@ SA A2,CGMODC . TURN ON INNER LOOP MODE CHANGE FLAG @ @@@@NE )@@G@@. INITIALIZE OUTER LOOP PARAMS@G@@@@IN0130 AU A2,CPIDEN+1 . DATA MODENF )@@G@@+OUTER BASE=ADDR OF OUTER OPTABLE @D@@@@ TP 0,A3 IS OPNG )@@G@@ ALLOWED IN THIS MODE? @B@@@@ J CP0900 . NO, DOMAIN ERR NH )@@G@@@D@@@@ LA,S1 A1,0,A3 . GET OPR OUTMODE FROM TABLE @G@@@@ NI )@@G@@ JE A1,A2 IN0140 . IF OPR INMODE=OUTMODE, DON'T CHANGE @D@@@@NJ )@@G@@ JNE,U A2,ZMODFL IN0120 . FORCE DATA MODE DFLOAT@D@@@@ TE,U NK )@@G@@ A1,ZMODFL . IS OUTPUT OF OPCODE DFLOAT?@G@@@@ SA A2,CPMODC NL )@@G@@ . NO, FORCE IT BY TURNING ON OUTER LOOP MODECHG@F@@@@IN0140 SA,S2 A2,CPNM )@@G@@DESC . OUTER LOOP OUTMODE TO RESULT DESCRIPTOR@D@@@@ LA,H2 A3,0,NN )@@G@@A3 . GET OPCODE SUBRTNE ADDR @E@@@@ SA A3,CPMAJR . MAKNO )@@G@@E IT MAJOR (OUTER LOOP) OUCODE@ @@@@. ACQUIRE SPACE FOR RESULT @ @@@@NP )@@G@@IN0150 LA,U A0,CPDESC . @E@@@@ LA A1,A2 . GET RESULNQ )@@G@@T MODE FOR STORE SETUP @G@@@@ LMJ X11,PUTANS . ACQUIRE SPACE, NR )@@G@@SET REGS FOR RESULT STORAGE @ @@@@ J CP0999 . @C@@@@NS )@@G@@ PUSH A6 . RESULT DESCR TO STACK@F@@@@ ANX,U X2,1 NT )@@G@@ . SET UP FOR RIGHT TO LEFT STASH OF AN @C@@@@ SX X2,CPNU )@@G@@STAS . TEMP SAVE STASH REGS @ @@@@ SX X3,CPSTAS+1 . @B@@@@NV )@@G@@. NOW INITIALIZE FOR FETCHING OF OPERANDS @E@@@@IN0200 ANX,U X4,1 NW )@@G@@ . SET LEFTARG PICK FOR RITE TO LEFT@D@@@@ SX X4,CPLFTF . SAVNX )@@G@@E INITIAL LEFTPIK REGS @ @@@@ SX X5,CPLFTF+1 . @C@@@@ NY )@@G@@ TZ RITRNK . IS RITEARG A SCALAR?@E@@@@ J IN0205 NZ )@@G@@ . NO, GO SET UP RANDAC TO FETCH IT @F@@@@ LA,U A0,CG0200 . YESOA )@@G@@, SET INNER FETCH TO LINEAR PICKUP @C@@@@ J IN0250 . ANDOB )@@G@@ GO POST THE ADDR @D@@@@IN0205 LA A6,RITDSC . ADDR OF DESCR OF RITEOC )@@G@@ARG @C@@@@ PUSH A6 . STACKIT FOR RANDAC @F@@@@ OD )@@G@@ LA,U A2,2 . SET FLAG FOR SELECTION ON 1ST COORD @G@@@@ OE )@@G@@ LMJ X11,SUBSEL . PREPARE TO FETCH RANDOMLY, SELECT 1ST COORD @ @@@@OF )@@G@@ J CP0999 . @E@@@@. SET RANDOM SELECTOR FOR RITE TO LEOG )@@G@@FT (REVERSE ALL COORDS) @C@@@@IN0210 LA,U A2,SB0310 . ADDR OF BAKFETCOH )@@G@@H RTNE@E@@@@ LXI,U A2,0,A2 . PUT BAKFETCH RTNE ADDR IN H1, TOOOI )@@G@@@F@@@@ LA A1,SCRANK . NO OF COORDS OF RITEARG FROM RANDAC OJ )@@G@@@C@@@@IN0220 JNGD A1,IN0230 . COUNT NO OF COORDS @D@@@@ LA,H1OK )@@G@@ A0,ELEMCT,A1 . GET LENGTH OF THIS COORD @C@@@@ TNZ WSIXOR OL )@@G@@ . 1-ORIGIN INDEXING? @C@@@@ ANA,U A0,1 . NO ZERO; COMPENOM )@@G@@SATE @F@@@@ SA A0,CURVAL,A1 . MAKE LAST EL THE 1ST TO BE FETCON )@@G@@HED @F@@@@ SA A2,PARTPT,A1 . SET FETCHRTNE ADDR TO BACKWARDS OO )@@G@@PICKUP@D@@@@ J IN0220 . GO BACK FOR NEXT COORD @F@@@@OP )@@G@@IN0230 LA A2,SCTYPE+1 . DATA MODE OF RITEARG AS SEEN BY RANDAC @G@@@@OQ )@@G@@ LA A3,CPINNR . GET FETCHMODE OF INNER OPERANDS PER PIKTWO OR )@@G@@@C@@@@ TNE A2,A3 . ARE THEY THE SAME? @D@@@@ J OS )@@G@@ IN0240 . YES, NO MODECHANGES NEEDED @C@@@@ TNE,U A2,ZMOHFI OT )@@G@@ . NO, IS ARG HALFINT? @D@@@@ TE,U A3,ZMODFL . YES, AND RESULTOU )@@G@@ DOUBLE? @F@@@@ J CP0990 . IF NOT, ILLEGAL CONVERSION-OV )@@G@@-SYSERR @C@@@@ LA,U A2,ZMOINT . GET MODECHANGE FLAG @D@@@@OW )@@G@@IN0240 LA,H2 A0,RANGET,A2 . ADDR OF RITEARG FETCH RTNE@E@@@@ SA OX )@@G@@ A0,SGRGET . TO FETCH RTNE POINTER IN RANDAC @F@@@@ LA,U A0,SEOY )@@G@@LGET . FOR RITEARG FATCH, SET ADDR IN RANDAC @G@@@@IN0250 SA A0,CPOZ )@@G@@RITF . GET INITIAL ADDR FOR RITEARG FETCH ROUTINE @C@@@@ LX PA )@@G@@ X2,CPSTAS . RESTORE STASH REGS @ @@@@ LX X3,CPSTAS+1 . PB )@@G@@@B@@@@ J CP0010 . GO DO THE OP @A@@@@/. COMPOUND OPEPC )@@G@@RATORS -*REDUCE* @#@@@@ INSTRS . @ @@@@REDUCE* SX X11,CPLINK PD )@@G@@ . @D@@@@ SZ CPINNR . TURN INNER PRODUCT FLAG OFF@E@@@@PE )@@G@@ DS A0,CPIDEN . SAVE IDENTITY FLAG, TABLE ADDR @F@@@@. NOTEPF )@@G@@: A2=S3 OF OPCODE (COORD SEL FLG); PASSED THRU TO SUBSEL @G@@@@ PG )@@G@@ LMJ X11,SUBSEL . INITIALIZE RANDAC TO PICK ON SELECTED COORD @^@@@@PH )@@G@@ J CP0999 @D@@@@ LA A0,SCDESC . GET ADDR OF DESPI )@@G@@CRIPTOR @E@@@@ SA A0,RITDSC . POST IT FOR GARBAGE COLLECTPJ )@@G@@ION @ @@@@ ABSADR A0 . @F@@@@ LA,S3 A4,0,A0 PK )@@G@@ . GET RIGHTARG RANK FROM ITS DESCRIPTOR @G@@@@ JNZ A4,RD0020 PL )@@G@@ . IF NON-ZERO, REDUCTION SHOULD REALLY BE DONE @G@@@@RD0010 LA A6,SCPM )@@G@@DESC . BUT IF ALREADY A SCALAR GET ORIGINAL DESCR @D@@@@ J PN )@@G@@ RD0310 . AND GO TO DUPE ROUTINE @F@@@@. ARG IS NON-SCALAR - MAPO )@@G@@KE SHAPEVECTOR, COMPUTE REDUCED LENGTH @E@@@@RD0020 SA A1,RDCORD PP )@@G@@ . SAVE INDEX OF SELECTED COORDINATE@C@@@@ ANA,U A4,1 . DECPQ )@@G@@REMENT RANK OF ARG@E@@@@ SA,S3 A4,CPDESC . SAVE REDUCED RANK IN PR )@@G@@DUMMY DESCR @ @@@@. SET UP LOOP ON DIMS OF ARG @E@@@@RD0030 LMJ X11,PPS )@@G@@IKRID . PREPARE TO SCAN RITEARG DIMS @D@@@@ LR R1,A15 PT )@@G@@ . SET LOOP CT TO NO OF DIMS @G@@@@ ANA A15,RDCORD . SET TEST PU )@@G@@PARAM SO WE KNOW WHEN SELCORD IS HIT@E@@@@ ANA,U A15,1 . BE PV )@@G@@SURE TO COMPENSATE FOR JGD @G@@@@ LX,U X2,PUTARY+ZMOHFI . USE PW )@@G@@STANDARD STASH RTNES FOR RESULT @G@@@@ LX X3,(+1,RESDIM) PX )@@G@@. WHOSE DIMVECT IS BUILT IN RANDAC SCRATCH@F@@@@ LA,U A6,1 PY )@@G@@ . INITIALIZE RUNNING COUNT OF RESULT SIZE@D@@@@RD0040 JNGD R1,RD0060 PZ )@@G@@ . EXIT IF NO MORE COORDINATES@B@@@@ LMJ X6,0,X6 . FETCH NEXQA )@@G@@T DIM @D@@@@ JE A15,R1 RD0040 . IF SELECTED, SKIP IT @C@@@@QB )@@G@@ DL A1,A4 . ELSE MOVE TO STASHREG@E@@@@ LMJ X2,0,QC )@@G@@X2 . AND PUT INTO RESULT DIMENSION @D@@@@ MSI A6,A2 QD )@@G@@ . FOLD INTO TOTAL LENGTH @D@@@@ J RD0040 . AND GO LOQE )@@G@@OK AT NEXT DIM @D@@@@RD0060 SA,H2 A6,CPDESC . STASH LENGTH IN DUMMYQF )@@G@@ DESCR@C@@@@ LA A3,SCTYPE+1 . GET ORIGINAL ARG MODE@C@@@@ QG )@@G@@ SA,S2 A3,CPDESC . PLUG INTO DESCRIPTOR @D@@@@. IF RESULT IS ARRAY, SEQH )@@G@@T UP POINTERS TO ITS DIMVECTOR@C@@@@RD0070 LA,S3 A3,CPDESC . RANK FROMQI )@@G@@ DUMMY DESCR@F@@@@ JG,U A3,2 RD0090 . IF RANK .LT. 2, SCALAR OR VQJ )@@G@@ECTOR RESULT@F@@@@RD0080 SA,H2 A3,CPDIMD . RANK TO LENGTH FIELD OF DUMQK )@@G@@MY DIMVECT @D@@@@ LA,U A3,CPDIMD . ADDR OF DUMMY DIMV DESCR QL )@@G@@@ @@@@ RELADR A3 . @E@@@@ SA,H1 A3,CPDESC+1 . TO QM )@@G@@DIM POINTER IN DUMMY DESCR @C@@@@ LA,U A3,RESDIM . DATA AREAQN )@@G@@ OF DIMVECT @ @@@@ RELADR A3 . @F@@@@ SA,H2 A3,CPQO )@@G@@DIMD+1 . TO DATA POINTER IN DIMENSION DESCRIPTOR@[@@@@. @G@@@@. NOW QP )@@G@@THAT SHAPE OF RESULT IS KNOWN, DETERMINE HOW TO SET ITS VALUES @[@@@@QQ )@@G@@. @D@@@@RD0090 LA,H2 A3,CPDESC . RECOVER LENGTH OF RESULT @G@@@@QR )@@G@@ JZ A3,RD0300 . IF IT WILL BE NULL, COPY FROM DUMMY DESCR QS )@@G@@@E@@@@ LA A1,RDCORD . GET INDEX OF SELECTED COORDINATE @F@@@@QT )@@G@@ LA,H1 A2,ELEMCT,A1 . GET LENGTH OF SELECTED COORDINATE @G@@@@QU )@@G@@ JZ A2,RD0200 . IF SELECTED COORD NULL, GO FILL WITH IDENTITYQV )@@G@@@G@@@@ JE,U A2,1 RD0300 . IF ITS UNITY, GO COPY WITH NEW RANK INFQW )@@G@@O @[@@@@. @F@@@@. THE SPECIFIED DYADIC OPCODE IS TO BE DONE-- INQX )@@G@@ITIALIZE FOR IT @[@@@@. @F@@@@RD0100 LA,U A0,SELGET . ADDR OF FQY )@@G@@ETCH RTNE TO PICK ALONG COORD @E@@@@ SA A0,CPGMAJ . MAKE IT TQZ )@@G@@HE MAJOR FETCH RTNE @E@@@@ LA,U A0,SB0310 . BACKWARDS PICKURA )@@G@@P RTNE (IN RANDAC)@G@@@@ SA,H1 A0,PARTPT,A1 . TO FETCH RTNE POINTERB )@@G@@R FOR SELECTED COORD @F@@@@ SA,H2 A0,PARTPT,A1 . (BOTH INITIAL RC )@@G@@AND CURRENT FIELDS) @F@@@@ LA,H1 A0,ELEMCT,A1 . GET LENGTHRD )@@G@@ OF SELECTED COORDINATE @C@@@@ TNZ WSIXOR . 1-ORIGIN INDEXIRE )@@G@@NG? @D@@@@ ANA,U A0,1 . NO ZERO; COMPENSATE FOR IT @G@@@@RF )@@G@@ SA A0,CURVAL,A1 . MAKE LAST ELEMENT THE FIRST TO BE FETCHED RG )@@G@@@F@@@@RD0105 LA A2,SCTYPE+1 . GET DATA MODE AS PICKED UP BY RANDAC RH )@@G@@@F@@@@ JE,U A2,ZMOCHR CP0900 . CHARACTERS IN REDUCTION=DOMAIN ERRRI )@@G@@@F@@@@RD0107 SZ CPMODC . TURN OFF HALF TO DOUBLE CONVERSION FLAGRJ )@@G@@@E@@@@ AU A2,CPIDEN+1 . COMPUTE OPERATOR TBL ENTRY ADDR @D@@@@RK )@@G@@ TP 0,A3 . IS OP LEGAL IN THIS MODE? @C@@@@ J RL )@@G@@ CP0900 . NO, DOMAIN ERROR @E@@@@ LA,S1 A1,0,A3 . GETRM )@@G@@ OUTPUT MODE OF OPR FROM TABLE@G@@@@ JE A1,A2 RD0130 . IF OPR IRN )@@G@@NMODE=OUT MODE, NO CHANGES NEEDED @G@@@@ JNE,U A2,ZMOHFI RD0120 RO )@@G@@. IF DATA MODE NOT HALF, GO CHECK DBLE @G@@@@. DATA HALFINT, BUT OPR RP )@@G@@OUTPUT IS NOT HALFINT. CALC MUST BE IN DOUBLE @G@@@@RD0110 AA,XU A3,ZMRQ )@@G@@ODFL-ZMOHFI . COMPUTE OPTABLE ADDR FOR DOUBLE DATA @G@@@@ LA,U RR )@@G@@ A2,ZMOINT . ADJUST FETCHMODE INDEX TO FORCE CONVERSION @G@@@@ RS )@@G@@ LA,S1 A1,0,A3 . GET NEW OUTPUTMODE OF OPERATOR FROM OPTABLE @E@@@@RT )@@G@@RD0120 TE,U A1,ZMODFL . IS OUTPUT MODE OF OPR DOUBLE? @G@@@@ RU )@@G@@ SX X11,CPMODC . NO- SINCE INPUT IS, TURN ON CONVERT FLAG @G@@@@RV )@@G@@. AT THIS POINT, A1=OPR OUTPUT MODE, A2=FETCHMODE INDEX, A3=OPTBL ADDR RW )@@G@@@F@@@@RD0130 SA,S2 A1,CPDESC . OPR OUTPUT MODE TO RESULT DESCRIPTOR RX )@@G@@@G@@@@ LA,H2 A3,0,A3 . GET OPCODE SUBRTNE ADDR FROM TABLE IN IRY )@@G@@NTERP @D@@@@ SA A3,CPMAJR . POST MAJOR OPCODE ADDR @G@@@@RZ )@@G@@ LA,H2 A2,RANGET,A2 . FETCHRTNE ADDR (IN RANDAC) FOR THIS MODE SA )@@G@@@A@@@@ SA A2,SGRGET . POST IT @D@@@@ J RD0400 SB )@@G@@ . GO ACQUIRE SPACE FOR RESULT@[@@@@. @D@@@@. LENGTH OF COORD IS ZERSC )@@G@@O (RESULT WILL BE IDENTITY) @C@@@@RD0200 DL A0,CPIDEN . GET TABLESD )@@G@@ POINTERS @F@@@@ JNE,U A0,3 CP0900 . IF NO IDENTITY EXISTS, DOMASE )@@G@@IN ERROR @F@@@@ DL A0,0,A1 . GET VAL OF IDENT FROM OPTABSF )@@G@@LE IN INTERP@C@@@@ DS A0,CPIDEN . SAVE FOR LATER FETCH @C@@@@SG )@@G@@ LA,U A2,ZMOHFI . MODE FLAG FOR RESULT @C@@@@ TZ A0 SH )@@G@@ . IS IT REALLY HALFINT?@B@@@@ LA,U A2,ZMODFL . NO, RESETSI )@@G@@ MODE @E@@@@ SA,S2 A2,CPDESC . PUT RESULT MODE INTO DESCRIPTOR SJ )@@G@@@D@@@@ LA,U A0,CGIDEN . ADDR OF IDENTITY FETCH RTNE@D@@@@ SK )@@G@@ SA A0,CPGMAJ . TO PICKUP ADDRESS POINTUR @B@@@@ J RD040SL )@@G@@0 . GO DO THE OP @[@@@@. @G@@@@. LENGTH OF SELECTED COORDINATSM )@@G@@E IS 1--MAKE A DIRECT COPY OF THE DATUM @[@@@@. @C@@@@RD0300 LA SN )@@G@@ A3,SCDATA . RITEARG DATA ADDR @D@@@@ LA,U A0,CPDESC+1 . ANDSO )@@G@@ STORE LOCN IN DESCR @D@@@@ TZ,S3 CPDESC . WILL RESULT BE SP )@@G@@SCALAR? @F@@@@ J RD0303 . NO, GO STASH DATA ADDR IN HSQ )@@G@@2 OF WORD 2 @G@@@@ ANA,U A0,1 . YES-- ALTER STORE ADDR TO 1SR )@@G@@ST WD OF DESCR @A@@@@ LA,S2 A1,CPDESC . GET MODE @F@@@@ SS )@@G@@ JNE,U A1,ZMOHFI RD0303 . IF NOT HALFINT, GO STORE DATA ADDR@F@@@@ ST )@@G@@ LA,H1 A3,0,A3 . ELSE GET ACTUAL HALFINT VAL FROM ARG @D@@@@ SU )@@G@@ J RD0306 . AND PLUG INTO DUMMY DESCR @C@@@@RD0303 RELADR A3 SV )@@G@@ . REL ADDRESS OF DATA @D@@@@RD0306 SA,H2 A3,0,A0 . SET H2 OFSW )@@G@@ APPROPRIATE WORD @ @@@@ LA,U A6,CPDESC . @ @@@@ RELADSX )@@G@@R A6 . @E@@@@RD0310 LMJ X11,DUPE . REPRODUCE OLD DATA WISY )@@G@@TH NEW SHAPE@ @@@@ J CP0999 . @B@@@@ PUSH A2 SZ )@@G@@ . RESULT TO STACK@C@@@@ J CP0050 . GO CLEAN UP ANDTA )@@G@@ EXIT @[@@@@. @A@@@@. SET UP PUTANS TO STASH OUR RESULTS@[@@@@. TB )@@G@@@E@@@@RD0400 LA,S2 A1,CPDESC . GET RESULT MODE FROM DESCRIPTOR @B@@@@TC )@@G@@ LA,U A0,CPDESC . ABS DESCR ADDR @D@@@@ LMJ X11,PUTANS TD )@@G@@ . INITIALIZE TO STORE RESULT @ @@@@ J CP0999 . @E@@@@TE )@@G@@ PUSH A6 . PUT RESULT DESCRIPTOR INTO STACK @B@@@@ TF )@@G@@ J CP0010 . GO DO THE OP @D@@@@/. MAIN COMPUTE LOOP FOR RETG )@@G@@DUCE AND INNER PRODUCT @[@@@@. @B@@@@G PROC . PICK UP NEXT TH )@@G@@DATA VALUE @E@@@@GETNXT* NAME . ENTRY PARAMS ARE: ENDCOORD ENDARRATI )@@G@@Y @#@@@@ UNLI$T . @B@@@@ LMJ X4,*G(1,1) . TO PICKUPTJ )@@G@@ RTNE @^@@@@ J CP0999 @E@@@@ SX,H2 X4,G(1,1) . SAVTK )@@G@@E NEW LINK TO PICKUP ROUTINE @F@@@@ JE,U A0,1 G(2,1) . IF RETURNTL )@@G@@ CODE=1, END OF COORDINATE @C@@@@ JE,U A0,2 G(3,1) . 2 IS END TM )@@G@@OF ARRAY @B@@@@ JZ A0,G$N010 . ZERO FALLS THRU@A@[@@ TN )@@G@@ ERROR YSYSTM,CP0999 . @A@@[[ J 0 . SYSERR TO )@@G@@@][@@@G$N010 . @#@@@@ LI$T . @#@@@@ END . @[@@@@TP )@@G@@. @#@@@@O PROC . @#@@@@OPERAT* NAME . @#@@@@ UNLI$TQ )@@G@@T . @ @@@@ LMJ X11,*O(1,1) . @F@@@@ J CP0900 TR )@@G@@ . ERROR IN THE OP IS ALWAYS DOMAIN ERR @ @@@@ SX,H2 X11,O(1,1) TS )@@G@@ . @C@@@@ TZ ERRITH . ANY OVERFLOWS, ETC? @B@@@@ TT )@@G@@ J CP0900 . YES, DOMAIN ERR@ @@@@ LI$T . TU )@@G@@@ @@@@ END . @[@@@@. @#@@@@A PROC . TV )@@G@@@#@@@@ANSPUT* NAME . @E@@@@ LMJ X2,0,X2 . STASH RESULTS UTW )@@G@@SING PUTANS RTNES @ @@@@ END . @[@@@@. @#@@@@TX )@@G@@I PROC . @#@@@@INPCNV* NAME . @#@@@@ UNLI$T . @D@@@@TY )@@G@@ TNZ I(1,1) . IS MODE CHANGE FLAG ON? @C@@@@ J TZ )@@G@@ OUT . NO, DON'T CONVERT @B@@@@ DFLOAT A0,A1 . YESUA )@@G@@, CONVERT @ @@@@OUT . . @ @@@@ LI$T UB )@@G@@ . @ @@@@ END . @[@@@@. @G@@@@CP0010UC )@@G@@ GETNXT CPGMAJ CP0050 CP0990 . GET 1ST VAL AS MAJOR OPERAND @G@@@@UD )@@G@@ DS A1,CPOUTV . IN CASE ONLY 1, SAVE AS OPERATOR'S OUTPUT VALUE )@@G@@@G@@@@CP0020 DS A1,CPINPV . SAVE CURRENT VAL AS INPUT VAL TO OPERATUF )@@G@@OR @F@@@@ GETNXT CPGMAJ CP0030 CP0040 . GET LEFT VAL AS MAJOR OUG )@@G@@PERAND@G@@@@ DL A4,CPINPV . CURRENT RESULT (IN OPCODE INPUT MUH )@@G@@ODE)=RITEARG@D@@@@ OPERAT CPMAJR . PERFORM MAJOR OPCODE UI )@@G@@@E@@@@ DS A1,CPOUTV . STASH IN OUTPUT MODE OF OPERATOR @G@@@@UJ )@@G@@ INPCNV CPMODC . CONVERT FROM OPR OUTPUT MODE TI ITS IN MODE UK )@@G@@@E@@@@ J CP0020 . SAVE NEXT OPERATOR RITEARG INPUT @^@@@@UL )@@G@@. END OF COORDINATE @D@@@@CP0030 DL A1,CPOUTV . PICK UP PRESENTUM )@@G@@ RESULT @B@@@@ ANSPUT . PUT IT AWAY @D@@@@ UN )@@G@@ J CP0010 . GO START ON NEXT COORDINATE@#@@@@. END OF ARRAY UO )@@G@@@F@@@@CP0040 DL A1,CPOUTV . DETECTED AFTER FETCH OF 1 ELEMENT UP )@@G@@@ @@@@ ANSPUT . @G@@@@CP0050 LX X11,CPLINK . DETUQ )@@G@@ECTED WHEN STEPPING TO NEXT COORDINATE @ @@@@ J 1,X11 UR )@@G@@ . @F@@@@/. ROUTINES USED IN MAJOR COMPUTE LOOP TO FETCH NEXT VALUUS )@@G@@E @F@@@@. THE VARIABLE 'CPGMAJ' POINTS TO THE ROUTINE IN USEUT )@@G@@. @G@@@@. IF THIS IS NORMAL REDUCTION (I.E. THE OPERATOR WILUU )@@G@@L BE DONE), @G@@@@. THEN IT POINTS TO 'SELGET' IN RANDAC. IF THUV )@@G@@IS REDUCTION IS @G@@@@. ON A NULL, IT POINTS TO A FETCH OF THEUW )@@G@@ REDUCTION IDENTITY. @[@@@@. @G@@@@. THE MAJOR COMPUTE LOOP IUX )@@G@@S ALSO USED IN INNER PRODUCT. IN THAT @G@@@@. CASE, THE LEFTUY )@@G@@ HAND OPERATOR (E.G. ADDITION FOR MATRIX PROD) @G@@@@. IS DONE UZ )@@G@@IN THE MAJOR LOOP, AND 'GPMAJ' POINTS TO AN INNER @G@@@@. LOVA )@@G@@OP WHICH APPLIES THE RIGHT OPERATOR (E.G. MULTIPLICATION) @B@@@@. VB )@@G@@ TO SUCCESSIVE PAIRS OF OPERANDS.@[@@@@. @G@@@@CGIDEN LA,H2 A14,CVC )@@G@@PDESC . INITIALIZE RESULT COUNT TO LENGTH OF ANSWER @F@@@@ JNGD VD )@@G@@ A14,CG0020 . IF NO MORE TO GET, TAKE END ARRAY EXIT @D@@@@CG0010 DL VE )@@G@@ A1,CPIDEN . ELSE PICK UP IDENTITY VALUE@B@@@@ LA,U A0,0 VF )@@G@@ . SET RETURN CODE@B@@@@ LMJ X4,1,X4 . AND GET OUT @ @@@@VG )@@G@@ JNGD A14,CG0020 . @C@@@@ LA,U A0,1 . END OF COVH )@@G@@ORD EXIT @ @@@@ LMJ X4,1,X4 . @D@@@@ J CG001VI )@@G@@0 . GO BACK FOR NEXT DATUM @ @@@@CG0020 LA,U A0,2 . VJ )@@G@@@ @@@@ LMJ X4,1,X4 . @ @@@@ J CG0020 . VK )@@G@@@[@@@@. @G@@@@. INNER PRODUCT MINOR LOOP FETCH. THIS DOES THE RIGHTVL )@@G@@OP ON PAIRS OF @G@@@@. DATA AND PRESENTS THE RESULT TO THE MAJORVM )@@G@@ LOOP FOR REDUCTION @[@@@@. @C@@@@CGMINR LA,H2 A13,CPDESC . LENVN )@@G@@GTH OF RESULT @F@@@@ MSI A13,CPINRD . TIMES REDUCTION LENGTVO )@@G@@H IS NO OF FETCHES@E@@@@ DL A0,CPLFTF . ORIGINAL LEFTARG FETCVP )@@G@@HPOINTERS @E@@@@ DS A0,CPLFTC . MAKE THEM THE CURRENT POINTVQ )@@G@@ERS @B@@@@. REENTRY WHEN NORMALLY LOOPING IS HERE-- @A@@@@CG0100 SX VR )@@G@@ X4,CGLINK . SAVE EXIT@D@@@@ JNGD A13,CG0150 . IF NO MORE TO DVS )@@G@@O, QUIT @G@@@@ GETNXT CPRITF CG0110 CG0120 . USE SELGET TO PICVT )@@G@@K UP NEXT RITEARG @D@@@@ DL A4,A1 . PUT RITEARG IN OPERANVU )@@G@@D REG @E@@@@ LX X5,CPLFTC+1 . CURRENT LEFTARG FETCHPOINTERS VV )@@G@@@D@@@@ LMJ X4,*CPLFTC . GO GET LEFTARG TO A1,A2 @D@@@@ VW )@@G@@ SX X4,CPLFTC . STASH LEFTARG POINTERS @ @@@@ SX X5,CPVX )@@G@@LFTC+1 . @B@@@@ OPERAT CPMINR . DO MINOR OPCODE@G@@@@ VY )@@G@@ INPCNV CGMODC . CONVERT TO INPUT MODE OF OUTER LOOP OPCODE @C@@@@VZ )@@G@@ LA,U A0,0 . SET NORMAL RETURNCODE@ @@@@ J CG014WA )@@G@@0 . @G@@@@. END OF COORD (I.E. COLUMN) ON RITEARG-RESET LEFT TO WB )@@G@@RE-DO SAME ROW @D@@@@CG0110 DL A0,CPLFTF . BEGIN POINTERS FOR THWC )@@G@@IS ROW@E@@@@ DS A0,CPLFTC . MAKE THEM THE CURRENT POINTERS WD )@@G@@@D@@@@ J CG0130 . TAKE END OF COORD EXIT @G@@@@. END WE )@@G@@OF RIGHT ARRAY- RECYCLE IT FROM ORIGINAL STARTING ROW AND COL @D@@@@WF )@@G@@CG0120 DL A0,CPLFTC . GET CURRENT LEFTARG POINTRS@F@@@@ DS WG )@@G@@ A0,CPLFTF . MAKE THEM BEGIN POINTERS FOR THIS ROW @C@@@@CG0130 LA,U WH )@@G@@ A0,1 . END OF COORD FLAG @G@@@@ AA,U A13,1 . WE WI )@@G@@DIDN'T GET ANYTHING, SO RESTORE THE COUNT @C@@@@CG0140 LX X4,CGLINK WJ )@@G@@ . RECOVER RETURN ADDR @C@@@@ LMJ X4,1,X4 . RETURN TO OUTERWK )@@G@@LOOP @ @@@@ J CG0100 . @A@@@@. END OF ENTIRE SOURCE DWL )@@G@@ATA ARRAYS @C@@@@CG0150 LA,U A0,2 . END OF DATA FLAG @ @@@@WM )@@G@@ J CG0140 . @F@@@@. RITEARG PICKUP FOR SCALAR RITEARGSWN )@@G@@ (WHICH MUST BE EXTENDED) @G@@@@CG0200 LA A14,CPINRD . LENGTH OFWO )@@G@@ REDUCED COORD( TO SIMULATE VECTOR) @G@@@@CG0210 JNGD A14,CG0220 . IF WP )@@G@@END OF SIMULATED VECTOR, END ARRAY EXIT @C@@@@ LMJ X6,0,X6 WQ )@@G@@ . ELSE GET DATA VALUE @E@@@@ DL A1,A4 . MOVE TO EXPECTEWR )@@G@@D RESULT REGS @C@@@@ LA,U A0,0 . NORMAL EXIT FLAG WS )@@G@@@B@@@@ LMJ X4,1,X4 . NORMAL EXIT @B@@@@ J CG021WT )@@G@@0 . GO FOR NEXT EL @ @@@@CG0220 LA,U A0,2 . @C@@@@ WU )@@G@@ LMJ X4,1,X4 . RETURN TO CALLER @C@@@@ J CG0200 WV )@@G@@ . THEN RESTART ON COORD@[@@@@. @D@@@@CP0900 SZ ERRITH . POSWW )@@G@@T OVERFLOW SERVICED @E@@@@ ERROR YDOMAI,CP0999 . TELL USER WX )@@G@@WHAT HAPPENED @ @@@@CP0910 ERROR YLENGT,CP0999 . @ @@@@CP0930 ERRORWY )@@G@@ YRANK,CP0999 . @A@[@@CP0990 ERROR YSYSTM,CP0999 . @A@@[[CP0990WZ )@@G@@ EQU 0 . SYSERR @A[@@@CP0999 LX X11,CPLINK . XA )@@G@@@A@@@@ J 0,X11 . @#@@@@ VARBLS . @A@@@@XB )@@G@@CPLINK RES 1 . X11 AT ENTRY @^@@@@CGLINK RES 1 . @E@@@@XC )@@G@@CPMODC RES 1 . HALF TO DBLE MODE CONVERSION FLAG @C@@@@CGMODCXD )@@G@@ RES 1 . SAME THING FOR INNER LOOP @#@@@@CPSTAS RES 2 . @E@@@@XE )@@G@@CPMAJR RES 1 . POINTER TO SUBRTNE FOR MAJOR OPCODE @C@@@@CPMINRXF )@@G@@ RES 1 . DITTO FOR MINOR OPCODE @E@@@@CPOUTV RES 2 . TEXG )@@G@@MP STORAGE, OUTPUT VAL OF MAJOR OP @E@@@@CPINPV RES 2 . TEMP STOXH )@@G@@RAGE, INPUT VAL OF MAJOR OP @C@@@@CPGMAJ RES 1 . ADDR OF MAJOR XI )@@G@@FETCH RTNE @G@@@@CPRITF RES 3 . RITEARG PICK PARAMS (OUTER PRODUXJ )@@G@@CT),POINTER(INNER)@G@@@@CPLFTF EQU CPRITF+1 . X4,5: START OF LEFTARG RXK )@@G@@OW PICK (INNER PROD) @F@@@@CPLFTC RES 2 . X4,5: CURRENT LEFTARXL )@@G@@G PIKREGS (INNER PROD) @F@@@@CPIDEN RES 2 . TABLE POINTERS/ IDENXM )@@G@@TITY VALUE (REDUCTION) @F@@@@CPIDRT RES 2 . OPCODE PARAMS, RIGHTXN )@@G@@ OPERATOR (INNER PROD) @D@@@@CPINNR RES 1 . INNER/OUTER PROXO )@@G@@DUCT FLAG @G@@@@CPINRD RES 1 . LENGTH OF DIM BEING COMPRESXP )@@G@@SED (INNER DIM) @F@@@@RDCORD RES 1 . INDEX OF SELECTED COORDINAXQ )@@G@@TE (REDUCTION) @^@@@@ VARCON . @G@@@@CPDESC CBLOCK ZTPXR )@@G@@TMP,ZMOHFI,ZRANKS,0 0 . DUMMY DESCRIPTOR FOR RESULT @G@@@@CPDIMD CBLOCXS )@@G@@K ZTPDIM,ZMOHFI,ZRANKV,0 0 . DUMMY DESCR FOR DIMVECT, IF ANY@[@@@@. XT )@@G@@@^@@@@ END . ___T ANYTHING, SO RESTORE THE COUNT @C@@@@XU )@@G@@CG0140 LX X4,CGLINK . RECOVER RETURN ADDR *[S@@@*SDFF*@G@@@@. ****XV )@@G@@***************************************************************** @G@@@@XW )@@G@@. STANDARD PROCS - INCLUDED BY AN @ADD PRCPKG/APL IN SOURCE DECKS * XX )@@G@@@G@@@@. XY )@@G@@ * @^@@@@ AXR$ . @C@@@@ CONFIG . DEFINE ASSXZ )@@G@@EMBLY PARAMETERS @G@@@@ WSDEF. DEFINE WORKSPACE YA )@@G@@ * @G@@@@WORKSP INFO 2 20. SET ASIDE THE SPACYB )@@G@@E * @G@@@@ RUNCTL. DEFINE RUN CTRL BYC )@@G@@LOK(S) * @G@@@@RUNCON INFO 2 22. AND SEYD )@@G@@T ASIDE ITS SPACE * @G@@@@ CBLOCK YE )@@G@@ . DEFINE CONTROL BLOCK TYPES * @G@@@@. YF )@@G@@ * @G@@@@. END OF STAYG )@@G@@NDARD PROC BLOCK * @G@@@@. ****YH )@@G@@***************************************************************** @[@@@@YI )@@G@@. @[@@@@. @E@@@@ PSUDOP . DEFINE OPCODES OF APLYJ )@@G@@ MACHINE @[@@@@. @G@@@@/. CODE IS STORED IN THE LARGEST FREE BLOCYK )@@G@@K IN THE WS, IN FULL WORDS. @G@@@@. THE RIGHT HALF IS THE OPCODE, THEYL )@@G@@ LEFT IS THE SEQUENCE NO (IN THE @F@@@@. LEXICAL TEXT) OF THE ITEM WYM )@@G@@HICH GENERATED THIS WORD (FOR USER @F@@@@. DIAGNOSTICS). SINCE DATA SYN )@@G@@TORAGE IS ALLOCATED FROM THE LEFT @G@@@@. (LOW ADDRESSES) OF FREE BLOYO )@@G@@X, WE ATTEMPT TO MINIMIZE FRAGMENTATION @G@@@@. BY ALLOCATING CODE SPYP )@@G@@ACE FROM THE RIGHT. THUS CODE GENERATED BY @G@@@@. THE LEFT SIDE OYQ )@@G@@F A STATEMENT APPEARS ON THE RIGHT SIDE OF A CODE @F@@@@. BLOK, ANDYR )@@G@@ R-TO-L EXECUTION OF A STMNT IS L-TO-R SCANNING OF THE@]@@@@. C-STRING.YS )@@G@@@[@@@@. @#@@@@ INSTRS . @B@@@@. INITIALIZE-- GET BLOCK, SET YT )@@G@@REGS, ETC...@ @@@@CODSTO* SX X11,CSLINK . @E@@@@ UNLNKL YU )@@G@@ . FIND AND UNLINK LARGEST BLOCK @D@@@@ LA A0,WSFLWA YV )@@G@@ . RHGHT HAND WORD OF BLOCK @ @@@@ ABSADR A0 . @F@@@@YW )@@G@@ LX,U X7,0,A0 . MAKE IT 1ST WORD TO BE STORED INTO @D@@@@YX )@@G@@ AA,U A0,1 . BUMP FOR LATER SUBTRACTIONS@E@@@@ SA YY )@@G@@ A0,CSFLWA . AND SAVE ABS ADDR OF LAST WD + 1 @G@@@@ LXI,U X7,07YZ )@@G@@77776 . SET STEP MINUS 1 FOR LEFT TO RIGHT STORING @F@@@@ LA ZA )@@G@@ A0,WSFFWA . ADDR OF LEFTMOST WD IN POOLED BLOCK @ @@@@ ABSADZB )@@G@@R A0 . @C@@@@ SA A0,CSFFWA . SAVE FOR WSFULL TESTSZC )@@G@@@D@@@@ LX,U X6,CS0100 . SET POINTER TO STORE RTNE @ @@@@ ZD )@@G@@ LX X11,CSLINK . @B@@@@ J 1,X11 . NORMAL EXIT ZE )@@G@@@[@@@@. @G@@@@. AFTER INITIALIZATION, TEXT IN A0 IS STORED BY LMJ X6ZF )@@G@@,0,X6 TO HERE--- @[@@@@. @C@@@@CS0100 LA,U A1,0,X7 . ADDR OF TZG )@@G@@ARGET WORD @B@@@@ TLE A1,CSFFWA . WITHIN LIMITS? @C@@@@ ZH )@@G@@ J CS0110 . NO, TAKE WSFULL EXIT @B@@@@ SA A0,0,*X7 ZI )@@G@@ . YES, STASH DATA@B@@@@ LMJ X6,1,X6 . AND RETURN @ @@@@ZJ )@@G@@ J CS0100 . @ @@@@CS0110 ERROR YWSFUL . @ @@@@ZK )@@G@@ J 0,X6 . @[@@@@. @F@@@@. GENERATE HALFWORD ADDRZL )@@G@@-- USED BY COMPILER FOR HISTORICAL REASONS@[@@@@. @C@@@@CODHWA* LA,UZM )@@G@@ A1,0,X7 . ADDR OF NEXT WORD @A@@@@ TLE A1,CSFFWA . IN ZN )@@G@@RANGE?@B@@@@ J CH0100 . NO, WSFULL. @ @@@@ RELADZO )@@G@@R A1 . @A@@@@ J 1,X11 . AND QUIT @ @@@@CH0100ZP )@@G@@ ERROR YWSFUL . @ @@@@ J 0,X11 . @ @@@@. ABORZQ )@@G@@T STORAGE OF C-STRING @ @@@@CODABT* SX X11,CSLINK . @D@@@@ ZR )@@G@@ LA A1,WSDBUG . GET DEBUGGING CONTROL FLAG @G@@@@ JOP,U A1,4 ZS )@@G@@CC0005 . IF ERASING IS INHIBITED, JUST CLOSE THE BLOCK@C@@@@ LA ZT )@@G@@ A0,CSFLWA . ABSADR OF LAST WORD+1@G@@@@ ANA A0,CSFFWA . LESZU )@@G@@S ABSADR OF 1ST WD GIVES NO OF WDS TO FREE@C@@@@ LA A1,WSFFWA ZV )@@G@@ . RELADR OF 1ST WD @D@@@@ FREE . PUT BACK ONTO FZW )@@G@@REE LIST @C@@@@ J CC0010 . GO TAKE NORMAL EXIT @[@@@@ZX )@@G@@. @F@@@@. CLOSE OUT STORAGE OF C-STRING. LEAVES RELADR OF BLOK IN AZY )@@G@@0 @[@@@@. @ @@@@CODCLO* SX X11,CSLINK . @G@@@@CC0005 LA,U ZZ )@@G@@ A0,0,X7 . ADDR OF NEXT WORD (WHERE HEADER WILL GO) @G@@@@ AA )@@G@@ ANA A0,CSFFWA . LESS ABSADR OF 1ST WD=NO OF UNUSED WORDS @F@@@@AB )@@G@@ JG,U A0,2 CC0100 . WSFULL UNLESS AT LEAST 2 WORDS ARE LEFT@E@@@@AC )@@G@@ LA A1,WSFFWA . PICK UP RELADR OF START OF BLOCK @C@@@@ AD )@@G@@ FREE . RELEASE UNUSED SPACE @E@@@@ LA A0,CSFLWA AE )@@G@@ . ABSADR OF LAST WORD IN BLOK +1 @G@@@@ ANA,U A0,0,X7 . LESAF )@@G@@S ADDR OF 1ST WORD USED=NO OF WDS USED @F@@@@ AA A0,(+ZTPCODAG )@@G@@,0,0,0,0,0) . PLUG IN SKELETON HEADER @F@@@@ SA A0,0,X7 AH )@@G@@ . PUT HDR WD INTO LEFT MOST WORD OFBLOCK @D@@@@ LA,U A0,0,X7 AI )@@G@@ . GET ADDR OF BLOCK HDR WORD @ @@@@ RELADR A0 . @ @@@@AJ )@@G@@CC0010 LX X11,CSLINK . @C@@@@ SZ WSFFWA . CLEAR SPLAK )@@G@@ITBOLK FLAGS@ @@@@ SZ WSFLWA . @ @@@@ J 1,X11AL )@@G@@ . @ @@@@CC0100 ERROR YWSFUL . @ @@@@ LX,H2 X11,CAM )@@G@@SLINK . @ @@@@ J 0,X11 . @D@@@@. ERASE A BLOCK OFAN )@@G@@ COMPILED CODE (A0=RELADR OF BLOCK) @ @@@@CODERS* SX X11,CSLINK . AO )@@G@@@D@@@@ LA A1,WSDBUG . GET DEBUGGING CONTROL FLAG @E@@@@ AP )@@G@@ JOP,U A1,4 1,X11 . AND EXIT IF ERASING IS INHIBITED @E@@@@ LA AQ )@@G@@ A1,A0 . SET UP BLOCK RELADR FOR ERASE @ @@@@ ABSADR A0 AR )@@G@@ . @B@@@@ LA,S1 A2,0,A0 . GET BLOCKTYPE @D@@@@ AS )@@G@@ TE,U A2,ZTPCOD . IS IT REALLY A CODE BLOCK? @B@@@@ ER ERR$ AT )@@G@@ . NO, CRASH! @C@@@@ LA,H2 A0,0,A0 . YES, GET ITS LEAU )@@G@@NGTH @C@@@@ FREE . RELEASE THE SPACE @ @@@@ AV )@@G@@ LX,H2 X11,CSLINK . @B@@@@ J 1,X11 . NORMAL EXIT AW )@@G@@@[@@@@. @ @@@@ VARBLS . @ @@@@CSLINK RES 1 AX )@@G@@ . @ @@@@CSFFWA RES 1 . @ @@@@CSFLWA RES 1 AY )@@G@@ . @]@@@@ END .___@@@ J CH0100 . NO, WSFULAZ )@@G@@L. @ @@@@ RELADR A1 . @A@@@@ J 1,X11 BA )@@G@@ . AND QUIT @ @@@@CH0100 ERROR YWSFUL . *[S@@@*SDFF*@G@@@@. ****BB )@@G@@***************************************************************** @G@@@@BC )@@G@@. STANDARD PROCS - INCLUDED BY AN @ADD PRCPKG/APL IN SOURCE DECKS * BD )@@G@@@G@@@@. BE )@@G@@ * @^@@@@ AXR$ . @C@@@@ CONFIG . DEFINE ASSBF )@@G@@EMBLY PARAMETERS @G@@@@ APSYMB. DEFINE APL SYMBOL SET BG )@@G@@ * @G@@@@ WSDEF. DEFINE WORKSPACE BH )@@G@@ * @G@@@@WORKSP INFO 2 20. SET ASIDE THBI )@@G@@E SPACE * @G@@@@ RUNCTL. DEFINE RUN BJ )@@G@@CTRL BLOK(S) * @G@@@@RUNCON INFO 2 22. BK )@@G@@AND SET ASIDE ITS SPACE * @G@@@@ CBLOCK BL )@@G@@ . DEFINE CONTROL BLOCK TYPES * @G@@@@. BM )@@G@@ * @G@@@@. END BN )@@G@@OF STANDARD PROC BLOCK * @G@@@@BO )@@G@@. ********************************************************************* BP )@@G@@@[@@@@. @ @@@@. TO WHOM IT MAY CONCERN--- @[@@@@. @F@@@@. BQ )@@G@@LOCAL CODE CHANGES TO THIS ROUTINE SHOULD BE MADE WITH THE @G@@@@. REALBR )@@G@@IZATION THAT IT WILL SOON BE COMPLETELY REWRITTEN. THIS REWRITE @G@@@@BS )@@G@@. WILL IMPLEMENT 2 MAJOR DESIGN CHANGES-- (1) THE PROPERTIES OF EACH BT )@@G@@@G@@@@. APL OPERATOR WILL BE DETERMINED FROM A TABLE, RATHER THAN BY TESBU )@@G@@TING @G@@@@. THE BINARY VALUE OF THE OPERATOR, AND (2) THE POLISH STRINBV )@@G@@GS WILL @G@@@@. BECOME A SEMI-PERMANENT PART OF THE WORKSPACE-- I.E.BW )@@G@@ THE STORED CODE @G@@@@. FOR A GIVEN APL STATEMENT WILL BE EITHER IN LEBX )@@G@@XICAL FORM (AS NOW), @G@@@@. OR IN POLISH FORM, BUT ONLY ONE OF THESEBY )@@G@@ REPRESENTATIONS WILL EXIST @G@@@@. IN THE WORKSPACE AT ANY ONE TIME. BZ )@@G@@THIS CHANGE WILL MAKE IT UNNECESSARY@G@@@@. TO RE-COMPILE STATEMENTS WHICA )@@G@@CH ARE EXECUTED, FOR EXAMPLE, IN A LOOP. @G@@@@. WE ARE PRESENTLY DESICB )@@G@@GNING A MECHANISM TO ACCOUNT FOR THE FACT THAT @G@@@@. THE CREATION OF CC )@@G@@LOCAL VARIABLES MAY CAUSE THE PARSE OF SUCH STATEMENTS@G@@@@. TO CHANGE.CD )@@G@@ IN THE NEW IMPLEMENTATION, THE POLISH STRINGS WILL BE @G@@@@. PACKCE )@@G@@ED 2 TOKENS PER WORD, RATHER THAN ONE AND A LEXICAL POINTER AS @#@@@@CF )@@G@@. IT IS DONE NOW. @G@@@@. THIS CHANGE WILL OBVIOUSLY INCREASE SPEED CG )@@G@@AND REDUCE WORKSPACE @G@@@@. REQUIREMENTS. IN ADDITION, IT WILL BE TCH )@@G@@HE FIRST STEP IN AN EFFORT TO @F@@@@. PRODUCE AN APL SYSTEM WHICH WILL GCI )@@G@@ENERATE ACTUAL 1100 SERIES @G@@@@. COMPILED MACHINE INSTRUCTIONS, SUICJ )@@G@@TABLE FOR INPUT TO THE COLLECTOR. @[@@@@. @F@@[[. THE PROCS BELOW CK )@@G@@IMPLEMENT PHASE 1 OF THE ABOVE, I.E. TABULATION @[@@[[. @#@@[[P CL )@@G@@ PROC . @A@@[[TMONAD* NAME MONFUN . @A@@[[TDYAD* NAMECM )@@G@@ DYAFUN . @A@@[[TSELED* NAME DYASEL . @A@@[[CN )@@G@@TSELEM* NAME MONSEL . @A@@[[TREDUC* NAME REDFUN CO )@@G@@. @#@@[[ UNLI$T . @G@@[[ LA A12,OPCHAR,A0 . NOTECP )@@G@@: EVENTUALLY A12 WILL BE PRE-LOADED @A@@[[ TOP,U A12,P(0,0) CQ )@@G@@. @#@@[[ LI$T . @#@@[[ END . @[@@[[. @#@@[[CR )@@G@@P PROC . @A@@[[TNDYAD* NAME DYAFUN . @#@@[[ CS )@@G@@ UNLI$T . @G@@[[ LA A12,OPCHAR,A0 . NOTE: EVENTUALLY A12 WCT )@@G@@ILL BE PRE-LOADED @A@@[[ TEP,U A12,P(0,0) . @#@@[[ CU )@@G@@ LI$T . @#@@[[ END . @[@@[[. @G@@[[OPCHAR EQUF OPRCV )@@G@@PQ2-0200,,Q2 . PROPERTY TABLE IS IN EL TABLES/APL @C@@@@/. PROX TO CW )@@G@@MANIPULATE THE HALFWORD PSEUDOCODE @C@@@@ PSUDOP . DEFCX )@@G@@INE PSEUDOCODE @D@@@@ CBLOCK . DEFINE CONTROL BLOCK CY )@@G@@TYPES @[@@@@. @E@@@@S PROC . . STORE HALF WORD OF PSCZ )@@G@@EUDOCODE @#@@@@STOCOD* NAME . @ @@@@ UNLI$T . DA )@@G@@@E@@@@ LXI,U A0,0,A2 . PLUG IN CURRENT LEXICAL INDEX @ @@@@DB )@@G@@ LMJ X6,0,X6 . @ @@@@ J CO0930 . @#@@@@DC )@@G@@ LI$T . @]@@@@ END .@[@@@@. @E@@@@C PROC . GENDD )@@G@@ERATE HALFWORD ADDR FROM CURRENT X6 AND X7@#@@@@GETADR* NAME . @ @@@@DE )@@G@@ UNLI$T . @ @@@@ LMJ X11,CODHWA . @ @@@@DF )@@G@@ J CO0930 . @#@@@@ LI$T . @]@@@@ END .DG )@@G@@@C@@@@/. PROX TO DETERMINE WHAT WAS SCANNED, ETC. @[@@@@. @]@@@@DH )@@G@@N PROC.@#@@@@LXNEXT* NAME . @#@@@@ UNLI$T . @ @@@@ DI )@@G@@ LMJ X11,SYNGET . @D@@@@ +0,N(1,1) . OPERAND (LIT OR NAMEDDJ )@@G@@ VARIABLE) @B@@@@ +0,N(1,2) . PRIMITIVE OPERATOR @B@@@@ DK )@@G@@ +0,N(2,1) . MONADIC FUNCT @B@@@@ +0,N(2,2) . DYADL )@@G@@DIC FUNCT @#@@@@ LI$T . @]@@@@ END .@[@@@@. @#@@@@DM )@@G@@B PROC . @#@@@@BACKUP* NAME . @ @@@@ UNLI$T DN )@@G@@ . @E@@@@ EX LGBACK . MOVE LEXICAL SCANNER BACK 1 ITEM DO )@@G@@@ @@@@ GO RB$010 . @B@@@@RESET* NAME . RESET ARGS AFTEDP )@@G@@R LOOKAHEAD @ @@@@ UNLI$T . @#@@@@RB$010* NAME . DQ )@@G@@@ @@@@ LA A0,COPCOD . @ @@@@ LA A2,COLNUM . DR )@@G@@@#@@@@ LI$T . @#@@@@ END . @[@@@@. @F@@@@. PEEKDS )@@G@@ AHEAD AT NEXT LEXICAL ITEM, TRYING TO FIND AN OPERATOR @[@@@@. DT )@@G@@@#@@@@L PROC . @#@@@@LXPEEK* NAME . @#@@@@ UNLI$T . DU )@@G@@@^@@@@CFORM FORM 9,9,18 . @ @@@@ LMJ X11,LXP010 . @G@@@@DV )@@G@@ CFORM L(0,1),0,L(1,1) . COMPARISON CHAR (IF ANY) ,, BACKUP EXIT DW )@@G@@@G@@@@ LI$T . ***** CAUTION***** INDIRECT JUMP GOES THRU WORD ADX )@@G@@BOVE @]@@@@ END .@[@@@@. @#@@@@ INSTRS . @B@@@@LXP010DY )@@G@@ SA A0,COPCOD . TEMP SAVE OPCODE@D@@@@ SA A2,COLNUM . ANDDZ )@@G@@ CURRENT LEXICAL ITEM NO@C@@@@ LMJ X4,0,X4 . SCAN NEXT ELEMEEA )@@G@@NT @ @@@@ J CO0930 . @G@@@@ JNE,U A1,LEXOPR LEB )@@G@@XP020 . IF WE DON'T HAVE AN OPERATOR, BACK UP @G@@@@ TZ,Q1 0,X11EC )@@G@@ . ARE WE LOOKING FOR SOME OPR IN PARTICULAR? @C@@@@ TNE,QED )@@G@@1 A0,0,X11 . YES, IS THIS IT? @B@@@@ J 1,X11 . SUCEE )@@G@@ESS EXIT @ @@@@. NOT OPR, OR THE WRONG ONE @G@@@@LXP020 BACKUP EF )@@G@@ . STEP LEXICAL TEX T POINTERS BACK ONE ITEM @B@@@@ J EG )@@G@@ *0,X11 . FAILURE EXIT @[@@@@. @F@@@@ PROC . TEST WHEH )@@G@@ETHER AN OPR SELECTS ALONG A COORDINATE @B@@@@TSTSEL* NAME . THIS ENTREI )@@G@@Y FOR DYADS ONLY @ @@@@ UNLI$T . @F@[@@ JE,U EJ )@@G@@ A0,ARAVEL TS0010 . DYADIC CATENATE CAN SELECT A COORD@E@[@@ TSELEEK )@@G@@C . IS THIS OPR ALLOWED TO SELECT? @F@@[[ TSELED EL )@@G@@ . CAN THIS FUNC SELECT A COORDINATE?@B]@@@ J NOSKIEM )@@G@@P . NO, GET OUT @ @@@@ GO TS$010 . @F@@@@PEEKSLEN )@@G@@* NAME . ENTER HERE IF WE ALREADY KNOW THE OP CAN SELECT@ @@@@ EO )@@G@@ UNLI$T . @#@@@@TS$010* NAME . @F@@@@TS0010 LXPEEK,ALBREP )@@G@@AK NOSKIP . LOOK FOR A FOLLOWING LEFT BRACKET @D@@@@ RESET . WE EQ )@@G@@GOT ONE-- GET ORIGINAL ARGS BACK @G@@@@ AA,XU A0,PSUDOF(0,0,PSFER )@@G@@SEL) . TURN ON SELECTOR FLAG IN OPCODE @C@@@@ J NOSKIP+1 ES )@@G@@ . AND TAKE SKIP EXIT @]@@@@NOSKIP . @#@@@@ LI$T . @]@@@@ET )@@G@@ END .@G@@@@. TEST FOR INNER/OUTER PROD ANDEU )@@G@@ MODIFY OPCODE @#@@@@T PROC . @#@@@@MODINR* NAME . @ @@@@EV )@@G@@ UNLI$T . @C@@@@ SA A0,COPSEL . TEMP SAVEEW )@@G@@ INITIAL OPR@G@@@@ LXPEEK,ADECPT TI0030 . LOOK AFTER 1ST OP FOR EX )@@G@@A DECIMAL POINT @F@@@@ LA A0,COPSEL . WE GOT ONE-- RECOVER IEY )@@G@@NITIALIOPERATOR @D@@@@ JE,U A0,AOUTER TI0010 . IF OUTER PRODICTEZ )@@G@@, OK @D@@@@ TREDUC . ELSE BE SURE IT CAN REDUCE @C@@@@FA )@@G@@ J TI0040 . IF NOT, SYNTAX ERROR @E@@@@TI0010 LXPEEK TI00FB )@@G@@40 . LOOK FOR A DYAD AFTER THE D.P. @G@@@@TI0020 TREDUC FC )@@G@@ . MAKE SURE 2ND OP IS USEABLE IN REDUCTION @D@@@@ J TI004FD )@@G@@0 . OTHERWISE, SYNTAX ERROR @G@[@@ ANA,U A0,ADYAST . SHIFE )@@G@@FT ORIGIN TO BEGIN DYADS SO 7 BITS ARE OK @G@@][ ANA,U A0,ARBIAS FF )@@G@@ . SHIFT ORIGIN TO BEGIN DYADS SO 7 BITS ARE OK @D[@@@ DSL A0,6 FG )@@G@@ . TEMP SAVE, PACKED TO 6 BITS@G@@@@ JNZ A0,TI0050 . IF FH )@@G@@WON'T FIT IN 6, SOMEONE HAS FOULED SYMDEF @B@@@@ LA A0,COPSEL FI )@@G@@ . RECOVER LEFT OP@B@[@@ ANA,U A0,ADYAST . REDUCE IT ALSO @B@@][FJ )@@G@@ ANA,U A0,ARBIAS . REDUCE IT ALSO @F[@@@ TG,U A0,0100 FK )@@G@@ . AND BE SURE IT ALSO FITS IN 6 BITS @G@@@@ J TI0050 . EFL )@@G@@LSE INTERNAL CODES (ELEMENT SYMDEF) ARE WRONG @C@@@@ LDSL A0,6 FM )@@G@@ . RECOVER RIGHT OP @F@@@@ AA A0,(+PSUDOF(PSOUTR,0,0)FN )@@G@@-PSUDOF(PSOXQP,PSQDYA,0)) . @F@@@@ J OUT . TAKE SUCCFO )@@G@@ESS EXIT WITH MODIFIED OPCODE @G@@@@TI0030 JNE,U A0,AOUTER OUT . BE SFP )@@G@@URE INITIAL OPR WASN'T OUTERPROD @G@@@@TI0040 ERROR YSYNTA,CO0930 . IFQ )@@G@@F DECPT NOT FOL BY OP OR NOT OUTER, ERROR @G@[@@TI0050 ERROR YSYSTM,CO09FR )@@G@@30 . ERROR DUE TO SOME DUMMY CHANGING SYMDEF @A@@[[TI0050 EQU 0 FS )@@G@@ . SYSERR @[[@@@OUT . @#@@@@ LI$T . @]@@@@ END .FT )@@G@@@^@@@@/. COMPILATION PROX @[@@@@. @G@@@@D PROC . FU )@@G@@ ***** DEFER COMPILATION OF A TERM****@#@@@@DEFER* NAME . FV )@@G@@@#@@@@ UNLI$T . @E@@@@ TZ CODTRM . IS THERE ALREADFW )@@G@@Y A DEFERRED TERM?@B@@@@ J D(1,1) . YES, COMPILER BUG @E@@@@FX )@@G@@ SA A0,CODTRM . SAVE POINTER TO THIS OPERAND @F@@@@ FY )@@G@@ AA,U A0,PSUDOF(PSOLOD) . GENERATE THE OPCODE WE'LL USE @E@@@@ FZ )@@G@@ DSL A0,15 . SEPARATE OUT ITS PRIMARY OPCODE @E@@@@ JNE,UGA )@@G@@ A0,PSOLOD OUT . IF NOT OPERAND LOAD, FORGET IT @F@@@@ SSL A1,21GB )@@G@@ . BUT IF OPERAND LOAD, ALIGN DESCR ADDR @ @@@@ ABSADR A1 GC )@@G@@ . @D@@@@ LA,S1 A3,0,A1 . AND PICK UP THE BLOCK TYPE GD )@@G@@@F@@@@ JNE,U A3,ZTPNAM OUT . IF NOT A NAMED VARIABLE, FORGET IT GE )@@G@@@G@@@@ LA A0,CODTRM . BUT IF IT IS, GET THE OPERAND POINTER BGF )@@G@@ACK @E@@@@ AA,U A0,PSUDOF(PSOLDV)-PSUDOF(PSOLOD) . CHANGE IT...GG )@@G@@@G@@@@ SA A0,CODTRM . AND SAVE TO GENERATE LOAD WITH VALUE CHGH )@@G@@ECK @C@@@@OUT SA A2,CODLXN . SAVE LEXICAL ITEMNO @#@@@@ GI )@@G@@ LI$T . @]@@@@ END .@[@@@@. @G@@@@O PROC . GJ )@@G@@ ***** GEN (DEFERRED) OPERAND LOAD****@#@@@@OPLOAD* NAME . GK )@@G@@@ @@@@ UNLI$T . @A@@@@ LA A0,CODTRM . GETGL )@@G@@ TERM @D@@@@ LA A2,CODLXN . PICK UP LEXICAL ITEMNO @A@@@@GM )@@G@@ JZ A0,O(1,1) . NONE--A BUG@D@@@@ SZ CODTRM . CLEGN )@@G@@AR DEFERRED TERM FLAG @A@@@@ AA,U A0,PSUDOF(PSOLOD) . @#@@@@GO )@@G@@ STOCOD . @#@@@@ LI$T . @]@@@@ END .@[@@@@. GP )@@G@@@G@@@@D PROC . ***** EXECUTE PRIMITIVE DYAD *GQ )@@G@@**** @#@@@@DYAD* NAME . @ @@@@ UNLI$T . @B@@@@GR )@@G@@ AA,U A0,PSUDOF(PSOXQP,PSQDYA,0) . @#@@@@ STOCOD . @#@@@@GS )@@G@@ OPLOAD . @#@@@@ LI$T . @]@@@@ END. @G@@@@. GT )@@G@@ ***** EXECUTE PRIMITIVE MONAD **** @#@@@@GU )@@G@@M PROC . @#@@@@MONAD* NAME . @ @@@@ UNLI$T GV )@@G@@ . @B@@@@ AA,U A0,PSUDOF(PSOXQP,PSQMON,0) . @#@@@@ STOCOGW )@@G@@D . @#@@@@ LI$T . @]@@@@ END .@G@@@@N PROC . GX )@@G@@ ***** EXECUTE PRIMITIVE NILAD ***** @#@@@@NILAD* NAME GY )@@G@@. @ @@@@ UNLI$T . @B@@@@ADOP EQU PSUDOF(PSOXGZ )@@G@@QP,PSQNIL,0) . @ @@@@ DO N(1)=0 , AA,U A0,ADOP . @A@@@@ DO N(1)>0 ,HA )@@G@@ LA,U A0,ADOP+N(1,1) . @#@@@@ STOCOD . @#@@@@ LI$T . HB )@@G@@@]@@@@ END .@F@@@@/. PROX TO MAINTAIN THE CHAIN OF OPEN BRACKEHC )@@G@@TS AND PARENS @[@@@@. @C@@@@L PROC . CHAIN LEFTBRACKETS, PHD )@@G@@ARENS, ETC @#@@@@LPAREN* NAME 0 . @#@@@@LBRACK* NAME 1 . @#@@@@LBLISTHE )@@G@@* NAME 3 . @ @@@@ UNLI$T . @E@@@@ LMJ A3,LPHF )@@G@@ARBR . SUBROUTINE FOR PARENS AND BRACKETS@ @@@@ GO LL$010 HG )@@G@@ . @ @@@@LBRACE* NAME 2 . @ @@@@ UNLI$T HH )@@G@@ . @C@@@@ LMJ A3,LBRACR . SUBROUTINE FOR BRACES @#@@@@LL$010HI )@@G@@* NAME . @F@@@@ +0,L(0,0)*/16 . BITS WHICH INDICATE OP TO BHJ )@@G@@E CHAINED @#@@@@ LI$T . @ @@@@ END . HK )@@G@@@[@@@@. @A@@@@. SUBROUTINES USED BY ABOVE PROC-- @[@@@@. @#@@@@HL )@@G@@ INSTRS . @E@@@@LPARBR LA,U A0,PSUDOF(PSOXQP,PSQNIL)+PSNNOP . GHM )@@G@@ET NO-OP @G@@@@ STOCOD . LEAVE SPACE FOR DYAD WHICH WILL FOLLOHN )@@G@@W RITE PARENS @D@@@@LBRACR GETADR . FOR BRACES, NO EXTRA SPACE IS NHO )@@G@@EEDED @E@@@@ AA A1,0,A3 . PLUG IN BITS FOR THIS TYPE OF OP HP )@@G@@@E@@@@ LXI,U A1,0,A2 . GET CURRENT LEX SCANNER POSITION @F@@@@HQ )@@G@@ LA A0,COPREN . GET POINTER TO PREVIOUS OPEN PAREN @D@@@@HR )@@G@@ LA,H1 A2,COPREN . BE SURE TO GET ITS POSITION@E@@@@ SA HS )@@G@@ A1,COPREN . MAKE THE NEW THE MOST RECENT @D@@@@ STOCOD HT )@@G@@ . AND PUSH THE OLD ONE DOWN @A@@@@ J 1,A3 . RETHU )@@G@@URN @[@@@@. @[@@@@. @C@@@@. PROCS TO CLOSE RIGHT PARENS/BRACKEHV )@@G@@TS, ETC @[@@@@. @#@@@@R PROC . @#@@@@RCLOSE* NAME 1 . HW )@@G@@@ @@@@RCLNOP* NAME 2 . @#@@@@RBRACE* NAME 2 . @#@@@@RPLACEHX )@@G@@* NAME 3 . @ @@@@ UNLI$T . @ @@@@RD(1) EQU RP001HY )@@G@@0 . @ @@@@RD(2) EQU RP0020 . @ @@@@RD(3) EQU RP003HZ )@@G@@0 . @A@@@@ LMJ X11,RD(R(0,0)) . @A@@@@ CBLOCIA )@@G@@K 0,R(0,0)<3,0,R(1,1) .@#@@@@ LI$T . @#@@@@ END . IB )@@G@@@[@@@@. @D@@@@. SUBROUTINE INVOKED BY REFERENCES TO ABOVE PROC --- IC )@@G@@@[@@@@. @#@@@@ INSTRS . @E@@@@. ENTER HERE FOR ) OR ] WITH TID )@@G@@RAINING DYAD (IN A0) -- RCLOSE@C@@@@RP0010 LA A4,CPRTYP . GET DELIMIE )@@G@@ITER TYPE @G@@@@ AA,U A0,PSUDOF(PSOXQP,PSQXDY) .SET OPCODE TOIF )@@G@@ INDEXED DYAD @F@@@@ TNE,U A4,1 . IS THE DELIMITER REALIG )@@G@@LY A BRACKET? @G@@@@ TE,U A0,PSUDOF(PSOXQP,PSQXDY)+ASTORE . YIH )@@G@@ES, IF OP WAS STORE, OK @G@@@@ ANA,U A0,PSUDOF(0,PSQXDY-PSQDYA) . II )@@G@@ELSE CHG OPCODE TO NO INDEX @E@@@@ J RP0040 . GO SEE THIJ )@@G@@AT LEFT MATCHES RIGHT @G@@@@. ENTER HERE TO CLOSE WITH NOP OR CHECK BRIK )@@G@@ACE CLOSURE (RCLNOP/RBRACE) @F@@@@RP0020 LA,U A0,PSUDOF(PSOXQP,PSQNILIL )@@G@@)+PSNNOP . SET OPCODE TO NO-OP@F@@@@. ENTER HERE TO REPLACE A ( BY A [ AIM )@@G@@FTER SEEING (...)[ (RPLACE) @G@@@@RP0030 LA A4,CPRTYP . GET DELIMIN )@@G@@ITER TYPE FOR PAIR TO BE CLOSED @G@@@@. CHECK THAT WHAT WE'RE CLOSINIO )@@G@@G MATCHES TOP OF STACK (NOT (] OR [) ) @E@@@@RP0040 LA,H2 A1,COPREN IP )@@G@@ . POINTER TO TOP OF PAREN STACK @E@@@@ JZ A1,CO0910 . IF IQ )@@G@@NOTHING THERE, SYNTAX ERROR @F@@@@ SSC A1,16 . SPLIT TYPIR )@@G@@E BITS FROM ADDRESS FIELD @F@@@@ TE,U A4,0,A1 . DOES TOP IS )@@G@@OF STACK MATCH THIS THING? @C@@@@ J *0,X11 . NO, TAKE IT )@@G@@NOMATCH EXIT@G@@@@ TZ,S2 0,X11 . YES, ARE WE SUPPOSED TO CLOIU )@@G@@SE THE CHAIN ? @B@@@@ J RP0060 . YES, GO DO IT @E@@@@IV )@@G@@. THIS CALL IS TO REPLACE ( WITH [-- WE HAVE SCANNED (...)[ @C@@@@RP0050IW )@@G@@ LXM,U A1,1 . GET BRACKET FLAG @C@@@@ LSSC A1,16 IX )@@G@@ . REPACK POINTER WORD @F@@@@ LXI,U A1,0,A2 . CHANGE LEX INDEIY )@@G@@X TO POSITION OF BRACKET@D@@@@ SA A1,COPREN . REPLACE TOP OF IZ )@@G@@STACK MARKER@B@@@@ J 1,X11 . AND RETURN @D@@@@. THISJA )@@G@@ CALL REQUIRES US TO POP THE PAREN/BRACKET STACK@G@@@@RP0060 SSL A1,36JB )@@G@@-16 . LINE UP ADDR OF 2ND THING FROM CURRENT TOP @ @@@@ ABSADJC )@@G@@R A1 . @G@@@@ LA,H1 A5,COPREN . GET LEX POSITION OF TJD )@@G@@OP THING I.E.( OR [ @D@@@@ LA A3,0,A1 . GET 2ND FROM TOJE )@@G@@P OF STACK @F@@@@ SA A3,COPREN . MAKE IT THE TOP OF THE CURRJF )@@G@@ENT STACK @G@@@@ LA,U A3,PSUDOF(PSOXQP,PSQNIL)+PSNNOP . GET A NJG )@@G@@OP INSTRUCTION @E@@@@ LXI A3,A5 . AND PUT POSN OF LEFT JH )@@G@@MARK IN IT @E@@@@ JE,U A4,2 RP0080 . IF CLOSING A BRACE, GO STASJI )@@G@@H NOP @D@@@@ TNE,U A4,3 . IS THIS A LIST CREATE OPN? @G@@@@JJ )@@G@@ LXM,U A3,PSUDOF(PSOXQP,PSQMON)+ALLIST . YES, GENERATE THE OPCODE JK )@@G@@@H@@@@ JNE,U A4,1 RP0070 . IF NOT BRACKET, DON'T GENERATE INDESINGJL )@@G@@ OPCODE @G@@@@ TE,U A0,PSUDOF(PSOXQP,PSQXDY)+ASTORE . IS INDEJM )@@G@@XING ALREADY SET? @G@@@@ LXM,U A3,PSUDOF(PSOXQP,PSQNIL)+PSNXNO . NJN )@@G@@O, CHANGE NOP TO INDEX @E@@@@RP0070 LXI,U A0,0,A2 . POST LEX INDEX JO )@@G@@OF CLOSING DYAD @F@@@@ SA A0,1,A1 . SAVE DYADIC OP WHICH JP )@@G@@CAUSED CLOSURE @E@@@@RP0080 SA A3,0,A1 . SAVE INDEX OR NOP, ASJQ )@@G@@ APPROPRIATE@B@@@@ J 1,X11 . NORMAL EXIT @A@@@@/. COMJR )@@G@@PILE AN APL EXECUTABLE STMNT @E@@@@. ENTER WITH ADDRESS OF LEXICAL TEXTJS )@@G@@ FOR THIS STMNT IN A2 @[@@@@. @#@@@@ INSTRS. @ @@@@COMPILJT )@@G@@* SX X11,COLINK . @G@@@@ LMJ X11,LEXGET . INITIALIZE SCANJU )@@G@@ OF LEXICALLY STORED TEXT @ @@@@ J CO0999 . @E@@@@JV )@@G@@ LMJ X11,CODSTO . INITIALIZE CODE STORAGE RTNE @ @@@@ JW )@@G@@ J CO0999 . @C@@@@ LA,U A2,0 . CLEAR LEXICAL IJX )@@G@@TEM NO@E@@@@ NILAD PSNXTS . COMPILE 'GO TO NEXT STATEMENT' JY )@@G@@@[@@@@. @A@@@@. ***** STATE 1, BEGIN STMNT ***** @[@@@@. @]@@@@JZ )@@G@@STATE1. @D@@@@CP0100 SZ CODTRM . CLEAR DEFERRED TERM FLAG KA )@@G@@@C@@@@ SZ COPREN . NO PARENS ARE OPEN @E@@@@ LXNEXKB )@@G@@T CP0150,CP0110 CP0236,CP0190 . SCAN 1ST TERM @G@@@@. GOT PRIMITIVE OPKC )@@G@@R AFTER BEGIN-- ONLY END STMNT OR '(' ARE ALLOWED @C@@@@CP0110 TE,U KD )@@G@@ A0,AEOL . IS THIS END OF STMNT?@C@@@@ TNE,U A0,ALAMP . OR KE )@@G@@START OF COMMENTS?@D@@@@ J CO0300 . YES, GO CLOSE THE STAKF )@@G@@TEMENT@G@@@@ JNE,U A0,AGOTO CP0230 . IF NOT RIGHT ARROW, GO CHECK KG )@@G@@FOR MONAD @E@@@@ LXPEEK CP0236 . IF NOT FOL BY OPR, TREAT ASKH )@@G@@ MONAD@E@@@@CP0120 TE,U A0,AEOL . DOES END OF LINE FOLLOW ARROW? KI )@@G@@@D@@@@ TNE,U A0,ALAMP . NO, HOW ABOUT COMMENTS? @F@@@@ KJ )@@G@@ J CP0140 . IF EITHER, COMPILE STATEVECTOR CLEAR @E@@@@ KK )@@G@@ BACKUP . ELSE RESTORE ORIGINAL PICKUP @C@@@@ J KL )@@G@@ CP0236 . AND GO PROCESS MANAD @F@@@@CP0140 NILAD PSNESC . SOLKM )@@G@@ITARY RIGHT ARROW-- CLEAR STATEVECT @B@@@@ J CO0300 . ANDKN )@@G@@ GET OUT @C@@@@. 1ST TERM IS OPERAND, CHECK FOR POSSIBLE LABEL @G@@@@KO )@@G@@CP0150 LXPEEK,ACOLON CP0220 . IF NOT FOLLOWED BY COLON, NORMAL OP KP )@@G@@@E@@@@ J CP0100 . OTHERWISE A LABEL, IGNORE IT @[@@@@KQ )@@G@@. @G@@@@CP0190 ERROR YSYNTA,CO0930 . STMNTS CANNOT START WITH DYAKR )@@G@@DIC FUNCS- @[@@@@/. @C@@@@. ****** STATE 2 --- AFTER AN OPERATOR ***KS )@@G@@** @[@@@@. @]@@@@STATE2 . @C@@@@CP0200 LXNEXT CP0220,CP0230 CPKT )@@G@@0236,CP0295 . @[@@@@. @B@@@@. ***** STATE 2A- AFTER A SEMICOLON KU )@@G@@***** @[@@@@. @]@@@@STAT2A . @C@@@@CP0210 LXNEXT CP0220,CP0213 CPKV )@@G@@0236,CP0295 . @G@@@@CP0213 JNE,U A0,ASEMIC CP0215 . IF NOT SEMICOLONKW )@@G@@, GO CHECK RITE BRACKET @E@@@@ NILAD PSNELX . GENERATE ELIDEDKX )@@G@@ INDEX MARKSTACK @C@@@@ J STAT2A . CONTINUE THE MARCH KY )@@G@@@F@@@@CP0215 JNE,U A0,ARBRAK CP0230 . IF NOT RITE BRACKET, NORMAL MONAD KZ )@@G@@@E@@@@ NILAD PSNELX . YES, GENERATE SEMICOLON MARKSTACK@E@@@@LA )@@G@@ J CP0520 . AND GO PROCESS AFTER THE BRACKET @[@@@@. LB )@@G@@@B@@@@. BOTH OF THE ABOVE STATES CONVERGE HERE--@[@@@@. @^@@@@. PICKLC )@@G@@UP OF OPERAND @G@@@@CP0220 DEFER . DON'T GENERATE UNTIL LD )@@G@@WE KNOW WHAT FOLLOWS @ @@@@ J STATE3 . @G@@@@. GOT LE )@@G@@PRIMITIVE-- IN THIS CONTEXT IT MAY BE A REDUCER OR NORMAL MONAD @E@@@@LF )@@G@@CP0230 TREDUC . IS THIS AN OP WHICH CAN REDUCE? @E@@@@ LG )@@G@@ J CP0234 . NO, FOLLOW NORMAL PROCEDURES @G@@@@ LXPEELH )@@G@@K CP0234 . YES, LOOK AHEAD FOR REDUCE FLAGS (1ST/LAST) @G@@@@CP0231LI )@@G@@ JNE,U A0,ARDFIR CP0232 . IF NOT RED ON 1ST, GO TRY NORMAL REDUCE @F@@@@LJ )@@G@@ RESET . RED ON 1ST COORD, GET ORIGINAL PARAMS @G@@@@LK )@@G@@ AA,U A0,PSUDOF(0,PSQRED-PSQMON,PSFSLF) . ADD REDUCE FLAG BITSLL )@@G@@@D@@@@ J CP0236 . AND GO GENERATE MONADIC OP @G@@@@CP0232LM )@@G@@ JNE,U A0,AREDUC CP0233 . IF NOT NORMAL RED EITHER, BAKUP LOOKAHEA@F@@@@LN )@@G@@ RESET . NORMAL REDUCTION, GET ORIGINAL PARAMS @G@@@@LO )@@G@@ AA,U A0,PSUDOF(0,PSQRED-PSQMON,0) . ADD REDUCTION FLAGS TO OPLP )@@G@@@F@@@@ J CP0235 . AND GO LOOK FOR COORDINATE SELECTION LQ )@@G@@@F@@@@CP0233 BACKUP . RESET LEX SCANNER AND ORIGINAL PARAMS LR )@@G@@@B@@@@. END OF TESTS FOR POSSIBLE REDUCTION-- @C@@@@CP0234 TMONAD LS )@@G@@ . IS THIS OP A MONAD? @D@@@@ J CP0240 . NO, GO CHLT )@@G@@ECK FOR PAREN @G@[@@ TSELEC . YES, IS IT ALLOWED TOLU )@@G@@ SELECT ON A COORD? @G@@[[ TSELEM . YES, IS ITLV )@@G@@ ALLOWED TO SELECT A COORD? @F[@@@ J CP0236 . NO, GENERLW )@@G@@ATE NORMAL MONADIC EXECUTE @G@@@@CP0235 PEEKSL . PEEK TO SLX )@@G@@EE IF OP DOES IN FACT SELECT A COORD@F@@@@ J CP0236 . IF LY )@@G@@DOESN'T, GO GENERATE NORMAL MONAD @E@@@@ MONAD . IT LZ )@@G@@DOES, GENERATE MONADIC EXECUTE@G@@@@ LBRACE . AND CHAINMA )@@G@@ THE OPENING LEFT BRACE OF SELECTION@E@@@@ J STATE2 . THEMB )@@G@@N CONTINUE AFTER THIS OPR @E@@@@CP0236 MONAD . GENERATE MC )@@G@@NORMAL MONADIC EXECUTE @D@@@@ J STATE2 . CONTINUE AFTER MD )@@G@@OPERATOR @G@@@@CP0240 JNE,U A0,ALPAR CP0250 . IF NOT LEFT PAREN, TRYME )@@G@@ LEFT LIST MARKER @#@@@@ LPAREN . @ @@@@ J STATE2 MF )@@G@@ . @G@@@@CP0250 JNE,U A0,ALLIST CO0910 . IF NOT LEFT LIST MARKER, SYNMG )@@G@@TAX ERR @D@@@@ LBLIST . ADD MARKER TO PAREN CHAIN MH )@@G@@@ @@@@ J STATE2 . @[@@@@. @F@@@@CP0295 ERROR YSYNTMI )@@G@@A,CO0930 . DYADS MAY NOT FOLLOW OPERATORS @[@@@@/. @[@@@@. MJ )@@G@@@A@@@@. STATE 3 --- AFTER AN OPERAND *****@[@@@@. @]@@@@STATE3 . MK )@@G@@@C@@@@CP0300 LXNEXT CP0310,CP0320 CO0910,CP0327 . @#@@@@. PICKED UP ML )@@G@@A TERM@B@@@@CP0310 J CO0910 . SYNTAX ERROR @A@@@@. PICKED UP MM )@@G@@A PRIMITIVE OPERATOR ---@G@@@@CP0320 JNE,U A0,ASTORE CP0323 . IF OP IS NMN )@@G@@OT STORE, GO CHECK FOR DYAD @F@@@@ LA A0,CODTRM . IF STORE,MO )@@G@@ GET THE DEFERRED OPERAND @E@@@@ AA,U A0,PSUDOF(PSOLOD) . MAKMP )@@G@@E AN OPERATION OUT OF IT@D@@@@ DSL A0,15 . ISOLATE THE PRIMQ )@@G@@MARY OPCODE @G@@@@ JE,U A0,PSOFUN CO0910 . STORING INTO A FUMR )@@G@@NCT IS SYNTAX ERR @G@@@@ JNE,U A0,PSOLDV CP0322 . IF NOT LOAD AND MS )@@G@@VERIFY, GO GENERATE CODE@F@@@@ SSL A1,36-15 . IF LOAD WITH CHMT )@@G@@ECK, GET RID OF CHECK @E@@@@ SA A1,CODTRM . AND SAVE AS IF MU )@@G@@A NORMAL OPERAND @E@@@@CP0322 LA,U A0,ASTORE . REGENERATE THE ORIGINMV )@@G@@AL STORE OP @C@@@@ J CP0327 . AND GO GENERATE CODE @B@@@@MW )@@G@@CP0323 TDYAD . IS THIS A DYAD?@G@@@@ J CP0330 MX )@@G@@ . NO, GO LOOK FOR PARENS, SE7ICOLONS, ETC. @G@@@@ TSTSEL MY )@@G@@ . DOES THIS OPR SELECT ALONG A COORDINATE+ @D@@@@ J MZ )@@G@@ CP0325 . NO, GENERATE NORMAL EXECUTE@E@@@@ DYAD NA )@@G@@ . YES, GENERATE REDUCING OPCODE @C@@@@ LBRACE . CHANB )@@G@@IN THE LEFT BRACE @D@@@@ J STATE2 . CONTINUE AFTER AN OPENC )@@G@@RATOR @F@@@@CP0325 MODINR . IF PART OF INNER PRODUCT, MODIFY ND )@@G@@OPCODE@E@@@@CP0327 DYAD . THEN GENERATE DYADIC EXECUTE NE )@@G@@@D@@@@ J STATE2 . CONTINUE AFTER AN OPERATOR @E@@@@CP0330NF )@@G@@ JE,U A0,ACOLON CP0390 . IF COLON, LABEL ERROR @D@@@@CP0340 JE,U NG )@@G@@ A0,ALBRAK CP0345 . IS THIS LEFT BRACKET+ @C@@@@ SA A0,COPGOT NH )@@G@@ . SAVE THE OPERATOR @E@@@@ OPLOAD . NO, GENERATE LONI )@@G@@AD OF THIS OPERAND@D@@@@ J CO0200 . CHECK FOR PARENS, ETCNJ )@@G@@ . @C@@@@CP0345 LBRACK . CHAIN LEFT BRACKET @F@@@@ NK )@@G@@ OPLOAD . LOAD DESCRIPTOR OF INDEXED VARIABLE @E@@@@ NL )@@G@@ J STAT2A . CONTINUE AS IF AFTER A SEMICOLON @ @@@@CP0390 ERRORNM )@@G@@ YLABEL,CO0930 . @[@@@@/. @D@@@@. PROCESS RIGHT SIDE OF EXPR DELIMITNN )@@G@@ER (E.G. ] OR ; )@[@@@@. @]@@@@CO0200 . @D@@@@CP0500 LA A0,CONO )@@G@@PGOT . PICK UP THE CHAR WE SCANNED@F@@@@ JE,U A0,ASEMIC STAT2A NP )@@G@@. IF SEMICOLON, GO SCAN AFTER IT @G@@@@ JE,U A0,ARBRAK CP0510 NQ )@@G@@. IF RIGHT BRACKET, GO TEST FOR BRACE @C@@@@ TE,U A0,ARPAR NR )@@G@@ . IS IT RIGHT PAREN? @E@@@@ TNE,U A0,ARLIST . NO, HOW ABOUT RNS )@@G@@IGHT SIDE OF LIST?@C@@@@ J CP0530 . IF EITHER, GO PROCESSNT )@@G@@@F@@@@ TE,U A0,AEOL . IF NONE OF ABOVE, MUST BE END OF LINE NU )@@G@@@D@@@@ TNE,U A0,ALAMP . OR BEGINING OF COMMENTS @E@@@@ NV )@@G@@ J CO0300 . IF EITHER, GO CLOSE STATEMENT @C@@@@ J NW )@@G@@ CO0910 . ELSE SYNT@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@@@@@^@@@@@@@@@@@@@@@NZ )@@G@@@@@@@@@@Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@R@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OB )@@G@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@OC )@@G@@@@@@@H@@B@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@OD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@U@@@@@@@@@@@@@@G@@@OE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@I@@@@@@@@K@@@@@L@@@@@@@@@@@E@@@@@J@@[@@N@@@@@O@@@OF )@@G@@@@@@@S@@@@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@OG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@UOI )@@G@@CONFIG @[I@@@@@@+4^WSDEF @[J@@@@@@+5:ABSADR @[J@@@@@@+"AOJ )@@G@@RELADR @[J@@@@@@+"RWSDUMP @[J@@@@@@+"2BASCPY @[J@@@@@@+_)OK )@@G@@BASACT @[J@@@@@@+_)ABSCPY @[J@@@@@@<@#ABSACT @[J@@@@@@<@#OL )@@G@@RELCPY @[J@@M@@@<@@@@@@@@@@HWH@[\HWE/K@BGYC@@HTQ;@@@@<[@@HWH/,0BRNOY )@@G@@@@@@@@@@@HWH@@@HTQ@[1HWER/K__"O@KHWLO@K@@@C@@HWA[@[@@@/,0];E@@[HT-@[3HWEOZ )@@G@@@@KHTX'^@#PPRA0HTX$'0@@#8];BG?'^@#KA@[6HWE/K@BG\/K@BG'R@KHWMC/@@@]H@@@@@PA )@@G@@]@@HWHN8L@@[^^KBG6/,0BR?@@@BG6@@@HWH@[7HWE/K@BHDC/@@@]H@@@@@R@KHWM[@@HWHPB )@@G@@;@@@@<]@@HWNN8L@@[^^KBH D@@HWH[@@HWO/,0BRW@@@BH @@@HWN@@@HWO@[9HWER/K__"PC )@@G@@O@KHWMO@K@@@D@@HWA[@[@@@R@KHWM @[@@@R@KHWPN8L@@[^^KBHO/,0BRN@@@BHO@@@HTRPD )@@G@@@@@HTR@[/HWED@@HWA[@[@@@/,0];E@@[HT-@["HWE@@KHTY'^@#PPRA0HTY$'0@@#8];BH/K@BM'@]THWE/,0]'^@@[HT=@]VHWE'^@#PPPK )@@G@@C@@@@@;@@@@<[@@HT)[@@HWOC/@@@[H@@HTT*@@@@G/K@BI7/,0]'^@@[HT?@])HWE@@KHT)PL )@@G@@'^@#PPC@@@@@;@@@@<[@@HT)C@)HTO;@)@@@#@HWEC/@@@[H@@@@@]@@HT)C/@@@[H@@HTW*@@@@G/K@BKU/,0]'^PT )@@G@@@@[HU$@##HWE@@KHT)'^@#PPC@@HTQ;@@@@<[@@HT)C/@@@]H@@HTW*@@@@G/K@BK&/,0]'^PU )@@G@@@@[HU[@#DHWE@@KHT)'^@#PP/,0C-6@@@@@@@@@HWB@@@@@@@@@HWB@@@@@@@@@HU7@#GHWEPV )@@G@@/,0C-6@@@@@@@@@HWB@@@@@@@@@HWB@@@@@@@@@HU9@#HHWED@@HWH[@@HT)C/@@@[H@@HTXPW )@@G@@*@@@@G/K@BL[/,0]'^@@[HU$@#KHWE@@KHT)'^@#PPC@@HWH;@@@@<]@@HT)C/@@@]H@@HTXPX )@@G@@*@@@@G/K@BLH/,0]'^@@[HU;@#PHWE@@KHT)'^@#PP/,0C-6@@@@@@@@@HWB@@@@@@@@@HWBPY )@@G@@@@@@@@@@@HVF@#THWE/,0C-6@@@@@@@@@HWB@@@@@@@@@HWB@@@@@@@@@HVH@#UHWEC@@HTRPZ )@@G@@[@@HT)C/@@@[H@@HTY*@@@@G/K@BL*/,0]'^@@[HVN@#XHWE@@KHT)'^@#PPC@@HTS[@@HT)QA )@@G@@C/@@@]H@@HTY*@@@@G/K@BL3/,0]'^@@[HV&@#+HWE@@KHT)'^@#PP/,0C-6@@@@@@@@@HWBQB )@@G@@@@@@@@@@@HWB@@@@@@@@@HVJ@#>HWEC@@HTR[@@HT)/,0]'^@@[HV6@#$HWE@@KHT)'^@#PPQC )@@G@@/,0C-6@@@@@@@@@HWB@@@@@@@@@HWB@@@@@@@@@HVL@#%HWEC@@@@@[@@HT)C/@@@[H@@HTZQD )@@G@@*@@@@G/K@BMP/,0]'^@@[HVN@#!HWE@@KHT)'^@#PPC@@@@@[@@HT)C/@@@]H@@HTZ*@@@@GQE )@@G@@/K@BM)/,0]'^@@[HV&@#3HWE@@KHT)'^@#PP/,0C-6@@@@@@@@@HWB@@@@@@@@@HWB@@@@@@QF )@@G@@@@@HV4@#7HWEC@@@@@[@@HT)/,0]'^@@[HV6@#9HWE@@KHT)'^@#PP/,0C-6@@@@@@@@@HWBQG )@@G@@@@@@@@@@@HWB@@@@@@@@@HW#@#.HWEN@0BM9/K@BM'@#"HWER]0HWF9!)HWS9,@HWU9,)HWWQH )@@G@@R@KHWYN[@HWZ*4@XWC/K@XWC/K@#KSAA0HWF[^@HWC9()HWS9%@HWU9%)HWWA@KHWY^[@HWZQI )@@G@@/KH@@@C8@@@T/\KBN#C8FK@@[^@BE:[^@BJTC8FK@[[@@HWI[^@BFG[^@BJEC8FK@][^@BFOQJ )@@G@@[^@BKB[@@HWJC8FK@#[^@BJ8[@@HWK[^@BF"C8FK@^[^@BK\C8FK@ [^@BGM[@@HWL[^@BK$QK )@@G@@[^@BGUC8FK@A[^@BLQC8FK@B[@@HWM[^@BLIC8FK@C[^@BM#[@@HWPC8FK@D[@@HWQ[^@BL4QL )@@G@@C8FK@E[^@BM0[^@BI[C8FK@F[@@HWR[^@BM-[^@BIZC8FK@G[^@BJV[^@BE![^@BI%[^@BJXQM )@@G@@[^@BE$C8FK@H[^@BFC[^@BJI[^@BFI[^@BE_[^@BI7[^@BJGC8FK@I[^@BKF[^@BKD[^@BFUQN )@@G@@[^@BETC8FK@J[^@BJ'[^@BFZ[^@BJ/[^@BEWC8FK@K[^@BK3[^@BK1C8FK@L[^@BGJ[^@BK:QO )@@G@@[^@BKJ[^@BK([^@BG)[^@BEZC8FK@M[^@BLS[^@BLUC8FK@N[^@BLK[^@BG;[^@BG1[^@BLMQP )@@G@@[^@BI.[^@BHFC8FK@O[^@BMB[^@BE+[^@BM C8FK@P[^@BE>[^@BL6[^@BL8[^@BH%C8FK@QQQ )@@G@@[^@BI][^@BM2[^@BME[^@BM4[^@BI#[^@BM*C8FK@R[^@BM>[^@BI)[^@BIP[^@BM<[^@BI-QR )@@G@@[^@BMP/K@BESC8@@@[/\KBN#/K@BI&C/@__"G@@HW\C/)@]V"O)HW0C[@HW,G.@__"C_)@@[QS )@@G@@[@@@[^[@0HW1[[@HW2[#)HW-C@@HW-;@@@@"C@HW>]@[)@@G_)@@[8L@BQ0N@0BR /K@BRA@[(HW:RD )@@G@@R]0HW?9\)HW5R@KHW7N[@HW8*4@XW(/K@XW(/K@#KSAA0HW?[^@HW(9:)HW5A@KHW7^[@HW8RE )@@G@@/KH@@@C8@@@^/\KBRHC8FK@@[@@HW,C@VK@[[@KHW0C@VK@][@KHW\/K@BO;C8@@@^/\KBRHRF )@@G@@C8FK@@[@@HW,C@VK@[[@KHW0C@VK@][@KHW\/K@BPZC8@@@#/\KBRHC8FK@@[@@HW4C@VK@[RG )@@G@@[@KHW0/K@BQ[C8@@@#/\KBRHC8FK@@[@@HW4C@VK@[[@KHW0/K@BQ$/,0]3,@@@@@@@@@@@@RH )@@G@@@@@@@@@@@HW9@[^HX(/,0]3,@@@@@@@@@@@@@@@@@@@@@HW;@[ HX(/,0]3,@@@@@@@@@@@@RI )@@G@@@@@@@@@@@HW.@[AHX(/,0]3,@@@@@@@@@@@@@@@@@@@@@HW_@[BHX(/,0]3,@@@@@@@@@@@@RJ )@@G@@@@@@@@@@@HX[@[CHX(N@0BSN/K@BXC@[DHX(/,0]3,@@@@@@@@@@@@@@@@@@@@@HX#@[HHX(RK )@@G@@/,0]3,@@@@@@@@@@@@@@@@@@@@@HX @[IHX(/,0B<7@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RL )@@G@@@@@@@@@@@@@@@[JHX(/,0B<7@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[KHX(RM )@@G@@/,0]2-@@@@@@@@@@@@@@@@@@@@@HXB@[LHX(/,0]2-@@@@@@@@@@@@@@@@@@@@@HXD@[MHX(RN )@@G@@C/@@@[H@@@@@*@@@@G/K@BTQ/,0B<7@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RO )@@G@@@[PHX(/,0]2-@@@@@@@@@@@@@@@@@@@@@HXF@[QHX(/,0]%Q@@@@@@@@@@@@/K@BTQ@[RHX(RP )@@G@@/,0]HX(/,0]@]GHX(/,0][^@BW%[^@BS[[^@BU/[^@BTC[^@BT\[^@BV%[^@BSHSR )@@G@@[^@BSB[^@BS\[^@BSC[^@BWQ[^@BT0[^@BR6[^@BS][^@BU=[^@BV([^@BR//K@BR3C8@@@ESS )@@G@@/\KBXGC8FK@@[^@BS%[^@BS-[^@BT#C8FK@[[^@BU7[^@BU)[^@BT^[^@BT"C8FK@][^@BT:ST )@@G@@[^@BS+C8FK@#[^@BS:C8FK@^[^@BTT[^@BSPC8FK@ [^@BSV[^@BTYC8FK@A[^@BV@[^@BS!SU )@@G@@[^@BT>[^@BV[[^@BT4[^@BSQ[^@BU'[^@BS4[^@BTH[^@BTA[^@BU9[^@BU@[^@BU+[^@BU(SV )@@G@@[^@BS=[^@BUB[^@BS'[^@BUU[^@BT![^@BSWC8FK@B[^@BT5[^@BS,[^@BU[[^@BT,[^@BUVSW )@@G@@[^@BSX[^@BT&[^@BTB[^@BS;[^@BS>[^@BS5[^@BTI[^@BUC[^@BU<[^@BSR[^@BU%C8FK@CSX )@@G@@[^@BV)[^@BT9[^@BS_[^@BWG[^@BVW/K@BSOC8@@@C/\KBXGC8FK@@[^@BT%[^@BT.C8FK@[SY )@@G@@[^@BU7[^@BU)[^@BT^[^@BT"C8FK@][^@BT:[^@BS+C8FK@#[^@BT=[^@BUNC8FK@^[^@BV@SZ )@@G@@[^@BS![^@BT>[^@BV[[^@BT4[^@BSQ[^@BU'[^@BS4[^@BTH[^@BTA[^@BU9[^@BU@[^@BU+TA )@@G@@[^@BU([^@BS=[^@BUB[^@BS'[^@BUU[^@BT![^@BSWC8FK@ [^@BT5[^@BS,[^@BU[[^@BT,TB )@@G@@[^@BUV[^@BSX[^@BT&[^@BTB[^@BS;[^@BS>[^@BS5[^@BTI[^@BUC[^@BU<[^@BSR[^@BU%TC )@@G@@C8FK@A[^@BV)[^@BT9[^@BS_[^@BWG[^@BVW/K@BT[^@BV[TE )@@G@@[^@BT4[^@BSQ[^@BU'[^@BS4[^@BTH[^@BTA[^@BU9[^@BU@[^@BU+[^@BU([^@BS=[^@BUBTF )@@G@@[^@BS'[^@BUU[^@BT![^@BSWC8FK@^[^@BT5[^@BS,[^@BU[[^@BT,[^@BUV[^@BSX[^@BT&TG )@@G@@[^@BTB[^@BS;[^@BS>[^@BS5[^@BTI[^@BUC[^@BU<[^@BSR[^@BU%/K@BUSC8@@@^/\KBXGTH )@@G@@C8FK@@[^@BU6C8FK@[[^@BU7[^@BU)[^@BT^[^@BT"C8FK@][^@BV@[^@BS![^@BT>[^@BV[TI )@@G@@[^@BT4[^@BSQ[^@BU'[^@BS4[^@BTH[^@BTA[^@BU9[^@BU@[^@BU+[^@BU([^@BS=[^@BUBTJ )@@G@@[^@BS'[^@BUU[^@BT![^@BSW/K@BU5C8@@@I/\KBXGC8FK@@[^@BVH[^@BX#C8FK@[[^@BVNTK )@@G@@[^@BW.C8FK@][^@BV8C8FK@#[^@BV=C8FK@^[^@BW=C8FK@ [^@BWKC8FK@A[^@BV9[^@BV>TL )@@G@@C8FK@B[^@BWL[^@BW>C8FK@C[^@BVO[^@BV;[^@BVI[^@BW]C8FK@D[^@BV,[^@BV*[^@BV\TM )@@G@@[^@BV$[^@BVR[^@BV/[^@BW#C8FK@E[^@BVP[^@BW$[^@BW,[^@BVJC8FK@F[^@BWV[^@BWUTN )@@G@@[^@BWN[^@BVS[^@BWO[^@BW*[^@BW\C8FK@G[^@BV)[^@BT9[^@BS_[^@BWG[^@BVW/K@BVGTO )@@G@@C@FK@#;@@@@H S7C-H S7/K@@@@C9K@@$[ K@G0 @@ TBR#K TC/@KKGIFW )@@G@@C K T !9K@@^/K@@G6R;K@@@:9K@@@/K@KGI:9K@@]/K@@G=:9K@@#/K@@G%A#K TBRGK )@@G@@ @@@@H'^@@9FC@@ :Y'=@@@I/K@@6D'^@@C@/K@@I,[[G@@ER2H@@@RAW@@CO'K@@[R') 58GL )@@G@@+[@ :Z%[K :)/K@@J)O]K@@CAAW@@C/K@@I,(@@@@C/K@@J\C[K@@D!DW@@D/K@@K@C^W@@DGM )@@G@@G@K@@DC[H@@@[[E@@@O'K@@[O')@@[P'@@@[ @@@@K?[@@@C/K@@J+AAW@@CC[K :-[[K 57GN )@@G@@[[K[@7[[K 5!C[@ :+?[@@@E/K@@J/C[K :<[[U@@@O')@@[![@@@E/K@@J8R]@ 6&R]K 6$GO )@@G@@R]) 6*/K@KI%'^@@C@RAW@@C/K@@J+/K@@@@C@@ :VC8K@@P[@H 588#K@KAC@@ :='=@@@HGP )@@G@@'^@@KR/K@KK#/K@@@@C@@ :VC8K@@P[@H 588#K@KJC@@ 2AC[@ :=[[G@@@'=@@@+'^@@KRGQ )@@G@@/K@KKG/K@@@@C9K 58[ K 57[ K[@7[ K 5!C9K@@ [DK 57/K@KKRC8K@@[/K@@88/K@@NZGR )@@G@@/K@@NZ/K@@NZ/K@@NR/K@@M]/K@@K//K@@M2/K@@SZ/K@@T]/K@@TA/KH@R9/KH@R"/KH@S#GS )@@G@@/KH@SC/KH@SH/KH@SM/KH@SR/K@@RIRF@ 57RB0 57')G@:P8#@@K'O;0@@[R;@@@ AB0 57GT )@@G@@AF@ 57/KF@@@[[K :(%9K@@T/K@@LHC K !6*@@@@LH9K@@[[DK !"C9@@@@W9@@@A;[@@@MGU )@@G@@D[K@@LG9K@@ ; @@@MG @ 5![[@ 57 C@ !;'^@@!B'^@@!BC K !6C[@ :(:9@@@L/K@@L4GV )@@G@@ @@@@K?9K@@B/K@@LXH9K@@B/,0@K38^K@LQC9K@@ /,0@K3;@)@@A;=K@@AG9@@@A8^K@LTGW )@@G@@R#@@@KR#) !MC[@ :(;^W@@@:[@ ?]'^@@L?A]) :;RA) 5S[@%@@@R]) :;R7K !5:8K@@^GX )@@G@@/K@@NR/K@@LH/K@@@@C^K !6!8K@@A/K@@L?C8K@@=P#K@@G;@!@@@/K@@L?H9K@@[D8K@@[GY )@@G@@/,0@K3/CK@M@P;)@@MF@K@@I%/K__8/K@@M@RBK 5SD@)@@I;C)@@R'0@@ C9K@@@ @@ S7 @@ S8 @@ S9 @@ S'HP )@@G@@[[@ S"')F@:P')H :/8#K@PCR;K@@ O;@@@[8]0@PFR'0@@ O;0@@[H9@@@[*@@@@K/K@@P#HQ )@@G@@*@@@@L/K@@P- @@ T @@ TACH@ :5?9@@@R/K@@PWH9@@@Q8]0@PTR'0@@ O;0@@[H9@@@[HR )@@G@@*@@@@K/K@@PQC9K@@[CH@ :7CGK :7R;@ TA8#K@P#CGK :7ABK T R;@@@-*=@ :4A7@ T HS )@@G@@'^@@F:'^@@H[(?@ :4/K@@P8PJK :6CH@ :5?9@@@RC9@@@QH9@@@QG@K@@K'^@@FFRB@ 5SHT )@@G@@*4@ :490K@@H9*W@@@/K@KN4;GK@[C/K@@P1PFK !6/K@@P%/K@@@@/G@@Q^/@@KP'!8@@@CHU )@@G@@/K@@Q["C? !A/K@KP'"C) !NP;@@@C/K@@P//@@KP'!/@__8/K@@QE"G) !NO;@@@C/K@@Q^HV )@@G@@E@@@@G/S@@@@"G? !A/K@KP';G)@[C*4@ :4/K@@QM/K@@O*D@)@@I/K@@O*H9@@@C[ @ :5HW )@@G@@C9@@@C'^@@:4[[K :8CH@ :5!9@@@DC9@@@C/\)@?GR;)@@CP#)@@K/@)@Q-T[Y !Q[[K :9HX )@@G@@CH@ :5H9@@@C/H@@O /\)@?G/K@@O /K@@Q$ 4@ 5&R70 !5A30 5?R30 5SA\0 5?R;0@@@HY )@@G@@A70 5?RB0 5SAB0 5? @@@@H'^@@9FC@@@Q6'=@@@I/K@KQ$@[E :%/K@@@@ @@ :4 @@ :5HZ )@@G@@ @@ :6 @@ :7C[@ :>[[@ !3C9@@@@R;K@@@/K@@R^:8K@@]G9K@@['^@@:V8K0@RF/KH@SRIA )@@G@@[ K :6[ @ :5/K@KQ7[ @ :7/K@KQ7/,0@K3R;@@@#/KI@&K 4@ 5&A3) 5?R;)@@CA7) 5?IB )@@G@@R;)@@ A\) 5?RB)[@7AB) 5? @@@@H'^@@9FR3) 5?/KH@SR[ K :6R;)@@[A$) :4/K@@RZIC )@@G@@[ K :6[ @ :5R;K@@#/K@@R^R;)@@[A7) :4/K@@R^R;)@@[A$) :4/K@@R^R;)@@['^@@:VID )@@G@@/K@@R)R;)@@[A\) :4R;K@@]C9K@@@/K@@R^R;K@@[/K@@R[R;K@@^C9@@@@/K@@R[(4@ !5IE )@@G@@/K@@R^R;)@@@/K@@R[/K@@R^/K@@R5/K@@R5/K@@R^/K@@R5/K@@R^/K@@RZ/K@@RY/K@@R^IF )@@G@@/K@@RI/K@@R+/K@@RV/K@@RU/K@@R>/K@@RI/K@@R:/K@@R:/K@@RI/K@@RI/K@@RI/K@@R*IG )@@G@@/K@@RZ/K@@RY/K@@R^/K@@RI/K@@R0/K@@R[/K@@R[/K@@R2/K@@R[/K@@SW/K@@RB/K@@RAIH )@@G@@/K@KQ7/K@@RDR;)@@[A7) :4/K@KQ7A#) :(%8)@@'/K@@S2RFK !=RB0 !=')H@:P%8)@@'II )@@G@@/K@@S\8#K@S%O;0@@[R;K@@ ')H@:P%8)@@'/K@@T@R;)@@ ')H@:,R#) !"O;)@@[A#) !"IJ )@@G@@/,0@K3RFK !=RB0 !=')H@:,8#K@S'O;0@@[R;K@@ AB0 !=AFK !=R#) :(:8)@@'/K@@S+IK )@@G@@8^K@S2/K@@&C/,0@:G/K@@&C/,0@K38^K@T]/K@@&C'^@[@8RF0 !"P;0@[K/C0@T ]^0 !6IL )@@G@@]@0@[#'^@@Q7RB) !6P#)@[#OF) !"AF) !"'^@ 5XC1@ 5SH9@@@[[ @ !< 0@ 5S*?@ :4IM )@@G@@/K@@TT'^@@MS/K@@TA'^@@N4/K@@TA/K@@@@C[@ ?^[[@ 6IC@0 54C@@ 2AC1J 3LC5Z 3LIN )@@G@@;(K@@AG[@@@L!9@@[@/K@@T::9@@@=/K@@T':9@@@-/K@@T7/K@@U[:9@@_=/K@@T4:9@@_>IO )@@G@@/K@@T4%9@@_-/K@@U[C9K@VKN8K@[P/K@@T/C9K@VUN8K@] /K@@T/C9K@U_N8K@[P/K@@T/IP )@@G@@C9K@VEN8K@] [ K[@9[ K[@.^^K !.^^K 51/K@KTVC[@ ? [[@@?SC[G@@D/[@@UGC0W@@CIQ )@@G@@/@K@UN:8K@@^/K@@UN%8K@@#/K@@U\/K@@UT'^@@/9C@@ 2A^^W@@D^^W@@^N8K@#)^CW@@DIR )@@G@@/K@@U C9K@V+N8K@@^^0W@@C ^G@@GN8K@] /K@@T/C4W@@CC9@@@_[1G@@E:8K@@[/K@@U%IS )@@G@@'^@@/6C@@ 2A(@@@[[/K@@U%C8K@@[[4W@@C^^W@@D ^G@@CN8K@#)^CW@@D'^@@_+/K@@UNIT )@@G@@0@G@@#'=@@@A*4G@@#'^@@81/K@@U>0@G@@#'=@@@A'^@@9/(?G@@C'^@@9<*4G@@C'^@@9C^K@VK/K@@VAIX )@@G@@/K@@@@'^@@W'C@@ 2AC[@ ?C[[G@@@'=@@[=C^K@VU/K@@VA/K@@@@'^@@W2A]@ 6&A]K 6$IY )@@G@@A]) 6*C@@ 2A 4G@@E[@0@[[C0?@@E[??@@E[0/@@ER]@ ?ARAW@@GAAW@@EO'K@@[AAW@@GIZ )@@G@@C8)@@C[*?@@ER]?@@E'^@@V"8KK@V/C^K@V+R]@ 6&R]K 6$R]) 6*/K@@VAR]*>6J/K@@V5JA )@@G@@/K@@@@^@K ?#C^W@@C?CW@@D/K@@WK'^@@7XC8K@#)[CW@@D*4G@@C/K@@WJ'^@@/6*@@@[[JB )@@G@@/K@@WR0@G@@#'=@@@A*4G@@#'^@@81 ^G@@CC^W@@CK^W@@DA],@@@G8K@@[[^W@@CN@K ?#JC )@@G@@/K@KV"C8K@@[[4W@@C^^W@@D/K@@WJC@0 54C^J 3L(4G@@C/K@@W*0@G@@#'=@@@A*4G@@#JD )@@G@@'^@@81C G@@^'^@@_! 4G@@CC G@@D[ G@@^C[@ ?B[[@@?S/K@@?T/K@@@@N8)@@PC@) ?=JE )@@G@@C@0 ?>[@\)@@8K)@W\/K@KW:/K@@@@C^0 6ICCK 6I%8K@@ G80@@[P;0 6J[C0 6&/K@KW2JF )@@G@@/K@@@@C4K 6J:8K@@ /K@@X^:8K@@0/K@@XA:8K@@1/K@@XC:8K@@+/K@@XEC8)@@[/K@@XFJG )@@G@@C8)@@]/K@@XFC8)@@_/K@@XFC8)@@@[0) ?CC8K@@ [4K 6J/K@KW'/K@@ZX/K@@ZX/K@@<0JH )@@G@@/K@@ZR/K@@Y/K@@Z@/K@@>X/K@@>0/K@@>4/K@@@@RFK 6IRB0 6I!80 6>/K@KXTJI )@@G@@')H@:,8#K@X[[@ 6I C@ !;'^@@!BJK )@@G@@/K@@X*'^@@!BC[K ?-%9K@@L/K@@Y^C9K ?ZC^) 5SC@,@@@+8)@@[(@@@@JC9K ?)[ K 5SJL )@@G@@C9K@@]/K@@Y C9K@@B[[K ?YC K !6?[K ?Y/K@@YJH[K ?YR;)@@ '^@@XT8^K@YEC[K ?YJM )@@G@@H9K@@[C^) 5SC@,@@@C[@ ?-:[@ ?&/K@@YW/K@@YQ'^@@XT;@)@@Y8^K@YPR7) !5:8)@@^JN )@@G@@/K@@ZR/K@@X7C@K@@LT8K@@A;@!@@@/K@@YQR7K !5:8K@@^/K@@ZR'^@@!BC^K 5SC@X@@@JO )@@G@@/CK@Y*D@K@@H'^@@Y5[ @ ?PH @ !6/[@@Y,D[@@@K/H@@Y3C^) 5S0@I@@@/[@@Y3'^@@=QJP )@@G@@/K@@Y)'^@@>Q/K@@Y)/K@@@@C[@ ?L[[@ !3C9@@@@;GK@@=W8K@@E/,0@:?/^K@Y9/K@KY5JQ )@@G@@AB)@Y5/K@@Y9'^@@!BC K !6?9K@@H/K@@ZDH9K@@HR;)@@ '^@@XT8^K@Z C9K@@GR;K@@#JR )@@G@@T@K@@LC^) 5SC[I@@@;[H@@@H9K@@[R#)@@K;[@@@-;G)@@=R;)@@A;^)@[ '^@@XT8^K@ZJJS )@@G@@/K@@Z@'^@@!BR3K 5S:8K@@[/K@@Y=:8K@@ /K@@X;DPK !"] K ?P/HK@Z-C9K@@@HDK !6JT )@@G@@H9K@@^ @@@@IR7K !5:8K@@[R;)@@[%8K@@^/K@@Z?R3K 5S:8K@@#R;)@@[H[K@@IG K !6JU )@@G@@/HK@))C^K 5S0@H@@@/[K@))[DK ?TCDK !6C^K !";*K@@S;KK@@SG[K@@H/HK@))/[K@))JV )@@G@@[ K ?T/K@@Z_R7K !5:8K@@^/K@@ZR'^@@)7CD@ ?T'^@@=J(G@ ?Q/K@@)%CG) ?RC^K !"JW )@@G@@;*K@@S;KK@@SP#)@@H#^) ?R/G)@)*R;)@@+'^@@XTCGK ?R'^@@Y5!9@@@]/K@@)NR;)@@@JX )@@G@@/,0@:?R7@ !5:8@@@[/K@@)V%8@@@^/K@@)YR3@ 5S%8@@@#/K@@)YR;)@@@?9@@@#/,0@:?JY )@@G@@'^@@=4/K@@Z/R7K !5%8K@@^'^@@!B'^@@>QR7K !5%8K@@^/K@@)+/K@@ZRR;)@@-/K@@)GJZ )@@G@@R;)@@ C9K@@]R7K !5:8K@@[/K@@)3%8K@@^/K@@)4R3K 5S:8K@@#C9K@@#'^@@XT8^K@)4KA )@@G@@/K@@Z//K@@@@R7K !5%8K@@^'^@@!BRB) 5SR7K !5:8K@@[/K@@<#%8K@@^/K@@-^R3K 5SKB )@@G@@:8K@@#/K@@<#R3K 5S%8K@@#/K@@-N94,@@@98)@-O?@) ?$?@) ?*/K@@-I"/)@@I/K@@-OKC )@@G@@'^@@>QR7K !5H8K@@]/CK@<_/K@@Z/R#,@@@/C)@-QD@)@@I"K@@@I/@K@+"P;@@][/@@@-XKD )@@G@@S@@ ?E/G@@+RO;@@@[[^@ ?R;G@@@#;CK@@-D@@@@GD@K@@H/@@@-="C? !M/@K@-&"C! !AKE )@@G@@"@) ?("KK@@IP;K@]=D@@@@HR;K@@@R70 !5;^W@@@/KJ@-?/K@@+A/K@@+,DH@ ?R!@K ?IKF )@@G@@H9@@@[/[@@-5/D@@+AGD@ !6/H@@+ADH@ ?RGD@ !6R#0 !6A#0 ?OP;0@@#!@K ?IH9@@@[KG )@@G@@[D@ !6AB0 !6C9@@<1[ @@)7CG0 ?R!@K ?IO;0@@[/K@@+4RB0 ?T!@K ?I/K@@+)!80@@CKH )@@G@@/K@@+(S@Z !R;^K@@_O;K@@ RB0 ?T!80@@C/K@@+O!@Z !R/K@@+W/@0@+"'^@@Y5[ @ ?QKI )@@G@@/K@K)7[^@ ?RD@@@@G;G@@@#;CK@@-/K@@-+CH@ ?RG9@@@[[ @ ?R/K@@+OCH@ ?RG9@@@[KJ )@@G@@[ @ ?RP;0@@[?80@@C/K@@+FS@K ?D;^K@@_/K@@+OS@K ?D;^K@@_/C)@+OO;K@@[/K@@+OKK )@@G@@C^0 !";*0@@S;K0@@SGG0 ?R!@K ?IO;0@@[[^0 ?ROF0 !6AB0 ?T/@0@+9/G0@+"?@K ?IKL )@@G@@/K@@+D/@0@+"P;0@@[/K@@+D ^@ ?R ^@ ?QC[@ ?L[[@ !3/K@K)7C9@@@@9?"@@@/C0@KP )@@G@@R#K ?S/\)@Y"[ @ ?QGH@ ?R[ @ ?R/K@K)7'^@@)7(G@ ?Q/K@@=EDH@ ?R] @ ?P/H@@<7KQ )@@G@@D9@@@@HD@ !6H9@@@[G @ !6/H@@>OC^) 5S0@I@@@/[@@>O'^@@=JC5@ !5:9@@@^/K@@=#KR )@@G@@/K@@<0C[@ ?O[[@ !6R;)@@ C9K@@]'^@@XT8^K@=B/K@@ZRD9@@@@(C@ !6D9@@@[] @ ?PKS )@@G@@/K@@<7/K@@@@'^@@=QR;)@@.'^@@XTCD@ !6/\)@>A/K@K=J/K@@@@/[@@=0H9@@@]R;)@@ KT )@@G@@/H@@=X'^@@XT8^@@=VC^K 5S1@H@@@/K@@=\C00 5SC@X@@@:80@@[/K@@=(:80@@#/K@@=?KU )@@G@@>@K ?%/K@@=\/K@@=,(@@@@H/K@@=\/K@@=,>@K ?:/K@@=\C8)@@-'^@@XTCH@ ?P/H@@>IKV )@@G@@'^@@=4/K@K=Q/K@@@@RE0 !3RB@ !3/K@@>]O'0@@[$'0@@A/K@@=.P;@@@[R'0@@@?8@ !>KW )@@G@@/K@@>^')F@>CO;)@@0'^@@XT8^@@=8/K@K=4R;)@@0/K@@>[AB)@=4/K@@>]RM/,0@:?8#@@>L/K@@=2'^@@>Q/K@@<_KY )@@G@@/K@@@@C K !6R;)@@*/K@@>V'^@@XT8^K@>U/K@K>Q%8)@@'/K@@>?/,0@:G:8)@@'/K@@>=KZ )@@G@@'^@@XT/K@@>ZR#K !=A#K ?-/,0@:G:8)@@'/K@@>+R#K ?-A#K !=/K@@&C/,0@:G'^@@XTLA )@@G@@8^K@>?/K@@&CR;)@@ '^@@XT8^K@>1/K@@&CC9K ?J[ K !+/K@@>9 4@ 5S 0@ 5S @@ !5LB )@@G@@ @@ !"C[K 5V[[K 5YC[K !M[DK 5&C9K@?I[ K[[[C[K !+[[K !=/,0@:G%8)@@(/K@@&#LC )@@G@@C[K !=[[K !7R;@@@@ @@ !6 *@ !"C[@ !-[[@ !3C9@@@@/,0@:G/KI@&K/KG@$O/KG@$OLD )@@G@@/KG@$O/KG@$O/KG@$O/KG@$S/K@@$K/KG@$O/KG@$O/KG@$)/KG@$)/KG@$W/KG@$W/KG@$=LE )@@G@@/KG@$*/KG@$O/KG@$O/K@@$K/KG@$O/KG@$O/KG@$!/KG@$1/KG@$O/K@@$K/KG@$O/K@@$KLF )@@G@@/KG@$O/KG@$O/KG@$O/KG@$5/KG@$O/KG@$O/KG@$9/KG@$./KG@*L/KG@$O/KG@$O/KG@$OLG )@@G@@/KG@$O/KG@$O/KG@$O/KG@*[/KG@$O/KG@$O/KG@$O/KG@$O/KG@*P/KG@$O/KG@* /KG@* LH )@@G@@/KG@* /KG@* /KG@* /KG@* /KG@* /KG@* /KG@* /KG@* /KG@*T/KG@$O/KG@*D/KG@*HLI )@@G@@/KG@$O/KG@$OA#) ?"%8@@@#R;)@@A/KG@$W/K@@*X/K@@*X/K@@*X/K@@HT/K@@&I/K@@&ILJ )@@G@@/K@@&I/K@@HM/K@@*0/K@@*;/K@@(B/K@@HT/K@@*0/K@@*;/K@@(B/K@@HQ/K@@(I/K@@(NLK )@@G@@/K@@(Q/K@@HT/K@@*?/K@@*7/K@@(#R;)@@1/K@@*C/K@@*,/K@@*9/K@@( /K@@$V/K@@(XLL )@@G@@/K@@(>/K@@(*/K@@HT/K@@(%/K@@(,/K@@(1/K@@HT/K@@%E/K@@%D/K@@%3/K@@HT/K@@%5LM )@@G@@/K@@*X/K@@*X/K@@HO/K@@(3/K@@%^/K@@%B/K@@HT/K@@(G/K@@(G/K@@(G/K@@HR/K@@%XLN )@@G@@/K@@%8/K@@%'/K@@HT/K@@*X/K@@%//K@@*X/K@@HP/K@@&C/K@@**/K@@*%/K@@HN/K@@&CLO )@@G@@/K@@**/K@@*%/K@@HS/K@@(T/K@@(S/K@@(V/K@@HTA3) 5?R;K@@[A7K 5?RBK !+ABK 5?LP )@@G@@R;K@@ A\K 5? @@@@H'^@@9F 0@ 5&/K@@&I/,0@:@/K@@&C'^@@: /K@@&CR;0@@ /K@@*2LQ )@@G@@R;0@@B/K@@*2;G)@@#;C0@@-A70 !5'^@@:4[DK !;R;@@@[/K@@&FR;0@@ /K@@*.R;0@@BLR )@@G@@/K@@*.;G)@@#;C0@@-A30 !5/,0@:@R30 !5A70 !5C9K@@[/K@@*4R;0@@ /K@@(DR;0@@BLS )@@G@@/K@@(D;G)@@#;C0@@-A30 !5'^@@: /K@@*_'^@@:V/K@@&I'^@@:4/,0@!*H9K@@[R;)@@HLT )@@G@@/K@@HJ/,0@:@C9K@@[/K@@(J'^@@: /K@@(O/,0@:@R;)@@'/K@@HJ'^@@: /K@@(T'^@@:4LU )@@G@@C[K !4**@ !"D[K@@LC*@ !"[ K !"[*@ !"/K@@&C/,0@:@C9K@@[/K@@(-'^@@: /K@@(&LV )@@G@@'^@@:4/,0@!*H9K@@[/K@@HK/,0@:@C9K@@[/K@@(:'^@@: /K@@(\'^@@:4R$) !5!8)@@]LW )@@G@@R;)@@[R#0 !=H9K@@[A#" !8[ Y !'O;)@@[A$) !5!8)@@]/K@@&C 4@ !5A<) !5A#0 !7LX )@@G@@[DK !'/K@@&C/,0@:@C9K@@[/K@@(4'^@@: /K@@% /,0@:@R$) !5/@)@%LC Y !9P;)@@[LY )@@G@@8^K@%\A$) !5/K@@&CC4) !5/@)@HL'^@ 5XC@) 5S[@) 5RC[K !7[[K !=R<) !5A$) !5LZ )@@G@@/@)@%XCDK !'[ K !''^@[@8C @ !.%9@@][/K@@&CC9@@@@C[K !=/,0@:G%8)@@//K@@%*MA )@@G@@G9@@@[/K@@%+[[K !=/[@@&C[1@@%,C@@@%,'=@@@I/K@@&C@@@@@@[ Y !'C[Y !8[[K !=MB )@@G@@/K@@&C'^@@: /K@@%ER;)@@[A:) !"/K@@&F/,0@:@/K@@%X'^@@: /K@@%X'^@@:4[ K !6MC )@@G@@R;@@@]/K@@&FAA0@: '^@@:4C[K !4[ K !6/K@@:D/K@@@@'^@@:4C[K !4[DK !6C[K ?"MD )@@G@@R7) !5/K@@HBRFK !=RB0 !=')H@:P8#K@:NR;K@@ O;0@@[AB0 !=AFK !=/KF@@@R<\@@@ME )@@G@@R$\@@@R:\@@@R\\@@@R3\@@@R7\@@@/K@J__;@)@@^;C)@@)/^)@:)/[@K:VRB0 !3!80 !3MF )@@G@@/K@K:VRE0 !3G9@@@[')F@:,8]0@:%O;0@@[R'0@@ AB0 !3AE0 !3/K@K:VAA0@:V/K@@:)MG )@@G@@A<\@@@A$\@@@A:\@@@A\\@@@A3\@@@A7\@@@/K@J__R;0 !>R'0@@ R#)@@K @@ !4/^)@?^MH )@@G@@C9K@@[/K@K:4')F@?A/@)@:_T[Y !QG[K !4[[K !48]0@?^O;0@@[R'0@@ 8#)@://K@K:4MI )@@G@@C-Z@@@C>Z@@@C(Z@@@C!Z@@@C1Z@@@C5Z@@@AB)@:4/K@@:7AB@ 5SP;)@@[RFI@@@;@@@@CMJ )@@G@@;C@@@)A3@ 5S:8@@@^A7@ 5S/K@P5X'^@[@8/S@@@@CDK 5&: K 5&/K@@?(*4@ 5&/K@@?)MK )@@G@@C@@@??'=@@@I*0@ 5&/K@@?=C@@@?%'=@@@I*?@ 5&/K@@?*C@@@?:'=@@@I'^@@6D/K@L[]ML )@@G@@@[D@?!@[C@?6@[D@?"ILLEGAL FORMAT CHARACTERS WERE ACCEPTED AS BLANKS. MM )@@G@@RECORDS EXCEEDING MAXIMUM LENGTH ARE FAULTY. THE INTERPRETATION OF MEMN )@@G@@ANINGLESS INPUT WAS ATTEMPTED./K@J__RF) !;/@)K: P;)@@[AF) !;C@) 5R/@)@!LMO )@@G@@[@) 5S @@ 5R/K@@!M'^@ 5XR3) 5SP;)@@[AB) ![[H)@@NB )@@G@@C[@ ,_8^K@\>;G@@@M;CK@@M/KH@@@/K@@\5R3;@@@R\;@@@R:;@@@R$;@@@R<;@@@R7;)@@NC )@@G@@Q;)@@ /K@@\&&;@@@@/@F@@@C[K@@G&#@@@FR]0@@H&;)@@[&'0@@[R#K \[R#0 ,_8^K@0]ND )@@G@@C[F)@@;=0@@D=80@[@/K@@0CR7_ !_/K@@0DR3_ ?_')H)0W @@@@J/D@@0#/ K@0@;G@@@MNE )@@G@@;CK@@MR]0@@GT8K@@] @@@@GW8@@@#/@V@@@P;K@@[R;0@@ A<"@@@A$"@@@/^V@@@A:"@@@NF )@@G@@A\"@@@/KF@@@A7"@@@A3"@@@A\"@@@A:"@@@A$"@@@/K@@0+A<")@@R#K \[/K@@0ER#W@@DNG )@@G@@R#?@@CR#.)@@A#/@@EA#W@@D;C0@@Y%80@@_/K@@00P;K@@[A#W@@D/KF@@[R#/@@E;K0@@SNH )@@G@@/C0@04R3/@@E!^/@@BRB/@@BC G@@DG[@@@JC W@@AGDW@@^H[@@@L/D@@1)N@K@@JM#!)@@NI )@@G@@A#W@@DR#/@@E;K0@@S/C0@1#R3/@@EPB/@@B/G;@@]C G@@DG[@@@J[ G@@DC W@@AGDW@@^NJ )@@G@@H[@@@L/HF@@]P#0@@K0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K@1S%9K@@ /KF@@@NK )@@G@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#0@@K/K@@1 P#0@@KN@K@@JNL )@@G@@M#!)@@R#0@@K0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K@1\%9K@@ /KF@@@(^G@@#NM )@@G@@/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#W@@D/K@@06R#W@@AABW@@^ABW@@DNN )@@G@@;@K@@M'=@@@#C[W@@ GDW@@B[[W@@ C5W@@#/[K@2 %9K@@ /KF@@@(^G@@#/KF@@@ABW@@^NO )@@G@@;@K@@MA#W@@A'=@@@[/KF@@[0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ /KF@@@A]0 5QC^;@@@NP )@@G@@[@0@2>[@0@24C@_@@@[@0 54C^J 3L/@F@@#*4J 3L/KF@@#*?G@@]/KF@@#9!G@@C99F@@#NQ )@@G@@C1G@@C:9@@@[/K@@2?:9@@@]/K@@2?A]0 \R/,0[^$@@@@@@@@@@@@R]0 \R0@G@@#'=@@@ANR )@@G@@*4G@@#/K@@3[C@:@@[C@0 54C^J 3L 4G@@#(@I@@@/K@@27A]0 \R/,0[#;@@@@@@@@@@@@NS )@@G@@R]0 \R(4G@@C/K@@2;C G@@D'^@@_!C G@@^'^@@_! @G@@C @G@@D @@ \N/KF@@#C[G@@@NT )@@G@@[[@ \HC@@ \][@@ \O'=@@@IC^J 3L(@@ \N'^@@6D/K@@2?/K@@@@C@K \P/CK@3JA]0 \QNU )@@G@@ @@ \OG8K@@[[@K \P!8K@@Z/K@@3W(^H 3L/K@@3JA]0 \N/,0@2L@@@ \P@@@ \S@@@@@@NV )@@G@@C@K \P/K@@3J*@@ \OAA0[@@@@@K"K@@@LR4@@@L48)@@NZ )@@G@@MIA*@@M$*M@@N^1FK@NX.Y^@N7W5>@OO%[ZCSXU/XYW&N9TI@@@@K/@@@@]V@@@@@@@@@@@@OA )@@G@@"C\ S)"G\ S)"*K S\"?K S\@_ T@EXPONENT OF INPUT IS IN ERROR @@@@@@000000OB )@@G@@DO]"K@UNRECOGNIZABLE CONTROL WORD ENCOUNTERED _@@@@@*@@@@@@_B :OOC )@@G@@@@@_@@@@@)@@@@ 58@@@ 6H @KZ 58@@ !>@@[@K-/K@ :$@@[@HCERROR - TYPEOD )@@G@@ IN FORMAT IS NOT THE SAME AS THE INTERNAL TYPE.____"3A@@[@XJ@@[@HCK@@0@@E@@@@@&@@@@@@@@@@@OG )@@G@@@@@@@@T F @@@@@@@@@@@@@@@@@[ @@[ 6J@@@@@RM@@@@@I@@@@@G!R&I8OH )@@G@@)^@@@@)@)@@@KV\:0)@@@@@@K[)@@@@@@@@@K^*@@@@@@@@@KB2@@@@@@@@@KE")@@@@@@@@OI )@@G@@KI$^@@@@@@@@KL05@@@@@@@@KO.]K@@@@@@@KS&DU@@@@@@@@@@@@@HI!Z2$H?GV7(I J+5@@@@K"K@@@LR4@@@L48)@@MIA*@@M$*M@@N^1FK@OK )@@G@@]6ZS<8AG5Z]$DZHE2*G5R&I9 NX.Y^@Q4WH9IUA$-#ZXW;+5!@@@@@E@@@@[=@@@@J*OL )@@G@@@@@]WK@@@SU)@@#4D@@@&DU@@ .Y^@@;&?*@DO]"K@@@ !>@@ @@@@@@@@@NBMSG$?"@@@+K@@@',L@@@_-M@@@-.N@@@?/O@@[W0P@@@0OQ )@@G@@1Q@@@12R@@@23S@@@34T@@@45U@@@56V@@@67W@@@78X@@@89Y@@@9:Z@@@$;[@@@N?@@[@?_@@[_)@@@@@__"@@ @@[@@@@#K \#ABNORMAL I/O CONDITION DETECTEOS )@@G@@D WHILE CLOSING FILE ON UNIT LAST BLOCK MAY BE IN ERROR @@@@@@OT )@@G@@@@@@@@_____"@@@@@[@@@@@@@@@@@@ SEQUENCE N LINE N ERROR TERMINATIOU )@@G@@ON IN ROUTINE CALLED AT SEQUENCE NUMBER OF OV )@@G@@ ROGRAMA COMPUTED GO TO THAT WAS OUT OF RANGE WAS DETECTED AT SEQUEOW )@@G@@NCE NUMBER OF MAIN PROGRAM. ILLEGAL OP AT SPECIFIED RETURN FROM OX )@@G@@ RETURN VARIABLE SPECIFIED IN @@@K@@@@@/K@@]B \$OY )@@G@@@]D \,@]B \,MAIN P@]E \,@]H \8@]B 0COUT OF RANGE NEGATIVE@]C 0J I/OOZ )@@G@@RETN 0RETN KMAIN @@@@@@@_A 1G@_F 00@_D 0;@_F 00@_C 1^@_# 1MEXECUTION TEPA )@@G@@RMINATED BY AN ATTEMPT TO READ PAST AN END-OF-FILE. EXECUTION TERMINATPB )@@G@@ED BY AN ATTEMPT TO PASS END-OF-TAPEA NON INTEGRAL BLOCK WAS READ FROM MPC )@@G@@AGNETIC TAPEABNORMAL I/O CONDITION DETECTED INAPPROPRIATE UNIT@@[@@@PD )@@G@@@_^ 1W@_A 1)@_D 1&@[F 1\FILE $-$ NOT ASSIGNED NO PACKET SPACE AVAILABLPE )@@G@@E INITIALLY THE NTRAN UNIT $-$ IS NOT AVAILABLE FOR STANDARD I/O. BACKSPPF )@@G@@ACE WAS ENCOUNTERED FOR THE UNASSIGNED FILE: $-$ - IGNORED. @ASG,T@@@@@@PG )@@G@@,F @@@@@@@@@@@K@@@@@K@@@@@C@@@@@C@@@@@D@@@@@)@@@@@(@@@@@@@@@@@@@@@@@@PH )@@G@@ @@@@@@@@@@@@@_C 2SABNORMAL CONDITION DETECTED INPI )@@G@@ BUFFER HANDLING @@[@@@@@@@@@@@@@@@@@@@@@@@@@@@C8) 23C8K@@@/@Y@@@C8)@@@PJ )@@G@@[C) 2(G@)@@HP;)@@[[^) 2(C8K TM[CK 2*G8K@M]P;K@^[[^K 2*G8K@@[C@0 2)[^Z>2%PK )@@G@@CC) 2*C^K 2*G8)@@H;C@@@M!@)@@HC@@@[#[@0 2)C@K 2$[@K[@=/KG@@@@'= 2% PL )@@G@@@@# 1'_)_@@@@@@@@$'^@@3E@@[@@@@-@@@@@@@@@@@@@@@@@@@@@@@)@@@@@=@@@@@@@@@@PM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@KPO )@@G@@STOP @#] 31L,00. @@[ 35A]0 4'9*@ 4;9*) 4.C4@A7@/@@ 4B9?KA649*K 5]PP )@@G@@C@0 5K/=@ 4#C@0 5L%8@@@]C@0 5M[@0 5[C@@ 5N'=@@@J/^@ 4=C0@A7@/@@ 4O9?KA7[PQ )@@G@@9*K 5]C@0 5K/=@ 4KC@0 5L%8@@@]C@0 5M[@0 5[C@@ 5N'=@@@J/^@ 4&C?@A7@/@@ 4-PR )@@G@@9?KA7I9*K 5]C@0 5K/=@ 4XC@0 5L%8@@@]C@0 5M[@0 5[C@@ 5N'=@@@J/^@ 4*9?@ 4;PS )@@G@@9?) 4./KF@@[C80 4B/K@ 4(C80 4O/K@ 4(C80 4-[^0 45;G@@@#;CK@@#;G@@@#;CK@@VPT )@@G@@;*@@@A/@K 46G8K 00[^K 5CC@@ 5O'=@@@I ^@ 4@@< 6(@@Q 7K@N2A &PY )@@G@@@@]ATV@@FAT(@@#AT.@@GAU]@@ AVA@@*AVR@@SAW]@PBAX3@IO@3&@BA[#'@^E GH#%O[F@PZ )@@G@@@#9A2'@@HA7+@@HA76@@]C4[@=(A8#@@]B=?@@]C#"@K1C/K@AH^/K@AHT0@@ 7U/K@AAPR[[K 6\[[K 60/K@AC&/\)AD @@ 61 @@ 62QV )@@G@@%[K 7^/K@AC? @@ 6\/K@AA3![K 7^/K@AE=/K@AH^%80@@,/K@AH^/\)AD /,0ACE/\)ADLQW )@@G@@/K@AH^%80@@ /K@AH^?[K 6\/K@AH^[[K 61R#0 7^!@0 6\/K@AH^C[@ 62G9@@@[%[@ 6\QX )@@G@@/K@AD#H @ 7B[[@ 6\[[K 62/K@AE=[[K 6\*@@ 62/K@ADGC[@ 60![@ 6\/K@AH^/K@ADJQY )@@G@@C[@ 62![@ 6\/K@AH^[[K 60/KI@@@ @@@@LC9@@@E%80@@ /K@ADR/,0ACE/K@ADN!80@@0QZ )@@G@@!80@@'/KI@@@/K@ADZ/,0ACE!80@@0!80@@'/KI@@[H80@@0T9K@@EG[K@@J8^@ADV/KI@@@RA )@@G@@9?@ 6/9?) 6"RA0 7@/%0AD,R#@ 7[AB@ 6/'=@@@HR#@ 6/R;K@@ RA0 7]')HAES8#KAD1RB )@@G@@R;K@@ P'0@@[:9@@@-/K@AHV:9@@@)/K@AEG:9@@@@/K@AD$; @@@ ;DK@@Z/>@AE 8^KAD.RC )@@G@@/K@AD$')HAES8#KAE@R;K@@ P'0@@[')JAEY8#0AE^R;0@@ /K@AD;C9@@@ 8^KAEC/K@AD$RD )@@G@@')JAEY8#0AEFR;0@@ /K@AEA9*@ 6/AA0 7@R;K@@BA:K 63R;K@@*A\K 7F%80@@ O;)@@[RE )@@G@@P#) 6"A3) 7U )@ 65/K@AI^C-G)@@C>G@@@C(G@@@C!G@@@C1G@@@C5G@@@[-I)@@[>I@@@RF )@@G@@[(I@@@[!I@@@[1I@@@[5I@@@R#@ 7SR#K 7AA#K 7DR;K 7A*?@ 65R;K 7CNCK 6,M#H)@@RG )@@G@@R;@ 7K/,0@0>/K@AH^/K@AHMR;)@@+ =@ 7U ?@ 7U%4) 7U/K@AE8R<) 7UA\) 65/K@AE"RH )@@G@@R\K 65A=80@[[/K@AG#RN )@@G@@R;)[['AB) 780[@[/K@AGORB@AIZ%8@AGA/,0AIER]0 68/K@AGPR]0 7SR#@ 7SQB@ 6,NCK 6,RP )@@G@@M#F)@@ *@ 63R<) 7UC9K@@];G)@@=W8)@@EO;0@@0;G0@@A8^KAGW;[@@@M[ @ 7F0@@ 7URQ )@@G@@/K@AG9(4@ 64/K@AG9(0@ 64/K@AG9R#)[]AR#0[]B;C0@@S;*0@@S?@) 6'/K@AH[%@) 6'RR )@@G@@/K@AG5?@0 6;/K@AH[:@0 6;/K@AH[A#) 6'A#0 6;R;)@@ A3) 7FR#K 7UC[K 65=9K[@[RS )@@G@@R#K 7>R#0 7DR#) 7FR]0 6:/KF@@]R;)@@#A3) 7F/K@AG9R]0 6::8@ 7K/KF@@@:8@ 7VRT )@@G@@/KF@@@C9K@@[[(K 64 @@ 6\ @@ 60 @@ 61 @@ 62 @@@@LR;@ 7G/KF@@@R;@@@Z:4@ 6\RU )@@G@@/K@AHSA7@ 6\R]0 6:/K@AHJ'^@AI%R]0 6:/KF@@[*4@ 63/K@AHTR;K@@ZA7K 6\/K@AE=RV )@@G@@R#K 69/CKAH<]*K 7URR;)[]'AA0AIZR3@ 7UR;K[['RZ )@@G@@=80@@[/K@AIP/,0@\GR;0 7C/K@AIR/,0@\8R;0 7AA3@ 7>PF@ 6,1@@@@G/K@AIZ]@@@[[SA )@@G@@R#) 67OF) 6,M#\)@@/K@AIG/K@@@@(@@A7[/K@AI)R#K 66A#K 7UA#K 7>R;@ 7V/,0@,[SB )@@G@@/K@AH^/K@AI)/K@AI%C[@ 7B/[@AI%(*@ 63/K@AI%C K 7D:9KNEW/K@AI%!9@@@_C9@@@_SC )@@G@@[!@ 7U;H@@@=W9@@@EG9K@@0[-K 7D;H@@@=W9@@@EG9K@@0[>K 7DC9K@@-[(K 7D @@ 7BSD )@@G@@/K@AI%R;K@@[A]0 6:R;@@@KA3@ 7N]@@ 6\ @@ 60 @@ 61 @@ 62 @@ 7^ @@ 7@ @@ 6'SE )@@G@@R;)@@)A7) 6'A7) 6; @@ 7 *=@ 63/K@AKVR;)@@-A#) 7#R#)A63;@)@@E/))AJSA@@AV-/K@AR+SS )@@G@@>@@AV+/K@AL9&;@@@@O#@AT_/K@AL0O#@AT_AB@AVBA]0AT_R#@AUIA#@A639?@AUG9*@A66ST )@@G@@9*@A6'9*@A7#9*@A7B @@A64 @@A7[ 4@A63C9K@@['^@AP:/K@AR:/K@APBR#@A63;@@@@LSU )@@G@@/=@AO[9*KAU@9?KAUE:@KAVF/K@AM89?KAU@C9)@@,')IART8#)AMQR;)@@ C9)@@F')IARTSV )@@G@@8#)AMUR;)@@ 9?@AVT9*@AVDR#@AVR'=@@@JC@K@@G/G@AST;)@@@]R;K@@]/C@AM$;)@@@ SW )@@G@@R;K@@[/C@AM$R;K@@^A7KA7@9?KAU@C9)@@ ')IART8#)AM!R;)@@ 9?@AVX9*@AVDR#@AVRSX )@@G@@'=@@@J/@@AM5:8@@@K/K@AS^/K@ASI9?KAUC'^@AT(9*KATS9*KA64C9@@@A/,0AQ?/K@AR:SY )@@G@@/K@AR3R#KAU]R;)@@ /,0ARE(@@AT./K@ANOR;@ATS'=@@@#*4@ATV/K@AS69?0ATZ9/0A66SZ )@@G@@/K@AT@9?0AT<9/0A6'/K@AT@R\0AT+!80@@ /K@AT@A\0A69R#0AT>A#0A6/R;0@@"A70A63TA )@@G@@C9@@@B/,0AQ?/K@AR:/K@ANVR#KAU#R;)@@ /,0ARER;@@@[A\@A69*@@AT./K@AN=R;@@@*TB )@@G@@A7@A63R;@A64'=@@[ /^)ATCC9@@@C/,0AQ?/K@AR:/K@APP8^@AN%/K@AR;R7W@@@P;K@@0TC )@@G@@8^@AN,/K@AN3T8K@@ER3?@@@P;)@@0O#K@@I8^@AR;AG@@@O;@@@[R;0@@ /KF@@]?1W@@@/KF@@@O?@@@C(?@@@C!?@@@C1?@@@C5?@@@[-!)@@[>!@@@[(!@@@TW )@@G@@[!!@@@[1!@@@[5!@@@'=@@@IR]0AT_/KF@@@R#@AR>A]0AT_/K@ARZ@# AR&PREPRM ERR--TX )@@G@@NOT A CONTROL CARDR#@AR!/K@ARZ@# AR,PREPRM ERR-NO SPEC1 FIELD R#@AR5TY )@@G@@/K@ARZ@# AR6PREPRM ERR-NO ELEMENT NAME R#@AR./K@ARZ@#AAR"PREPRM ERR-ITZ )@@G@@LLEGAL CYCLE NUMBER R#@ASA/K@ARZ@#BASBPREPRM ERR-SYNTAX ERROR IN CSFUA )@@G@@$ IMAGE R#@ASK/K@ARZ@\]ASLPREPRM ERR-CSF$ PACKET OUTSIDE PROGRAM LIMUB )@@G@@IT R#@ASV/K@ARZ@#BASWPREPRM ERR-FILE NOT PREVIOUSLY ASSIGNED R#@AS>UC )@@G@@/K@ARZ@#AAS&PREPRM ERR-NO ASSIGNMENT FOR FILE R#@AS,/K@ARZ@#BAS\PREPRMUD )@@G@@ ERR-I OPTION ON WITH TAPE INPUT R#@AS8/K@ARZ@#BAS9PREPRM ERR-I/O ERRUE )@@G@@OR WHEN READING TAPE R#@AT]/K@ARZ@# AT#PREPRM ERR-WRONG ELEMENT FILE UF )@@G@@R#@ATE/K@ARZ@# ATFPREPRM ERR-PFS$ ERR RETURN R#@ATM/K@ARZ@# ATNPREPRMUG )@@G@@ ERR-PFWL$ ERR RETURN @K@@@@@@GATX/K@@@@ @@AT.9*KAT4R;@AT4'=@@[G(4@AT'UH )@@G@@/K@AS_@@S@@@@[AV1@EOF AAN ATTEMPT TO WRITE AN EOF-MARK ON CARDREADER ORUM )@@G@@ PRINTER - IGNORED @]GAV2BACKSPACE ATTEMPTED ON A SYMBIONT DEVICE -UN )@@G@@ IGNORED UNRECOGNIZABLE CONTROL WORD ENCOUNTERED DURING BACKSPACE UO )@@G@@@]BAW]@@@8@@@_EAWFMM/DD/YY BCYA13@@@__"@@@__"BC+A13@@@__"@@@__"@@@__"UP )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"UQ )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"UR )@@G@@@@@__"@@@__"BDCA13BCUA13@@@__"@@@__"@@@__"@@@__"BC4A13@@@A03@@@__"BC&A13US )@@G@@@@@__"@@@__"BD^A13@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"UT )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"BC,A13BD@A13@@@__"@@@__"@@[__/@@[__/@@[__/UU )@@G@@@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/UV )@@G@@@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/UW )@@G@@@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@#__/@@^__/@@[__/@@[__/@@[__/@@[__/UX )@@G@@@@[__/@@]__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/UY )@@G@@@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@^__/@@[__/UZ )@@G@@@@[__/@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@__.@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3VA )@@G@@@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3VB )@@G@@@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3VC )@@G@@@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3VD )@@G@@@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3VE )@@G@@@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@AZ3@@@__"@@@__"@@@__"@@@__"@@[AZ3@@@__"@@@A53VF )@@G@@@@@A53@@@A53@@@A53@@@A53@@@A53@@@A53@@@A53@@@A53@@@A53@@@A53@@@A53@@@A53VG )@@G@@@@@A53@@@A53@@@A53@@@A53@@@A53@@@A53@@@A53@@@A53@@@A53@@@A53@@@A53@@@A53VH )@@G@@@@@A53@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@^__.@@@__"VI )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@A*3@@@A*3@@@A*3@@@A*3@@@A*3@@@A*3@@@A*3VJ )@@G@@@@@A*3@@@A*3@@@A*3@@[A\3@@@__"@@@__"@@@__"@@@__"@@@__"@@@A-3@@@A-3@@@A-3VK )@@G@@@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3VL )@@G@@@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3VM )@@G@@@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3VN )@@G@@@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3VO )@@G@@@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@A-3@@@__.@@@A-3@@@A-3@@@A-3VP )@@G@@@@@A-3@@@__"@@@__"@@@__/@@@__"@@@__"@@@__/@@@__"@@@__"@@@__"@@@__"@@@__"VQ )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"VR )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__/@@@__"@@@__"VS )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__/VT )@@G@@@@@__"@@@A+3@@@A+3@@@A+3@@@A+3@@@A+3@@@A+3@@@A+3@@@A+3@@@A+3@@@A+3@@@__"VU )@@G@@@@@__/@@@__"@@@__"@@@__"@@@__"@@[__/@@[__/@@B__.@@[__/@@[__/@@@A<3@@[__/VV )@@G@@@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/VW )@@G@@@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/VX )@@G@@@@[__/@@#__.@@[__/@@[__/@@[__/@@^__.@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/VY )@@G@@@@ __.@@[__/@@[__/@@]__.@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/@@[__/VZ )@@G@@@@[__/@@[__/@@[__/@@[__/@@A__.@@[__/@@[__/@@[__/@@[__/@@@__"@@A__.@@@__"WA )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WB )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WC )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WD )@@G@@@@@__"@@@__"@@#__.@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WE )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WF )@@G@@@@@__"@@@__"@@^__.@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WG )@@G@@@@@A=3@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WH )@@G@@@@@__"@@@A&3@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WI )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@[__.@@@__"@@@__"@@@__"@@@__"@@@__"WJ )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WK )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@ __.@@@__"@@@__"@@@__"@@@__"@@@__"WL )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WM )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WN )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@]__.@@@__"WO )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WP )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WQ )@@G@@@@@__"@@@__"@@@A<3@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WR )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WS )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WT )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WU )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@A__.@@@__"@@@__"@@@__"WV )@@G@@@@@__"@@@__"@@@__"@@]__/@@@__"@@@__"@@]__/@@@__"@@@__"@@@__"@@@__"@@@__"WW )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"WX )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@]__/@@@__"@@@__"WY )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@]__/WZ )@@G@@@@@__"@@@A*3@@@A*3@@@A*3@@@A*3@@@A*3@@@A*3@@@A*3@@@A*3@@@A*3@@@A*3@@@__"XA )@@G@@@@]__/@@@__"@@AA+3@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__/@@@A%3XB )@@G@@@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3XC )@@G@@@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3XD )@@G@@@@@A%3@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"XE )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3XF )@@G@@@@@A%3@@@A%3@@@A%3@@@__"@@@__/@@@__"@@@__"@@@__"@@@__"@@@A%3@@@A%3@@@A%3XG )@@G@@@@@A%3@@@A%3@@@__/@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3XH )@@G@@@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3XI )@@G@@@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3XJ )@@G@@@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3XK )@@G@@@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@A%3@@@__/@@@A%3@@@A%3@@@A%3XL )@@G@@@@@A%3@@@__/@@@__/@@@__"@@@__/@@@__/@@@__"@@@__/@@@__/@@@__/@@@__/@@@__/XM )@@G@@@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/XN )@@G@@@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__"@@@__/@@@__/XO )@@G@@@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__"XP )@@G@@@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/@@@__/XQ )@@G@@@@@__"@@@__/@@@__/@@@__/@@@__/@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"XR )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"XS )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"XT )@@G@@@@@__"@@@__"@@@A!3@@@A!3@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"XU )@@G@@@@[__/@@@__"@@@__"@@]__/@@@__"@@@A!3@@@A!3@@@A!3@@@A!3@@@A!3@@@A!3@@@A!3XV )@@G@@@@@A!3@@@A!3@@@A!3@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"XW )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"XX )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"XY )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"XZ )@@G@@@@@__"@@@__"@@@__"@@@__"@@[__/@@@__"@@@__"@@]__/@@@__"@@@A!3@@@A!3@@@A!3YA )@@G@@@@@A!3@@@A!3@@@A!3@@@A!3@@@A!3@@@A!3@@@A!3@@@__"@@@__"@@@__"@@@__"@@@__"YB )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"YC )@@G@@@@@__.@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"YD )@@G@@@@@__"@@@__/@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"YE )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"YF )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"YG )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3YH )@@G@@@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3YI )@@G@@@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3YJ )@@G@@@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3YK )@@G@@@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3YL )@@G@@@@@A\3@@@A\3@@@A\3@@@__.@@@A\3@@@A\3@@@A\3@@@A\3@@@A\3@@@__"@@@__"@@@__"YM )@@G@@@@@__"@@@__"BC/__.@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"YN )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"YO )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"YP )@@G@@@@@__"BC8A13@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"YQ )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"YR )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__.@@@__"@@@__"@@@__"@@@__"@@@__"YS )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"YT )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"YU )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"YV )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"@@@__"YW )@@G@@@@@__"@@@__"@@@__"@@@__"@@@__"BDGA:3@@@__"@@@__"BDUA:3@@@__"@@@__"@@@__"YX )@@G@@[1W@@CC[I 1.[1G@@#%9K@@#/K@K3)H8K@@[?8K@@[/K@K3)C^?@@C[C?@@D'^@@8Y/K@K3)YY )@@G@@'^@@61R;F@@@L8@@@[RB!@@@?@) 0R/K@@3'P#) 0RRB,@@@P;)@@[RB,@@@N@"@@@R#K@@GYZ )@@G@@RF!@@@/^)@4]O;K@@[/K@@3":8) 0S/K@@4@P#K@@GABK@32/K@@4D/K@@32'^@@61R;V@@@ZA )@@G@@OBKK4BA#K \U^@0 \:^@0 \,RFX@@@R#@ 0T'=@@@IR#@@@HN80@#C'^@@6_A#@ \4RBK \UZB )@@G@@9!@ \V0@H@@@/K@@4:(^H@@@/K@@5ARBH@@@RF/@@[?80@[@9!@ \X9(@ \1R#G@@@A#@ \6ZC )@@G@@R#@ 0U'=@@@IR#@ \6A#@ \,RBK \URBX@@@'^@@4\A#K \U/K@@4N9!@ \X9(@ \1R#@ 0VZD )@@G@@/K@@5E/K@@@@RFH@@[?8@@[@/K@@4.R#@@@HP;@@@]RBG@@@P;@@@[O;K@@[RBX@@@O#K@@GZE )@@G@@RFH@@@8K0K4\/K@@5F8#@@47O;K@@[R#X@@@RFH@@@/@@@5^%8@ 0S/K@@4'O;K@@[/K@@5@ZF )@@G@@9(@ \1R#@ 0WA#@ \6R#@ 0X'=@@@I @@[@+'^@[@N@.@@[ZL )@@G@@(CH@@[N@.@@]R;K@6NABK@6=/K@@6&/K@@56/K@@6QN@0K6O'^@@61R#@ 0&/K@@6KR]0 \ZZM )@@G@@ @@ \T*CF@@@*4F@@@/K@@6+R;V@@@RFF@@@A#K \U/K@@4NO'0@@[/K@@6V/K@@@@R#@ 0$ZN )@@G@@A#@ \,^@0 \URF@ \U'^@@6_A#@ \4RBK \UR#@ 0*/@K@6\R#H@@@A#@ \6/K@K6=/K@@@@ZO )@@G@@A]0 \Z9*@ \)9*) \+9(@ \=^@0 \&/K@@61/K@@@@R]0 \Z9?@ \)9?) \+9!@ \=N@0 \&ZP )@@G@@/K@@68/K@@@@;G@@@MR;)@@ Q;K@@A;@K@@#;?@@@A8#)@7]/K@@6_/K@@@@C@0 54C^J 3LZQ )@@G@@0@G@@#'=@@@A*4G@@#'^@@81C0W@@CC@! 1.[0?@@#'^@@9/C9@@#)C0W@@C:8K@@]/K@@7UZR )@@G@@C9@@#/C0\ 3L?8)@@KG9@@@^[DG@@^'=@@@[/K@K7B/K@@@@C@0 54C^J 3LC1G@@C%9@@@#ZS )@@G@@/K@@8BC^W@@CK^W@@DC[W@@F[[Y@@@C[W@@GG9K@@[[[W@@G[[Y@@[C^W@@D[[X@@@CDW@@GZT )@@G@@G8)@@]G9K@@# @@@@KW9@@@W/[K@7'D[K@@LG9K@@W/[K@7' @I@@@G8)@@[H9K@@[/ K@76ZU )@@G@@H^?@@D[C?@@D[^?@@C'^@@8YC1G@@C%9@@@#/K@K7X @G@@FC[G@@G[[G@@E[[G@@G CG@@GZV )@@G@@/K@K7XC^?@@CG^?@@DC W@@C @@@@KW9@@@W/[K@7'D[K@@LG9K@@WH9K@@[ 4I@@@C1G@@EZW )@@G@@[!I@@@[1Y@@@C G@@G[ I@@@G9@@@[[ G@@GC9@@@)[(I@@@C[I@@@[[G@@EG8)@@[/K@@75ZX )@@G@@/K@@@@0@G@@#'=@@@A*4G@@#'^@@81C0W@@CC@X 1.[0W@@#'^@@9/CDG@@D[DG@@^N^W@@^ZY )@@G@@C G@@D[ G@@^*4G@@C^^W@@D*CG@@^'=@@@[/K@K8Y/K@@@@[@K 0(C4W@@#:8K@@ /K@@9^ZZ )@@G@@!8K@@ @@@@HC@H 0% @@ 5?C8)@@#[4) 5?R7?@@#A\) 5?AB@ 5?'^@@9F'=@@@I/K@@6DAA )@@G@@C@@ 0\/K@@89(^G@@#/K@@87RBW@@#AFW@@^ 4G@@#C@K 0(/K@@81/K@@@@RA0 5QO]0 1PAB )@@G@@C!V@@@/[KK9F:9K@@[/K@K9FCDF)@[/[@@9MH9K@@[H9K@@[?9K@@@/K@K9FCC:@@[C^;)@[AC )@@G@@/@K@9)!8K@@^/K@@9)%8)@@]/K@@9P/KJ@@@%8)@@#/K@@9P/KJ@@@/K@@@@C8K@@BC[H 1.AD )@@G@@[1G@@# 4G@@#C1J 3L!9@@@K/K@@90N80@^@^C/@@^'=@@@#*4G@@#/K@@96N^/@@#^C/@@^AE )@@G@@(@G@@ /K@@9''^@@9//K@K9*@@ 2 /K@@'%C@@ 2+^^0@'>AI )@@G@@N80@/3/KG@@[C8K@@*N80@@@P;K@@# @H 2:8#K@'$[@@ 2 CD@ 2*K9@@@HC8@ 2*C^K 2*AJ )@@G@@G8K@@[!@K@@L/K@@;ECD@ 2(K9@@@HC8@ 2(C^K 2(G8K@@[!@K@@L/K@@;EC8K@@*P;K@@]AK )@@G@@C8)@@ ?C! 2%/K@@;88#K@';'^@@/9^CX 2%C8)@^@G@)@[[H8)@@[[^! 2%^@K@@KC8H 2%AL )@@G@@K9@@@H @I@@@%@)@[[8#)@;BC@0 54[ J 3L[DW@@@[[@ 2A @@@@HAA0@;NA]) 1RC@)@@JAM )@@G@@'^@@HUR'0@@@R]) 1RR#K TDT8K@@A(@@@@HR;K@@AR#@ 2AR#) THR#0 2AT )@@G@@/^)@/Y(?H@@]/K@@/Y*@@ 2B/K@@/YCC!@@@[^) 1*C@@ 1U/K@@/4CCK 2C[CK 1XC@@ 1SAU )@@G@@/K@@/4C@@ 1T'=@@@I/K@@6D/K@@@@ @@ 2-/K@@///K@@@@C@K@/9[@K 2-C^K 2) @@@[[AV )@@G@@P;K@@[(CH 2%/K@@.P8#K@/_C^) 2(/@)@.EP;)@^@CC0 2(?@)@@J/K@@.E[^) 2(/K@@.KAW )@@G@@C^) 2*P;)@^@CC0 2*?@)@@J/K@@.X[^) 2*C@K 2)G8)@@[[^!>2%[@K 2)P;K@@[C[@ 55AX )@@G@@[DH 2%N^X 2%C@0 54C^J 3L(@@ 2-/K@K/6/K@K/9C@0 54(@@ 2-/K@K/6 @@ 2N @@ 2OAY )@@G@@ @@ 2P @@@@JC^J 3L/@@@">C5J 3L/ @@">(@G@@D/K@@">*?G@@C/K@@">N^W@@^'^@@_RAZ )@@G@@CC! 2%!8)@@ /K@@_Z/KI@.2/K@@.P/K@@.9/K@@"E/K@@"H[C0 2N[^K 2N/K@@">*4G@@CBA )@@G@@/K@@."[C0 2O[^K 2O/K@@">0@G@@#'=@@@A*4G@@#'^@@81'^@@9/'^@@9C1G@@#:9@@@(/K@@"R0@G@@#'=@@@ABC )@@G@@*4G@@#'^@@81 @G@@D ^G@@C/K@@.P[C0 2Q[^K 2QC G@@C/[@@"OC0Z 3L?8K@@K/K@@">BD )@@G@@[DG@@^C9@@@C[1G@@#'^@@9/CC0 2QC^K 2Q/K@@"OG80@@[?80@@Z/K@@.=C[@ 2N/[@@""BE )@@G@@CC0 2NC^J 3L0@G@@#'=@@@A*4G@@#'^@@81C[@ 54[[@ 6&[@0 54'^@@7XC@0 6&[@0 54BF )@@G@@0@G@@#'=@@@A*4G@@#'^@@81 @G@@D ^G@@CC^K 2N/K@@.PC[@ 2O/ @@_AC[@ 2P/[@@_ZBG )@@G@@CC0 2PC^J 3LN^) 2P/K@@_DCC0 2OC^J 3LN^) 2O0@G@@#'=@@@A*4G@@#'^@@81C1G@@#BH )@@G@@:9@@@(/K@@_M'^@@9/'^@@97C9K[@T[ K[@9C9K@] BN )@@G@@[ K !.'^@[@8/K@@>7/K@@@@C[K[@7[[K 57/K@L@TR#FK@@:@@ 32/K@[@7AA0 5QC^;@@@C@_@@@C9@@@A[[@ 55'^@@'Q/K@[^+C^J 3LBW )@@G@@(@G@@D/K@[^O(^G@@C/K@[^E9!@AV<,1G@@C/K@[^E'^@@7X0@G@@#'=@@@A*4G@@#'^@@81BX )@@G@@ CG@@^C G@@^'^@@_!C G@@D*4G@@C'^@@_!C1J 3L!9@@@K/K@[^)C8K@@AC@X 1.[0W@@#BY )@@G@@ 4G@@#'=@@@[ @G@@C @G@@D @G@@^/KF@@] @G@@ /K@[^WC@@AV,'=@@@I'^@@6D/KF@@]BZ )@@G@@AA0 5QC^;@@@C@_@@@C9@@@ [[@ 55'^@@'Q/K@[ 4C^J 3L(?G@@C/K@[^6'^@@/9C@@ 2ACA )@@G@@^^W@@^^^W@@D'^@@7B ?G@@C*^G@@D/K@[^.'^@@/9C@0 54C^J 3L^^W@@D^^W@@^'^@@9/CB )@@G@@C1G@@C*4G@@C/K@[ 0@G@@#'=@@@A*4G@@#/K@[ABC9K@@_=9@@@[[1W@@E/[@[ I!9@@@#CC )@@G@@/K@[ I'^@@9<*4G@@C'^@@9@AV\C[@AV\[[I@@@[[G@@EC1G@@CCE )@@G@@:9@@@#/K@[A^:9@@@^/K@[ %'^@@3)C1G@@C:9@@@#/K@[ :'^@@7X0@G@@#'=@@@A*4G@@#CF )@@G@@'^@@81C G@@^'^@@_! @G@@C @G@@D/KF@@]C1J 3L%9@@@-/K@[A@*4J 3L/K@[ /C@@AV0CG )@@G@@'=@@[S/KF@@]C[@AV0[[G@@@'=@@[>/K@[ :C@@AV"'=@@@I'^@@6D/KF@@]C9@@@^[1G@@CCH )@@G@@/K@[ %*^@@3E/KF@@]'^@@81AA0 5QC^;@@@C@_@@@O'0@@]AA0[CVC9@@@B[[@ 55'^@@'QCI )@@G@@/K@[CWC^J 3L0@G@@#'=@@@AC W@@#C5G@@#:9@@@ [DW@@^'^@@9/C G@@#!9@@@R/K@[A&CJ )@@G@@C1J 3L!9@@@K/K@[A&C1G@@C%9@@@]/K@[A&'^@@9C!I@@@!9@@@_/K@[EJH??@@EH8)@@[?^?@@D'^@[C.C[I@@@[[G@@ECW )@@G@@+[@AWQ/[K[EZ/K@[C,/K@@@@[@)AW[C1W@@#%9K@@('^@@9G%')H>G38^K G&/KF@@@C5I@@@C1I@@@C!I@@@C(I@@@C>I@@@DK )@@G@@/?K G0C-I)@@Q;0@@@/K[@@@[5G@@@[1G@@@[!G@@@[(G@@@[>G@@@/?K G9[-G)@@Q;K@@@DL )@@G@@/K[@@@R4?@@@R0?@@@R??@@@R*?@@@R=?@@@/?K H]R)?)@@Q;K@@@/K[@@@R4?@@@R0?@@@DM )@@G@@R??@@@R*?@@@R=?@@@R)?@@@/?K HL:3"@@@:\"@@@::"@@@:$"@@@:<"@@@Q;0@@ :7")@@DN )@@G@@/K[@@@/K[@@[:5G@@@:1G@@@:!G@@@:(G@@@:>G@@@:-G@@@/?K HWQ;K@@[:5G)@[/K[@@@DO )@@G@@/K[@@[?5G@@@?1G@@@?!G@@@?(G@@@?>G@@@?-G@@@K4?@@@K0?@@@K??@@@K*?@@@K=?@@@DP )@@G@@/?K H?K)?)@@Q;K@@@/K[@@@C@#@@@G^#@@]CCN@@]&;@@@[&;K@@[ @@@@KN@N@@#/K@ H;DQ )@@G@@')H>H&GDJ@@@CG\@@@/G) H.8KK H7/KF@@[:/)__"/KF@@@[[@A"19!#@@@9(]@@@9!#@@]DR )@@G@@H[K@[[H@#@@@&#@@@HC@K@[[%/)__//K@ JA'O@ K&0@@@@G'K@ K$H9K@@[G8K@@[9*#@@]DS )@@G@@9(]@@]/KF@@]C4/@@@C0/@@@C?/@@@C*/@@@C=/@@@C)/@@@/K@ I"C9K@@\C9)@@9 @@@@^DT )@@G@@ @@@@B @@@@OC#K K*C')@]VC@D@@@G^D@@]&;@@@[RCT@@]&8K@@[R8)@@AR@9@@#P80@@[DU )@@G@@')[>IL%80@@-/K@ I!C#K K(/K@ I'')[>IL\[K@@J/K@ I5%80@@./KE@@@C@)@@^/^%@@@DV )@@G@@R90@@[/K@ I'H80@@0"Q)@@JO[@@@B"E@ K%"]@@@R8@0 I//K@ J@$@K@@]8@K I?Q8K@@@DW )@@G@@/:@ I?"E@@@T"I^ J?[]C@@@C8@@@B[@C@@[/KF@@@9*#@@]9(]@@]/KF@@]C[?@@#/[) J%DX )@@G@@C^?@@]CC/@@]G@?@@@&;)@@[&;0@@[N@W@@#C/@__"C8K@@D;HK@[C8KK JQ/KF@@@')J>G%DY )@@G@@:9@@@+/K@ JW%9@@@-/K@ JZC9K@@[8KK JY/KF@@@')J>G%H9@@@0,@@@@K/KF@@@U9)@@EDZ )@@G@@/ :@@@; )@@>G[)@@K/0F@@@8KK JY/[K J%D[)@@MC90@@A/KF@@[KG@@@@K>@@@@K"K@@@EA )@@G@@LR4@@@L48)@@MIA*@@M$*M@@N^1FK@NX.Y^@N7W5>@OO%[ZCO!4-6'PBL%O*P=<]W9P.:3^BEB )@@G@@QRA\5DQ4WH9HRH19V4]Z$FWH#B)"W&N9TIW_87\-XW;+5?X6EV @@@@AR9KC#"/,0[[Y@@@A'V@@@C3''^@[[]/,0[[Y@@@A'V@@@C3LEG )@@G@@'^@[[]C*@A63/)@[F= @@A;P&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[F09* )@]9?@A;_EH )@@G@@9* )@]9?@A8T9* )@]/K@[1Q9*@B C9?@B C9*@B ^CC@B D+/@_"_[CKB DC@@A.$9?W@@@EI )@@G@@9*KB^*C@@A.$9?W@@]9*KB^,&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[GC9* )@]9?@B^,EJ )@@G@@9* )@]9?@B^*9* )@]/K@]1#/S@@@@C@@A.$G8@@@^[@@A.$C@@A.$H@@A.(/@@[GK/G@[F6EK )@@G@@C@@A.:9?W@@@9*KB^*&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[GX9* )@]9?@B^*9* )@]EL )@@G@@/K@#R(9*@B^,C@@A.:9?W@@]9*KB^4C@@B^49?KB^,9*W@@@C@@A.:G8@@@^[@@A.:C@@A.:EM )@@G@@H@@A.!/@@[G:/G@[GK9?@B ?9*@A'-9?@A8Z9*@A8EO )@@G@@9*W@@]C@@A9:9?KA9(9*W@@]C@@A/F9?KA/D9*W@@]C@@ K0'=@@@4C@@AW2;G@@@=W8@@@ EP )@@G@@[@@A;B @@A;C @@A"7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[HV9* )@]9?@A"-9* )@]EQ )@@G@@9?@A.79* )@]/K@[1Q9*@B^/&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[H*9* )@]9?@B CER )@@G@@9* )@]9?@A'>9* )@]/K@ #=9*@B^&&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[H39* )@]ES )@@G@@9?@B^&9* )@]/K@^0A/S@@@@ @@A;PC@@ K0'=@@@4C@@AW2;G@@@=W8@@@ [@@A"F @@A"GET )@@G@@9?@A"FH@@A;B9*@A;BC8@@@[[@@A;H/,0AK3'=@@@)/,0 37'=@@@)C@@ K0'=@@@4C@@AWZEU )@@G@@;G@@@=W8@@@ [@@A8;C8@@@A[@@A8/C@@A8;H/@[IC[@@A8;9?@A8;H@@A"F9*@A8;&9K@@]EV )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@[IV9* )@]/K@#)!/S@@@@/K@ F:/K@ F:/K@ F:/,0[[YEW )@@G@@@@@A'V@@@C2@@@9* )@]C8@[J;9* )@]/K@]?V/S@@@@/,0[[Y@@@A'V@@@C3U'^@[[]FE )@@G@@/,0[[Y@@@A'V@@@C1(C8@A;B'^K[@_'^@[[]/,0[[Y@@@A'V@@@C2LC8@A"F'^K[@_'^@[[]FF )@@G@@/,0[[Y@@@A'V@@@C19C8@A'['^K[@_C8@A9!'^K[@_'^@[[]/,0[[Y@@@A'V@@@C1-C8@A'_FG )@@G@@'^K[@_'^@[[]/,0[[Y@@@A'V@@@C2;C8@A; '^K[@_'^@[[]/,0[[Y@@@A'V@@@C3DC8@BBIFH )@@G@@'^K[@_'^@[[]*@@A'[/K@[K:9?@A/H9*@A"J/K@[K7C8@@]V"O@A'[C8)@@B9*KA'[C8@@]VFI )@@G@@"O@A"FC8)@@B9*KB^&C@@B^&"G@A'[C@KB^$9*@A"J/,0[[Y@@@A'V@@@C31C8@A"J'^K[@_FJ )@@G@@'^@[[](@@A9F/K@[L[C8@ GM'=@@[Q/K@[@@@@9* )@]C8@[LN9* )@]/K@ BN/S@@@@FL )@@G@@/K@ C/C^@B^([@@A"[ @@A"]C^@B^\[^@A"]9?@B]"9?)A"[/@@ E.C G@@[;D@@@]N@K@@KFM )@@G@@'K@ K12@?)@A/K@ E.%@/@@#/K@[L-&;@@@@9*@B^]C@@B^]/KGK@^C@@B^*"@@B^,C@KB^(FN )@@G@@9*@B^4/K@ D)9?@B^*G@@B^,/0@ EQ9*@B^4/K@ D)9?@B^*/@@[L99*@BASC8K@@C[@KBAUFO )@@G@@C^G@@[[@@BAVC8@BAS/,0 JD/K@ E.9()B^*/K@[L,9?@B^,/@@[M 9*@BAWC8K@@C[@KBAYFP )@@G@@C^G@@[[@@BAZC8@BAW/,0 JD/K@ E.9()B^,/K@[L,9?@B^*/@@[ML9*@BASC8K@@C[@KBAUFQ )@@G@@C^G@@[[@@BAVC8@BAS/,0 JD/K@ E.9()B^*/K@[L_&9K@@] @@@@HC8A@@@R9>@@@9* )@]FR )@@G@@C8@[MZ9* )@]/K@[YB9*@B^*/K@ C/&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[M!9* )@]FS )@@G@@9?@A;99* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^SC@)A;ZC@0A/H9!@A/V9(G@@][@/@@^FT )@@G@@[@?@@A9?)B^*9*?@@C9*@B^4/K@ DC^@B^(:8@@@A/K@[NUC^@B^(%8@@@FFV )@@G@@/K@ E.&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[NR9* )@]9?@B^*9* )@]/K@#]M9*@B^*FW )@@G@@/K@ D\/K@[N@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[N=9* )@]9?@B^*9* )@]/K@#U(FX )@@G@@9*@B^*9?@B^*9/@B^O/K@[N:C@@A"3:8@BEC/K@[O C8@@@_C8K__"[^WA,38#@[N!9?@B^*FY )@@G@@/@@[N59*@BAWC8K@@C[@KBAYC^G@@[[@@BAZC8)__.N@KBAZC@@BAWG^@BAYCCKBAY&;@@@[FZ )@@G@@&;K@@[/K@[O@')H>G/[^+A,38KK[N"9?@B^*9*@B^O9?@A/V9*@A"39?@BAS9*@BAO9?@BAUGA )@@G@@9*@BAQ*@@A87/K@[OLC@@A"V[@@BARC@@BARH@@BAN/@@[OL/G@ D09?@BAO9*@BAWC@@BARGB )@@G@@H@@BAN[@@@@IC@@BAN[@)BAZGC@BAQ;G@@@=W8@@@AG^@BAQ[^@BAY[CKBAYC8)A,3R8)BA)GC )@@G@@R80BAW/,0 H\/K@ D\/K@ D0C@@BA<[@@B^* @@B^(C@@BANG@@B^*[@@BAN/K@^+4C@@A"$GD )@@G@@G8@@@][@@A"$C@@B AG@@A"$9?W@@@9*KB^*9?@B^*9/@A"@@@9* )@]GF )@@G@@C8@[PD9* )@]9?@B^*9* )@]/K@#]M9*@B^*/K@ D\/K@[O2&9K@@] @@@@HC8A@@@R9>@@@GG )@@G@@9* )@]C8@[PQ9* )@]9?@B^*9* )@]/K@#U(9*@B^*9?@B^*9/@B^O/K@[PXC@@A"3:8@BEQGH )@@G@@/K@[O C8@@@_C8KA,3[^WA,38#@[PZ9?@B^*/@@[P$9*@BAWC8K@@C[@KBAYC^G@@[[@@BAZGI )@@G@@C8)__/N@KBAZC@@BAWG^@BAYCCKBAY&;@@@[&;K@@[/K@[P2')H>G/[^+A,38KK[P09?@B^*GJ )@@G@@9*@B^O9?@A/-9*@A"3/K@[O C@@A"$G8@@@][@@A"$C@@B AG@@A"$9?W@@@9*KB^*9?@B^*GK )@@G@@9/@A"@@@9* )@]C8@[QQ9* )@]9?@B^*9* )@]/K@#]M9*@B^*/K@ D\GM )@@G@@/K@[P_&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[Q<9* )@]9?@B^*9* )@]/K@#U(9*@B^*GN )@@G@@9?@B^*9/@B^O/K@[Q%C@@A"3:8@BE0/K@[O C8@@@_C8K__.[^WA,38#@[Q?9?@B^*/@@[Q4GO )@@G@@9*@BAWC8K@@C[@KBAYC^G@@[[@@BAZC8)__"N@KBAZC@@BAWG^@BAYCCKBAY&;@@@[&;K@@[GP )@@G@@/K@[Q_')H>G/[^+A,38KK[Q.9?@B^*9*@B^O9?@A.H9*@A"3/K@[O C@@A"$G8@@@][@@A"$GQ )@@G@@C@@B AG@@A"$9?W@@@9*KB^*9?@B^*9/@A"@@@9* )@]C8@[R<9* )@]GS )@@G@@9?@B^*9* )@]/K@#]M9*@B^*/K@ D\/K@[RG&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[R0GT )@@G@@9* )@]9?@B^*9* )@]/K@#U(9*@B^*9?@B^*9/@B^O/K@[R7C@@A"3:8@BFA/K@[SLC8@@@_GU )@@G@@C8K__/[^WA,38#@[R99?@B^*/@@[S[9*@BAWC8K@@C[@KBAYC^G@@[[@@BAZC8)A,3N@KBAZGV )@@G@@C@@BAWG^@BAYCCKBAY&;@@@[&;K@@[/K@[SG')H>G/[^+A,38KK[SE9?@B^*9*@B^O9?@A.ZGW )@@G@@9*@A"3C@@BAVH@@BAN/@@ D0/G@ D09?@BAS9*@BAWC@@BAVH@@BAN[@@@@IC@@BAN[@)BAZGX )@@G@@GC@BAU;G@@@=W8@@@AG^@BAU[^@BAY[CKBAYC8)A,3R8)BA)R80BAW/,0 H\/K@ D\/K@[S*GY )@@G@@(@@BA@@@9* )@]C8@[TIHB )@@G@@9* )@]/K@ ]<9*@B^*/K@ C/&9K__.9? )@@9*@B^&(@@B^*/K@ FAC@@B^*9?W@@^9*KB^*HC )@@G@@9?@B^*9?)A;\/@@ FAC G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ FA%@/@@#/K@[TZ&;@@@@HD )@@G@@9*@B^*C@@B^*9?W@@^9*KA"RC@@B^&[^@A"S&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[T4HE )@@G@@9* )@]9?@A"R9* )@]/K@#@@@9* )@]C8@[V]9* )@]/K@^GI9*@B^*/K@ C/HL )@@G@@C^@B^(:8@@@#/K@[V:C^@B^(%8@@@[/K@ E.9?@B^*/@@[VK9*@BAGC8K@@C[@KBAIC^G@@[HM )@@G@@[@@BAJC@@BAJ[@@B^Q @@B^R&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[V)9* )@]9?@A;9HN )@@G@@9* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^SC@)B^QC@0A/H9!@A/<9(G@@][@/@@^[@?@@AHO )@@G@@9?)B^*9*?@@C9*@B^*C@@B^*C^G@@[[@@B^% @@B^:9?@B^%G@@A;V9*@B^W&9K@@] @@@@HHP )@@G@@C8A@@@R9>@@@9* )@]C8@[V"9* )@]9?@B^W9* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^SHQ )@@G@@9*@B^4C@@A/NC^G@@[[@@B^W @@B^XC@@B^WC@KB^SC@)A/N9!I@@]9(H@@]9!I@@^G[@A/HHR )@@G@@:[@A/H @@@@KG[KA/H:[KA/HC[KA/H9(H@@^9!I@@AG[@A/HG[KA/H9(H@@AC^"@@#/@0[WUHS )@@G@@9!I@@C9(H@@CG80@@#;)0@@[H@@@@J/@@[W-G@K@@JG@)@@J/K@[WCG@K@@J[@KB^S9?@B^%HT )@@G@@G@@B^W9*@B^6C@@B^%C@KB^SC@)B^*9!I@@]9(H@@]9!I@@^G[@B^W:[@B^W @@@@KG[KB^WHU )@@G@@:[KB^WC[KB^69(H@@^9!I@@AG[@A/HG[KA/H9(H@@AC^"@@#/@0[W;9!I@@C9(H@@CG80@@#HV )@@G@@;)0@@[H@@@@J/@@[X]G@K@@JG@)@@J/K@[W(G@K@@J[@KB^S9?@A;;G@@A;;9*@B^WC@@B^WHW )@@G@@C@KB^SC@)A/P9!I@@]9(H@@]9!I@@^G[@B^6:[@B^6 @@@@KG[KB^6:[KB^6C[KA/H9(H@@^HX )@@G@@9!I@@AG[@A/HG[KA/H9(H@@AC^"@@#/@0[XW9!I@@C9(H@@CG80@@#;)0@@[H@@@@J/@@[XG8@@@][@@A">C@@B @G@@A">9?W@@@9*KB^*CC@B^(=8@@@^IC )@@G@@/K@[Y09?@B#=9?)B^*/@@[Y"C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@[Y"%@/@@#/K@[YSID )@@G@@&;@@@@9*@B^4C@@B^49?W@@^9*KB^4&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[Y!9* )@]IE )@@G@@9?@B^*9* )@]9?@B^49* )@]/K@^MZ9*@B^*/K@ C//K@ DI&9K@@] @@@@HC8A@@@R9>@@@IF )@@G@@9* )@]C8@[Y'9* )@]9?@B^*9* )@]/K@#@@@9* )@]C8@[Z69* )@]/K@ ]<9*@B^*/K@ C/(@@B^*/K@ F+&9K@@]9?@B^*IL )@@G@@9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[)C9* )@]/K@#+MIM )@@G@@9*@B^&/K@ C/C@@A/HH@@B^&/@@ C//C@ C/&9K__.9? )@@9*@B^*C@@B^*9?W@@^9*KB^*IN )@@G@@9?@B^*9?)A;\/@@ F+C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ F+%@/@@#/K@[)V&;@@@@IO )@@G@@9*@B^*C@@B^*9?W@@^9*KB^*C@@B^*9?W@@@9*KB^?C@@B^*9?W@@]9*KB^*&9K__.9? )@@IP )@@G@@9*@B^29? )@@9*@A;DC@@B^?H@@B^2/@@[)4/C@ F+/G@ F+C@@B^&;*@@@[[@@B^& @@B^$IQ )@@G@@C@@B^&G8@@@^[@@B^&C^@B^![@@B^? @@B^!C@@B^?;*@@@[[@@B^? @@B^!(@@A;D/K@[-EIR )@@G@@C@@B^?G8@@@^[@@B^?9?@B^?9*@B^2/K@[-QC@@B^*C^G@@[[@@B^2 @@B^3&9K__.9? )@@IS )@@G@@9*@A;D(@@A;D/K@[-Q9?@B^&G@@B^?9*@B^&C@@B^&H@@B^2/@@[-U/C@ C/C@@B^*G@@B^&IT )@@G@@9?W@@@9*KB^4/K@ D<&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[-$9* )@]/K@ ]<9*@B^*IU )@@G@@/K@ C/&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]IV )@@G@@C8@[-79* )@]/K@[YB9*@B^S/K@ C/&9K__.9? )@@9*@B^* @@A;F9?@A/H9*@B^+9?@A/[IW )@@G@@9*@B^&9?@B^*/@@[+B9*@BASC8K@@C[@KBAUC^G@@[[@@BAV&9K@@]9?@B^*9* )@]C8 @@@IX )@@G@@!8@CN&/K@ F7*@@A;F/K@[<7C8)A?3R8)BAWR80BAS/,0 H\/K@ F'/K@[<(C8@BAW/,0 JDIY )@@G@@/K@ F'9()B^?C@@A"1/KGL+V/K@[+Z/K@[+6/K@[+ZC@@BAVH8@@@[[@@BAVC@@BAUG@@ K&IZ )@@G@@!@@ K2'K@ K3[@@BAUC8)A?3R8)BA)R80BAS/,0 H\/K@ F'/K@[<0C8@BA)/,0 JD/K@ F'JA )@@G@@9()B^2C@@A"1/KGL+2/K@ F'/K@[<]/K@[+6&9K@@]9?@A/[9* )@]C8 @@@!8@CN&/K@ F7JB )@@G@@C@@B^?/@@ F'/G@ F'9?@B^?9*@B^2/K@[@@@9* )@]C8@[=QJI )@@G@@9* )@]9?@B^29* )@]9?@A8L9* )@]/K@[1Q9*@B^49?@B^49*@B^*C@@B^*9?KB^=9*W@@]JJ )@@G@@C@@B^+[^@B^$C@@B^2H/@@@][@@B^29?@B^*G@@B^29*@B^=C@@B^*G8@@@][@@B^*C@@B^*JK )@@G@@9?KB^&9*W@@]C@@B^*G8@@@][@@B^*&9K__.9? )@@9*@B^,C@@B^*9?KB^,9*W@@]C@@B^*JL )@@G@@G8@@@][@@B^*&9K__.9? )@@9*@B^,C@@B^*9?KB^,9*W@@]C@@B^+H/@@@[[@@B^+C@@B^+JM )@@G@@/@@[> /C@[=%C@@B^*9?KB^S9*W@@]C@@B^*G8@@@][@@B^*C@@B^*H@@B^=/@@[>H/C@ FQJN )@@G@@/G@[>]&9K__.9? )@@9*@B^,C@@B^*9?KB^,9*W@@]/K@ D@@@JP )@@G@@9* )@]C8@[>*9* )@]/K@[YB9*@B^?/K@ C/&9K__.9? )@@9*@B^&C^@B^!%8@@@^/K@ F4JQ )@@G@@9?@B^&9*@B^+C@@B^&/@@[&U/G@[&U&9K@@]9?@B^&9* )@]9?@B^+9* )@]9?@B^?9* )@]JR )@@G@@C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[&B9* )@]/K@#+M9*@B^*JS )@@G@@/K@ C/&9K__.9? )@@9*@B^?9? )@@9*@B^+9? )@@9*@B^&&9K@@]9?@B^*9* )@]C8 @@@JT )@@G@@!8@CN&/K@ F7C@@B^&H/@@@[[@@B^&/K@[>29?@A/H9*@B^4C@@B^?9?W@@]9*KB^,9?@B^?JU )@@G@@G@@B^,9*@B^,C@@B^?G8@@@][@@B^?C@@B^?9?W@@]9*KB^2C^@B^3[@@B^2 @@B^3C@@B^+JV )@@G@@H@@B^2/@@[&9/C@ EW&9K@@]9?@A/H9* )@]C8 @@@!8@CN&/K@ F7C@@B^+G8@@@[[@@B^+JW )@@G@@/K@[&:C@@B^?G8@@@][@@B^?C@@B^?9?W@@]9*KB^SC@@B^?G8@@@][@@B^?C@@B^?9?W@@]JX )@@G@@9*KB^=&9K__.9? )@@9*@B^*9?@B^*H@@B^=9*@B^*C@@B^*/@@[$I/G@ C/C@@B^*H@@B^SJY )@@G@@/@@ C//C@ C/9?@B^4G@@B^*9*@B^*C@@B^2H/@@@[[@@B^2C@@B^2/@@[$!C@@B^?G8@@@]JZ )@@G@@[@@B^?C@@B^?9?W@@]9*KB^SC@@B^?G8@@@][@@B^?C@@B^?9?W@@]9*KB^=C@@B^*U@@B^SKA )@@G@@/^@[$?;O@@@[C@)B^(9*KB^4/K@[$ C@@B^*;*@@@[[@@B^* @@B^(9?@B^,G@@B^*9*@B^*KB )@@G@@C8@@@D[^@B^(/K@ DIC@@A">G8@@@][@@A">C@@B @G@@A">9?W@@@9*KB^*CC@B^(=8@@@^KC )@@G@@/K@[(?C^@B^(:8@@@E/K@[%PC@@A">G8@@@][@@A">C@@B @G@@A">9?W@@@9*KB^,CC@B^\KD )@@G@@=8@@@^/K@[('9?@B#=9?)B^,/@@[*!C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@[*!%@/@@#KE )@@G@@/K@[*P&;@@@@9*@B^4C@@B^49?W@@^9*KB^4&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[*%KF )@@G@@9* )@]9?@B^,9* )@]9?@B^49* )@]/K@^MZ9*@B^,/K@ C//K@[*0C@@B^,9?W@@]9*KB^,KG )@@G@@C@@B^*9?KB^,9*W@@]9?@B#&9?)B^*/@@[(KC G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@[(KKH )@@G@@%@/@@#/K@[*'&;@@@@9*@B^4C@@B^49?W@@^9*KB^4&9K@@] @@@@HC8A@@@R9>@@@9* )@]KI )@@G@@C8@[(J9* )@]9?@B^,9* )@]9?@B^49* )@]/K@^N6/S@@@@(@@A8:/K@ DE9?@B#*9?)B^*KJ )@@G@@/@@ DEC G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ DE%@/@@#/K@[(T&;@@@@9*@B^]&9K@@]KK )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@[((9* )@]9?@B^]9* )@]/K@^;F/S@@@@/K@ FQ/K@ DEKL )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[(69* )@]9?@B^*9* )@]/K@#@@@KN )@@G@@9* )@]C8@[%E9* )@]9?@B^,9* )@]/K@#@@@9* )@]C8@[%<9* )@]/K@#+M9*@B^,/K@ C/&9K__.9? )@@9*@B^*KQ )@@G@@/K@[*0C@@A">G8@@@][@@A">C@@B @G@@A">9?W@@@9*KB^,CC@B^\>8@@@^/K@[:^&9K@@]KR )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@[%.9* )@]9?@B^,9* )@]/K@#@@@9* )@]C8@[:K9* )@]9?@A;9KT )@@G@@9* )@]9?@A8H9* )@]/K@[1Q9*@B^4C@@B^4C@KA/RN@KA/ &;@@@[&;K@@[M#H)@]C@@B^4KU )@@G@@9?KB^,9*W@@C/K@ D@@@9* )@]C8@[?D9* )@]9?@B^I9* )@]9?@B^49* )@]KY )@@G@@/K@^N6/S@@@@(@@A8:/K@ D19?@B#*9?)B^*/@@ D1C G@@[;D@@@]N@K@@K'K@ K12@?)@AKZ )@@G@@/K@ D1%@/@@#/K@[?N&;@@@@9*@B^]&9K@@]9?@B A9* )@]9?@A"$9* )@]9?@B^=9* )@]LA )@@G@@9?@B^&9* )@]9?@B^?9* )@]C8 @@@!8@CN&/K@ F7&9K@@]9?@A"V9* )@]9?@A;N9* )@]LB )@@G@@9?@A":9* )@]9?@A_[9* )@]9?@A"X9* )@]9?@A"Z9* )@]C8 @@@!8@CN&/K@ F7&9K@@]LC )@@G@@9?@B /9* )@]9?@B "9* )@]9?@BAG9* )@]9?@BAI9* )@]9?@BAK9* )@]9?@BAM9* )@]LD )@@G@@9?@BAS9* )@]9?@BAU9* )@]C8 @@@!8@CN&/K@ F79?@A":9*@A_[9?@A"X9*@A"Z&9K@@]LE )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@[!T9* )@]9?@B^]9* )@]/K@^;F/S@@@@/K@ FT&9K__.LF )@@G@@9? )@@9*@BAU9? )@@9*@BAS9? )@@9*@BAM9? )@@9*@BAK9? )@@9*@BAI9? )@@9*@BAGLG )@@G@@9? )@@9*@B "9? )@@9*@B /&9K__.9? )@@9*@A"Z9? )@@9*@A"X9? )@@9*@A_[9? )@@LH )@@G@@9*@A":9? )@@9*@A;N9? )@@9*@A"V&9K__.9? )@@9*@B^?9? )@@9*@B^&9? )@@9*@B^=LI )@@G@@9? )@@9*@A"$9? )@@9*@B A/K@^+4&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[,J9* )@]LJ )@@G@@9?@B^*9* )@]/K@#]M9*@B^*/K@ D\/K@[:+/K@ F,&9K__.9? )@@9*@B#/9? )@@9*@B#"LK )@@G@@9? )@@9*@B^@(@@B#//K@[\DC@@B#/C^G@@[[@@A.\ @@A.0C@@A.\G8@@@^[@@A.\&9K@@]LL )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@[,\9* )@]9?@A.\9* )@]9?@A.79* )@]/K@[1Q9*@A.1LM )@@G@@C@@A.1G@@A.\9?KB^@9*W@@@C@@A.\H/@@@][@@A.\C@@A.1G@@A.\9?KB#"9*W@@@C@@A.\LN )@@G@@H/@@@][@@A.\C@@A.\/@@ D(C@@B#/G@@A.\9?W@@@9*KB#"C@@A.1G@@A.\9?KB#"9*W@@@LO )@@G@@/K@[,;9?@A/H9*@A.\C8@@@^[@@A.\/K@[,G%:9@@@)/K@[0[C@@B^Y%9@@@(LR )@@G@@8#@[\7 @@@@M8#@[\4')J>G%:9@@@(G9)@@[:9@@@)/K@[\68#@[\\/K@[0[8^)[\4H@@B^YLS )@@G@@H@K@@G[@KBANC@@BAN[@@B^Y @@B^ZC@@A":C@KB^Y[@W@@^/K@^+4C@@A":H/@@@A[@@A":LT )@@G@@C@@A":H@@A_[/@@ D\/C@ D\/G@ FT(@@A87/K@[0H @@B^I/K@[\L*@@A;N/K@[0[/K@[\ILU )@@G@@9?@B @G@@A">9*@B @ @@A">/K@ DE&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[0X9* )@]LV )@@G@@/K@#J%/S@@@@/K@[0:C@@A.9%8@@@[/K@ DAC8)AX3R8)BASR80BAC/,0 H\/K@[0_/K@[1 LW )@@G@@9?@A"19*@B^4/K@ D<&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[039* )@]/K@#H;/S@@@@LX )@@G@@/K@[1]C@@A.9/KGL06/K@[1]/K@ DA/K@ DA/K@[1]/K@[1]/K@[1 /K@ DA/K@[0_9?@A/>LY )@@G@@9*@B^4/K@ D@@@LZ )@@G@@9* )@]C8@[1K9* )@]/K@#+M9*@B^&/K@ C//,0[AE@@@B^&@&O@@@/K@ D@&9K__.9? )@@MA )@@G@@9*@BB]9? )@@9*@BA=C@@BA=H8@J__/@@ F./C@ F.C^@BB#[^@BA$9?@BB09*@BB]C^@BA$MB )@@G@@[^@BB#C@@BB0G8@@@][@@BB09?@BB0G@@BA=9*@BB0C@@BB4H@@BB0/@@[2A/G@[2AC@@BB]MC )@@G@@C@KBA=&;@@@[G8K@@]/K@[15 @G)@@8#K[14C@@BB]C@KBB][@W@@@C@@BB]CCW@@[)8K@@]MD )@@G@@[C?@@[C@@BA=C@KBB][^H@@[R9Q@@@R[>@@]C@>@@^9?@BB]')I@@@/KI@@[C@@BB][@@BB0ME )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[2M9* )@]9?@BA=9* )@]/K@#J1/S@@@@/K@ ETMF )@@G@@/K@[1-&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[2X9* )@]/K@[YB9*@B^*/K@ C/&9K@@]MG )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@[2:9* )@]9?@A;99* )@]9?@A8H9* )@]/K@[1Q9*@B^SMH )@@G@@9?@B^SC@)A/HC@0A/H9!@A/-9(G@@][@/@@^[@?@@A9?)B^*9*?@@C9*@B^4/K@ DG%')H>HP8^)[3(/H)[30')H HZ/K@ D\/K@ D\/[0[33/H0 D\/K@ D\C@@BAJMN )@@G@@[@@B^, @@B^\C@@BANG@@B^,[@@BAN/K@^+4C@@A"$G8@@@][@@A"$C@@B AG@@A"$9?W@@@MO )@@G@@9*KB^,&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[4F9* )@]9?@B^,9* )@]/K@#]M9*@B^,MP )@@G@@/K@ D\C^@B^\:8@@@F/K@[4[9?@B AG@@A"$9*@B^*C@@B^*9?KB^,9*W@@IC^@B^\[^@A"^MQ )@@G@@9?@B#Y9?)A"#/@@ E.C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ E.%@/@@#/K@[4Z&;@@@@MR )@@G@@9*@B^]C@@B^]/KGK@^C9@@@[E@@B^,;G@@@=W8@@@E;G)@@A;*)@@AG8!@@0;@)@@AG9@@@[MS )@@G@@/^@[4(0@@B^,(@@B^,8^@[46;G)@@AG@) K49*)AWUC8@AWU[@@BAG @@BAH @@BAI[[@BAJMT )@@G@@/K@[3 (@@A87/K@[5[ @@B^I/K@[5^C^@B^![@@B^I @@B^J9?@A"VH@@B^I9*@B^IC@@B^IMU )@@G@@H@@A/H/@@[5F/G@ D0C@@B^,C@W@@A!@W@@AC@W@@AC@G@@^/@@[5NG@@B^,/K@[5H[@KB^WMV )@@G@@ @@B^XC@@B^WH@@B^I/@@[5T/C@ D0C@@A":G8@@@A[@@A":C@@A":H@@A"(/@@[5)/C@ F>MW )@@G@@C@@A":9?KA.R9*W@@]C@@BAN[@@B^Q @@B^RC@@A":9?KB^Q9*W@@^C@@A":9?KA;N9*W@@AMX )@@G@@&9K@@]9?@A"V9* )@]9?@B A9* )@]9?@A"$9* )@]9?@B^&9* )@]9?@B^?9* )@]C8 @@@MY )@@G@@!8@CN&/K@ F79?@B^I9*@A"V&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[6^9* )@]/K@^-WMZ )@@G@@/S@@@@/K@[6O/K@[6C/K@ DE&9K__.9? )@@9*@B^?9? )@@9*@B^&9? )@@9*@A"$9? )@@NA )@@G@@9*@B A9? )@@9*@A"V/K@^+4&9K__.9? )@@9*@B^?9? )@@9*@B^&9? )@@9*@A"$9? )@@NB )@@G@@9*@B A9? )@@9*@A"V*@@A;N/K@ D0/K@^+OC@@A"$G8@@@][@@A"$C@@B AG@@A"$9?W@@@NC )@@G@@9*KB^,C^@B^\[^@A"^9?@B#C9?)A"#/@@ E.C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ E.ND )@@G@@%@/@@#/K@[62&;@@@@9*@B^]C@@B^]/KGK@^(@@A87/K@[6" @@B^I/K@[7[C^@B^![@@B^INE )@@G@@ @@B^J9?@A"VH@@B^I9*@B^IC@@B^IH@@A/H/@@[7C/G@ FT&9K@@]9?@A"V9* )@]9?@B ANF )@@G@@9* )@]9?@A"$9* )@]9?@B^&9* )@]9?@B^?9* )@]C8 @@@!8@CN&/K@ F79?@B^I9*@A"VNG )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[7)9* )@]/K@^@@@9* )@]C8@[8G9* )@]9?@A;>NK )@@G@@9* )@]9?@A8T9* )@]/K@[1Q9*@B^&C@@B^'9?KA/;9*W@@@C@@B^'9?KA;$9*W@@]C@@B^'NL )@@G@@9?KB^&9*W@@^9?@B^&9*@B^'9?@B^'G@@A;>9*@B ]C@@B ]H/@@@E[@@B ]C@@B^'9?KA/ZNM )@@G@@9*W@@]C@@B^'G8@@@][@@B^' @@A.; @@B^8&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[80NN )@@G@@9* )@]9?@A_D9* )@]/K@#R(9*@B^*C@@B^*9?W@@^9*KB^G9?@B^G9?)A;7/@@[9BC G@@[NO )@@G@@;D@@@]N@K@@K'K@ K12@?)@A/K@[9B%@/@@#/K@[8;&;@@@@9*@B^,(@@A;H/K@]]EC@@B^,NP )@@G@@9?KB^'9*W@@^/K@[9T&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[9P9* )@]9?@B^'9* )@]NQ )@@G@@9?@A;79* )@]9?@B^G9* )@]/K@[,N9*@B^GC@@B^*9?KB^G9*W@@^9?@B^*9/@B ,/K@[9XNR )@@G@@/K@ DA&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[9>9* )@]/K@#J%/S@@@@/K@]]NC@@A.9NS )@@G@@:8@@@A/K@ DEC@@A.;G8@@@][@@A.;C@@B^'G@@A.;9?KA.[9*W@@@C@@A.;G8@@@][@@A.;NT )@@G@@9?@A.;9*@B +C@@A.9:8@@@[/K@[9.C@@A.9%8@@@ /K@]]H/K@[/2&9K@@] @@@@HC8A@@@NU )@@G@@R9>@@@9* )@]C8@[' 9* )@]/K@]5Z9*@B %/K@]]S/K@ EZ&9K@@] @@@@HC8A@@@R9>@@@NV )@@G@@9* )@]C8@['K9* )@]/K@#J%/S@@@@/K@]]KC@@A.9:8@@@[/K@['%C@@A.9:8@@@^/K@[;VNW )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@['+9* )@]9?@B %9* )@]/K@^84/S@@@@C@@A.9NX )@@G@@:8@@@ /K@[/2C@@A.9%8@@@A/K@]]K/K@[/:&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@['2NY )@@G@@9* )@]/K@]"X9*@B &/K@]]SC@@A.9:8@@@^/K@[;8C@@A.;G8@@@][@@A.;C@@B^'G@@A.;NZ )@@G@@9?KA.P9*W@@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[;C9* )@]9?@B %9* )@]/K@^84OA )@@G@@/S@@@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[;N9* )@]9?@B &9* )@]/K@^84/S@@@@OB )@@G@@C@@A.9:8@@@A/K@[/:C@@A.9%8@@@ /K@]]K/K@[/2&9K@@] @@@@HC8A@@@R9>@@@9* )@]OC )@@G@@C8@[;<9* )@]/K@]"X9*@B )/K@]]SC@@A.;G8@@@][@@A.;C@@B^'G@@A.;9?KA/X9*W@@@OD )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[;69* )@]9?@B %9* )@]/K@^84/S@@@@/K@[/ZOE )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[/@9* )@]/K@]"X9*@B )/K@]]SC@@A.;G8@@@]OF )@@G@@[@@A.;C@@B^'G@@A.;9?KA.X9*W@@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[/N9* )@]OG )@@G@@9?@B %9* )@]/K@^84/S@@@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[/Y9* )@]9?@B &OH )@@G@@9* )@]/K@^84/S@@@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[/(9* )@]9?@B )9* )@]OI )@@G@@/K@^84/S@@@@/K@[;OC@@A.;[^@A;^C@@B^'G@@B +9?KA;#9*W@@@/K@ DE&9K@@] @@@@HOJ )@@G@@C8A@@@R9>@@@9* )@]C8@[/'9* )@]/K@#H;/S@@@@/K@ E1C@@A.9:8@@@A/K@[/:C@@A.9OK )@@G@@%8@@@[/K@]]QC8)A>3R8)BASR80BAC/,0 H\/K@]]Q/K@]]N9?@A/.9*@A"PC8@@@#[@@A;1OL )@@G@@C@@A"1H@@A;3/@@[.O/G@[.O9?@A/;9*@A"PC8@@@B[@@A;1C@@A"1/KGL.P/K@[.X/K@["KOM )@@G@@/K@[_W/K@[.X/K@["K/K@[_W/K@[.XC@@A.;[^@A;^C@@B^'G@@B +9?KA;#9*W@@@&9K@@]ON )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@[.:9* )@]/K@]"X9*@B =/K@]]SC@@A.9%@@A;1/K@]]QOO )@@G@@C@@A.;G8@@@][@@A.;C@@B^'G@@A.;9?KA"P9*W@@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]OP )@@G@@C8@["[9* )@]9?@B =9* )@]/K@^84/S@@@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@["EOQ )@@G@@9* )@]/K@#H;/S@@@@/K@]]NC@@A.9%8@@@A/K@]]Q/K@ DE&9K@@] @@@@HC8A@@@R9>@@@OR )@@G@@9* )@]C8@["S9* )@]/K@]"X9*@B */K@]]SC@@A.9%@@A;1/K@]]QC@@A.;G8@@@][@@A.;OS )@@G@@C@@B^'G@@A.;9?KA"P9*W@@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[",9* )@]9?@B *OT )@@G@@9* )@]/K@^84/S@@@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@["79* )@]/K@#H;/S@@@@OU )@@G@@/K@]]NC@@A.9%8@@@A/K@[_#C@@A.;[^@A;^C@@B^'G@@B +9?KA;#9*W@@@/K@ DEC@@A.9OV )@@G@@%8@@@[/K@]]QC8)A>3R8)BASR80BAC/,0 H\/K@]]Q/K@]]NC@@A"1%8@@@#/K@[_O9?@A/.OW )@@G@@9*@A"PC8@@@#[@@A;1/K@[.XC@@A"1%8@@@A/K@]]Q9?@A/;9*@A"PC8@@@B[@@A;1/K@[.XOX )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[_=9* )@]/K@]"X9*@B W/K@]]SC@@A.9%@@A;1OY )@@G@@/K@]]Q&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@[_19* )@]/K@#H;/S@@@@/K@ E1C@@A.9OZ )@@G@@%8@@@A/K@]@ZC@@A.;G8@@@][@@A.;C@@B^'G@@A.;9?KA/_9*W@@@C@@A.;G8@@@][@@A.;PA )@@G@@9?@A.;9*@B EC@@A.;[^@A;^C@@B^'G@@B +9?KA;#9*W@@@C@@A.;G8@@@][@@A.;C@@B^'PB )@@G@@G@@A.;9?KA"P9*W@@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]@T9* )@]9?@B W9* )@]PC )@@G@@/K@^84/S@@@@C@@B^'G@@B E9?KA.;9*W@@@/K@ DEC@@A.9%8@@@[/K@]]QC8)A>3R8)BASPD )@@G@@R80BAC/,0 H\/K@]]Q/K@]]NC@@A"1%8@@@]/K@]@4&9K@@]9?@A/.9* )@]C8 @@@!8@CN&PE )@@G@@/K@ F7C8@@@#[@@A;1/K@]@_C@@A"1%8@@@ /K@]]Q&9K@@]9?@A/;9* )@]C8 @@@!8@CN&PF )@@G@@/K@ F7C8@@@B[@@A;1&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@][B9* )@]/K@]"X9*@B *PG )@@G@@/K@]]SC@@A.9%@@A;1/K@]]Q&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@][O9* )@]/K@#H;PH )@@G@@/S@@@@/K@]]NC@@A.9%8@@@A/K@]]QC@@A.;G8@@@][@@A.;&9K__.9? )@@9*@B^+C@@B^'PI )@@G@@G@@A.;9?KB^+9*W@@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@][!9* )@]9?@B *9* )@]PJ )@@G@@/K@^84/S@@@@C@@A.;[^@A;^C@@B^'G@@B +9?KA;#9*W@@@C@@A.;G8@@@][@@A.;C@@B^'PK )@@G@@G@@A.;9?KA"P9*W@@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]] 9* )@]9?@B W9* )@]PL )@@G@@/K@^84/S@@@@/K@ DEC8@C0B[@@A" /K@]]SC8@C0I[@@A" /K@]]SC8@C0Q[@@A" /K@]]SPM )@@G@@C8@C1A[@@A" /K@]]SC8@C1R[@@A" /K@]]SC8@C0X[@@A" C@@B^8G8@@@][@@B^8C@@B^'PN )@@G@@G@@B^89?KA/39*W@@@C@@B^8G8@@@][@@B^8C@@B^'G@@B^89?KA;#9*W@@@9?@B^89*@A.;PO )@@G@@C@@A"DG8@@@][@@A"DC@@A"DH@@A;:/@@]]\/C@ E:(@@A;P/K@] 9?@A"B9*@B^?C@@A.9PP )@@G@@:8@@@A/K@]]/C@@BAF[@@B^& @@B^$9?@B^?H@@B^&9*@B^?C@@B^?[@@A_YR8)A_VR80B@RPQ )@@G@@/,0 GPC@@A.9:8@@@A/K@]#)C@@A/#C#?@@]C@G@@^C8G@@C[@@]#TR@KA_&8K@@[PR )@@G@@C@@A_&;G@@@=W8@@@AC[)@@G/@K]#RG9)@@[G8[@@@C@/@@@N@! GG<@0 K,[[G@@@/,0[[YPS )@@G@@@@[@@U@@@@@@@8U@@@/K@]#YC8[)@@'^K[@_8^)]#W'^@[[]C@@A/#C#?@@]C@G@@^C8G@@CPT )@@G@@[@@]#5R@KA_VO^KA_X&8K@@[C@@A_Y;G@@@=W8@@@AC[)@@G/@K]#3G9)@@[G8[@@@C@/@@@PU )@@G@@N@! GG<@0 K,[[G@@@/,0[[Y@@[@@U@@@@@@@86@@@/K@]#'C8[)@@'^K[@_8^)]#8'^@[[]PV )@@G@@C@@B^?[@@A_YR8)A_VR80B@*/,0 GPC@@A" 9?W@@@9*KBAG9?W@@]9*KBAI @@A_"R8)A_;PW )@@G@@R80B[$/,0 GPR8)A_;R80BAG/,0 GPC@@A/#C#?@@]C@G@@^C8G@@C[@@]^+R@KA_;O^KA_.PX )@@G@@&8K@@[C@@A_";G@@@=W8@@@AC[)@@G/@K]^)G9)@@[G8[@@@C@/@@@N@! GG<@0 K,[[G@@@PY )@@G@@/,0[[Y@@[@@U@@@@@@@9<@@@/K@]^$C8[)@@'^K[@_8^)]^>'^@[[]C@@A/#C#?@@]C@G@@^PZ )@@G@@C8G@@C[@@]^"R@KB@*O^KB@%&8K@@[C@@B@:;G@@@=W8@@@AC[)@@G/@K]^/G9)@@[G8[@@@QA )@@G@@C@/@@@N@! GG<@0 K,[[G@@@/,0[[Y@@[@@U@@@@@@@9_@@@/K@] #C8[)@@'^K[@_8^)] [QB )@@G@@'^@[[]C@@A.9:8@@@A/K@ DE(@@A"5/K@ C/C8)A-3R8)BASR80BAC/,0 H\/K@ EZ/K@] LQC )@@G@@/K@ DEC@@ K!/,0A ('=@@@)/K@ E+C@@B]>G@@ K5+@@ K\;CK@@#H@@@@H)@@ K\[@KB]>QD )@@G@@9?@A_$9*@BAC9?@A_(9*@BAEC8)AY3R8)BASR80BAC/,0 H\/K@ EZ/K@ EZC@@A"1/KGM $QE )@@G@@/K@] !/K@] 7/K@]A[/K@]AF/K@] !&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@] 59* )@]QF )@@G@@/K@#;@/S@@@@/K@ DE&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@] _9* )@]/K@#;*/S@@@@QG )@@G@@/K@] C&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]AD9* )@]/K@#;//S@@@@/K@] C&9K@@]QH )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@]AN9* )@]/K@#;\/S@@@@/K@] C&9K__.9? )@@9*@B^?QI )@@G@@C@@A">G8@@@][@@A">C@@B @G@@A">9?W@@@9*KB^&CC@B^$=8@@@^/K@]A(C@@B^?H/@@@[QJ )@@G@@[@@B^?C@@B^?/@@ C//C@]AS/G@ FQ&9K@@]9?@B^?9* )@]C8 @@@!8@CN&/K@ F7C^@B^$QK )@@G@@[@@B^? @@B^!&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]A/9* )@]9?@B^?9* )@]/K@]APQL )@@G@@/S@@@@&9K__.9? )@@9*@B^?/K@]A+&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]BD9* )@]QM )@@G@@/K@[YB/S@@@@/K@ C/C8@BW=[@@A._C@@A._H@@A;./@@]BL/C@ D@C@@A._G8@@@][@@A._QN )@@G@@9?@A._9*@B^,C@@B^,C@W@@A[@KB^,(@@B^,/K@]BHC@@B^,9?KA"<9*W@@]/K@]BQ&9K@@]QO )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@]B$9* )@]/K@#+M9*@B^*/K@ C/&9K@@] @@@@HC8A@@@QP )@@G@@R9>@@@9* )@]C8@]B39* )@]9?@B^*9* )@]/K@#J19*@B^4/K@ C/C8@@@A[^@B^5/K@ D@@@9* )@]C8@]C@9* )@]/K@[YB9*@B^*/K@ C/&9K@@]9?@B^*QR )@@G@@9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]CK9* )@]/K@[YBQS )@@G@@9*@B^,/K@ C/&9K__.9? )@@9*@B^*9?@B^*9/@A"@@@9* )@]C8@]C59* )@]9?@A/B9* )@]9?@A8H9* )@]QV )@@G@@/K@[1Q9*@B^SC@@B^SC@KA/TN@KA/B&;@@@[&;K@@[M#H)@]C@@B^S9?KB^*9*W@@C9?@B^SQW )@@G@@9*@B^*/K@]D+C9@@@[E@@B^*;G@@@=W8@@@E;G)@@A;*)@@AG8!@@0;@)@@AG9@@@[/^@]D^QX )@@G@@0@@B^*(@@B^*8^@]DL;G)@@AG@) K49*)AWUC8@AWU[@@BA) @@BA- @@BA+[[@BA<&9K@@]QY )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@]D-9* )@]9?@A_H9* )@]/K@#R(9*@B^*C^@B^\:8@@@[QZ )@@G@@/K@]E$C^@B^\:8@@@#/K@]E$C^@B^\:8@@@A/K@]EBC^@B^\%8@@@F/K@ E.&9K@@] @@@@HRA )@@G@@C8A@@@R9>@@@9* )@]C8@]D'9* )@]9?@A/B9* )@]9?@A8H9* )@]/K@[1Q9*@B^SC@@B^SRB )@@G@@C@KA/TN@KA/B&;@@@[&;K@@[M#H)@]C@@B^S9?KB^,9*W@@C9?@B^S9*@B^,/K@]E$C9@@@[RC )@@G@@E@@B^,;G@@@=W8@@@E;G)@@A;*)@@AG8!@@0;@)@@AG9@@@[/^@]ED0@@B^,(@@B^,8^@]EQRD )@@G@@;G)@@AG@) K49*)AWUC8@AWU[@@BA) @@BA- @@BA+[[@BA<&9K@@] @@@@HC8A@@@R9>@@@RE )@@G@@9* )@]C8@]E&9* )@]9?@A_H9* )@]/K@#R(9*@B^,C^@B^([@@A"[ @@A"]C^@B^\[^@A"]RF )@@G@@9?@B#]9?)A"[/@@ E.C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ E.%@/@@#/K@]E3&;@@@@RG )@@G@@9*@B^]C@@B^]/KGK@^9?@B^*/@@]F[9*@BASC8K@@C[@KBAUC^G@@[[@@BAV9?@B^,/@@]FCRH )@@G@@9*@BAWC8K@@C[@KBAYC^G@@[[@@BAZC@@BAV[@@B^& @@B^$C@@BAZ[@@B^? @@B^!9?@B^&RI )@@G@@G@@B^?9*@B^&C@@B^&H@@A83/@@]FQ/C@ FN&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]F)RJ )@@G@@9* )@]9?@B^&9* )@]/K@#V#9*@B^49?@B^4/@@]F$9*@BAGC8K@@C[@KBAIC^G@@[[@@BAJRK )@@G@@ @@BAJR8)BAGR80BAS/,0 GPR8)BAGR80BAW/,0 GP/K@ D29?@B^*/@@]F69*@BAGC8K@@CRL )@@G@@[@KBAIC^G@@[[@@BAJC@@BAJ[@@B^Q @@B^R&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]GARM )@@G@@9* )@]9?@A;99* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^SC@)B^QC@0A/H9!@A/<9(G@@]RN )@@G@@[@/@@^[@?@@A9?)B^*9*?@@C9*@B^*C@@B^*C^G@@[[@@B^% @@B^:C@@B^,C^G@@[[@@B^0RO )@@G@@ @@B^19?@B^%G@@B^09*@B^W&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]G*9* )@]9?@B^WRP )@@G@@9* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^S9*@B^4C@@B^,C@W@@A!@W@@AC@W@@AC@G@@^RQ )@@G@@/@@]G3G@@B^,/K@]G![@KB^Y @@B^ZC@@B^%C@KB^SC@)B^*9!I@@]9(H@@]9!I@@^G[@A/HRR )@@G@@:[@A/H @@@@KG[KA/H:[KA/HC[KB^%9(H@@^9!I@@AG[@B^YG[KB^Y9(H@@AC^"@@#/@0]HERS )@@G@@9!I@@C9(H@@CG80@@#;)0@@[H@@@@J/@@]HLG@K@@JG@)@@J/K@]G8G@K@@J[@KB^SC@@B^0RT )@@G@@C@KB^SC@)B^,9!I@@]9(H@@]9!I@@^G[@B^%:[@B^% @@@@KG[KB^%:[KB^%C[KA/H9(H@@^RU )@@G@@9!I@@AG[@A/HG[KA/H9(H@@AC^"@@#/@0]H*9!I@@C9(H@@CG80@@#;)0@@[H@@@@J/@@]H\RV )@@G@@G@K@@JG@)@@J/K@]HQG@K@@J[@KB^S/K@ D<9?@B^,/@@]H89*@BAGC8K@@C[@KBAIC^G@@[RW )@@G@@[@@BAJC@@BAJ[@@B^Q @@B^R&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]IC9* )@]9?@A;9RX )@@G@@9* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^SC@)B^QC@0A/H9!@A/<9(G@@][@/@@^[@?@@ARY )@@G@@9?)B^,9*?@@C9*@B^,/K@]GL&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]IW9* )@]/K@[YBRZ )@@G@@9*@B^*/K@ C/C^@B^([^@A"^9?@B#^9?)A"#/@@]I\C G@@[;D@@@]N@K@@K'K@ K12@?)@ASA )@@G@@/K@]I\%@/@@#/K@]I$&;@@@@9*@B^]C@@B^]/KGK@^C@@B^*C^G@@[[@@B^& @@B^$&9K@@]SB )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@]I_9* )@]9?@B^&9* )@]9?@B^*9* )@]/K@[1Q9*@B^4SC )@@G@@C@@B^4C@KB^*N@KB^&&;@@@[&;K@@[M#H)@]/K@ D<&9K@@] @@@@HC8A@@@R9>@@@9* )@]SD )@@G@@C8@]JJ9* )@]/K@[YB9*@B^4/K@ C/&9K@@]9?@B^49* )@]C8 @@@!8@CN&/K@ F7&9K@@]SE )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@]JZ9* )@]/K@ ]<9*@B^,/K@ C/&9K__.9? )@@9*@B^4SF )@@G@@9?@B#+9?)B^,/@@ E.C G@@[;D@@@]N@K@@K'K@ K12@?)@C/K@ E.%@/@@ /K@]J:&;@@@@SG )@@G@@9*@B^*C@@B^*9?W@@]9*KB^*C^@B^5[@@A"[ @@A"]C^@B^([^@A"]9?@B#@9?)A"[/@@]KCSH )@@G@@C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@]KC%@/@@#/K@]K@&;@@@@9*@B^]C@@B^]/KGK@^SI )@@G@@C^@B^5%^@B^(/K@ C//K@ D@@@9* )@]C8@]K!9* )@]9?@A;_9* )@]9?@A8T9* )@]SL )@@G@@/K@[1Q9*@B^'9?@B^'G@@A;_9*@B ] @@A.; @@A"D9?@B^4/@@]K99*@BACC8K@@C[@KBAESM )@@G@@C^G@@[[@@BAF&9K@@]9?@B^'9* )@]C8 @@@!8@CN&/K@ F7C@@A"!/KGML[/K@]L /K@]N]SN )@@G@@/K@]L (@@BAF/K@]LN&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]LJ9* )@]/K@[7=/S@@@@SO )@@G@@/K@]M@/K@]LN/K@]L C8@@@#[@@A"!C@@A.;G8@@@][@@A.;C@@B^'G@@A.;9?KA/!9*W@@@SP )@@G@@&9K__.9? )@@9*@B^49?@B^'G@@A.;9*@B^'&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]L?SQ )@@G@@9* )@]9?@B^'9* )@]/K@^0A/S@@@@ @@B ] @@B^*&9K@@] @@@@HC8A@@@R9>@@@9* )@]SR )@@G@@C8@]L99* )@]9?@@JZ9* )@]/K@ C(/S@@@@C@@A"!/KGML;/K@ C//K@ FQ/K@ D@@@9* )@]C8@]MF9* )@]/K@ ]<9*@B^4ST )@@G@@/K@ C//K@]KGC8@@@][@@A"!9?@B^4/@@]MQ9*@BA)C8K@@C[@KBA+C^G@@[[@@BA@@@9* )@]C8@]M$9* )@]SV )@@G@@9?@B^&9* )@]/K@#V#9*@B^*9?@B^*/@@]M,9*@BAGC8K@@C[@KBAIC^G@@[[@@BAJ @@BAJSW )@@G@@R8)BAGR80BA)/,0 GPR8)BAGR80B@J/,0 GP&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]N@SX )@@G@@9* )@]9?@B^*9* )@]/K@#WE9*@B^4/K@]KI&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]NESY )@@G@@9* )@]/K@]"X9*@B )/K@ C/*@@BAF/K@ C/&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]NSSZ )@@G@@9* )@]9?@B )9* )@]/K@^84/S@@@@&9K__.9? )@@9*@B^4C8@@@F[^@B^5C8@@@#[@@A"!TA )@@G@@/K@]LZR8)A7VC[K K,R9@@@A[[OA7V8[@]N=R[@ K7 @@@@#C[KB^4/ K]N,C]@ K8[]@A7VTB )@@G@@C')@@]/K@]O!1@@@@L/K@]N4E[K@@LC90@@-[52@@@O9@@@["K)@@LH8)@]@/C)]N9E@)@@ITC )@@G@@R80@@[C@@ K9S@@@@I;?@@@[')#A7+?[K K*/K@]O["HK K%G8@@@["K0@@LH80@]@E@0@@JTD )@@G@@;DJ@@@[[@@@MH8@@@[R'@@@BC#@@@#/B@]OG/G@]OG/K@]ONC9K@@.')^&7@@@9* )@]C8@]P[9* )@]9?@A_H9* )@]TI )@@G@@/K@#R(9*@B^4/K@ D<9?@B^4/@@]PD9*@BA)C8K@@C[@KBA+C^G@@[[@@BA@@@9* )@]C8@]P<9* )@]9?@B^49* )@]/K@#U(9*@B^4TL )@@G@@/K@ D<9?@B^4/@@]P:9*@BA)C8K@@C[@KBA+C^G@@[[@@BA@@@9* )@]C8@]P99* )@]/K@ ]<9*@B^*/K@ C/ @@A;JTN )@@G@@9?@B^*/@@]Q]9*@BASC8K@@C[@KBAUC^G@@[[@@BAVC8)A33R8)BAWR80BAS/,0 H\/K@ F'TO )@@G@@/K@ F'C@@A"1/KGMQE/K@]QJ/K@ F'/K@ F'/K@]QJ&9K@@] @@@@HC8A@@@R9>@@@9* )@]TP )@@G@@C8@]QT9* )@]9?@A_F9* )@]/K@#R(9*@B^*&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]Q=TQ )@@G@@9* )@]9?@B^*9* )@]/K@#GI9*@B^2C^@A."G8@@@[[^@A."C^@A.":8@@J*/K@ FZ9?@A/HTR )@@G@@9*@B^?&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]Q;9* )@]9?@B^*9* )@]9?@A..9* )@]TS )@@G@@9?@B#+9* )@]/K@[,N9*@B#+C8 @@@H8@@@][@@B^= @@B^>&9K@@]9?@A..9* )@]9?@B^*TT )@@G@@9* )@]C8 @@@!8@CN&/K@ F7C@@BAVH8@@@[[@@BAVC@@BAUG@@ K&!@@ K2'K@ K3[@@BAUTU )@@G@@*@@A;J/K@]SWC8)A33R8)BAWR80BAS/,0 H\/K@ F'/K@ F'C@@A"1/KGMRT/K@ F'/K@]RYTV )@@G@@/K@]ST/K@]RY&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]R*9* )@]9?@A_F9* )@]/K@#R(TW )@@G@@9*@B^*&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]TX )@@G@@C8@]R99* )@]9?@B^*9* )@]/K@#GI9*@B^&C@@B^&9?W@@@9*KB^+9?@B^+9/@A"./K@]TCTY )@@G@@C@@B^&9?W@@]9*KB^4&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]SL9* )@]9?@B^?9* )@]TZ )@@G@@9?@A..9* )@]9?@B^49* )@]/K@[,N9*@B^4C@@B^&9?KB^49*W@@]C@@B^?G8@@@][@@B^?UA )@@G@@/K@]RCC8@@@[[@@A;J/K@]RY*@@BAV/K@ F'C@@B^?[^@A"'C@@B^29?KA"99*W@@@C@@B^=UB )@@G@@G8@@@][@@B^=C@@B^?G8@@@^[@@B^?&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]S59* )@]UC )@@G@@9?@B^?9* )@]9?@A..9* )@]/K@[1Q9*@B^4C@@B^=G@@B^?9?W@@@9*KB^SC@@B^4G@@B^?UD )@@G@@9?KB^S9*W@@@C@@B^?H/@@@][@@B^?C@@B^?/@@]T^/C@]S6C@@B^29?KB^49*W@@]/K@ D@UE )@@G@@C@@B^&9?KA".9*W@@@C@@B^&9?KA/H9*W@@]/K@]S@&9K@@] @@@@HC8A@@@R9>@@@9* )@]UF )@@G@@C8@]TR9* )@]/K@[YB/S@@@@/K@ C/'=@@@M[W@AWT;C@@@G[=@AWS;C@@@A[*@AWS;C@@@AUG )@@G@@[W@AWSC8@AWS[@@BA) @@BA- @@BA+C8@@@C[@@BAG8@@@][@@A">C@@B @G@@A">UI )@@G@@9?W@@@9*KB^*CC@B^(=8@@@^/K@]V\9?@B#=9?)B^*/@@]U1C G@@[;D@@@]N@K@@K'K@ K1UJ )@@G@@2@?)@A/K@]U1%@/@@#/K@]U^&;@@@@9*@B^4C@@B^49?W@@^9*KB^4&9K@@]9?@B^&9* )@]UK )@@G@@9?@B^+9* )@]9?@B^?9* )@]9?@B^,9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@UL )@@G@@R9>@@@9* )@]C8@]U>9* )@]9?@B^*9* )@]9?@B^49* )@]/K@^MZ9*@B^*/K@ C/&9K__.UM )@@G@@9? )@@9*@B^,9? )@@9*@B^?9? )@@9*@B^+9? )@@9*@B^&/K@]U4C@@B^*9?W@@]9*KB^*UN )@@G@@&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7C@@B^&H/@@@[[@@B^&C@@B^&/@@]V[/C@]T3UO )@@G@@/G@ FQC@@B^?9?W@@@9*KB^&C^@B^$[@@B^& @@B^$C@@B^+H@@B^&/@@]VP/C@]VP&9K@@]UP )@@G@@9?@A"<9* )@]C8 @@@!8@CN&/K@ F7C@@B^+G8@@@[[@@B^+/K@]VBC@@B^?9?W@@]9*KB^+UQ )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]V=9* )@]9?@B^&9* )@]9?@B^+9* )@]/K@[1QUR )@@G@@9*@B^4C@@B^,G8@@@][@@B^,C@@B^4C@KB^,N@KB^&&;@@@[&;K@@[M#H)@]/K@ D<&9K@@]US )@@G@@9?@B^&9* )@]9?@B^+9* )@]9?@B^?9* )@]9?@B^,9* )@]C8 @@@!8@CN&/K@ F7&9K@@]UT )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@]W 9* )@]9?@B^*9* )@]/K@#G8@@@][@@A">C@@B @G@@A">9?W@@@9*KB^*CC@B^(=8@@@^/K@]>#9?@B#=UY )@@G@@9?)B^*/@@]X:C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@]X:%@/@@#/K@]W"&;@@@@9*@B^4UZ )@@G@@C@@B^49?W@@^9*KB^4&9K@@]9?@B^&9* )@]9?@B^+9* )@]9?@B^?9* )@]9?@B^,9* )@]VA )@@G@@C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]XZ9* )@]9?@B^*9* )@]VB )@@G@@9?@B^49* )@]/K@^MZ9*@B^*/K@ C/&9K__.9? )@@9*@B^,9? )@@9*@B^?9? )@@9*@B^+VC )@@G@@9? )@@9*@B^&/K@]X,C@@B^*9?W@@]9*KB^*&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7VD )@@G@@C@@B^&H/@@@[[@@B^&C@@B^&/@@]X;/C@]W!/G@ FQC@@B^?9?W@@@9*KB^&C^@B^$[@@B^&VE )@@G@@ @@B^$C@@B^+H@@B^&/@@]YQ/C@]YJ&9K@@]9?@A"<9* )@]C8 @@@!8@CN&/K@ F7C@@B^+VF )@@G@@G8@@@[[@@B^+/K@]Y[&9K__.9? )@@9*@B^2C@@B^+H/@@@[[@@B^+/K@]Y[C@@B^?9?W@@]VG )@@G@@9*KB^29?@B^29*@B^*C@@B^2C^G@@[[@@B^+ @@B^<9?@B^2G@@B^+9*@B^=C@@B^&G8@@@[VH )@@G@@[@@B^&C@@B^*G8@@@][@@B^*C@@B^,G8@@@][@@B^,C@@B^*9?W@@]9*KB^4C@@B^49?W@@]VI )@@G@@9*KB^SC@@B^,9?W@@]9*KB^]C@@B^49?KB^]9*W@@]C@@B^,9?KB^S9*W@@]C@@B^&H/@@@[VJ )@@G@@[@@B^&C@@B^&/@@]Z[/C@]Y>/G@ FQC@@B^*G8@@@][@@B^*9?@B^*9/@B^=/K@]ZC/K@]ZSVK )@@G@@C@@B^*9?W@@]9*KB^4C@@B^49?W@@]9*KB^S&9K@@]9?@B^S9* )@]C8 @@@!8@CN&/K@ F7VL )@@G@@C@@B^49?KA"<9*W@@]/K@]Z[&9K@@]9?@A"N9* )@]9?@A999* )@]9?@A">9* )@]9?@B @VM )@@G@@9* )@]9?@B^29* )@]9?@B^29* )@]C8 @@@!8@CN&/K@ F7C@@B^29?W@@]9*KB^&C@@B^&VN )@@G@@9?W@@^9*KB^&9?@B^&9?)A;7/@@ F@C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ F@%@/@@#VO )@@G@@/K@]Z5&;@@@@9*@B^&C@@B^&9?W@@^9*KB @(@@A8_/K@])WC@@A8_H/@@@[[@@A8_C@@B^2VP )@@G@@9?W@@^9*KB^]&9K@@]9?@B^29* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@VQ )@@G@@9* )@]C8@])Q9* )@]9?@B^]9* )@]/K@#F#/S@@@@/K@ FQ/K@ FQ&9K__.9? )@@9*@B^2VR )@@G@@(@@A8:/K@]-BC@@B^29?W@@^9*KB^]9?@B#09?)B^]/@@]-BC G@@[;D@@@]N@K@@K'K@ K1VS )@@G@@2@?)@A/K@]-B%@/@@#/K@])*&;@@@@9*@B^]&9K@@]9?@B @9* )@]9?@B^29* )@]C8 @@@VT )@@G@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]-@9* )@]9?@B^]9* )@]/K@^;FVU )@@G@@/S@@@@/K@ FQ&9K__.9? )@@9*@B^29? )@@9*@B @C@@A' G8@@@[[@@A' 9?@B#89?)A'BVV )@@G@@/@@]-?C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@]-?%@/@@#/K@]-L&;@@@@9*@B^]&9K@@]VW )@@G@@9?@B @9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]-$9* )@]VX )@@G@@9?@B^]9* )@]/K@^;F/S@@@@/K@ FQ&9K__.9? )@@9*@B @ @@A">&9K@@] @@@@HC8A@@@VY )@@G@@R9>@@@9* )@]C8@]-59* )@]/K@#)!/S@@@@/K@]>@/K@]>09?@B 49*@A95&9K__.9? )@@VZ )@@G@@9*@B^2(@@A8_/K@]+VC@@A8_H/@@@[[@@A8_C@@B^29?W@@^9*KB^]&9K@@]9?@B^29* )@]WA )@@G@@C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]+P9* )@]9?@B^]9* )@]WB )@@G@@/K@ ]T/S@@@@/K@ FQ/K@ FQ&9K__.9? )@@9*@B^2(@@A8:/K@]@@@9* )@]C8@]+_9* )@]9?@B^]9* )@]/K@^;F/S@@@@/K@ FQ&9K__.9? )@@9*@B^2WF )@@G@@9? )@@9*@A95C@@A' H/@@@[[@@A' (@@A8:/K@]<19?@B#89?)A'B/@@]<1C G@@[;D@@@]WG )@@G@@N@K@@K'K@ K12@?)@A/K@]<1%@/@@#/K@]@@@9* )@]C8@]<%9* )@]9?@B^]WI )@@G@@9* )@]/K@^;F/S@@@@/K@ FQ&9K__.9? )@@9*@B^29? )@@9*@A95&9K__.9? )@@9*@B^2WJ )@@G@@9? )@@9*@B @9? )@@9*@A">9? )@@9*@A999? )@@9*@A"NC@@B^2C^G@@[[@@B^+ @@B^@@@9* )@]WR )@@G@@C8@]>T9* )@]9?@B^*9* )@]/K@#&&9K__.9? )@@9*@B^,9? )@@WS )@@G@@9*@B^?9? )@@9*@B^+9? )@@9*@B^&/K@]X,&9K__.9? )@@9*@B^,9? )@@9*@B^?9? )@@WT )@@G@@9*@B^+9? )@@9*@B^&/K@]W79?@B 29*@A95/K@]-'&9K@@] @@@@HC8A@@@R9>@@@9* )@]WU )@@G@@C8@]>;9* )@]/K@ ]<9*@B^*/K@ C/&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7&9K@@]WV )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@]&F9* )@]/K@ ]<9*@B^,/K@ C/&9K__.9? )@@9*@B^*WW )@@G@@9?@B^*/@@]&Q9*@BASC8K@@C[@KBAUC^G@@[[@@BAVC8)A33R8)BAWR80BAS/,0 H\/K@ F'WX )@@G@@/K@ F'C@@A"1%8@@@[/K@ F'&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]&%9* )@]9?@A_FWY )@@G@@9* )@]/K@#R(9*@B^*&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]&59* )@]9?@B^*9* )@]WZ )@@G@@/K@#GI9*@B^29?@B^,9/@A"@@@9* )@]C8@]$$9* )@]XD )@@G@@9?@A_F9* )@]/K@#R(9*@B^*&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7C@@B^?G8@@@[XE )@@G@@[@@B^?/K@]$DC@@B^?G8@@@[[@@B^?C@@B^?[^@A"/&9K@@] @@@@HC8A@@@R9>@@@9* )@]XF )@@G@@C8@]*[9* )@]9?@A_F9* )@]/K@#R(9*@B^*&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7XG )@@G@@C@@BAVH8@@@[[@@BAVC@@BAUG@@ K&!@@ K2'K@ K3[@@BAUC8)A33R8)BAWR80BAS/,0 H\XH )@@G@@/K@ F'/K@]*,C@@A"1%8@@@]/K@ F'&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]*<9* )@]XI )@@G@@9?@A_F9* )@]/K@#R(9*@B^*&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7C@@B^?G8@@@[XJ )@@G@@[@@B^?/K@]*C(@@BAV/K@](^&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]*'9* )@]9?@A_DXK )@@G@@9* )@]/K@#R(9*@B^*&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7C@@B^?G8@@@[[@@B^?XL )@@G@@C@@B^?G8@@@][@@B^?C@@B^?;*@@@[[@@B^& @@B^$&9K@@] @@@@HC8A@@@R9>@@@9* )@]XM )@@G@@C8@](R9* )@]9?@B^&9* )@]9?@A.79* )@]/K@[1Q9*@B^*C@@B^29?KA";9*W@@@C@@B^2XN )@@G@@9?KB^*9*W@@]9?@B^*G@@B^&9*@B^*C@@B^*H/@@@][@@B^*&9K__.9? )@@9*@B^,C@@B^*XO )@@G@@9?KB^,9*W@@]C@@B^?H/@@@[[@@B^?C@@B^?/@@ D@/C@](-9?@BAS9*@BAW9?@BAU9*@BAYXP )@@G@@C@@A/[[@@BAZC@)BAWG^)BAYCC0BAY&;)@@[&;0@@[C@@B[+G^@B[=CCKB[=&;@@@[&;K@@[XQ )@@G@@C[)BAZL[)B[>/H0]%BH[)@@N/K@]%B')J>G%')H>HP8^)]% /H)]%G')H HZ/K@ F'/K@ F'XR )@@G@@/[0]%J/H0 F'/K@ F'*@@B^?/K@ F'C@@B^?[^@A"//K@]*C&9K@@] @@@@HC8A@@@R9>@@@XS )@@G@@9* )@]C8@]%W9* )@]/K@#Y29*@B^*/K@ C/9?@B#=9?)B^*/@@]%,C G@@[;D@@@]N@K@@KXT )@@G@@'K@ K12@?)@A/K@]%,%@/@@#/K@]%>&;@@@@9*@B^4C@@B^49?KA/H9*W@@]9?@B#&9?)B^*XU )@@G@@/@@ D@C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ D@%@/@@#/K@]%5&;@@@@9*@B^4C@@B^4XV )@@G@@9?KA/H9*W@@]/K@ D@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]:B9* )@]/K@#Y=/S@@@@XW )@@G@@/K@ D@/K@ FQ/K@ C/&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]:N9* )@]/K@ BN/S@@@@XX )@@G@@/K@ C/C^@B^([@@A"[ @@A"]C^@B^\[^@A"]9?@B#A9?)A"[/@@ E.C G@@[;D@@@]N@K@@KXY )@@G@@'K@ K12@?)@A/K@ E.%@/@@#/K@]:-&;@@@@9*@B^]C@@B^]/KGK@^C@@A'_G8@@@[[@@A'_XZ )@@G@@C@@B^*;O@@@=W@@B^,C@KB^(9*@B^4/K@ D)9?@B^*/@@]:89*@BASC8K@@C[@KBAUC^G@@[YA )@@G@@[@@BAVC8@BAS/,0 JD/K@ E.9()B^*/K@]:(9?@B^,/@@]?^9*@BAWC8K@@C[@KBAYC^G@@[YB )@@G@@[@@BAZC8@BAW/,0 JD/K@ E.9()B^,/K@]:(9?@B^*/@@]?K9*@BASC8K@@C[@KBAUC^G@@[YC )@@G@@[@@BAVC8@BAS/,0 JD/K@ E.9()B^*/K@]:"C@@B^*"G@B^,C@KB^(9*@B^4/K@ D)*@@BBUYD )@@G@@/K@]\F/,0[[Y@@@A'V@@@C3]'^@[[]/,0[[Y@@@A'V@@@C2('^@[[]C8@BW=[@@B^=C@@B^=YE )@@G@@H@@A;./@@]?:/C@]\TC@@B^=G8@@@][@@B^=9?@B^=9*@B^,C@@B^,C@W@@A[@KB^,(@@B^,YF )@@G@@/K@]?$C@@B^,9?W@@]9*KB^*9?@B^*9/@A"@@@9* )@]C8@]!=9* )@]9?@B^*9* )@]/K@]2&YJ )@@G@@9*@B#//K@]!'/K@ FQC@@B#/9?W@@@9*KBAW9?W@@]9*KBAYC@@BAZ[@@B^& @@B^$9?@B^?YK )@@G@@G@@B^&9*@B^?C@@B^?H8@@H./@@]!6/C@]\OR8)B@BR80BAW/,0 GP/K@],SR8)B@BR80B[BYL )@@G@@/,0 GP/K@],S9?@B^*/@@],^9*@BAWC8K@@C[@KBAYC^G@@[[@@BAZC@@BAZ[@@B^& @@B^$YM )@@G@@9?@B^?G@@B^&9*@B^?C@@B^?H8@@H./@@],J/C@]\OR8)B@BR80B@R/,0 GPR8)B@BR80BAWYN )@@G@@/,0 GPR8)B@BR80B@R/,0 GPC@@A/#C#?@@]C@G@@^C8G@@C[@@],!R@KB@BO^KB@D&8K@@[YO )@@G@@C@@B@E;G@@@=W8@@@AC[)@@G/@K],:G9)@@[G8[@@@C@/@@@N@! GG<@0 K,[[G@@@/,0[[YYP )@@G@@@@[@@U@@@@@@[<,@@@/K@],2C8[)@@'^K[@_8^)],0'^@[[]/K@]?0C9@@@[E@@B^*;G@@@=YQ )@@G@@W8@@@E;G)@@A;*)@@AG8!@@0;@)@@AG9@@@[/^@],70@@B^*(@@B^*8^@]\^;G)@@AG@) K4YR )@@G@@9*)AWUC8@AWU[@@BAW @@BAX @@BAY[[@BAZ/K@]!?/,0[[Y@@@A'V@@@C2E'^@[[]/,0[[YYS )@@G@@@@@A'V@@@C2X'^@[[]/K@ C//,0[[Y@@@A'V@@@C25'^@[[]/K@]?0/,0[[Y@@@A'V@@@C20YT )@@G@@'^@[[]C@@A8(C^G@@[[@@B^& @@B^$C@@A8(G@@B^&9?W@@@9*KB^*C@@B^&H/@@@][@@B^&YU )@@G@@C@@A8(G@@B^&9?W@@@9*KB^,C9@@@[E@@B^,;G@@@=W8@@@E;G)@@A;*)@@AG8!@@0;@)@@AYV )@@G@@G9@@@[/^@]\,0@@B^,(@@B^,8^@]\;;G)@@AG@) K49*)AWUC8@AWU[@@BAW @@BAX @@BAYYW )@@G@@[[@BAZ9?@B^*/@@]0B9*@BASC8K@@C[@KBAUC^G@@[[@@BAV @@B@ER8)B@BR80B@*/,0 GPYX )@@G@@R8)B@BR80A_7/,0 GPR8)B@BR80BAS/,0 GPR8)B@BR80B@!/,0 GPR8)B@BR80BAW/,0 GPYY )@@G@@C@@A/#C#?@@]C@G@@^C8G@@C[@@]0!R@KB@BO^KB@D&8K@@[C@@B@E;G@@@=W8@@@AC[)@@GYZ )@@G@@/@K]0:G9)@@[G8[@@@C@/@@@N@! GG<@0 K,[[G@@@/,0[[Y@@[@@U@@@@@@[>,@@@/K@]02ZA )@@G@@C8[)@@'^K[@_8^)]00'^@[[]C@@B^&H/@@@][@@B^&*@@B^&/K@]\-/K@ C/&9K@@]9?@A/1ZB )@@G@@9* )@]9?@A.F9* )@]C8 @@@!8@CN&/K@ F7/K@#5!&9K__.9? )@@9*@B Y9? )@@9*@B^&ZC )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]1M9* )@]9?@B^&9* )@]/K@#R(9*@B^*C@@B^*ZD )@@G@@9?W@@^9*KB^49?@B^49?)A;\/@@]1,C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@]1,%@/@@#ZE )@@G@@/K@]1X&;@@@@9*@B^&C@@B^&9?W@@^9*KB^&C@@B^&C@KB Y9?!@@@9*?@@@C@@B^&9?KB^*ZF )@@G@@9*W@@]/K@ C/&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]1/9* )@]9?@B Y9* )@]9?@A;\ZG )@@G@@9* )@]9?@B^49* )@]/K@[,N9*@B^4C@@B^*9?KB^49*W@@^C@@B Y9?KB^*9*W@@]/K@ C/ZH )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]2G9* )@]/K@[YB9*@B#"/K@ C/C^@B#_[^@A"^ZI )@@G@@9?@B#+9?)A"#/@@ C/C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ C/%@/@@#/K@]2R&;@@@@ZJ )@@G@@9*@B^@C@@B^@9?W@@^9*KB^@R9Q@@@R[>@@]C@>@@^9?@B^@')I@@@/KI@@#&9K__.9? )@@ZK )@@G@@9*@B#"C^@B#_:8@@@^/K@]4]C^@B#_%8@@@B/K@]42R8)A7\C[K K,R9@@@A[[OA7\8[@]22ZL )@@G@@R[@ K7 @@@@#C[KB#"/ K]2/C]@ K8[]@A7\C')@@]/K@]3;1@@@@L/K@]3]E[K@@LC90@@-ZM )@@G@@[52@@@O9@@@["K)@@LH8)@]@/C)]3BE@)@@IR80@@[C@@ K9S@@@@I;?@@@[')#A76?[K K*ZN )@@G@@/K@]3J"HK K%G8@@@["K0@@LH80@]@E@0@@J;DJ@@@[[@@@MH8@@@[R'@@@BC#@@@#/B@]3UZO )@@G@@/G@]3U/K@]3-C9K@@.')^&77/G@]3)C9K@@0')^&778#@]3YC8@@J*;()@@DC[K@@M;DK@@[ZP )@@G@@U[K K'G9K@@0')^&778#@]3(/K@]328]@]3+!8@@B4/K@]36C9K@@0')^&778#@]3!C9K@@.ZQ )@@G@@')^&77/K@]36C9K@@.')^&77C8@@J*/K@]3(C])@@]H')A7\T')@@AG'=@@@H')@@[[])B ;ZR )@@G@@ @@@@G @@@@H9*@B 9C')A7\[])B 8/K@]5FC@@B#"C^G@@[[@@B^@ @@B^[9?@B^@G@@B#"ZS )@@G@@9*@B^@C@@B^@9?W@@@9*KB^@9?@B^@/@@]4M9*@BA)C8K@@C[@KBA+C^G@@[[@@BA@@]C@>@@^9?@A_ ')I@@@ZY )@@G@@/KI@@#&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]5T9* )@]/K@#+M9*@B^&/K@ C//,0[^&ZZ )@@G@@@@@B^&[%X@@@/K@ D@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]5$9* )@]/K@^/?9*@B GAA )@@G@@/K@ DAC8)A)3R8)BASR80BAC/,0 H\/K@]/./K@].@C@@A"1/KGM50/K@]59/K@]7K/K@]7UAB )@@G@@/K@]76/K@]8H/K@]7P/K@];L/K@]59C@@BAVH8@@@[[@@BAVC@@BAUG@@ K&!@@ K2'K@ K3AC )@@G@@[@@BAUC@@BAVH8@@@[[@@BAV&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]6I9* )@]9?@A_DAD )@@G@@9* )@]/K@#R(9*@B^*&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]6V9* )@]9?@A;<9* )@]AE )@@G@@9?@A.79* )@]/K@[1Q9*@B IC@@B I9?KA. 9*W@@C&9K@@] @@@@HC8A@@@R9>@@@9* )@]AF )@@G@@C8@]6:9* )@]9?@A;<9* )@]9?@A.79* )@]/K@[1Q9*@B KC@@B K9?KB^*9*W@@C9?@B IAG )@@G@@C^?@@DG8)@@[[^?@@D9?)B K9!G@@^9*I@@]9(I@@A9*?@@^*@@B G/K@]6.9?@B I9*@B^4AH )@@G@@/K@]7C9?@B GC^?@@DG8)@@[[^?@@D9?)B I9!G@@^9*I@@]9(I@@A9*?@@^9?@B G9*@B^4AI )@@G@@C@@B^4C@G@@](@@@@G/K@ D@@@9* )@]C8@]7=AK )@@G@@9* )@]9?@A_D9* )@]/K@#R(9*@B^*&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]719* )@]AL )@@G@@9?@A;<9* )@]9?@A.79* )@]/K@[1Q9*@B IC@@B I9?KB^*9*W@@C/K@]68&9K@@]9?@B GAM )@@G@@9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]8^9* )@]/K@]"XAN )@@G@@9*@B I/K@ C/&9K__.9? )@@9*@B GC@@A.9%8@@@#/K@].D/K@]68C@@BAVH8@@@[[@@BAVAO )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]8U9* )@]9?@A_D9* )@]/K@#R(9*@B^*&9K@@]AP )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@]8>9* )@]9?@B^*9* )@]/K@#GI9*@B^&&9K@@] @@@@HAQ )@@G@@C8A@@@R9>@@@9* )@]C8@]829* )@]9?@A;<9* )@]9?@A.79* )@]/K@[1Q9*@B IC@@B IAR )@@G@@9?KB^&9*W@@C(@@B G/K@]9[9?@B GC^?@@DG8)@@[[^?@@D9?)B I9!G@@^9*I@@]9(I@@AAS )@@G@@9*?@@^&9K@@]9?@B I9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]AT )@@G@@C8@]9J9* )@]/K@]"X9*@B I/K@ C/&9K__.9? )@@9*@B G9?@B GC^?@@DG8)@@[[^?@@DAU )@@G@@9?)B I9!G@@^9*I@@]9(I@@A9*?@@^9?@B I9*@B GC@@A.9:8@@@#/K@]' C@@A.9%8@@@]AV )@@G@@/K@].D&9K@@]9?@B G9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]AW )@@G@@C8@]939* )@]/K@]"X9*@B I/K@ C/&9K__.9? )@@9*@B GC@@B G9?KB I9?/@@]CA\@@DAX )@@G@@G')@@[[A\@@D9!W@@A9*.@@]9(X@@A9*W@@A9?@B I9*@B G/K@]9ZC@@B G9?W@@]9*KB IAY )@@G@@C@@B I9?W@@C9*KB^&C@@B^&9?W@@@9*KB^?C^@B^$[@@B^& @@B^$C^@B^![@@B^? @@B^!AZ )@@G@@C@@B^&H@@B^?/@@]7A/C@]7A&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]'=9* )@]9?@A;@@@BB )@@G@@9* )@]C8@]'49* )@]9?@A;<9* )@]9?@A.79* )@]/K@[1Q9*@B IC@@B I9?KA"<9*W@@CBC )@@G@@9?@B KC^?@@DG8)@@[[^?@@D9?)B I9!G@@^9*I@@]9(I@@A9*?@@^C@@B G9?KB K9?/@@]BD )@@G@@CA\@@DG')@@[[A\@@D9!W@@A9*.@@]9(X@@A9*W@@A9?@B K9*@B GC@@B^&G8@@@[[@@B^&BE )@@G@@/K@]'OC@@BAVH8@@@[[@@BAV&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@];Y9* )@]9?@A_DBF )@@G@@9* )@]/K@#R(9*@B^*&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@];:9* )@]9?@A;<9* )@]BG )@@G@@9?@A.79* )@]/K@[1Q9*@B IC@@B I9?KA.#9*W@@C(@@B G/K@];'9?@B GC^?@@DG8)@@[BH )@@G@@[^?@@D9?)B I9!G@@^9*I@@]9(I@@A9*?@@^9?@B I9*@B G&9K@@] @@@@HC8A@@@R9>@@@BI )@@G@@9* )@]C8@]/C9* )@]9?@A;<9* )@]9?@A.79* )@]/K@[1Q9*@B IC@@B I9?KB^*9*W@@CBJ )@@G@@9?@B GC^?@@DG8)@@[[^?@@D9?)B I9!G@@^9*I@@]9(I@@A9*?@@^9?@B I9*@B G&9K@@]BK )@@G@@9?@B G9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]/>9* )@]BL )@@G@@/K@]"X9*@B I/K@ C/&9K__.9? )@@9*@B GC@@B G9?KB I9?/@@]CA\@@DG')@@[[A\@@DBM )@@G@@9!W@@A9*.@@]9(X@@A9*W@@A9?@B I9*@B GC@@A.9:8@@@B/K@]7AC@@A.9%8@@@]/K@].DBN )@@G@@/K@]/RC8@C0=[@@A" /K@ C/C8@C1K[@@A" /K@ C/C8@C0_[@@A" /K@ C/C8@C07[@@A" BO )@@G@@/K@ C/C8@C1A[@@A" /K@ C/&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@].O9* )@]/K@#+MBP )@@G@@9*@B^*/K@ C/&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@BQ )@@G@@9* )@]C8@].=9* )@]/K@#+M9*@B^,/K@ C/&9K__.9? )@@9*@B^*C@@B^*H@@B^,/@@ D@BR )@@G@@/C@ C//G@ C/&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@].69* )@]/K@#+M9*@B^*/K@ C/BS )@@G@@&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]"ABT )@@G@@9* )@]/K@#+M9*@B^,/K@ C/&9K__.9? )@@9*@B^*C@@B^,C8K@@[C@0B^*1@@@@G/^@]"OBU )@@G@@/K@ EQU@0@@J/^0 EQ;^0@@>/)@]"SU@K@@J/^K EQ;^K@@>;C@@@[/^@]"LC@)B^(9*KB^4BV )@@G@@/K@ D)&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@]">9* )@]/K@]5Z9*@B M/K@ C//K@#[@@@BX )@@G@@9* )@]C8@]"89* )@]/K@]5Z9*@B M/K@ C//K@#]J&9K__.9? )@@9*@B U&9K@@] @@@@HBY )@@G@@C8A@@@R9>@@@9* )@]C8@]_A9* )@]/K@[0P9*@B Q/K@ C//K@#[@&9K@@] @@@@HC8A@@@BZ )@@G@@R9>@@@9* )@]C8@]_P9* )@]9?@A;<9* )@]9?@A.79* )@]/K@[1Q9*@B SC@@B S9?KB QCA )@@G@@9*W@@C*@@B U/K@]_$9?@B SC^?@@DG8)@@[[^?@@D9?)B M9!G@@^9*I@@]9(I@@A9*?@@^CB )@@G@@9?@B M9*@B U/K@]"%C@@B Q9?W@@]9*KB QC^@B R[@@B Q @@B RC@@B U9?W@@]9*KB OCC )@@G@@C@@B O9?W@@C9*KB^*C@@B^*9?W@@]9*KB^*C@@B^*H@@B Q/@@]_'/C@#@MC@@B U9?KB SCD )@@G@@9?/@@]CA\@@DG')@@[[A\@@D9!W@@A9*.@@]9(X@@A9*W@@A9?@B S9*@B U9?@B UC^?@@DCE )@@G@@G8)@@[[^?@@D9?)B M9!G@@^9*I@@]9(I@@A9*?@@^9?@B M9*@B U/K@]"%C@@B U9?KB MCF )@@G@@9?/@@]CA\@@DG')@@[[A\@@D9!W@@A9*.@@]9(X@@A9*W@@AC@@B UC@G@@](@@@@G/K@#[TCG )@@G@@C@@B U9?W@@]9*KB UC@@B UC@G@@](@@@@G/K@#[TC@@B U9?W@@]9*KB OC@@B O9?W@@CCH )@@G@@9*KB^*C@@B^*9?W@@]9*KB^*C@@B^*H@@B Q/@@#@4/C@#@W9?@B U9?0B SC^\@@DG8)@@[CI )@@G@@[^\@@D9*J@@^9?W@@]9*/@@]C@H@@^9*/@@A9*Z@@]/K@]"%*@@B U/K@#[ 9?@B M9*@B^*CJ )@@G@@/K@#[LC@@B U9?KB M9?/@@]CA\@@DG')@@[[A\@@D9!W@@A9*.@@]9(X@@A9*W@@A9?@B UCK )@@G@@9*@B^*C@@B^*C@G@@](@@@@G/K@ DIC@@B^*9?W@@]9*KB^*/K@#[L9?@B SC^?@@DG8)@@[CL )@@G@@[^?@@D9?)B U9!G@@^9*I@@]9(I@@A9*?@@^/K@]"%&9K@@] @@@@HC8A@@@R9>@@@9* )@]CM )@@G@@C8@#[\9* )@]9?@A;<9* )@]9?@A.79* )@]/K@[1Q9*@B UC@@B U9?KA. 9*W@@C&9K@@]CN )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@#[_9* )@]9?@A;<9* )@]9?@A.79* )@]/K@[1Q9*@B OCO )@@G@@C@@B O9?KA"<9*W@@C9?@B UC^?@@DG8)@@[[^?@@D9?)B O9!G@@^9*I@@]9(I@@A9*?@@^CP )@@G@@9?@B U9*@B^*/K@ DIC8@C1R[@@A" /K@ C/C8@@@[[@@A"!&9K__.9? )@@9*@B^*&9K@@]CQ )@@G@@9?@B @9* )@]9?@A">9* )@]9?@B A9* )@]9?@A"$9* )@]9?@B^=9* )@]9?@B^&9* )@]CR )@@G@@9?@B^?9* )@]9?@B^U9* )@]C8 @@@!8@CN&/K@ F7&9K@@]9?@A"V9* )@]9?@A;N9* )@]CS )@@G@@9?@A":9* )@]9?@A_[9* )@]9?@A"X9* )@]9?@A"Z9* )@]C8 @@@!8@CN&/K@ F7&9K@@]CT )@@G@@9?@B /9* )@]9?@B "9* )@]9?@BAG9* )@]9?@BAI9* )@]9?@BAK9* )@]9?@BAM9* )@]CU )@@G@@9?@BAS9* )@]9?@BAU9* )@]C8 @@@!8@CN&/K@ F79?@B^*9*@B @C8@@@][@@A">9?@A":CV )@@G@@9*@A_[9?@A"X9*@A"ZC@@B @G@@A">9?W@@@9*KB^*CC@B^(=8@@@^/K@#^"(@@A"!/K@##_CW )@@G@@9?@B#=9?)B^*/@@##/C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@##/%@/@@#/K@##$&;@@@@CX )@@G@@9*@B^4&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@##99* )@]9?@B^*9* )@]9?@B^49* )@]CY )@@G@@/K@^MZ9*@B^*/K@#^B/K@##_C@@B^*9?W@@]9*KB^*C8@@@][@@A"!/K@#^DC8@@@#[@@A"!CZ )@@G@@9?@B^*9*@B^4/K@#^DC8@@@[[@@A"!&9K__.9? )@@9*@BAU9? )@@9*@BAS9? )@@9*@BAMDA )@@G@@9? )@@9*@BAK9? )@@9*@BAI9? )@@9*@BAG9? )@@9*@B "9? )@@9*@B /&9K__.9? )@@DB )@@G@@9*@A"Z9? )@@9*@A"X9? )@@9*@A_[9? )@@9*@A":9? )@@9*@A;N9? )@@9*@A"V&9K__.DC )@@G@@9? )@@9*@B^U9? )@@9*@B^?9? )@@9*@B^&9? )@@9*@B^=9? )@@9*@A"$9? )@@9*@B ADD )@@G@@9? )@@9*@A">9? )@@9*@B @C@@A"!/KGN^9/K@ C//K@ DI/K@ D@@@9* )@]C8@# I9* )@]9?@B^*DF )@@G@@9* )@]/K@#@@@9* )@]C8@# %9* )@]/K@[YB9*@B^*/K@ C/C^@B^(:8@@@F/K@#A]C^@B^(DI )@@G@@:8@@@A/K@ DOC^@B^(%8@@@[/K@ E.9?@B^*9*@B^4&9K@@] @@@@HC8A@@@R9>@@@9* )@]DJ )@@G@@C8@# _9* )@]/K@]MI9*@B^*/K@ C//K@ FQ @@A"!/K@#]R(@@A87/K@#AC @@B^I/K@#AHDK )@@G@@*@@A;N/K@#A-C^@B^![@@B^I @@B^JC@@BAN[@@B^Y @@B^Z9?@B^YG@@B^I9*@B^YC@@B^YDL )@@G@@H@@A"V/@@#A-/C@#A-C@@BANG@@A/[[@@BANC@@BAN[@@B^Y @@B^ZC@@A":C@KB^Y[@W@@^DM )@@G@@/K@^+4C@@A":H/@@@A[@@A":C@@A":H@@A_[/@@ D0/C@ D0/G@ FT&9K@@] @@@@HC8A@@@DN )@@G@@R9>@@@9* )@]C8@#A19* )@]/K@ ]<9*@B^=/K@ C/ @@B@QR8)B@NR80B[7/,0 GPC9@@@[DO )@@G@@E@@A99;G@@@=W8@@@E;G)@@A;*)@@AG8!@@0;@)@@AG9@@@[/^@#A90@@A99(@@A998^@#BADP )@@G@@;G)@@AG@) K49*)AWUC8@AWU[@@BAS @@BAT @@BAU[[@BAVR8)B@NR80BAS/,0 GPR8)B@NDQ )@@G@@R80A__/,0 GPR8)B@NR80B[2/,0 GPC9@@@[E@@A' ;G@@@=W8@@@E;G)@@A;*)@@AG8!@@0DR )@@G@@;@)@@AG9@@@[/^@#BR0@@A' (@@A' 8^@#B=;G)@@AG@) K49*)AWUC8@AWU[@@BAS @@BATDS )@@G@@ @@BAU[[@BAVR8)B@NR80BAS/,0 GPR8)B@NR80B[?/,0 GP9?@B^=/@@#B69*@BASC8K@@CDT )@@G@@[@KBAUC^G@@[[@@BAVC@@BAV[@@B^U @@B^VC@@B^UH8@@H./@@#FB/C@#FBR8)B@NR80BASDU )@@G@@/,0 GPR8)B@NR80B[S/,0 GP @@B^+C@@B^+G8@@@[[@@B^+&9K@@] @@@@HC8A@@@R9>@@@DV )@@G@@9* )@]C8@#CO9* )@]9?@B^+9* )@]9?@B^=9* )@]/K@[ZF9*@B^4/K@#D8/K@ FQC@@B^4DW )@@G@@9?W@@]9*KB^4C^@B^5:8@@@[/K@#DUC^@B^5:8@@@A/K@#D^&9K@@] @@@@HC8A@@@R9>@@@DX )@@G@@9* )@]C8@#C%9* )@]9?@B^49* )@]/K@]2&9*@B#"/K@#D@/K@ FQC@@B#"9?W@@@9*KBASDY )@@G@@9?W@@]9*KBAUC@@BAV[@@A"! @@A",9?@B^UG@@A"!9*@B^UC@@B^UH8@@H./@@#FB/C@#FBDZ )@@G@@R8)B@NR80BAS/,0 GP/K@#D4R8)B@NR80B[B/,0 GP/K@#D4C9@@@[E@@B^4;G@@@=W8@@@EEA )@@G@@;G)@@A;*)@@AG8!@@0;@)@@AG9@@@[/^@#DA0@@B^4(@@B^48^@#DN;G)@@AG@) K49*)AWUEB )@@G@@C8@AWU[@@BAS @@BAT @@BAU[[@BAV/K@#C/9?@B^4/@@#D)9*@BASC8K@@C[@KBAUC^G@@[EC )@@G@@[@@BAVC@@BAV[@@A"! @@A",9?@B^UG@@A"!9*@B^UC@@B^UH8@@H./@@#FB/C@#FBR8)B@NED )@@G@@R80B@R/,0 GPR8)B@NR80BAS/,0 GPR8)B@NR80B@R/,0 GPR8)B@NR80B@2/,0 GP/K@#C EE )@@G@@C@@B^+:8@@@[/K@#D"C@@B@QH8@@@[[@@B@QR8)B@NR80B[+/,0 GPC@@ K0'=@@@4C@@AW2EF )@@G@@;G@@@=W8@@@ [@@B^4 @@B^59?@B^4H@@A"F9*@B^4C9@@@[E@@B^4;G@@@=W8@@@E;G)@@AEG )@@G@@;*)@@AG8!@@0;@)@@AG9@@@[/^@#EH0@@B^4(@@B^48^@#EU;G)@@AG@) K49*)AWUC8@AWUEH )@@G@@[@@BAS @@BAT @@BAU[[@BAVR8)B@NR80B[[/,0 GPR8)B@NR80BAS/,0 GPC@@A/#C#?@@]EI )@@G@@C@G@@^C8G@@C[@@#E;R@KB@NO^KB@P&8K@@[C@@B@Q;G@@@=W8@@@AC[)@@G/@K#E9G9)@@[EJ )@@G@@G8[@@@C@/@@@N@! GG<@0 K,[[G@@@/,0[[Y@@[@@U@@@@@@[_/@@@/K@#F@C8[)@@'^K[@_EK )@@G@@8^)#E"'^@[[]/K@ DE&9K__.9? )@@9*@B^=/K@#A3/,0[[Y@@@A'V@@@C25'^@[[]/K@ DEEL )@@G@@9?@A"R9*@B^?&9K@@]9?@B^?9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@EM )@@G@@9* )@]C8@#FW9* )@]/K@[YB9*@B^*/K@ C/9?@B^*9/@A"@@@9* )@]C8@#F29* )@]9?@B^*EO )@@G@@9* )@]/K@#U(9*@B^*C^@B^([^@A"^C@@B^?9?W@@]9*KB^,9?@B^,9?)A"#/@@ E.C G@@[EP )@@G@@;D@@@]N@K@@K'K@ K12@?)@A/K@ E.%@/@@#/K@#F_&;@@@@9*@B^2C@@B^29?W@@^9*KB^2EQ )@@G@@9?@B^*G@@B^29*@B^*C8@@@D[^@B^(/K@ DI&9K__.9? )@@9*@B^^C@@B^^9?W@@^9*KB^AER )@@G@@9?@B^A9?)A;\/@@#G%C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@#G%%@/@@#/K@#GV&;@@@@ES )@@G@@9*@B^AC@@B^A9?W@@^9*KB^AR9Q@@@R[>@@]C@>@@^9?@B^A')I@@@/KI@@[C@@A"LG8@@@^ET )@@G@@[@@A"LC@@A"LH8@@@O/@@#G1/C@#HJ9?@B^"G@@A"L9*@B^&&9K@@] @@@@HC8A@@@R9>@@@EU )@@G@@9* )@]C8@#H]9* )@]9?@B^&9* )@]9?@A;\9* )@]9?@B^A9* )@]/K@[,N9*@B^AC@@B^^EV )@@G@@9?KB^A9*W@@^C@@B^&9?KA_#9*W@@@C@@B^&9?KB^^9*W@@]9?@B^&9*@B^A/K@#G=&9K@@]EW )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@#HV9* )@]9?@A;!9* )@]9?@A.79* )@]/K@[1Q9*@B^"EX )@@G@@CC@B^_)8@@@^[CKB^_ ^@B^_C8@@@][@@A"L/K@#G1C@@A":G8@@@A[@@A":C@@A":H@@A"(EY )@@G@@/@@#H%/C@ F>C@@A":9?KA/59*W@@]C@@BAN[@@B^Q @@B^RC@@A":9?KB^Q9*W@@^C@@A":EZ )@@G@@9?KA;N9*W@@AC8@@@[[@@A;NC@@A.T/KGK@@/K@ DEC8)A<3R8)BASR80BAC/,0 H\/K@ EZFA )@@G@@/K@#I^9?@A"19*@A.9/K@ DA(@@A"5/K@ C/(@@A;P/K@#I=C@@A/#C#?@@]C@G@@^C8G@@CFB )@@G@@[@@#IXR@KA_&8K@@[C@@A_&;G@@@=W8@@@AC[)@@G/@K#IVG9)@@[G8[@@@C@/@@@FC )@@G@@N@! GG<@0 K,[[G@@@/,0[[Y@@[@@U@@@@@@]#Y@@@/K@#I+C8[)@@'^K[@_8^)#I)'^@[[]FD )@@G@@C@@ K!/,0A ('=@@@)/K@ E+C@@B]>G@@ K5+@@ K\;CK@@#H@@@@H)@@ K\[@KB]>9?@A_$FE )@@G@@9*@BAC9?@A_(9*@BAEC8)AY3R8)BASR80BAC/,0 H\/K@ EZ/K@ EZC@@A"1/KGNI'/K@#JYFF )@@G@@/K@#J@/K@#JE/K@#JO/K@#J@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#JC9* )@]/K@#;*FG )@@G@@/S@@@@/K@#I^&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#JM9* )@]/K@#;//S@@@@/K@#I^FH )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#JW9* )@]/K@#;\/S@@@@/K@#H;&9K@@] @@@@HFI )@@G@@C8A@@@R9>@@@9* )@]C8@#J&9* )@]/K@#;@/S@@@@9?@A;(9*@A.9/K@ DAC8)A$3R8)BASFJ )@@G@@R80BAC/,0 H\/K@ C//K@#I^/K@#I[&9K__.9? )@@9*@BBMC8 @@@H8@@@][@@BB] @@BB#FK )@@G@@9?@BB]H@@A"\9*@BB]C@@BB]C@KA"\[^H@@[9?@BB)9*@BA'C@@BB+G@@BA'9?W@@@9*KBBKFL )@@G@@(@@BBK/K@#KL&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#KK9* )@]9?@BBK9* )@]/K@#QIFM )@@G@@/S@@@@C@@BA'H/@@@][@@BA'C@@BA'/@@#KS/C@#K@/G@ E'C8@BW=[@@BA"C@@BA"H@@A;.FN )@@G@@/@@#KY/C@#LAC@@BA"G8@@@][@@BA"9?@BA"9*@BB=C@@BB=C@W@@A[@KBB=(@@BB=/K@#KUFO )@@G@@C@@BB=CCG@@[=8@@@)/K@#K@@@9* )@]C8@#L^FQ )@@G@@9* )@]9?@BBG9* )@]/K@#QI/S@@@@/K@#K<9?@BB29*@BBA9?@BB29*@BB?C@@BB?CCW@@[FR )@@G@@C^G@@[/)K#LNH8@@@[;O@@@=W8@@@G;)@@@[G8@@@CG8@@@][@@BA8C@@BB?CCG@@[>8@@@)FS )@@G@@/K@#L=9?@BBAG@@BA89*@BBA9?@BB?G@@BA89*@BB?C@@BB?H@@BB0/@@#M#/C@ E'/G@#LEFT )@@G@@9?@BB?9*@BBS9?@BB?G@@BA89*@BB?C@@BB?H@@BB0/@@#M#/C@ E'C@@BB?CCW@@[C^G@@[FU )@@G@@/)K#L6H8@@@[;O@@@=W8@@@G;)@@@[G8@@@CG8@@@][@@BA8C@@BB?CCG@@[>8@@@)/K@#L&FV )@@G@@C@@BB?C@KBBA[@W@@@9?@BBAG@@BA89*@BBA/K@#L&C8@BW=[@@BA"C8@@@[[@@BBUC@@BA"FW )@@G@@H@@A;./@@#MF/C@#M&C@@BA"G8@@@][@@BA"9?@BA"9*@BB=9?@BB=9*@BB&C@@BB=C@W@@AFX )@@G@@[@KBB=(@@BB=/K@#M+C@@BB=CCG@@[>8@@@)/K@#MMC@@BB=C@W@@@[@KBB]C@@BB&C@KBB]FY )@@G@@[@W@@A/K@#MKC@@BB&C@KA/H[@W@@A/K@#MB9?@BB29*@BB?C@@BB?CCW@@[C^G@@[/)K#M1FZ )@@G@@H8@@@[;O@@@=W8@@@G;)@@@[G8@@@CG8@@@][@@BA'C@@BB?CCG@@[=8@@@[/K@#M'9?@BA'GA )@@G@@9*@BA8/K@#M/C8@@@A[@@BA8C@@BB?CCG@@[>8@@@)/K@#N(C@@BA8H/@@@][@@BA8C@@BB?GB )@@G@@G@@BA89?W@@@9*KBBC(@@BBC/K@#N+CC@BBD>8@@[@/K@#N+C@@BBCH@@BBS/@@#NK/G@#N+GC )@@G@@9?@BBC&;@__.C8)@@]>C?)@[/K@#NN'K@ K;9*@BB%H@@BBC#@@BBY @@BBZC@@BB%C@G@@@GD )@@G@@G@@BBY[@@BBCC@@BB?G@@BA89?KBBC9*W@@@C@@BA8H/@@@][@@BA8C@@BA8/@@#N(/C@#N#GE )@@G@@/G@ E'9?@BB?G@@BA'9*@BB?C@@BB?H@@BB0/@@#N1/C@ E'/G@#M*9?@BB)9*@BA'C@@BB+GF )@@G@@G@@BA'9?W@@@9*KBB?(@@BB?/K@#O8@@[@/K@#OWC@@BBCH@@BBS/@@#OE/G@#OW9?@BBC&;@__.GH )@@G@@C8)@@]>C?)@[/K@#OH'K@ K;9*@BB%H@@BBC#@@BBY @@BBZC@@BB%C@G@@@G@@BBY[@@BBCGI )@@G@@C@@BB?G@@BA89?KBBC9*W@@@C@@BA8H/@@@][@@BA8C@@BA8/@@#O8@@@)/K@#P-C@@BB?C@W@@@[@KBB%C@@BB%GN )@@G@@C@KBB?9?!@@@9*?@@@C@@BB%CCW@@[+/K__Z[C?@@[C@@BB%C@KBB?N@KBA8&;@@@[&;K@@[GO )@@G@@M#H)@]9?@BB?G@@BA'9*@BB?C@@BB?H@@BB0/@@#P(/C@ E'/G@#O?C@@BBIG8@@@[[@@BBIGP )@@G@@ @@BBUC@@BB%CCW@@[C^G@@[/)K#P6H8@@@[;O@@@=W8@@@G;)@@@[G8@@@CG8@@@][@@BA8GQ )@@G@@9?@BB%G@@BA89*@BB0CC@BB1+/@__;[CKBB19?@BB4H@@BB09*@BBOCC@BBP+/@_"_[CKBBPGR )@@G@@C@@BBMH@@BBO/@@#QC/C@ C/R9Q@@@R[>@@]C@>@@^9?@BBO')I@@@/KI@@]&9K__.9? )@@GS )@@G@@9*@BA6&9K@@]9?@A/H9* )@]C8 @@@!8@CN&/K@ F7C@@BA6C^G@@[[@@BA8 @@BA9C@@BA6GT )@@G@@G@@BA89?W@@@9*KBBC(@@BBC/K@#Q2CC@BBD>8@@[@/K@#Q29?@BBC&;@__.C8)@@]>C?)@[GU )@@G@@/K@#Q$'K@ K;9*@BB%H@@BBC#@@BBY @@BBZC@@BB%CCG@@[>8@@@)/K@#Q9C@@BA8H/@@@]GV )@@G@@[@@BA8C@@BA8/@@#RO/C@#QV/G@ E'C@@BA8H/@@@][@@BA8C@@BA8/@@#RB/G@ E'C@@BA8GW )@@G@@[^@BA7&9K@@]9?@BA69* )@]C8 @@@!8@CN&/K@ F79?@BB%9*@BA6C@@BA6CCW@@[)8K@@)GX )@@G@@[C?@@[C@@BA6CCG@@[>8@@@[/K@#QR9?@BB,9*@BA8/K@#QV&9K__.9? )@@9*@BA6(@@BA6GY )@@G@@/K@ C/C^@BA7[@@BA8 @@BA9/K@#QV&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#R>9* )@]GZ )@@G@@/K@#2"/S@@@@/K@ D@/K@ FQ/K@ C/ @@BB^&9K__.9? )@@9*@BA?C@@BA?9?W@@@9*KBA,HA )@@G@@9?W@@]9*KBA0(@@BA1/K@ C6C@)BA,G^)BA0CC0BA0&;)@@[&;0@@[C[K K/C@KBA1!8K@@BHB )@@G@@C8K@@A/K@#S[')J>G%T[K@@K-[@@@L8#K#R";DK@@#+9K@#_G9)@@#!9)@#_C9)@#_;()@@[HC )@@G@@[[)BBE;DK@@C+9KJ__[ )BBF9?@BBWG@@BBE9*@BA*9?@BA*9*@BA%C@@BA*C@W@@A[@KBA*HD )@@G@@(@@BA*/K@#T#C@@BA*C^G@@BH^@BBF/@@#SW/C@#T#/G@#SJ9?@BA*/@@#S+9*@BA2C8K@@CHE )@@G@@[@KBA4C^G@@[[@@BA5C@)BA,G^)BA0CC0BA0&;)@@[&;0@@[C@@BA2G^@BA4CCKBA4&;@@@[HF )@@G@@&;K@@[C[)BA1L[)BA5/H0#S4H[)@@N/K@#S4')J>G%')H>HP8^)#S2/H)#S9')H HZ/K@#SJHG )@@G@@/K@#SJ/[0#S//H0#SJ/K@#SJ9?@BA*9*@BBQ(@@BB^/K@#UO9?@BB*9*@BB0/K@#UO(@@BB^HH )@@G@@/K@#TG9?@BB*9*@BBQ9?@BA,9*@BA29?@BA09*@BA4/K@#U C@@BA1[@@BA? @@BA!C@@BA?HI )@@G@@H8@@@[;O@@@=W8@@@G;)@@@[G8@@@C[@@BA/ @@BA.C@@BA/H8@J__/@@#TV/C@ FN9?@BB0HJ )@@G@@9*@BBQC8@@@[[^@BBRC@@BB0G8@@@][@@BB09?@BB0G@@BA/9*@BB0C@@BB4H@@BB0/@@#UUHK )@@G@@/G@#UUC@@BBQC@KBA/&;@@@[G8K@@]/K@#T\ @G)@@8#K#T,C@@BBQC@KBBQ[@W@@@C@@BBQHL )@@G@@CCW@@[)8K@@#[C?@@[C@@BA?C@KBBQ[^H@@[9?@BBQ/@@#U@9*@BA2C8K@@C[@KBA4C^G@@[HM )@@G@@[@@BA5 @@BA5R8)BA2R80BA,/,0 GPC@@BBQC^KBBF[^W@@BC@@BBQ9?KA"<9*W@@]C@@BBQHN )@@G@@C@KBA*[@W@@AC@@BA%C@KBBQ[@W@@AC@@A"7G8@@@[[@@A"7R9Q@@@R[>@@]C@>@@^9?@BBQHO )@@G@@')I@@@/KI@@[C@@BBQ[@@BB0&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#U&9* )@]9?@BA/HP )@@G@@9* )@]/K@#J1/S@@@@/K@ ET/K@#TV @@BB^&9K__.9? )@@9*@BA?C9@@@[E@@BA?;G@@@=HQ )@@G@@W8@@@E;G)@@A;*)@@AG8!@@0;@)@@AG9@@@[/^@#U\0@@BA?(@@BA?8^@#U/;G)@@AG@) K4HR )@@G@@9*)AWUC8@AWU[@@BA, @@BA\ @@BA0[[@BA1/K@#R4&9K__.9? )@@9*@BA?(@@BA?/K@ C6HS )@@G@@C8@@@[[@@BB^C@@BA?H8@@@[;O@@@=W8@@@G;)@@@[G8@@@C[@@BA/ @@BA.C@@BA/H8@J__HT )@@G@@/@@#VQ/C@ FN9?@BB09*@BB*C8@@@[[^@BB(C@@BB0G8@@@][@@BB09?@BB0G@@BA/9*@BB0HU )@@G@@C@@BB4H@@BB0/@@#V;/G@#V;C@@BB*C@KBA/&;@@@[G8K@@]/K@#V% @G)@@8#K#V(C@@BB*HV )@@G@@C@KBB*[@W@@@C@@BB*CCW@@[)8K@@#[C?@@[C@@BA?C@KBB*[^H@@[R9Q@@@R[>@@]C@>@@^HW )@@G@@9?@BB*')I@@@/KI@@[C@@BB*[@@BB0&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#WB9* )@]HX )@@G@@9?@BA/9* )@]/K@#J1/S@@@@/K@ ET/K@#VQ&9K__.9? )@@9*@BA?(@@BA?/K@ C69?@BA?HY )@@G@@/@@#WP9*@BA,C8K@@C[@KBA0C^G@@[[@@BA1/K@#R4&9K@@] @@@@HC8A@@@R9>@@@9* )@]HZ )@@G@@C8@#WZ9* )@]/K@[YB9*@B @/K@ F#C^@B [%8@@@C/K@ F@ @@A">/K@ DEC@@A">G8@@@]IA )@@G@@[@@A">C@@B @G@@A">9?W@@@9*KB^*CC@B^(=8@@@^/K@#X"(@@A8:/K@#XO9?@B#?9?)B^*IB )@@G@@/@@#XOC G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@#XO%@/@@#/K@#W9&;@@@@9*@B^]&9K@@]IC )@@G@@9?@B^*9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#XJ9* )@]ID )@@G@@9?@B^]9* )@]/K@^;F/S@@@@/K@ FQ&9K__.9? )@@9*@B^*9?@B^*9/@B 4/K@#XVR9Q@@@IE )@@G@@R[>@@]C@>@@^/KI@@A9?@B^*9/@B 0/K@#X+R9Q@@@R[>@@]C@>@@^/KI@@^9?@B^*9/@B 2IF )@@G@@/K@#X(R9Q@@@R[>@@]C@>@@^/KI@@ C@@B^*9?W@@^9*KB^49?@B^49?)A;7/@@ F@C G@@[IG )@@G@@;D@@@]N@K@@K'K@ K12@?)@A/K@ F@%@/@@#/K@#X3&;@@@@9*@B @C@@B @9?W@@^9*KB @IH )@@G@@ @@A">/K@ DE&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#YC9* )@]9?@B^*9* )@]/K@#G8@@@][@@A">C@@B @IJ )@@G@@G@@A">9?W@@@9*KA">/K@ DE&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#Y)9* )@]/K@#$:IK )@@G@@/S@@@@/K@ D@/K@ FQ/K@ C/&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#Y?9* )@]/K@ BNIL )@@G@@/S@@@@/K@ C/9?@B^*9/@B^,/K@ C//K@ D@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#Y'IM )@@G@@9* )@]/K@[YB9*@B^*/K@ C/C^@B^([^@A"^9?@B#E9?)A"#/@@ E.C G@@[;D@@@]N@K@@KIN )@@G@@'K@ K12@?)@A/K@ E.%@/@@#/K@#Z &;@@@@9*@B^]C@@B^]/KGK@^*@@B^*/K@ DI/K@ F1IO )@@G@@/K@ EE9?@A999*@A91C@@A">G8@@@][@@A">C@@ K0'=@@@4C@@AW2;G@@@=W8@@@ [@@B^&IP )@@G@@ @@B^$9?@B^&H@@A"F9*@B^&C@@B^&H@@A8;/@@ E7/C@ E7C@@B @G@@A">9?W@@@9*KB^&IQ )@@G@@C@@B^&[@@A99C^@B^$[@@A"N @@A"OC@@A'[H@@A8\/@@ E4/C@ E4C@@A'[G8@@@[[@@A'[IR )@@G@@(@@A8:/K@ DE9?@B#89?)A'#/@@ DEC G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ DE%@/@@#IS )@@G@@/K@#Z.&;@@@@9*@B^]&9K@@]9?@A919* )@]9?@A999* )@]9?@A"N9* )@]9?@B @9* )@]IT )@@G@@9?@A">9* )@]9?@A"R9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]IU )@@G@@C8@#)X9* )@]9?@B^]9* )@]/K@^;F/S@@@@/K@ FQ&9K__.9? )@@9*@A"R9? )@@9*@A">IV )@@G@@9? )@@9*@B @9? )@@9*@A"N9? )@@9*@A999? )@@9*@A91/K@ DEC@@A">G8@@@][@@A">IW )@@G@@C@@B @G@@A">9?W@@@9*KB^*CC@B^(>8@@@^/K@#)!&9K@@] @@@@HC8A@@@R9>@@@9* )@]IX )@@G@@C8@#-[9* )@]9?@B^*9* )@]/K@#C@@A9!G8@@@[[@@A9!(@@A8:/K@#)!9?@B#89?)A9\/@@#)!C G@@[;D@@@]IZ )@@G@@N@K@@K'K@ K12@?)@A/K@#)!%@/@@#/K@#-Q&;@@@@9*@B^]&9K@@]9?@B @9* )@]9?@A">JA )@@G@@9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#-,9* )@]9?@B^]JB )@@G@@9* )@]/K@^;F/S@@@@/K@ FQ&9K__.9? )@@9*@A">9? )@@9*@B @/K@#)!&9K@@] @@@@HJC )@@G@@C8A@@@R9>@@@9* )@]C8@#-"9* )@]/K@[YB9*@B^*/K@ C/C^@B^(:8@@@A/K@ D@C^@B^(JD )@@G@@%8@@@[/K@ C/9?@B^*/@@#+G9*@BASC8K@@C[@KBAUC^G@@[[@@BAVC8@BAS/,0 JD/K@ C/JE )@@G@@9()B^*/K@ D@C@@A">G8@@@][@@A">C@@B @G@@A">9?W@@@9*KB^*CC@B^(=8@@@^/K@#< JF )@@G@@9?@B#=9?)B^*/@@#+;C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@#+;%@/@@#/K@#+<&;@@@@JG )@@G@@9*@B^4C@@B^49?W@@^9*KB^4&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#+89* )@]9?@B^*JH )@@G@@9* )@]9?@B^49* )@]/K@^MZ9*@B^*/K@ C//K@#@@@9* )@]C8@#8@@@^/K@ EW/K@#<*C8@@@[[@@A;LJM )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#<89* )@]/K@ ]<9*@B^=/K@ C/9?@B^=/@@#=@JN )@@G@@9*@BASC8K@@C[@KBAUC^G@@[[@@BAV&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#=F9* )@]JO )@@G@@9?@B^=9* )@]/K@#$$9*@B^?/K@ FQ/K@#=I @@B@QR8)B@NR80B[7/,0 GPC9@@@[E@@A99JP )@@G@@;G@@@=W8@@@E;G)@@A;*)@@AG8!@@0;@)@@AG9@@@[/^@#=O0@@A99(@@A998^@#=-;G)@@AJQ )@@G@@G@) K49*)AWUC8@AWU[@@BAG @@BAH @@BAI[[@BAJR8)B@NR80BAG/,0 GPR8)B@NR80A__JR )@@G@@/,0 GP(@@A;L/K@#=2R8)B@NR80A_7/,0 GPR8)B@NR80BAS/,0 GPR8)B@NR80B@*/,0 GPJS )@@G@@(@@A;L/K@#>MC9@@@[E@@B^?;G@@@=W8@@@E;G)@@A;*)@@AG8!@@0;@)@@AG9@@@[/^@#=/JT )@@G@@0@@B^?(@@B^?8^@#>D;G)@@AG@) K49*)AWUC8@AWU[@@BAW @@BAX @@BAY[[@BAZR8)B@NJU )@@G@@R80B@//,0 GPR8)B@NR80BAW/,0 GPC@@ K0'=@@@4C@@AW2;G@@@=W8@@@ [@@B^, @@B^\JV )@@G@@9?@B^,H@@A"F9*@B^,C9@@@[E@@B^,;G@@@=W8@@@E;G)@@A;*)@@AG8!@@0;@)@@AG9@@@[JW )@@G@@/^@#>-0@@B^,(@@B^,8^@#>,;G)@@AG@) K49*)AWUC8@AWU[@@BAS @@BAT @@BAU[[@BAVJX )@@G@@R8)B@NR80B[[/,0 GPR8)B@NR80BAS/,0 GPC@@A/#C#?@@]C@G@@^C8G@@C[@@#&JR@KB@NJY )@@G@@O^KB@P&8K@@[C@@B@Q;G@@@=W8@@@AC[)@@G/@K#&HG9)@@[G8[@@@C@/@@@N@! GG<@0 K,JZ )@@G@@[[G@@@/,0[[Y@@[@@U@@@@@@]VK@@@/K@#&OC8[)@@'^K[@_8^)#&M'^@[[]/K@ DA @@A;LKA )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#&)9* )@]/K@ ]<9*@B^,/K@ C/9?@B^,/@@#&*KB )@@G@@9*@BAWC8K@@C[@KBAYC^G@@[[@@BAZ9?@B]D9*@BAS9?@B]F9*@BAU/K@#=IC@@A">G8@@@]KC )@@G@@[@@A">C@@B @G@@A">9?W@@@9*KB^*CC@B^(=8@@@^/K@#$T9?@A_L9?)B^*/@@#$CC G@@[KD )@@G@@;D@@@]N@K@@K'K@ K12@?)@C/K@#$C%@/@@ /K@#&_&;@@@@9*@B^*C8@@@E[^@B^(/K@ DIKE )@@G@@9?@A_N9?)B^*/@@ G#C G@@[;D@@@]N@K@@K'K@ K12@?)@C/K@ G#%@/@@ /K@#$J&;@@@@KF )@@G@@9*@B^]C@@B^]9?W@@]9*KB^4/K@ D<&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#$<9* )@]KG )@@G@@9?@B^*9* )@]/K@#@@@9* )@]C8@#$39* )@]/K@#+M9*@B^*/K@ C/&9K@@]9?@B^*9* )@]KI )@@G@@C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#*#9* )@]/K@#+M9*@B^,KJ )@@G@@/K@ C/&9K__.9? )@@9*@B^*C@@B^*H@@B^,/@@ D@/C@ C//G@ D@&9K@@] @@@@HC8A@@@KK )@@G@@R9>@@@9* )@]C8@#*P9* )@]/K@[YB9*@B^*/K@ C/&9K@@] @@@@HC8A@@@R9>@@@9* )@]KL )@@G@@C8@#*<9* )@]9?@A;99* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^SC@)A/HC@0A/H9!@A.BKM )@@G@@9(G@@][@/@@^[@?@@A9?)B^*9*?@@C9*@B^4/K@ D<&9K@@] @@@@HC8A@@@R9>@@@9* )@]KN )@@G@@C8@#*79* )@]/K@ ]<9*@B^*/K@ C/&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7&9K@@]KO )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@#(B9* )@]/K@ ]<9*@B^,/K@ C/&9K__.9? )@@9*@B^*KP )@@G@@(@@B^*/K@ C/(@@B^,/K@ D@9?@B^*/@@#(Q9*@BASC8K@@C[@KBAUC^G@@[[@@BAV9?@B^,KQ )@@G@@/@@#(X9*@BAWC8K@@C[@KBAYC^G@@[[@@BAZC@)BASG^)BAUCC0BAU&;)@@[&;0@@[C@@BAWKR )@@G@@G^@BAYCCKBAY&;@@@[&;K@@[C[)BAVL[)BAZ/H0#(\H[)@@N/K@#(\')J>G%')H>HP8^)#(!KS )@@G@@/H)#(4')H HZ/K@ C//K@ D@/[0 C//H0 C//K@ D@C^@A"S[@@B^& @@B^$9?@B^&9*@B^+KT )@@G@@9?@A"R9*@B^?C@@B^?9?W@@]9*KB^2C8 @@@H8@@@][@@B^, @@B^\C8@@@^[@@B^U&9K@@]KU )@@G@@9?@B^&9* )@]9?@B^29* )@]9?@B^U9* )@]9?@B^,9* )@]9?@B^+9* )@]9?@B^?9* )@]KV )@@G@@C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#%Z9* )@]/K@[YB9*@B^*KW )@@G@@/K@ C/&9K__.9? )@@9*@B^?9? )@@9*@B^+9? )@@9*@B^,9? )@@9*@B^U9? )@@9*@B^2KX )@@G@@9? )@@9*@B^&C@@B^2G@@B^U9?W@@@9*KB^4(^@B^5/K@#:+C^@B^5:^@B^(/K@#:+C^@B^(KY )@@G@@[@@A"[ @@A"]C^@B^5[^@A"]9?@B#G9?)A"[/@@ E.C G@@[;D@@@]N@K@@K'K@ K12@?)@AKZ )@@G@@/K@ E.%@/@@#/K@#:#&;@@@@9*@B^]C@@B^]/KGK@^&9K@@] @@@@HC8A@@@R9>@@@9* )@]LA )@@G@@C8@#:P9* )@]9?@B^*9* )@]/K@#U(9*@B^*/K@#:+9?@B^*/@@#:X9*@BASC8K@@C[@KBAULB )@@G@@C^G@@[[@@BAVC8@BAS/,0 JD/K@ E.9()B^*C@@B^UG8@@@][@@B^U&9K@@]9?@B^*9* )@]LC )@@G@@C8 @@@!8@CN&/K@ F7C@@B^&H/@@@[[@@B^&C@@B^&/@@#:2/C@#%B/G@ FQC@@B^?9?W@@@LD )@@G@@9*KB^&C^@B^$[@@B^& @@B^$C@@B^+H@@B^&/@@#?H/C@#?A&9K@@]9?@A"<9* )@]C8 @@@LE )@@G@@!8@CN&/K@ F7C@@B^+G8@@@[[@@B^+/K@#:8&9K__.9? )@@9*@B^4C@@B^+H/@@@[[@@B^+LF )@@G@@/K@#:8C@@B^2C^G@@[[@@B^+ @@B^<9?@B^2G@@B^+9*@B^*C@@B^*9?W@@@9*KB^4C@@B^2LG )@@G@@9?W@@]9*KB^2C@@B^,G8@@@^[@@B^,/K@ FQC^@B^5%8@@@G/K@ D@@@9* )@]LJ )@@G@@C8@#![9* )@]9?@B^*9* )@]/K@#]M9*@B^*/K@ D\/K@#?,9?@B^*/@@#!E9*@BA)C8K@@CLK )@@G@@[@KBA+C^G@@[[@@BA@@@9* )@]LM )@@G@@C8@#!<9* )@]/K@ ]<9*@B^*/K@ C/&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7&9K@@]LN )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@#!39* )@]/K@ ]<9*@B^=/K@ C/9?@B^=/@@#!;9*@BAOLO )@@G@@C8K@@C[@KBAQC^G@@[[@@BAR&9K__.9? )@@9*@B^*9?@B^*/@@#, 9*@BASC8K@@C[@KBAULP )@@G@@C^G@@[[@@BAVC8)A33R8)BAWR80BAS/,0 H\/K@ F'/K@#2XC@@A"1%8@@@[/K@ F'&9K@@]LQ )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@#,T9* )@]9?@A_F9* )@]/K@#R(9*@B^*&9K@@] @@@@HLR )@@G@@C8A@@@R9>@@@9* )@]C8@#,=9* )@]9?@B^*9* )@]/K@#GI9*@B^29?@A/H9*@B^?C@@BAVLS )@@G@@H8@@@[[@@BAVC@@BAUG@@ K&!@@ K2'K@ K3[@@BAUC8)A33R8)BA)R80BAS/,0 H\/K@#11LT )@@G@@/K@ F'C@@A"1/KGN,6/K@ F'/K@#,;/K@#\)/K@#,;&9K@@] @@@@HC8A@@@R9>@@@9* )@]LU )@@G@@C8@#\ 9* )@]9?@A_H9* )@]/K@#R(9*@B^*9?@B#+9?)B^*/@@#1%C G@@[;D@@@]N@K@@KLV )@@G@@'K@ K12@?)@C/K@#1%%@/@@ /K@#\H&;@@@@9*@B^*C@@B^*9?W@@]9*KB^*&9K@@]9?@B^*LW )@@G@@9* )@]C8 @@@!8@CN&/K@ F7C@@B^?G8@@@[[@@B^?/K@#,$C@@B^?G8@@@[[@@B^?&9K@@]LX )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@#\!9* )@]9?@A_H9* )@]/K@#R(9*@B^*9?@B#+9?)B^*LY )@@G@@/@@#2QC G@@[;D@@@]N@K@@K'K@ K12@?)@C/K@#2Q%@/@@ /K@#\5&;@@@@9*@B^*C@@B^*LZ )@@G@@9?W@@]9*KB^*&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7C@@BAVH8@@@[[@@BAVC@@BAUMA )@@G@@G@@ K&!@@ K2'K@ K3[@@BAU&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#0Q9* )@]9?@A_DMB )@@G@@9* )@]/K@#R(9*@B^*9?@B#+9?)B^*/@@#1@@@9* )@]C8@#1 9* )@]9?@B^&9* )@]9?@A.79* )@]MF )@@G@@/K@[1Q9*@B^*C@@B^29?KA"_9*W@@@C@@B^29?KB^*9*W@@]9?@B^*G@@B^&9*@B^*C@@B^*MG )@@G@@H/@@@][@@B^*&9K__.9? )@@9*@B^,C@@B^*9?KB^,9*W@@]C@@B^?H/@@@[[@@B^?C@@B^?MH )@@G@@/@@#1Y/C@#1J/K@C!TC@@B^*9?KB^,9*W@@@/K@ D@&9K@@]9?@A/H9* )@]C8 @@@!8@CN&MI )@@G@@/K@ F7/K@#0!&9K@@]9?@A/H9* )@]C8 @@@!8@CN&/K@ F7/K@#\W&9K@@]9?@A/H9* )@]MJ )@@G@@C8 @@@!8@CN&/K@ F79?@BAS9*@BAG9?@BAU9*@BAIC8@@@[[@@BAJC@)BAGG^)BAICC0BAIMK )@@G@@&;)@@[&;0@@[C@@B[+G^@B[=CCKB[=&;@@@[&;K@@[C[)BAJL[)B[>/H0#2IH[)@@N/K@#2IML )@@G@@')J>G%')H>HP8^)#2G/H)#2N')H HZ/K@#\W/K@#\W/[0#0^/H0#\W/K@#\W&9K@@]9?@A/HMM )@@G@@9* )@]C8 @@@!8@CN&/K@ F7/K@#0^/K@C!TC@@B^,C^G@@[[@@B^? @@B^!C@@B^,9?W@@]MN )@@G@@9*KB^4C@@B^,9?W@@^9*KB^S&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#249* )@]9?@B^SMO )@@G@@9* )@]9?@B^49* )@]/K@]1#/S@@@@C@@B^?H/@@@^[@@B^?(@@B^?/K@ D@C@@B^,G8@@@^MP )@@G@@[@@B^,/K@#2+&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#3A9* )@]/K@#+M9*@B^*/K@ C/MQ )@@G@@&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#3QMR )@@G@@9* )@]/K@#+M9*@B^,/K@ C/&9K__.9? )@@9*@B^*C@@B^*H@@B^,/@@ C//C@ C//G@ D@MS )@@G@@C@@A">G8@@@][@@A">C@@B @G@@A">9?W@@@9*KB^4/K@ D<&9K@@] @@@@HC8A@@@R9>@@@MT )@@G@@9* )@]C8@#309* )@]/K@[YB9*@B^*/K@ C/C^@B^([^@A"^9?@B#I9?)A"#/@@ E.C G@@[MU )@@G@@;D@@@]N@K@@K'K@ K12@?)@A/K@ E.%@/@@#/K@#3;&;@@@@9*@B^]C@@B^]/KGK@^9?@B^*MV )@@G@@[@KB^5]@@B^4/K@ D)9?@B^*/@@#4H9*@BASC8K@@C[@KBAUC^G@@[[@@BAVC8@BAS/,0 JDMW )@@G@@/K@ C/9()B^*/K@#4#9?@B^4[@KB^5]@@B^4/K@ D)&9K@@] @@@@HC8A@@@R9>@@@9* )@]MX )@@G@@C8@#4Z9* )@]/K@ BN/S@@@@/K@ C/C^@B^([@@A"[ @@A"]C^@B^\[^@A"]9?@B#K9?)A"[MY )@@G@@/@@ E.C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ E.%@/@@#/K@#4!&;@@@@9*@B^]C@@B^]MZ )@@G@@/KGK@^C@@B^*U@@B^,/^@ EQ;O@@@[C@)B^(9*KB^4/K@ D)9?@B^*/@@#5]9*@BASC8K@@CNA )@@G@@[@KBAUC^G@@[[@@BAVC8@BAS/,0 JD/K@ E.9()B^*/K@#459?@B^,/@@#5I9*@BAWC8K@@CNB )@@G@@[@KBAYC^G@@[[@@BAZC8@BAW/,0 JD/K@ E.9()B^,/K@#459?@B^*/@@#5U9*@BASC8K@@CNC )@@G@@[@KBAUC^G@@[[@@BAVC8@BAS/,0 JD/K@ E.9()B^*/K@#5CC@@B^*"C@B^,C@KB^(9*@B^4ND )@@G@@/K@ D)&9K@@]9?@A/\9* )@]9?@A.D9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@NE )@@G@@R9>@@@9* )@]C8@#559* )@]/K@^GI9*@B^*/K@ C/C@@A">G8@@@][@@A">C@@B @G@@A">NF )@@G@@9?W@@@9*KB^,CC@B^\=8@@@^/K@#6CC^@B^(:8@@@[/K@#6@@@9* )@]C8@#6SNH )@@G@@9* )@]9?@B^,9* )@]/K@#@@@9* )@]C8@#699* )@]9?@A;99* )@]9?@A8H9* )@]NK )@@G@@/K@[1Q9*@B^S9?@B^SC@)B^QC@0A/H9!@A/<9(G@@][@/@@^[@?@@A9?)B^*9*?@@C9*@B^*NL )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#7K9* )@]9?@A/ 9* )@]9?@A8H9* )@]/K@[1QNM )@@G@@9*@B^S&9K__.9? )@@9*@B^Y9?@B^SC@)A/HC@0A/H9!@B^Y9(G@@][@/@@^[@?@@A9*@B^=NN )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#7*9* )@]9?@A;99* )@]9?@A8H9* )@]/K@[1QNO )@@G@@9*@B^S&9K__.9? )@@9*@B^Y9?@B^SC@)A/HC@0A/H9!@B^Y9(G@@][@/@@^[@?@@A9?)B^,NP )@@G@@9*?@@C9*@B^,C@@B^*C^G@@[[@@B^% @@B^:9?@B^%G@@A;;9*@B^0C@@B^,C^G@@[[@@B^WNQ )@@G@@ @@B^X9?@B^0G@@B^W9*@B^6&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#8K9* )@]9?@B^6NR )@@G@@9* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^S9*@B^4C@@B^*C@W@@A!@W@@AC@W@@AC@G@@^NS )@@G@@/@@#8VG@@B^*/K@#8P[@KB^Y @@B^ZC@@A;;C@KB^SC@)B^=9!I@@]9(H@@]9!I@@^G[@A/HNT )@@G@@:[@A/H @@@@KG[KA/H:[KA/HC[KA;;9(H@@^9!I@@AG[@B^YG[KB^Y9(H@@AC^"@@#/@0#82NU )@@G@@9!I@@C9(H@@CG80@@#;)0@@[H@@@@J/@@#89G@K@@JG@)@@J/K@#8)G@K@@J[@KB^SC@@B^%NV )@@G@@C@KB^SC@)B^*9!I@@]9(H@@]9!I@@^G[@A;;:[@A;; @@@@KG[KA;;:[KA;;C[KB^09(H@@^NW )@@G@@9!I@@AG[@A/HG[KA/H9(H@@AC^"@@#/@0#9K9!I@@C9(H@@CG80@@#;)0@@[H@@@@J/@@#9RNX )@@G@@G@K@@JG@)@@J/K@#8"G@K@@J[@KB^SC@@B^WC@KB^SC@)B^,9!I@@]9(H@@]9!I@@^G[@B^0NY )@@G@@:[@B^0 @@@@KG[KB^0:[KB^0C[KA/H9(H@@^9!I@@AG[@A/HG[KA/H9(H@@AC^"@@#/@0#9,NZ )@@G@@9!I@@C9(H@@CG80@@#;)0@@[H@@@@J/@@#95G@K@@JG@)@@J/K@#9WG@K@@J[@KB^S/K@ DG8@@@][@@A">C@@B @G@@A">9?W@@@9*KB^4CC@B^5>8@@@^/K@ D<&9K@@] @@@@HOB )@@G@@C8A@@@R9>@@@9* )@]C8@#'G9* )@]9?@B^49* )@]/K@#@@@9* )@]C8@#'S9* )@]/K@].G/S@@@@/K@ D@/K@ FQ/K@ C/OD )@@G@@&9K@@]9?@B @9* )@]9?@A">9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@OE )@@G@@9* )@]C8@#'?9* )@]/K@[YB/S@@@@/K@#'\/K@ C/&9K__.9? )@@9*@A">9? )@@9*@B @OF )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#'"9* )@]9?@A/[9* )@]/K@]AP/S@@@@/K@ D@OG )@@G@@(@@A;P/K@ C/9?@A;#9*@B^&C@@B^&G8@@@[[@@B^&C9@@@[E@@B^&;G@@@=W8@@@E;G)@@AOH )@@G@@;*)@@AG8!@@0;@)@@AG9@@@[/^@#;D0@@B^&(@@B^&8^@#;Q;G)@@AG@) K49*)AWUC8@AWUOI )@@G@@[@@BAG @@BAH @@BAI[[@BAJ*@@A;R/K@#;< @@A_2R8)A_\R80BAG/,0 GP/K@ C/ @@A_,OJ )@@G@@R8)A_:R80BAG/,0 GP/K@ C/(@@A;P/K@ C/ @@A_2R8)A_\R80A_R/,0 GP/K@ C/C@@BAFOK )@@G@@H8@@@[[@@BAFC@@BAEG@@ K&!@@ K2'K@ K3[@@BAE(@@A;P/K@ C/9?@A;#9*@B^&/K@#;BOL )@@G@@C@@BAFH8@@@[[@@BAFC@@BAEG@@ K&!@@ K2'K@ K3[@@BAE&9K@@] @@@@HC8A@@@R9>@@@OM )@@G@@9* )@]C8@#/G9* )@]/K@#H;/S@@@@/K@ E1C@@A.9:8@@@A/K@#;*C8)A%3R8)BASR80BACON )@@G@@/,0 H\/K@#;%/K@ EZC@)BASG^)BAUCC0BAU&;)@@[&;0@@[C@@B]^G^@B]ACCKB]A&;@@@[OO )@@G@@&;K@@[C[)BAVL[)B]B/H0#/*H[)@@N/K@#/*')J>G%')H>HP8^)#/&/H)#/!')H HZ/K@#/2OP )@@G@@/K@#/2/[0#/0/H0#/2/K@#/2 @@A;P/K@ C/C@)BASG^)BAUCC0BAU&;)@@[&;0@@[C@@B[NOQ )@@G@@G^@B[PCCKB[P&;@@@[&;K@@[C[)BAVL[)B[Q/H0#.#H[)@@N/K@#.#')J>G%')H>HP8^)#.[OR )@@G@@/H)#.C')H HZ/K@#;%/K@#;%/[0#.F/H0#;%/K@#;%C8@@@[[@@A;P&9K@@] @@@@HC8A@@@OS )@@G@@R9>@@@9* )@]C8@#.P9* )@]/K@#H;/S@@@@/K@ E1C@@A.9:8@@@A/K@#;%C8)A%3R8)BASOT )@@G@@R80BAC/,0 H\/K@#;%/K@ EZC@)BASG^)BAUCC0BAU&;)@@[&;0@@[C@@B[IG^@B[KCCKB[KOU )@@G@@&;@@@[&;K@@[C[)BAVL[)B[L/H0#.1H[)@@N/K@#.1')J>G%')H>HP8^)#.\/H)#.6')H HZOV )@@G@@/K@#.//K@#.//[0#.9/H0#.//K@#./C8@@@[[@@A;R/K@#;% @@A;R/K@#;%9?@A"Z9*@B^UOW )@@G@@C@@B^UH@@A"X/@@ C//C@ FTC@@B^UH@@A"-/@@ FT/C@ FT9?@B^/G@@B^U9*@B^SC@@B^SOX )@@G@@9?W@@]9*KBAG9?W@@^9*KBAIC@@B^S9?W@@A9*KB^YC@@BAJ[@@B^& @@B^$C@@B^&H@@A83OY )@@G@@/@@#"U/C@ FNC^@B^Z:8@@@F/K@^@]C^@B^Z:8@@@E/K@#_.&9K@@] @@@@HC8A@@@R9>@@@OZ )@@G@@9* )@]C8@#"%9* )@]9?@A_J9* )@]/K@#R(9*@B^)C@@B^Y9?KB^)9*W@@]9?@B#&9?)B^YPA )@@G@@/@@#_FC G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@#_F%@/@@#/K@#"5&;@@@@9*@B^4C@@B^4PB )@@G@@9?W@@^9*KB^4&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#_E9* )@]9?@B^)9* )@]9?@B^4PC )@@G@@9* )@]/K@^N6/S@@@@(@@A8:/K@#_99?@B#*9?)B^Y/@@#_9C G@@[;D@@@]N@K@@K'K@ K1PD )@@G@@2@?)@A/K@#_9%@/@@#/K@#_O&;@@@@9*@B^]&9K@@]9?@B^U9* )@]9?@A"X9* )@]9?@A"ZPE )@@G@@9* )@]C8 @@@!8@CN&/K@ F79?@A"X9*@A"Z&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@#_0PF )@@G@@9* )@]9?@B^]9* )@]/K@^;F/S@@@@/K@ FQ&9K__.9? )@@9*@A"Z9? )@@9*@A"X9? )@@PG )@@G@@9*@B^UC@@B^UG8@@@A[@@B^U/K@#"@C8@BAG/,0 JD/K@ E.9()B^)/K@#":&9K@@] @@@@HPH )@@G@@C8A@@@R9>@@@9* )@]C8@^@G9* )@]9?@B^Y9* )@]/K@# )9*@B^Y/K@#_9/K@#"X/K@ F,PI )@@G@@C@@A":G8@@@A[@@A":C@@A":H@@A"(/@@^@R/C@ F>C@@A":9?KA/79*W@@]/K@^@VC@@BANPJ )@@G@@[@@B^Q @@B^RC@@A":9?KB^Q9*W@@^C@@A":9?KA;N9*W@@A&9K@@]9?@B^Q9* )@]C8 @@@PK )@@G@@!8@CN&/K@ F7C8@@@[[@@A;N/K@^+4&9K__.9? )@@9*@B^Y*@@A;N/K@ D0/K@ D\C@@A"$PL )@@G@@G8@@@][@@A"$C@@B AG@@A"$9?W@@@9*KB^,&9K__.9? )@@9*@B^IC@@B^I[^@B^!9?@BAKPM )@@G@@9*@BAG9?@BAM9*@BAIC@@B^I[@@BAJ9?@BAK9*@BAGC@@BANH@@BAJ[@@@@IC@@BAJ[@)BAJPN )@@G@@GC@BAM;G@@@=W8@@@AG^@BAM[^@BAI[CKBAI9?@B^/G@@A"X9*@B^SC@@B^S9?KBAG9*W@@]PO )@@G@@9?KBAI9*W@@^C@@B^S9?KB^,9*W@@AC@@A"XG8@@@A[@@A"XC@@A"XH@@A"-/@@^[//C@ FTPP )@@G@@C@@A":G8@@@A[@@A":C@@A":H@@A"(/@@^[:/C@ F>C@@A":9?KA/$9*W@@]C@@BAN[@@B^QPQ )@@G@@ @@B^RC^@B^![^@B^RC@@A":9?KB^Q9*W@@^C@@A":9?KA;N9*W@@AC8@@@[[@@A;N/K@^+4PR )@@G@@9?@A"-9*@B^+C@@A"-G8@@[8[@@A"-&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^]H9* )@]PS )@@G@@9?@A"-9* )@]9?@A.79* )@]/K@[1Q9*@B^SC@@B^SC@KB^/N@KB^+&;@@@[&;K@@[M#H)@]PT )@@G@@9?@B^S9*@B^//K@^[=C@@A"XH/@@@A[@@A"XC@@A"ZH@@A"X/@@^]Y/C@ FT9?@B^/G@@A"XPU )@@G@@9*@B^SC^@B^![@@B^) @@B^-&9K@@]9?@B^)9* )@]C8 @@@!8@CN&/K@ F7/K@^@0C@@A"$PV )@@G@@G8@@@][@@A"$C@@B AG@@A"$9?W@@@9*KB^,&9K__.9? )@@9*@B^IC@@B^I[^@B^!9?@BAKPW )@@G@@9*@BAG9?@BAM9*@BAIC@@B^I[@@BAJ9?@BAK9*@BAGC@@BANH@@BAJ[@@@@IC@@BAJ[@)BAJPX )@@G@@GC@BAM;G@@@=W8@@@AG^@BAM[^@BAI[CKBAIC@@BAJ[@@B^2 @@B^3C@@B^2H@@A83/@@^#LPY )@@G@@/C@ FNC^@B^\:8@@@F/K@^AHC^@B^\:8@@@E/K@^AB&9K@@] @@@@HC8A@@@R9>@@@9* )@]PZ )@@G@@C8@^#-9* )@]9?@A_J9* )@]/K@#R(9*@B^)C@@B^,9?KB^)9*W@@]9?@B#&9?)B^,/@@^^]QA )@@G@@C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@^^]%@/@@#/K@^#?&;@@@@9*@B^4C@@B^49?W@@^QB )@@G@@9*KB^4&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^^[9* )@]9?@B^)9* )@]9?@B^49* )@]QC )@@G@@/K@^N6/S@@@@(@@A8:/K@^ /9?@B#*9?)B^,/@@^ /C G@@[;D@@@]N@K@@K'K@ K12@?)@AQD )@@G@@/K@^ /%@/@@#/K@^^F&;@@@@9*@B^]&9K@@]9?@B A9* )@]9?@A"$9* )@]9?@B^=9* )@]QE )@@G@@9?@B^&9* )@]9?@B^?9* )@]C8 @@@!8@CN&/K@ F7&9K@@]9?@A"V9* )@]9?@A;N9* )@]QF )@@G@@9?@A":9* )@]9?@A_[9* )@]9?@A"X9* )@]9?@A"Z9* )@]C8 @@@!8@CN&/K@ F7&9K@@]QG )@@G@@9?@B /9* )@]9?@B "9* )@]9?@BAG9* )@]9?@BAI9* )@]9?@BAK9* )@]9?@BAM9* )@]QH )@@G@@9?@BAS9* )@]9?@BAU9* )@]C8 @@@!8@CN&/K@ F79?@A":9*@A_[9?@A"X9*@A"Z&9K@@]QI )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@^ L9* )@]9?@B^]9* )@]/K@^;F/S@@@@/K@ FT&9K__.QJ )@@G@@9? )@@9*@BAU9? )@@9*@BAS9? )@@9*@BAM9? )@@9*@BAK9? )@@9*@BAI9? )@@9*@BAGQK )@@G@@9? )@@9*@B "9? )@@9*@B /&9K__.9? )@@9*@A"Z9? )@@9*@A"X9? )@@9*@A_[9? )@@QL )@@G@@9*@A":9? )@@9*@A;N9? )@@9*@A"V&9K__.9? )@@9*@B^?9? )@@9*@B^&9? )@@9*@B^=QM )@@G@@9? )@@9*@A"$9? )@@9*@B AC@@A":G8@@@A[@@A":C@@A":H@@A"(/@@^A#/C@ F>C@@A":QN )@@G@@9?KA/(9*W@@]/K@^[,C8@BAG/,0 JD/K@ E.9()B^)/K@^#+/K@^]-&9K@@] @@@@HC8A@@@QO )@@G@@R9>@@@9* )@]C8@^AR9* )@]9?@B^,9* )@]/K@# )9*@B^,/K@ D\/K@^#O/K@ F,&9K@@]QP )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@^A<9* )@]/K@[YB9*@B^*/K@ C/&9K@@] @@@@HC8A@@@QQ )@@G@@R9>@@@9* )@]C8@^A19* )@]9?@A;99* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^SC@)A;ZQR )@@G@@C@0A/H9!@A.H9(G@@][@/@@^[@?@@A9?)B^*9*?@@C9*@B^4/K@ D<&9K@@] @@@@HC8A@@@QS )@@G@@R9>@@@9* )@]C8@^B 9* )@]/K@ ]<9*@B^*/K@ C/&9K@@]9?@B^*9* )@]C8 @@@!8@CN&QT )@@G@@/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^BP9* )@]/K@ ]<9*@B^,/K@ C/&9K__.QU )@@G@@9? )@@9*@B^*9?@B^*9/@A"@@@9* )@]C8@^B*QV )@@G@@9* )@]9?@B^*9* )@]/K@#GI9*@B^49?@B^,9/@A"@@@9* )@]C8@^C+RA )@@G@@9* )@]/K@^GI9*@B^*/K@ C/&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HRB )@@G@@C8A@@@R9>@@@9* )@]C8@^C29* )@]/K@^GI9*@B^,/K@ C/&9K__.9? )@@9*@B^*C^@B^(RC )@@G@@[@@A"[ @@A"]C^@B^\[^@A"]9?@B#M9?)A"[/@@ E.C G@@[;D@@@]N@K@@K'K@ K12@?)@ARD )@@G@@/K@ E.%@/@@#/K@^D#&;@@@@9*@B^]C@@B^]/KGK@^9?@B^*/@@^DL9*@BASC8K@@C[@KBAURE )@@G@@C^G@@[[@@BAVC@@BAV[@@B^Q @@B^R&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^D-9* )@]RF )@@G@@9?@A;99* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^SC@)B^QC@0A/H9!@A/<9(G@@][@/@@^RG )@@G@@[@?@@A9?)B^*9*?@@C9*@B^*9?@B^,/@@^D29*@BAWC8K@@C[@KBAYC^G@@[[@@BAZC@@BAZRH )@@G@@[@@B^Q @@B^R&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^E]9* )@]9?@A;99* )@]9?@A8HRI )@@G@@9* )@]/K@[1Q9*@B^S9?@B^SC@)B^QC@0A/H9!@A/<9(G@@][@/@@^[@?@@A9?)B^,9*?@@CRJ )@@G@@9*@B^,C@@B^*C^G@@[[@@B^% @@B^:C@@B^,C^G@@[[@@B^0 @@B^19?@B^%G@@B^09*@B^WRK )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^E=9* )@]9?@B^W9* )@]9?@A8H9* )@]/K@[1QRL )@@G@@9*@B^S9?@B^S9*@B^4C@@B^%C@KB^SC@)B^*9!I@@]9(H@@]9!I@@^G[@A/H:[@A/H @@@@KRM )@@G@@G[KA/H:[KA/HC[KA/H9(H@@^9!I@@AG[@A/HG[KA/H9(H@@AC^"@@#/@0^E/9!I@@C9(H@@CRN )@@G@@G80@@#;)0@@[H@@@@J/@@^F#G@K@@JG@)@@J/K@^E%G@K@@J[@KB^SC@@B^0C@KB^SC@)B^,RO )@@G@@9!I@@]9(H@@]9!I@@^G[@B^%:[@B^% @@@@KG[KB^%:[KB^%C[KA/H9(H@@^9!I@@AG[@A/HRP )@@G@@G[KA/H9(H@@AC^"@@#/@0^FU9!I@@C9(H@@CG80@@#;)0@@[H@@@@J/@@^F-G@K@@JG@)@@JRQ )@@G@@/K@^FCG@K@@J[@KB^SC@@B^%C@KB^4K@X@@^C@0@@IK@Y@@^%@K@@I/K@^F&[@J@@^/K@ D@@@9* )@]C8@^G]9* )@]9?@A;99* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^SRT )@@G@@C@)B^QC@0A/H9!@A/<9(G@@][@/@@^[@?@@A9?)B^*9*?@@C9*@B^*/K@^EHC@@A">G8@@@]RU )@@G@@[@@A">C@@B @G@@A">9?W@@@9*KB^*CC@B^(=8@@@^/K@^G79?@B#=9?)B^*/@@^H C G@@[RV )@@G@@;D@@@]N@K@@K'K@ K12@?)@A/K@^H %@/@@#/K@^GZ&;@@@@9*@B^4C@@B^49?W@@^9*KB^4RW )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^G49* )@]9?@B^*9* )@]9?@B^49* )@]/K@^MZRX )@@G@@9*@B^*/K@ C//K@^HC&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^H[9* )@]9?@B^*9* )@]RY )@@G@@/K@#@@@9* )@]C8@^HZ9* )@]9?@B^*9* )@]/K@#U(9*@B^*/K@ DI&9K@@] @@@@HC8A@@@SB )@@G@@R9>@@@9* )@]C8@^H!9* )@]9?@A;99* )@]9?@A8H9* )@]/K@[1Q9*@B^S&9K@@] @@@@HSC )@@G@@C8A@@@R9>@@@9* )@]C8@^H'9* )@]9?@A/B9* )@]9?@A8H9* )@]/K@[1Q9*@B^SC@@B^SSD )@@G@@C@KA/TN@KA/B&;@@@[&;K@@[M#H)@]C@@B^S9?KB^*9*W@@C9?@B^S9*@B^*/K@ DI&9K@@]SE )@@G@@9?@A"R9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^IP9* )@]SF )@@G@@/K@[YB9*@B^4/K@ C/C^@B^5[^@A"^9?@B#O9?)A"#/@@ E.C G@@[;D@@@]N@K@@K'K@ K1SG )@@G@@2@?)@A/K@ E.%@/@@#/K@^I)&;@@@@9*@B^]C@@B^]/KGK@^9?@B^4/@@^I,9*@BASC8K@@CSH )@@G@@[@KBAUC^G@@[[@@BAVC8@BAS/,0 JD/K@ E.9()B^4/K@ D)&9K@@] @@@@HC8A@@@R9>@@@SI )@@G@@9* )@]C8@^I/9* )@]/K@[YB9*@B^*/K@ C/&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^JESJ )@@G@@9* )@]9?@A;99* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^SC@)A/HC@0A/H9!@A.J9(G@@]SK )@@G@@[@/@@^[@?@@A9?)B^*9*?@@C9*@B^4/K@ D@@@9* )@]C8@^J09* )@]9?@B^*9* )@]/K@#]M9*@B^*/K@ D\/K@^JX9?@B^*SN )@@G@@/@@^J99*@BA)C8K@@C[@KBA+C^G@@[[@@BA@@@9* )@]C8@^KP9* )@]/K@#Y29*@B^*/K@ C/&9K@@]SQ )@@G@@9?@B^*9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^K>9* )@]SR )@@G@@/K@#+M9*@B^,/K@ C/C@@A/HH@@B^,/@@^K:/C@ GA&9K@@]9?@B^,9* )@]C8 @@@!8@CN&SS )@@G@@/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^K99* )@]/K@ ]<9*@B^4/K@ C/&9K__.ST )@@G@@9? )@@9*@B^,9? )@@9*@B^*9?@B^49/@A"@@@9* )@]C8@^L\9* )@]9?@B^S9* )@]9?@B^*9* )@]SX )@@G@@9?@B#&9* )@]/K@[,N9*@B#&/K@ D@9?@B ?9*@B^4&9K@@] @@@@HC8A@@@R9>@@@9* )@]SY )@@G@@C8@^L_9* )@]9?@A;59* )@]9?@A.79* )@]/K@[1Q9*@B^SC@@B^S9?KB^,9*W@@]C@@B^SSZ )@@G@@9?KB^49*W@@^/K@^LK&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^MJ9* )@]/K@[YB9*@B^*TA )@@G@@/K@ C/C^@B^(%8@@@^/K@ F4C@@B^*C^G@@[[@@B^& @@B^$9?@B^*G@@B^&9*@B^4C@@B^4TB )@@G@@9?W@@@9*KB^4/K@ D<&9K__.9? )@@9*@B^E9? )@@9*@B^CC@@B^E9?W@@]9*KB^KC@@B^ETC )@@G@@9?W@@^9*KB^EC@@B^EH@@A83/@@^M,/C@ FN&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^M8TD )@@G@@9* )@]9?@B^E9* )@]/K@#V#9*@B^M9?@B^M/@@^M_9*@BA@C8K@@C[@KBA]C^G@@[[@@BA#TE )@@G@@R@KBA@O^KBA]&8K@@[C[)BA#:P)C4]/K@^NP[P)C4]C[0@@M;P0@@=W90@@AG'@,A0[E@C4]TF )@@G@@;P0@@=W90@@E;%@@@G;(0@@MG[0@@OG[0 K.:[0 K.C[0 K"[[0C4[H9)@@[;P)@@=W9)@@ATG )@@G@@/,0@_5@@#B^K@@@C4[#CV@@@@@] C/@@# E>C8[)@@'^K[@_8^)^NY'^@[[]&9K@@] @@@@HTH )@@G@@C8A@@@R9>@@@9* )@]C8@^N?9* )@]9?@B^M9* )@]/K@#WE9*@B^EC@@B^C9?KB^E9*W@@]TI )@@G@@R9Q@@@R[>@@]C@>@@^9?@B^E')I@@@/KI@@]&9K__.9? )@@9*@B^E9? )@@9*@B^CC^@B^DTJ )@@G@@[^@A"^9?@B#Q9?)A"#/@@^OGC G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@^OG%@/@@#/K@^O^TK )@@G@@&;@@@@9*@B^]C@@B^]/KGK@^&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^OQ9* )@]9?@B^CTL )@@G@@9* )@]/K@]2&9*@B^C/K@^PT/K@ FQC@@B^C9?W@@@9*KBA@9?W@@]9*KBA]/K@^O&9?@B^CTM )@@G@@/@@^O>9*@BA@C8K@@C[@KBA]C^G@@[[@@BA#C@@B^EC#?@@]C@G@@^C8G@@C[@@^O;R@KBA@TN )@@G@@O^KBA]&8K@@[C@@BA#;G@@@=W8@@@AC[)@@G/@K^O9G9)@@[G8[@@@C@/@@@N@! GG<@0 K,TO )@@G@@[[G@@@/,0[[Y@@[@@U@@@@@@#D/@@@/K@^P@C8[)@@'^K[@_8^)^O"'^@[[]/K@ C/C9@@@[TP )@@G@@E@@B^C;G@@@=W8@@@E;G)@@A;*)@@AG8!@@0;@)@@AG9@@@[/^@^P 0@@B^C(@@B^C8^@^PMTQ )@@G@@;G)@@AG@) K49*)AWUC8@AWU[@@BA@ @@BA[ @@BA][[@BA#/K@^O&C@@B^EC#?@@]C@G@@^TR )@@G@@C8G@@C[@@^P,R@KB[BO^KB[D&8K@@[C@@B[E;G@@@=W8@@@AC[)@@G/@K^P?G9)@@[G8[@@@TS )@@G@@C@/@@@N@! GG<@0 K,[[G@@@/,0[[Y@@[@@U@@@@@@#E\@@@/K@^P3C8[)@@'^K[@_8^)^P1TT )@@G@@'^@[[]/K@ C/&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^P"9* )@]/K@[YB/S@@@@/K@ C/TU )@@G@@/K@ D@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^QD9* )@]/K@#Y29*@B^*/K@ C/&9K@@]TV )@@G@@9?@B^*9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^QT9* )@]TW )@@G@@/K@#+M9*@B^,/K@ C/C@@A/HH@@B^,/@@^QZ/C@ GA&9K@@]9?@B^,9* )@]C8 @@@!8@CN&TX )@@G@@/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^Q!9* )@]/K@#+M9*@B^4/K@ C/&9K__.TY )@@G@@9? )@@9*@B^,9? )@@9*@B^*C@@A/HH@@B^4/@@^Q9/C@ F*/G@^R(9?@A'<9?)B^,/@@^R$TZ )@@G@@C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@^R$%@/@@#/K@^R@&;@@@@9*@B^S9?@B#=9?)B^*UA )@@G@@/@@^RRC G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@^RR%@/@@#/K@^RH&;@@@@9*@B^4C@@B^4UB )@@G@@9?KB^S9*W@@^/K@ D@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^R>9* )@]9?@B^S9* )@]UC )@@G@@9?@B^*9* )@]9?@B#=9* )@]/K@[,N9*@B#=/K@ D@9?@A'$9*@B^4&9K@@] @@@@HC8A@@@UD )@@G@@R9>@@@9* )@]C8@^R59* )@]9?@A;59* )@]9?@A.79* )@]/K@[1Q9*@B^SC@@B^S9?KB^,UE )@@G@@9*W@@]C@@B^S9?KB^49*W@@^/K@^RA&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^S 9* )@]UF )@@G@@/K@#+M9*@B^&/K@ C//,0[#'@@@B^&#HD@@@/K@ D@&9K@@] @@@@HC8A@@@R9>@@@9* )@]UG )@@G@@C8@^SN9* )@]/K@ ]<9*@B^*/K@ C/&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7&9K@@]UH )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@^S<9* )@]/K@ ]<9*@B^,/K@ C/&9K@@]9?@B^,9* )@]UI )@@G@@C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^S39* )@]/K@ ]<9*@B^4UJ )@@G@@/K@ C/&9K__.9? )@@9*@B^,9? )@@9*@B^*(@@B^*/K@ DO9?@B^,/@@^T]9*@BAWC8K@@CUK )@@G@@[@KBAYC^G@@[[@@BAZ9?@B^4/@@^TD9*@BA)C8K@@C[@KBA+C^G@@[[@@BA@@@9* )@]C8@^T>9* )@]9?@B^&9* )@]UN )@@G@@/K@#V#9*@B^49?@B^4/@@^T?9*@BAGC8K@@C[@KBAIC^G@@[[@@BAJ @@BAJR8)BAGR80BASUO )@@G@@/,0 GPC8@@@_[@GAW38#@^T2CCKBAYC^@BAYG@@BAWCC0BA+C^)BA+G@)BA)&;@@@[&;K@@[UP )@@G@@&;)@@[&;0@@[C[KBAZ/K@^U#')H>G/')J>G%[[]AW38^K^U@QFKBAIQB@BAIG@@BAGC[KBAJUQ )@@G@@/K@^UG')H H C[]AW3')H>G38^K^UD/K@ D2&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^UQUR )@@G@@9* )@]/K@[YB9*@B^*/K@ C/&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^U=9* )@]9?@A;9US )@@G@@9* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^SC@)A/HC@0A/H9!@A.L9(G@@][@/@@^[@?@@AUT )@@G@@9?)B^*9*?@@C9*@B^4/K@ D@@@UV )@@G@@9* )@]C8@^VE9* )@]9?@B^*9* )@]/K@#]M9*@B^*/K@ D\/K@^U79?@B^*/@@^VN9*@BA)UW )@@G@@C8K@@C[@KBA+C^G@@[[@@BA@@@9* )@]C8@^V19* )@]/K@[YB9*@B^*/K@ C/&9K@@]UZ )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@^V_9* )@]9?@A;99* )@]9?@A8H9* )@]/K@[1Q9*@B^SVA )@@G@@9?@B^SC@)A/HC@0A/H9!@A.N9(G@@][@/@@^[@?@@A9?)B^*9*?@@C9*@B^4/K@ D@@@9* )@]C8@^W>9* )@]9?@B^*9* )@]VD )@@G@@/K@#]M9*@B^*/K@ D\/K@^WM9?@B^*/@@^W,9*@BA)C8K@@C[@KBA+C^G@@[[@@BA@@@VH )@@G@@9* )@]C8@^XS9* )@]/K@[YB9*@B^*/K@ C/&9K@@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7VI )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^X*9* )@]/K@^GI9*@B^,/K@ C/&9K__.9? )@@VJ )@@G@@9*@B^*C^@B^([@@A"[ @@A"]C^@B^\[^@A"]C@@A; G8@@@[[@@A; 9?@B#S9?)A"[/@@ E.VK )@@G@@C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ E.%@/@@#/K@^X/&;@@@@9*@B^]C@@B^]/KGK@^VL )@@G@@9?@B^*/@@^YE9*@BASC8K@@C[@KBAUC^G@@[[@@BAV9?@B^,/@@^YL9*@BAWC8K@@C[@KBAYVM )@@G@@C^G@@[[@@BAZ9?@BAUC@)BAZ?@K@@I/K@ C/C@K@@I9*@BAI9?@BAS9*@BAGC@)BAGG^)BAIVN )@@G@@CC0BAI&;)@@[&;0@@[C@@BAWG^@BAYCCKBAY&;@@@[&;K@@[C[)BAJL[)BAZ/H0^Y:H[)@@NVO )@@G@@/K@^Y:')J>G%')H>HP8^)^Y(/D)^Y,/[0 D@*@@A9B/K@ C/C@@BAVH8@@@[[@@BAVC@@BAUVP )@@G@@G@@ K&!@@ K2'K@ K3[@@BAU/K@^YM&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^Z#9* )@]VQ )@@G@@9?@B^*9* )@]/K@#U(9*@B^*9?@B^*/@@^ZE9*@BASC8K@@C[@KBAUC^G@@[[@@BAV/K@^YFVR )@@G@@9?@B^*/@@^ZM9*@BASC8K@@C[@KBAUC^G@@[[@@BAV&9K@@] @@@@HC8A@@@R9>@@@9* )@]VS )@@G@@C8@^ZV9* )@]/K@^Z//S@@@@/K@ C//K@^ZZ/K@ C/&9K@@] @@@@HC8A@@@R9>@@@9* )@]VT )@@G@@C8@^Z$9* )@]/K@#."/S@@@@/K@ DA&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^Z39* )@]VU )@@G@@9?@B^*9* )@]/K@#U(9*@B^*9?@B^*/@@^Z'9*@BASC8K@@C[@KBAUC^G@@[[@@BAV/K@^ZNVV )@@G@@C@@BAV[@@A"V @@A"WC@@B^,C@W@@A!@W@@AC@W@@AC@G@@^/@@^)BG@@B^,/K@^)[[@KB^0VW )@@G@@ @@B^1*@@A87/K@^)JC@@B^0H@@A"V/@@^)J/C@ C/9?@BAS9*@BAK9?@BAU9*@BAM @@BANVX )@@G@@9?@A_[9*@A":9?@A"Z9*@A"X*@@A9B/K@^-B(@@A87/K@^)Z9?@A"V9*@B^0/K@^)+9?@A"VVY )@@G@@H@@B^09*@B^09?@B^0G@@A;Z9*@B^0&9K@@]9?@B^,9* )@]9?@B^09* )@]C8 @@@!8@CN&VZ )@@G@@/K@ F79?@BAK9*@B /9?@BAM9*@B "C@@A":G8@@@A[@@A":C@@A":H@@A"(/@@^)8/C@ F>WA )@@G@@C8@@@[[@@A;NC@@A":9?KA.V9*W@@]C@@BAN[@@B^Q @@B^RC@@A":9?KB^Q9*W@@^C@@A":WB )@@G@@9?KA;N9*W@@A/K@^-WC@@A":G8@@@A[@@A":C@@A":H@@A"(/@@^-I/C@ F> @@B _C@@A":WC )@@G@@9?KA.R9*W@@]C@@BAN[@@B^Q @@B^RC@@A":9?KB^Q9*W@@^C@@A":9?KA;N9*W@@A/K@^-WWD )@@G@@9?@B^,9*@B A @@A"$C8@@@[[@@A;NC@@A"$G8@@@][@@A"$C@@B AG@@A"$9?W@@@9*KB^2WE )@@G@@C@@A"$G8@@@][@@A"$C@@B AG@@A"$9?W@@@9*KB^&C@@A"$G8@@@][@@A"$C@@B AG@@A"$WF )@@G@@9?W@@@9*KB^?C@@A":G8@@@A[@@A":C@@A":H@@A"(/@@^-./C@ F>C@@A":9?KB^&9*W@@]WG )@@G@@C@@BAN[@@B^Q @@B^RC^@B^![^@B^RC@@A":9?KB^Q9*W@@^C@@A":9?KA;N9*W@@A*@@A87WH )@@G@@/K@^+MC@@BANG@@B^?H@@A"V/@@^+M/C@^+QC@@B^2/KGK@@ @@A;N/K@^+TC@@A":9?W@@AWI )@@G@@9*KA;NC@@A":9?W@@]9*KB^&C@@A":9?W@@^9*KB^?C@@A":H/@@@A[@@A":C@@A":H@@A_[WJ )@@G@@/@@^+&/G@ FT9?@B^&9*@A"$(@@A"$/K@^+1C@@B^?[@@BANCC@A"*>8@@@^/K@^--C@@A"$WK )@@G@@/KGK@@*@@A;N/K@^+Q/K@^+OC^@B^$[@@A"$ @@A"**@@A"$/K@^-Z/K@ DA*@@A87/K@^+"WL )@@G@@*@@A;N/K@ C/&9K__.9? )@@9*@B^09? )@@9*@B^,C@@B^0H/@@@[[@@B^0C@@B^0/@@ C/WM )@@G@@/G@ FTC@@BANG@@A/[[@@BAN/K@^)>9?@B^,9*@B A/K@^+1&9K@@] @@@@HC8A@@@R9>@@@WN )@@G@@9* )@]C8@^G8@@@][@@A">C@@B @G@@A">WP )@@G@@9?W@@@9*KB^=CC@B^>=8@@@^/K@^>[9?@B#=9?)B^=/@@^=KC G@@[;D@@@]N@K@@K'K@ K1WQ )@@G@@2@?)@A/K@^=K%@/@@#/K@^<8&;@@@@9*@B^4C@@B^49?W@@^9*KB^4&9K@@] @@@@HC8A@@@WR )@@G@@R9>@@@9* )@]C8@^=H9* )@]9?@B^=9* )@]9?@B^49* )@]/K@^MZ9*@B^*/K@ C//K@^=NWS )@@G@@C@@B^=9?W@@]9*KB^*&9K@@]9?@B^=9* )@]9?@B^*9* )@]C8 @@@!8@CN&/K@ F7&9K@@]WT )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@^=<9* )@]/K@^GI9*@B^,/K@ C/&9K__.9? )@@9*@B^*WU )@@G@@9? )@@9*@B^=C^@B^([@@A"[ @@A"]C^@B^\[^@A"]C@@A; G8@@@[[@@A; 9?@B#U9?)A"[WV )@@G@@/@@ E.C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ E.%@/@@#/K@^=9&;@@@@9*@B^]C@@B^]WW )@@G@@/KGK@^&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^>F9* )@]9?@B^=9* )@]/K@#P9*@BASC8K@@C[@KBAUC^G@@[[@@BAV&9K@@]9?@B^=WY )@@G@@9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^>=9* )@]/K@^Z/WZ )@@G@@/S@@@@/K@ C//K@^>*/K@ C/&9K__.9? )@@9*@B^=C8@@@[[@@A;T/K@^$X&9K@@] @@@@HXA )@@G@@C8A@@@R9>@@@9* )@]C8@^>89* )@]9?@B^*9* )@]/K@#U(9*@B^*9?@B^*/@@^>_9*@BASXB )@@G@@C8K@@C[@KBAUC^G@@[[@@BAV/K@^>Q&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^&F9* )@]XC )@@G@@9?@B^*9* )@]/K@#U(9*@B^S9?@B^S/@@^&M9*@BAGC8K@@C[@KBAIC^G@@[[@@BAJ/K@^&VXD )@@G@@9?@B^*/@@^&U9*@BAGC8K@@C[@KBAIC^G@@[[@@BAJ9?@B^,/@@^&-9*@BAWC8K@@C[@KBAYXE )@@G@@C^G@@[[@@BAZ9?@BAG9*@B /9?@BAI9*@B " @@B _9?@BAG9*@BASC@@BAJH@@B _[@@@@IXF )@@G@@C@@B _[@)BAVGC@BAI;G@@@=W8@@@AG^@BAI[^@BAU[CKBAU9?@BAUC@)BAZ?@K@@I/K@ C/XG )@@G@@C@K@@I9*@BAM9?@BAS9*@BAKC@)BAKG^)BAMCC0BAM&;)@@[&;0@@[C@@BAWG^@BAYCCKBAYXH )@@G@@&;@@@[&;K@@[C[)BANL[)BAZ/H0^$HH[)@@N/K@^$H')J>G%')H>HP8^)^$F/H)^$M')H HZXI )@@G@@/K@^$R/K@^$R/[0^$P/H0^$R/K@^$R @@A;T/K@^$X*@@A9B/K@ C/C@@B _G@@A/[[@@B _XJ )@@G@@/K@^&$9?@BAS9*@BA^C@@BAVH@@BAN[@@@@IC@@BAN[@)BABGC@BAU;G@@@=W8@@@AG^@BAUXK )@@G@@[^@BAA[CKBAA&9K@@]9?@B^=9* )@]C8 @@@!8@CN&/K@ F7&9K@@]9?@BA^9* )@]9?@BAAXL )@@G@@9* )@]9?@B /9* )@]9?@B "9* )@]C8 @@@!8@CN&/K@ F7(@@A;T/K@^*B&9K@@] @@@@HXM )@@G@@C8A@@@R9>@@@9* )@]C8@^*A9* )@]/K@#."/S@@@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]XN )@@G@@C8@^*J9* )@]/K@[YB9*@B^4/K@ C/&9K__.9? )@@9*@B "9? )@@9*@B /9? )@@9*@BAAXO )@@G@@9? )@@9*@BA^&9K__.9? )@@9*@B^=*@@B _/K@^*-(@@BAB/K@^%BC^@B^5:8@@@[/K@^(AXP )@@G@@C^@B^5:8@@@#/K@^:+C^@B^5:8@@@A/K@^:GC^@B^5%8@@@F/K@ E.&9K@@] @@@@HC8A@@@XQ )@@G@@R9>@@@9* )@]C8@^*99* )@]9?@A/B9* )@]9?@A8H9* )@]/K@[1Q9*@B^SC@@B^SC@KA/TXR )@@G@@N@KA/B&;@@@[&;K@@[M#H)@]C@@B^S9?KB^49*W@@C9?@B^S9*@B^4/K@^:+9?@B^4/@@^(GXS )@@G@@9*@BA)C8K@@C[@KBA+C^G@@[[@@BA@@@9* )@]C8@^(%9* )@]9?@B^*9* )@]/K@#V#9*@B^49?@B^4XV )@@G@@/@@^(19*@BAGC8K@@C[@KBAIC^G@@[[@@BAJ @@BAJR8)BAGR80B //,0 GPR8)BAGR80BA)XW )@@G@@/,0 GPR8)BAGR80BA^/,0 GP&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^%A9* )@]9?@B^4XX )@@G@@9* )@]/K@#WE9*@B^4C@@B^=9?KB^49*W@@]9?@B#&9?)B^=/@@^%0C G@@[;D@@@]N@K@@KXY )@@G@@'K@ K12@?)@A/K@^%0%@/@@#/K@^%L&;@@@@9*@B^,C@@B^,9?W@@^9*KB^,&9K@@]9?@B^=XZ )@@G@@9* )@]C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^%?9* )@]9?@B^4YA )@@G@@9* )@]9?@B^,9* )@]/K@^N6/S@@@@&9K__.9? )@@9*@B^=(@@A8:/K@ DE9?@B#*9?)B^=YB )@@G@@/@@ DEC G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ DE%@/@@#/K@^%9&;@@@@9*@B^]&9K@@]YC )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@^:D9* )@]9?@B^]9* )@]/K@^;F/S@@@@/K@ FQ/K@ DEYD )@@G@@C9@@@[E@@B^4;G@@@=W8@@@E;G)@@A;*)@@AG8!@@0;@)@@AG9@@@[/^@^:I0@@B^4(@@B^4YE )@@G@@8^@^:V;G)@@AG@) K49*)AWUC8@AWU[@@BA) @@BA- @@BA+[[@BA@@@9* )@]C8@^:09* )@]9?@A_D9* )@]/K@#R(YG )@@G@@9*@B^*C@@B _[@@B^Q @@B^R&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^?@9* )@]9?@A;9YH )@@G@@9* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^SC@)B^QC@0A/H9!@A/<9(G@@][@/@@^[@?@@AYI )@@G@@9?)B^*9*?@@C9*@B^*9?@BA^9*@BAW9?@BAA9*@BAY&9K@@] @@@@HC8A@@@R9>@@@9* )@]YJ )@@G@@C8@^?T9* )@]9?@A_F9* )@]/K@#R(9*@B^,C@@BAB[@@B^Q @@B^R&9K@@] @@@@HC8A@@@YK )@@G@@R9>@@@9* )@]C8@^?(9* )@]9?@A;99* )@]9?@A8H9* )@]/K@[1Q9*@B^S9?@B^SC@)B^QYL )@@G@@C@0A/H9!@A/<9(G@@][@/@@^[@?@@A9?)B^,9*?@@C9*@B^,C@@B^*C^G@@[[@@B^% @@B^:YM )@@G@@C@@B^,C^G@@[[@@B^0 @@B^1C@@B^4C^G@@[[@@B^6 @@B^79?@B^%G@@B^69*@B^W9?@B^WYN )@@G@@G@@B^09*@B^W&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^!M9* )@]9?@B^W9* )@]9?@A8HYO )@@G@@9* )@]/K@[1Q9*@B^S9?@B^S9*@B^)C@@B^4C@W@@A!@W@@AC@W@@AC@G@@^/@@^!XG@@B^4YP )@@G@@/K@^!R[@KB^Y @@B^ZC@@B^%C@KB^SC@)B^*9!I@@]9(H@@]9!I@@^G[@A/H:[@A/H @@@@KYQ )@@G@@G[KA/H:[KA/HC[KB^%9(H@@^9!I@@AG[@B^YG[KB^Y9(H@@AC^"@@#/@0^!49!I@@C9(H@@CYR )@@G@@G80@@#;)0@@[H@@@@J/@@^!;G@K@@JG@)@@J/K@^!+G@K@@J[@KB^SC@@B^,C@W@@A!@W@@AYS )@@G@@C@W@@AC@G@@^/@@^, G@@B^,/K@^!_[@KB^Y @@B^Z9?@B^%G@@B^69*@B^WC@@B^6C@KB^SYT )@@G@@C@)B^49!I@@]9(H@@]9!I@@^G[@B^%:[@B^% @@@@KG[KB^%:[KB^%C[KB^W9(H@@^9!I@@AYU )@@G@@G[@B^YG[KB^Y9(H@@AC^"@@#/@0^,Z9!I@@C9(H@@CG80@@#;)0@@[H@@@@J/@@^,&G@K@@JYV )@@G@@G@)@@J/K@^,HG@K@@J[@KB^SC@@B^0C@KB^SC@)B^,9!I@@]9(H@@]9!I@@^G[@B^W:[@B^WYW )@@G@@ @@@@KG[KB^W:[KB^WC[KA/H9(H@@^9!I@@AG[@A/HG[KA/H9(H@@AC^"@@#/@0^,.9!I@@CYX )@@G@@9(H@@CG80@@#;)0@@[H@@@@J/@@^\^G@K@@JG@)@@J/K@^,:G@K@@J[@KB^S9?@B^)9*@B^4YY )@@G@@/K@^%B&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^\L9* )@]/K@[YB9*@B^*/K@ C/C^@B^(YZ )@@G@@[^@A"^9?@B#W9?)A"#/@@ E.C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ E.%@/@@#/K@^\WZA )@@G@@&;@@@@9*@B^]C@@B^]/KGK@^&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^\?9* )@]/K@[YBZB )@@G@@9*@B^*/K@ C/&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^\'9* )@]9?@A;99* )@]9?@A8HZC )@@G@@9* )@]/K@[1Q9*@B^S9?@B^SC@)A;ZC@0A/H9!@A.Z9(G@@][@/@@^[@?@@A9?)B^*9*?@@CZD )@@G@@9*@B^4/K@ D<&9K__.9? )@@9*@A.\9?@A.\&;@__.C8)@@]>C?)@[/K@^0G'K@ K;9*@A.1ZE )@@G@@H@@A.\#@@A.3 @@A.4(@@A.3/K@ C/C@@A.1C^G@@[[@@A.5 @@A.69?@A.5H@@A.39*@A.5ZF )@@G@@C@@A.5H/@@@][@@A.5C@@A.5/@@ C//G@ C/C@@A.3C@KA.1[^H@@[C@@A.\G8@@@][@@A.\ZG )@@G@@C@@A.\9?KA.\9*W@@@C@@A.\CCW@@[)8K@@][C?@@[C@@A.5C@KA.\[^H@@[/K@ C/&9K@@]ZH )@@G@@ @@@@HC8A@@@R9>@@@9* )@]C8@^0;9* )@]/K@#Y29*@B^*/K@ C/&9K@@]9?@B^*9* )@]ZI )@@G@@C8 @@@!8@CN&/K@ F7&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^1F9* )@]/K@ ]<9*@B^,ZJ )@@G@@/K@ C/&9K__.9? )@@9*@B^*9?@A_P9?)B^,/@@^17C G@@[;D@@@]N@K@@K'K@ K12@?)@CZK )@@G@@/K@^17%@/@@ /K@^1R&;@@@@9*@B^,C@@B^,9?W@@]9*KB^,C@@B^,9?W@@@9*KB^,9?@B^,ZL )@@G@@9?)B^*/@@ C/C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ C/%@/@@#/K@^1%&;@@@@9*@B^,ZM )@@G@@C@@B^,9?KA/H9*W@@]C@@B^,9?KA/H9*W@@^/K@ D@9?@B^,9/@B 6/K@ GD9?@A'39*@B^,ZN )@@G@@&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^2^9* )@]/K@^1)/S@@@@/K@ C//K@ FQ9?@A'7ZO )@@G@@9*@B^,/K@^1)9?@B @G@@A">9*@B^4&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^2R9* )@]ZP )@@G@@9?@A/[9* )@]/K@]AP/S@@@@C^@A8&[^@B^5/K@ D<&9K@@] @@@@HC8A@@@R9>@@@9* )@]ZQ )@@G@@C8@^2<9* )@]/K@ BN/S@@@@/K@ C/C^@B^([@@A"[ @@A"]C^@B^\[^@A"]9?@B#)9?)A"[ZR )@@G@@/@@ E.C G@@[;D@@@]N@K@@K'K@ K12@?)@A/K@ E.%@/@@#/K@^21&;@@@@9*@B^]C@@B^]ZS )@@G@@/KGK@^9?@B^*H@@B^,/0@ EQ9*@B^4/K@ D)9?@B^*/@@^3^9*@BASC8K@@C[@KBAUC^G@@[ZT )@@G@@[@@BAVC8@BAS/,0 JD/K@ E.9()B^*/K@^299?@B^,/@@^3K9*@BAWC8K@@C[@KBAYC^G@@[ZU )@@G@@[@@BAZC8@BAW/,0 JD/K@ E.9()B^,/K@^299?@B^*/@@^3W9*@BASC8K@@C[@KBAUC^G@@[ZV )@@G@@[@@BAVC8@BAS/,0 JD/K@ E.9()B^*/K@^3EC@@B^*"^@B^,C@KB^(9*@B^4/K@ D)C@@A":ZW )@@G@@G8@@@A[@@A":C@@A":H@@A"(/@@^3,/C@ F>C@@A":9?KA.<9*W@@]C@@BAN[@@B^Q @@B^RZX )@@G@@C@@A":9?KB^Q9*W@@^C@@A":9?KA;N9*W@@AC8@@@[[@@A;NC@@A.T/KGK@@C@@A":9?W@@]ZY )@@G@@9*KB^&C@@A":9?W@@^9*KB^?/K@^3$&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^4H9* )@]ZZ )@@G@@/K@[YB9*@B^*/K@ C/&9K@@] @@@@HC8A@@@R9>@@@9* )@]C8@^4V9* )@]9?@A;99* )@]AA )@@G@@9?@A8H9* )@]/K@[1Q9*@B^S9?@B^SC@)A/HC@0A/H9!@A.>9(G@@][@/@@^[@?@@A9?)B^*AB )@@G@@9*?@@C9*@B^4/K@ D@@@9* )@]AD )@@G@@C8@^5[9* )@]9?@B^*9* )@]/K@#]M9*@B^*/K@ D\/K@^4,9?@B^*/@@^5E9*@BA)C8K@@CAE )@@G@@[@KBA+C^G@@[[@@BAM@@@[-M@@@/?KA7:R[@ K6O8)@@[[5M@@@/K[@@@"HW J?"DW J?BB )@@G@@[5M@@@[1M@@@[!M@@@[(M@@@[>M@@@[-M@@@/?KA7_R[@ K6O8)@@[[5M@@@/K[@@@( 13A6BC )@@G@@,A2)[K@@@A8#@@+@@=@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@BD )@@G@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@BE )@@G@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@@@@@@@@@@@@BF )@@G@@@@@@@F@@@@@@@@@@@@@@@A8(@@+@@=@@@@@@@@@@@A@@@@@@@@@@@@@@@GHK@@@@@A@@@@@@BG )@@G@@@@@@@@@@@[IC@@@@@A@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@BH )@@G@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@BI )@@G@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@A9J@@+@@8@@@C*W@@@@@#@@@@@@@@@@@@@@@C(+BJ )@@G@@@@@@@#@@@@@@@@@@@@@@@C("@@@@@#@@@@@@@@@@@@@@@C*A@@@@@#@@@@@@@@@@@@@@@C(6BK )@@G@@@@@@@#@@@@@@@@@@@@@@@C%A@@@@@#@@@@@@@@@@@@@@@C%*@@@@@#@@@@@@@@@@@@@@@@@@BL )@@G@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@[@@@[@@@@@@@@@@@@@@@@@@BM )@@G@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@BN )@@G@@@@@@@A@@@@@@@@@@@@@@@A'D@@+@@^@@@@@@@@@@@@@@@A'<@@@@@@@@@A'J@@+@@C@@@@@@BO )@@G@@@@@@@@@@@A'T@@@@@@@@@@@@@@@@@@@@@A'X@@@@@@@@@A'T@@+@@C@@@@@A@@@@@A@@@A'NBP )@@G@@@@@@@@@@@@@[@@@@@A@@@@@@@@@@@@@@@A'<@@+@@^@@@@@ @@@@@A@@@@[K@@@@@A@@@A'(BQ )@@G@@@@+@@O@@@B#*@@@@@@@@@@@@@@@@@@@@@B#?@@@@@@@@@@@@@@@@@@@@@B#0@@@@@@@@@@@@BR )@@G@@@@@@@@@@@B#4@@@@@@@@@@@@@@@@@@@@@B#8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BS )@@G@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@BU )@@G@@@@@@@@@@@@@0@@@@@@@@@@@C@@@@@@@@@@@[@@@@@@@@@C1R@@@@@@@@@@@C@@@@@@@@@@AKBV )@@G@@@@@@@@@@@BDI@@^@@[@@@@@A@@@@@@@@@@[=@@@@@@@@@@@O@@@@@@@@@@@]@@@@@@@@@@@@BW )@@G@@@@@@@@@@@@@#@@@@@@@@@@@^@@@@@@@@@@@[@@@@@@@@@@@C@@@@@@@@@@@A@@@@@@@@@B=+BX )@@G@@@@@@@@@@@@,8@@@@@@@@@@@[@@@@@@@@@A'T@@@@@@@@@@@A@@@@@@@@@@@Q@@@@@@@@@C%"BY )@@G@@@@@@@@@@@BI=@@@@@@@@@@@@@@@@@@@@@C%0@@@@@@@@@C*I@@@@@#@@@C*0@@@@@#@@@C(EBZ )@@G@@@@@@@#@@@C(S@@@@@#@@@C%K@@@@@#@@@BEC@@^@@[@@@BD*@@^@@]@@@BD%@@^@@@@@@BEQCA )@@G@@@@^@@[@@@BEK@@^@@[@@@BC%@@^@@@@@@BES@@^@@@@@@BEU@@^@@@@@@BEY@@^@@[@@@BD,CB )@@G@@@@^@@@@@@BE)@@^@@[@@@BE+@@^@@[@@@BD0@@^@@[@@@BFK@@^@@@@@@BE&@@^@@@@@@BE*CC )@@G@@@@^@@@@@@BD6@@^@@[@@@BD8@@^@@[@@@BD'@@^@@[@@@BD/@@^@@[@@@BD&@@^@@@@@@BDOCD )@@G@@@@^@@@@@@BE%@@^@@[@@@BE?@@^@@@@@@BE,@@^@@@@@@BE0@@^@@[@@@BE6@@^@@[@@@BE8CE )@@G@@@@^@@[@@@BE'@@^@@[@@@BE]@@^@@]@@@BF@@@^@@@@@@BF]@@^@@@@@@BF^@@^@@@@@@BE^CF )@@G@@@@^@@#@@@BFA@@^@@[@@@BFC@@^@@[@@@BFM@@^@@@@@@BFE@@^@@[@@@BM4@@@@@@@@@BQCCG )@@G@@@@@@@@@@@BQC@@@@@@@@@BT^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH )@@G@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[=@@@@@@@@@@@@@@@@@@CI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[8@@@@@@@@@@@@@[@@@[@@@@@@CL )@@G@@@@@@@@@@@@@@@@@@@@@@@C#6@@@@@@@@@B=?@@@@@@@@@@@@@@@@@@@@@C#"@@@@@@@@@@@@CM )@@G@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]T*@@^@@@@@@]WW@@^@@@@@@#FGCN )@@G@@@@@@@[@@@#(7@@^@@@@@@B=?@@@@@@@@@ FA@@^@@@@@@B 8@@@@@@@@@BA@@@@@@@@@@BASCO )@@G@@@@@@@@@@@BAW@@@@@@@@@BA)@@@@@@@@@BAG@@@@@@@@@A8(@@@@@@@@@A9J@@@@@@@@@A'(CP )@@G@@@@@@@@@@@B]J@@@@@@@@@@@@@@@@@G@@@B]Q@@@@@@@@@@@@@@@@[P@@@B]>@@@@@@@@@@@]CQ )@@G@@@@@@[C@@@B]>@@@@@@@@@@@@@@@@[-@@@B]>@@@@@@@@@@@]@@@@[D@@@B]>@@@@@@@@@@@@CR )@@G@@@@@@@G@@@B]>@@@@@@@@[@@I@@@@@G@@@ KR@@@@@@@@@@@@@@@@[@@@@ K+@@@@@@@@@@@@CS )@@G@@@@@@@[@@@BI*@@@@@@@@@@@@@@@@@@@@@ K<@@@@@@@@@@@@@@@@@]@@@ K<@@@@@@@@@@@@CT )@@G@@@@@@@[@@@BI*@@@@@@@@@@@@@@@@@@@@@B]L@@@@@@@@@@@@@@@@@X@@@ K>@@@@@@@@@@@@CU )@@G@@@@@@@[@@@BI*@@@@@@@@@@@@@@@@@@@@@ K=@@@@@@@@@@@@@@@@@[@@@B]6@@@@@@@@@@@@CV )@@G@@@@@@@E@@@BI*@@@@@@@@@@@@@@@@@@@@@B@$@@@@@@@@@@@@@@@@@ ARRAY @@@B@?@@@@@@CW )@@G@@@@@@@@@@@@@[ @@@B@1@@@@@@@@@@@@@@@@@# = @@@B@6@@@@@@@@@@@@@@@@@[CX )@@G@@, @@@B@;@@@@@@@@@@@@@@@@@#COM @@@B[@@@@@@@@@@@@@@@@@@]= @@@B[ CY )@@G@@@@@@@@@@@@@@@@@@@C,TIME = @@@B[F@@@@@@@@@@@@@@@@@HEXTERNAL TYPE CZ )@@G@@@@@B[M@@@@@@@@@@@@@@@@@^LEFT @@@B[R@@@@@@@@@@@@@@@@@^LIST @@@B[W@@@@@@DA )@@G@@@@@@@@@@@@@[( @@@B[-@@@@@@@@@@@@@@@@@^ OF @@@B[&@@@@@@@@@@@@@@@@@[DB )@@G@@) @@@B[:@@@@@@@@@@@@@@@@@^*** @@@B[0@@@@@@@@@@@@@@@@@D CALL OF DC )@@G@@@@@B[6@@@@@@@@@@@@@@@@@ALEVEL @@@B[;@@@@@@@@@@@@@@@@@I STATEMENT DD )@@G@@@@@B]]@@@@@@@@@@@@@@@@@CUNANCHOR @@@B]C@@@@@@@@@@@@@@@@@AUNLIST@@@B]HDE )@@G@@@@@@@@@@@@@@@@@@@FTRANSFER TO DF )@@G@@ DG )@@G@@ DH )@@G@@ DI )@@G@@ @@@B]/@@+@#8@@@CA@@@@@@@@@C>O@@@@@@@@@C>&@@@@@@@@@C>0@@@@@@@@@C>"@@@@@@DK )@@G@@@@@C&O@@@@@@@@@C&&@@@@@@@@@C&4@@@@@@@@@C&"@@@@@@@@@C$K@@@@@@@@@@@@@@@@@@DL )@@G@@@@@C$+@@@@@@@@@C$0@@@@@@@@@A8#@@@@@@@@@A'D@@@@@@@@@A'J@@@@@@@@@@@@@@@@@@DM )@@G@@@@@BEA@@^@@]@@@@@@@@@@@@@@@BE@@@^@@[@@@@@@@@@@@@@@@BD2@@^@@]@@@@@@@@@@@@DN )@@G@@@@@BD4@@^@@]@@@@@@@@@@@@@@@BD"@@^@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@[EC )@@G@@@@@@@@@[@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ED )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@[@@@@@@@@@@@@EE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BB6@@@@@@EF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@EG )@@G@@@@@@@@@@@@@@@@@BW&@[@@@[@@@@@@@@@@@@@@@@@W@@@@@@@@@BB'@@@@@@@@@@@@@[@@@[EH )@@G@@@@@@@@@[@@@[@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@@@@@@@@@@@@[@@@@EI )@@G@@@@@@@@@[@@@@@@@@@@@[@@@@@@@BB6@@+@@]@@@@@@@@@@@@@@@BB'@@+@@W@@@A8#@@@@@@EJ )@@G@@@@@BCS@@@@@@@@@B]/@@@@@@@@@A8(@@@@@@@@@A9J@@@@@@@@@C#"@@@@@@@@@A'D@@@@@@EK )@@G@@@@@A'J@@@@@@@@@A'<@@@@@@@@@A'T@@@@@@@@@A'(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EL )@@G@@@@@@@@@@@@@@@@@BCS@@+@AI@@@[LF@@@@@]@@@@@Y@@@@@X@@@ FA@@@@@]@@@@@T@@@@@SEM )@@G@@@@@ FA@@@@@]@@@@@<@@@@@+@@@ FA@@@@@]@@@@@!@@@@@?@@@]B8@@@@@]@@@@@O@@@@@NEN )@@G@@@@@]:F@@@@@]@@@@@*@@@@@$@@@@@%@@@@@(@@@]0'@@@@@]@@@@@/@@@@@;@@@].,@@@@@]EO )@@G@@@@@@@2@@@@@2@@@#4R@@@@@]@@@@@%@@@@@(@@@#5>@@@@@]@@@@@/@@@@@;@@@^CO@@@@@]EP )@@G@@@@@@@E@@@@@D@@@^2V@@@@@]@@@@@Y@@@@@X@@@[%(@@@@@[@@@#98@@@@@[@@@#Y2@@@@@[EQ )@@G@@@@@#&,@@@@@[@@@#3)@@@@@[@@@#3*@@@@@[@@@#'W@@@@@[@@@ FA@@@@@[@@@^IB@@@@@[ER )@@G@@@@@ FA@@@@@[@@@^P6@@@@@[@@@ FA@@@@@[@@@^2E@@@@@[@@@[>O@@^@@[@@@[$7@@@@@]ES )@@G@@@@@[0K@@@@@@@@@ EW@@@@@@@@@[IZ@@@@@@@@@ FD@@@@@[@@@#A(@@@@@]@@@ [M@@@@@]ET )@@G@@@@@#WR@@@@@[@@@#W&@@@@@[@@@#YK@@@@@[@@@#ZL@@@@@[@@@#<,@@@@@]@@@#&R@@@@@]EU )@@G@@@@@^XK@@@@@]@@@^<$@@@@@#@@@^.Y@@@@@]@@@[M9@@@@@[@@@[U @@@@@@@@@[T;@@@@@@EV )@@G@@@@@[:V@@@@@[@@@[27@@@@@[@@@[\I@@@@@@@@@[0D@@@@@@@@@[O:@@@@@[@@@^]R@@@@@@EW )@@G@@@@@^AG@@@@@@@@@[UD@@@@@@@@@[6+@@@@@[@@@^@3@@@@@[@@@^]:@@@@@[@@@#A^@@@@@@EX )@@G@@@@@^@!@@@@@@@@@^@!@@@@@@@@@#?$@@@@@[@@@^@K@@@@@@@@@^@K@@@@@@@@@[P8@@@@@[EY )@@G@@@@@[UT@@@@@@@@@[U6@@@@@@@@@^JQ@@@@@[@@@^U0@@@@@[@@@^WF@@@@@[@@@^+O@@@@@@EZ )@@G@@@@@^+Q@@@@@@@@@ C/@@@@@@@@@^+4@@@@@@@@@^+'@@@@@@@@@[R @@@@@[@@@[3'@@@@@[FA )@@G@@@@@^4$@@@@@[@@@#H'@@@@@@@@@#H<@@@@@@@@@#H'@@@@@@@@@^3"@@@@@@@@@[MR@@@@@[FB )@@G@@@@@@@@@@@@@@@@@[S8@@^@@[@@@@@@@@@@@@@@@[U'@@@@@[@@@@@@@@@@@@@@@[Z]@@@@@]FC )@@G@@@@@@@@@@@@@@@@@[-Z@@@@@]@@@@@@@@@@@@@@@[1C@@@@@[@@@@@@@@@@@@@@@[2P@@@@@[FD )@@G@@@@@@@@@@@@@@@@@]B[@@@@@[@@@@@@@@@@@@@@@]M#@@@@@[@@@@@@@@@@@@@@@]BZ@@@@@[FE )@@G@@@@@@@@@@@@@@@@@]JB@@@@@]@@@@@@@@@@@@@@@]IO@@@@@[@@@@@@@@@@@@@@@]TJ@@@@@[FF )@@G@@@@@@@@@@@@@@@@@]P1@@@@@[@@@@@@@@@@@@@@@]>3@@@@@]@@@@@@@@@@@@@@@]%_@@@@@]FG )@@G@@@@@@@@@@@@@@@@@]%O@@@@@[@@@@@@@@@@@@@@@]2^@@@@@[@@@@@@@@@@@@@@@]5L@@@@@[FH )@@G@@@@@@@@@@@@@@@@@].G@@@@@]@@@@@@@@@@@@@@@# +@@@@@[@@@@@@@@@@@@@@@[Z=@@@@@]FI )@@G@@@@@@@@@@@@@@@@@#RX@@@@@]@@@@@@@@@@@@@@@#YS@@@@@]@@@@@@@@@@@@@@@#Y=@@@@@]FJ )@@G@@@@@@@@@@@@@@@@@#-6@@@@@[@@@@@@@@@@@@@@@[>O@@^@@[@@@@@@@@@@@@@@@#$:@@@@@]FK )@@G@@@@@@@@@@@@@@@@@#*H@@@@@[@@@@@@@@@@@@@@@#*\@@@@@]@@@@@@@@@@@@@@@#!V@@@@@]FL )@@G@@@@@@@@@@@@@@@@@[ZT@@@@@]@@@@@@@@@@@@@@@#2"@@@@@]@@@@@@@@@@@@@@@#'K@@@@@]FM )@@G@@@@@@@@@@@@@@@@@^AV@@@@@[@@@@@@@@@@@@@@@^A.@@@@@]@@@@@@@@@@@@@@@^I4@@@@@[FN )@@G@@@@@@@@@@@@@@@@@^KH@@@@@#@@@@@@@@@@@@@@@^MB@@@@@[@@@@@@@@@@@@@@@^SF@@@@@#FO )@@G@@@@@@@@@@@@@@@@@^Q[@@@@@#@@@@@@@@@@@@@@@^R.@@@@@[@@@@@@@@@@@@@@@^UI@@@@@[FP )@@G@@@@@@@@@@@@@@@@@^V(@@@@@[@@@@@@@@@@@@@@@^@@@@@@@@@BG/@@^@@@GY )@@G@@@@@BK:@@@@@@@@@BH^@@^@@@@@@BK0@@@@@@@@@BH@@@^@@@@@@BK5@@@@@@@@@BHC@@^@@@GZ )@@G@@@@@BK'@@@@@@@@@BHG@@^@@@@@@BK_@@@@@@@@@BHK@@^@@@@@@BL^@@@@@@@@@BHO@@^@@@HA )@@G@@@@@BLD@@@@@@@@@BHS@@^@@@@@@BLI@@@@@@@@@BHW@@^@@@@@@BLN@@@@@@@@@BH)@@^@@@HB )@@G@@@@@BLS@@@@@@@@@BH*@@^@@@@@@BU.@@@@@@@@@BH=@@^@@@@@@BLX@@@@@@@@@BH?@@^@@@HC )@@G@@@@@BL$@@@@@@@@@BH8@@^@@@@@@BL2@@@@@@@@@BH0@@^@@@@@@BL7@@@@@@@@@BH/@@^@@@HD )@@G@@@@@BL.@@@@@@@@@BI@@@^@@@@@@BM]@@@@@@@@@BI^@@^@@@@@@BMB@@@@@@@@@BIC@@^@@@HE )@@G@@@@@BMG@@@@@@@@@BIG@@^@@@@@@BML@@@@@@@@@BIK@@^@@@@@@BMQ@@@@@@@@@BIO@@^@@@HF )@@G@@@@@BMV@@@@@@@@@BIS@@^@@@@@@BM)@@@@@@@@@BIW@@^@@@@@@BM>@@@@@@@@@BI)@@^@@@HG )@@G@@@@@BM%@@@@@@@@@BI=@@^@@@@@@BM\@@@@@@@@@BT^@@@@@@@@@A9H@@@@@@@@@BTD@@@@@@HH )@@G@@@@@A9Z@@@@@@@@@BTI@@@@@@@@@A9_@@@@@@@@@A_3@@@@@@@@@A9.@@@@@@@@@BTO@@@@@@HI )@@G@@@@@A9D@@@@@@@@@BTT@@@@@@@@@A9N@@@@@@@@@B@<@@@@@@@@@A8N@@@@@@@@@BTY@@@@@@HJ )@@G@@@@@A9R@@@@@@@@@BJG@@@@@@@@@A8V@@@@@@@@@BT<@@@@@@@@@B ?@@@@@@@@@BT!@@@@@@HK )@@G@@@@@A9 @@@@@@@@@BT2@@@@@@@@@B ,@@@@@@@@@BT7@@@@@@@@@A8$@@@@@@@@@BT.@@@@@@HL )@@G@@@@@A9<@@@@@@@@@BU]@@@@@@@@@A9V@@@@@@@@@BUB@@@@@@@@@A'B@@@@@@@@@BUH@@@@@@HM )@@G@@@@@B 0@@@@@@@@@BUN@@@@@@@@@A9[@@@@@@@@@BUS@@@@@@@@@B 6@@@@@@@@@BUY@@@@@@HN )@@G@@@@@A'F@@@@@@@@@BU<@@@@@@@@@A93@@@@@@@@@BU*@@@@@@@@@A85@@@@@@@@@BU,@@@@@@HO )@@G@@@@@A8Z@@@@@@@@@BU3@@@@@@@@@B 2@@@@@@@@@BU9@@@@@@@@@A'X@@@@@@@@@BU.@@@@@@HP )@@G@@@@@A'L@@@@@@@@@BV]@@@@@@@@@A8J@@@@@@@@@BVC@@@@@@@@@A'P@@@@@@@@@BVH@@@@@@HQ )@@G@@@@@A9$@@@@@@@@@BVM@@@@@@@@@B 4@@@@@@@@@BVR@@@@@@@@@A8R@@@@@@@@@BVW@@@@@@HR )@@G@@@@@A97@@@@@@@@@BV+@@@@@@@@@A89@@@@@@@@@BV*@@@@@@@@@A'#@@@@@@@@@BV,@@@@@@HS )@@G@@@@@A9\@@@@@@@@@BV4@@@@@@@@@A81@@@@@@@@@BV'@@@@@@@@@A9;@@@@@@@@@BV_@@@@@@HT )@@G@@@@@A9:@@@@@@@@@BW @@@@@@@@@A8.@@@@@@@@@BWF@@@@@@@@@A8!@@@@@@@@@BWK@@@@@@HU )@@G@@@@@A'5@@@@@@@@@BWP@@@@@@@@@A'9@@@@@@@@@BWU@@@@@@@@@A'.@@@@@@@@@BW)@@@@@@HV )@@G@@@@@A'1@@@@@@@@@BM\@@@@@@@@@A'!@@@@@@@@@BW>@@@@@@@@@A8B@@@@@@@@@BK>@@@@@@HW )@@G@@@@@A8F@@@@@@@@@BTC@@@@@@@@@@@@@@@@@ ABEND @@@BTH@@@@@@@@@@@@@@@@@ ABORT HX )@@G@@@@@BTM@@@@@@@@@@@@@@@@@CALPHABET @@@BTS@@@@@@@@@@@@@@@@@AANCHOR@@@BTXHY )@@G@@@@@@@@@@@@@@@@@@@#ARB @@@BT+@@@@@@@@@@@@@@@@@#BAL @@@C1\@@@@@@@@@@@@HZ )@@G@@@@@@@A@@@BT:@@@@@@@@@@@@@@@@@BCONSOLE @@@BT1@@@@@@@@@@@@@@@@@^DUMP IA )@@G@@@@@BT6@@@@@@@@@@@@@@@@@#END @@@BT;@@@@@@@@@@@@@@@@@EEXPRESSION @@@BU[IB )@@G@@@@@@@@@@@@@@@@@@@^FAIL @@@BUA@@@@@@@@@@@@@@@@@ FENCE @@@BUF@@@@@@@@@@@@IC )@@G@@@@@@@CFNCLEVEL @@@BUL@@@@@@@@@@@@@@@@@BFRETURN @@@BUR@@@@@@@@@@@@ID )@@G@@@@@@@AFTRACE@@@BUW@@@@@@@@@@@@@@@@@CFUNCTION @@@BU+@@@@@@@@@@@@@@@@@ IE )@@G@@INPUT @@@BU$@@@@@@@@@@@@@@@@@ALASTNO@@@BU?@@@@@@@@@@@@@@@@@CMAXLNGTH IF )@@G@@@@@BU2@@@@@@@@@@@@@@@@@^NAME @@@BU7@@@@@@@@@@@@@@@@@BNRETURN @@@C2,IG )@@G@@@@@@@@@@@@@@@@@@@F@@@BV[@@@@@@@@@@@@@@@@@AOUTPUT@@@BVA@@@@@@@@@@@@@@@@@BIH )@@G@@PATTERN @@@BVG@@@@@@@@@@@@@@@@@ PUNCH @@@BVL@@@@@@@@@@@@@@@@@#REM II )@@G@@@@@BVQ@@@@@@@@@@@@@@@@@ARETURN@@@BVV@@@@@@@@@@@@@@@@@^REAL @@@BV)@@@@@@IJ )@@G@@@@@@@@@@@@@BRTNTYPE @@@BV&@@@@@@@@@@@@@@@@@CFULLSCAN @@@BV?@@@@@@IK )@@G@@@@@@@@@@@@@BSTCOUNT @@@BV2@@@@@@@@@@@@@@@@@CSTFCOUNT @@@BV8@@@@@@IL )@@G@@@@@@@@@@@@@BSTLIMIT @@@BV"@@@@@@@@@@@@@@@@@^STNO @@@BW#@@@@@@@@@@@@IM )@@G@@@@@@@BSUCCEED @@@BWD@@@@@@@@@@@@@@@@@DTIMELIMIT @@@BWJ@@@@@@@@@@@@IN )@@G@@@@@@@ TRACE @@@BWO@@@@@@@@@@@@@@@@@^CALL @@@BWT@@@@@@@@@@@@@@@@@ARETURNIO )@@G@@@@@BWY@@@@@@@@@@@@@@@@@BKEYWORD @@@BW=@@@@@@@@@@@@@@@@@ LABEL @@@BW(IP )@@G@@@@@@@@@@@@@@@@@@@ASTRING@@@BW%@@+@C@@@@B=?@@+@ZK@@@C#"@@+@ZK@@@C@@@@@@@@@C=^@@+@@K@@@@@[@@@@@[@@@]E;@@@@@@@@@@@[@@@@@#@@@]F0@@@@@@IV )@@G@@@@@@@#@@@@@[@@@]H2@@@@@@@@@@@#@@@@@#@@@]GL@@@@@@@@@C=Q@@+@@S@@@@@@@@@@@[IW )@@G@@@@@ E.@@@@@@@@@@@@@@@@@A@@@ E.@@@@@@@@@@@@@@@@@B@@@ E.@@@@@@@@@@@@@@@@@DIX )@@G@@@@@ E.@@@@@@@@@@@@@@@@@E@@@ E.@@@@@@@@@@@@@@@@@F@@@ E.@@@@@@@@@C=0@@+@@OIY )@@G@@@@@@@A@@@@@A@@@]:(@@@@@@@@@@@[@@@@@A@@@]:2@@@@@@@@@@@A@@@@@[@@@]:"@@@@@@IZ )@@G@@@@@@@[@@@@@[@@@]?E@@@@@@@@@@@B@@@@@B@@@]?Q@@@@@@@@@C>A@@+@@G@@@@@@@@@@@[JA )@@G@@@@@[6Z@@@@@@@@@@@@@@@@@#@@@[6'@@@@@@@@@@@@@@@@@A@@@[6Z@@@@@@@@@C>O@@+@@GJB )@@G@@@@@@@@@@@@@[@@@#ZH@@@@@@@@@@@@@@@@@D@@@ DI@@@@@@@@@@@@@@@@@A@@@#ZK@@@@@@JC )@@G@@@@@@@@@@@@@E@@@ DI@@@@@@@@@C>&@@+@@C@@@@@A@@@@@[@@@#:F@@@@@@@@@@@[@@@@@AJD )@@G@@@@@#:R@@@@@@@@@C>0@@+@@G@@@@@@@@@@@A@@@#4#@@@@@@@@@@@@@@@@@[@@@#4B@@@@@@JE )@@G@@@@@@@@@@@@@B@@@#4N@@@@@@@@@C>"@@+@@O@@@@@A@@@@@A@@@#45@@@@@@@@@@@[@@@@@AJF )@@G@@@@@#4/@@@@@@@@@@@A@@@@@[@@@#5C@@@@@@@@@@@[@@@@@[@@@#5O@@@@@@@@@@@B@@@@@BJG )@@G@@@@@#5)@@@@@@@@@C&O@@+@@K@@@@@[@@@@@[@@@^DF@@@@@@@@@@@[@@@@@#@@@^F?@@@@@@JH )@@G@@@@@@@#@@@@@[@@@^D?@@@@@@@@@@@#@@@@@#@@@^EH@@@@@@@@@C&&@@+@@G@@@@@@@@@@@AJI )@@G@@@@@ D)@@@@@@@@@@@@@@@@@[@@@^I*@@@@@@@@@@@@@@@@@B@@@ D)@@@@@@@@@C&4@@+@@CJJ )@@G@@@@@@@@@@@@@[@@@^OZ@@@@@@@@@@@@@@@@@A@@@^P#@@@@@@@@@C&"@@+@@K@@@@@[@@@@@[JK )@@G@@@@@^Y^@@@@@@@@@@@[@@@@@#@@@^ZG@@@@@@@@@@@A@@@@@[@@@^Y9@@@@@@@@@@@A@@@@@#JL )@@G@@@@@^Z(@@@@@@@@@C$K@@+@@K@@@@@[@@@@@[@@@^&O@@@@@@@@@@@[@@@@@#@@@^>J@@@@@@JM )@@G@@@@@@@A@@@@@[@@@^&[@@@@@@@@@@@A@@@@@#@@@^>,@@@@@@@@@C$+@@+@@G@@@@@@@@@@@[JN )@@G@@@@@[2"@@@@@@@@@@@@@@@@@#@@@[4.@@@@@@@@@@@@@@@@@A@@@[4$@@@@@@@@@C$0@@+@@OJO )@@G@@@@@@@A@@@@@A@@@^29@@@@@@@@@@@[@@@@@A@@@^2"@@@@@@@@@@@A@@@@@[@@@^3E@@@@@@JP )@@G@@@@@@@[@@@@@[@@@^3Q@@@@@@@@@@@B@@@@@B@@@^3+@@@@@@@@@C*A@@+@@A@@@BFG@@^@@@JQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C*I@@+@@G@@@BE2@@^@@@@@@@@A@@@@@@@@@@@@@@@@@@JR )@@G@@@@@BE4@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C*W@@+@@M@@@BF]@@^@@@@@@@@@@@@@@AJS )@@G@@@@@@@@@@@@@@@@@BF]@@^@@@@@@@@G@@@@@@@@@@@@@@@@@@@@@BE=@@^@@@@@@@@G@@@@@@JT )@@G@@@@@@@@@@@@@@@@@C*0@@+@@S@@@BF]@@^@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@BF]@@^@@@JU )@@G@@@@@@@G@@@@@@@@@@@@@@@@@@@@@BEG@@^@@@@@@@@M@@@@@S@@@@@@@@@@@@@@@BEE@@^@@@JV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C(E@@+@@G@@@BEW@@^@@@@@@@@@@@@@@A@@@@@@@@@@@@JW )@@G@@@@@BF]@@^@@@@@@@@G@@@@@@@@@@@@@@@@@@@@@C(S@@+@@C@@@BEI@@^@@[@@@@@@@@@@@@JX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C(+@@+@@M@@@BF]@@^@@@@@@@@@@@@@@A@@@@@@@@@@@@JY )@@G@@@@@BEM@@^@@@@@@@@G@@@@@@@@@@@@@@@@@@@@@BEO@@^@@@@@@@@G@@@@@@@@@@@@@@@@@@JZ )@@G@@@@@C(6@@+@@A@@@BE/@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C("@@+@@A@@@BFI@@^@@@KA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C%A@@+@@C@@@BE'@@^@@[@@@@@@@@@@@@@@@@@@@@@@@@KB )@@G@@@@@@@@@@@@@A@@@C%K@@+@@Q@@@BFC@@^@@[@@@@@@@@@@@C@@@@@[@@@@@@@@@@@@@@@@@@KC )@@G@@@@@BF]@@^@@@@@@@@I@@@@@@@@@@@@@@@@@@@@@BEY@@^@@[@@@@@@@@@@@C@@@@@@@@@@@@KD )@@G@@@@@@@@@@@@@@@@@C%*@@+@@A@@@BFM@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C%0@@+@@GKE )@@G@@@@@@@@@@^@@]@@@BDI@@^@@[@@@@@@@@@@@@@@@BDI@@^@@[@@@@@@@@@@@@@@@BD?@@^@@@KF )@@G@@@@@C%"@@+@@G@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@EKG )@@G@@@@@@@@@@@@@@@@@C:K@@@@@@@@@@@@@@@@@YERROR IN ARITHMETIC OPERATION.@@@C:TKH )@@G@@@@@@@@@@@@@@@@@@@YINCORRECT NUMBER OF ARGUMENTS.@@@C:+@@@@@@@@@@@@@@@@@&KI )@@G@@EXCEEDED LIMIT ON STATEMENT EXECUTION. @@@C:!@@@@@@@@@@@@@@@@@OTIME LKJ )@@G@@IMIT EXCEEDED. @@@C:5@@@@@@@@@@@@@@@@@>INPUT END OF FILE DURING COMPIKK )@@G@@LATION. @@@C?@@@@@@@@@@@@@@@@@@-INSUFFICIENT STORAGE TO CONTINUE. KL )@@G@@@@@C?E@@@@@@@@@@@@@@@@@MERROR IN COMPILER.@@@C?L@@@@@@@@@@@@@@@@@IREADINKM )@@G@@G ERROR. @@@C?S@@@@@@@@@@@@@@@@@SERRONEOUS END STATEMENT.@@@C?)@@@@@@KN )@@G@@@@@@@@@@@@@XEXCESSIVE COMPILATION ERRORS. @@@C?(@@@@@@@@@@@@@@@@@YERROR KO )@@G@@IN STORAGE REGENERATION.@@@C?2@@@@@@@@@@@@@@@@@ZIMPROPER STATEMENT TERMIKP )@@G@@NATION. @@@C?/@@@@@@@@@@@@@@@@@RRETURN FROM ZERO LEVEL. @@@C!^@@@@@@KQ )@@G@@@@@@@@@@@@@MILLEGAL DATA TYPE.@@@C!F@@@@@@@@@@@@@@@@@WUNDEFINED OR ERRONKR )@@G@@EOUS GOTO. @@@C!O@@@@@@@@@@@@@@@@@VFAILURE IN GOTO EVALUATION. @@@C!XKS )@@G@@@@@@@@@@@@@@@@@@@VCALL OF UNDEFINED FUNCTION. @@@C!&@@@@@@@@@@@@@@@@@,KT )@@G@@EXECUTION OF STATEMENT WITH COMPILATION ERROR. @@@C!2@@@@@@@@@@@@@@@@@KKU )@@G@@STRING OVERFLOW. @@@C!9@@@@@@@@@@@@@@@@@PERROR IN INTERPRETER. @@@C,[KV )@@G@@@@@@@@@@@@@@@@@@@UOBJECT EXCEEDS SIZE LIMIT. @@@C,E@@@@@@@@@@@@@@@@@UKW )@@G@@ERROR IN PATTERN MATCHING. @@@C,N@@@@@@@@@@@@@@@@@OERRONEOUS PROTOTYPKX )@@G@@E. @@@C,V@@@@@@@@@@@@@@@@@PTOO MANY DEFINITIONS. @@@C,<@@@@@@@@@@@@KY )@@G@@@@@@@OTOO MANY DATA TYPES. @@@C,:@@@@@@@@@@@@@@@@@+VARIABLE NOT GIVENKZ )@@G@@ WHERE REQUIRED. @@@C,5@@@@@@@@@@@@@@@@@ZNULL STRING IN ILLEGAL CONTEXTLA )@@G@@. @@@C,_@@@@@@@@@@@@@@@@@TERRONEOUS ARRAY REFERENCE @@@C\C@@@@@@LB )@@G@@@@@@@@@@@@@OERROR IN SUBROUTINE. @@@C\K@@@@@@@@@@@@@@@@@XOVERFLOW IN LC )@@G@@PATTERN MATCHING. @@@C\T@@@@@@@@@@@@@@@@@JSTACK OVERFLOW. @@@C\)@@@@@@LD )@@G@@@@@@@@@@@@@KUNKNOWN KEYWORD. @@@C\$@@@@@@@@@@@@@@@@@YARGUMENT NOT DEFINLE )@@G@@ED FUNCTION.@@@C\0@@@@@@@@@@@@@@@@@TILLEGAL UNIT DESIGNATION. @@@C\9LF )@@G@@@@@@@@@@@@@@@@@@@