From 6c86838d1853599b940422577bc5b675d3696fb2 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Wed, 29 Jan 2025 22:57:37 -0800
Subject: [PATCH] Macros for multi-level alists

---
 lispusers/MULTI-ALIST       | 239 ++++++++++++++++++++++++++++++++++++
 lispusers/MULTI-ALIST.LCOM  | Bin 0 -> 5016 bytes
 lispusers/MULTI-ALIST.TEDIT | Bin 0 -> 10436 bytes
 3 files changed, 239 insertions(+)
 create mode 100644 lispusers/MULTI-ALIST
 create mode 100644 lispusers/MULTI-ALIST.LCOM
 create mode 100644 lispusers/MULTI-ALIST.TEDIT

diff --git a/lispusers/MULTI-ALIST b/lispusers/MULTI-ALIST
new file mode 100644
index 00000000..f07050de
--- /dev/null
+++ b/lispusers/MULTI-ALIST
@@ -0,0 +1,239 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+
(FILECREATED "29-Jan-2025 19:34:13" {WMEDLEY}<lispusers>MULTI-ALIST.;15
 12223  
+
+      :EDIT-BY rmk
+
+      :CHANGES-TO (FNS MAPMULTI)
+
+      :PREVIOUS-DATE "25-Jan-2025 15:04:13" {WMEDLEY}<lispusers>MULTI-ALIST.;14)
+
+
+(PRETTYCOMPRINT MULTI-ALISTCOMS)
+
+(RPAQQ MULTI-ALISTCOMS

+       ((MACROS GETMULTI PUTMULTI PUTMULTI-D PUTMULTI-NEW PUTMULTI-COUNT PUTMULTI-SUM REMOVEMULTI 
+               REMOVEMULTIALL)
+        (MACROS FGETMULTI FPUTMULTI FPUTMULTI-D FPUTMULTI-NEW)
+        (FNS MAPMULTI MAPMULTI1 COLLECTMULTI)
+        (FNS GETMULTI.EXPAND PUTMULTI.EXPAND REMOVEMULTI.EXPAND)
+        (MACROS ADDTOMULTI)
+        (FNS ADDTOMULTI1)
+        (LOCALVARS . T)))
+(DECLARE%: EVAL@COMPILE 
+
+(PUTPROPS GETMULTI
 MACRO
 (ARGS (GETMULTI.EXPAND
 'SASSOC ARGS)))
+
+(PUTPROPS PUTMULTI
 MACRO
 (ARGS (PUTMULTI.EXPAND
 'SASSOC ARGS)))
+
+(PUTPROPS PUTMULTI-D
 MACRO
 (ARGS (PUTMULTI.EXPAND
 'SASSOC ARGS NIL T)))
+
+(PUTPROPS PUTMULTI-NEW
 MACRO
 (ARGS (PUTMULTI.EXPAND
 'SASSOC ARGS)))
+
+(PUTPROPS PUTMULTI-COUNT
 MACRO
 (ARGS (PUTMULTI.EXPAND
 'SASSOC (APPEND ARGS '(1))
+                                            NIL NIL T)))
+
+(PUTPROPS PUTMULTI-SUM
 MACRO
 (ARGS (PUTMULTI.EXPAND
 'SASSOC ARGS NIL NIL T)))
+
+(PUTPROPS REMOVEMULTI
 MACRO
 (ARGS (REMOVEMULTI.EXPAND
 ARGS)))
+
+(PUTPROPS REMOVEMULTIALL
 MACRO
 (ARGS (REMOVEMULTI.EXPAND
 ARGS T)))
+)
+(DECLARE%: EVAL@COMPILE 
+
+(PUTPROPS FGETMULTI
 MACRO
 (ARGS (GETMULTI.EXPAND
 'FASSOC ARGS)))
+
+(PUTPROPS FPUTMULTI
 MACRO
 (ARGS (PUTMULTI.EXPAND
 'FASSOC ARGS)))
+
+(PUTPROPS FPUTMULTI-D
 MACRO
 (ARGS (PUTMULTI.EXPAND
 'FASSOC ARGS NIL T)))
+
+(PUTPROPS FPUTMULTI-NEW
 MACRO
 (ARGS (PUTMULTI.EXPAND
 'FASSOC ARGS)))
+)
+(DEFINEQ
+
+(MAPMULTI

+  [LAMBDA (MULTIALIST MAPFN)
                                 (* ; "Edited 29-Jan-2025 19:33 by rmk")


+                                                             (* ; "Edited 25-Jan-2025 14:51 by rmk")


+                                                             (* ; "Edited 16-Jan-2025 10:32 by rmk")


+                                                            (* ; "Edited  6-Jan-2020 10:15 by rmk:")

+
+    (* ;; "MAPMULTI applies a mapping function of N args to each item in an N-way item in the multi-alist at MULTIALIST.  If an item C is inserted by (PUTMULTI FOO A B C), then MAPFN should be a 3 argument function and it will be applied to A B C. The caller is responsible for making sure the arities of the index and the mapfn correspond.")

+
+    (DECLARE
 (SPECVARS MAPFN))
+    (LET ($$LISTFORARGS$$)
+         (DECLARE
 (SPECVARS $$LISTFORARGS$$))
+         (SETQ $$LISTFORARGS$$ (FOR
 I FROM
 1 TO
 (NARGS MAPFN) COLLECT
 NIL))
+         (MAPMULTI1
 MULTIALIST $$LISTFORARGS$$ (NARGS MAPFN])
+
+(MAPMULTI1

+  [LAMBDA (SUBALIST ARGLIST NREMAINING)
                      (* ; "Edited 25-Jan-2025 15:03 by rmk")


+                                                             (* ; "Edited 22-Jan-2025 23:42 by rmk")


+                                                             (* ; "Edited 16-Jan-2025 10:29 by rmk")


+                                                            (* ; "Edited  6-Jan-2020 10:21 by rmk:")

+    (DECLARE
 (USEDFREE $$LISTFORARGS$$ MAPFN))
+    (if
 [AND (IGREATERP NREMAINING 1)
+             (LISTP (CAR (LISTP SUBALIST]
+        then
 
+             (* ;; "Still a list of alists.")

+
+             (for
 SI in
 SUBALIST do
 (RPLACA ARGLIST (CAR SI))
+                                    (MAPMULTI1
 (CDR SI)
+                                           (CDR ARGLIST)
+                                           (SUB1 NREMAINING)))
+      else
 (for
 ITEM inside
 SUBALIST do
 (RPLACA ARGLIST ITEM)
+                                        (APPLY MAPFN $$LISTFORARGS$$])
+
+(COLLECTMULTI

+  [LAMBDA (MULTIALIST MAPFN)
                                 (* ; "Edited 25-Jan-2025 15:00 by rmk")


+                                                             (* ; "Edited 22-Jan-2025 23:44 by rmk")


+                                                            (* ; "Edited  6-Jan-2020 10:15 by rmk:")

+    (LET ($$COLLECT)
+         (DECLARE
 (SPECVARS $$COLLECT))
+         (MAPMULTI
 MULTIALIST MAPFN)
+         $$COLLECT])
+)
+(DEFINEQ
+
+(GETMULTI.EXPAND

+  [LAMBDA (ASSOCFN ARGS)
                                     (* ; "Edited 16-Jan-2025 10:27 by rmk")


+                                                            (* ; "Edited 19-Jul-2020 00:38 by rmk:")


+                                                            (* ; "Edited 22-Mar-2020 13:21 by rmk:")


+                                                            (* ; "Edited 27-Feb-2020 13:44 by rmk:")


+                                                            (* ; "Edited 30-Dec-2019 20:50 by rmk:")

+
+    (* ;; "If SUM, returns the value after the last argument, paired with PUTMULTISUM")

+
+    (IF
 (CDR ARGS)
+        THEN
 `(LET ($$CELL$$)
+                   (DECLARE
 (LOCALVARS $$CELL$$))
+                   ,@[FOR
 ATAIL (HEAD _ (CAR ARGS)) ON
 (CDR ARGS)
+                        COLLECT
 (PROG1 `[SETQ $$CELL$$ (CDR (,ASSOCFN ,(CAR ATAIL)
+                                                                   ,HEAD]
+                                    (SETQ HEAD '$$CELL$$))]
+                   $$CELL$$)
+      ELSE
 (CAR ARGS])
+
+(PUTMULTI.EXPAND

+  [LAMBDA (ASSOCFN ARGS ALLOWREPEATS SINGLEVALUE SUM)
        (* ; "Edited 23-Jan-2025 09:40 by rmk")


+                                                             (* ; "Edited 16-Jan-2025 10:18 by rmk")


+                                                            (* ; "Edited 17-Aug-2020 14:09 by rmk:")

+
+    (* ;; "If ALLOWREPEATS, doesn't test (MEMBER) for preexisting values, just accumulates")

+
+    (* ;; "If SINGLEVALUE, new value smashes out old")

+
+    (* ;; "For SUM, the last argument is the increment to be added to the current  value, and the incremented value is returned for PUTMULTISUM and for GETMULT")

+
+    (* ;; "")

+
+    (* ;; "We get the setf method so that any expressions in the form will be evaluated only once.")

+
+    (CL:MULTIPLE-VALUE-BIND
+     (TEMPVARS VALFORMS STOREVARS STOREFORM ACCESSFORM)
+     (CL:GET-SETF-METHOD (CAR ARGS))
+     (CL:IF (CDR ARGS)
+         `(LET*
+           ,(FOR
 VF IN
 VALFORMS AS
 TV IN
 TEMPVARS COLLECT
 (LIST TV VF))
+           (DECLARE
 (LOCALVARS ,@TEMPVARS))
+           (LET
+            ($$ARG1$$ $$ARG2$$)
+            (DECLARE
 (LOCALVARS $$ARG1$$ $$ARG2$$))
+            ,@[FOR
 ATAIL (HEAD _ ACCESSFORM) ON
 ARGS WHILE
 (CDR ATAIL)
+                 JOIN

+                 (IF
 (AND SUM (NULL (CDDR ATAIL)))
+                     THEN
 (POP
 ATAIL)
+                          `[(CL:UNLESS ,HEAD (RPLACD $$ARG1$$ 0))
+                            (SETQ $$ARG2$$ (ADD
 ,HEAD ,(CAR ATAIL]
+                   ELSE

+                   (PROG1 `[(SETQ $$ARG2$$ ,(CADR ATAIL))
+                            ,(IF
 (CDDR ATAIL)
+                                 THEN
 `[SETQ $$ARG1$$ (OR (,ASSOCFN $$ARG2$$ ,HEAD)
+                                                          (CAR (CL:PUSH (CONS $$ARG2$$)
+                                                                      ,HEAD]
+                               ELSEIF
 ALLOWREPEATS
+                                 THEN
 `(push
 ,HEAD $$ARG2$$)
+                               ELSEIF
 SINGLEVALUE
+                                 THEN
 `(RPLACD $$ARG2$$)
+                               ELSE
 `(OR (MEMBER $$ARG2$$ ,HEAD)
+                                         (push
 ,HEAD $$ARG2$$]
+                       (SETQ HEAD '(CDR $$ARG1$$)))]
+            $$ARG2$$))
+         (CAR ARGS))])
+
+(REMOVEMULTI.EXPAND

+  [LAMBDA (ARGS ALLFLAG)
                                     (* ; "Edited 16-Jan-2025 10:34 by rmk")


+                                                            (* ; "Edited 17-Aug-2020 15:12 by rmk:")


+                                                            (* ; "Edited 17-May-2020 17:25 by rmk:")


+                                                            (* ; "Edited 14-Feb-2020 11:24 by rmk:")


+                                                            (* ; "Edited 25-Dec-2019 09:57 by rmk:")

+
+    (* ;; "If ALLFLAG, then all data after the last of ARGS, if any, is removed.  That is, if there are 3 keys to the index, and REMOVEMULTIALL is invoked with 2 keys, then it's as if no entries were made for any of the third keys after those first two.  In the case of REMOVEMULTIALL, it returns the previous tail.")

+
+    (* ;; "No point in distinguishing FASSOC from SASSOC here.")

+
+    (CL:MULTIPLE-VALUE-BIND
+     (TEMPVARS VALFORMS STOREVARS STOREFORM ACCESSFORM)
+     (CL:GET-SETF-METHOD (CAR ARGS))
+     (CL:IF (CDR ARGS)
+         `(LET*
+           ,(FOR
 VF IN
 VALFORMS AS
 TV IN
 TEMPVARS COLLECT
 (LIST TV VF))
+           (DECLARE
 (LOCALVARS ,@TEMPVARS))
+           (LET
+            ($$ARG1$$ $$ARG2$$)
+            (DECLARE
 (LOCALVARS $$ARG1$$ $$ARG2$$))
+            ,@[FOR
 ATAIL (HEAD _ ACCESSFORM) ON
 ARGS WHILE
 (CDR ATAIL)
+                 JOIN
 (PROG1 `[(SETQ $$ARG2$$ ,(CADR ATAIL))
+                               ,(IF
 (CDDR ATAIL)
+                                    THEN
 `(SETQ $$ARG1$$ (SASSOC $$ARG2$$ ,HEAD))
+                                  ELSEIF
 ALLFLAG
+                                    THEN
 `(CL:WHEN (SETQ $$ARG1$$ (SASSOC $$ARG2$$ ,HEAD))
+                                              (SETQ $$ARG2$$ (CDR $$ARG1$$))
+                                              (RPLACD $$ARG1$$))
+                                  ELSE
 `(AND (SETQ $$ARG2$$ (MEMBER $$ARG2$$ ,HEAD))
+                                             (RPLACD $$ARG1$$ (DREMOVE (SETQ $$ARG2$$ (CAR $$ARG2$$))
+                                                                     ,HEAD]
+                          (SETQ HEAD '(CDR $$ARG1$$)))]
+            $$ARG2$$))
+         (CAR ARGS))])
+)
+(DECLARE%: EVAL@COMPILE 
+
+(PUTPROPS ADDTOMULTI
 MACRO
 [ARGS (CL:MULTIPLE-VALUE-BIND
+                                  (TEMPVARS VALFORMS STOREVARS STOREFORM ACCESSFORM)
+                                  (CL:GET-SETF-METHOD (CAR ARGS))
+                                  `(LET* [,@(FOR
 VF IN
 VALFORMS AS
 TV IN
 TEMPVARS
+                                               COLLECT
 (LIST TV VF))
+                                          ($$KEYS ,(CADR ARGS]
+                                         (DECLARE
 (LOCALVARS $$KEYS ,@TEMPVARS))
+                                         (COND
+                                            [(LISTP $$KEYS)
+                                             (CL:UNLESS (SASSOC (CAR $$KEYS)
+                                                               ,ACCESSFORM)
+                                                 (CL:PUSH (CONS (CAR $$KEYS))
+                                                        ,ACCESSFORM))
+                                             (ADDTOMULTI1
 ,ACCESSFORM $$KEYS ,(CADDR ARGS]
+                                            (T (CL:SETF ,ACCESSFORM ,(CADDR ARGS])
+)
+(DEFINEQ
+
+(ADDTOMULTI1

+  [LAMBDA (PLACE KEYS VAL)
                                   (* ; "Edited 22-Jan-2025 23:47 by rmk")


+                                                            (* ; "Edited 17-Aug-2020 15:05 by rmk:")

+
+    (* ;; "This allows the keys to be provided in a single list rather than as separate arguments.")

+
+    (FOR
 I (P _ PLACE) IN
 KEYS DO
 [SETQ P (OR (SASSOC I P)
+                                              (CAR (PUSH
 (CDR P)
+                                                         (CONS I] FINALLY
 (PUSH
 (CDR P)
+                                                                                VAL))
+    VAL])
+)
+(DECLARE%: DOEVAL@COMPILE DONTCOPY
+
+(LOCALVARS . T)
+)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (1837 4449 (MAPMULTI 1847 . 2915) (MAPMULTI1 2917 . 3974) (COLLECTMULTI 3976 . 4447)) (
+4450 10311 (GETMULTI.EXPAND 4460 . 5581) (PUTMULTI.EXPAND 5583 . 7995) (REMOVEMULTI.EXPAND 7997 . 
+10309)) (11461 12146 (ADDTOMULTI1 11471 . 12144)))))
+STOP
diff --git a/lispusers/MULTI-ALIST.LCOM b/lispusers/MULTI-ALIST.LCOM
new file mode 100644
index 0000000000000000000000000000000000000000..d4cd756cab62d054aec4ec7821d8103a67e9d4e4
GIT binary patch
literal 5016
zcmcIoOK%(373K`<HenEhl(R^<2o4C>9k!*wnc+iZ1A~{tp*YgK%o)m->p(~%BNUXx
zhTQ@MimtloqN@T$R$b)}lvXOBt{wAFbW;?_uIReWBFLugcket&%dHeN0z}?9_nzlH
z-#KTfjLfm+nvJn#n+?kyd-SHyj9s>EQq6Khb81_GU!ymtCL4upXs?lnEHFuJ)=MRY
zOE7ROG)Gj^dX1fTK5A%9txamLuebWDUL&RU-n|d+AANB5knVj%HTwBY#~j(_{x9D8
z;OOD~pFX_%;Nf*=W`|aTL2bDCBeh+pQcdgTgmwBY$ZOW<-3ND5X?K5i|G~rW_Q_$s
z;HM*qAJ1%?^1Pdyn>9Lo=O<8qrqEWcel9o8VK%9nrs>o-M^@Mv?$d)0kEw4=n7eHT
zjnFHRGIoR1+&cCBskvu)v!F3T01>}-&gFK$8O85^D{j?GX$<<Kt&(Ds(j*ZR5z;#O
z)TFCdd3eX(lufsTt5?Y)mD@6Q>r~kKcA+3w$_4gv0e{C8?b43*#UHNhZrmD7BHAl_
zqx_kD`l>Up-g&Zf{O8+?&z);e7he_>T~D1-N!ucqYoPeMUUDtFq+}+ll-Q_|J2f3<
zxt6;PW5C5NgsH)77#lt&Ei#hEq_4XG!yQ>J6o<$EI8g?NMX7jFTT~CFid0||>GkDA
zX7cd(FT(UIa`E)<^YWllktT;HUmX@dc|8B6^mrowky)=Vr$LGPw_N<Kpma52zHjf7
z-p<@gy)Zl*86QRompBp!5|%$7^q2v*zA8mQ9x$P7QZ6XHR70v@+l+*7nzwxBj?!R>
z_ykbFg1|FyYmj)vuZ<nbC+{ua=l0)AKbXv<%J9<U?c(ouHUwGdtX8XKaWeZDIFdC7
z9sm4GY&?Ftd-{q!um1Q?j=XqgUwg9nN`kd5oeaB=;F#_RpxM%JA%<z&NT!ZP#%N0I
zZboWr6qw-+6biD<5a&tXA|>Idlh!0<WEwV`nxxpC!R$RY4N`vir?zwF>m`47c4S(}
z7YEr9AdPHukJ&R5S;K7GyE!#|)TSUxuGQd4zeZkMVv@*s@lj#ln(&OcEj`(hWm$TP
z$bRxjdOwP-wObjM+~R5RSJJ_2OQ(1`@h)#<VYGPk#AEIf>`Lt==b&8ttyh*my^ixM
zH^IYQElb{OSR8CDz4GZ5Z)09PC?8y2y7Dte{%r9ZZ{ylQdAazfcX@R37Np3ZcJK+3
zP~{4FvEIxU*DFh0c>MpU@Nu>WZn4K@opdw0SPjId%lWb$p+nF>pH~;X;qRhjVq>vs
zd>k#lm$9sgNz9Dx5yzj2e1xYk<k7!A=jo**q3*bb=NcL+X*0_;QdPR+?1|#g;bdT>
zf!rE595bAFJQwwLhtNyrq_;XqA(RpgS*f>xOw$>fQ_}SgdH7OW(K)Rr6!^1Xf|AuH
zgH6#k+8M9b>2U_F(~4*+<Z10*l+#*^*V9;whC(4ST~m>EqY*Nj!ywshCOFvYaocCE
zZ3d{08b<}8*kq~S=~4m+7>@1l3)FNwq;PNvkual9I^YH*MH=v^^+=ieHZw-4UQPwT
zvO`)AXhLu~!V*T6(^fdSm(6;;gpdpHB`14OnAo-gRvh3wsmwZUbz`-w^b$(Fw`Yn1
zc}8us?Xk_ad3i(c0QRMK0Z)1G-{3hA@Vx%D;W_w!!ZS<$6@<N!(X*AiIASM1$e!0$
z3D&9+u8g(q>@hu<k;F>yrJFBA-M_yhP={3e+Nf*xXcXNm>CHS)dOeC0l7lPB4j>IJ
zG6Li(*t%%?yjf_SHu0{fwPI-;#+nY;iMEGjUJLR*;?i0iS~n-AOPb2(geY%;#I2OG
z8Pj=Msy)y}bL#f8(`py3gi|j7PGEl>oG3Ah5R;mr@amF0A-T0SI^lC?@({1D0va}d
zGoVDd3O#|z{8)w_ik7)+?(>$(>x#*zjm=`AP-KJ3hCC^rmaL&ASKk<xrQ4P$<)@de
z!<~7R6PGe?qqi1+EhxB{=;qS-M#0b<hWm!+_*1-VL=#gq`hymr;!S;a<HkB2@p70k
z^#V!;BueIibkP`POV_-aJs92$nv(MkJ}%_T5#>q~#s<VbRy9s_jT2@{SJ0NNp$=^M
z@t)F|T&4Wb7#~X{C#5ivpFHPGib<JS*`<M2;z~1$3R2clHYuzlaTG}Rr=Fh+p74+q
zUTsNPH%7TJ^YB6v-&|ah^I{TfF}~tX5-|xi@!{NJ5Xy@RBD__sJD2Eh@XNobz|}aV
zqN3Efh%hA@kVVue4uPUVyfB%+48729o|qR=C2o%g;*4PA5@=OsZX>y<sORP{IClt$
zIG2ERuQKqgxb%Wt8;km0KO@&tkgZyg+)&~}9O-k&IcK)zC7l)E)UI=<TVCR7x@GuX
zbrMZY6lWj5(})+F#?V4{R6^77#oH2yc%yd$3PKM*Ch!+1vEoE3F~h*D$=9d~&(F=E
zp)W<3Ps%U?y~5{CRNFg09H5|K0^S>w<x;AM1r+XaN@_zXE^jD2{Pi8Xdt;vN7(PV{
zfhevC?JdqTY@InvCZ`9fY#|0iD_mAeT)K}o%8y0<#Iv*#4+n9ZjrXB7=YPZ?#{Fmt
u&L74mPUpkL&Cf1H75h19u@!>MU0d-j6tTtxFn*3rs99rxkN6Y6lKcl^Gm0w!

literal 0
HcmV?d00001

diff --git a/lispusers/MULTI-ALIST.TEDIT b/lispusers/MULTI-ALIST.TEDIT
new file mode 100644
index 0000000000000000000000000000000000000000..fa2ba6f5729c73046f1ffe58d38b948cbcd64c71
GIT binary patch
literal 10436
zcmeHL*>c;~8HQ}9N$93anxyG|#_`l-N77h|EIXNIT9^ba#@q~ocARCV5DA%>a8Uu$
zw(<yho8I=i7rE~Pbov^d>A2tbADlx#lx)duI=!e8$-sa9eLrYL!*O)<daK_I8XIo2
z(F;o3rP5BRv{fqQfp`V*_L1^uQ*}2y9Ea0VFp5((oDCL}XgXI<!c>jJbgrUdJdcJd
zo~n<-=^{*yl-j<&ePgr0P#q?-$MG;qRj3BD@i-dHV{o1ws7W|TW~rKw!a1J5j8qJk
zVS1$IGnLL~Nu<K*P$khkiKE9njV39Dg=!Q>Ntg^q@gN+ptI1+Kk2l7^8LKc&XM;Et
z5#ty-#?xW+6iV(Nftw1G{df-2BQ;%2_M?Pqd>I|3n<^MZS|Qc#2jUME4u@2F8a+{u
z!|@`bUZE1MATx}$TGaH8mk~ncMKYyjMr&9oW(v`!DwVB}Zqu!L>aO>2YjblG|4h|=
zw^@1pvlgB6MM)pS`*hx9GMhFV>7hbU2GKfT2eV|NIS*jnexwfJ09cC%QTRcezy)FQ
zNCysDSDPR9yr90RL?n=s+2YZNFLVw}q{?(zJbfgdkr+TFB{~#*L2-+8L~%4PQv0*{
zd^Vv^`KH4X(qG!W+KD)|#)BtVZ>st%QPI<IayW)nu_k{UCULkwj?{xj+v`z$JdNiu
z_<aS52t~Wm6y?NFB-ZQ+b&j4MCQ+Iq#o#j-6j5r3G|l;3bG+tzHFd4#KUCN1zSpkq
zscTjDw&%CKpz`dQv-ZX_XBnnbNxF@8C)j9r8vdz75B3^?cU;n*>(@H%w)?PBq5;-7
zTF{etJZ3nL`LR?kQ|U65E@w&`omEbgiqS=tweTXvQg)?++BS)w&tEAyokUtSDafH(
zAU6^uUK;&z5lsh?DIi2*Fha>nE=baTSSnkFD@ndgaE6{%B6tXv&H(`|1DRuVN*F37
zahR?<p_VEwFI}RHn<|@P@shhbLy#@8iVhCgz|d-rm})3{IB6y#50dba^v6=U=>@7B
zc&)C9L%G?hy3PBp-%|xJYVn>xRJr4;a?kDcI#nf^DW)2FRs1PeU0|b@yZzoC9y;xw
z5~_->mI{7M3ZEiEQm9(<wLS*BC<dHY<*;HZII*NJmX&2{jwVy?EaEirX%dYOZ0Y7T
z%cR(|61(&=E8*c<=YjTiz7JGRiSo<Em5w?guqOtnfXfI;vMf;x=b2YEO3C!pjhZw?
z``Y#%NFS7T%CVR#Oy4;N`hJ+k1C<U&(Imn^ST;!TSgF|JSn8*k=RT2YXv^t53Ww|j
zCK{*+4E%YrFr}i$ImbvgnPyWIknSum9v<%W2wOz-IG!z1O;k=RYCIdTuXD1`N3%4_
z#ua*g63Kwfj-urR-&8K9!qoH`Oi(;e=U4{@v&9(rSUHA6Jzm(9KCgG$L9fxSc6?6_
z!+8joVay#BTvb4-yRAm^q3Sh0^;Dgc-R}f$(CD;P&AZ>gJ2_S)5zS&lHFGWQT<j`2
zO&IAHgpIvkJKaq5ytTQ3jT}LIFp05}AycL^Y!TxGQN|XfT3!od(u{fG2e0N=fXz~!
z`{Cm#(SulT1aMup@-6UK*S#*6Jz4i-J555;a{lT4gu&4Hv`Cn%F2>`rHAR*e<i{kO
zBcmnu-o4FIxo%3~1<o=3(&C>~1$J(&VxPhN<@)Ipu~=UWl=w=ywOY{8`=~5i+ytLf
zH=KLx*io@f8@t!l{z3<bo31p2Y$caHF=T0Bw>(_1m}G9UO)}&uPFUC=N7=&PF&6nn
zI0g^BQKs;3PC=V}y%lQ^9d2XEVi<Eqas$tD0V^z5TZrfShQ2hPJxW4s`qY9KgmeRS
zw;0P#pJJ;pc5PHU{dTY#RU0E2^x9XsUXfq5k=o3x<y~M7?Fd6Q9}_cz2lk@~{em2&
z@!%>Vn9^)S-6!#U1ej??@Q&ru>$g@_RqcLjsV-iyG^1|VhBBq{n{&<xYAw;sEJzm9
zDczSYWc}6#rRoZ*D@qX8E7-4&sn(F|RCaAhqRH$r!heupe-HDkyKb+xa(%DWx$kB7
zBLqm^<<)IA5uE(FO^1`OHonM|8-SK8u@ED9L6q{=b!@DKKXd#caMhzrZyNR?T1Bx(
zog^Zc6}Y~#{0<gVeN%0@U2QLJdI<v0{Lo$LFr1IF8)>e0LQ6}Mc?Oql1z5ce_39bl
zFZAZU!BWV}s<-8;b$B?AVLh5*6b?peg8S|C5ki<Q1_R!2a3M|?`?e>t8!v^SLk6Qo
zDtD>6zPat#qFqXpb;#<fck6nE_%_Mc85G>s`9HFfT4CxkK6RuNT#McjQ5nX_wgsd`
zO>uuYc1O|KjEmhI<^RzRVhlQn8*r=+kb#LV$oH35Px3v8r)WC5l3}Mfgud4o$B7!l
zAz*}I{=VoTA1915T1}J`4ba10#6smHjK{ia_BZ67YG&Hft>FQJj*37hJcyt2JiCR8
zhO`GGhb?UKk(O;k`9wB~%snOJ5OZt$w9&4+?V8uL7n2ft4ppRxIlAA{)$Fp>PP6G%
zv+oPbK&uSCl38%-J}OANGd+y(O@toIuGCkrW_0Ut{dk<J6Ek+nn~RcsiLswGj)lZB
z%=atFkHHMxo*!+n!|6{Y(lZ&>32dbMt;>c`lOKwZ^qh5Y2cDL!OC^Ut7t1~GULO~B
zPd)+gGeG&elK*f^D0kgE`T$Q|&zDWC8O<5SUf}vcqkV@c?+I}eG3Zr+_d9v5cbbh3
zBGXZ2*LQC>s_M!W{9gfI^55OsRyRM`rj$L;t$~wJnU~;U7yDkn-NpgWfp=?1-Q3wx
zH@0u7_jfDA1~BkG34~Bo2g(P#YUjqT+P!{VqfnmP4Dcz!#fJl8ox{i#8&1$(a5U2{
z3~hEgcYCUQukY4W)oVkr2j#2yOpu-Q`t)SgZ*&8=q0zqI=rwLPJ=Lk#RnKE$cHy=_
z-n-a%0YC$gQ!c_=*Rk!%Ufk-`V3ooM@tgRpqfr9Cao6kgHF+OJu{`rW>ALM6*Jt0m
z({JK7+G}>`<?QW&*SNEX-s;sF7@knf^Nr+w&+{de^j$A_2zBvP!2<5Lu#xA2Ob2b<
z+(CrY_N{!NzV#qKCs+R;Mx8+a`(fnA7HLecI3;IGp0Ym|*PN^Q_miG?2weNdd6oZM
zyyRS6Tl;41B*YwS2W)rGO{3+!c`iAc=DX*jxe6Q3XOB1yG(Uu#OBXM`*lAnN*Ur~#
zw}4IpI8C0O^T!Z;M+nX!;bSs`O7e3oESFifS#NMI=Ni7oKH={r=MCpA=R3OlAxq59
z+s>=iChozFY7Thde1Z{CYXlqoRv_nSx&ZmDMjKyHw)B+9+IOcHWR1CiftJ>-)r(X}
z(@gXa94B%fJXgvs8AUH8<TYcS^ItFpvi{)sCz+DXnp54iJU7nDL9DC5f9TwQ8UFcz
z83_egUdFc>j%WYO0`iXYno+=H0#0J*vy;p-nCh0g?fd_BHe7I4E1&>llfe&Q?>eQR
z(eiqJr{%UyZ3C{4nZhh%l$8E;bi2GDCSAbW<vqXO^fvLWrQRl@oEs!2=YIz2b#M};
zwdNNb0#0RZke(~wAaNLc55LwlT7UgGKuo$!D8v#&o~gy32;;GoA|blP<{|IlrNIA3
z1Q1vFl2Y7UfV^UG2rW?Clb$&dHkO)i7kOkMlwjGc9{r5S1*&TXBAlt5^nJcrJ1-d=
z%kWnQVl@;)3!FC$4n0Z6>jaP&h%U&3c)tMIHaMb={K?|L%oNo{B#C}vAVxrifC9U#
z1|pnvqt>G3nNVw`OI$*%O;R30ndxwrXbL_<AdLBDAtt3nE5nzbk+h-W2IFl$5<?z%
zQqYAOejmSrV%=)l3a(+tn29U`B!D!X#ZYt=cbFnX_>s!S>&6Pss>?rE!LbTjKEGYT
zQ7aHBTVn(*lIMcAeoP`ltbO#;%Ns1UP%!w{lu&^D(m*JRCz42vx1<fV5zPrH<5$;v
zmOm0ro`}Ls5aJiBSJ)7TzuM@G+6oXN$`(m{v*8rReEU0ot!%pF_XLp0<QVpqQ@kfT
zAW?;z=#d#K9)D>A#8p&R(vSiqSqQNviGSrSv-%27<=CQFt1aZN!4doNM!v<9vnnhV
zOKO{_@1B9&I%$>sr)MCy@wViaAtS}(a~V-c8yaK1ZZlQdE}bVLNgy4AY4bULZQ2kj
z6N4x#d|Ss+r5{sYF@U@!Km~{#5mI1BK~ftekmM*3t+M$A@PxYzbW+?j5R=}LsxM%}
zWASj&_wtsdpVj8eya4)j*8pTgAS+=<Wo1@b*@RfTje75p+M=B7EaAsLMfC)nsV64|
zuT{ucJeHxHD=eo=+BAHvN1hXA$)~)YEB1?vsHR9H>Tiqy<045to`{3#@)a&JkjX`4
z@sIQ_LL}P>5h79x8y;CUw%N$=BeINu0?y9?6@N-Xk<UL2go@G|?-9Tgqq(Iq0Kp*t
z(@jw%r(~%N;@a5Cwnd07Q-KtaeH<6b1v#&kn0>K^&z~R0;a~seIB))Ct^d`Z{{_3C
B56%Dp

literal 0
HcmV?d00001